/[cparse]/cparse/02debug.lisp
ViewVC logotype

Contents of /cparse/02debug.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Mon Nov 29 20:24:06 2004 UTC (9 years, 4 months ago) by clynbech
Branch: MAIN
CVS Tags: HEAD
Renamed old 01debug.lisp to 02debug.lisp

added new 01debug.lisp with a handwritten dirtest version
1 (load "00debug.lisp")
2
3 (defun dir-test-0 ()
4 (format t "~%~%============~%")
5 (uffi-alien:make-alien-defs '("/usr/include/sys/types.h"
6 "/usr/include/dirent.h")
7 :file "dir-test-ffi.lisp"
8 :compile t :load t))
9
10 (defun dir-test-1 ()
11 (let* ((name (uffi:convert-to-foreign-string "/home/tedchly"))
12 (handle (opendir name)))
13 (uffi:with-foreign-object (entry '(* (:struct dirent)))
14 (setq entry (readdir handle)))
15 (format t "Entry: ~S~%" entry)
16
17 ))

  ViewVC Help
Powered by ViewVC 1.1.5