From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 19:39:14 +0000 (+0000)
Subject: Add OS/2 files.
X-Git-Tag: 20090517-FFI~6867
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=16c66372f07df711727db2a262415ad64346f3f2;p=mit-scheme.git

Add OS/2 files.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index a4879b8bf..7e591c1dc 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.52 1994/10/25 01:46:12 adams Exp $
+$Id: decls.scm,v 1.53 1994/12/19 19:38:30 cph Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -91,6 +91,7 @@ MIT in each case. |#
 	      "macros"
 	      "make"
 	      "nvector"
+	      "os2term"
 	      "paths"
 	      "rcsparse"
 	      "rename"
@@ -176,6 +177,8 @@ MIT in each case. |#
 		"notify"
 		"outline"
 		"occur"
+		"os2"
+		"os2com"
 		"pasmod"
 		"print"
 		"process"
diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 38ca675de..11b797085 100644
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ed-ffi.scm,v 1.35 1994/10/25 01:46:12 adams Exp $
+$Id: ed-ffi.scm,v 1.36 1994/12/19 19:38:44 cph Exp $
 
 Copyright (c) 1990-94 Massachusetts Institute of Technology
 
@@ -195,6 +195,12 @@ of that license should have been included along with this file.
 	       syntax-table/system-internal)
     ("occur"   (edwin occurrence)
 	       edwin-syntax-table)
+    ("os2"     (edwin)
+	       edwin-syntax-table)
+    ("os2com"  (edwin os2-commands)
+	       edwin-syntax-table)
+    ("os2term" (edwin screen os2-screen)
+	       syntax-table/system-internal)
     ("outline" (edwin)
 	       edwin-syntax-table)
     ("pasmod"  (edwin)
@@ -287,9 +293,11 @@ of that license should have been included along with this file.
 	       syntax-table/system-internal)
     ("utlwin"  (edwin window)
 	       class-syntax-table)
+    ("vc"      (edwin vc)
+	       edwin-syntax-table)
     ("win32"   (edwin screen win32)
 	       edwin-syntax-table)
-    ("vc"      (edwin vc)
+    ("win32com" (edwin win-commands)
 	       edwin-syntax-table)
     ("wincom"  (edwin)
 	       edwin-syntax-table)
diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 7c0b265db..d471b8b86 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.51 1994/11/03 05:03:53 adams Exp $
+$Id: edwin.ldr,v 1.52 1994/12/19 19:39:14 cph Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -108,8 +108,8 @@ MIT in each case. |#
 	(load "image" environment)
 	(load "comman" environment)
 	(load "docstr" environment)
-	(if (not (memq (lookup 'os-type) '(dos nt)))
-	    (set! (access *external-doc-strings?* environment) false))
+	(if (not (memq (lookup 'OS-TYPE) '(DOS NT)))
+	    (set! (access *external-doc-strings?* environment) #f))
 	(load "comtab" (->environment '(EDWIN COMTAB)))
 	(load "modes" environment)
 	(load "buffer" environment)
@@ -151,20 +151,25 @@ MIT in each case. |#
 	(load "rgxcmp" (->environment '(EDWIN REGULAR-EXPRESSION-COMPILER)))
 	(load "linden" (->environment '(EDWIN LISP-INDENTATION)))
 
-	(load-case 'os-type '((unix . "unix") (dos . "dos") (nt . "dos"))
+	(load-case 'OS-TYPE
+		   '((UNIX . "unix")
+		     (DOS . "dos")
+		     (NT . "dos")
+		     (OS/2 . "os2"))
 		   environment)
 
 	(load "fileio" environment)
 
-	(let ((env (->environment '(EDWIN SCREEN CONSOLE-SCREEN))))
-	  (load-set-and-initialize! '("termcap" "tterm") env)
-	  (if (memq (lookup 'os-type) '(dos nt))
-	      (begin
-		(load "ansi" env)
-		(if (load "bios" env)
-		    ((access bios-initialize-package! env))))))
+	(if (not (eq? 'OS/2 (lookup 'OS-TYPE)))
+	    (let ((env (->environment '(EDWIN SCREEN CONSOLE-SCREEN))))
+	      (load-set-and-initialize! '("termcap" "tterm") env)
+	      (if (memq (lookup 'OS-TYPE) '(DOS NT))
+		  (begin
+		    (load "ansi" env)
+		    (if (load "bios" env)
+			((access bios-initialize-package! env)))))))
 
-        (case (lookup 'os-type)
+        (case (lookup 'OS-TYPE)
 	  ((NT)
 	   (load-set-and-initialize! '("win32")
 				     (->environment '(EDWIN SCREEN WIN32)))
@@ -174,22 +179,30 @@ MIT in each case. |#
 	   (load-set-and-initialize! '("xterm")
 				     (->environment '(EDWIN SCREEN X-SCREEN)))
 	   (load-set-and-initialize! '("key-x11")
-				     (->environment '(EDWIN X-KEYS)))))
+				     (->environment '(EDWIN X-KEYS))))
+	  ((OS/2)
+	   (load-set-and-initialize! '("os2term")
+				     (->environment
+				      '(EDWIN SCREEN OS2-SCREEN)))))
 
-	(load-case 'os-type '((unix . "process")
-			      (dos . "dosproc")
-			      (nt . "dosproc"))
+	(load-case 'OS-TYPE
+		   '((UNIX . "process")
+		     (DOS . "dosproc")
+		     (NT . "dosproc")
+		     (OS/2 . "dosproc"))
 		   (->environment '(EDWIN PROCESS)))
 
 	(load "mousecom" environment)
-	(load "xcom" (->environment '(EDWIN X-COMMANDS)))
-	(load "win32com" (->environment '(EDWIN WIN-COMMANDS)))
+        (case (lookup 'OS-TYPE)
+	  ((UNIX) (load "xcom" (->environment '(EDWIN X-COMMANDS))))
+	  ((NT) (load "win32com" (->environment '(EDWIN WIN-COMMANDS))))
+	  ((OS/2) (load "os2com" (->environment '(EDWIN OS2-COMMANDS)))))
 	;; debug depends on button1-down defined in mousecom
 	(load "debug" (->environment '(EDWIN DEBUGGER)))
 
 	(let ((env (->environment '(EDWIN DIRED))))
 	  (load "dired" env)
-	  (if (eq? (lookup 'os-type) 'unix)
+	  (if (eq? (lookup 'OS-TYPE) 'unix)
 	      (load "dirunx" env)))
 
 	(load "argred" (->environment '(EDWIN COMMAND-ARGUMENT)))
@@ -239,7 +252,7 @@ MIT in each case. |#
 	      (load "vc" (->environment '(EDWIN VC)))))
 	(load "wincom" environment)
 	(load "scrcom" environment)
-	(load-set '("modefs" "xmodef") environment)
+	(load "modefs" environment)
 	(load "rename" environment)
 	(load "loadef" environment)
 	#|