This is scrt6.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1852, ")", 1 );
DEFSTATICTSCP2( c1637, t1852 );
DEFSTRING( t1853, ". ", 2 );
DEFSTATICTSCP2( c1636, t1853 );
DEFSTRING( t1854, "#", 1 );
DEFSTATICTSCP2( c1612, t1854 );
DEFSTRING( t1855, "SCRT6_DEFAULT-RESET", 19 );
DEFSTATICTSCP2( c1560, t1855 );
DEFSTRING( t1856, " ...", 4 );
DEFSTATICTSCP2( c1552, t1856 );
DEFSTRING( t1857, " ...)", 5 );
DEFSTATICTSCP2( c1530, t1857 );
DEFSTRING( t1858, "(", 1 );
DEFSTATICTSCP2( c1529, t1858 );
DEFSTATICTSCP( c1526 );
DEFSTRING( t1860, "LOOP [inside EXEC]", 18 );
DEFSTATICTSCP2( t1859, t1860 );
DEFSTRING( t1862, "SCEVAL_INTERPRETED-PROC", 23 );
DEFSTATICTSCP2( t1861, t1862 );
DEFSTRING( t1863, "Too few ARGUMENTS for ~s", 24 );
DEFSTATICTSCP2( c1476, t1863 );
DEFSTRING( t1864, "Too many ARGUMENTS for ~s", 25 );
DEFSTATICTSCP2( c1469, t1864 );
DEFSTRING( t1865, "FORM ends with a ~~: ~s", 24 );
DEFSTATICTSCP2( c1468, t1865 );
DEFSTRING( t1866, "Unrecognized OUTPUT DESCRIPTOR in ~s", 36 );
DEFSTATICTSCP2( c1460, t1866 );
DEFSTATICTSCP( c1459 );
DEFSTATICTSCP( c1458 );
DEFSTATICTSCP( c1457 );
DEFSTRING( t1867, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c1442, t1867 );
DEFSTRING( t1868, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1421, t1868 );
DEFSTRING( t1869, "STRING-REF", 10 );
DEFSTATICTSCP( c1420 );
DEFSTRING( t1870, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1413, t1870 );
DEFSTRING( t1871, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1412 );
DEFSTRING( t1872, "Illegal arguments: ~s", 21 );
DEFSTATICTSCP2( c1364, t1872 );
DEFSTRING( t1873, "FORMAT", 6 );
DEFSTATICTSCP( c1363 );
DEFSTRING( t1874, "***** ~a ", 9 );
DEFSTATICTSCP2( c1326, t1874 );
DEFSTRING( t1875, "Argument not a CHAR: ~s", 23 );
DEFSTATICTSCP2( c1320, t1875 );
DEFSTRING( t1876, "CHAR->INTEGER", 13 );
DEFSTATICTSCP( c1319 );
DEFSTRING( t1877, "%c", 2 );
DEFSTATICTSCP2( c1314, t1877 );
DEFSTRING( t1878, "\"%s\"", 4 );
DEFSTATICTSCP2( c1313, t1878 );
DEFSTRING( t1879, "%d", 2 );
DEFSTATICTSCP2( c1312, t1879 );
DEFSTRING( t1880, "%x", 2 );
DEFSTATICTSCP2( c1311, t1880 );
DEFSTRING( t1881, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1304, t1881 );
DEFSTRING( t1882, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1303 );
DEFSTRING( t1883, "***** inside ERROR", 18 );
DEFSTATICTSCP( c1273 );
DEFSTRING( t1884, "***** ERROR error handler failed!", 33 );
DEFSTATICTSCP2( c1270, t1884 );
DEFSTRING( t1885, "FILE-PORT", 9 );
DEFSTATICTSCP( c1259 );
DEFSTRING( t1886, "PORT->STDIO-FILE", 16 );
DEFSTATICTSCP( c1252 );
DEFSTRING( t1887, "A TRANSCRIPT is not in progress", 31 );
DEFSTATICTSCP2( c1245, t1887 );
DEFSTRING( t1888, "TRANSCRIPT-OFF", 14 );
DEFSTATICTSCP( c1244 );
DEFSTRING( t1889, "w", 1 );
DEFSTATICTSCP2( c1239, t1889 );
DEFSTRING( t1890, "A TRANSCRIPT is already in progress", 35 );
DEFSTATICTSCP2( c1236, t1890 );
DEFSTRING( t1891, "TRANSCRIPT-ON", 13 );
DEFSTATICTSCP( c1235 );
DEFSTRING( t1892, "ECHO!", 5 );
DEFSTATICTSCP( c1224 );
DEFSTRING( t1893, "PORT cannot be echoed to itself: ~s", 35 );
DEFSTATICTSCP2( c1219, t1893 );
DEFSTRING( t1894, "Argument is not an OUTPUT PORT or #F: ~s", 40 );
DEFSTATICTSCP2( c1218, t1894 );
DEFSTRING( t1895, "Port does not support ECHO: ~s", 30 );
DEFSTATICTSCP2( c1207, t1895 );
DEFSTRING( t1896, "Argument is not a port: ~s", 26 );
DEFSTATICTSCP2( c1202, t1896 );
DEFSTRING( t1897, "ECHO", 4 );
DEFSTATICTSCP( c1201 );
DEFSTRING( t1898, "WRITE-WIDTH!", 12 );
DEFSTATICTSCP( c1193 );
DEFSTRING( t1899, "Argument is not a POSITIVE INTEGER: ~s", 38 );
DEFSTATICTSCP2( c1192, t1899 );
DEFSTRING( t1900, "SET-WRITE-WIDTH!", 16 );
DEFSTATICTSCP( c1191 );
DEFSTRING( t1901, "WRITE-WIDTH", 11 );
DEFSTATICTSCP( c1172 );
DEFSTRING( t1902, "WRITE-COUNT", 11 );
DEFSTATICTSCP( c1169 );
DEFSTRING( t1903, "Argument is not an OUTPUT STRING PORT: ~s", 41 );
DEFSTATICTSCP2( c1158, t1903 );
DEFSTRING( t1904, "GET-OUTPUT-STRING", 17 );
DEFSTATICTSCP( c1157 );
DEFSTRING( t1905, "WRITE-FLUSH", 11 );
DEFSTATICTSCP( c1152 );
DEFSTRING( t1906, "NEWLINE", 7 );
DEFSTATICTSCP( c1148 );
DEFSTRING( t1907, "Argument is not a CHARACTER: ~s", 31 );
DEFSTATICTSCP2( c1145, t1907 );
DEFSTRING( t1908, "WRITE-CHAR", 10 );
DEFSTATICTSCP( c1144 );
DEFSTRING( t1909, "DISPLAY", 7 );
DEFSTATICTSCP( c1138 );
DEFSTRING( t1910, "WRITE", 5 );
DEFSTATICTSCP( c1134 );
DEFSTRING( t1911, "Argument is not an OUTPUT-PORT: ~s", 34 );
DEFSTATICTSCP2( c1126, t1911 );
DEFSTRING( t1912, "FLUSH-BUFFER", 12 );
DEFSTATICTSCP( c1119 );
DEFSTRING( t1913, "CHAR-READY?", 11 );
DEFSTATICTSCP( c1094 );
DEFSTRING( t1914, "PEEK-CHAR", 9 );
DEFSTATICTSCP( c1091 );
DEFSTRING( t1915, "READ-CHAR", 9 );
DEFSTATICTSCP( c1088 );
DEFSTRING( t1916, "READ", 4 );
DEFSTATICTSCP( c1085 );
DEFSTRING( t1917, "Argument is not an INPUT-PORT: ~s", 33 );
DEFSTATICTSCP2( c1078, t1917 );
static void init_constants()
{
c1526 = EMPTYLIST;
c1526 = CONS( t1859, c1526 );
c1526 = CONS( t1861, c1526 );
CONSTANTEXP( ADR( c1526 ) );
c1459 = EMPTYLIST;
c1459 = CONS( _TSCP( 17170 ), c1459 );
c1459 = CONS( _TSCP( 25362 ), c1459 );
CONSTANTEXP( ADR( c1459 ) );
c1458 = EMPTYLIST;
c1458 = CONS( _TSCP( 16658 ), c1458 );
c1458 = CONS( _TSCP( 24850 ), c1458 );
CONSTANTEXP( ADR( c1458 ) );
c1457 = EMPTYLIST;
c1457 = CONS( _TSCP( 21266 ), c1457 );
c1457 = CONS( _TSCP( 29458 ), c1457 );
CONSTANTEXP( ADR( c1457 ) );
c1420 = STRINGTOSYMBOL( U_TX( ADR( t1869 ) ) );
CONSTANTEXP( ADR( c1420 ) );
c1412 = STRINGTOSYMBOL( U_TX( ADR( t1871 ) ) );
CONSTANTEXP( ADR( c1412 ) );
c1363 = STRINGTOSYMBOL( U_TX( ADR( t1873 ) ) );
CONSTANTEXP( ADR( c1363 ) );
c1319 = STRINGTOSYMBOL( U_TX( ADR( t1876 ) ) );
CONSTANTEXP( ADR( c1319 ) );
c1303 = STRINGTOSYMBOL( U_TX( ADR( t1882 ) ) );
CONSTANTEXP( ADR( c1303 ) );
c1273 = STRINGTOSYMBOL( U_TX( ADR( t1883 ) ) );
CONSTANTEXP( ADR( c1273 ) );
c1259 = STRINGTOSYMBOL( U_TX( ADR( t1885 ) ) );
CONSTANTEXP( ADR( c1259 ) );
c1252 = STRINGTOSYMBOL( U_TX( ADR( t1886 ) ) );
CONSTANTEXP( ADR( c1252 ) );
c1244 = STRINGTOSYMBOL( U_TX( ADR( t1888 ) ) );
CONSTANTEXP( ADR( c1244 ) );
c1235 = STRINGTOSYMBOL( U_TX( ADR( t1891 ) ) );
CONSTANTEXP( ADR( c1235 ) );
c1224 = STRINGTOSYMBOL( U_TX( ADR( t1892 ) ) );
CONSTANTEXP( ADR( c1224 ) );
c1201 = STRINGTOSYMBOL( U_TX( ADR( t1897 ) ) );
CONSTANTEXP( ADR( c1201 ) );
c1193 = STRINGTOSYMBOL( U_TX( ADR( t1898 ) ) );
CONSTANTEXP( ADR( c1193 ) );
c1191 = STRINGTOSYMBOL( U_TX( ADR( t1900 ) ) );
CONSTANTEXP( ADR( c1191 ) );
c1172 = STRINGTOSYMBOL( U_TX( ADR( t1901 ) ) );
CONSTANTEXP( ADR( c1172 ) );
c1169 = STRINGTOSYMBOL( U_TX( ADR( t1902 ) ) );
CONSTANTEXP( ADR( c1169 ) );
c1157 = STRINGTOSYMBOL( U_TX( ADR( t1904 ) ) );
CONSTANTEXP( ADR( c1157 ) );
c1152 = STRINGTOSYMBOL( U_TX( ADR( t1905 ) ) );
CONSTANTEXP( ADR( c1152 ) );
c1148 = STRINGTOSYMBOL( U_TX( ADR( t1906 ) ) );
CONSTANTEXP( ADR( c1148 ) );
c1144 = STRINGTOSYMBOL( U_TX( ADR( t1908 ) ) );
CONSTANTEXP( ADR( c1144 ) );
c1138 = STRINGTOSYMBOL( U_TX( ADR( t1909 ) ) );
CONSTANTEXP( ADR( c1138 ) );
c1134 = STRINGTOSYMBOL( U_TX( ADR( t1910 ) ) );
CONSTANTEXP( ADR( c1134 ) );
c1119 = STRINGTOSYMBOL( U_TX( ADR( t1912 ) ) );
CONSTANTEXP( ADR( c1119 ) );
c1094 = STRINGTOSYMBOL( U_TX( ADR( t1913 ) ) );
CONSTANTEXP( ADR( c1094 ) );
c1091 = STRINGTOSYMBOL( U_TX( ADR( t1914 ) ) );
CONSTANTEXP( ADR( c1091 ) );
c1088 = STRINGTOSYMBOL( U_TX( ADR( t1915 ) ) );
CONSTANTEXP( ADR( c1088 ) );
c1085 = STRINGTOSYMBOL( U_TX( ADR( t1916 ) ) );
CONSTANTEXP( ADR( c1085 ) );
}
DEFTSCP( scrt6_pending_2dstdout_v );
DEFSTRING( t1918, "SCRT6_PENDING-STDOUT", 20 );
DEFTSCP( scrt6_input_2dport_v );
DEFSTRING( t1919, "SCRT6_INPUT-PORT", 16 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt5_input_2dport_3f );
EXTERNTSCP( scrt5_input_2dport_3f_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scrt5_current_2dinput_2dport );
EXTERNTSCP( scrt5_current_2dinput_2dport_v );
EXTERNTSCP( scrt5_stdin_2dport_v );
EXTERNTSCPP( scrt6_flush_2dbuffer );
EXTERNTSCP( scrt6_flush_2dbuffer_v );
EXTERNTSCP( scrt5_stdout_2dport_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
TSCP scrt6_input_2dport( f1061, p1062 )
TSCP f1061, p1062;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1919 ) ) );
if ( FALSE( p1062 ) ) goto L1921;
if ( EQ( TSCPTAG( p1062 ), PAIRTAG ) ) goto L1924;
scrt1__24__car_2derror( p1062 );
L1924:
X2 = PAIR_CAR( p1062 );
if ( FALSE( scrt5_input_2dport_3f( X2 ) ) ) goto L1927;
X1 = X2;
goto L1922;
L1927:
X1 = scrt6_error( f1061,
c1078, CONS( X2, EMPTYLIST ) );
goto L1922;
L1921:
X1 = scrt5_current_2dinput_2dport( );
L1922:
if ( NEQ( UNSIGNED( X1 ),
UNSIGNED( scrt5_stdin_2dport_v ) ) ) goto L1932;
if ( FALSE( scrt6_pending_2dstdout_v ) ) goto L1932;
scrt6_flush_2dbuffer( CONS( scrt5_stdout_2dport_v, EMPTYLIST ) );
L1932:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1935;
scrt1__24__cdr_2derror( X1 );
L1935:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt6_read_v );
DEFSTRING( t1937, "READ", 4 );
EXTERNTSCPP( scrt7_read_2ddatum );
EXTERNTSCP( scrt7_read_2ddatum_v );
TSCP scrt6_read( p1084 )
TSCP p1084;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1937 ) ) );
X1 = scrt6_input_2dport( c1085, p1084 );
POPSTACKTRACE( scrt7_read_2ddatum( X1 ) );
}
DEFTSCP( scrt6_read_2dchar_v );
DEFSTRING( t1939, "READ-CHAR", 9 );
TSCP scrt6_read_2dchar( p1087 )
TSCP p1087;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1939 ) ) );
X2 = scrt6_input_2dport( c1088, p1087 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1088,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_peek_2dchar_v );
DEFSTRING( t1941, "PEEK-CHAR", 9 );
TSCP scrt6_peek_2dchar( p1090 )
TSCP p1090;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1941 ) ) );
X2 = scrt6_input_2dport( c1091, p1090 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1091,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_char_2dready_3f_v );
DEFSTRING( t1943, "CHAR-READY?", 11 );
TSCP scrt6_char_2dready_3f( p1093 )
TSCP p1093;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1943 ) ) );
X2 = scrt6_input_2dport( c1094, p1093 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1094,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_eof_2dobject_3f_v );
DEFSTRING( t1945, "EOF-OBJECT?", 11 );
EXTERNTSCP( sc_eofobject );
TSCP scrt6_eof_2dobject_3f( o1096 )
TSCP o1096;
{
PUSHSTACKTRACE( U_TX( ADR( t1945 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( o1096 ),
UNSIGNED( sc_eofobject ) ) ) );
}
DEFTSCP( scrt6_output_2dport_v );
DEFSTRING( t1947, "SCRT6_OUTPUT-PORT", 17 );
EXTERNTSCPP( scrt5_output_2dport_3f );
EXTERNTSCP( scrt5_output_2dport_3f_v );
EXTERNTSCPP( scrt5_current_2doutput_2dport );
EXTERNTSCP( scrt5_current_2doutput_2dport_v );
EXTERNTSCP( scrt5_stderr_2dport_v );
TSCP scrt6_output_2dport( f1102, p1103 )
TSCP f1102, p1103;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1947 ) ) );
if ( FALSE( p1103 ) ) goto L1949;
if ( EQ( TSCPTAG( p1103 ), PAIRTAG ) ) goto L1952;
scrt1__24__car_2derror( p1103 );
L1952:
X2 = PAIR_CAR( p1103 );
if ( FALSE( scrt5_output_2dport_3f( X2 ) ) ) goto L1955;
X1 = X2;
goto L1950;
L1955:
X1 = scrt6_error( f1102,
c1126, CONS( X2, EMPTYLIST ) );
goto L1950;
L1949:
X1 = scrt5_current_2doutput_2dport( );
L1950:
X2 = BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( scrt5_stderr_2dport_v ) ) );
if ( FALSE( X2 ) ) goto L1964;
if ( FALSE( scrt6_pending_2dstdout_v ) ) goto L1964;
scrt6_flush_2dbuffer( CONS( scrt5_stdout_2dport_v, EMPTYLIST ) );
goto L1966;
L1964:
if ( NEQ( UNSIGNED( X1 ),
UNSIGNED( scrt5_stdout_2dport_v ) ) ) goto L1966;
scrt6_pending_2dstdout_v = BOOLEAN( NEQ( UNSIGNED( f1102 ),
UNSIGNED( c1119 ) ) );
L1966:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1969;
scrt1__24__cdr_2derror( X1 );
L1969:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt6_write_v );
DEFSTRING( t1971, "WRITE", 5 );
EXTERNTSCPP( scrt7_write_2fdisplay );
EXTERNTSCP( scrt7_write_2fdisplay_v );
TSCP scrt6_write( o1132, p1133 )
TSCP o1132, p1133;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1971 ) ) );
X1 = scrt6_output_2dport( c1134, p1133 );
POPSTACKTRACE( scrt7_write_2fdisplay( o1132, TRUEVALUE, X1 ) );
}
DEFTSCP( scrt6_display_v );
DEFSTRING( t1973, "DISPLAY", 7 );
TSCP scrt6_display( o1136, p1137 )
TSCP o1136, p1137;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1973 ) ) );
X1 = scrt6_output_2dport( c1138, p1137 );
POPSTACKTRACE( scrt7_write_2fdisplay( o1136,
FALSEVALUE, X1 ) );
}
DEFTSCP( scrt6_write_2dchar_v );
DEFSTRING( t1975, "WRITE-CHAR", 10 );
TSCP scrt6_write_2dchar( c1140, p1141 )
TSCP c1140, p1141;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1975 ) ) );
if ( EQ( TSCPIMMEDIATETAG( c1140 ), CHARACTERTAG ) ) goto L1977;
scrt6_error( c1144,
c1145, CONS( c1140, EMPTYLIST ) );
L1977:
X2 = scrt6_output_2dport( c1144, p1141 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1144,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1140,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_newline_v );
DEFSTRING( t1979, "NEWLINE", 7 );
TSCP scrt6_newline( p1147 )
TSCP p1147;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1979 ) ) );
X2 = scrt6_output_2dport( c1148, p1147 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1144,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( _TSCP( 2578 ),
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_flush_2dbuffer_v );
DEFSTRING( t1981, "FLUSH-BUFFER", 12 );
TSCP scrt6_flush_2dbuffer( p1151 )
TSCP p1151;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1981 ) ) );
X2 = scrt6_output_2dport( c1119, p1151 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1152,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_get_2doutput_2dstring_v );
DEFSTRING( t1983, "GET-OUTPUT-STRING", 17 );
TSCP scrt6_get_2doutput_2dstring( p1154 )
TSCP p1154;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1983 ) ) );
X2 = scrt5_output_2dport_3f( p1154 );
if ( FALSE( X2 ) ) goto L1986;
if ( EQ( TSCPTAG( p1154 ), PAIRTAG ) ) goto L1989;
scrt1__24__cdr_2derror( p1154 );
L1989:
X4 = PAIR_CDR( p1154 );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( c1157,
PROCEDURE_CLOSURE( X4 ) );
X3 = UNKNOWNCALL( X3, 0 );
X1 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
goto L1987;
L1986:
X1 = X2;
L1987:
if ( TRUE( X1 ) ) goto L1992;
POPSTACKTRACE( scrt6_error( c1157,
c1158,
CONS( p1154, EMPTYLIST ) ) );
L1992:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt6_write_2dcount_v );
DEFSTRING( t1994, "WRITE-COUNT", 11 );
TSCP scrt6_write_2dcount( p1168 )
TSCP p1168;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1994 ) ) );
X2 = scrt6_output_2dport( c1169, p1168 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1169,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_write_2dwidth_v );
DEFSTRING( t1996, "WRITE-WIDTH", 11 );
TSCP scrt6_write_2dwidth( p1171 )
TSCP p1171;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1996 ) ) );
X2 = scrt6_output_2dport( c1172, p1171 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1172,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_set_2dwrite_2dwidth_21_v );
DEFSTRING( t1998, "SET-WRITE-WIDTH!", 16 );
EXTERNTSCPP( scrt2__3c_3d_2dtwo );
EXTERNTSCP( scrt2__3c_3d_2dtwo_v );
TSCP scrt6_set_2dwrite_2dwidth_21( w1174, p1175 )
TSCP w1174, p1175;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1998 ) ) );
X1 = BOOLEAN( NEQ( TSCPTAG( w1174 ), FIXNUMTAG ) );
if ( TRUE( X1 ) ) goto L2004;
if ( BITAND( BITOR( INT( w1174 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L2006;
if ( LTE( INT( w1174 ), INT( _TSCP( 0 ) ) ) ) goto L2004;
goto L2013;
L2006:
if ( FALSE( scrt2__3c_3d_2dtwo( w1174, _TSCP( 0 ) ) )
) goto L2013;
L2004:
scrt6_error( c1191,
c1192, CONS( w1174, EMPTYLIST ) );
L2013:
X2 = scrt6_output_2dport( c1191, p1175 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1193,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( w1174,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_echo_v );
DEFSTRING( t2014, "ECHO", 4 );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
TSCP scrt6_echo( p1195, a1196 )
TSCP p1195, a1196;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2014 ) ) );
if ( TRUE( scrt5_input_2dport_3f( p1195 ) ) ) goto L2018;
if ( TRUE( scrt5_output_2dport_3f( p1195 ) ) ) goto L2018;
scrt6_error( c1201,
c1202, CONS( p1195, EMPTYLIST ) );
L2018:
if ( EQ( TSCPTAG( p1195 ), PAIRTAG ) ) goto L2023;
scrt1__24__cdr_2derror( p1195 );
L2023:
X1 = PAIR_CDR( p1195 );
X1 = UNKNOWNCALL( X1, 1 );
if ( TRUE( VIA( PROCEDURE_CODE( X1 ) )( c1201,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2020;
scrt6_error( c1201,
c1207, CONS( p1195, EMPTYLIST ) );
L2020:
if ( FALSE( a1196 ) ) goto L2025;
if ( EQ( TSCPTAG( a1196 ), PAIRTAG ) ) goto L2028;
scrt1__24__car_2derror( a1196 );
L2028:
X1 = PAIR_CAR( a1196 );
if ( FALSE( X1 ) ) goto L2033;
if ( TRUE( scrt5_output_2dport_3f( X1 ) ) ) goto L2033;
scrt6_error( c1201, c1218, CONS( X1, EMPTYLIST ) );
L2033:
if ( FALSE( scrt1_equal_3f( p1195, X1 ) ) ) goto L2035;
scrt6_error( c1201, c1219, CONS( X1, EMPTYLIST ) );
L2035:
if ( EQ( TSCPTAG( p1195 ), PAIRTAG ) ) goto L2038;
scrt1__24__cdr_2derror( p1195 );
L2038:
X3 = PAIR_CDR( p1195 );
X3 = UNKNOWNCALL( X3, 1 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( c1224,
PROCEDURE_CLOSURE( X3 ) );
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( X1,
PROCEDURE_CLOSURE( X2 ) ) );
L2025:
if ( EQ( TSCPTAG( p1195 ), PAIRTAG ) ) goto L2041;
scrt1__24__cdr_2derror( p1195 );
L2041:
X2 = PAIR_CDR( p1195 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1201,
PROCEDURE_CLOSURE( X2 ) );
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6_transcript_2don_v );
DEFSTRING( t2043, "TRANSCRIPT-ON", 13 );
EXTERNTSCPP( scrt5_open_2dfile );
EXTERNTSCP( scrt5_open_2dfile_v );
TSCP scrt6_transcript_2don( f1230 )
TSCP f1230;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2043 ) ) );
X1 = scrt6_echo( scrt5_stdin_2dport_v, EMPTYLIST );
if ( TRUE( X1 ) ) goto L2049;
if ( FALSE( scrt6_echo( scrt5_stdout_2dport_v, EMPTYLIST ) )
) goto L2052;
L2049:
scrt6_error( c1235, c1236, EMPTYLIST );
L2052:
X1 = scrt5_open_2dfile( f1230, c1239 );
scrt6_echo( scrt5_stdin_2dport_v,
CONS( X1, EMPTYLIST ) );
scrt6_echo( scrt5_stdout_2dport_v,
CONS( X1, EMPTYLIST ) );
POPSTACKTRACE( c1235 );
}
DEFTSCP( scrt6_transcript_2doff_v );
DEFSTRING( t2054, "TRANSCRIPT-OFF", 14 );
EXTERNTSCPP( scrt5_close_2dport );
EXTERNTSCP( scrt5_close_2dport_v );
TSCP scrt6_transcript_2doff( )
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2054 ) ) );
X1 = scrt6_echo( scrt5_stdin_2dport_v, EMPTYLIST );
X2 = scrt6_echo( scrt5_stdout_2dport_v, EMPTYLIST );
if ( TRUE( scrt1_equal_3f( X1, X2 ) ) ) goto L2057;
scrt6_error( c1244, c1245, EMPTYLIST );
L2057:
scrt6_echo( scrt5_stdin_2dport_v,
CONS( FALSEVALUE, EMPTYLIST ) );
scrt6_echo( scrt5_stdout_2dport_v,
CONS( FALSEVALUE, EMPTYLIST ) );
POPSTACKTRACE( scrt5_close_2dport( X1 ) );
}
DEFTSCP( scrt6_port_2d_3estdio_2dfile_v );
DEFSTRING( t2059, "PORT->STDIO-FILE", 16 );
TSCP scrt6_port_2d_3estdio_2dfile( p1247 )
TSCP p1247;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2059 ) ) );
X1 = scrt5_input_2dport_3f( p1247 );
if ( TRUE( X1 ) ) goto L2065;
if ( TRUE( scrt5_output_2dport_3f( p1247 ) ) ) goto L2065;
POPSTACKTRACE( scrt6_error( c1252,
c1202,
CONS( p1247, EMPTYLIST ) ) );
L2065:
if ( EQ( TSCPTAG( p1247 ), PAIRTAG ) ) goto L2069;
scrt1__24__cdr_2derror( p1247 );
L2069:
X2 = PAIR_CDR( p1247 );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1259,
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2072;
X2 = X1;
X2 = UNKNOWNCALL( X2, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( PROCEDURE_CLOSURE( X2 ) ) );
L2072:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt6_error_v );
DEFSTRING( t2074, "ERROR", 5 );
EXTERNTSCP( scrt6__2aerror_2dhandler_2a_v );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt6_error_2ddisplay );
EXTERNTSCP( scrt6_error_2ddisplay_v );
EXTERNINTP( exit );
TSCP scrt6_error( s1261, f1262, a1263 )
TSCP s1261, f1262, a1263;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2074 ) ) );
X1 = scrt6__2aerror_2dhandler_2a_v;
if ( NOT( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), PROCEDURETAG ) ) )
) goto L2077;
scrt6__2aerror_2dhandler_2a_v = TRUEVALUE;
X3 = sc_cons( f1262, a1263 );
X2 = sc_cons( s1261, X3 );
POPSTACKTRACE( sc_apply_2dtwo( X1, X2 ) );
L2077:
if ( FALSE( X1 ) ) goto L2080;
scrt6__2aerror_2dhandler_2a_v = FALSEVALUE;
scrt6_error_2ddisplay( c1273 );
X3 = sc_cons( f1262, a1263 );
X2 = sc_cons( s1261, X3 );
L2084:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2085;
scrt6_error_2ddisplay( _TSCP( 2578 ) );
POPSTACKTRACE( INT_TSCP( exit( TSCP_INT( _TSCP( 4 ) ) ) ) );
L2085:
scrt6_error_2ddisplay( _TSCP( 8210 ) );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2090;
scrt1__24__car_2derror( X2 );
L2090:
X3 = PAIR_CAR( X2 );
scrt6_error_2ddisplay( X3 );
X2 = PAIR_CDR( X2 );
goto L2084;
L2080:
scrt6_error_2ddisplay( c1270 );
scrt6_error_2ddisplay( _TSCP( 2578 ) );
POPSTACKTRACE( INT_TSCP( exit( TSCP_INT( _TSCP( 4 ) ) ) ) );
}
DEFTSCP( scrt6_error_2ddisplay_v );
DEFSTRING( t2094, "SCRT6_ERROR-DISPLAY", 19 );
EXTERNPOINTER( sc_stderr );
EXTERNINTP( fprintf );
TSCP scrt6_error_2ddisplay( i1296 )
TSCP i1296;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2094 ) ) );
i1296 = CONS( i1296, EMPTYLIST );
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( i1296 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( i1296 ) ),
SYMBOLTAG ) ) ) ) goto L2096;
X2 = PAIR_CAR( i1296 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) ) goto L2099;
scrt6_error( c1303, c1304, CONS( X2, EMPTYLIST ) );
L2099:
X1 = SYMBOL_NAME( X2 );
SETGEN( PAIR_CAR( i1296 ), X1 );
L2096:
if ( NEQ( TSCPIMMEDIATETAG( PAIR_CAR( i1296 ) ),
CHARACTERTAG ) ) goto L2101;
X1 = POINTER_TSCP( sc_stderr );
X3 = PAIR_CAR( i1296 );
if ( EQ( TSCPIMMEDIATETAG( X3 ), CHARACTERTAG ) ) goto L2104;
scrt6_error( c1319, c1320, CONS( X3, EMPTYLIST ) );
L2104:
X2 = CHAR_FIX( X3 );
POPSTACKTRACE( INT_TSCP( fprintf( TSCP_POINTER( X1 ),
TSCP_POINTER( c1314 ),
TSCP_POINTER( X2 ) ) ) );
L2101:
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( i1296 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( i1296 ) ),
STRINGTAG ) ) ) ) goto L2106;
X1 = POINTER_TSCP( sc_stderr );
POPSTACKTRACE( INT_TSCP( fprintf( TSCP_POINTER( X1 ),
TSCP_POINTER( c1313 ),
TSCP_POINTER( PAIR_CAR( i1296 ) ) ) ) );
L2106:
if ( NEQ( TSCPTAG( PAIR_CAR( i1296 ) ), FIXNUMTAG ) ) goto L2108;
X1 = POINTER_TSCP( sc_stderr );
POPSTACKTRACE( INT_TSCP( fprintf( TSCP_POINTER( X1 ),
TSCP_POINTER( c1312 ),
TSCP_POINTER( PAIR_CAR( i1296 ) ) ) ) );
L2108:
X1 = POINTER_TSCP( sc_stderr );
X2 = INT_TSCP( INT( PAIR_CAR( i1296 ) ) );
POPSTACKTRACE( INT_TSCP( fprintf( TSCP_POINTER( X1 ),
TSCP_POINTER( c1311 ),
TSCP_POINTER( X2 ) ) ) );
}
DEFTSCP( scrt6__2dhandler_2bdb2af0_v );
DEFSTRING( t2110, "SCRT6_DEFAULT-ERROR-HANDLER", 27 );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCPP( scrt6__2dhandler_2bdb2af0 );
EXTERNTSCP( scrt6__2dhandler_2bdb2af0_v );
EXTERNTSCP( scrt6_reset_v );
TSCP scrt6__2dhandler_2bdb2af0( i1323, f1324, a1325 )
TSCP i1323, f1324, a1325;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2110 ) ) );
X1 = scrt6_format( c1326, CONS( i1323, EMPTYLIST ) );
scrt6_display( X1,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
X2 = sc_cons( f1324, a1325 );
X1 = sc_apply_2dtwo( scrt6_format_v, X2 );
scrt6_display( X1,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
scrt6_newline( CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
scrt6__2aerror_2dhandler_2a_v = scrt6__2dhandler_2bdb2af0_v;
X1 = scrt6_reset_v;
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt6__2aerror_2dhandler_2a_v );
DEFSTRING( t2112, "*ERROR-HANDLER*", 15 );
DEFTSCP( scrt6_format_v );
DEFSTRING( t2113, "FORMAT", 6 );
EXTERNTSCPP( scrt5_open_2doutput_2dstring );
EXTERNTSCP( scrt5_open_2doutput_2dstring_v );
EXTERNTSCPP( scrt6_formatx );
EXTERNTSCP( scrt6_formatx_v );
TSCP scrt6_format( f1328, a1329 )
TSCP f1328, a1329;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2113 ) ) );
f1328 = CONS( f1328, EMPTYLIST );
if ( NEQ( UNSIGNED( PAIR_CAR( f1328 ) ),
UNSIGNED( TRUEVALUE ) ) ) goto L2115;
X1 = scrt5_current_2doutput_2dport( );
SETGEN( PAIR_CAR( f1328 ), X1 );
L2115:
if ( FALSE( PAIR_CAR( f1328 ) ) ) goto L2117;
X1 = FALSEVALUE;
goto L2118;
L2117:
X1 = TRUEVALUE;
L2118:
if ( FALSE( X1 ) ) goto L2135;
if ( FALSE( a1329 ) ) goto L2135;
if ( EQ( TSCPTAG( a1329 ), PAIRTAG ) ) goto L2129;
scrt1__24__car_2derror( a1329 );
L2129:
X2 = PAIR_CAR( a1329 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) )
) goto L2135;
X2 = scrt5_open_2doutput_2dstring( );
X3 = PAIR_CAR( a1329 );
X4 = PAIR_CDR( a1329 );
scrt6_formatx( X2, X3, X4 );
POPSTACKTRACE( scrt6_get_2doutput_2dstring( X2 ) );
L2135:
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( f1328 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( f1328 ) ),
STRINGTAG ) ) ) ) goto L2136;
X1 = scrt5_open_2doutput_2dstring( );
scrt6_formatx( X1, PAIR_CAR( f1328 ), a1329 );
POPSTACKTRACE( scrt6_get_2doutput_2dstring( X1 ) );
L2136:
X1 = scrt5_output_2dport_3f( PAIR_CAR( f1328 ) );
if ( FALSE( X1 ) ) goto L2154;
if ( FALSE( a1329 ) ) goto L2154;
if ( EQ( TSCPTAG( a1329 ), PAIRTAG ) ) goto L2149;
scrt1__24__car_2derror( a1329 );
L2149:
X2 = PAIR_CAR( a1329 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) )
) goto L2154;
X2 = PAIR_CAR( a1329 );
X3 = PAIR_CDR( a1329 );
POPSTACKTRACE( scrt6_formatx( PAIR_CAR( f1328 ),
X2, X3 ) );
L2154:
POPSTACKTRACE( scrt6_error( c1363,
c1364,
CONS( sc_cons( PAIR_CAR( f1328 ),
a1329 ),
EMPTYLIST ) ) );
}
DEFTSCP( scrt6_formatx_v );
DEFSTRING( t2155, "SCRT6_FORMATX", 13 );
DEFSTRING( t2157, "ARG [inside FORMATX]", 20 );
TSCP scrt6_a1392( )
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2157 ) ) );
if ( NEQ( UNSIGNED( PAIR_CAR( DISPLAY( 1 ) ) ),
UNSIGNED( EMPTYLIST ) ) ) goto L2159;
scrt6_error( c1363,
c1476,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L2159:
X2 = PAIR_CAR( DISPLAY( 1 ) );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2162;
scrt1__24__car_2derror( X2 );
L2162:
X1 = PAIR_CAR( X2 );
X3 = PAIR_CAR( DISPLAY( 1 ) );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2166;
scrt1__24__cdr_2derror( X3 );
L2166:
X2 = PAIR_CDR( X3 );
SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X2 );
POPSTACKTRACE( X1 );
}
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
EXTERNTSCPP( scrt1_memv );
EXTERNTSCP( scrt1_memv_v );
EXTERNTSCPP( scrt6_a1392 );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP scrt6_formatx( p1388, f1389, a1390 )
TSCP p1388, f1389, a1390;
{
TSCP X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2155 ) ) );
DISPLAY( 0 ) = f1389;
DISPLAY( 1 ) = a1390;
DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
X1 = _TSCP( 0 );
X2 = FALSEVALUE;
X3 = FALSEVALUE;
L2170:
X3 = CONS( X3, EMPTYLIST );
X2 = CONS( X2, EMPTYLIST );
if ( AND( EQ( TSCPTAG( DISPLAY( 0 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 0 ) ),
STRINGTAG ) ) ) goto L2172;
scrt6_error( c1412,
c1413,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L2172:
X4 = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
if ( BITAND( BITOR( INT( X1 ), INT( X4 ) ),
3 ) ) goto L2176;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( X4 ) ) ) goto L2180;
goto L2181;
L2176:
if ( FALSE( scrt2__3d_2dtwo( X1, X4 ) ) ) goto L2181;
L2180:
if ( FALSE( PAIR_CAR( X2 ) ) ) goto L2185;
scrt6_error( c1363,
c1468,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
L2185:
if ( FALSE( PAIR_CAR( DISPLAY( 1 ) ) ) ) goto L2187;
SDVAL = scrt6_error( c1363,
c1469,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
POPSTACKTRACE( SDVAL );
L2187:
SDVAL = FALSEVALUE;
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
POPSTACKTRACE( SDVAL );
L2181:
if ( EQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L2191;
scrt6_error( c1420, c1421, CONS( X1, EMPTYLIST ) );
L2191:
X5 = BOOLEAN( LT( INT( X1 ), 0 ) );
if ( TRUE( X5 ) ) goto L2197;
X6 = C_FIXED( STRING_LENGTH( DISPLAY( 0 ) ) );
if ( BITAND( BITOR( INT( X1 ), INT( X6 ) ),
3 ) ) goto L2201;
if ( GTE( INT( X1 ), INT( X6 ) ) ) goto L2197;
goto L2208;
L2201:
if ( FALSE( scrt2__3e_3d_2dtwo( X1, X6 ) ) ) goto L2208;
L2197:
scrt6_error( c1420, c1442, CONS( X1, EMPTYLIST ) );
L2208:
X4 = C_CHAR( STRING_CHAR( DISPLAY( 0 ), X1 ) );
SETGEN( PAIR_CAR( X3 ), X4 );
if ( FALSE( PAIR_CAR( X2 ) ) ) goto L2209;
X4 = FALSEVALUE;
SETGEN( PAIR_CAR( X2 ), X4 );
X4 = PAIR_CAR( X3 );
if ( NEQ( UNSIGNED( X4 ),
UNSIGNED( _TSCP( 32274 ) ) ) ) goto L2213;
scrt6_display( PAIR_CAR( X3 ),
CONS( p1388, EMPTYLIST ) );
goto L2224;
L2213:
if ( NEQ( UNSIGNED( X4 ),
UNSIGNED( _TSCP( 9490 ) ) ) ) goto L2215;
scrt6_newline( CONS( p1388, EMPTYLIST ) );
goto L2224;
L2215:
if ( FALSE( scrt1_memv( X4, c1457 ) ) ) goto L2217;
X5 = scrt6_a1392( );
scrt6_write( X5, CONS( p1388, EMPTYLIST ) );
goto L2224;
L2217:
if ( FALSE( scrt1_memv( X4, c1458 ) ) ) goto L2219;
X5 = scrt6_a1392( );
scrt6_display( X5, CONS( p1388, EMPTYLIST ) );
goto L2224;
L2219:
if ( FALSE( scrt1_memv( X4, c1459 ) ) ) goto L2221;
X5 = scrt6_a1392( );
scrt6_write_2dchar( X5, CONS( p1388, EMPTYLIST ) );
goto L2224;
L2221:
scrt6_error( c1363,
c1460,
CONS( DISPLAY( 0 ), EMPTYLIST ) );
goto L2224;
L2209:
if ( NEQ( UNSIGNED( PAIR_CAR( X3 ) ),
UNSIGNED( _TSCP( 32274 ) ) ) ) goto L2223;
X4 = TRUEVALUE;
SETGEN( PAIR_CAR( X2 ), X4 );
goto L2224;
L2223:
scrt6_write_2dchar( PAIR_CAR( X3 ),
CONS( p1388, EMPTYLIST ) );
L2224:
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X1 ) ),
3 ) ) goto L2225;
X4 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X1 ) ) );
goto L2226;
L2225:
X4 = scrt2__2b_2dtwo( _TSCP( 4 ), X1 );
L2226:
X3 = PAIR_CAR( X3 );
X2 = PAIR_CAR( X2 );
X1 = X4;
goto L2170;
}
DEFTSCP( scrt6_default_2dreset_v );
DEFSTRING( t2227, "SCRT6_DEFAULT-RESET", 19 );
EXTERNTSCP( sc_emptystring );
EXTERNTSCPP( scrt4_c_2dtscp_2dref );
EXTERNTSCP( scrt4_c_2dtscp_2dref_v );
EXTERNTSCPP( scrt1_member );
EXTERNTSCP( scrt1_member_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( scrt3_substring );
EXTERNTSCP( scrt3_substring_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
TSCP scrt6_default_2dreset( )
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2227 ) ) );
X1 = UNSIGNED_TSCP( sc_stacktrace );
X2 = sc_emptystring;
X3 = scrt5_open_2doutput_2dstring( );
X4 = c1560;
X5 = _TSCP( 80 );
L2230:
X5 = CONS( X5, EMPTYLIST );
X4 = CONS( X4, EMPTYLIST );
X2 = CONS( X2, EMPTYLIST );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L2232;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2236;
goto L2239;
L2232:
if ( TRUE( scrt2__3d_2dtwo( X1, _TSCP( 0 ) ) ) ) goto L2239;
L2236:
X6 = PAIR_CAR( X5 );
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L2242;
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2246;
goto L2239;
L2242:
if ( TRUE( scrt2__3d_2dtwo( X6, _TSCP( 0 ) ) ) ) goto L2239;
L2246:
X6 = scrt4_c_2dtscp_2dref( X1, _TSCP( 16 ) );
SETGEN( PAIR_CAR( X2 ), X6 );
if ( FALSE( PAIR_CAR( X4 ) ) ) goto L2250;
if ( FALSE( scrt1_equal_3f( PAIR_CAR( X4 ),
PAIR_CAR( X2 ) ) ) ) goto L2255;
X6 = FALSEVALUE;
SETGEN( PAIR_CAR( X4 ), X6 );
goto L2255;
L2250:
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( X2 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( X2 ) ),
STRINGTAG ) ) ) ) goto L2254;
X6 = scrt1_member( PAIR_CAR( X2 ), c1526 );
if ( TRUE( X6 ) ) goto L2255;
scrt6_display( c1529,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
scrt6_display( PAIR_CAR( X2 ),
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
scrt6_display( c1530,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
scrt6_newline( CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
X8 = PAIR_CAR( X5 );
if ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2261;
X7 = _TSCP( IDIFFERENCE( INT( X8 ),
INT( _TSCP( 4 ) ) ) );
goto L2262;
L2261:
X7 = scrt2__2d_2dtwo( X8, _TSCP( 4 ) );
L2262:
SETGEN( PAIR_CAR( X5 ), X7 );
goto L2255;
L2254:
X6 = scrt4_c_2dtscp_2dref( X1, _TSCP( 32 ) );
scrt6_write( X6, CONS( X3, EMPTYLIST ) );
X6 = scrt6_get_2doutput_2dstring( X3 );
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), STRINGTAG ) ) ) goto L2266;
scrt6_error( c1412, c1413, CONS( X6, EMPTYLIST ) );
L2266:
X7 = C_FIXED( STRING_LENGTH( X6 ) );
if ( BITAND( BITOR( INT( X7 ),
INT( _TSCP( 260 ) ) ),
3 ) ) goto L2270;
if ( GT( INT( X7 ), INT( _TSCP( 260 ) ) ) ) goto L2274;
goto L2275;
L2270:
if ( TRUE( scrt2__3e_2dtwo( X7, _TSCP( 260 ) ) ) ) goto L2274;
L2275:
scrt6_display( X6,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
goto L2278;
L2274:
X8 = CONS( c1552, EMPTYLIST );
X7 = scrt3_string_2dappend( CONS( scrt3_substring( X6,
_TSCP( 0 ),
_TSCP( 260 ) ),
X8 ) );
scrt6_display( X7,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
L2278:
scrt6_newline( CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
X7 = PAIR_CAR( X5 );
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2280;
X6 = _TSCP( IDIFFERENCE( INT( X7 ),
INT( _TSCP( 4 ) ) ) );
goto L2281;
L2280:
X6 = scrt2__2d_2dtwo( X7, _TSCP( 4 ) );
L2281:
SETGEN( PAIR_CAR( X5 ), X6 );
L2255:
X6 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
X5 = PAIR_CAR( X5 );
X4 = PAIR_CAR( X4 );
X2 = PAIR_CAR( X2 );
X1 = X6;
goto L2230;
L2239:
POPSTACKTRACE( INT_TSCP( exit( TSCP_INT( _TSCP( 4 ) ) ) ) );
}
DEFTSCP( scrt6_reset_v );
DEFSTRING( t2282, "RESET", 5 );
DEFTSCP( scrt6_default_2dexit_v );
DEFSTRING( t2283, "SCRT6_DEFAULT-EXIT", 18 );
TSCP scrt6_default_2dexit( )
{
PUSHSTACKTRACE( U_TX( ADR( t2283 ) ) );
POPSTACKTRACE( INT_TSCP( exit( TSCP_INT( _TSCP( 0 ) ) ) ) );
}
DEFTSCP( scrt6_exit_v );
DEFSTRING( t2285, "EXIT", 4 );
DEFTSCP( scrt6_default_2dproceed_v );
DEFSTRING( t2286, "SCRT6_DEFAULT-PROCEED", 21 );
TSCP scrt6_default_2dproceed( x1566 )
TSCP x1566;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2286 ) ) );
if ( FALSE( x1566 ) ) goto L2288;
if ( EQ( TSCPTAG( x1566 ), PAIRTAG ) ) goto L2291;
scrt1__24__car_2derror( x1566 );
L2291:
X1 = PAIR_CAR( x1566 );
POPSTACKTRACE( INT_TSCP( exit( TSCP_INT( X1 ) ) ) );
L2288:
POPSTACKTRACE( INT_TSCP( exit( TSCP_INT( _TSCP( 0 ) ) ) ) );
}
DEFTSCP( scrt6_proceed_v );
DEFSTRING( t2293, "PROCEED", 7 );
DEFTSCP( scrt6_pp_v );
DEFSTRING( t2294, "PP", 2 );
EXTERNTSCPP( scrt6_pp1 );
EXTERNTSCP( scrt6_pp1_v );
EXTERNTSCPP( scrt5_open_2doutput_2dfile );
EXTERNTSCP( scrt5_open_2doutput_2dfile_v );
EXTERNTSCPP( scrt5_close_2doutput_2dport );
EXTERNTSCP( scrt5_close_2doutput_2dport_v );
TSCP scrt6_pp( f1572, o1573 )
TSCP f1572, o1573;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2294 ) ) );
if ( NEQ( UNSIGNED( o1573 ),
UNSIGNED( EMPTYLIST ) ) ) goto L2296;
X1 = scrt5_current_2doutput_2dport( );
scrt6_pp1( f1572, X1 );
goto L2299;
L2296:
if ( EQ( TSCPTAG( o1573 ), PAIRTAG ) ) goto L2301;
scrt1__24__car_2derror( o1573 );
L2301:
X1 = PAIR_CAR( o1573 );
if ( FALSE( scrt5_output_2dport_3f( X1 ) ) ) goto L2298;
X1 = PAIR_CAR( o1573 );
scrt6_pp1( f1572, X1 );
goto L2299;
L2298:
if ( EQ( TSCPTAG( o1573 ), PAIRTAG ) ) goto L2305;
scrt1__24__car_2derror( o1573 );
L2305:
X2 = PAIR_CAR( o1573 );
X1 = scrt5_open_2doutput_2dfile( X2 );
scrt6_pp1( f1572, X1 );
scrt5_close_2doutput_2dport( X1 );
L2299:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( scrt6_pp1_v );
DEFSTRING( t2308, "SCRT6_PP1", 9 );
EXTERNTSCPP( scrt6_print_2din );
EXTERNTSCP( scrt6_print_2din_v );
EXTERNTSCPP( scrt2_negative_3f );
EXTERNTSCP( scrt2_negative_3f_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt4_vector_2d_3elist );
EXTERNTSCP( scrt4_vector_2d_3elist_v );
TSCP scrt6_pp1( f1595, p1596 )
TSCP f1595, p1596;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2308 ) ) );
L2309:
X1 = scrt6_write_2dcount( CONS( p1596, EMPTYLIST ) );
X4 = scrt6_write_2dwidth( CONS( p1596, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X4 ), INT( X1 ) ),
3 ) ) goto L2312;
X3 = _TSCP( IDIFFERENCE( INT( X4 ), INT( X1 ) ) );
goto L2313;
L2312:
X3 = scrt2__2d_2dtwo( X4, X1 );
L2313:
X2 = scrt6_print_2din( f1595, X3 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2316;
if ( LT( INT( X2 ), 0 ) ) goto L2320;
goto L2321;
L2316:
if ( FALSE( scrt2_negative_3f( X2 ) ) ) goto L2321;
L2320:
if ( NEQ( TSCPTAG( f1595 ), PAIRTAG ) ) goto L2324;
scrt6_display( c1529, CONS( p1596, EMPTYLIST ) );
X2 = PAIR_CAR( f1595 );
scrt6_pp1( X2, p1596 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L2329;
X3 = _TSCP( IPLUS( INT( X1 ), INT( _TSCP( 8 ) ) ) );
goto L2330;
L2329:
X3 = scrt2__2b_2dtwo( X1, _TSCP( 8 ) );
L2330:
X2 = sc_make_2dstring( X3,
CONS( _TSCP( 8210 ), EMPTYLIST ) );
X3 = PAIR_CDR( f1595 );
L2332:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2333;
scrt6_newline( CONS( p1596, EMPTYLIST ) );
scrt6_display( X2, CONS( p1596, EMPTYLIST ) );
X4 = PAIR_CAR( X3 );
scrt6_pp1( X4, p1596 );
X3 = PAIR_CDR( X3 );
goto L2332;
L2333:
if ( FALSE( X3 ) ) goto L2339;
scrt6_newline( CONS( p1596, EMPTYLIST ) );
scrt6_display( X2, CONS( p1596, EMPTYLIST ) );
scrt6_display( c1636, CONS( p1596, EMPTYLIST ) );
scrt6_pp1( X3, p1596 );
L2339:
POPSTACKTRACE( scrt6_display( c1637,
CONS( p1596, EMPTYLIST ) ) );
L2324:
if ( NOT( AND( EQ( TSCPTAG( f1595 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( f1595 ), VECTORTAG ) ) )
) goto L2342;
scrt6_display( c1612, CONS( p1596, EMPTYLIST ) );
X2 = scrt4_vector_2d_3elist( f1595 );
f1595 = X2;
goto L2309;
L2342:
POPSTACKTRACE( scrt6_write( f1595,
CONS( p1596, EMPTYLIST ) ) );
L2321:
POPSTACKTRACE( scrt6_write( f1595,
CONS( p1596, EMPTYLIST ) ) );
}
DEFTSCP( scrt6_print_2din_v );
DEFSTRING( t2345, "SCRT6_PRINT-IN", 14 );
TSCP scrt6_print_2din( f1657, l1658 )
TSCP f1657, l1658;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2345 ) ) );
L2346:
if ( NEQ( TSCPTAG( l1658 ), FIXNUMTAG ) ) goto L2348;
if ( GTE( INT( l1658 ), 0 ) ) goto L2352;
POPSTACKTRACE( l1658 );
L2348:
if ( FALSE( scrt2_negative_3f( l1658 ) ) ) goto L2352;
POPSTACKTRACE( l1658 );
L2352:
if ( NEQ( TSCPTAG( f1657 ), PAIRTAG ) ) goto L2355;
X1 = PAIR_CDR( f1657 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2357;
X2 = PAIR_CAR( f1657 );
if ( BITAND( BITOR( INT( l1658 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L2361;
X3 = _TSCP( IDIFFERENCE( INT( l1658 ),
INT( _TSCP( 4 ) ) ) );
goto L2362;
L2361:
X3 = scrt2__2d_2dtwo( l1658, _TSCP( 4 ) );
L2362:
X1 = scrt6_print_2din( X2, X3 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2364;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) ) );
L2364:
POPSTACKTRACE( scrt2__2d_2dtwo( X1, _TSCP( 4 ) ) );
L2357:
X1 = PAIR_CDR( f1657 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2366;
X1 = PAIR_CDR( f1657 );
X2 = PAIR_CAR( f1657 );
if ( BITAND( BITOR( INT( l1658 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L2371;
X3 = _TSCP( IDIFFERENCE( INT( l1658 ),
INT( _TSCP( 4 ) ) ) );
goto L2372;
L2371:
X3 = scrt2__2d_2dtwo( l1658, _TSCP( 4 ) );
L2372:
l1658 = scrt6_print_2din( X2, X3 );
f1657 = X1;
goto L2346;
L2366:
X1 = PAIR_CDR( f1657 );
X2 = PAIR_CAR( f1657 );
if ( BITAND( BITOR( INT( l1658 ),
INT( _TSCP( 20 ) ) ),
3 ) ) goto L2375;
X3 = _TSCP( IDIFFERENCE( INT( l1658 ),
INT( _TSCP( 20 ) ) ) );
goto L2376;
L2375:
X3 = scrt2__2d_2dtwo( l1658, _TSCP( 20 ) );
L2376:
l1658 = scrt6_print_2din( X2, X3 );
f1657 = X1;
goto L2346;
L2355:
if ( NOT( AND( EQ( TSCPTAG( f1657 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( f1657 ), VECTORTAG ) ) )
) goto L2377;
X1 = scrt4_vector_2d_3elist( f1657 );
if ( BITAND( BITOR( INT( l1658 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L2379;
l1658 = _TSCP( IDIFFERENCE( INT( l1658 ),
INT( _TSCP( 4 ) ) ) );
goto L2380;
L2379:
l1658 = scrt2__2d_2dtwo( l1658, _TSCP( 4 ) );
L2380:
f1657 = X1;
goto L2346;
L2377:
X1 = scrt5_open_2doutput_2dstring( );
scrt6_write( f1657, CONS( X1, EMPTYLIST ) );
X3 = scrt6_get_2doutput_2dstring( X1 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), STRINGTAG ) ) ) goto L2383;
scrt6_error( c1412, c1413, CONS( X3, EMPTYLIST ) );
L2383:
X2 = C_FIXED( STRING_LENGTH( X3 ) );
if ( BITAND( BITOR( INT( l1658 ), INT( X2 ) ),
3 ) ) goto L2386;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( l1658 ),
INT( X2 ) ) ) );
L2386:
POPSTACKTRACE( scrt2__2d_2dtwo( l1658, X2 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt4__init();
scrt2__init();
scrt7__init();
scrt5__init();
scrt1__init();
MAXDISPLAY( 2 );
}
void scrt6__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scrt6 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1918 ) ),
ADR( scrt6_pending_2dstdout_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t1919 ) ),
ADR( scrt6_input_2dport_v ),
MAKEPROCEDURE( 2,
0,
scrt6_input_2dport, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1937 ) ),
ADR( scrt6_read_v ),
MAKEPROCEDURE( 0,
1, scrt6_read, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1939 ) ),
ADR( scrt6_read_2dchar_v ),
MAKEPROCEDURE( 0,
1,
scrt6_read_2dchar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1941 ) ),
ADR( scrt6_peek_2dchar_v ),
MAKEPROCEDURE( 0,
1,
scrt6_peek_2dchar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1943 ) ),
ADR( scrt6_char_2dready_3f_v ),
MAKEPROCEDURE( 0,
1,
scrt6_char_2dready_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1945 ) ),
ADR( scrt6_eof_2dobject_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt6_eof_2dobject_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1947 ) ),
ADR( scrt6_output_2dport_v ),
MAKEPROCEDURE( 2,
0,
scrt6_output_2dport, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1971 ) ),
ADR( scrt6_write_v ),
MAKEPROCEDURE( 1,
1, scrt6_write, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1973 ) ),
ADR( scrt6_display_v ),
MAKEPROCEDURE( 1,
1, scrt6_display, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1975 ) ),
ADR( scrt6_write_2dchar_v ),
MAKEPROCEDURE( 1,
1,
scrt6_write_2dchar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1979 ) ),
ADR( scrt6_newline_v ),
MAKEPROCEDURE( 0,
1, scrt6_newline, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1981 ) ),
ADR( scrt6_flush_2dbuffer_v ),
MAKEPROCEDURE( 0,
1,
scrt6_flush_2dbuffer, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1983 ) ),
ADR( scrt6_get_2doutput_2dstring_v ),
MAKEPROCEDURE( 1,
0,
scrt6_get_2doutput_2dstring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1994 ) ),
ADR( scrt6_write_2dcount_v ),
MAKEPROCEDURE( 0,
1,
scrt6_write_2dcount, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1996 ) ),
ADR( scrt6_write_2dwidth_v ),
MAKEPROCEDURE( 0,
1,
scrt6_write_2dwidth, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1998 ) ),
ADR( scrt6_set_2dwrite_2dwidth_21_v ),
MAKEPROCEDURE( 1,
1,
scrt6_set_2dwrite_2dwidth_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2014 ) ),
ADR( scrt6_echo_v ),
MAKEPROCEDURE( 1,
1, scrt6_echo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2043 ) ),
ADR( scrt6_transcript_2don_v ),
MAKEPROCEDURE( 1,
0,
scrt6_transcript_2don, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2054 ) ),
ADR( scrt6_transcript_2doff_v ),
MAKEPROCEDURE( 0,
0,
scrt6_transcript_2doff,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2059 ) ),
ADR( scrt6_port_2d_3estdio_2dfile_v ),
MAKEPROCEDURE( 1,
0,
scrt6_port_2d_3estdio_2dfile,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2074 ) ),
ADR( scrt6_error_v ),
MAKEPROCEDURE( 2,
1, scrt6_error, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2094 ) ),
ADR( scrt6_error_2ddisplay_v ),
MAKEPROCEDURE( 1,
0,
scrt6_error_2ddisplay, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2110 ) ),
ADR( scrt6__2dhandler_2bdb2af0_v ),
MAKEPROCEDURE( 2,
1,
scrt6__2dhandler_2bdb2af0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2112 ) ),
ADR( scrt6__2aerror_2dhandler_2a_v ),
scrt6__2dhandler_2bdb2af0_v );
INITIALIZEVAR( U_TX( ADR( t2113 ) ),
ADR( scrt6_format_v ),
MAKEPROCEDURE( 1,
1, scrt6_format, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2155 ) ),
ADR( scrt6_formatx_v ),
MAKEPROCEDURE( 3,
0, scrt6_formatx, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2227 ) ),
ADR( scrt6_default_2dreset_v ),
MAKEPROCEDURE( 0,
0,
scrt6_default_2dreset, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2282 ) ),
ADR( scrt6_reset_v ),
scrt6_default_2dreset_v );
INITIALIZEVAR( U_TX( ADR( t2283 ) ),
ADR( scrt6_default_2dexit_v ),
MAKEPROCEDURE( 0,
0,
scrt6_default_2dexit, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2285 ) ),
ADR( scrt6_exit_v ),
scrt6_default_2dexit_v );
INITIALIZEVAR( U_TX( ADR( t2286 ) ),
ADR( scrt6_default_2dproceed_v ),
MAKEPROCEDURE( 0,
1,
scrt6_default_2dproceed,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2293 ) ),
ADR( scrt6_proceed_v ),
scrt6_default_2dproceed_v );
INITIALIZEVAR( U_TX( ADR( t2294 ) ),
ADR( scrt6_pp_v ),
MAKEPROCEDURE( 1,
1, scrt6_pp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2308 ) ),
ADR( scrt6_pp1_v ),
MAKEPROCEDURE( 2,
0, scrt6_pp1, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2345 ) ),
ADR( scrt6_print_2din_v ),
MAKEPROCEDURE( 2,
0,
scrt6_print_2din, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.