Skip to content

Commit f568b71

Browse files
feeleyfeeley
committed
Initial commit
1 parent e1dbda0 commit f568b71

File tree

19 files changed

+2286
-0
lines changed

19 files changed

+2286
-0
lines changed

‎define-library.scm

Lines changed: 608 additions & 0 deletions
Large diffs are not rendered by default.

‎gambit/gambit.sld

Lines changed: 1159 additions & 0 deletions
Large diffs are not rendered by default.

‎install.sh

Lines changed: 53 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,53 @@
1+
#!/bin/sh
2+
3+
echo "*** compiling define-library.scm"
4+
5+
gsc define-library.scm
6+
7+
mkdir github.com
8+
mkdir github.com/feeley
9+
10+
cd github.com/feeley
11+
12+
echo "*** cloning https://github.com/feeley/base64.git"
13+
14+
git clone https://github.com/feeley/base64.git
15+
16+
echo "*** cloning https://github.com/feeley/crypto.git"
17+
18+
git clone https://github.com/feeley/crypto.git
19+
20+
echo "*** cloning https://github.com/feeley/digest.git"
21+
22+
git clone https://github.com/feeley/digest.git
23+
24+
echo "*** cloning https://github.com/feeley/homovector.git"
25+
26+
git clone https://github.com/feeley/homovector.git
27+
28+
echo "*** cloning https://github.com/feeley/nonneg-integer.git"
29+
30+
git clone https://github.com/feeley/nonneg-integer.git
31+
32+
echo "*** cloning https://github.com/feeley/random.git"
33+
34+
git clone https://github.com/feeley/random.git
35+
36+
cd ../..
37+
38+
echo "*** compiling libraries"
39+
40+
gsc -e '(load "define-library")' github.com/feeley/base64/base64.sld
41+
42+
gsc -e '(load "define-library")' github.com/feeley/crypto/aes/aes.sld
43+
gsc -e '(load "define-library")' github.com/feeley/crypto/rsa/rsa.sld
44+
45+
gsc -e '(load "define-library")' github.com/feeley/digest/digest.sld
46+
47+
gsc -e '(load "define-library")' github.com/feeley/homovector/homovector.sld
48+
49+
gsc -e '(load "define-library")' github.com/feeley/nonneg-integer/nonneg-integer.sld
50+
51+
gsc -e '(load "define-library")' github.com/feeley/random/random.sld
52+
53+
echo "*** done!"

‎scheme/base/base.sld

