--- ray/src/meta/misc.c	2003/07/03 22:41:44	1.2
+++ ray/src/meta/misc.c	2023/06/09 15:25:49	1.6
@@ -1,65 +1,28 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: misc.c,v 1.2 2003/07/03 22:41:44 schorsch Exp $";
+static const char	RCSid[] = "$Id: misc.c,v 1.6 2023/06/09 15:25:49 greg Exp $";
 #endif
 /*
  *   Miscellaneous functions for meta-files
  */
 
 
+#include  "rtio.h"
 #include  "meta.h"
 
 
 char  coms[] = COML;
 
-char  errmsg[128];
+/* char  errmsg[128];	redundant to error.c in ../commmon */
 
 
 
-error(errtype, emsg)		/* report error */
-
-int  errtype;
-char  *emsg;
-
-{
-
- switch (errtype)  {
-
-    case WARNING:
-       wputs(progname);
-       wputs(": warning - ");
-       wputs(emsg);
-       wputs("\n");
-       break;
-
-    case USER:
-       eputs(progname);
-       eputs(": fatal - ");
-       eputs(emsg);
-       eputs("\n");
-       exit(1);
-       break;
-
-    case SYSTEM:
-       eputs(progname);
-       eputs(": system - ");
-       eputs(emsg);
-       eputs("\n");
-       exit(1);
-       break;
-    }
-
- }
-
-
-
-
 int
-comndx(c)		/* return index for command */
+comndx(		/* return index for command */
+	int  c
+)
 
-register int  c;
-
 {
- register char  *cp;
+ char  *cp;
 
  if (!isalpha(c))
     return(-1);
@@ -77,12 +40,12 @@ register int  c;
 
 
 PRIMITIVE  *
-pop(pl)			/* pop top off plist */
+pop(			/* pop top off plist */
+	PLIST  *pl
+)
 
-register PLIST  *pl;
-
 {
- register PRIMITIVE  *p;
+ PRIMITIVE  *p;
 
  if ((p = pl->ptop) != NULL)  {
     if ((pl->ptop = p->pnext) == NULL)
@@ -95,12 +58,12 @@ register PLIST  *pl;
 
 
 
+void
+push(		/* push primitive onto plist */
+	PRIMITIVE  *p,
+	PLIST  *pl
+)
 
-push(p, pl)		/* push primitive onto plist */
-
-register PRIMITIVE  *p;
-register PLIST  *pl;
-
 {
 
  if ((p->pnext = pl->ptop) == NULL)
@@ -111,12 +74,11 @@ register PLIST  *pl;
 
 
 
-
-add(p, pl)		/* add primitive to plist */
-
-register PRIMITIVE  *p;
-register PLIST  *pl;
-
+void
+add(		/* add primitive to plist */
+	PRIMITIVE  *p,
+	PLIST  *pl
+)
 {
 
  if (pl->ptop == NULL)
@@ -130,11 +92,12 @@ register PLIST  *pl;
 
 
 
+void
+append(		/* append pl1 to the end of pl2 */
+	PLIST  *pl1,
+	PLIST  *pl2
+)
 
-append(pl1, pl2)		/* append pl1 to the end of pl2 */
-
-register PLIST  *pl1, *pl2;
-
 {
 
     if (pl1->ptop != NULL) {
@@ -149,11 +112,11 @@ register PLIST  *pl1, *pl2;
 
 
 
+void
+fargs(		/* free any arguments p has */
+PRIMITIVE  *p
+)
 
-fargs(p)		/* free any arguments p has */
-
-register PRIMITIVE  *p;
-
 {
 
  if (p->args != NULL) {
@@ -166,12 +129,12 @@ register PRIMITIVE  *p;
 
 
 char *
-nextscan(start, format, result)		/* scan and advance through string */
+nextscan(		/* scan and advance through string */
+	char  *start,
+	char  *format,
+	char  *result
+)
 
-register char  *start;
-char  *format;
-char  *result;
-
 {
 
     if (start == NULL) return(NULL);
@@ -186,11 +149,12 @@ char  *result;
 }
 
 
-
-mcopy(p1, p2, n)	/* copy p2 into p1 size n */
-
-register char  *p1, *p2;
-register int  n;
+void
+mcopy(	/* copy p2 into p1 size n */
+char  *p1,
+char  *p2,
+int  n
+)
 
 {