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 Sresumer_recordsS;
static char SinitializingPS;
static long Hthe_record_type9260;
static long Hthe_record_type9310;
char * s48_ShpS;
char * s48_SlimitS;
@ -922,8 +922,8 @@ long s48_find_all(long type_123X)
char * merged_arg0K1;
char * merged_arg0K0;
int Hproc923124_return_tag;
char Hproc9231240_return_value;
int Hproc928124_return_tag;
char Hproc9281240_return_value;
char * start_125X;
char * end_126X;
char * next_142X;
@ -948,10 +948,10 @@ long s48_find_all(long type_123X)
s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_127X;
Hproc923124_return_tag = 0;
goto Hproc923124;
Hproc923124_return_0:
v_128X = Hproc9231240_return_value;
Hproc928124_return_tag = 0;
goto Hproc928124;
Hproc928124_return_0:
v_128X = Hproc9281240_return_value;
if (v_128X) {
if ((0 < (Simpure_area_countS))) {
areas_129X = Simpure_areasS;
@ -968,10 +968,10 @@ long s48_find_all(long type_123X)
if ((i_132X < count_131X)) {
merged_arg0K0 = (*(areas_129X + i_132X));
merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X)));
Hproc923124_return_tag = 1;
goto Hproc923124;
Hproc923124_return_1:
v_133X = Hproc9231240_return_value;
Hproc928124_return_tag = 1;
goto Hproc928124;
Hproc928124_return_1:
v_133X = Hproc9281240_return_value;
if (v_133X) {
arg1K0 = (1 + i_132X);
goto L5578;}
@ -996,10 +996,10 @@ long s48_find_all(long type_123X)
if ((i_137X < count_136X)) {
merged_arg0K0 = (*(areas_134X + i_137X));
merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X)));
Hproc923124_return_tag = 2;
goto Hproc923124;
Hproc923124_return_2:
v_138X = Hproc9231240_return_value;
Hproc928124_return_tag = 2;
goto Hproc928124;
Hproc928124_return_2:
v_138X = Hproc9281240_return_value;
if (v_138X) {
arg1K0 = (1 + i_137X);
goto L5599;}
@ -1010,7 +1010,7 @@ long s48_find_all(long type_123X)
L5525: {
*((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8)));
return (3 + (((long) (start_hp_127X + 4))));}
Hproc923124: {
Hproc928124: {
start_125X = merged_arg0K0;
end_126X = merged_arg0K1;{
type_139X = Sfinding_typeS;
@ -1029,23 +1029,23 @@ long s48_find_all(long type_123X)
arg0K0 = next_142X;
goto L4504;}
else {
Hproc9231240_return_value = 0;
goto Hproc923124_return;}}
Hproc9281240_return_value = 0;
goto Hproc928124_return;}}
else {
arg0K0 = next_142X;
goto L4504;}}
else {
ps_write_string("heap is in an inconsistent state.", (stderr));
Hproc9231240_return_value = 0;
goto Hproc923124_return;}}
Hproc9281240_return_value = 0;
goto Hproc928124_return;}}
else {
Hproc9231240_return_value = 1;
goto Hproc923124_return;}}
Hproc923124_return:
switch (Hproc923124_return_tag) {
case 0: goto Hproc923124_return_0;
case 1: goto Hproc923124_return_1;
default: goto Hproc923124_return_2;
Hproc9281240_return_value = 1;
goto Hproc928124_return;}}
Hproc928124_return:
switch (Hproc928124_return_tag) {
case 0: goto Hproc928124_return_0;
case 1: goto Hproc928124_return_1;
default: goto Hproc928124_return_2;
}}
}
@ -1450,8 +1450,8 @@ long s48_find_all_records(long record_type_193X)
char * merged_arg0K1;
char * merged_arg0K0;
int Hproc969194_return_tag;
char Hproc9691940_return_value;
int Hproc974194_return_tag;
char Hproc9741940_return_value;
char * start_195X;
char * end_196X;
long obj_213X;
@ -1471,17 +1471,17 @@ long s48_find_all_records(long record_type_193X)
char * *areas_199X;
char v_198X;
char * start_hp_197X;
{ Hthe_record_type9260 = record_type_193X;
{ Hthe_record_type9310 = record_type_193X;
Sfinding_typeS = 8;
start_hp_197X = s48_ShpS;
*((long *) (s48_ShpS)) = 0;
s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_197X;
Hproc969194_return_tag = 0;
goto Hproc969194;
Hproc969194_return_0:
v_198X = Hproc9691940_return_value;
Hproc974194_return_tag = 0;
goto Hproc974194;
Hproc974194_return_0:
v_198X = Hproc9741940_return_value;
if (v_198X) {
if ((0 < (Simpure_area_countS))) {
areas_199X = Simpure_areasS;
@ -1498,10 +1498,10 @@ long s48_find_all_records(long record_type_193X)
if ((i_202X < count_201X)) {
merged_arg0K0 = (*(areas_199X + i_202X));
merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X)));
Hproc969194_return_tag = 1;
goto Hproc969194;
Hproc969194_return_1:
v_203X = Hproc9691940_return_value;
Hproc974194_return_tag = 1;
goto Hproc974194;
Hproc974194_return_1:
v_203X = Hproc9741940_return_value;
if (v_203X) {
arg1K0 = (1 + i_202X);
goto L5743;}
@ -1526,10 +1526,10 @@ long s48_find_all_records(long record_type_193X)
if ((i_207X < count_206X)) {
merged_arg0K0 = (*(areas_204X + i_207X));
merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X)));
Hproc969194_return_tag = 2;
goto Hproc969194;
Hproc969194_return_2:
v_208X = Hproc9691940_return_value;
Hproc974194_return_tag = 2;
goto Hproc974194;
Hproc974194_return_2:
v_208X = Hproc9741940_return_value;
if (v_208X) {
arg1K0 = (1 + i_207X);
goto L5764;}
@ -1540,7 +1540,7 @@ long s48_find_all_records(long record_type_193X)
L5690: {
*((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8)));
return (3 + (((long) (start_hp_197X + 4))));}
Hproc969194: {
Hproc974194: {
start_195X = merged_arg0K0;
end_196X = merged_arg0K1;{
type_209X = Sfinding_typeS;
@ -1554,15 +1554,15 @@ long s48_find_all_records(long record_type_193X)
if ((2 == (3 & d_211X))) {
if ((type_209X == (31 & (((d_211X)>>2))))) {
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))) {
*((long *) (s48_ShpS)) = obj_213X;
s48_ShpS = ((s48_ShpS) + 4);
arg0K0 = next_212X;
goto L4671;}
else {
Hproc9691940_return_value = 0;
goto Hproc969194_return;}}
Hproc9741940_return_value = 0;
goto Hproc974194_return;}}
else {
arg0K0 = next_212X;
goto L4671;}}
@ -1571,16 +1571,16 @@ long s48_find_all_records(long record_type_193X)
goto L4671;}}
else {
ps_write_string("heap is in an inconsistent state.", (stderr));
Hproc9691940_return_value = 0;
goto Hproc969194_return;}}
Hproc9741940_return_value = 0;
goto Hproc974194_return;}}
else {
Hproc9691940_return_value = 1;
goto Hproc969194_return;}}
Hproc969194_return:
switch (Hproc969194_return_tag) {
case 0: goto Hproc969194_return_0;
case 1: goto Hproc969194_return_1;
default: goto Hproc969194_return_2;
Hproc9741940_return_value = 1;
goto Hproc974194_return;}}
Hproc974194_return:
switch (Hproc974194_return_tag) {
case 0: goto Hproc974194_return_0;
case 1: goto Hproc974194_return_1;
default: goto Hproc974194_return_2;
}}
}
@ -1885,8 +1885,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
char * merged_arg0K0;
int abort_collection_return_tag;
int Hproc967264_return_tag;
char Hproc9672640_return_value;
int Hproc972264_return_tag;
char Hproc9722640_return_value;
char * start_265X;
char * end_266X;
long h_320X;
@ -1991,10 +1991,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
s48_ShpS = ((s48_ShpS) + 4);
merged_arg0K0 = (Snewspace_beginS);
merged_arg0K1 = start_hp_277X;
Hproc967264_return_tag = 0;
goto Hproc967264;
Hproc967264_return_0:
v_278X = Hproc9672640_return_value;
Hproc972264_return_tag = 0;
goto Hproc972264;
Hproc972264_return_0:
v_278X = Hproc9722640_return_value;
if (v_278X) {
if ((0 < (Simpure_area_countS))) {
areas_279X = Simpure_areasS;
@ -2011,10 +2011,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
if ((i_282X < count_281X)) {
merged_arg0K0 = (*(areas_279X + i_282X));
merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X)));
Hproc967264_return_tag = 1;
goto Hproc967264;
Hproc967264_return_1:
v_283X = Hproc9672640_return_value;
Hproc972264_return_tag = 1;
goto Hproc972264;
Hproc972264_return_1:
v_283X = Hproc9722640_return_value;
if (v_283X) {
arg1K0 = (1 + i_282X);
goto L5908;}
@ -2040,10 +2040,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
if ((i_287X < count_286X)) {
merged_arg0K0 = (*(areas_284X + i_287X));
merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X)));
Hproc967264_return_tag = 2;
goto Hproc967264;
Hproc967264_return_2:
v_288X = Hproc9672640_return_value;
Hproc972264_return_tag = 2;
goto Hproc972264;
Hproc972264_return_2:
v_288X = Hproc9722640_return_value;
if (v_288X) {
arg1K0 = (1 + i_287X);
goto L5929;}
@ -2230,7 +2230,7 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
goto abort_collection;
abort_collection_return_1:
return status_306X;}
Hproc967264: {
Hproc972264: {
start_265X = merged_arg0K0;
end_266X = merged_arg0K1;{
type_307X = Sfinding_typeS;
@ -2254,8 +2254,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
arg0K0 = next_310X;
goto L4853;}
else {
Hproc9672640_return_value = 0;
goto Hproc967264_return;}}
Hproc9722640_return_value = 0;
goto Hproc972264_return;}}
else {
arg0K0 = next_310X;
goto L4853;}}
@ -2270,16 +2270,16 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
goto L4853;}}
else {
ps_write_string("heap is in an inconsistent state.", (stderr));
Hproc9672640_return_value = 0;
goto Hproc967264_return;}}
Hproc9722640_return_value = 0;
goto Hproc972264_return;}}
else {
Hproc9672640_return_value = 1;
goto Hproc967264_return;}}
Hproc967264_return:
switch (Hproc967264_return_tag) {
case 0: goto Hproc967264_return_0;
case 1: goto Hproc967264_return_1;
default: goto Hproc967264_return_2;
Hproc9722640_return_value = 1;
goto Hproc972264_return;}}
Hproc972264_return:
switch (Hproc972264_return_tag) {
case 0: goto Hproc972264_return_0;
case 1: goto Hproc972264_return_1;
default: goto Hproc972264_return_2;
}}
abort_collection: {
@ -2353,5 +2353,5 @@ Sgc_countS = 0;
SstatusS = NO_ERRORS;
SeofPS = 0;
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,
** automatically generated by cig.
** automatically generated by a hacked version of cig 3.0.
step 4
*/
#include <stdio.h>
@ -9,60 +10,80 @@
s48_value df_strlen_or_false(s48_value g1)
{
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_GC_PROTECT_1(ret1);
r1 = strlen_or_false((const char * )AlienVal(g1));
ret1 = r1;
S48_GC_UNPROTECT();
return ret1;
}
s48_value df_cstring_nullp(s48_value g1)
{
extern int cstring_nullp(const char * );
s48_value ret1;
s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
int r1;
S48_GC_PROTECT_1(ret1);
r1 = cstring_nullp((const char * )AlienVal(g1));
ret1 = ENTER_BOOLEAN(r1);
S48_GC_UNPROTECT();
return ret1;
}
s48_value df_c2scheme_strcpy_free(s48_value g1, s48_value g2)
{
extern int c2scheme_strcpy_free(s48_value , char* );
s48_value ret1;
s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
int r1;
S48_GC_PROTECT_1(ret1);
r1 = c2scheme_strcpy_free(g1, (char* )AlienVal(g2));
ret1 = ENTER_BOOLEAN(r1);
S48_GC_UNPROTECT();
return ret1;
}
s48_value df_c2scheme_strcpy(s48_value g1, s48_value g2)
{
extern int c2scheme_strcpy(s48_value , char* );
s48_value ret1;
s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
int r1;
S48_GC_PROTECT_1(ret1);
r1 = c2scheme_strcpy(g1, (char* )AlienVal(g2));
ret1 = ENTER_BOOLEAN(r1);
S48_GC_UNPROTECT();
return ret1;
}
s48_value df_c_veclen(s48_value g1)
{
extern s48_value c_veclen(long* );
s48_value ret1;
s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
s48_value r1;
S48_GC_PROTECT_1(ret1);
r1 = c_veclen((long* )AlienVal(g1));
ret1 = r1;
S48_GC_UNPROTECT();
return ret1;
}
@ -84,7 +105,7 @@ s48_value df_set_strvec_carriers(s48_value g1, s48_value g2)
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_cstring_nullp);
@ -93,6 +114,4 @@ s48_value s48_init_cig(void)
S48_EXPORT_FUNCTION(df_c_veclen);
S48_EXPORT_FUNCTION(df_free);
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,
;;; a NULL C string param causes a function to return #f.
(foreign-init-name "cig")
(define-foreign %cstring-length-or-false
(strlen_or_false ((C "const char * ~a") cstr))

5
gdbinit
View File

@ -4,9 +4,10 @@
#Set a breakpoint at label "raise".
#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
echo template id = \