scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Snapshot for 0.6.0.

This commit is contained in:
mainzelm 2002-01-09 16:33:20 +00:00
parent 8cae40fc69
commit 4bff8f3027
6 changed files with 4845 additions and 4731 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
build/initial.image
View File

Binary file not shown.

164
c/scheme48heap.c
View File

@ -69,7 +69,7 @@ static long Simported_bindingsS;
static long Sexported_bindingsS; static long Sexported_bindingsS;
static long Sresumer_recordsS; static long Sresumer_recordsS;
static char SinitializingPS; static char SinitializingPS;
static long Hthe_record_type9260; static long Hthe_record_type9310;
char * s48_ShpS; char * s48_ShpS;
char * s48_SlimitS; char * s48_SlimitS;
@ -922,8 +922,8 @@ long s48_find_all(long type_123X)
char * merged_arg0K1; char * merged_arg0K1;
char * merged_arg0K0; char * merged_arg0K0;
int Hproc923124_return_tag; int Hproc928124_return_tag;
char Hproc9231240_return_value; char Hproc9281240_return_value;
char * start_125X; char * start_125X;
char * end_126X; char * end_126X;
char * next_142X; char * next_142X;
@ -948,10 +948,10 @@ long s48_find_all(long type_123X)
s48_ShpS = ((s48_ShpS) + 4); s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS); merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_127X; merged_arg0K1 = start_hp_127X;
Hproc923124_return_tag = 0; Hproc928124_return_tag = 0;
goto Hproc923124; goto Hproc928124;
Hproc923124_return_0: Hproc928124_return_0:
v_128X = Hproc9231240_return_value; v_128X = Hproc9281240_return_value;
if (v_128X) { if (v_128X) {
if ((0 < (Simpure_area_countS))) { if ((0 < (Simpure_area_countS))) {
areas_129X = Simpure_areasS; areas_129X = Simpure_areasS;
@ -968,10 +968,10 @@ long s48_find_all(long type_123X)
if ((i_132X < count_131X)) { if ((i_132X < count_131X)) {
merged_arg0K0 = (*(areas_129X + i_132X)); merged_arg0K0 = (*(areas_129X + i_132X));
merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X))); merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X)));
Hproc923124_return_tag = 1; Hproc928124_return_tag = 1;
goto Hproc923124; goto Hproc928124;
Hproc923124_return_1: Hproc928124_return_1:
v_133X = Hproc9231240_return_value; v_133X = Hproc9281240_return_value;
if (v_133X) { if (v_133X) {
arg1K0 = (1 + i_132X); arg1K0 = (1 + i_132X);
goto L5578;} goto L5578;}
@ -996,10 +996,10 @@ long s48_find_all(long type_123X)
if ((i_137X < count_136X)) { if ((i_137X < count_136X)) {
merged_arg0K0 = (*(areas_134X + i_137X)); merged_arg0K0 = (*(areas_134X + i_137X));
merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X))); merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X)));
Hproc923124_return_tag = 2; Hproc928124_return_tag = 2;
goto Hproc923124; goto Hproc928124;
Hproc923124_return_2: Hproc928124_return_2:
v_138X = Hproc9231240_return_value; v_138X = Hproc9281240_return_value;
if (v_138X) { if (v_138X) {
arg1K0 = (1 + i_137X); arg1K0 = (1 + i_137X);
goto L5599;} goto L5599;}
@ -1010,7 +1010,7 @@ long s48_find_all(long type_123X)
L5525: { L5525: {
*((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8))); *((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8)));
return (3 + (((long) (start_hp_127X + 4))));} return (3 + (((long) (start_hp_127X + 4))));}
Hproc923124: { Hproc928124: {
start_125X = merged_arg0K0; start_125X = merged_arg0K0;
end_126X = merged_arg0K1;{ end_126X = merged_arg0K1;{
type_139X = Sfinding_typeS; type_139X = Sfinding_typeS;
@ -1029,23 +1029,23 @@ long s48_find_all(long type_123X)
arg0K0 = next_142X; arg0K0 = next_142X;
goto L4504;} goto L4504;}
else { else {
Hproc9231240_return_value = 0; Hproc9281240_return_value = 0;
goto Hproc923124_return;}} goto Hproc928124_return;}}
else { else {
arg0K0 = next_142X; arg0K0 = next_142X;
goto L4504;}} goto L4504;}}
else { else {
ps_write_string("heap is in an inconsistent state.", (stderr)); ps_write_string("heap is in an inconsistent state.", (stderr));
Hproc9231240_return_value = 0; Hproc9281240_return_value = 0;
goto Hproc923124_return;}} goto Hproc928124_return;}}
else { else {
Hproc9231240_return_value = 1; Hproc9281240_return_value = 1;
goto Hproc923124_return;}} goto Hproc928124_return;}}
Hproc923124_return: Hproc928124_return:
switch (Hproc923124_return_tag) { switch (Hproc928124_return_tag) {
case 0: goto Hproc923124_return_0; case 0: goto Hproc928124_return_0;
case 1: goto Hproc923124_return_1; case 1: goto Hproc928124_return_1;
default: goto Hproc923124_return_2; default: goto Hproc928124_return_2;
}} }}
} }
@ -1450,8 +1450,8 @@ long s48_find_all_records(long record_type_193X)
char * merged_arg0K1; char * merged_arg0K1;
char * merged_arg0K0; char * merged_arg0K0;
int Hproc969194_return_tag; int Hproc974194_return_tag;
char Hproc9691940_return_value; char Hproc9741940_return_value;
char * start_195X; char * start_195X;
char * end_196X; char * end_196X;
long obj_213X; long obj_213X;
@ -1471,17 +1471,17 @@ long s48_find_all_records(long record_type_193X)
char * *areas_199X; char * *areas_199X;
char v_198X; char v_198X;
char * start_hp_197X; char * start_hp_197X;
{ Hthe_record_type9260 = record_type_193X; { Hthe_record_type9310 = record_type_193X;
Sfinding_typeS = 8; Sfinding_typeS = 8;
start_hp_197X = s48_ShpS; start_hp_197X = s48_ShpS;
*((long *) (s48_ShpS)) = 0; *((long *) (s48_ShpS)) = 0;
s48_ShpS = ((s48_ShpS) + 4); s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS); merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_197X; merged_arg0K1 = start_hp_197X;
Hproc969194_return_tag = 0; Hproc974194_return_tag = 0;
goto Hproc969194; goto Hproc974194;
Hproc969194_return_0: Hproc974194_return_0:
v_198X = Hproc9691940_return_value; v_198X = Hproc9741940_return_value;
if (v_198X) { if (v_198X) {
if ((0 < (Simpure_area_countS))) { if ((0 < (Simpure_area_countS))) {
areas_199X = Simpure_areasS; areas_199X = Simpure_areasS;
@ -1498,10 +1498,10 @@ long s48_find_all_records(long record_type_193X)
if ((i_202X < count_201X)) { if ((i_202X < count_201X)) {
merged_arg0K0 = (*(areas_199X + i_202X)); merged_arg0K0 = (*(areas_199X + i_202X));
merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X))); merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X)));
Hproc969194_return_tag = 1; Hproc974194_return_tag = 1;
goto Hproc969194; goto Hproc974194;
Hproc969194_return_1: Hproc974194_return_1:
v_203X = Hproc9691940_return_value; v_203X = Hproc9741940_return_value;
if (v_203X) { if (v_203X) {
arg1K0 = (1 + i_202X); arg1K0 = (1 + i_202X);
goto L5743;} goto L5743;}
@ -1526,10 +1526,10 @@ long s48_find_all_records(long record_type_193X)
if ((i_207X < count_206X)) { if ((i_207X < count_206X)) {
merged_arg0K0 = (*(areas_204X + i_207X)); merged_arg0K0 = (*(areas_204X + i_207X));
merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X))); merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X)));
Hproc969194_return_tag = 2; Hproc974194_return_tag = 2;
goto Hproc969194; goto Hproc974194;
Hproc969194_return_2: Hproc974194_return_2:
v_208X = Hproc9691940_return_value; v_208X = Hproc9741940_return_value;
if (v_208X) { if (v_208X) {
arg1K0 = (1 + i_207X); arg1K0 = (1 + i_207X);
goto L5764;} goto L5764;}
@ -1540,7 +1540,7 @@ long s48_find_all_records(long record_type_193X)
L5690: { L5690: {
*((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8))); *((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8)));
return (3 + (((long) (start_hp_197X + 4))));} return (3 + (((long) (start_hp_197X + 4))));}
Hproc969194: { Hproc974194: {
start_195X = merged_arg0K0; start_195X = merged_arg0K0;
end_196X = merged_arg0K1;{ end_196X = merged_arg0K1;{
type_209X = Sfinding_typeS; type_209X = Sfinding_typeS;
@ -1554,15 +1554,15 @@ long s48_find_all_records(long record_type_193X)
if ((2 == (3 & d_211X))) { if ((2 == (3 & d_211X))) {
if ((type_209X == (31 & (((d_211X)>>2))))) { if ((type_209X == (31 & (((d_211X)>>2))))) {
obj_213X = 3 + (((long) (addr_210X + 4))); obj_213X = 3 + (((long) (addr_210X + 4)));
if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9260))) { if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9310))) {
if ((((s48_ShpS) + 16) < (s48_SlimitS))) { if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
*((long *) (s48_ShpS)) = obj_213X; *((long *) (s48_ShpS)) = obj_213X;
s48_ShpS = ((s48_ShpS) + 4); s48_ShpS = ((s48_ShpS) + 4);
arg0K0 = next_212X; arg0K0 = next_212X;
goto L4671;} goto L4671;}
else { else {
Hproc9691940_return_value = 0; Hproc9741940_return_value = 0;
goto Hproc969194_return;}} goto Hproc974194_return;}}
else { else {
arg0K0 = next_212X; arg0K0 = next_212X;
goto L4671;}} goto L4671;}}
@ -1571,16 +1571,16 @@ long s48_find_all_records(long record_type_193X)
goto L4671;}} goto L4671;}}
else { else {
ps_write_string("heap is in an inconsistent state.", (stderr)); ps_write_string("heap is in an inconsistent state.", (stderr));
Hproc9691940_return_value = 0; Hproc9741940_return_value = 0;
goto Hproc969194_return;}} goto Hproc974194_return;}}
else { else {
Hproc9691940_return_value = 1; Hproc9741940_return_value = 1;
goto Hproc969194_return;}} goto Hproc974194_return;}}
Hproc969194_return: Hproc974194_return:
switch (Hproc969194_return_tag) { switch (Hproc974194_return_tag) {
case 0: goto Hproc969194_return_0; case 0: goto Hproc974194_return_0;
case 1: goto Hproc969194_return_1; case 1: goto Hproc974194_return_1;
default: goto Hproc969194_return_2; default: goto Hproc974194_return_2;
}} }}
} }
@ -1885,8 +1885,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
char * merged_arg0K0; char * merged_arg0K0;
int abort_collection_return_tag; int abort_collection_return_tag;
int Hproc967264_return_tag; int Hproc972264_return_tag;
char Hproc9672640_return_value; char Hproc9722640_return_value;
char * start_265X; char * start_265X;
char * end_266X; char * end_266X;
long h_320X; long h_320X;
@ -1991,10 +1991,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
s48_ShpS = ((s48_ShpS) + 4); s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS); merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_277X; merged_arg0K1 = start_hp_277X;
Hproc967264_return_tag = 0; Hproc972264_return_tag = 0;
goto Hproc967264; goto Hproc972264;
Hproc967264_return_0: Hproc972264_return_0:
v_278X = Hproc9672640_return_value; v_278X = Hproc9722640_return_value;
if (v_278X) { if (v_278X) {
if ((0 < (Simpure_area_countS))) { if ((0 < (Simpure_area_countS))) {
areas_279X = Simpure_areasS; areas_279X = Simpure_areasS;
@ -2011,10 +2011,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
if ((i_282X < count_281X)) { if ((i_282X < count_281X)) {
merged_arg0K0 = (*(areas_279X + i_282X)); merged_arg0K0 = (*(areas_279X + i_282X));
merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X))); merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X)));
Hproc967264_return_tag = 1; Hproc972264_return_tag = 1;
goto Hproc967264; goto Hproc972264;
Hproc967264_return_1: Hproc972264_return_1:
v_283X = Hproc9672640_return_value; v_283X = Hproc9722640_return_value;
if (v_283X) { if (v_283X) {
arg1K0 = (1 + i_282X); arg1K0 = (1 + i_282X);
goto L5908;} goto L5908;}
@ -2040,10 +2040,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
if ((i_287X < count_286X)) { if ((i_287X < count_286X)) {
merged_arg0K0 = (*(areas_284X + i_287X)); merged_arg0K0 = (*(areas_284X + i_287X));
merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X))); merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X)));
Hproc967264_return_tag = 2; Hproc972264_return_tag = 2;
goto Hproc967264; goto Hproc972264;
Hproc967264_return_2: Hproc972264_return_2:
v_288X = Hproc9672640_return_value; v_288X = Hproc9722640_return_value;
if (v_288X) { if (v_288X) {
arg1K0 = (1 + i_287X); arg1K0 = (1 + i_287X);
goto L5929;} goto L5929;}
@ -2230,7 +2230,7 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
goto abort_collection; goto abort_collection;
abort_collection_return_1: abort_collection_return_1:
return status_306X;} return status_306X;}
Hproc967264: { Hproc972264: {
start_265X = merged_arg0K0; start_265X = merged_arg0K0;
end_266X = merged_arg0K1;{ end_266X = merged_arg0K1;{
type_307X = Sfinding_typeS; type_307X = Sfinding_typeS;
@ -2254,8 +2254,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
arg0K0 = next_310X; arg0K0 = next_310X;
goto L4853;} goto L4853;}
else { else {
Hproc9672640_return_value = 0; Hproc9722640_return_value = 0;
goto Hproc967264_return;}} goto Hproc972264_return;}}
else { else {
arg0K0 = next_310X; arg0K0 = next_310X;
goto L4853;}} goto L4853;}}
@ -2270,16 +2270,16 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
goto L4853;}} goto L4853;}}
else { else {
ps_write_string("heap is in an inconsistent state.", (stderr)); ps_write_string("heap is in an inconsistent state.", (stderr));
Hproc9672640_return_value = 0; Hproc9722640_return_value = 0;
goto Hproc967264_return;}} goto Hproc972264_return;}}
else { else {
Hproc9672640_return_value = 1; Hproc9722640_return_value = 1;
goto Hproc967264_return;}} goto Hproc972264_return;}}
Hproc967264_return: Hproc972264_return:
switch (Hproc967264_return_tag) { switch (Hproc972264_return_tag) {
case 0: goto Hproc967264_return_0; case 0: goto Hproc972264_return_0;
case 1: goto Hproc967264_return_1; case 1: goto Hproc972264_return_1;
default: goto Hproc967264_return_2; default: goto Hproc972264_return_2;
}} }}
abort_collection: { abort_collection: {
@ -2353,5 +2353,5 @@ Sgc_countS = 0;
SstatusS = NO_ERRORS; SstatusS = NO_ERRORS;
SeofPS = 0; SeofPS = 0;
SinitializingPS = 1; SinitializingPS = 1;
Hthe_record_type9260 = 1; Hthe_record_type9310 = 1;
} }

