ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/meta/misc.c

Comparing ray/src/meta/misc.c (file contents):
Revision 1.1 by greg, Sat Feb 22 02:07:26 2003 UTC vs.
Revision 1.4 by schorsch, Sat Nov 15 02:13:37 2003 UTC

#	Line 6 | Line 6 | static const char      RCSid[] = "$Id$";
6		*/
7
8
9	+	#include  "rtio.h"
10		#include  "meta.h"
11
12
12	–
13		char  coms[] = COML;
14
15		char  errmsg[128];
16
17
18
19	–	error(errtype, emsg)            /* report error */
20	–
21	–	int  errtype;
22	–	char  *emsg;
23	–
24	–	{
25	–
26	–	switch (errtype)  {
27	–
28	–	case WARNING:
29	–	wputs(progname);
30	–	wputs(": warning - ");
31	–	wputs(emsg);
32	–	wputs("\n");
33	–	break;
34	–
35	–	case USER:
36	–	eputs(progname);
37	–	eputs(": fatal - ");
38	–	eputs(emsg);
39	–	eputs("\n");
40	–	exit(1);
41	–	break;
42	–
43	–	case SYSTEM:
44	–	eputs(progname);
45	–	eputs(": system - ");
46	–	eputs(emsg);
47	–	eputs("\n");
48	–	exit(1);
49	–	break;
50	–	}
51	–
52	–	}
53	–
54	–
55	–
56	–
19		int
20	<	comndx(c)               /* return index for command */
20	>	comndx(         /* return index for command */
21	>	register int  c
22	>	)
23
60	–	register int  c;
61	–
24		{
25		register char  *cp;
26
#	Line 78 | Line 40 | register int  c;
40
41
42		PRIMITIVE  *
43	<	pop(pl)                 /* pop top off plist */
43	>	pop(                    /* pop top off plist */
44	>	register PLIST  *pl
45	>	)
46
83	–	register PLIST  *pl;
84	–
47		{
48		register PRIMITIVE  *p;
49
#	Line 96 | Line 58 | register PLIST  *pl;
58
59
60
61	+	void
62	+	push(           /* push primitive onto plist */
63	+	register PRIMITIVE  *p,
64	+	register PLIST  *pl
65	+	)
66
100	–	push(p, pl)             /* push primitive onto plist */
101	–
102	–	register PRIMITIVE  *p;
103	–	register PLIST  *pl;
104	–
67		{
68
69		if ((p->pnext = pl->ptop) == NULL)
#	Line 112 | Line 74 | register PLIST  *pl;
74
75
76
77	<
78	<	add(p, pl)              /* add primitive to plist */
79	<
80	<	register PRIMITIVE  *p;
81	<	register PLIST  *pl;
120	<
77	>	void
78	>	add(            /* add primitive to plist */
79	>	register PRIMITIVE  *p,
80	>	register PLIST  *pl
81	>	)
82		{
83
84		if (pl->ptop == NULL)
#	Line 131 | Line 92 | register PLIST  *pl;
92
93
94
95	+	void
96	+	append(         /* append pl1 to the end of pl2 */
97	+	register PLIST  *pl1,
98	+	register PLIST  *pl2
99	+	)
100
135	–	append(pl1, pl2)                /* append pl1 to the end of pl2 */
136	–
137	–	register PLIST  *pl1, *pl2;
138	–
101		{
102
103		if (pl1->ptop != NULL) {
#	Line 150 | Line 112 | register PLIST  *pl1, *pl2;
112
113
114
115	+	void
116	+	fargs(          /* free any arguments p has */
117	+	register PRIMITIVE  *p
118	+	)
119
154	–	fargs(p)                /* free any arguments p has */
155	–
156	–	register PRIMITIVE  *p;
157	–
120		{
121
122		if (p->args != NULL) {
#	Line 167 | Line 129 | register PRIMITIVE  *p;
129
130
131		char *
132	<	nextscan(start, format, result)         /* scan and advance through string */
132	>	nextscan(               /* scan and advance through string */
133	>	register char  *start,
134	>	char  *format,
135	>	char  *result
136	>	)
137
172	–	register char  *start;
173	–	char  *format;
174	–	char  *result;
175	–
138		{
139
140		if (start == NULL) return(NULL);
#	Line 187 | Line 149 | char  *result;
149		}
150
151
152	<
153	<	mcopy(p1, p2, n)        /* copy p2 into p1 size n */
154	<
155	<	register char  *p1, *p2;
156	<	register int  n;
152	>	void
153	>	mcopy(  /* copy p2 into p1 size n */
154	>	register char  *p1,
155	>	register char  *p2,
156	>	register int  n
157	>	)
158
159		{
160

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)