--- ray/src/cal/rcalc.c	2013/12/19 16:38:12	1.22
+++ ray/src/cal/rcalc.c	2014/03/09 20:07:27	1.23
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char RCSid[] = "$Id: rcalc.c,v 1.22 2013/12/19 16:38:12 greg Exp $";
+static const char RCSid[] = "$Id: rcalc.c,v 1.23 2014/03/09 20:07:27 greg Exp $";
 #endif
 /*
  *  rcalc.c - record calculator program.
@@ -225,6 +225,9 @@ eputs(" [-b][-l][-n][-p][-w][-u][-tS][-s svar=sval][-e
 		}
 	if (otype != 'a')
 		SET_FILE_BINARY(stdout);
+#ifdef getc_unlocked		/* avoid lock/unlock overhead */
+	flockfile(stdout);
+#endif
 	if (noinput) {          /* produce a single output record */
 		if (i < argc) {
 			eputs(argv[0]);
@@ -235,9 +238,6 @@ eputs(" [-b][-l][-n][-p][-w][-u][-tS][-s svar=sval][-e
 		putout();
 		quit(0);
 	}
-	if (itype != 'a')
-		SET_FILE_BINARY(stdin);
-
 	if (blnkeq)             /* for efficiency */
 		nbsynch();
 
@@ -306,6 +306,11 @@ char  *file
 		eputs(": cannot open\n");
 		quit(1);
 	}
+	if (itype != 'a')
+		SET_FILE_BINARY(fp);
+#ifdef getc_unlocked		/* avoid lock/unlock overhead */
+	flockfile(fp);
+#endif
 	if (inpfmt != NULL)
 		initinp(fp);
 	
@@ -345,7 +350,7 @@ static double
 l_in(char *funame)	/* function call for $channel */
 {
 	int  n;
-	register char  *cp;
+	char  *cp;
 			/* get argument as integer */
 	n = (int)(argument(1) + .5);
 	if (n != 0)	/* return channel value */
@@ -377,7 +382,7 @@ int  n
 )
 {
 	int  i;
-	register char  *cp;
+	char  *cp;
 
 	if (noinput || inpfmt != NULL) {
 		eputs("no column input\n");
@@ -478,7 +483,7 @@ int  output
 	char  *inptr;
 	struct field  fmt;
 	int  res;
-	register struct field  *f;
+	struct field  *f;
 						/* check for inline format */
 	for (inptr = spec; *inptr; inptr++)
 		if (*inptr == '$')
@@ -538,12 +543,12 @@ int  output
 
 static int
 readfield(                   /* get next field in format */
-register char  **pp
+char  **pp
 )
 {
 	int  type = F_NUL;
 	int  width = 0;
-	register char  *cp;
+	char  *cp;
 	
 	cp = inpbuf;
 	while (cp < &inpbuf[INBSIZ-1] && **pp != '\0') {
@@ -608,7 +613,7 @@ getsvar(                         /* get string variabl
 char  *svname
 )
 {
-	register struct strvar  *sv;
+	struct strvar  *sv;
 	
 	for (sv = svhead; sv != NULL; sv = sv->next)
 		if (!strcmp(sv->name, svname))
@@ -627,8 +632,8 @@ svpreset(                    /* preset a string variab
 char  *eqn
 )
 {
-	register struct strvar  *sv;
-	register char  *val;
+	struct strvar  *sv;
+	char  *val;
 
 	for (val = eqn; *val != '='; val++)
 		if (!*val)
@@ -647,7 +652,7 @@ char  *eqn
 static void
 clearrec(void)			/* clear input record variables */
 {
-	register struct field  *f;
+	struct field  *f;
 
 	for (f = inpfmt; f != NULL; f = f->next)
 		switch (f->type & F_TYP) {
@@ -668,7 +673,7 @@ static int
 getrec(void)				/* get next record from file */
 {
 	int  eatline;
-	register struct field  *f;
+	struct field  *f;
 
 	while (ipb.chr != EOF) {
 		if (blnkeq) {		/* beware of nbsynch() */
@@ -702,14 +707,14 @@ getrec(void)				/* get next record from file */
 
 static int
 getfield(                             /* get next field */
-register struct field  *f
+struct field  *f
 )
 {
 	static char  buf[RMAXWORD+1];            /* no recursion! */
 	int  delim, inword;
 	double  d;
 	char  *np;
-	register char  *cp;
+	char  *cp;
 
 	switch (f->type & F_TYP) {
 	case T_LIT:
@@ -797,8 +802,8 @@ static void
 putrec(void)                                /* output a record */
 {
 	char  fmt[32];
-	register int  n;
-	register struct field  *f;
+	int  n;
+	struct field  *f;
 	int  adlast, adnext;
 	
 	adlast = 0;