a937d18c38
* build.sh: Rewrite. * build-aux/build-cc.sh: New file. * build-aux/build-mes.sh: New file. * build-aux/build-mlibc.sh: New file. * build-aux/cc.sh: New file. * build-aux/cc-mes.sh: New file. * build-aux/cc-mlibc.sh: New file. * install.sh: Update. * make.scm: Remove. * guile/guix/make.scm: Remove. * guile/guix/records.scm: Remove. * guile/guix/shell-utilsg.scm: Remove.
61 lines
944 B
Scheme
Executable file
61 lines
944 B
Scheme
Executable file
#! /bin/sh
|
|
# -*-scheme-*-
|
|
# ***REMOVE THIS BLOCK COMMENT INITIALLY***
|
|
MES=${MES-$(dirname $0)/../src/mes}
|
|
$MES -s $0
|
|
exit $?
|
|
!#
|
|
|
|
0
|
|
cons
|
|
(cons 0 1)
|
|
(display 0) (newline)
|
|
#t
|
|
#f
|
|
(display #t) (newline)
|
|
(display #f) (newline)
|
|
'foo
|
|
(display 'foo) (newline)
|
|
(display #o77) (newline)
|
|
(display #o-6) (newline)
|
|
(display #x16) (newline)
|
|
(display #x-16) (newline)
|
|
(display #\A) (newline)
|
|
(display #\newline) (newline)
|
|
#\alarm
|
|
#\backspace
|
|
#\tab
|
|
#\newline
|
|
#\vtab
|
|
#\page
|
|
#\return
|
|
#\space
|
|
(display "\"")
|
|
(display "\\")
|
|
(display "\\\"\"\\")
|
|
(display 'foo)(newline)
|
|
(display '(foo))(newline)
|
|
(display '('foo))(newline)
|
|
(display (cdr '(car . cdr))) (newline)
|
|
(display "foo bar") (newline)
|
|
;;barf
|
|
#!
|
|
barf
|
|
!#
|
|
#|
|
|
burp
|
|
|#
|
|
#;(bla) (display "must see!\n")
|
|
(display
|
|
(lambda (x)
|
|
#;()#t)
|
|
)
|
|
(display #(0 1 2)) (newline)
|
|
(display (list '(foo
|
|
#! boo !#
|
|
;;(bb 4)
|
|
)
|
|
))
|
|
(newline)
|
|
;; TODO: syntax, unsyntax, unsyntax-splicing
|