tree checksum vpatch file split hunks
all signers:
antecedents: asciilifeform_tinyscheme_snip_crud_fixed asciilifeform_tinyscheme_repl_fix_fixed
press order:
| tinyscheme_genesis_fixed | |
| asciilifeform_tinyscheme_snip_crud_fixed | |
| asciilifeform_tinyscheme_repl_fix_fixed | |
| asciilifeform_tinyscheme_shiva_bridge |
patch:
(0 . 0)(1 . 9)
5 #ifndef SCHEME_KNOBS_H
6 #define SCHEME_KNOBS_H
7
8 #define STANDALONE 0
9 #define USE_INTERFACE 1
10 #define USE_MATH 1
11 #define prompt "#>"
12
13 #endif
- 6FD96891D2F0C28183F034B595636C7D53FA0867354702C6D9B72117C6203DDD205AC1B3A9572976F4E451345AD3EB2DF538BE8391280276879294C9E42145E1(1 . 3)(1 . 8)- B0B63FF8B7CCF6A181C6E5AC8941801661AC03F57DDF743B11AFB3F9F53108428CB3C85E5D8876508D4D412A671F49E3518B1D7847A03592516F23B679D61FD3
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 */
(3 . 6)(3 . 10)
106 #ifndef _SCHEME_H
107 #define _SCHEME_H
108
109 #include "scheme-knobs.h"
110
111 #define PACKAGE_VERSION "TRB"
112
113 #include <stdio.h>
114
115 #ifdef __cplusplus