2512
((3) 0 () 3 ((q lib "dynext/file.rkt") (q lib "dynext/link.rkt") (q lib "dynext/compile.rkt")) () (h ! (equal) ((c def c (c (? . 2) q current-extension-compiler-flags)) q (478 . 7)) ((c def c (c (? . 0) q extract-base-filename/kp)) q (4651 . 4)) ((c def c (c (? . 1) q link-variant)) q (3520 . 4)) ((q def ((lib "dynext/compile-unit.rkt") dynext:compile@)) q (2160 . 2)) ((c def c (c (? . 0) q append-c-suffix)) q (4165 . 3)) ((c def c (c (? . 1) q use-standard-linker)) q (3669 . 3)) ((c def c (c (? . 0) q append-zo-suffix)) q (4019 . 3)) ((c def c (c (? . 1) q current-extension-linker-flags)) q (2571 . 5)) ((c def c (c (? . 2) q get-standard-compilers)) q (1945 . 2)) ((q form ((lib "dynext/file-sig.rkt") dynext:file^)) q (5029 . 2)) ((c def c (c (? . 1) q expand-for-link-variant)) q (3771 . 5)) ((c def c (c (? . 1) q current-use-mzdyn)) q (3405 . 4)) ((c def c (c (? . 0) q extract-base-filename/o)) q (4777 . 4)) ((q form ((lib "dynext/link-sig.rkt") dynext:link^)) q (3953 . 2)) ((q def ((lib "dynext/file-unit.rkt") dynext:file@)) q (5066 . 2)) ((c def c (c (? . 0) q extract-base-filename/c)) q (4526 . 4)) ((c def c (c (? . 1) q link-extension)) q (2192 . 7)) ((c def c (c (? . 2) q current-make-compile-include-strings)) q (806 . 5)) ((c def c (c (? . 0) q extract-base-filename/ext)) q (4902 . 4)) ((c def c (c (? . 2) q current-extension-preprocess-flags)) q (1440 . 5)) ((c def c (c (? . 0) q append-constant-pool-suffix)) q (4230 . 3)) ((c def c (c (? . 2) q compile-variant)) q (1688 . 4)) ((c def c (c (? . 0) q append-object-suffix)) q (4095 . 3)) ((q def ((lib "dynext/link-unit.rkt") dynext:link@)) q (3990 . 2)) ((q form ((lib "dynext/compile-sig.rkt") dynext:compile^)) q (2120 . 2)) ((c def c (c (? . 2) q current-make-compile-input-strings)) q (1006 . 5)) ((c def c (c (? . 1) q current-extension-linker)) q (2418 . 4)) ((c def c (c (? . 0) q append-extension-suffix)) q (4317 . 3)) ((c def c (c (? . 1) q current-make-link-input-strings)) q (2797 . 5)) ((c def c (c (? . 1) q current-standard-link-libraries)) q (3179 . 5)) ((c def c (c (? . 0) q extract-base-filename/ss)) q (4400 . 4)) ((c def c (c (? . 2) q expand-for-compile-variant)) q (2003 . 3)) ((c def c (c (? . 2) q compile-extension)) q (0 . 9)) ((c def c (c (? . 2) q current-make-compile-output-strings)) q (1222 . 5)) ((c def c (c (? . 2) q use-standard-compiler)) q (1843 . 3)) ((c def c (c (? . 2) q current-extension-compiler)) q (317 . 4)) ((c def c (c (? . 1) q current-make-link-output-strings)) q (2987 . 5))))
procedure
(compile-extension quiet?            
                   input-file        
                   output-file       
                   include-dirs) -> any/c
  quiet? : any/c
  input-file : path-string?
  output-file : path-string?
  include-dirs : (listof path-string?)
