Changeset 35659 in project


Ignore:
Timestamp:
06/21/18 12:25:46 (5 months ago)
Author:
kooda
Message:

Fix a few bugs and incompatibilities in the CHICKEN 5 port of the bind egg.

Location:
release/5/bind
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/bind/tags/1.2/bind-translator.scm

    r35584 r35659  
    2727(import srfi-1)
    2828(import (chicken irregex))
     29(import regex)
    2930(import matchable)
    3031(import (chicken format))
     
    12481249                   (lambda (rx repl str)
    12491250                     (if (procedure? repl)
    1250                          (let ([m (irregex-match rx str)])
     1251                         (let ([m (string-match rx str)])
    12511252                           (if m (repl m) str) )
    1252                          (irregex-replace/all rx str repl) ) )
     1253                         (string-substitute rx repl str #t) ) )
    12531254                   (->string str)
    12541255                   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")
    23 (category ffi)
    34 (license "public domain")
  • release/5/bind/tags/1.2/bind.scm

    r35584 r35659  
    7373               (else
    7474                (syntax-error 'bind-file "invalid filename" f)))))
    75     (with-input-from-file fname read-list)))
     75    (with-input-from-file fname read-string)))
    7676
    7777(define-syntax bind-file
  • release/5/bind/tags/1.2/tests/run.scm

    r34025 r35659  
    44(import (chicken format)
    55        (chicken pathname)
    6         (chicken process))
     6        (chicken process)
     7        (chicken process-context))
    78
    89(define prefix (pathname-directory (car (argv))))
  • release/5/bind/trunk/bind-translator.scm

    r35584 r35659  
    2727(import srfi-1)
    2828(import (chicken irregex))
     29(import regex)
    2930(import matchable)
    3031(import (chicken format))
     
    12481249                   (lambda (rx repl str)
    12491250                     (if (procedure? repl)
    1250                          (let ([m (irregex-match rx str)])
     1251                         (let ([m (string-match rx str)])
    12511252                           (if m (repl m) str) )
    1252                          (irregex-replace/all rx str repl) ) )
     1253                         (string-substitute rx repl str #t) ) )
    12531254                   (->string str)
    12541255                   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")
    23 (category ffi)
    34 (license "public domain")
  • release/5/bind/trunk/bind.scm

    r35584 r35659  
    7373               (else
    7474                (syntax-error 'bind-file "invalid filename" f)))))
    75     (with-input-from-file fname read-list)))
     75    (with-input-from-file fname read-string)))
    7676
    7777(define-syntax bind-file
  • release/5/bind/trunk/tests/run.scm

    r34025 r35659  
    44(import (chicken format)
    55        (chicken pathname)
    6         (chicken process))
     6        (chicken process)
     7        (chicken process-context))
    78
    89(define prefix (pathname-directory (car (argv))))
Note: See TracChangeset for help on using the changeset viewer.