Changeset tag,last-working,15

Timestamp:

10/30/2007 06:50:12 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071030185012-vvffnzgd6b5dnmjj

Message:

Minor edits.

Location:

tag/last-working

Files:

• cdk.lisp (modified) (2 diffs)
• input.lisp (modified) (1 diff)

tag/last-working/cdk.lisp

@@ -89 +89 @@
   (ch chtype))
 
+(defcfun "wbkgrnd" :int
+  (window :pointer)
+  (wch :pointer))
+
 (defcfun ("werase" c-erase-window) :int
   (window :pointer))
+
+(defcfun "getcury" :int
+  (window :pointer))
+
+(defcfun "getcurx" :int
+  (window :pointer))
+
+(defcfun "getmaxy" :int
+  (window :pointer))
+
+(defcfun "getmaxx" :int
+  (window :pointer))
+
+(defcfun "wmove" :int
+  (window :pointer)
+  (y :int)
+  (x :int))
 
 (defcfun ("mvwadd_wch" c-move-and-add-char) :int
@@ -118 +139 @@
                            (:h-line #\q)
                            (:v-line #\x)
-                           (:plus #\n)))))
+                           (:plus #\n)
+                           (:solid #\0)))))
     (inc-pointer nc-wacs (* (foreign-type-size 'cchar_t) code))))
 

tag/last-working/input.lisp

@@ -1 +1 @@
 ;;;; TODO: Change all the keycode symbols to an enumeration so that
-;;;; Lisp will deetect typos, &c.
+;;;; Lisp will detect typos, &c.
 
 (defpackage #:input
   (:use #:cl #:cffi)
-  (:export))
+  (:export #:%wget-wch))
 
 (in-package #:input)