Add new primitives. Reorganize to make this easier to maintain.

diff --git a/v7/src/runtime/os2winp.scm b/v7/src/runtime/os2winp.scm
index 78f7f6ed80cd6f4cf21d85e6ee09e4b83971f992..f91836234b797fa5a4129e95de1135c338bb3b4d 100644 (file)
--- a/v7/src/runtime/os2winp.scm
+++ b/v7/src/runtime/os2winp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2winp.scm,v 1.3 1995/02/08 01:20:28 cph Exp $
+$Id: os2winp.scm,v 1.4 1995/02/14 00:36:04 cph Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -38,49 +38,59 @@ MIT in each case. |#
 (declare (usual-integrations))
 \f
 (define-primitives
+  (os2ps-bitblt 6)
+  (os2ps-clear 5)
+  (os2ps-create-bitmap 3)
+  (os2ps-create-memory-ps 0)
+  (os2ps-destroy-bitmap 1)
+  (os2ps-destroy-memory-ps 1)
+  (os2ps-draw-point 3)
+  (os2ps-get-bitmap-bits 5)
+  (os2ps-get-bitmap-parameters 1)
+  (os2ps-line 3)
+  (os2ps-move-graphics-cursor 3)
+  (os2ps-poly-line 3)
+  (os2ps-poly-line-disjoint 3)
+  (os2ps-query-capabilities 3)
+  (os2ps-query-capability 2)
+  (os2ps-reset-clip-rectangle 1)
+  (os2ps-set-bitmap 2)
+  (os2ps-set-bitmap-bits 5)
+  (os2ps-set-clip-rectangle 5)
+  (os2ps-set-colors 3)
+  (os2ps-set-font 3)
+  (os2ps-set-line-type 2)
+  (os2ps-set-mix 2)
+  (os2ps-text-width 4)
+  (os2ps-write 6)
+  (os2win-activate 1)
   (os2win-beep 2)
-  (os2win-open 2)
   (os2win-close 1)
-  (os2win-show 2)
+  (os2win-close-event-qid 1)
+  (os2win-console-wid 0)
+  (os2win-desktop-height 0)
+  (os2win-desktop-width 0)
+  (os2win-event-ready? 2)
+  (os2win-focus? 1)
+  (os2win-get-event 2)
+  (os2win-get-frame-size 1)
+  (os2win-get-pos 1)
+  (os2win-get-size 1)
+  (os2win-invalidate 5)
   (os2win-move-cursor 3)
-  (os2win-shape-cursor 4)
-  (os2win-show-cursor 2)
+  (os2win-open 2)
+  (os2win-open-event-qid 0)
+  (os2win-ps 1)
   (os2win-scroll 7)
-  (os2win-invalidate 5)
   (os2win-set-grid 3)
-  (os2win-activate 1)
-  (os2win-get-pos 1)
   (os2win-set-pos 3)
-  (os2win-get-size 1)
-  (os2win-get-frame-size 1)
   (os2win-set-size 3)
-  (os2win-focus? 1)
   (os2win-set-state 2)
   (os2win-set-title 2)
-  (os2win-open-event-qid 0)
-  (os2win-close-event-qid 1)
-  (os2win-get-event 2)
-  (os2win-event-ready? 2)
-  (os2win-console-wid 0)
-  (os2win-desktop-width 0)
-  (os2win-desktop-height 0)
-
-  (os2win-ps 1)
-  (os2ps-open-bitmap 2)
-  (os2ps-close-bitmap 1)
-  (os2ps-bitblt 6)
-  (os2ps-write 6)
-  (os2ps-set-font 3)
-  (os2ps-clear 5)
-  (os2ps-set-colors 3)
-  (os2ps-move-graphics-cursor 3)
-  (os2ps-line 3)
-  (os2ps-poly-line 3)
-  (os2ps-poly-line-disjoint 3)
-  (os2ps-set-line-type 2)
-  (os2ps-query-capabilities 3)
-  (os2ps-query-capability 2)
-  (os2ps-set-mix 2))
+  (os2win-shape-cursor 4)
+  (os2win-show 2)
+  (os2win-show-cursor 2)
+  )
 
 (define-integrable (event-type event) (vector-ref event 0))
 (define-integrable (event-wid event) (vector-ref event 1))