Changeset 34211 in project


Ignore:
Timestamp:
06/26/17 13:35:57 (5 months ago)
Author:
felix
Message:

autocompile 1.1: removed dependency on regexp egg (thanks to wasamasa)

Location:
release/4/autocompile
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/autocompile/tags/1.1/autocompile.meta

    r23255 r34211  
    66 (author "felix winkelmann")
    77 (license "public domain")
    8  (needs matchable regex)
     8 (needs matchable)
    99 (files "chicken-scheme.scm" "autocompile.setup" "autocompile.release-info" "autocompile.meta"))
  • release/4/autocompile/tags/1.1/autocompile.setup

    r27149 r34211  
    77 'autocompile
    88 '("chicken-scheme")
    9  '((version "1.0")))
     9 '((version "1.1")))
  • release/4/autocompile/tags/1.1/chicken-scheme.scm

    r27149 r34211  
    55
    66(import scheme chicken matchable foreign)
    7 (use files posix ports extras utils regex)
     7(use files posix ports extras utils irregex)
    88
    99
     
    3737
    3838(define +md5sum-regex+
    39   (regexp '(: bos (? #\\) (* space) (submatch (+ xdigit)) (* space))))
     39  (irregex '(: bos (? #\\) (* space) (submatch (+ xdigit)) (* space))))
    4040
    4141(define *md5sum-program*
     
    6767        (lambda ()
    6868          (let ((input (read-line)))
    69             (cond ((string-search +md5sum-regex+ input) => cadr)
     69            (cond ((irregex-search +md5sum-regex+ input) =>
     70                   (lambda (m) (irregex-match-substring m 1)))
    7071                  (else (error "cannot compute md5sum" input))))))))))
    7172
    7273(define scan-head
    73   (let ((rx (regexp " *;[ ;]*AUTOCOMPILE *: *(.*)")))
     74  (let ((rx (irregex " *;[ ;]*AUTOCOMPILE *: *(.*)")))
    7475    (lambda (fname proc)
    7576      (with-input-from-file fname
     
    7980            (let ((ln (read-line)))
    8081              (cond ((eof-object? ln))
    81                     ((string-match rx ln) =>
     82                    ((irregex-match rx ln) =>
    8283                     (lambda (m)
    83                        (proc (cadr m))
     84                       (proc (irregex-match-substring m 1))
    8485                       (loop)))))))))))
    8586
  • release/4/autocompile/trunk/autocompile.meta

    r23255 r34211  
    66 (author "felix winkelmann")
    77 (license "public domain")
    8  (needs matchable regex)
     8 (needs matchable)
    99 (files "chicken-scheme.scm" "autocompile.setup" "autocompile.release-info" "autocompile.meta"))
  • release/4/autocompile/trunk/autocompile.setup

    r27149 r34211  
    77 'autocompile
    88 '("chicken-scheme")
    9  '((version "1.0")))
     9 '((version "1.1")))
  • release/4/autocompile/trunk/chicken-scheme.scm

    r27149 r34211  
    55
    66(import scheme chicken matchable foreign)
    7 (use files posix ports extras utils regex)
     7(use files posix ports extras utils irregex)
    88
    99
     
    3737
    3838(define +md5sum-regex+
    39   (regexp '(: bos (? #\\) (* space) (submatch (+ xdigit)) (* space))))
     39  (irregex '(: bos (? #\\) (* space) (submatch (+ xdigit)) (* space))))
    4040
    4141(define *md5sum-program*
     
    6767        (lambda ()
    6868          (let ((input (read-line)))
    69             (cond ((string-search +md5sum-regex+ input) => cadr)
     69            (cond ((irregex-search +md5sum-regex+ input) =>
     70                   (lambda (m) (irregex-match-substring m 1)))
    7071                  (else (error "cannot compute md5sum" input))))))))))
    7172
    7273(define scan-head
    73   (let ((rx (regexp " *;[ ;]*AUTOCOMPILE *: *(.*)")))
     74  (let ((rx (irregex " *;[ ;]*AUTOCOMPILE *: *(.*)")))
    7475    (lambda (fname proc)
    7576      (with-input-from-file fname
     
    7980            (let ((ln (read-line)))
    8081              (cond ((eof-object? ln))
    81                     ((string-match rx ln) =>
     82                    ((irregex-match rx ln) =>
    8283                     (lambda (m)
    83                        (proc (cadr m))
     84                       (proc (irregex-match-substring m 1))
    8485                       (loop)))))))))))
    8586
Note: See TracChangeset for help on using the changeset viewer.