Changeset tag,last-working,18 for tag/last-working

Timestamp:

11/02/2007 11:38:39 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071102233839-m98t0la9903jzudj

Message:

First pass at wrapping ncurses basics: lexical screens and der-windows.

File:

• tag/last-working/cdk.lisp (modified) (3 diffs)

tag/last-working/cdk.lisp

@@ -1 +1 @@
 (defpackage #:cdk
-  (:use #:cl #:cffi))
+  (:use #:cl #:cffi)
+  (:export #:with-screen #:with-der-window))
 
 (in-package #:cdk)
@@ -30 +31 @@
 (defcfun ("endwin" c-end-curses) :int)
 
+(defmacro with-screen ((screen) &body body)
+  `(let ((,screen (c-init-curses-screen)))
+     (unwind-protect (progn ,@body)
+       (c-end-curses))))
+
 (defcfun ("initCDKScreen" c-init-cdk-screen) :pointer
   (curseswindow :pointer))
@@ -68 +74 @@
 (defcfun ("delwin" c-delete-window) :int
   (window :pointer))
+
+(defmacro with-der-window ((window parent lines columns y x) &body body)
+  `(let ((,window (c-der-window ,parent ,lines ,columns ,y ,x)))
+     (when (null-pointer-p ,window)
+       ;; TODO: Replace this with a condition and a restart.
+       (error "Couldn't create window."))
+     (unwind-protect (progn ,@body)
+       (c-delete-window ,window))))
 
 (defcfun ("box" c-box) :int