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.