9379
c/scheme48vm.c
View File

File diff suppressed because it is too large Load Diff

37
cig/libcig.c
View File

@ -1,5 +1,6 @@
/* This is an Scheme48/C interface file, /* This is an Scheme48/C interface file,
** automatically generated by cig. ** automatically generated by a hacked version of cig 3.0.
step 4
*/ */
#include <stdio.h> #include <stdio.h>
@ -9,60 +10,80 @@
s48_value df_strlen_or_false(s48_value g1) s48_value df_strlen_or_false(s48_value g1)
{ {
extern s48_value strlen_or_false(const char * ); extern s48_value strlen_or_false(const char * );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
s48_value r1; s48_value r1;
S48_GC_PROTECT_1(ret1);
r1 = strlen_or_false((const char * )AlienVal(g1)); r1 = strlen_or_false((const char * )AlienVal(g1));
ret1 = r1; ret1 = r1;
S48_GC_UNPROTECT();
return ret1; return ret1;
} }
s48_value df_cstring_nullp(s48_value g1) s48_value df_cstring_nullp(s48_value g1)
{ {
extern int cstring_nullp(const char * ); extern int cstring_nullp(const char * );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
S48_GC_PROTECT_1(ret1);
r1 = cstring_nullp((const char * )AlienVal(g1)); r1 = cstring_nullp((const char * )AlienVal(g1));
ret1 = ENTER_BOOLEAN(r1); ret1 = ENTER_BOOLEAN(r1);
S48_GC_UNPROTECT();
return ret1; return ret1;
} }
s48_value df_c2scheme_strcpy_free(s48_value g1, s48_value g2) s48_value df_c2scheme_strcpy_free(s48_value g1, s48_value g2)
{ {
extern int c2scheme_strcpy_free(s48_value , char* ); extern int c2scheme_strcpy_free(s48_value , char* );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
S48_GC_PROTECT_1(ret1);
r1 = c2scheme_strcpy_free(g1, (char* )AlienVal(g2)); r1 = c2scheme_strcpy_free(g1, (char* )AlienVal(g2));
ret1 = ENTER_BOOLEAN(r1); ret1 = ENTER_BOOLEAN(r1);
S48_GC_UNPROTECT();
return ret1; return ret1;
} }
s48_value df_c2scheme_strcpy(s48_value g1, s48_value g2) s48_value df_c2scheme_strcpy(s48_value g1, s48_value g2)
{ {
extern int c2scheme_strcpy(s48_value , char* ); extern int c2scheme_strcpy(s48_value , char* );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
S48_GC_PROTECT_1(ret1);
r1 = c2scheme_strcpy(g1, (char* )AlienVal(g2)); r1 = c2scheme_strcpy(g1, (char* )AlienVal(g2));
ret1 = ENTER_BOOLEAN(r1); ret1 = ENTER_BOOLEAN(r1);
S48_GC_UNPROTECT();
return ret1; return ret1;
} }
s48_value df_c_veclen(s48_value g1) s48_value df_c_veclen(s48_value g1)
{ {
extern s48_value c_veclen(long* ); extern s48_value c_veclen(long* );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
s48_value r1; s48_value r1;
S48_GC_PROTECT_1(ret1);
r1 = c_veclen((long* )AlienVal(g1)); r1 = c_veclen((long* )AlienVal(g1));
ret1 = r1; ret1 = r1;
S48_GC_UNPROTECT();
return ret1; return ret1;
} }
@ -84,7 +105,7 @@ s48_value df_set_strvec_carriers(s48_value g1, s48_value g2)
return S48_FALSE; return S48_FALSE;
} }
s48_value s48_init_cig(void) void s48_init_cig(void)
{ {
S48_EXPORT_FUNCTION(df_strlen_or_false); S48_EXPORT_FUNCTION(df_strlen_or_false);
S48_EXPORT_FUNCTION(df_cstring_nullp); S48_EXPORT_FUNCTION(df_cstring_nullp);
@ -93,6 +114,4 @@ s48_value s48_init_cig(void)
S48_EXPORT_FUNCTION(df_c_veclen); S48_EXPORT_FUNCTION(df_c_veclen);
S48_EXPORT_FUNCTION(df_free); S48_EXPORT_FUNCTION(df_free);
S48_EXPORT_FUNCTION(df_set_strvec_carriers); S48_EXPORT_FUNCTION(df_set_strvec_carriers);
return S48_UNSPECIFIC;
} }

1
cig/libcig.scm
View File

@ -49,6 +49,7 @@
;;; Generally speaking, in the following routines, ;;; Generally speaking, in the following routines,
;;; a NULL C string param causes a function to return #f. ;;; a NULL C string param causes a function to return #f.
(foreign-init-name "cig")
(define-foreign %cstring-length-or-false (define-foreign %cstring-length-or-false
(strlen_or_false ((C "const char * ~a") cstr)) (strlen_or_false ((C "const char * ~a") cstr))

5
gdbinit
View File

@ -4,9 +4,10 @@
#Set a breakpoint at label "raise". #Set a breakpoint at label "raise".
#Obtain the proper line number using "egrep -n raise: scheme48vm.c". #Obtain the proper line number using "egrep -n raise: scheme48vm.c".
break scheme48vm.c:5227 #break scheme48vm.c:5227
display/i $pc #display/i $pc
handle SIGALRM nopass
define pcont define pcont
echo template id = \ echo template id = \