mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-30 07:25:05 +02:00
42 lines
889 B
Scheme
42 lines
889 B
Scheme
(define-library (scheme cyclone common)
|
|
(export
|
|
*Cyc-version-banner*
|
|
*version*
|
|
*version-banner*
|
|
*c-file-header-comment*)
|
|
(begin
|
|
(define *version* "0.0.3 (Pre-release)")
|
|
|
|
(define *version-banner*
|
|
(string-append "
|
|
:@
|
|
@@@
|
|
@@@@:
|
|
`@@@@@+
|
|
.@@@+@@@ Cyclone
|
|
@@ @@ Scheme-to-C compiler
|
|
,@ https://github.com/justinethier/cyclone
|
|
'@
|
|
.@
|
|
@@ #@ (c) 2014 Justin Ethier
|
|
`@@@#@@@. Version " *version* "
|
|
#@@@@@
|
|
+@@@+
|
|
@@#
|
|
`@.
|
|
|
|
"))
|
|
|
|
(define *Cyc-version-banner* *version-banner*)
|
|
|
|
(define *c-file-header-comment*
|
|
(string-append "/**
|
|
** This file was automatically generated by the Cyclone scheme compiler
|
|
**
|
|
** (c) 2014 Justin Ethier
|
|
** Version " *version* "
|
|
**
|
|
**/
|
|
"))
|
|
|
|
))
|