[BACK]Return to ed.mar CVS log [TXT] [DIR] Up to [Research Unix] / researchv10no / cmd / f2c
File:  [Research Unix] / researchv10no / cmd / f2c / ed.mar
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

defs.h.ed�T�$405d
373d
110d
w
q
exec.c.ed�T�\��689c
		putout(mkexpr(OPASSIGN, vname, q));
.
669,680c
		vname = asg_name(vname->varname);
.
665d
613a
 Namep
asg_name(s1)
 register char *s1;
{
	char buf[VL], *s, *se;
	register Namep vn;
	extern chainp assigned_fmts;

	/* Use Upper-case first letter f�or corresponding format variable */
	buf[0] = *s1 + 'A' - 'a';
	s = buf + 1;
	se = buf + VL;
	while(s < se && (*s = *++s1) != ' ')
		s++;
	vn = mkname(s-buf, buf);
	if (!vn->vis_assigned) {
		vn->vis_assigned = 1;
		vn->vstg = STGAUTO;
		vn->vprocclass� = CLVAR;
		vn->vtype = TYCHAR;
		vn->vleng = ICON(-1);	/* kludge used in list_decls */
		assigned_fmts = mkchain((tagptr) vn, assigned_fmts);
		}
	return vn;
	}

.
w
q
exec.c.ed1�@�$�b768c
	p1put_goto (l2);
.
765,766c
	p1put_if (comp);
	p1put_goto (l1);
.
760c
 int l1, l2;
.
744c
	�p1put_goto (lp);
.
742c
	�p1put_goto (lz);
.
739,740c
	�+p1put_if (mkexpr (OPLT, expr, ICON (0)));
	�p1put_goto (lm);
.
728c
�"exar2(OPGE, expr, lz, lm);
.
726c
�"exar2(OPNE, expr, lm, lz);
.
724c
�uexar2(OPLE, expr, lm, lp);
.
675c
		labelval->labused = 1;
.
657,665c
		if (!cp)
			vname->varxptr.assigned_values =
��mkchain(stno, vname->varxptr.assigned_values);
.
652,654c
		for(cp = vname->varxptr.assigned_values; cp; cp = cp->nextp)
.
643a
		putout(mkexpr(OPASSIGN, p, mkintcon(labelval->stateno)));

.
624,625c
	register chainp cp;
	register ftnint stno;
.
112d
w
q
expr.c.ed�^��II860,862c
			if(np->vtype!=TYSUBR && (k = intrfunct(np->varname)) )
.
w
q
expr.c.ed1XK�c,,2567a
	extern expptr make_int_expr();
.
w
q
format.c.ed���DD1068c
		nice_printf(outfile, "*%s", varstr(VL, np->varname));
