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

03/15/2006: mutandiz

Browse source 
[allegrocl]
	    Generate wrappers for constants when in C++ or -cwrap mode.
	    Make -cwrap the default, since it is most correct. Users
	    can use the -nocwrap option to avoid the creation of a .cxx
	    file when interfacing to C code.

	    When in -nocwrap mode, improve the handling of converting
 	    infix literals to prefix notation for lisp. This is very
	    basic and not likely to be improved upon since this only
	    applies to the -nocwrap case. Literals we can't figure out
	    will result in a warning and be included in the generated
	    code.

	    validIdentifier now more closely approximates what may be
	    a legal common lisp symbol.

	    Fix typemap error in allegrocl.swg


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9009 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Mikel Bancroft 2006-03-16 18:11:25 +00:00
commit a82b71b328
3 changed files with 158 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Lib/allegrocl/allegrocl.swg
View file

@ -19,7 +19,7 @@
%typemap(lout) SWIGTYPE[ANY], SWIGTYPE *,
SWIGTYPE & "(push (make-instance '$lclass :foreign-address $body) ACL_result)";
%typemap(lout) SWIGTYPE "(let* ((address $body)\n (new-inst (make-instance '$lclass :foreign-address address)))\n (unless (zerop address)\n (excl:schedule-finalization ACL_result #'$ldestructor))\n (push new-inst ACL_result))";
%typemap(lout) SWIGTYPE "(let* ((address $body)\n (new-inst (make-instance '$lclass :foreign-address address)))\n (unless (zerop address)\n (excl:schedule-finalization new-inst #'$ldestructor))\n (push new-inst ACL_result))";
%typemap(lisptype) bool "boolean";
%typemap(lisptype) char "character";