suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make plot work right in 3m

Browse Source 
svn: r2876
This commit is contained in:
Matthew Flatt 2006-05-09 12:48:20 +00:00
parent 24f8896c8d
commit d1b9071732
3 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/plot/fit-low-level.ss
View File

@ -4,7 +4,7 @@
(define libfit (define libfit
(ffi-lib (build-path (this-expression-source-directory) (ffi-lib (build-path (this-expression-source-directory)
"compiled" "native" (system-library-subpath) "compiled" "native" (system-library-subpath #f)
"libfit"))) "libfit")))
(define do-fit-int (define do-fit-int

21
collects/plot/plplot.ss
View File

@ -6,13 +6,26 @@
(define libplplot (define libplplot
(ffi-lib (ffi-lib
(build-path (this-expression-source-directory) (build-path (this-expression-source-directory)
"compiled" "native" (system-library-subpath) "libplplot"))) "compiled" "native" (system-library-subpath #f) "libplplot")))
(define plplotlibdir (get-ffi-obj "plplotLibDir" libplplot _string)) (define plplotlibdir (get-ffi-obj "plplotLibDir" libplplot _string))
;; set the lib dir to contain the fonts. ;; set the lib dir to contain the fonts:
(set-ffi-obj! "plplotLibDir" libplplot _string (let ([path (this-expression-source-directory)])
(path->string (this-expression-source-directory))) ;; free current pointer, if any:
(let ([p (get-ffi-obj "plplotLibDir" libplplot _pointer)])
(when p (free p)))
;; install new value:
(set-ffi-obj! "plplotLibDir" libplplot _bytes
;; malloc the string, since the GC won't see the static variable:
(let* ([gced-bytes (path->bytes path)]
[len (bytes-length gced-bytes)]
[p (malloc (add1 len) 'raw)]
[malloced-bytes (make-sized-byte-string p len)])
(bytes-copy! malloced-bytes 0 gced-bytes)
;; set nul terminator:
(ptr-set! p _byte len 0)
malloced-bytes)))
(define _plflt _double*) (define _plflt _double*)
(define _plint _int) (define _plint _int)

2
collects/plot/pre-installer.ss
View File

@ -9,7 +9,7 @@
(define tmp-dir (build-path src-dir "tmp")) (define tmp-dir (build-path src-dir "tmp"))
(define dir->libname '(["all" "libplplot"] ["fit" "libfit"])) (define dir->libname '(["all" "libplplot"] ["fit" "libfit"]))
(define native-dir (define native-dir
(build-path top-dir "compiled" "native" (system-library-subpath))) (build-path top-dir "compiled" "native" (system-library-subpath #f)))
(define (build-library lib) (define (build-library lib)
(when (and (directory-exists? lib) (when (and (directory-exists? lib)