.
w
q
format.c.ed1�@�ss1006c
		if (lp->labused) {
.
420,422c
	margin_printf (outfile, "%s:\n", user_label (stateno));
.
417,418d
409d
w
q
format.c.ed2b���51212,1214d
1091c
� extern int define_equivs;
.
w
q
format_d.c.ed2�K�	I
612,613c
	�;k = ((int) (((chainp) prev -> datap) -> datap)) + 1;
.
w
q
init.c.edE�
{ �340d
46a
extern flag debugflag;
extern flag onetripflag;
extern flag shortsubs;		/* Use short subscripts on arrays? */
extern flag shiftcase;
extern flag undeftype;
extern flag checksubs;

extern flag ftn66flag;
extern flag nowarnflag;
extern flag noex$tflag;
extern flag no66flag;

.
w
q
intr.c.ed���	I�627d
138c
"zcos", 	{ INTRSPEC, TYDCOMPLEX, 56 },
.
133c
"zsin", 	{ INTRSPEC, TYDCOMPLEX, 52 },
.
124c
"zlog", 	{ INTRSPEC, TYDCOMPLEX, 46 },
.
118c
"zexp", 	{ INTRSPEC, TYDCOMPLEX, 42 },
.
113c
"zsqrt", 	{ INTRSPEC, TYDCOMPLEX, 38 },
.
84c
"zabs", 	{ IMNTRSPEC, TYDREAL, 13 },
.
35c
"dcmplx", 	{ INTRCONV, TYDCOMPLEX },
.
20d
w
q
io.c.ed�T�0��713,715c
	q->uname_tag = UNAM_NAME;
	q->user.name = asg_name(p->primblock.namep->varname);
.
701a
	extern Namep asg_name();
.
w
q
io.c.ed1�@�
� 835c
�lp->labused = 1;
.
w
q
main.c.ed;|�q	163,166c
�noextflag = no66flag;
.
80,82c
�Af2c_entry ("ev", P_NO_ARGS, P_INT, &define_equivs, NO)
.
23d
w
q
main.c.ed0`����300c
	nice_printf (c_output, "/* %s -- translated by f2c ",
		ftn_files[current_ftn_file]);
.
297a
	if ((c_output = fopen (coutput, "w")) == (FILE *) NULL)
	�<fatal ("main - couldn't open c_output");

.
274,286c
	else
	��fatal ("No input file specified");
	fprintf(diagfile, "%s:\n", ftn_files[current_ftn_file]);
	fflush(stderr);
.
272c
			coutput = c_name(ftn_files[current_ftn_file]);
		if(inilex( copys(ftn_files[current_ftn_file]) ))
			DONE(1);
.
270c
	if (current_ft�n_file < Max_ftn_files && ftn_files[current_ftn_file]) {
.
261c
	current_ftn_file = k - 1;
.
245c
	ftn_files = (char **)malloc(argc*sizeof(char *));
.
234c
	char *malloc();
.
w
q
main.c.ed2�K�cC83,84c
�8f2c_entry ("z", P_NO_ARGS, P_INT, &zflag, NO)
.
37d
w
q
misc.c.ed�U��		447d
w
q
output.c.ed����1279,1282c
�7for (value = namep -> varxptr.assigned_values; value;
	��value = value -> nextp) {
	nice_printf (outfile, "case %d: goto %s;\n", (int) value -> datap,
		user_label ((int) value -> datap));
.
1252d
w
q
output.c.ed2U���T390c
�" ",�
"!",  "\\\"",�"#",�"$",�"%",�"&",�"'",
.
w
q
p1output.c.ed�T�`22534,536c
	c.ci = labels[i] -> stateno;
.
523d
w
q
proc.c.edk:��bb1202d
1198,1200c
	else
.
1191,1196c
	if(k = intrfunct(v->varname))
.
1179c
	register int k;
.
w
q
proc.c.ed1XK�>y?1318c
		p->basexpr = make_int_expr (fixtype (q));
.
1287,1288c
�6p->dims[i].dimexpr = make_int_expr(fixtype(q));
.
w
q
gram.dcl.ed3�T��%%39c
	| SREAL		{ $$ = TYREAL; }
.
w
q
gram.expr.ed3��%HH97c
	| SRCON	= { $$ = mkrealcon(TYREAL, convcd(toklen, token)); }
.
w
q
gram.head.ed3c���24d
w
q
init.c.ed3dE��99351c
		setimpl(TYREAL, (ftnint) 0, 'a', 'z');
.
251d
w
q
intr.c.ed38=���410,480d
327,328c
	{ TYDREAL,TYDREAL,2,"d_scal" }
.
138c
"ccos", 	{ INTRSPEC, TYCOMPLEX, 55 },
.
133c
"csin", 	{ INTRSPEC, TYCOMPLEX, 51 },
.
128c
"alog10", 	{ INTRSPEC, TYREAL, 47 },
.
124c
"clog", 	{ INTRSPEC, TYCOMPLEX, 45 },
.
122c
"alog", 	{ INTRS�PEC, TYREAL, 43 },
.
118c
"cexp", 	{ INTRSPEC, TYCOMPLEX, 41 },
.
113c
"csqrt", 	{ INTRSPEC, TYCOMPLEX, 37 },
.
109c
"dconjg", 	{ INTRSPEC, TYDCOMPLEX, 34 },
.
105c
"aimag", 	{ INTRSPEC, TYREAL, 31 },
.
88c
"amod", 	{ INTRSPEC, TYREAL, 16 },
.
84c
"cab�s", 	{ INTRSPEC, TYREAL, 12 },
.
17,21c
	int intrgroup /* :3 */;
	int intrstuff /* result type or number of generics */;
	int intrno /* :7 */;
	int dblcmplx;
.
w
q
main.c.ed3���R173,177d
87,88c
�>f2c_entry ("a", P_NO_ARGS, P_INT, &useauto, YES)
.
30,32d
w
q
defs.h.ed4+��V131c
extern int tyint;
.
w
q
expr.c.ed4%F����2624,2631c
			q = call2(ltype, powint[ltype-TYLONG], lp, mkconv(TYLONG, rp));
.
2572c
	int ltype, rtype, mtype;
.
214,218d
44c
	p = mkconst(TYLONG);
.
w
q
f2c.h.ed4_�X34d
25,30d
18d
w
q
format.c.ed4S �G1608a
	�ustrcpy (result -> Const.ccp, storage);
sdbp (stddbg,"p1get_const: got string '%s'\n", result -> Const.ccp);
.
1607c
	�gstatus = p1gets (infile, storage, CONSTANT_STR_MAX);

/* BUG BUG Find some better storage routine */

	�=result -> Const.ccp = malloc (strlen (storage) + 1);
.
1580a
�char *malloc ();
.
w
q
io.c.ed4+��!�b1185c
		�VONEOF(p->addrblock.vtype, M(TYLONG)|M(TYLOGICAL)) ) {
.
703d
677,679d
675d
13,14d
w
q
main.c.ed4]P"~�D342c
	nice_printf (c_output, "#include \"f2c.h\"\n\n");
.
177,178c
	�tyint = TYSHORT;
.
163,173c
�if (useshortints)
.
94,95c
�Ef2c_entry ("r8", P_NO_ARGS, P_INT, &r8flag, YES)
.
54,57d
42,43d
w
q
names.c.ed4�\�#l�
246,252c
	�strcpy (buf, "c_");
	�;(void) constant2s ((union Constant *) &(litp -> litval),
		�litp -> littype, buf + 2);
	�Aif (strlen (buf) > 8)
		sprintf (buf, "c_b%d", litp -> litnum);
	�2else {
		char *s;

		for (s = buf + 2; *s; s++)
		�if (*s == '.')
			*s = '_';
		�"else if (*s == '-')
			*s = 'n';
	�} /* else */
	�Ubreak;
.
218,228d
62,63c
	case TYLOGICAL:	strcpy (buff, "logical");	break;
.
26d
w
q
output.c.ed4iP$8�1086,1087c
	�Longfmt = "%ldL";
.
434c
	�<nice_printf (fp, Longfmt, (long int) constp -> ci);
.
431c
	�8nice_printf (fp, "%d", (short int) constp -> ci);
.
w
q
p1output.c.ed4d��%X
146,147c
	�/p1putds (P1_CONST, type, c -> ccp);
.
123,124c
�char *varstr ();
.
w
q
put.c.ed4V�&{VV282c
	case TYLONG:
.
278,280d
232c
	q->vtype = ( type==TYADDR ? TYINT : type );
.
w
q
putpcc.c.ed4|�'��939c
		�Hmkexpr(OPPLUS,length_copy->memoffset, ICON(i*SZLENG));
.
919d
902,903c
	�umkconv(TYLONG, ICON(n))));
