jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4952 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2003-07-06 22:00:22 +00:00
commit 73ae74f7e6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Examples/s-exp/uffi.lisp
View file

@ -15,7 +15,7 @@
(defvar *swig-source-directory* #p"/home/mkoeppe/s/swig1.3/")
(defvar *swig-program* (merge-pathnames "swig-1.3" *swig-source-directory*))
(defvar *swig-program* (merge-pathnames "swig" *swig-source-directory*))
(defun run-swig (swig-interface-file-name &key directory-search-list module
ignore-errors)
@ -73,7 +73,7 @@ the terminating index into TYPE-STRING."
((prefix-match "r.") ; C++ reference
(cons-and-recurse '& (+ start 2) end))
((prefix-match "a(") ; array
(let ((closing-paren (find #\) type-string
(let ((closing-paren (position #\) type-string
:start (+ start 2)
:end end)))
(unless closing-paren
@ -83,7 +83,7 @@ the terminating index into TYPE-STRING."
(cons-and-recurse (list 'ARRAY (subseq type-string (+ start 2) closing-paren))
(+ closing-paren 2) end)))
((prefix-match "q(") ; qualifier (const, volatile)
(let ((closing-paren (find #\) type-string
(let ((closing-paren (position #\) type-string
:start (+ start 2)
:end end)))
(unless closing-paren