From: ceriel <none@none>
Date: Tue, 5 Apr 1988 15:27:50 +0000 (+0000)
Subject: Added cap.c
X-Git-Tag: release-5-5~3524
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=f47d49b1c0d3c23153a36729e975fad36f48df6d;p=ack.git

Added cap.c
---

diff --git a/lang/m2/libm2/LIST b/lang/m2/libm2/LIST
index 2ea72a35b..6ab729416 100644
--- a/lang/m2/libm2/LIST
+++ b/lang/m2/libm2/LIST
@@ -20,6 +20,7 @@ Traps.mod
 Arguments.c
 LtoUset.e
 StrAss.c
+cap.c
 absd.c
 absf.e
 absi.c
diff --git a/lang/m2/libm2/PascalIO.mod b/lang/m2/libm2/PascalIO.mod
index 418315b92..cbd99ddcc 100644
--- a/lang/m2/libm2/PascalIO.mod
+++ b/lang/m2/libm2/PascalIO.mod
@@ -117,6 +117,10 @@ IMPLEMENTATION MODULE PascalIO;
   PROCEDURE ReadChar(InputText: Text; VAR ch : CHAR);
   BEGIN
 	ch := NextChar(InputText);
+	IF InputText^.eof THEN
+		Traps.Message("unexpected EOF");
+		HALT;
+	END;
 	InputText^.done := FALSE;
   END ReadChar;
 
@@ -140,16 +144,7 @@ IMPLEMENTATION MODULE PascalIO;
   PROCEDURE Get(InputText: Text);
   VAR dummy: CHAR;
   BEGIN
-	WITH InputText^ DO
-		IF type # Preading THEN Error(Preading); END;
-		IF eof THEN
-			Traps.Message("unexpected EOF");
-			HALT;
-		END;
-		IF done THEN done := FALSE;
-		ELSE dummy := NextChar(InputText);
-		END;
-	END;
+	ReadChar(InputText, dummy);
   END Get;
 
   PROCEDURE Eoln(InputText: Text): BOOLEAN;
diff --git a/lang/m2/libm2/cap.c b/lang/m2/libm2/cap.c
new file mode 100644
index 000000000..86469a6ff
--- /dev/null
+++ b/lang/m2/libm2/cap.c
@@ -0,0 +1,16 @@
+/*
+  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
+  See the copyright notice in the ACK home directory, in the file "Copyright".
+*/
+
+/*
+  Module:	cap; implementation of CAP
+  Author:	Ceriel J.H. Jacobs
+  Version:	$Header$
+*/
+
+cap(u)
+	unsigned u;
+{
+	if (u >= 'a' && u <= 'z') u += 'A'-'a';
+}