head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.112
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.110
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.108
	pkgsrc-2025Q3-base:1.1
	pkgsrc-2025Q2:1.1.0.106
	pkgsrc-2025Q2-base:1.1
	pkgsrc-2025Q1:1.1.0.104
	pkgsrc-2025Q1-base:1.1
	pkgsrc-2024Q4:1.1.0.102
	pkgsrc-2024Q4-base:1.1
	pkgsrc-2024Q3:1.1.0.100
	pkgsrc-2024Q3-base:1.1
	pkgsrc-2024Q2:1.1.0.98
	pkgsrc-2024Q2-base:1.1
	pkgsrc-2024Q1:1.1.0.96
	pkgsrc-2024Q1-base:1.1
	pkgsrc-2023Q4:1.1.0.94
	pkgsrc-2023Q4-base:1.1
	pkgsrc-2023Q3:1.1.0.92
	pkgsrc-2023Q3-base:1.1
	pkgsrc-2023Q2:1.1.0.90
	pkgsrc-2023Q2-base:1.1
	pkgsrc-2023Q1:1.1.0.88
	pkgsrc-2023Q1-base:1.1
	pkgsrc-2022Q4:1.1.0.86
	pkgsrc-2022Q4-base:1.1
	pkgsrc-2022Q3:1.1.0.84
	pkgsrc-2022Q3-base:1.1
	pkgsrc-2022Q2:1.1.0.82
	pkgsrc-2022Q2-base:1.1
	pkgsrc-2022Q1:1.1.0.80
	pkgsrc-2022Q1-base:1.1
	pkgsrc-2021Q4:1.1.0.78
	pkgsrc-2021Q4-base:1.1
	pkgsrc-2021Q3:1.1.0.76
	pkgsrc-2021Q3-base:1.1
	pkgsrc-2021Q2:1.1.0.74
	pkgsrc-2021Q2-base:1.1
	pkgsrc-2021Q1:1.1.0.72
	pkgsrc-2021Q1-base:1.1
	pkgsrc-2020Q4:1.1.0.70
	pkgsrc-2020Q4-base:1.1
	pkgsrc-2020Q3:1.1.0.68
	pkgsrc-2020Q3-base:1.1
	pkgsrc-2020Q2:1.1.0.64
	pkgsrc-2020Q2-base:1.1
	pkgsrc-2020Q1:1.1.0.44
	pkgsrc-2020Q1-base:1.1
	pkgsrc-2019Q4:1.1.0.66
	pkgsrc-2019Q4-base:1.1
	pkgsrc-2019Q3:1.1.0.62
	pkgsrc-2019Q3-base:1.1
	pkgsrc-2019Q2:1.1.0.60
	pkgsrc-2019Q2-base:1.1
	pkgsrc-2019Q1:1.1.0.58
	pkgsrc-2019Q1-base:1.1
	pkgsrc-2018Q4:1.1.0.56
	pkgsrc-2018Q4-base:1.1
	pkgsrc-2018Q3:1.1.0.54
	pkgsrc-2018Q3-base:1.1
	pkgsrc-2018Q2:1.1.0.52
	pkgsrc-2018Q2-base:1.1
	pkgsrc-2018Q1:1.1.0.50
	pkgsrc-2018Q1-base:1.1
	pkgsrc-2017Q4:1.1.0.48
	pkgsrc-2017Q4-base:1.1
	pkgsrc-2017Q3:1.1.0.46
	pkgsrc-2017Q3-base:1.1
	pkgsrc-2017Q2:1.1.0.42
	pkgsrc-2017Q2-base:1.1
	pkgsrc-2017Q1:1.1.0.40
	pkgsrc-2017Q1-base:1.1
	pkgsrc-2016Q4:1.1.0.38
	pkgsrc-2016Q4-base:1.1
	pkgsrc-2016Q3:1.1.0.36
	pkgsrc-2016Q3-base:1.1
	pkgsrc-2016Q2:1.1.0.34
	pkgsrc-2016Q2-base:1.1
	pkgsrc-2016Q1:1.1.0.32
	pkgsrc-2016Q1-base:1.1
	pkgsrc-2015Q4:1.1.0.30
	pkgsrc-2015Q4-base:1.1
	pkgsrc-2015Q3:1.1.0.28
	pkgsrc-2015Q3-base:1.1
	pkgsrc-2015Q2:1.1.0.26
	pkgsrc-2015Q2-base:1.1
	pkgsrc-2015Q1:1.1.0.24
	pkgsrc-2015Q1-base:1.1
	pkgsrc-2014Q4:1.1.0.22
	pkgsrc-2014Q4-base:1.1
	pkgsrc-2014Q3:1.1.0.20
	pkgsrc-2014Q3-base:1.1
	pkgsrc-2014Q2:1.1.0.18
	pkgsrc-2014Q2-base:1.1
	pkgsrc-2014Q1:1.1.0.16
	pkgsrc-2014Q1-base:1.1
	pkgsrc-2013Q4:1.1.0.14
	pkgsrc-2013Q4-base:1.1
	pkgsrc-2013Q3:1.1.0.12
	pkgsrc-2013Q3-base:1.1
	pkgsrc-2013Q2:1.1.0.10
	pkgsrc-2013Q2-base:1.1
	pkgsrc-2013Q1:1.1.0.8
	pkgsrc-2013Q1-base:1.1
	pkgsrc-2012Q4:1.1.0.6
	pkgsrc-2012Q4-base:1.1
	pkgsrc-2012Q3:1.1.0.4
	pkgsrc-2012Q3-base:1.1
	pkgsrc-2012Q2:1.1.0.2
	pkgsrc-2012Q2-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2012.05.31.23.42.01;	author dholland;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Rename patch files to new standard for tidiness. No functional change.
