From: ceriel <none@none>
Date: Fri, 25 Nov 1988 13:49:07 +0000 (+0000)
Subject: improved interface
X-Git-Tag: release-5-5~2707
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=da11deeece7db6d8505abcdfa7e245f08a1e2afb;p=ack.git

improved interface
---

diff --git a/lang/m2/libm2/Termcap.def b/lang/m2/libm2/Termcap.def
index b999f4f57..76ea5d822 100644
--- a/lang/m2/libm2/Termcap.def
+++ b/lang/m2/libm2/Termcap.def
@@ -15,8 +15,10 @@
   by a call to Tgetent. The "ARRAY OF CHAR" parameters must be null-terminated.
   You can call them with a constant string argument, as these are always
   null-terminated in our Modula-2 implementation.
-  Unlike the C version, this version takes care of UP, BC, and PC
-  automatically. Only ospeed must still be set by the user.
+  Unlike the C version, this version takes care of UP, BC, PC, and ospeed
+  automatically.
+  If Tgetent is not called by the user, it is called by the module itself,
+  using the TERM environment variable, or "dumb" if TERM does not exist.
 *)
 
 DEFINITION MODULE Termcap;
@@ -24,9 +26,6 @@ DEFINITION MODULE Termcap;
   TYPE	STRCAP;
 	PUTPROC = PROCEDURE(CHAR);
 
-  VAR
-	ospeed: INTEGER;	(* see termcap(3), tty(4) *)
-
   PROCEDURE Tgetent(name: ARRAY OF CHAR) : INTEGER;
 
   PROCEDURE Tgetnum(id: ARRAY OF CHAR): INTEGER;
@@ -36,8 +35,10 @@ DEFINITION MODULE Termcap;
   PROCEDURE Tgoto(cm: STRCAP; col, line: INTEGER): STRCAP;
   (* Result exists until next call to Tgoto *)
 
-  PROCEDURE Tgetstr(id: ARRAY OF CHAR): STRCAP;
-  (* Result exists until next call to Tgetent *)
+  PROCEDURE Tgetstr(id: ARRAY OF CHAR; VAR res: STRCAP) : BOOLEAN;
+  (* Returns FALSE if capability does not exist;
+     Result exists until next call to Tgetent.
+  *)
 
   PROCEDURE Tputs(cp: STRCAP; affcnt: INTEGER; p: PUTPROC);
 
diff --git a/lang/m2/libm2/Termcap.mod b/lang/m2/libm2/Termcap.mod
index d3d58bfb4..01d2371ec 100644
--- a/lang/m2/libm2/Termcap.mod
+++ b/lang/m2/libm2/Termcap.mod
@@ -14,81 +14,82 @@ IMPLEMENTATION MODULE Termcap;
 
   IMPORT XXTermcap;
   FROM SYSTEM IMPORT ADR, ADDRESS;
+  FROM Unix IMPORT gtty;
+  FROM Arguments IMPORT GetEnv;
 
   TYPE	STR = ARRAY[1..32] OF CHAR;
 	STRCAP = POINTER TO STR;
 
   VAR	Buf, Buf1 : ARRAY [1..1024] OF CHAR;
-	UP, BC: STRCAP;
-	PC: CHAR;
-      	Initialized: BOOLEAN;
 	BufCnt : INTEGER;
 
   PROCEDURE Tgetent(name: ARRAY OF CHAR) : INTEGER;
   VAR i: INTEGER;
+      x: STRCAP;
+      sp: STR;
   BEGIN
 	i := XXTermcap.tgetent(ADR(Buf), ADR(name));
 	BufCnt := 1;
+	IF gtty(1, ADR(sp)) < 0 THEN
+	ELSE
+		XXTermcap.ospeed := ORD(sp[2]);
+	END;
 	IF i > 0 THEN
-		Initialized := TRUE;
-		UP := Tgetstr("pc");
-		IF UP # NIL THEN
-			PC := UP^[1];
-		ELSE	PC := 0C;
+		IF Tgetstr("pc", x) THEN
+			XXTermcap.PC := x^[1];
+		ELSE	XXTermcap.PC := 0C;
 		END;
-		UP := Tgetstr("up");
-		BC := Tgetstr("bc");
+		IF Tgetstr("up", x) THEN ; END; XXTermcap.UP := x;
+		IF Tgetstr("bc", x) THEN ; END; XXTermcap.BC := x;
 	END;
 	RETURN i;
   END Tgetent;
 
   PROCEDURE Tgetnum(id: ARRAY OF CHAR): INTEGER;
   BEGIN
-	IF NOT Initialized THEN
-		RETURN -1;
-	END;
 	RETURN XXTermcap.tgetnum(ADR(id));
   END Tgetnum;
 
   PROCEDURE Tgetflag(id: ARRAY OF CHAR): BOOLEAN;
   BEGIN
-	IF NOT Initialized THEN
-		RETURN FALSE;
-	END;
 	RETURN XXTermcap.tgetflag(ADR(id)) = 1;
   END Tgetflag;
 
   PROCEDURE Tgoto(cm: STRCAP; col, line: INTEGER): STRCAP;
   BEGIN
-	XXTermcap.UP := UP;
-	XXTermcap.BC := BC;
 	RETURN XXTermcap.tgoto(cm, col, line);
   END Tgoto;
 
-  PROCEDURE Tgetstr(id: ARRAY OF CHAR): STRCAP;
+  PROCEDURE Tgetstr(id: ARRAY OF CHAR; VAR res: STRCAP) : BOOLEAN;
   VAR a, a2: ADDRESS;
       b: CARDINAL;
   BEGIN
-	IF NOT Initialized THEN
-		RETURN NIL;
-	END;
 	a := ADR(Buf1[BufCnt]);
 	a2 := XXTermcap.tgetstr(ADR(id), ADR(a));
+	res := a2;
 	IF a2 = NIL THEN
-		RETURN NIL;
+		RETURN FALSE;
 	END;
 	b := a - a2;
 	INC(BufCnt, b);
-	RETURN a2;
+	RETURN TRUE;
   END Tgetstr;
 
   PROCEDURE Tputs(cp: STRCAP; affcnt: INTEGER; p: PUTPROC);
   BEGIN
-	XXTermcap.PC := PC;
-	XXTermcap.ospeed := ospeed;
 	XXTermcap.tputs(cp, affcnt, XXTermcap.PUTPROC(p));
   END Tputs;
 
+  PROCEDURE InitTermcap;
+  VAR Bf: STR;
+  BEGIN
+	IF GetEnv("TERM", Bf) = 0 THEN
+		Bf := "dumb";
+	END;
+	IF Tgetent(Bf) <= 0 THEN
+	END;
+  END InitTermcap;
+
 BEGIN
-	Initialized := FALSE;
+	InitTermcap;
 END Termcap.