#| -*-Scheme-*-
-$Id: edwin.pkg,v 1.155 1994/11/02 19:40:18 adams Exp $
+$Id: edwin.pkg,v 1.156 1994/12/19 20:38:55 cph Exp $
Copyright (c) 1989-1994 Massachusetts Institute of Technology
;;;; Edwin Packaging
\f
(global-definitions "../runtime/runtime")
-(global-definitions "../win32/win32")
+;;(global-definitions "../win32/win32")
(define-package (edwin)
(file-case os-type
((unix) "unix")
- ((dos nt) "dos"))
+ ((dos nt) "dos")
+ ((os/2) "os2"))
(files "utils"
"nvector"
"ring"
;;;; This is the variant used under DOS and NT (for now)
-#||#
+#|
(define-package (edwin process)
(file-case os-type
((dos nt) "dosproc"))
(file-case os-type
((dos) "doscom" "dosshell"))
(parent (edwin)))
-#||#
+|#
\f
;;;; This is the variant used under Unix/X
-#|
+
(define-package (edwin process)
(file-case os-type
((unix) "process")
stop-process
subprocesses-available? ; always present
run-synchronous-process))
-|#
\f
(define-package (edwin screen x-screen)
(files "xterm")
xterm-screen/set-name)
(initialization (initialize-package!)))
-#| PC only: |#
+#| PC only:
(define-package (edwin screen win32)
(files "win32")
(parent (edwin screen))
end ; the END key
)
(initialization (initialize-package!)))
-#| End PC only|#
+|#
(define-package (edwin x-commands)
(files "xcom")
(export (edwin screen x-screen)
update-xterm-screen-names!))
-\f
(define-package (edwin win-commands)
(files "win32com")
(parent (edwin))