head	1.6;
access;
symbols
	RELEASE_4_9_0:1.5
	RELEASE_5_1_0:1.5
	RELEASE_4_8_0:1.5
	RELEASE_5_0_0:1.5
	RELEASE_4_7_0:1.5
	RELEASE_4_6_2:1.5
	RELEASE_4_6_1:1.5
	RELEASE_4_6_0:1.5
	RELEASE_5_0_DP1:1.5
	RELEASE_4_5_0:1.5
	RELEASE_4_4_0:1.5
	RELEASE_4_3_0:1.5
	RELEASE_4_2_0:1.5
	RELEASE_4_1_1:1.4
	RELEASE_4_1_0:1.4
	RELEASE_3_5_0:1.4
	RELEASE_4_0_0:1.4
	RELEASE_3_1_0:1.2
	RELEASE_2_2_8:1.2
	RELEASE_3_0_0:1.1.1.1
	RELEASE_2_2_7:1.1.1.1
	ptoc_2_01:1.1.1.1
	ANDY:1.1.1;
locks; strict;
comment	@# @;


1.6
date	2003.09.24.13.32.25;	author osa;	state dead;
branches;
next	1.5;

1.5
date	2000.10.24.16.11.57;	author kevlo;	state Exp;
branches;
next	1.4;

1.4
date	2000.02.12.20.54.54;	author cpiazza;	state Exp;
branches;
next	1.3;

1.3
date	99.02.22.04.02.47;	author steve;	state dead;
branches;
next	1.2;

1.2
date	98.11.09.01.21.42;	author steve;	state Exp;
branches;
next	1.1;

1.1
date	98.03.27.10.51.23;	author tg;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	98.03.27.10.51.23;	author tg;	state Exp;
branches;
next	;


desc
@@


1.6
log
@Update to 3.54.
Utilize ${DOCSDIR} and ${EXAMPLESDIR}.
Use new name schema for patch files.
Fix ${MASTER_SITES} and home page URL.
Take maintainership.
@
text
@--- 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("<");
@


1.5
log
@Upgrade to version 3.50

PR: 22253
Submitted by: MAINTAINER
@
text
@@


1.4
log
@Fix for NEWGCC and add a new MASTER_SITE

Submitted by:	Alexander Langer <alex@@big.endian.de>
@
text
@d1 3
a3 3
--- trnod.cxx.old	Sat Feb 12 17:13:58 2000
+++ trnod.cxx	Sat Feb 12 17:23:33 2000
@@@@ -454,7 +454,7 @@@@
d6 3
a8 3
             char* format = "";
-	    char* newln = (t_read->tag == TKN_READLN) ? "\\n" : "";
+	    char* newln = (t_read->tag == TKN_READLN) ? (char *) "\\n" : (char *) "";
d12 1
a12 1
@@@@ -612,7 +612,7 @@@@
d16 2
a17 2
-	    char* newln = (t_write->tag == TKN_WRITELN) ? "\\n" : "";
+	    char* newln = (t_write->tag == TKN_WRITELN) ? (char *) "\\n" : (char *) "";
d21 1
a21 1
@@@@ -994,7 +994,7 @@@@
d30 1
a30 1
@@@@ -1063,11 +1063,11 @@@@
d44 1
a44 1
@@@@ -1258,7 +1258,7 @@@@
d53 1
a53 1
@@@@ -1280,8 +1280,8 @@@@
d64 1
a64 1
@@@@ -1328,7 +1328,7 @@@@
d73 1
a73 1
@@@@ -1744,7 +1744,7 @@@@
d82 1
a82 1
@@@@ -2173,7 +2173,7 @@@@
d91 1
a91 1
@@@@ -2193,12 +2193,12 @@@@
d101 2
a102 2
-			    ? "(unsigned long)" : "((cardinal)");
+			    ? (char *) "(unsigned long)" : (char *) "((cardinal)");
d106 1
a106 1
@@@@ -2216,14 +2216,14 @@@@
d123 1
a123 1
@@@@ -2245,14 +2245,14 @@@@
d144 1
a144 1
@@@@ -2290,9 +2290,9 @@@@
d157 1
a157 1
@@@@ -2305,9 +2305,9 @@@@
d170 1
a170 1
@@@@ -2431,7 +2431,7 @@@@
d179 1
a179 1
@@@@ -3388,7 +3388,7 @@@@
d188 1
a188 1
@@@@ -3731,16 +3731,16 @@@@
d209 1
a209 1
@@@@ -3805,7 +3805,7 @@@@
d218 1
a218 1
@@@@ -3836,8 +3836,8 @@@@
d229 1
a229 1
@@@@ -4188,7 +4188,7 @@@@
d238 1
a238 1
@@@@ -4801,7 +4801,7 @@@@
@


1.3
log
@Update to version 3.41.

PR:		10074
Submitted by:	maintainer
@
text
@d1 9
a9 11
--- main.h	Wed Jun  3 13:20:28 1998
+++ /home/andy/tmp/wrk/main.h	Wed Oct 28 22:12:08 1998
@@@@ -37,7 +37,11 @@@@
 
 #define CALL_GRAPH_FILE     "call.grp"
 #define RECURSIVE_PROC_FILE "recur.prc"
+#ifdef PREFIX
+#define CONFIG_FILE         PREFIX "/etc/ptoc.cfg"
+#else
 #define CONFIG_FILE         "ptoc.cfg"
+#endif
d11 236
a246 2
 extern bool  use_call_graph;
 extern bool  pio_init;
@


1.2
log
@Update to version 3.34.

PR:		8551
Submitted by:	maintainer
@
text
@@


1.1
log
@Initial revision
@
text
@d1 3
a3 4
--- Xbgi/makefile	Thu Jun 26 14:43:30 1997
+++ /home/andy/tmp/wrk/Xbgi/makefile	Mon Dec  8 17:01:03 1997
@@@@ -44,12 +44,12 @@@@
 LIB = ../libXbgi.a
d5 7
a11 5
 CC = gcc
-CCFLAGS = -O2 -g
+CFLAGS+= -I/usr/X11R6/include
 AR = ar
 ARFLAGS = rc
d13 2
a14 6
 .c.o:
-	$(CC) $(CCFLAGS) -c $<
+	$(CC) $(CFLAGS) -c $<
 
 ../libXbgi.a: $(OBJ)
 	$(AR) $(ARFLAGS) $(LIB) $(OBJ)
@


1.1.1.1
log
@Import of ptoc port. ptoc is another Pascal to C translator. It comes
with an X implementation of the BGI.

PR:		5270
Submitted by:	Andrey Zakhvatov <andy@@icc.surw.chel.su>
@
text
@@