@
text
@$NetBSD: patch-aa,v 1.3 2012/05/31 23:37:57 dholland Exp $

- place a big comment within a comment (just within a false ifdef is
not sufficient)
- do not use gets()
- use ctype.h functions correctly
- avoid symbol conflict with getline()
- don't use implicit int

--- focal0.c.orig	1995-04-17 13:03:43.000000000 +0000
+++ focal0.c
@@@@ -13,6 +13,7 @@@@
 	$(ATOD)		= 1
 	$(DTOA)		= 1
 */
+/*
 #ifdef	DOCUMENTATION
 
 title	focal		Ancient Interpretive Language
@@@@ -35,6 +36,7 @@@@ author
 	Dave Conroy
 
 #endif
+*/
 
 #include	"focal.h"
 #ifdef	vms
@@@@ -66,6 +68,24 @@@@ int	intflag;			/* Interrupt flag */
 
 struct	sym	*sym[N_HASH + 1];	/* Symbol table */
 
+static char *
+dogets(char *buf, size_t len)
+{
+	char *ret;
+
+	ret = fgets(buf, len, stdin);
+	if (ret != NULL) {
+		len = strlen(buf);
+		if (len > 0 && buf[len-1] == '\n') {
+			buf[--len] = '\0';
+		}
+		if (len > 0 && buf[len-1] == '\r') {
+			buf[--len] = '\0';
+		}
+	}
+	return ret;
+}
+
 int main()
 {
 	register int	c;
@@@@ -86,7 +106,7 @@@@ int main()
 	catchcc();
 	for (;;) {
 		putchar('*');
-		if (gets(cbuf) == NULL) {
+		if (dogets(cbuf, sizeof(cbuf)) == NULL) {
 			putchar('\n');
 			break;
 		}
@@@@ -205,7 +225,7 @@@@ loop:
 			popdo();
 		goto loop;
 	}
-	while (isalpha(*ctp))
+	while (isalpha((unsigned char)*ctp))
 		++ctp;
 	if (isupper(c))
 		c = tolower(c);
@@@@ -427,7 +447,7 @@@@ void ask()
 		--ctp;
 		sp = getsym();
 		printf(": ");
-		if (gets(abuf) == NULL) {
+		if (dogets(abuf, sizeof(abuf)) == NULL) {
 			putchar('\n');
 			diag("EOF in ask");
 		}
@@@@ -649,11 +669,11 @@@@ register int	c;
 }
 
 
-int getline(cp, fp)
+int get_line(cp, fp)
 register char *cp;
 register FILE *fp;
 {
-	register c;
+	register int c;
 
 	while ((c=getc(fp))!=EOF && c!='\n')
 		*cp++ = c;
@@@@ -667,7 +687,7 @@@@ register FILE *fp;
 void type()
 {
 	register char *fmt;
-	register c;
+	register int c;
 static	char fmtb[20];
 static	int ifmtb = 1;
 	int x, y;
@@@@ -724,7 +744,7 @@@@ FILE *fp;
 {
 	struct lno lno;
 	register struct line *lp;
-	register tgroup, lgroup;
+	register int tgroup, lgroup;
 
 	if (lnop == NULL) {
 		lno.ln_type = LN_ALL;
@