From 16647d9c5369f40e53813a6019af511020643bcb Mon Sep 17 00:00:00 2001 From: Jaroslav Kysela Date: Wed, 30 Jul 2003 19:14:01 +0000 Subject: Added some hctl_elem functions to alisp --- alsalisp/hctl.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'alsalisp') diff --git a/alsalisp/hctl.lisp b/alsalisp/hctl.lisp index af136664..4d82ede8 100644 --- a/alsalisp/hctl.lisp +++ b/alsalisp/hctl.lisp @@ -44,6 +44,12 @@ (princ "hctl open success: " hctl "\n") (setq hctl (ahandle hctl)) (princ "open hctl: " hctl "\n") + (princ "load hctl: " (acall 'hctl_load hctl) "\n") + (princ "first : " (acall 'hctl_first_elem hctl) "\n") + (princ "last : " (acall 'hctl_last_elem hctl) "\n") + (princ "next (first): " (acall 'hctl_elem_next (acall 'hctl_first_elem hctl)) "\n") + (princ "prev (last) : " (acall 'hctl_elem_prev (acall 'hctl_last_elem hctl)) "\n") + (princ "first info : " (acall 'hctl_elem_info (acall 'hctl_first_elem hctl)) "\n") (setq hctl (acall 'hctl_close hctl)) (if (= hctl 0) (princ "hctl close success\n") -- cgit v1.2.3