Changeset tag,last-working,5 for tag/last-working/curses.lisp

Timestamp:

09/27/2007 10:46:25 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20070927224625-s9k87snjmjfo33lv

Message:

Added a few more things to the curses/forms wrapper.
Added very light CDK wrapper and adjusted Makefile.

File:

• tag/last-working/curses.lisp (modified) (5 diffs)

tag/last-working/curses.lisp

@@ -14 +14 @@
 
 (defcfun initscr window*)
+(defcfun clear :int)
 (defcfun endwin :int)
 (defcfun refresh :int)
@@ -22 +23 @@
 (defcfun start-color :int)
 
-(defcvar stdscr :pointer :read-only t)
+(defcfun mvwaddstr :int (win :pointer) (y :int) (x :int) (str :string))
+
+(defcvar *stdscr* :pointer :read-only t)
 
 
@@ -58 +61 @@
 (defcdef req-left-char)
 (defcdef req-right-char)
+(defcdef o-active)
+(defcdef o-autoskip)
 
 (defcfun form2-create :int)
 (defcfun form2-add-field :int (form :int) (row :int) (col :int) (width :int)
-         (height :int) (data-height :int))
+         (height :int) (data-height :int) (opts-mask :int))
 (defcfun form2-destroy :int (form :int))
 (defcfun form2-post :int (form :int))
@@ -68 +73 @@
 (defcfun form2-field-len :int (form :int) (i :int))
 (defcfun form2-copy-field :int (form :int) (i :int) (buff :pointer) (len :int))
+(defcfun form2-set-field :int (form :int) (i :int) (buff :string))
 
 (defun form2-get-value (form i)
@@ -81 +87 @@
   (initscr)
   (start-color)
-  (keypad stdscr 1)
+  (keypad *stdscr* 1)
   (cbreak)
-  (noecho))
+  (noecho)
+  (clear))
 
 (defmacro ncase (keyform &rest clauses)