Added cap.c

diff --git a/lang/m2/libm2/LIST b/lang/m2/libm2/LIST
index 2ea72a3..6ab7294 100644 (file)
--- 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 418315b..cbd99dd 100644 (file)
--- 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 (file)
index 0000000..86469a6
--- /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';
+}