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

Timestamp:

09/19/2007 11:06:52 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20070919230652-gcf3h1qwf86lq8j7

Message:

Using my own menu library to ease memory management and pointer logic.

Location:

tag/last-working

Files:

• Makefile (modified) (1 diff)
• curses.lisp (modified) (1 diff)
• menu2.c (modified) (4 diffs)

tag/last-working/Makefile

@@ -1 @@
-menu2.so: menu2
+menu2.so: menu2.c
+        rm -f menu2.so
+        gcc -shared -fPIC -o menu2.so menu2.c -lmenu -Wall -pedantic

tag/last-working/curses.lisp

@@ -22 +22 @@
 
 
-(define-foreign-library menu
-  (t (:default "libmenu")))
+(define-foreign-library menu2
+  (t "/home/dsowen/lisp/tui/menu2.so"))
 
-(use-foreign-library menu)
+(use-foreign-library menu2)
 
-(defctype item* :pointer)
-(defctype menu* :pointer)
-
-(defcfun new-item item* (name :string) (description :string))
-(defcfun free-item :int (item item*))
-(defcfun new-menu menu* (items :pointer))
-(defcfun post-menu :int (menu menu*))
-(defcfun menu-driver :int (menu menu*) (c :int))
+(defcfun menu2-create :int)
+(defcfun menu2-add-item :int (menu :int) (name :string) (description :string))
+(defcfun menu2-destroy :int (menu :int))
+(defcfun menu2-post :int (menu :int))
+(defcfun menu2-drive :int (menu :int) (c :int))
+(defcfun menu2-unpost :int (menu :int))
 
 
-
-(defun make-menu (items)
-  (let* ((items-vector
-          (map 'vector
-               (lambda (item)
-                 (etypecase item
-                   (string (new-item (foreign-string-alloc item) (foreign-string-alloc item)))
-                   (cons (new-item (foreign-string-alloc (car item)) (foreign-string-alloc (cdr item))))))
-               items))
-         (foreign-items (foreign-alloc 'item*
-                                       :count (length items-vector)
-                                       :initial-contents items-vector
-                                       :null-terminated-p t)))
-    (new-menu foreign-items)))
 
 (defun init-screen ()

tag/last-working/menu2.c

@@ -12 +12 @@
         char *item_names[_MAX_ITEMS];
         char *item_descriptions[_MAX_ITEMS];
+        ITEM *item_structs[_MAX_ITEMS + 1];
         int item_count;
+
+        MENU *menu_struct; /* Only set when posted. */
 };
 
@@ -43 +46 @@
 {
         struct menu2_t *m = _menus[menu - 1];
+        int *i;
+
         if(!m) return 0;
 
-        if(m->item_count == _MAX_ITEMS) return 0;
+        i = &(m->item_count);
+        if(*i == _MAX_ITEMS) return 0;
 
-        m->item_names[m->item_count] = strdup(name);
-        m->item_descriptions[m->item_count] =
-                strdup(description ? description : name);
+        m->item_names[*i] = strdup(name);
+        m->item_descriptions[*i] = strdup(description ? description : name);
+        m->item_structs[*i] =
+                new_item(m->item_names[*i], m->item_descriptions[*i]);
         
-        ++m->item_count;
+        ++(*i);
 
         return 1;
@@ -64 +71 @@
 
         for(i = 0; i < m->item_count; i++) {
+                free_item(m->item_structs[i]);
+                free(m->item_descriptions[i]);
                 free(m->item_names[i]);
-                free(m->item_descriptions[i]);
         }
 
@@ -79 +87 @@
 
         if(!m) return 0;
+        if(m->menu_struct) return 0;
 
-        blah
+        m->menu_struct = new_menu(m->item_structs);
+        post_menu(m->menu_struct);
+
+        return 1;
 }
 
-menu2_drive(int, int);
+int menu2_drive(menu2_h menu, int c)
+{
+        struct menu2_t *m = _menus[menu - 1];
+
+        if(!m) return 0;
+        if(!m->menu_struct) return 0;
+
+        menu_driver(m->menu_struct, c);
+
+        return 1;
+}
+
+int menu2_unpost(menu2_h menu)
+{
+        struct menu2_t *m = _menus[menu - 1];
+
+        if(!m) return 0;
+        if(!m->menu_struct) return 0;
+
+        unpost_menu(m->menu_struct);
+        free_menu(m->menu_struct);
+        m->menu_struct = NULL;
+
+        return 1;
+}