.
899,900d
888c
	length_var = mktmpn(n, TYLENG, PNULL, CONCAT_NAME);
.
881c
	int n;
.
w
q
defines.h.ed5�T�(�		192d
w
q
expr.c.ed5Lf	) hh2015d
1895d
1751c
		}
.
1727,1739c
		if( ISSTAROP(lp) && ISICON(lp->exprblock.rightp) )
		{
.
1664d
w
q
format.c.ed5X
	*� 881263c
		if (in_vector (storage, c_keywords) >= 0)
.
w
q
format_d.c.ed5iP+�  40,41c
�if (debugflag)
.
w
q
gram.dcl.ed5]P,A!~~312c
		{ vartype = $2; }
.
41,42c
		{ varleng = ($1<0 || $1==TYLONG ? 0 : typesize[$1]); }
.
31,37c
		{ varleng = $2; }
.
w
q
io.c.ed5[-�!��1173,1183c
	else
		ioset(TYADDR, offset, p ? addrof(p) : ICON(0) );
.
1133c
	expptr mo;
.
828,831c
		if(p->headblock.vtype == TYCHAR)
.
w
q
lex.c.ed5��.�"''325d
322,323c
	if(inclp == NULL)
.
w
q
main.c.ed5C/�"{{413d
122,123c
		fprintf(stderr, "%s %s %s %s %s\n", c_functions,
			initfname, p1_file, p1_filebak, sortfname);
.
117d
w
q
misc.c.ed5�d	0�#p1083c
��sprintf (buf, "/bin/cp %s %s.bak", fname, fname);
.
1045a
	len = len > str_len ? len : str_len;
	if (!strncmp (str, vector[index], len))
	�return index;
�
} /* for */

�(return -1;
} /* in_vector */



