mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15: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.9.1")
|
|
(define *version-name* "")
|
|
(define *version* (string-append *version-number* " " *version-name* ""))
|
|
|
|
(define *version-banner*
|
|
(string-append "
|
|
:@
|
|
@@@
|
|
@@@@:
|
|
`@@@@@+
|
|
.@@@+@@@
|
|
@@ @@ Cyclone Scheme->C compiler
|
|
,@ http://justinethier.github.io/cyclone/
|
|
'@
|
|
.@ (c) 2014-2018 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-2018 Justin Ethier
|
|
** Version " *version* "
|
|
**
|
|
**/
|
|
"))
|
|
|
|
))
|