parameter
(current-extension-compiler) -> (or/c path-string? #f)
(current-extension-compiler compiler) -> void?
  compiler : (or/c path-string? #f)
parameter
(current-extension-compiler-flags)
 -> (listof (or/c path-string?
                  (-> (or/c null? (listof string?)))))
(current-extension-compiler-flags flags) -> void?
  flags : (listof (or/c path-string?
                        (-> (or/c null? (listof string?)))))
parameter
(current-make-compile-include-strings)
 -> (-> path-string? (listof string?))
(current-make-compile-include-strings proc) -> void?
  proc : (-> path-string? (listof string?))
parameter
(current-make-compile-input-strings)
 -> (-> (or/c string? path?) (listof string?))
(current-make-compile-input-strings proc) -> void?
  proc : (-> (or/c string? path?) (listof string?))
parameter
(current-make-compile-output-strings)
 -> (-> (or/c string? path?) (listof string?))
(current-make-compile-output-strings proc) -> void?
  proc : (-> (or/c string? path?) (listof string?))
parameter
(current-extension-preprocess-flags)
 -> (listof (or/c string? path? (-> (or/c string? path?))))
(current-extension-preprocess-flags flags) -> void?
  flags : (listof (or/c string? path? (-> (or/c string? path?))))
parameter
(compile-variant) -> (or/c 'normal 'cgc '3m)
(compile-variant variant-symbol) -> void?
  variant-symbol : (or/c 'normal 'cgc '3m)
procedure
(use-standard-compiler name) -> any
  name : (apply or/c (get-standard-compilers))
procedure
(get-standard-compilers) -> (listof symbol?)
procedure
(expand-for-compile-variant l) -> any
  l : (listof (or/c path-string? (-> (listof string?))))
signature
dynext:compile^ : signature
value
dynext:compile@ : unit?
procedure
(link-extension quiet?           
                input-files      
                output-file) -> any
  quiet? : any/c
  input-files : (listof path-string?)
  output-file : path-string?
parameter
(current-extension-linker) -> (or/c path-string? #f)
(current-extension-linker linker) -> void?
  linker : (or/c path-string? #f)
parameter
(current-extension-linker-flags)
 -> (listof (or/c path-string? (-> (listof string?))))
(current-extension-linker-flags flags) -> void?
  flags : (listof (or/c path-string? (-> (listof string?))))
parameter
(current-make-link-input-strings)
 -> (-> path-string? (listof string?))
(current-make-link-input-strings proc) -> void?
  proc : (-> path-string? (listof string?))
parameter
(current-make-link-output-strings)
 -> (-> path-string? (listof string?))
(current-make-link-output-strings proc) -> void?
  proc : (-> path-string? (listof string?))
parameter
(current-standard-link-libraries)
 -> (listof (or/c path-string? (-> (listof string?))))
(current-standard-link-libraries libs) -> void?
  libs : (listof (or/c path-string? (-> (listof string?))))
parameter
(current-use-mzdyn) -> boolean?
(current-use-mzdyn use-mzdyn?) -> void?
  use-mzdyn? : boolean?
parameter
(link-variant) -> (or/c 'normal 'cgc '3m)
(link-variant variant-symbol) -> void?
  variant-symbol : (or/c 'normal 'cgc '3m)
procedure
(use-standard-linker name) -> void?
  name : (or/c 'cc 'gcc 'msvc 'borland 'cw)
procedure
(expand-for-link-variant l) -> any
  l : (listof (or/c path?
                    string?
                    (-> (listof string?))))
signature
dynext:link^ : signature
value
dynext:link@ : unit?
procedure
(append-zo-suffix s) -> path?
  s : (or/c string? path?)
procedure
(append-object-suffix s) -> path?
  s : path-string?
procedure
(append-c-suffix s) -> path?
  s : path-string?
procedure
(append-constant-pool-suffix s) -> path?
  s : (or/c string? path?)
procedure
(append-extension-suffix s) -> path?
  s : (or/c string? path?)
procedure
(extract-base-filename/ss s [program]) -> (or/c path? #f)
  s : path-string?
  program : any/c = #f
procedure
(extract-base-filename/c s [program]) -> (or/c path? #f)
  s : path-string?
  program : any/c = #f
procedure
(extract-base-filename/kp s [program]) -> (or/c path? #f)
  s : path-string?
  program : any/c = #f
procedure
(extract-base-filename/o s [program]) -> (or/c path? #f)
  s : path-string?
  program : any/c = #f
procedure
(extract-base-filename/ext s [program]) -> (or/c path? #f)
  s : path-string?
  program : any/c = #f
signature
dynext:file^ : signature
value
dynext:file@ : unit?
