(1 . 3)(1 . 8)
18 /*
19 This version de-crudded for therealbitcoin.org.
20 Applied interactive REPL fixups for port redirect mode.
21 */
22
23 /* T I N Y S C H E M E 1 . 4 1
24 * Dimitrios Souflis (dsouflis@acm.org)
25 * Based on MiniScheme (original credits follow)
(13 . 8)(18 . 9)
27 */
28
29 #define _SCHEME_SOURCE
30
31 #include "scheme-knobs.h"
32 #include "scheme-private.h"
33
34 #include <unistd.h>
35 #include <sys/types.h>
36
(28 . 9)(34 . 7)
38
39 #if USE_STRCASECMP
40 #include <strings.h>
41 # ifndef __APPLE__
42 # define stricmp strcasecmp
43 # endif
44 #define stricmp strcasecmp
45 #endif
46
47 const char* tiny_scheme_version = PACKAGE_VERSION;
(65 . 23)(69 . 6)
49 #include <string.h>
50 #include <stdlib.h>
51
52 #ifdef __APPLE__
53 static int stricmp(const char *s1, const char *s2)
54 {
55 unsigned char c1, c2;
56 do {
57 c1 = tolower(*s1);
58 c2 = tolower(*s2);
59 if (c1 < c2)
60 return -1;
61 else if (c1 > c2)
62 return 1;
63 s1++, s2++;
64 } while (c1 != 0);
65 return 0;
66 }
67 #endif /* __APPLE__ */
68
69 #if USE_STRLWR
70 static const char *strlwr(char *s) {
71 const char *p=s;
(4950 . 19)(4937 . 7)
73
74 #if STANDALONE
75
76 #if defined(__APPLE__) && !defined (OSX)
77 int main()
78 {
79 extern MacTS_main(int argc, char **argv);
80 char** argv;
81 int argc = ccommand(&argv);
82 MacTS_main(argc,argv);
83 return 0;
84 }
85 int MacTS_main(int argc, char **argv) {
86 #else
87 int main(int argc, char **argv) {
88 #endif
89 scheme sc;
90 FILE *fin;
91 char *file_name=InitFile;
(5046 . 9)(5021 . 3)
93 }
94
95 #endif
96
97 /*
98 Local variables:
99 c-file-style: "k&r"
100 End:
101 */