From 26a681be547db1315e70b988ab80a53edd9ded96 Mon Sep 17 00:00:00 2001 From: osa Date: Wed, 24 Sep 2003 13:32:25 +0000 Subject: Update to 3.54. Utilize ${DOCSDIR} and ${EXAMPLESDIR}. Use new name schema for patch files. Fix ${MASTER_SITES} and home page URL. Take maintainership. --- lang/ptoc/Makefile | 18 +-- lang/ptoc/distinfo | 2 +- lang/ptoc/files/patch-aa | 13 -- lang/ptoc/files/patch-ab | 246 --------------------------------- lang/ptoc/files/patch-ac | 11 -- lang/ptoc/files/patch-ad | 11 -- lang/ptoc/files/patch-ae | 11 -- lang/ptoc/files/patch-main.cxx | 13 ++ lang/ptoc/files/patch-makefile.bsd | 11 ++ lang/ptoc/files/patch-parser.y | 272 ++++++++++++++++++++----------------- lang/ptoc/files/patch-tpexpr.cxx | 11 ++ lang/ptoc/files/patch-trnod.cxx | 246 +++++++++++++++++++++++++++++++++ lang/ptoc/pkg-descr | 2 +- lang/ptoc/pkg-plist | 82 +++++------ 14 files changed, 478 insertions(+), 471 deletions(-) delete mode 100644 lang/ptoc/files/patch-aa delete mode 100644 lang/ptoc/files/patch-ab delete mode 100644 lang/ptoc/files/patch-ac delete mode 100644 lang/ptoc/files/patch-ad delete mode 100644 lang/ptoc/files/patch-ae create mode 100644 lang/ptoc/files/patch-main.cxx create mode 100644 lang/ptoc/files/patch-makefile.bsd create mode 100644 lang/ptoc/files/patch-tpexpr.cxx create mode 100644 lang/ptoc/files/patch-trnod.cxx (limited to 'lang/ptoc') diff --git a/lang/ptoc/Makefile b/lang/ptoc/Makefile index c8319539..0d95d60 100644 --- a/lang/ptoc/Makefile +++ b/lang/ptoc/Makefile @@ -6,11 +6,11 @@ # PORTNAME= ptoc -PORTVERSION= 3.50 +PORTVERSION= 3.54 CATEGORIES= lang -MASTER_SITES= http://www.ispras.ru/~knizhnik/ +MASTER_SITES= http://www.garret.ru/~knizhnik/ -MAINTAINER= ports@FreeBSD.org +MAINTAINER= osa@FreeBSD.org COMMENT= ANSI/Turbo Pascal to C/C++ converter WRKSRC= ${WRKDIR}/${PORTNAME} @@ -40,17 +40,17 @@ do-install: .for file in array.h graph.h io.h paslib.h ptoc.h set.h ${INSTALL_DATA} ${WRKSRC}/${file} ${PREFIX}/include/ptoc .endfor - @${MKDIR} ${PREFIX}/share/ptoc + @${MKDIR} ${DATADIR} .for file in graph.pas ptoc.pas tptoc.pas - ${INSTALL_DATA} ${WRKSRC}/${file} ${PREFIX}/share/ptoc + ${INSTALL_DATA} ${WRKSRC}/${file} ${DATADIR} .endfor - @${MKDIR} ${PREFIX}/share/examples/ptoc + @${MKDIR} ${EXAMPLESDIR} .for file in ${EXAMPLES} - ${INSTALL_DATA} ${WRKSRC}/examples/${file} ${PREFIX}/share/examples/ptoc + ${INSTALL_DATA} ${WRKSRC}/examples/${file} ${EXAMPLESDIR} .endfor .if !defined(NOPORTDOCS) - @${MKDIR} ${PREFIX}/share/doc/ptoc - ${INSTALL_DATA} ${WRKSRC}/Readme.htm ${PREFIX}/share/doc/ptoc + @${MKDIR} ${DOCSDIR} + ${INSTALL_DATA} ${WRKSRC}/Readme.htm ${DOCSDIR} .endif .include diff --git a/lang/ptoc/distinfo b/lang/ptoc/distinfo index d0b0ec5..142b730 100644 --- a/lang/ptoc/distinfo +++ b/lang/ptoc/distinfo @@ -1 +1 @@ -MD5 (ptoc-3.50.tar.gz) = 8e371aa97d5432ea75cd4842c1df4d73 +MD5 (ptoc-3.54.tar.gz) = 2d82e50267c1875aa2a8d78efcbf7915 diff --git a/lang/ptoc/files/patch-aa b/lang/ptoc/files/patch-aa deleted file mode 100644 index 617a95e..0000000 --- a/lang/ptoc/files/patch-aa +++ /dev/null @@ -1,13 +0,0 @@ ---- main.cxx.orig Thu Sep 23 23:35:38 1999 -+++ main.cxx Sat Oct 21 04:11:00 2000 -@@ -326,8 +326,8 @@ - compile_system_library = TRUE; - #ifdef PREFIX - token::input(turbo_pascal -- ? PREFIX "/share/ptoc/tptoc.pas" -- : PREFIX "/share/ptoc/ptoc.pas")); -+ ? (char *) PREFIX "/share/ptoc/tptoc.pas" -+ : (char *) PREFIX "/share/ptoc/ptoc.pas"); - #else - token::input(dprintf("%s%s", prog_path, - turbo_pascal ? "tptoc.pas" : "ptoc.pas")); diff --git a/lang/ptoc/files/patch-ab b/lang/ptoc/files/patch-ab deleted file mode 100644 index 553e1d8..0000000 --- a/lang/ptoc/files/patch-ab +++ /dev/null @@ -1,246 +0,0 @@ ---- trnod.cxx.orig Sat Oct 21 04:24:34 2000 -+++ trnod.cxx Sat Oct 21 04:45:38 2000 -@@ -460,7 +460,7 @@ - if (language_c) { - if (params) { - char const* format = ""; -- char const* newln = (t_read->tag == TKN_READLN) ? "\\n" : ""; -+ char const* newln = (t_read->tag == TKN_READLN) ? (char *) "\\n" : ""; - expr_node *prm = params->expr; - - l_tkn = params->rpar; -@@ -618,7 +618,7 @@ - write_param_node *prm = params->vals; - - l_tkn = params->rpar; -- char const* newln = (t_write->tag == TKN_WRITELN) ? "\\n" : ""; -+ char const* newln = (t_write->tag == TKN_WRITELN) ? (char *) "\\n" : ""; - write_format = NULL; - if (prm->type->tag == tp_file) { - prm->translate(ctx_value); -@@ -1000,7 +1000,7 @@ - from->translate(ctx_value); - from->l_tkn->append(";"); - t_to->set_trans(t_ident->out_text); -- t_to->append(t_to->name->tag == TKN_TO ? " <=" : " >="); -+ t_to->append(t_to->name->tag == TKN_TO ? (char *) " <=" : (char *) " >="); - till->translate(ctx_value); - till->l_tkn->append(";"); - if (t_to->name->tag == TKN_TO) { -@@ -1069,11 +1069,11 @@ - bool body_is_block = - body != NULL && body->is_compound() && body->next == NULL; - -- t_repeat->set_trans(body_is_block ? "do" : "do {"); -+ t_repeat->set_trans(body_is_block ? (char *) "do" : (char *) "do {"); - for (stmt_node *stmt = body; stmt != NULL; stmt = stmt->next) { - stmt->translate(ctx); - } -- t_until->set_trans(body_is_block ? "while" : "} while"); -+ t_until->set_trans(body_is_block ? (char *) "while" : (char *) "} while"); - expr->translate(ctx_condition); - f_tkn = t_repeat; - l_tkn = expr->l_tkn; -@@ -1264,7 +1264,7 @@ - - } else if (var->type->tag == tp_proc) { - if (turbo_pascal && tkn->name->tag == TKN_HALT) { -- tkn->set_trans(ctx == ctx_apply ? "exit" : "exit(0)"); -+ tkn->set_trans(ctx == ctx_apply ? (char *) "exit" : (char *) "exit(0)"); - return; - } - proc_tp* prc = (proc_tp*)var->type->get_typedef(); -@@ -1286,8 +1286,8 @@ - if (prm->var->type->tag == tp_file - || prm->var->type->tag == tp_text) - { -- t = t->append(strcmp(var->in_name->text, "page") -- ? "input" : "output"); -+ t = t->append(strcmp(var->in_name->text, (char *) "page") -+ ? (char *) "input" : (char *) "output"); - } else { - t = t->append("0"); - } -@@ -1334,7 +1334,7 @@ - - if (with != NULL) { - f_tkn = tkn->prepend(language_c && with->tag == symbol::s_ref -- ? "->" : ".") -+ ? (char *) "->" : (char *) ".") - ->prepend(with->out_name->text); - } - -@@ -1750,7 +1750,7 @@ - t_lbr->set_trans("set::of("); - } - } -- t_rbr->set_trans(items ? ", eos)" : "eos)"); -+ t_rbr->set_trans(items ? (char *) ", eos)" : (char *) "eos)"); - } - - idx_expr_node::idx_expr_node(expr_node* arr, token* t_lbr, expr_node* indices, -@@ -2181,7 +2181,7 @@ - case tn_and: - op->set_trans(((left->type && left->type->tag != tp_bool) || - (right->type && right->type->tag != tp_bool) || nological) -- ? "&" : "&&"); -+ ? (char *) "&" : (char *) "&&"); - if (parent_tag != tn_group && parent_tag != tn_and) { - f_tkn = left->f_tkn->prepend("("); - l_tkn = right->l_tkn->append(")"); -@@ -2201,12 +2201,12 @@ - if (parent_tag != tn_group) { - f_tkn = left->f_tkn->prepend(left->type && - left->type->get_typedef() == &longint_type -- ? "((unsigned long)" : "((cardinal)"); -+ ? (char *) "((unsigned long)" : (char *) "((cardinal)"); - l_tkn = right->l_tkn->append(")"); - } else { - f_tkn = left->f_tkn->prepend(left->type && - left->type->get_typedef() == &longint_type -- ? "(unsigned long)" : "(cardinal)"); -+ ? (char *) "(unsigned long)" : (char *) "(cardinal)"); - } - op->set_trans(">>"); - break; -@@ -2224,14 +2224,14 @@ - } - op->set_trans(((left->type && left->type->tag != tp_bool) || - (right->type && right->type->tag != tp_bool) || -- nological) ? "|" : "||"); -+ nological) ? (char *) "|" : (char *) "||"); - break; - case tn_in: - token::disable(left->l_tkn->next, right->f_tkn->prev); - if (language_c) { - f_tkn = left->f_tkn->prepend( - short_set && ((set_tp*)right->type)->is_short_set() -- ? "INSET(" : "inset("); -+ ? (char *) "INSET(" : (char *) "inset("); - left->l_tkn->append(", "); - l_tkn = right->l_tkn->append(")"); - } else { -@@ -2253,14 +2253,14 @@ - if (language_c) { - if (short_set && ((set_tp*)type)->is_short_set()) { - f_tkn = left->f_tkn->prepend(tag == tn_add -- ? "JOIN(" : tag == tn_sub -- ? "DIFFERENCE(" -- : "INTERSECT("); -+ ? (char *) "JOIN(" : tag == tn_sub -+ ? (char *) "DIFFERENCE(" -+ : (char *) "INTERSECT("); - } else { - f_tkn = left->f_tkn->prepend(tag == tn_add -- ? "join(" : tag == tn_sub -- ? "difference(" -- : "intersect("); -+ ? (char *) "join(" : tag == tn_sub -+ ? (char *) "difference(" -+ : (char *) "intersect("); - } - l_tkn = right->l_tkn->append(")"); - token::disable(left->l_tkn->next, right->f_tkn->prev); -@@ -2298,9 +2298,9 @@ - } - else if (ltype->tag == tp_enum || rtype->size <= ltype->size) - { -- right->f_tkn->prepend(rtype->size == 1 ? "(unsigned char)": -- rtype->size == 2 ? "(unsigned short)" -- : "(unsigned)"); -+ right->f_tkn->prepend(rtype->size == 1 ? (char *) "(unsigned char)": -+ rtype->size == 2 ? (char *) "(unsigned short)" -+ : (char *) "(unsigned)"); - } - } else if (((rtype->tag == tp_range && rtype->min_value >= 0) || - rtype->tag == tp_enum) && -@@ -2313,9 +2313,9 @@ - else if (rtype->tag == tp_enum || ltype->size <= rtype->size) - { - f_tkn = left->f_tkn->prepend( -- ltype->size == 1 ? "(unsigned char)": -- ltype->size == 2 ? "(unsigned short)" -- : "(unsigned)"); -+ ltype->size == 1 ? (char *) "(unsigned char)": -+ ltype->size == 2 ? (char *) "(unsigned short)" -+ : (char *) "(unsigned)"); - } - } - } -@@ -2439,7 +2439,7 @@ - op->set_trans(CMP_OP(tag)); - break; - case tn_not: -- op->set_trans(right->type && right->type->tag == tp_bool ? "!" : "~"); -+ op->set_trans(right->type && right->type->tag == tp_bool ? (char *) "!" : (char *) "~"); - break; - } - if ((unsigned(tag - tn_add) <= tn_div - tn_add) && type && type->tag == tp_longint) -@@ -3406,7 +3406,7 @@ - } - } - } else { -- f_tkn = ident->prepend(language_c ? "static const " : "const "); -+ f_tkn = ident->prepend(language_c ? (char *) "static const " : (char *) "const "); - enumeration = NULL; - if (constant->type->tag == tp_string) { - ident->prepend("char "); -@@ -3749,16 +3749,16 @@ - t = tkn->ident->copy(eltd->f_tkn, eltd->l_tkn); - if (tp->tag == tp_dynarray) { - tkn->ident->prepend(ctx == ctx_varpar -- ? "* " : " const* "); -+ ? (char *) "* " : (char *) " const* "); - } else { - tkn->ident->prepend(ctx == ctx_varpar -- ? " " : " const "); -+ ? (char *) " " : (char *) " const "); - tkn->ident->next->copy(tpd->f_tkn, tpd->l_tkn); - } - } else { - t = tkn->ident->prepend(ctx == ctx_varpar -- ? tp->tag == tp_array || tp->tag == tp_string ? " " : "* " -- : tp->tag == tp_array ? " const " : " ")-> -+ ? tp->tag == tp_array || tp->tag == tp_string ? (char *) " " : (char *) "* " -+ : tp->tag == tp_array ? (char *) " const " : (char *) " ")-> - copy(tpd->f_tkn, tpd->l_tkn); - } - } else { -@@ -3823,7 +3823,7 @@ - // initialize file structure - tkn->ident->append( - (tp->tag == tp_file || tp->tag == tp_text) -- ? " = VOID_FILE" : " = {0}"); -+ ? (char *) " = VOID_FILE" : (char *) " = {0}"); - } - if (tkn->var->flags & symbol::f_static) { - is_static = TRUE; -@@ -3854,8 +3854,8 @@ - { - f_tkn = f_tkn->prepend("EXTERN "); - } else if (scope != NULL) { -- f_tkn = f_tkn->prepend(scope->tag == TKN_EXTERNAL ? "extern " : -- scope->tag == TKN_STATIC ? "static " : ""); -+ f_tkn = f_tkn->prepend(scope->tag == TKN_EXTERNAL ? (char *) "extern " : -+ scope->tag == TKN_STATIC ? (char *) "static " : (char *) ""); - } - force_semicolon(); - if (is_static) { -@@ -4215,7 +4215,7 @@ - if (qualifiers) { - if (is_external) { - f_tkn = f_tkn->prepend(type->is_extern_c && !language_c -- ? "extern \"C\" " : "extern "); -+ ? (char *) "extern \"C\" " : (char *) "extern "); - } else if (is_static) { - f_tkn = f_tkn->prepend("static "); - } else if (is_virtual) { -@@ -4832,7 +4832,7 @@ - t_array->set_trans("conf_matrix"); - } else { - t_array->set_trans(indices->next == NULL -- ? "conf_array" : "conf_matrix"); -+ ? (char *) "conf_array" : (char *) "conf_matrix"); - } - token::disable(t_array->next, eltd->f_tkn->prev); - eltd->f_tkn->prepend("<"); diff --git a/lang/ptoc/files/patch-ac b/lang/ptoc/files/patch-ac deleted file mode 100644 index e0cc7c3..0000000 --- a/lang/ptoc/files/patch-ac +++ /dev/null @@ -1,11 +0,0 @@ ---- tpexpr.cxx.old Sat Feb 12 17:24:29 2000 -+++ tpexpr.cxx Sat Feb 12 17:24:41 2000 -@@ -170,7 +170,7 @@ - if (!e->is_parameter() && (base == 0 || base == 1)) { - t->prepend(dprintf("items(%.*s", n, "****************")); - t->copy(e->f_tkn, e->l_tkn); -- t->prepend(base == 0 ? ")-1" : ")"); -+ t->prepend(base == 0 ? (char *) ")-1" : (char *) ")"); - } else { - if (high == NULL) { - assert(high_expr != NULL); diff --git a/lang/ptoc/files/patch-ad b/lang/ptoc/files/patch-ad deleted file mode 100644 index 3ec01eae..0000000 --- a/lang/ptoc/files/patch-ad +++ /dev/null @@ -1,11 +0,0 @@ ---- makefile.bsd.orig Sat Nov 7 10:10:50 1998 -+++ makefile.bsd Sat Oct 21 05:54:55 2000 -@@ -131,7 +131,7 @@ - $(LD) $(LDFLAGS) -o $@ $(OBJS) - - libXbgi.a: -- (cd Xbgi; make) -+ (cd Xbgi; $(MAKE) CC="$(CC)" CFLAGS="$(CFLAGS)" X11BASE="$(X11BASE)") - - all : $(BINS) $(LIBS) - diff --git a/lang/ptoc/files/patch-ae b/lang/ptoc/files/patch-ae deleted file mode 100644 index 38422e5..0000000 --- a/lang/ptoc/files/patch-ae +++ /dev/null @@ -1,11 +0,0 @@ ---- parser.y.orig Sat Nov 7 10:42:00 1998 -+++ parser.y Sat Oct 21 04:59:01 2000 -@@ -5,8 +5,6 @@ - #include - #ifdef __DECCXX - #include --#else --#include - #endif - - #include "nmtbl.h" diff --git a/lang/ptoc/files/patch-main.cxx b/lang/ptoc/files/patch-main.cxx new file mode 100644 index 0000000..617a95e --- /dev/null +++ b/lang/ptoc/files/patch-main.cxx @@ -0,0 +1,13 @@ +--- main.cxx.orig Thu Sep 23 23:35:38 1999 ++++ main.cxx Sat Oct 21 04:11:00 2000 +@@ -326,8 +326,8 @@ + compile_system_library = TRUE; + #ifdef PREFIX + token::input(turbo_pascal +- ? PREFIX "/share/ptoc/tptoc.pas" +- : PREFIX "/share/ptoc/ptoc.pas")); ++ ? (char *) PREFIX "/share/ptoc/tptoc.pas" ++ : (char *) PREFIX "/share/ptoc/ptoc.pas"); + #else + token::input(dprintf("%s%s", prog_path, + turbo_pascal ? "tptoc.pas" : "ptoc.pas")); diff --git a/lang/ptoc/files/patch-makefile.bsd b/lang/ptoc/files/patch-makefile.bsd new file mode 100644 index 0000000..3ec01eae --- /dev/null +++ b/lang/ptoc/files/patch-makefile.bsd @@ -0,0 +1,11 @@ +--- makefile.bsd.orig Sat Nov 7 10:10:50 1998 ++++ makefile.bsd Sat Oct 21 05:54:55 2000 +@@ -131,7 +131,7 @@ + $(LD) $(LDFLAGS) -o $@ $(OBJS) + + libXbgi.a: +- (cd Xbgi; make) ++ (cd Xbgi; $(MAKE) CC="$(CC)" CFLAGS="$(CFLAGS)" X11BASE="$(X11BASE)") + + all : $(BINS) $(LIBS) + diff --git a/lang/ptoc/files/patch-parser.y b/lang/ptoc/files/patch-parser.y index 1d3f214..b895a2d 100644 --- a/lang/ptoc/files/patch-parser.y +++ b/lang/ptoc/files/patch-parser.y @@ -1,21 +1,25 @@ ---- parser.y.orig Mon Dec 2 11:28:18 2002 -+++ parser.y Mon Dec 2 11:34:32 2002 -@@ -84,7 +84,6 @@ - IMPLEMENTATION - INTERFACE - LABEL -- LET - LOOPHOLE - OBJECT - OF -@@ -283,20 +282,24 @@ +--- parser.y.orig Mon Mar 26 10:02:40 2001 ++++ parser.y Wed Sep 17 13:34:05 2003 +@@ -3,11 +3,6 @@ + #include + #include + #include +-#if defined(__DECCXX) || defined(__GNUC__) +-#include +-#else +-#include +-#endif + + #include "nmtbl.h" + #include "token.h" +@@ -285,23 +280,27 @@ $2->attrib(ctx_program); $2->translate(ctx_program); } +; input_file: program | module | unit -+ ; ++ ; program: block '.' { $$ = new program_node(NULL, NULL, NULL, NULL, $1, $2); } | PROGRAM IDENT prog_param_list ';' block '.' @@ -24,32 +28,36 @@ } +; - module: decl_part_list { $$ = new module_node(NULL, NULL, NULL, NULL, $1); } - | PROGRAM IDENT prog_param_list ';' decl_part_list + progend: { $$ = NULL; } | '.' ++; + + module: decl_part_list { $$ = new module_node(NULL, NULL, NULL, NULL, $1, NULL); } + | PROGRAM IDENT prog_param_list ';' decl_part_list progend { - $$ = new module_node($1, $2, $3, $4, $5); + $$ = new module_node($1, $2, $3, $4, $5, $6); } +- +; - /* Turbo Pascal specific */ -@@ -309,38 +312,48 @@ + +@@ -313,38 +312,46 @@ { $$ = new unit_node(NULL, NULL, NULL, $1, $2, $3, $4, NULL, $5, $6); } | INTERFACE unit_decl_list IMPLEMENTATION unit_def_list compoundst '.' { $$ = new unit_node(NULL, NULL, NULL, $1, $2, $3, $4, $5, NULL, $6); } -+ ; ++ ; unit_def_list: decl_part_list -+ ; - +- ++ ; prog_param_list: { $$ = NULL; } | '(' ident_list ')' { $$ = new import_list_node($1, $2, $3); } -+ ; ++ ; ident_list: IDENT ',' ident_list { $$ = new token_list($1, $3); } | IDENT { $$ = new token_list($1); } -+ ; ++ ; block: decl_part_list compoundst { @@ -59,126 +67,134 @@ decl_part_list: { $$ = NULL; } | decl_part decl_part_list { $1->next = $2; $$ = $1; } -+ ; ++; decl_part: label_decl_part | const_def_part | type_def_part | var_decl_part | proc_def | proc_fwd_decl | unit_spec -+ ; ++; unit_spec: UNIT IDENT ';' INTERFACE unit_decl_list UNIT_END { $$ = new unit_spec_node($1, $2, $3, $4, $5); } | INTERFACE unit_decl_list UNIT_END { $$ = new unit_spec_node(NULL, NULL, NULL, $1, $2); } -+ ; - +- ++; unit_decl_list: { $$ = NULL; } | unit_decl unit_decl_list { $1->next = $2; $$ = $1; } -+ ; ++; unit_decl: label_decl_part | const_def_part | type_def_part | var_decl_part | proc_spec | proc_fwd_decl | unit_spec -+ ; ++; /* //============================================================================= -@@ -397,15 +410,20 @@ +@@ -401,15 +408,20 @@ | ICONST ':' statement { $$ = new label_node($1, $2, $3); } | IDENT ':' statement { $$ = new label_node($1, $2, $3); } | compoundst { $$ = $1; } -+ ; ++; compoundst: BEGIN sequence END { $$ = new compound_node($1, $2, $3); } -+ ; ++; sequence: statement | statement ';' sequence { $1->next = $3; $$ = $1; } -+ ; ++; actual_params: { $$ = NULL; } | expr_group { $$ = $1; } -+ ; ++; write_params: { $$ = NULL; } | '(' write_list ')' { $$ = new write_list_node($1, $2, $3); } -+ ; ++; case_list: case_items | case_items otherwise sequence -@@ -419,20 +437,26 @@ +@@ -423,20 +435,26 @@ $$ = new case_node(NULL, $2, $3); } } -+ ; ++; otherwise: OTHERWISE | ELSE /* Turbo Pascal */ -+ ; ++; case_items: { $$ = NULL; } | case_item | case_item ';' case_items { $1->next = $3; $$ = $1; } -+ ; ++; case_item: case_elem_list ':' statement { $$ = new case_node($1, $2, $3); } -+ ; ++; case_elem_list: case_elem | case_elem ',' case_elem_list { $1->next = $3; $$ = $1; } -+ ; ++; case_elem: expr { $$ = $1; } | expr DOTS expr { $$ = new case_range_node($1, $2, $3); } -+ ; ++; /* //============================================================================= -@@ -488,6 +512,7 @@ +@@ -485,6 +503,7 @@ + | expr OR expr { $$ = new op_node(tn_or, $1, $2, $3); } + | expr XOR expr { $$ = new op_node(tn_xor, $1, $2, $3); } + ++ + | expr GT expr { $$ = new op_node(tn_gt, $1, $2, $3); } + | expr LT expr { $$ = new op_node(tn_lt, $1, $2, $3); } + | expr LE expr { $$ = new op_node(tn_le, $1, $2, $3); } +@@ -492,6 +511,7 @@ | expr EQ expr { $$ = new op_node(tn_eq, $1, $2, $3); } | expr NE expr { $$ = new op_node(tn_ne, $1, $2, $3); } | expr IN expr { $$ = new op_node(tn_in, $1, $2, $3); } -+ ; ++; simple_expr: primary | PLUS simple_expr %prec UPLUS { -@@ -498,6 +523,7 @@ +@@ -502,6 +522,7 @@ { $$ = new op_node(tn_not, NULL, $1, $2); } | '@' primary { $$ = new address_node($1, $2); } | AND primary %prec ADDRESS { $$ = new address_node($1, $2); } -+ ; ++; primary: constant | '(' expr_list ')' { $$ = new expr_group_node($1, $2, $3); } -@@ -506,6 +532,7 @@ +@@ -510,6 +531,7 @@ | primary '^' { $$ = new deref_expr_node($1, $2); } | primary '[' expr_list ']' { $$ = new idx_expr_node($1, $2, $3, $4); } | LOOPHOLE '(' type ',' expr ')' { $$ = new loophole_node($1, $2, $3, $4, $5, $6); } -+ ; ++; constant: record_constant | ICONST { $$ = new integer_node($1); } -@@ -513,40 +540,52 @@ +@@ -517,41 +539,49 @@ | SCONST { $$ = new string_node($1); } | '[' set_elem_list ']' { $$ = new set_node($1, $2, $3); } | IDENT { $$ = new atom_expr_node($1); } -+ ; ++; set_elem_list: { $$ = NULL; } | set_elem | set_elem ',' set_elem_list { $1->next = $3; $$ = $1; } -+ ; ++; set_elem: expr { $$ = new set_elem_node($1); } | expr DOTS expr { $$ = new set_range_node($1, $2, $3); } -+ ; ++; expr_list: expr | expr ',' expr_list { $1->next = $3; $$ = $1; } -+ ; ++; act_param_list: act_param | act_param ',' act_param_list { $1->next = $3; $$ = $1; } -+ ; ++; act_param: expr | { $$ = new skipped_node(curr_token->prev_relevant()); } -+ ; - +- ++; record_constant: '(' field_init_list ')' { $$ = new record_constant_node($1, $2, $3); @@ -187,45 +203,46 @@ field_init_list: field_init_item { $$ = $1; } | field_init_item ';' field_init_list { $1->next = $3; $$ = $1; } -+ ; ++; field_init_item: IDENT ':' expr { $$ = new field_init_node($1, $2, $3); } -+ ; - +- ++; expr_group: '(' expr_list ')' { $$ = new expr_group_node($1, $2, $3); } -+ ; - +- ++; write_list: write_param | write_param ',' write_list { $1->next = $3; $$ = $1; } -+ ; ++; write_param: expr { $$ = new write_param_node($1); } | expr ':' expr { $$ = new write_param_node($1, $2, $3); } | expr ':' expr ':' expr { $$ = new write_param_node($1, $2, $3, $4, $5); } -+ ; - +- ++; /* -@@ -590,31 +629,40 @@ + //============================================================================= +@@ -594,31 +624,40 @@ label_decl_part: LABEL label_list ';' { $$ = new label_decl_part_node($1, $2, $3); } -+ ; ++; label_list: ICONST { $$ = new token_list($1); } | ICONST ',' label_list { $$ = new token_list($1, $3); } | IDENT { $$ = new token_list($1); } | IDENT ',' label_list { $$ = new token_list($1, $3); } -+ ; ++; const_def_part: CONST const_def_list { $$ = new const_def_part_node($1, $2); } -+ ; ++; const_def_list: { $$ = NULL; } | const_def ';' const_def_list { $1->next = $3; $$ = $1; } -+ ; ++; const_def: IDENT EQ expr { $$ = new const_def_node($1, $2, $3); } | IDENT ':' const_type EQ expr { $$ = new typed_const_def_node($1, $2, $3, $4, $5); } @@ -233,205 +250,206 @@ type_def_part: TYPE type_def_list { $$ = new type_def_part_node($1, $2); } -+ ; ++; type_def_list: { $$ = NULL; } | type_def ';' type_def_list { $1->next = $3; $$ = $1; } -+ ; ++; type_def: IDENT EQ type { $$ = new type_def_node($1, $2, $3); } -+ ; ++; var_decl_part: VAR var_decl_list { $$ = new var_decl_part_node($1, $2); } -+ ; ++; var_decl_list: { $$ = NULL; } | var_decl -@@ -630,16 +678,19 @@ +@@ -634,29 +673,33 @@ $1->next = $5; $$ = $1; } | var_decl ';' var_decl_list { $1->next = $3; $$ = $1; } -+ ; ++; var_decl: ident_list ':' type { $$ = new var_decl_node($1, $2, $3); } | IDENT ORIGIN expr ':' simple_type { $$ = (var_decl_node*)new var_origin_decl_node($1, $2, $3, $4, $5); } -+ ; ++; proc_decl: PROCEDURE IDENT formal_params { $$ = new proc_decl_node($1, $2, $3); } | FUNCTION IDENT formal_params ':' type { $$ = new proc_decl_node($1, $2, $3, $4, $5); } -+ ; - +- ++; proc_fwd_decl: -@@ -647,12 +698,14 @@ + PROCEDURE IDENT formal_params ';' qualifiers ';' { $$ = new proc_fwd_decl_node($1, $2, $3, NULL, NULL, $4, $5, $6); } | FUNCTION IDENT formal_params ':' type ';' qualifiers ';' { $$ = new proc_fwd_decl_node($1, $2, $3, $4, $5, $6, $7, $8); } -+ ; ++; proc_spec: PROCEDURE IDENT formal_params ';' { $$ = new proc_fwd_decl_node($1, $2, $3, NULL, NULL, $4); } | FUNCTION IDENT formal_params ':' type ';' { $$ = new proc_fwd_decl_node($1, $2, $3, $4, $5, $6); } -+ ; ++; proc_def: PROCEDURE IDENT formal_params ';' block ';' -@@ -671,26 +724,33 @@ +@@ -675,135 +718,166 @@ { $$ = new proc_def_node($1, NULL, NULL, $2, $3, $4, $5, $6, $7, $8, $9, $10); } | FUNCTION IDENT ';' FAR ';' block ';' { $$ = new proc_def_node($1, NULL, NULL, $2, NULL, NULL, NULL, $3, $4, $5, $6, $7); } -+ ; ++; qualifiers: IDENT qualifiers { $$ = new token_list($1, $2); } | SCOPE qualifiers { $$ = new token_list($1, $2); } | IDENT { $$ = new token_list($1); } | SCOPE { $$ = new token_list($1); } -+ ; - +- ++; formal_params: { $$ = NULL; } | '(' formal_param_list ')' { $$ = new param_list_node($1, $2, $3); } -+ ; ++; formal_param_list: formal_param | formal_param ';' formal_param_list { $1->next = $3; $$ = $1; } -+ ; ++; formal_param: VAR param_decl { $$ = new var_decl_part_node($1, $2); } | param_decl { $$ = $1; } | proc_decl -+ ; ++; param_decl: ident_list ':' param_type { $$ = new var_decl_node($1, $2, $3); } | ident_list { $$ = new var_decl_node($1, NULL, NULL); } -+ ; ++; param_type: simple_type | conformant_array_type -+ ; - - +- +- ++; -@@ -698,81 +758,106 @@ + /* Types definition */ type: simple_type | array_type | record_type | object_type | set_type | file_type | pointer_type | enum_type | range_type | string_type | fptr_type -+ ; ++; const_type: simple_type | const_array_type | record_type | const_set_type | string_type -+ ; ++; fptr_type: FUNCTION formal_params ':' type { $$ = new fptr_tpd_node($1, $2, $3, $4); } | PROCEDURE formal_params { $$ = new fptr_tpd_node($1, $2); } -+ ; ++; string_type: STRING '[' expr ']' { $$ = new varying_tpd_node($1, $2, $3, $4); } -+ ; ++; simple_type: IDENT { $$ = new simple_tpd_node($1); } | STRING { $$ = new string_tpd_node($1); } -+ ; ++; array_type: packed ARRAY '[' indices ']' OF type { $$ = new array_tpd_node($1, $2, $3, $4, $5, $6, $7); } -+ ; ++; const_array_type: packed ARRAY '[' indices ']' OF const_type { $$ = new array_tpd_node($1, $2, $3, $4, $5, $6, $7); } -+ ; ++; conformant_array_type: packed ARRAY '[' conformant_indices ']' OF simple_type { $$ = new array_tpd_node($1, $2, $3, $4, $5, $6, $7); } | packed ARRAY '[' conformant_indices ']' OF conformant_array_type { $$ = new array_tpd_node($1, $2, $3, $4, $5, $6, $7); } -+ ; ++; enum_type: '(' ident_list ')' { $$ = new enum_tpd_node($1, $2, $3); } -+ ; ++; range_type: expr DOTS expr { $$ = new range_tpd_node($1, $2, $3); } -+ ; ++; pointer_type: '^' type { $$ = new ptr_tpd_node($1, $2); } -+ ; ++; set_type: packed SET OF type { $$ = new set_tpd_node($1, $2, $3, $4); } -+ ; ++; const_set_type: packed SET OF const_type { $$ = new set_tpd_node($1, $2, $3, $4); } -+ ; ++; record_type: packed RECORD field_list END { $$ = new record_tpd_node($1, $2, $3, $4); } -+ ; ++; object_type: OBJECT object_components END { $$ = new object_tpd_node($1, NULL, NULL, NULL, $2, $3); } | OBJECT '(' IDENT ')' object_components END { $$ = new object_tpd_node($1, $2, $3, $4, $5, $6); } -+ ; ++; object_components: object_fields object_methods { $1->next = $2; $$ = $1; } | object_methods | object_fields -+ ; ++; object_fields: field_decl_list { $$ = new var_decl_part_node(NULL, $1); } -+ ; ++; field_decl_list: var_decl | var_decl ';' { $$ = $1; } | var_decl ';' field_decl_list { $1->next = $3; $$ = $1; } -+ ; ++; object_methods: proc_fwd_decl | proc_spec | proc_fwd_decl object_methods { $1->next = $2; $$ = $1; } | proc_spec object_methods { $1->next = $2; $$ = $1; } -+ ; - - +- +- ++; file_type: packed FIL OF type { $$ = new file_tpd_node($1, $2, $3, $4); } -+ ; ++; - packed: { $$ = NULL; } | PACKED -+ ; +-packed: { $$ = NULL; } | PACKED ++packed: { $$ = NULL; } | PACKED ++; conformant_indices: conformant_index | conformant_index ';' conformant_indices { $1->next = $3; $$ = $1; } -+ ; ++; conformant_index: IDENT DOTS IDENT ':' type { $$ = new conformant_index_node($1, $2, $3, $4, $5); } -+ ; ++; indices: index_spec | index_spec ',' indices { $1->next = $3; $$ = $1; } -+ ; ++; index_spec: simple_type { $$ = new type_index_node($1); } | expr DOTS expr { $$ = new range_index_node($1, $2, $3); } -+ ; - +- ++; field_list: -@@ -780,26 +865,32 @@ + fixed_part variant_part { $$ = new field_list_node($1, $2); } | fixed_part { $$ = new field_list_node($1); } -+ ; ++; fixed_part: var_decl_list -+ ; ++; variant_part: CASE selector OF variant_list { @@ -441,13 +459,13 @@ selector: IDENT ':' type { $$ = new selector_node($1, $2, $3); } | type { $$ = new selector_node(NULL, NULL, $1); } -+ ; - +- ++; variant_list: variant | variant ';' { $$ = $1; } | variant ';' variant_list { $1->next = $3; $$ = $1; } -+ ; ++; variant: expr_list ':' '(' field_list ')' { diff --git a/lang/ptoc/files/patch-tpexpr.cxx b/lang/ptoc/files/patch-tpexpr.cxx new file mode 100644 index 0000000..e0cc7c3 --- /dev/null +++ b/lang/ptoc/files/patch-tpexpr.cxx @@ -0,0 +1,11 @@ +--- tpexpr.cxx.old Sat Feb 12 17:24:29 2000 ++++ tpexpr.cxx Sat Feb 12 17:24:41 2000 +@@ -170,7 +170,7 @@ + if (!e->is_parameter() && (base == 0 || base == 1)) { + t->prepend(dprintf("items(%.*s", n, "****************")); + t->copy(e->f_tkn, e->l_tkn); +- t->prepend(base == 0 ? ")-1" : ")"); ++ t->prepend(base == 0 ? (char *) ")-1" : (char *) ")"); + } else { + if (high == NULL) { + assert(high_expr != NULL); diff --git a/lang/ptoc/files/patch-trnod.cxx b/lang/ptoc/files/patch-trnod.cxx new file mode 100644 index 0000000..553e1d8 --- /dev/null +++ b/lang/ptoc/files/patch-trnod.cxx @@ -0,0 +1,246 @@ +--- trnod.cxx.orig Sat Oct 21 04:24:34 2000 ++++ trnod.cxx Sat Oct 21 04:45:38 2000 +@@ -460,7 +460,7 @@ + if (language_c) { + if (params) { + char const* format = ""; +- char const* newln = (t_read->tag == TKN_READLN) ? "\\n" : ""; ++ char const* newln = (t_read->tag == TKN_READLN) ? (char *) "\\n" : ""; + expr_node *prm = params->expr; + + l_tkn = params->rpar; +@@ -618,7 +618,7 @@ + write_param_node *prm = params->vals; + + l_tkn = params->rpar; +- char const* newln = (t_write->tag == TKN_WRITELN) ? "\\n" : ""; ++ char const* newln = (t_write->tag == TKN_WRITELN) ? (char *) "\\n" : ""; + write_format = NULL; + if (prm->type->tag == tp_file) { + prm->translate(ctx_value); +@@ -1000,7 +1000,7 @@ + from->translate(ctx_value); + from->l_tkn->append(";"); + t_to->set_trans(t_ident->out_text); +- t_to->append(t_to->name->tag == TKN_TO ? " <=" : " >="); ++ t_to->append(t_to->name->tag == TKN_TO ? (char *) " <=" : (char *) " >="); + till->translate(ctx_value); + till->l_tkn->append(";"); + if (t_to->name->tag == TKN_TO) { +@@ -1069,11 +1069,11 @@ + bool body_is_block = + body != NULL && body->is_compound() && body->next == NULL; + +- t_repeat->set_trans(body_is_block ? "do" : "do {"); ++ t_repeat->set_trans(body_is_block ? (char *) "do" : (char *) "do {"); + for (stmt_node *stmt = body; stmt != NULL; stmt = stmt->next) { + stmt->translate(ctx); + } +- t_until->set_trans(body_is_block ? "while" : "} while"); ++ t_until->set_trans(body_is_block ? (char *) "while" : (char *) "} while"); + expr->translate(ctx_condition); + f_tkn = t_repeat; + l_tkn = expr->l_tkn; +@@ -1264,7 +1264,7 @@ + + } else if (var->type->tag == tp_proc) { + if (turbo_pascal && tkn->name->tag == TKN_HALT) { +- tkn->set_trans(ctx == ctx_apply ? "exit" : "exit(0)"); ++ tkn->set_trans(ctx == ctx_apply ? (char *) "exit" : (char *) "exit(0)"); + return; + } + proc_tp* prc = (proc_tp*)var->type->get_typedef(); +@@ -1286,8 +1286,8 @@ + if (prm->var->type->tag == tp_file + || prm->var->type->tag == tp_text) + { +- t = t->append(strcmp(var->in_name->text, "page") +- ? "input" : "output"); ++ t = t->append(strcmp(var->in_name->text, (char *) "page") ++ ? (char *) "input" : (char *) "output"); + } else { + t = t->append("0"); + } +@@ -1334,7 +1334,7 @@ + + if (with != NULL) { + f_tkn = tkn->prepend(language_c && with->tag == symbol::s_ref +- ? "->" : ".") ++ ? (char *) "->" : (char *) ".") + ->prepend(with->out_name->text); + } + +@@ -1750,7 +1750,7 @@ + t_lbr->set_trans("set::of("); + } + } +- t_rbr->set_trans(items ? ", eos)" : "eos)"); ++ t_rbr->set_trans(items ? (char *) ", eos)" : (char *) "eos)"); + } + + idx_expr_node::idx_expr_node(expr_node* arr, token* t_lbr, expr_node* indices, +@@ -2181,7 +2181,7 @@ + case tn_and: + op->set_trans(((left->type && left->type->tag != tp_bool) || + (right->type && right->type->tag != tp_bool) || nological) +- ? "&" : "&&"); ++ ? (char *) "&" : (char *) "&&"); + if (parent_tag != tn_group && parent_tag != tn_and) { + f_tkn = left->f_tkn->prepend("("); + l_tkn = right->l_tkn->append(")"); +@@ -2201,12 +2201,12 @@ + if (parent_tag != tn_group) { + f_tkn = left->f_tkn->prepend(left->type && + left->type->get_typedef() == &longint_type +- ? "((unsigned long)" : "((cardinal)"); ++ ? (char *) "((unsigned long)" : (char *) "((cardinal)"); + l_tkn = right->l_tkn->append(")"); + } else { + f_tkn = left->f_tkn->prepend(left->type && + left->type->get_typedef() == &longint_type +- ? "(unsigned long)" : "(cardinal)"); ++ ? (char *) "(unsigned long)" : (char *) "(cardinal)"); + } + op->set_trans(">>"); + break; +@@ -2224,14 +2224,14 @@ + } + op->set_trans(((left->type && left->type->tag != tp_bool) || + (right->type && right->type->tag != tp_bool) || +- nological) ? "|" : "||"); ++ nological) ? (char *) "|" : (char *) "||"); + break; + case tn_in: + token::disable(left->l_tkn->next, right->f_tkn->prev); + if (language_c) { + f_tkn = left->f_tkn->prepend( + short_set && ((set_tp*)right->type)->is_short_set() +- ? "INSET(" : "inset("); ++ ? (char *) "INSET(" : (char *) "inset("); + left->l_tkn->append(", "); + l_tkn = right->l_tkn->append(")"); + } else { +@@ -2253,14 +2253,14 @@ + if (language_c) { + if (short_set && ((set_tp*)type)->is_short_set()) { + f_tkn = left->f_tkn->prepend(tag == tn_add +- ? "JOIN(" : tag == tn_sub +- ? "DIFFERENCE(" +- : "INTERSECT("); ++ ? (char *) "JOIN(" : tag == tn_sub ++ ? (char *) "DIFFERENCE(" ++ : (char *) "INTERSECT("); + } else { + f_tkn = left->f_tkn->prepend(tag == tn_add +- ? "join(" : tag == tn_sub +- ? "difference(" +- : "intersect("); ++ ? (char *) "join(" : tag == tn_sub ++ ? (char *) "difference(" ++ : (char *) "intersect("); + } + l_tkn = right->l_tkn->append(")"); + token::disable(left->l_tkn->next, right->f_tkn->prev); +@@ -2298,9 +2298,9 @@ + } + else if (ltype->tag == tp_enum || rtype->size <= ltype->size) + { +- right->f_tkn->prepend(rtype->size == 1 ? "(unsigned char)": +- rtype->size == 2 ? "(unsigned short)" +- : "(unsigned)"); ++ right->f_tkn->prepend(rtype->size == 1 ? (char *) "(unsigned char)": ++ rtype->size == 2 ? (char *) "(unsigned short)" ++ : (char *) "(unsigned)"); + } + } else if (((rtype->tag == tp_range && rtype->min_value >= 0) || + rtype->tag == tp_enum) && +@@ -2313,9 +2313,9 @@ + else if (rtype->tag == tp_enum || ltype->size <= rtype->size) + { + f_tkn = left->f_tkn->prepend( +- ltype->size == 1 ? "(unsigned char)": +- ltype->size == 2 ? "(unsigned short)" +- : "(unsigned)"); ++ ltype->size == 1 ? (char *) "(unsigned char)": ++ ltype->size == 2 ? (char *) "(unsigned short)" ++ : (char *) "(unsigned)"); + } + } + } +@@ -2439,7 +2439,7 @@ + op->set_trans(CMP_OP(tag)); + break; + case tn_not: +- op->set_trans(right->type && right->type->tag == tp_bool ? "!" : "~"); ++ op->set_trans(right->type && right->type->tag == tp_bool ? (char *) "!" : (char *) "~"); + break; + } + if ((unsigned(tag - tn_add) <= tn_div - tn_add) && type && type->tag == tp_longint) +@@ -3406,7 +3406,7 @@ + } + } + } else { +- f_tkn = ident->prepend(language_c ? "static const " : "const "); ++ f_tkn = ident->prepend(language_c ? (char *) "static const " : (char *) "const "); + enumeration = NULL; + if (constant->type->tag == tp_string) { + ident->prepend("char "); +@@ -3749,16 +3749,16 @@ + t = tkn->ident->copy(eltd->f_tkn, eltd->l_tkn); + if (tp->tag == tp_dynarray) { + tkn->ident->prepend(ctx == ctx_varpar +- ? "* " : " const* "); ++ ? (char *) "* " : (char *) " const* "); + } else { + tkn->ident->prepend(ctx == ctx_varpar +- ? " " : " const "); ++ ? (char *) " " : (char *) " const "); + tkn->ident->next->copy(tpd->f_tkn, tpd->l_tkn); + } + } else { + t = tkn->ident->prepend(ctx == ctx_varpar +- ? tp->tag == tp_array || tp->tag == tp_string ? " " : "* " +- : tp->tag == tp_array ? " const " : " ")-> ++ ? tp->tag == tp_array || tp->tag == tp_string ? (char *) " " : (char *) "* " ++ : tp->tag == tp_array ? (char *) " const " : (char *) " ")-> + copy(tpd->f_tkn, tpd->l_tkn); + } + } else { +@@ -3823,7 +3823,7 @@ + // initialize file structure + tkn->ident->append( + (tp->tag == tp_file || tp->tag == tp_text) +- ? " = VOID_FILE" : " = {0}"); ++ ? (char *) " = VOID_FILE" : (char *) " = {0}"); + } + if (tkn->var->flags & symbol::f_static) { + is_static = TRUE; +@@ -3854,8 +3854,8 @@ + { + f_tkn = f_tkn->prepend("EXTERN "); + } else if (scope != NULL) { +- f_tkn = f_tkn->prepend(scope->tag == TKN_EXTERNAL ? "extern " : +- scope->tag == TKN_STATIC ? "static " : ""); ++ f_tkn = f_tkn->prepend(scope->tag == TKN_EXTERNAL ? (char *) "extern " : ++ scope->tag == TKN_STATIC ? (char *) "static " : (char *) ""); + } + force_semicolon(); + if (is_static) { +@@ -4215,7 +4215,7 @@ + if (qualifiers) { + if (is_external) { + f_tkn = f_tkn->prepend(type->is_extern_c && !language_c +- ? "extern \"C\" " : "extern "); ++ ? (char *) "extern \"C\" " : (char *) "extern "); + } else if (is_static) { + f_tkn = f_tkn->prepend("static "); + } else if (is_virtual) { +@@ -4832,7 +4832,7 @@ + t_array->set_trans("conf_matrix"); + } else { + t_array->set_trans(indices->next == NULL +- ? "conf_array" : "conf_matrix"); ++ ? (char *) "conf_array" : (char *) "conf_matrix"); + } + token::disable(t_array->next, eltd->f_tkn->prev); + eltd->f_tkn->prepend("<"); diff --git a/lang/ptoc/pkg-descr b/lang/ptoc/pkg-descr index 06e71fa..939763c 100644 --- a/lang/ptoc/pkg-descr +++ b/lang/ptoc/pkg-descr @@ -16,4 +16,4 @@ Also emulation libraries of Borland Graphics Interface (BGI) for X Window System included in this distribution (BGI emulators can be also used without converter for C programs using BGI). -WWW: http://www.ispras.ru/~knizhnik/ +WWW: http://www.garret.ru/~knizhnik/ diff --git a/lang/ptoc/pkg-plist b/lang/ptoc/pkg-plist index 40e630a..bdabdd6 100644 --- a/lang/ptoc/pkg-plist +++ b/lang/ptoc/pkg-plist @@ -9,45 +9,45 @@ include/ptoc/ptoc.h include/ptoc/set.h lib/libXbgi.a lib/libptoc.a -%%PORTDOCS%%share/doc/ptoc/Readme.htm -share/examples/ptoc/arr.pas -share/examples/ptoc/bgidemo.pas -share/examples/ptoc/ccall.pas -share/examples/ptoc/coord.txt -share/examples/ptoc/dos.h -share/examples/ptoc/dos.pas -share/examples/ptoc/func.pas -share/examples/ptoc/hello.pas -share/examples/ptoc/impact.pas -share/examples/ptoc/lister.pas -share/examples/ptoc/makefile.bsd -share/examples/ptoc/nested.pas -share/examples/ptoc/objpas.pas -share/examples/ptoc/polut2.pas -share/examples/ptoc/printer.pas -share/examples/ptoc/q2.txt -share/examples/ptoc/random.txt -share/examples/ptoc/rename.cxx -share/examples/ptoc/rename.pas -share/examples/ptoc/set.pas -share/examples/ptoc/str.pas -share/examples/ptoc/test.c -share/examples/ptoc/test.cxx -share/examples/ptoc/test.pas -share/examples/ptoc/test.txt -share/examples/ptoc/tpascal.pas -share/examples/ptoc/trinor.pas -share/examples/ptoc/vibrkinp.pas -share/examples/ptoc/vibrkinp.txt -share/examples/ptoc/vibrtabl.pas -share/examples/ptoc/war2.pas -share/examples/ptoc/war2.txt -share/examples/ptoc/xy2.txt -share/examples/ptoc/xy2orig.txt -share/ptoc/graph.pas -share/ptoc/ptoc.pas -share/ptoc/tptoc.pas -@dirrm share/examples/ptoc -@dirrm share/ptoc -%%PORTDOCS%%@dirrm share/doc/ptoc +%%PORTDOCS%%%%DOCSDIR%%/Readme.htm +%%EXAMPLESDIR%%/arr.pas +%%EXAMPLESDIR%%/bgidemo.pas +%%EXAMPLESDIR%%/ccall.pas +%%EXAMPLESDIR%%/coord.txt +%%EXAMPLESDIR%%/dos.h +%%EXAMPLESDIR%%/dos.pas +%%EXAMPLESDIR%%/func.pas +%%EXAMPLESDIR%%/hello.pas +%%EXAMPLESDIR%%/impact.pas +%%EXAMPLESDIR%%/lister.pas +%%EXAMPLESDIR%%/makefile.bsd +%%EXAMPLESDIR%%/nested.pas +%%EXAMPLESDIR%%/objpas.pas +%%EXAMPLESDIR%%/polut2.pas +%%EXAMPLESDIR%%/printer.pas +%%EXAMPLESDIR%%/q2.txt +%%EXAMPLESDIR%%/random.txt +%%EXAMPLESDIR%%/rename.cxx +%%EXAMPLESDIR%%/rename.pas +%%EXAMPLESDIR%%/set.pas +%%EXAMPLESDIR%%/str.pas +%%EXAMPLESDIR%%/test.c +%%EXAMPLESDIR%%/test.cxx +%%EXAMPLESDIR%%/test.pas +%%EXAMPLESDIR%%/test.txt +%%EXAMPLESDIR%%/tpascal.pas +%%EXAMPLESDIR%%/trinor.pas +%%EXAMPLESDIR%%/vibrkinp.pas +%%EXAMPLESDIR%%/vibrkinp.txt +%%EXAMPLESDIR%%/vibrtabl.pas +%%EXAMPLESDIR%%/war2.pas +%%EXAMPLESDIR%%/war2.txt +%%EXAMPLESDIR%%/xy2.txt +%%EXAMPLESDIR%%/xy2orig.txt +%%DATADIR%%/graph.pas +%%DATADIR%%/ptoc.pas +%%DATADIR%%/tptoc.pas +@dirrm %%EXAMPLESDIR%% +@dirrm %%DATADIR%% +%%PORTDOCS%%@dirrm %%DOCSDIR%% @dirrm include/ptoc -- cgit v1.1