From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Feb 1995 00:36:04 +0000 (+0000)
Subject: Add new primitives.  Reorganize to make this easier to maintain.
X-Git-Tag: 20090517-FFI~6646
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a0f27e5f99409ea36f45762d875fa49bd47b3199;p=mit-scheme.git

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 78f7f6ed8..f91836234 100644
--- 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))
 
 (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))