diff options
Diffstat (limited to 'src/ChezScheme/rktboot/parse-makefile.rkt')
-rw-r--r-- | src/ChezScheme/rktboot/parse-makefile.rkt | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/ChezScheme/rktboot/parse-makefile.rkt b/src/ChezScheme/rktboot/parse-makefile.rkt deleted file mode 100644 index 92793fc474..0000000000 --- a/src/ChezScheme/rktboot/parse-makefile.rkt +++ /dev/null @@ -1,17 +0,0 @@ -#lang racket/base -(require racket/string) - -(provide get-sources-from-makefile) - -(define (get-sources-from-makefile scheme-dir) - (call-with-input-file* - (build-path scheme-dir "s" "Mf-base") - #:mode 'text - (lambda (i) - (define (extract-files m) - (string-split (regexp-replace* #rx"\\\\" (bytes->string/utf-8 (cadr m)) ""))) - (define bases (extract-files (regexp-match #rx"basesrc =((?:[^\\\n]*\\\\\n)*[^\\\n]*)\n" i))) - (define compilers (extract-files (regexp-match #rx"compilersrc =((?:[^\\\n]*\\\\\n)*[^\\\n]*)\n" i))) - (values bases compilers)))) - - |