Changeset 35659 in project
- Timestamp:
- 06/21/18 12:25:46 (3 years ago)
- Location:
- release/5/bind
- Files:
-
- 8 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
release/5/bind/tags/1.2/bind-translator.scm
r35584 r35659 27 27 (import srfi-1) 28 28 (import (chicken irregex)) 29 (import regex) 29 30 (import matchable) 30 31 (import (chicken format)) … … 1248 1249 (lambda (rx repl str) 1249 1250 (if (procedure? repl) 1250 (let ([m ( irregex-match rx str)])1251 (let ([m (string-match rx str)]) 1251 1252 (if m (repl m) str) ) 1252 ( irregex-replace/all rx str repl) ) )1253 (string-substitute rx repl str #t) ) ) 1253 1254 (->string str) 1254 1255 name-substitution-rxs -
release/5/bind/tags/1.2/bind.egg
r35584 r35659 1 ((synopsis "Automatically generate bindings from C/C++ declarations") 1 ((version "1.2") 2 (synopsis "Automatically generate bindings from C/C++ declarations") 2 3 (category ffi) 3 4 (license "public domain") -
release/5/bind/tags/1.2/bind.scm
r35584 r35659 73 73 (else 74 74 (syntax-error 'bind-file "invalid filename" f))))) 75 (with-input-from-file fname read- list)))75 (with-input-from-file fname read-string))) 76 76 77 77 (define-syntax bind-file -
release/5/bind/tags/1.2/tests/run.scm
r34025 r35659 4 4 (import (chicken format) 5 5 (chicken pathname) 6 (chicken process)) 6 (chicken process) 7 (chicken process-context)) 7 8 8 9 (define prefix (pathname-directory (car (argv)))) -
release/5/bind/trunk/bind-translator.scm
r35584 r35659 27 27 (import srfi-1) 28 28 (import (chicken irregex)) 29 (import regex) 29 30 (import matchable) 30 31 (import (chicken format)) … … 1248 1249 (lambda (rx repl str) 1249 1250 (if (procedure? repl) 1250 (let ([m ( irregex-match rx str)])1251 (let ([m (string-match rx str)]) 1251 1252 (if m (repl m) str) ) 1252 ( irregex-replace/all rx str repl) ) )1253 (string-substitute rx repl str #t) ) ) 1253 1254 (->string str) 1254 1255 name-substitution-rxs -
release/5/bind/trunk/bind.egg
r35584 r35659 1 ((synopsis "Automatically generate bindings from C/C++ declarations") 1 ((version "1.2") 2 (synopsis "Automatically generate bindings from C/C++ declarations") 2 3 (category ffi) 3 4 (license "public domain") -
release/5/bind/trunk/bind.scm
r35584 r35659 73 73 (else 74 74 (syntax-error 'bind-file "invalid filename" f))))) 75 (with-input-from-file fname read- list)))75 (with-input-from-file fname read-string))) 76 76 77 77 (define-syntax bind-file -
release/5/bind/trunk/tests/run.scm
r34025 r35659 4 4 (import (chicken format) 5 5 (chicken pathname) 6 (chicken process)) 6 (chicken process) 7 (chicken process-context)) 7 8 8 9 (define prefix (pathname-directory (car (argv))))
Note: See TracChangeset
for help on using the changeset viewer.