mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-30 15:35:05 +02:00
55 lines
1.3 KiB
Scheme
55 lines
1.3 KiB
Scheme
;;;; Cyclone Scheme
|
|
;;;; https://github.com/justinethier/cyclone
|
|
;;;;
|
|
;;;; Copyright (c) 2014-2016, Justin Ethier
|
|
;;;; All rights reserved.
|
|
;;;;
|
|
;;;; This module contains definitions used by the compiler and interpreter.
|
|
;;;;
|
|
(define-library (scheme cyclone common)
|
|
(export
|
|
*Cyc-version-banner*
|
|
*version*
|
|
*version-number*
|
|
*version-name*
|
|
*version-banner*
|
|
*c-file-header-comment*)
|
|
(begin
|
|
(define *version-number* "0.1.4")
|
|
(define *version-name* "alpha")
|
|
(define *version* (string-append *version-number* " (" *version-name* ")"))
|
|
|
|
(define *version-banner*
|
|
(string-append "
|
|
:@
|
|
@@@
|
|
@@@@:
|
|
`@@@@@+
|
|
.@@@+@@@ Cyclone
|
|
@@ @@ Scheme-to-C compiler
|
|
,@ http://justinethier.github.io/cyclone/
|
|
'@
|
|
.@
|
|
@@ #@ (c) 2014-2016 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
|
|
** http://justinethier.github.io/cyclone/
|
|
**
|
|
** (c) 2014-2016 Justin Ethier
|
|
** Version " *version* "
|
|
**
|
|
**/
|
|
"))
|
|
|
|
))
|