Lines changed: 245 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,245 @@
1+
(define-library (scheme base)
2+
3+
(namespace "")
4+
5+
(export
6+
7+
*
8+
+
9+
-
10+
...
11+
/
12+
<
13+
<=
14+
=
15+
=>
16+
>
17+
>=
18+
abs
19+
and
20+
append
21+
apply
22+
assoc
23+
assq
24+
assv
25+
begin
26+
binary-port?
27+
boolean=?
28+
boolean?
29+
bytevector
30+
bytevector-append
31+
bytevector-copy
32+
bytevector-copy!
33+
bytevector-length
34+
bytevector-u8-ref
35+
bytevector-u8-set!
36+
bytevector?
37+
caar
38+
cadr
39+
call-with-current-continuation
40+
call-with-port
41+
call-with-values
42+
call/cc
43+
car
44+
case
45+
cdar
46+
cddr
47+
cdr
48+
ceiling
49+
char->integer
50+
char-ready?
51+
char<=?
52+
char<?
53+
char=?
54+
char>=?
55+
char>?
56+
char?
57+
close-input-port
58+
close-output-port
59+
close-port
60+
complex?
61+
cond
62+
cond-expand
63+
cons
64+
current-error-port
65+
current-input-port
66+
current-output-port
67+
define
68+
define-record-type
69+
define-syntax
70+
define-values
71+
denominator
72+
do
73+
dynamic-wind
74+
else
75+
eof-object
76+
eof-object?
77+
eq?
78+
equal?
79+
eqv?
80+
error
81+
error-object-irritants
82+
error-object-message
83+
error-object?
84+
even?
85+
exact
86+
exact-integer-sqrt
87+
exact-integer?
88+
exact?
89+
expt
90+
features
91+
file-error?
92+
floor
93+
floor-quotient
94+
floor-remainder
95+
floor/
96+
flush-output-port
97+
for-each
98+
gcd
99+
get-output-bytevector
100+
get-output-string
101+
guard
102+
if
103+
include
104+
include-ci
105+
inexact
106+
inexact?
107+
input-port-open?
108+
input-port?
109+
integer->char
110+
integer?
111+
lambda
112+
lcm
113+
length
114+
let
115+
let*
116+
let*-values
117+
let-syntax
118+
let-values
119+
letrec
120+
letrec*
121+
letrec-syntax
122+
list
123+
list->string
124+
list->vector
125+
list-copy
126+
list-ref
127+
list-set!
128+
list-tail
129+
list?
130+
make-bytevector
131+
make-list
132+
make-parameter
133+
make-string
134+
make-vector
135+
map
136+
max
137+
member
138+
memq
139+
memv
140+
min
141+
modulo
142+
negative?
143+
newline
144+
not
145+
null?
146+
number->string
147+
number?
148+
numerator
149+
odd?
150+
open-input-bytevector
151+
open-input-string
152+
open-output-bytevector
153+
open-output-string
154+
or
155+
output-port-open?
156+
output-port?
157+
pair?
158+
parameterize
159+
peek-char
160+
peek-u8
161+
port?
162+
positive?
163+
procedure?
164+
quasiquote
165+
quote
166+
quotient
167+
raise
168+
raise-continuable
169+
rational?
170+
rationalize
171+
read-bytevector
172+
read-bytevector!
173+
read-char
174+
read-error?
175+
read-line
176+
read-string
177+
read-u8
178+
real?
179+
remainder
180+
reverse
181+
round
182+
set!
183+
set-car!
184+
set-cdr!
185+
square
186+
string
187+
string->list
188+
string->number
189+
string->symbol
190+
string->utf8
191+
string->vector
192+
string-append
193+
string-copy
194+
string-copy!
195+
string-fill!
196+
string-for-each
197+
string-length
198+
string-map
199+
string-ref
200+
string-set!
201+
string<=?
202+
string<?
203+
string=?
204+
string>=?
205+
string>?
206+
string?
207+
substring
208+
symbol->string
209+
symbol=?
210+
symbol?
211+
syntax-error
212+
syntax-rules
213+
textual-port?
214+
truncate
215+
truncate-quotient
216+
truncate-remainder
217+
truncate/
218+
u8-ready?
219+
unless
220+
unquote
221+
unquote-splicing
222+
utf8->string
223+
values
224+
vector
225+
vector->list
226+
vector->string
227+
vector-append
228+
vector-copy
229+
vector-copy!
230+
vector-fill!
231+
vector-for-each
232+
vector-length
233+
vector-map
234+
vector-ref
235+
vector-set!
236+
vector?
237+
when
238+
with-exception-handler
239+
write-bytevector
240+
write-char
241+
write-string
242+
write-u8
243+
zero?
244+
245+
))

‎scheme/case-lambda/case-lambda.sld

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
(define-library (scheme case-lambda)
2+
3+
(namespace "")
4+
5+
(export
6+
7+
case-lambda
8+
9+
))

‎scheme/char/char.sld

Lines changed: 30 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,30 @@
1+
(define-library (scheme char)
2+
3+
(namespace "")
4+
5+
(export
6+
7+
char-alphabetic?
8+
char-ci<=?
9+
char-ci<?
10+
char-ci=?
11+
char-ci>=?
12+
char-ci>?
13+
char-downcase
14+
char-foldcase
15+
char-lower-case?
16+
char-numeric?
17+
char-upcase
18+
char-upper-case?
19+
char-whitespace?
20+
digit-value
21+
string-ci<=?
22+
string-ci<?
23+
string-ci=?
24+
string-ci>=?
25+
string-ci>?
26+
string-downcase
27+
string-foldcase
28+
string-upcase
29+
30+
))

‎scheme/complex/complex.sld

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
(define-library (scheme complex)
2+
3+
(namespace "")
4+
5+
(export
6+
7+
angle
8+
imag-part
9+
magnitude
10+
make-polar
11+
make-rectangular
12+
real-part
13+
14+
))

‎scheme/cxr/cxr.sld

Lines changed: 32 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,32 @@
1+
(define-library (scheme cxr)
2+
3+
(namespace "")
4+
5+
(export
6+
7+
caaaar
8+
caaadr
9+
caaar
10+
caadar
11+
caaddr
12+
caadr
13+
cadaar
14+
cadadr
15+
cadar
16+
caddar
17+
cadddr
18+
caddr
19+
cdaaar
20+
cdaadr
21+
cdaar
22+
cdadar
23+
cdaddr
24+
cdadr
25+
cddaar
26+
cddadr
27+
cddar
28+
cdddar
29+
cddddr
30+
cdddr
31+
32+
))

‎scheme/eval/eval.sld

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
(define-library (scheme eval)
2+
3+
(namespace "")
4+
5+
(export
6+
7+
environment
8+
eval
9+
10+
))

0 commit comments

Comments
 (0)