.
1044a
�dfor (index = 0; vector && vector[index]; index++) {
	int len = strlen (vector[index]);
.
1029,1043c
�Kfor (str_len = 0; str && *str && str_len < 100; str_len++)
	;
.
1022,1027c
�*register int index;			/* current index */
�register int str_len;
��extern int strncmp ();
.
1019,1020c
int in_vector (str, vector)
char *str, *vector[];
.
1014,1016c
/* in_vector -- verifies whether   str   can satisfy one of the strings in
   vector.   If so, the index is returned else   NOT_IN_VECTOR   is returned.
�   str   "satisfies" one of the vectored strings if it exactly matches
   a string in   vector.   Only an exact match will be accepted.
.
w
q
names.c.ed5�:1'~�677,678d
666,675c
	"case", "char", "cilist", "cllist", "const", "cos", "cosh",
	"do", "double", "else", "entry", "enum", "exp",
	"extern", "flag", "float", "for", "ftnint", "ftnlen", "goto",
	"if", "inlist", "int", "log", "long",
	"olist", "return",
	"�short", "signed", "sin", "sinh", "sizeof",
	"sqrt", "static", "struct", "switch", "tan", "tanh",
	"union", "void", "while",
	0
.
659,661c
   "int", etc.  Source:  Kernighan & Ritchie, eds. 1 and 2 */
/* Also includes keywords used for I/O in f2c.h */

�/* Omitting names over 6 characters long:
   "default", "continue", "icilist", "register",
   "typedef", "unsigned", "volatile"
.
w
q
output.c.ed5[2�)^1079,1082c
	�<if (q -> tag == TNAME && q -> nameblock.vstg == STGEXT &&
		�/q -> nameblock.vclass == CLPROC && in_vector
		��(varstr (VL, q -> nameblock.varname), c_keywords) == -1)
		nice_printf (outfile, "_");
.
754d
531c
			if (in_vector(s, c_keywords) >= 0)
.
348c
	if (in_vector (varstr (VL, namep -> varname), c_keywords) >= 0)
.
96d
w
q
p1output.c.ed5X
	33+		358d
w
q
proc.c.ed5�
4a+1151,1155d
w
q
put.c.ed5�5�+PP45,46c
	1,1,1,1,1 /* OPNEG1, OPQUESTd, OPCOLONd, OPASSIGNI, OPIDENTITY */
.
w
q
putpcc.c.ed5C6
,''961,963c
return (expptr) p;
.
260d
w
q
star2s.c.ed5�T�7V,�461c
	�9if (in_vector (e -> user.ident, c_keywords) >= 0)
.
290c
�Tsprintf (pointer, "(TNAME %s%s %s %s %s", str, in_vector (str, c_keywords) >=
.
w
q
defines.h.ed5�T�(�	
defs.h.ed�T�$defs.h.ed4+��Vexec.c.ed�T�\��exec.c.ed1�@�$��expr.c.ed�^��IJexpr.c.ed1XK�c,-expr.c.ed4%F����expr.c.ed5Lf	) hif2c.h.ed4_�Xformat.c.ed���DEformat.c.ed1�@�stformat.c.ed2b���55format.c.ed4S �GDformat.c.ed5X
	*� 89format_d.c.ed2�K�	IIformat_d.c.ed5iP+�   gram.dcl.ed3�T��%&gram.dcl.ed5]P,A!~gram.expr.ed3��%HIgram.head.ed3c���	init.c.edE�
{ "init.c.ed3dE��9:intr.c.ed���	IKintr.c.ed38=���io.c.ed�T�0��io.c.ed1�@�
�  io.c.ed4+��!�bbio.c.ed5[-�!��lex.c.ed5��.�"'(main.c.ed;|�qpmain.c.ed0`����main.c.ed2�K�cCCmain.c.ed3���RRmain.c.ed4]P"~��main.c.ed5C/�"{|misc.c.ed�U��	
misc.c.ed5�d	0�#pinames.c.ed4�\�#l��names.c.ed5�:1'~�output.c.ed�����output.c.ed2U���TGoutput.c.ed4iP$8��output.c.ed5[2�)^\p1output.c.ed�T�`23p1output.c.ed4d��%XWp1output.c.ed5X
	33+	
proc.c.edk:��bcproc.c.ed1XK�>yyproc.c.ed5�
4a+put.c.ed4V�&{VWput.c.ed5�5�+PQputpcc.c.ed4|�'���putpcc.c.ed5C6
,'(star2s.c.ed5�T�7V,���,7
unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.