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

remove final vestiges of gifplot example

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11878 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2010-02-28 00:16:39 +00:00
commit 9c541c340a
7 changed files with 6 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -312,67 +312,6 @@ is no representation."
;; Test instances
#||
#+ignore
(defvar *gifplot-interface*
(run-swig (merge-pathnames "Examples/GIFPlot/Interface/gifplot.i"
*swig-source-directory*)
:directory-search-list (list (merge-pathnames "Examples/GIFPlot/Interface/" *swig-source-directory*))))
(defvar *simple-gifplot-interface*
(run-swig (merge-pathnames "Examples/GIFPlot/Include/gifplot.h"
*swig-source-directory*)
:directory-search-list (list (merge-pathnames "Examples/GIFPlot/Interface/" *swig-source-directory*))
:module "gifplot"))
(defvar *cplex-glue-directory* #p"/home/mkoeppe/cvs/cplex-glue/")
(defvar *cplex-glue-interface*
(run-swig (merge-pathnames "cplex.i" *cplex-glue-directory*)
:directory-search-list (list (merge-pathnames "Lib/guile"
*swig-source-directory*)
*cplex-glue-directory*)
:ignore-errors t))
(require 'uffi)
;;(let ((*uffi-primitive-type-alist* (cons '("Pixel" . :unsigned-int) *uffi-default-primitive-type-alist*)))
;; (eval (cons 'progn (compute-uffi-definitions *simple-gifplot-interface*))))
(with-open-file (f "/tmp/swig-uffi.lisp" :direction :output
:if-exists :supersede)
(let ((*uffi-definitions* '())
(*uffi-output* f)
(*uffi-primitive-type-alist*
(cons '("Pixel" . :unsigned-int) *uffi-default-primitive-type-alist*)))
(apply 'handle-node *simple-gifplot-interface*)))
#+cplex
(with-open-file (f "/tmp/swig-uffi.lisp" :direction :output)
(let ((*uffi-definitions* '())
(*uffi-output* f)
(*uffi-primitive-type-alist*
(cons '("Pixel" . :unsigned-int) *uffi-default-primitive-type-alist*)))
(apply 'handle-node *cplex-glue-interface*)))
(compile-file "/tmp/swig-uffi.lisp")
(uffi:load-foreign-library (merge-pathnames "Examples/GIFPlot/libgifplot.a"
*swig-source-directory*))
(load "/tmp/swig-uffi.lisp")
(load (merge-pathnames "Examples/GIFPlot/Common-Lisp/full/runme.lisp" *swig-source-directory*))
(action (namestring (merge-pathnames "Examples/GIFPlot/Common-Lisp/full/cmap"
*swig-source-directory*)))
||#
;;; Link to SWIG itself
#||