This is typedef.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTATICTSCP( c1966 );
DEFSTRING( t2075, "I", 1 );
DEFSTATICTSCP( t2074 );
DEFSTRING( t2076, "-", 1 );
DEFSTATICTSCP2( c1965, t2076 );
DEFSTRING( t2077, "(include ~s)~%", 14 );
DEFSTATICTSCP2( c1887, t2077 );
DEFSTRING( t2078, "(module ~a)~%", 13 );
DEFSTATICTSCP2( c1886, t2078 );
DEFSTRING( t2079, "(define-external ~s ~a)~%", 25 );
DEFSTATICTSCP2( c1875, t2079 );
DEFSTRING( t2080, "MAP", 3 );
DEFSTATICTSCP( c1856 );
DEFSTRING( t2081, "STRING-APPEND", 13 );
DEFSTATICTSCP( c1855 );
DEFSTRING( t2082, "APPLY", 5 );
DEFSTATICTSCP( c1854 );
DEFSTRING( t2083, "SUBSTRING", 9 );
DEFSTATICTSCP( c1853 );
DEFSTRING( t2084, "ESIZE", 5 );
DEFSTATICTSCP( c1852 );
DEFSTRING( t2085, "ASIZE", 5 );
DEFSTATICTSCP( c1851 );
DEFSTRING( t2086, "ARRAY", 5 );
DEFSTATICTSCP( c1850 );
DEFSTRING( t2087, "LET*", 4 );
DEFSTATICTSCP( c1849 );
DEFSTRING( t2088, "INTEGER->CHAR", 13 );
DEFSTATICTSCP( c1847 );
DEFSTRING( t2089, "MAKE-STRING", 11 );
DEFSTATICTSCP( c1843 );
DEFSTATICTSCP( c1842 );
DEFSTRING( t2091, "X", 1 );
DEFSTATICTSCP( t2090 );
DEFSTRING( t2092, "!", 1 );
DEFSTATICTSCP2( c1838, t2092 );
DEFSTRING( t2093, "BEGIN", 5 );
DEFSTATICTSCP( c1837 );
DEFSTATICTSCP( c1836 );
DEFSTRING( t2095, "L", 1 );
DEFSTATICTSCP( t2094 );
DEFSTRING( t2097, "LENGTH", 6 );
DEFSTATICTSCP( t2096 );
DEFSTRING( t2098, "MAKE-", 5 );
DEFSTATICTSCP2( c1832, t2098 );
DEFSTRING( t2099, "A", 1 );
DEFSTATICTSCP( c1831 );
DEFSTRING( t2100, "L", 1 );
DEFSTATICTSCP( c1830 );
DEFSTRING( t2101, "-LIST->", 7 );
DEFSTATICTSCP2( c1829, t2101 );
DEFSTRING( t2102, "COUNT", 5 );
DEFSTATICTSCP( c1828 );
DEFSTRING( t2103, "LOOP", 4 );
DEFSTATICTSCP( c1827 );
DEFSTRING( t2104, "LET", 3 );
DEFSTATICTSCP( c1826 );
DEFSTRING( t2105, "-LIST", 5 );
DEFSTATICTSCP2( c1825, t2105 );
DEFSTRING( t2106, "->", 2 );
DEFSTATICTSCP2( c1824, t2106 );
DEFSTRING( t2107, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1818 );
DEFSTRING( t2108, "QUOTIENT", 8 );
DEFSTATICTSCP( c1817 );
DEFSTRING( t2109, "-LENGTH", 7 );
DEFSTATICTSCP2( c1816, t2109 );
DEFSTRING( t2110, "?", 1 );
DEFSTATICTSCP2( c1803, t2110 );
DEFSTRING( t2111, "ISA-", 4 );
DEFSTATICTSCP2( c1802, t2111 );
DEFSTRING( t2112, "Argument is incorrect type: ~s", 30 );
DEFSTATICTSCP2( c1801, t2112 );
DEFSTRING( t2113, "ERROR", 5 );
DEFSTATICTSCP( c1800 );
DEFSTRING( t2114, "CDR", 3 );
DEFSTATICTSCP( c1799 );
DEFSTRING( t2115, "CAR", 3 );
DEFSTATICTSCP( c1798 );
DEFSTRING( t2116, "EQ?", 3 );
DEFSTATICTSCP( c1797 );
DEFSTRING( t2117, "PAIR?", 5 );
DEFSTATICTSCP( c1796 );
DEFSTRING( t2118, "AND", 3 );
DEFSTATICTSCP( c1795 );
DEFSTRING( t2119, "IF", 2 );
DEFSTATICTSCP( c1794 );
DEFSTRING( t2120, "DEFINE", 6 );
DEFSTATICTSCP( c1793 );
DEFSTRING( t2121, ".sch", 4 );
DEFSTATICTSCP2( c1789, t2121 );
DEFSTRING( t2122, ".sc", 3 );
DEFSTATICTSCP2( c1788, t2122 );
DEFSTRING( t2123, "(module ~a)~%~%", 15 );
DEFSTATICTSCP2( c1757, t2123 );
DEFSTRING( t2124, "DEFINE-EXTERNAL", 15 );
DEFSTATICTSCP( c1746 );
DEFSTRING( t2125, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1711, t2125 );
DEFSTRING( t2126, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1710 );
DEFSTRING( t2127, "CHK-", 4 );
DEFSTATICTSCP2( c1642, t2127 );
DEFSTATICTSCP( c1640 );
DEFSTRING( t2129, "LAMBDA", 6 );
DEFSTATICTSCP( t2128 );
DEFSTRING( t2130, "Z", 1 );
DEFSTATICTSCP( c1630 );
DEFSTRING( t2131, "+", 1 );
DEFSTATICTSCP( c1620 );
DEFSTRING( t2132, "I", 1 );
DEFSTATICTSCP( c1619 );
DEFSTRING( t2133, "QUOTE", 5 );
DEFSTATICTSCP( c1618 );
DEFSTRING( t2134, "CONS", 4 );
DEFSTATICTSCP( c1617 );
DEFSTRING( t2135, "Y", 1 );
DEFSTATICTSCP( c1616 );
DEFSTRING( t2136, "X", 1 );
DEFSTATICTSCP( c1615 );
DEFSTRING( t2137, "LAMBDA", 6 );
DEFSTATICTSCP( c1614 );
DEFSTRING( t2138, "PROCEDURE", 9 );
DEFSTATICTSCP( c1604 );
DEFSTRING( t2139, "POINTER", 7 );
DEFSTATICTSCP( c1603 );
DEFSTRING( t2140, "Mystery type: ~s", 16 );
DEFSTATICTSCP2( c1596, t2140 );
DEFSTRING( t2141, "SIZE-OF", 7 );
DEFSTATICTSCP( c1595 );
DEFSTRING( t2142, "BASE TYPE cannot be resolved: ~s", 32 );
DEFSTATICTSCP2( c1379, t2142 );
DEFSTATICTSCP( c1357 );
DEFSTRING( t2144, "C-DOUBLE-SET!", 13 );
DEFSTATICTSCP( t2143 );
DEFSTRING( t2146, "C-DOUBLE-REF", 12 );
DEFSTATICTSCP( t2145 );
DEFSTRING( t2148, "DOUBLE", 6 );
DEFSTATICTSCP( t2147 );
DEFSTRING( t2150, "C-FLOAT-SET!", 12 );
DEFSTATICTSCP( t2149 );
DEFSTRING( t2152, "C-FLOAT-REF", 11 );
DEFSTATICTSCP( t2151 );
DEFSTRING( t2154, "FLOAT", 5 );
DEFSTATICTSCP( t2153 );
DEFSTRING( t2156, "C-UNSIGNED-SET!", 15 );
DEFSTATICTSCP( t2155 );
DEFSTRING( t2158, "C-UNSIGNED-REF", 14 );
DEFSTATICTSCP( t2157 );
DEFSTRING( t2160, "UNSIGNED", 8 );
DEFSTATICTSCP( t2159 );
DEFSTRING( t2162, "C-INT-SET!", 10 );
DEFSTATICTSCP( t2161 );
DEFSTRING( t2164, "C-INT-REF", 9 );
DEFSTATICTSCP( t2163 );
DEFSTRING( t2166, "INT", 3 );
DEFSTATICTSCP( t2165 );
DEFSTRING( t2168, "C-SHORTUNSIGNED-SET!", 20 );
DEFSTATICTSCP( t2167 );
DEFSTRING( t2170, "C-SHORTUNSIGNED-REF", 19 );
DEFSTATICTSCP( t2169 );
DEFSTRING( t2172, "SHORTUNSIGNED", 13 );
DEFSTATICTSCP( t2171 );
DEFSTRING( t2174, "C-SHORTINT-SET!", 15 );
DEFSTATICTSCP( t2173 );
DEFSTRING( t2176, "C-SHORTINT-REF", 14 );
DEFSTATICTSCP( t2175 );
DEFSTRING( t2178, "SHORTINT", 8 );
DEFSTATICTSCP( t2177 );
DEFSTRING( t2180, "C-BYTE-SET!", 11 );
DEFSTATICTSCP( t2179 );
DEFSTRING( t2182, "C-BYTE-REF", 10 );
DEFSTATICTSCP( t2181 );
DEFSTRING( t2184, "CHAR", 4 );
DEFSTATICTSCP( t2183 );
DEFSTRING( t2185, "TO-SET!", 7 );
DEFSTATICTSCP( c1356 );
DEFSTRING( t2186, "TO-GET", 6 );
DEFSTATICTSCP( c1355 );
DEFSTRING( t2187, "SIZE", 4 );
DEFSTATICTSCP( c1354 );
DEFSTRING( t2188, "*TYPE~s", 7 );
DEFSTATICTSCP2( c1325, t2188 );
DEFSTRING( t2189, "Argument is not a legal slot: ~s", 32 );
DEFSTATICTSCP2( c1286, t2189 );
DEFSTRING( t2190, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1250, t2190 );
DEFSTRING( t2191, "SET-CDR!", 8 );
DEFSTATICTSCP( c1249 );
DEFSTRING( t2192, "STRUCT-OR-UNION", 15 );
DEFSTATICTSCP( c1214 );
DEFSTRING( t2193, "UNION", 5 );
DEFSTATICTSCP( c1213 );
DEFSTRING( t2194, "STRUCT", 6 );
DEFSTATICTSCP( c1209 );
DEFSTRING( t2195, "PARSE-STYPE", 11 );
DEFSTATICTSCP( c1198 );
DEFSTRING( t2196, "Argument is not a legal type: ~s", 32 );
DEFSTATICTSCP2( c1177, t2196 );
DEFSTRING( t2197, "PARSE-ATYPE", 11 );
DEFSTATICTSCP( c1176 );
DEFSTRING( t2198, "*PROC", 5 );
DEFSTATICTSCP( c1111 );
DEFSTATICTSCP( c1103 );
DEFSTATICTSCP( c1098 );
DEFSTRING( t2200, "*", 1 );
DEFSTATICTSCP( t2199 );
DEFSTATICTSCP( c1093 );
DEFSTRING( t2201, "POINTED-TO-BY", 13 );
DEFSTATICTSCP( c1072 );
DEFSTRING( t2202, "*", 1 );
DEFSTATICTSCP( c1067 );
DEFSTRING( t2203, "TYPE", 4 );
DEFSTATICTSCP( c1037 );
DEFSTRING( t2204, "BASE-TYPE", 9 );
DEFSTATICTSCP( c1036 );
DEFSTRING( t2205, "Illegal syntax: ~s", 18 );
DEFSTATICTSCP2( c1032, t2205 );
DEFSTRING( t2206, "INPUT-TYPEDEF", 13 );
DEFSTATICTSCP( c1031 );
DEFSTRING( t2207, "TYPEDEF", 7 );
DEFSTATICTSCP( c1027 );
static void init_constants()
{
TSCP X1;
c1966 = EMPTYLIST;
t2074 = STRINGTOSYMBOL( U_TX( ADR( t2075 ) ) );
c1966 = CONS( t2074, c1966 );
CONSTANTEXP( ADR( c1966 ) );
c1856 = STRINGTOSYMBOL( U_TX( ADR( t2080 ) ) );
CONSTANTEXP( ADR( c1856 ) );
c1855 = STRINGTOSYMBOL( U_TX( ADR( t2081 ) ) );
CONSTANTEXP( ADR( c1855 ) );
c1854 = STRINGTOSYMBOL( U_TX( ADR( t2082 ) ) );
CONSTANTEXP( ADR( c1854 ) );
c1853 = STRINGTOSYMBOL( U_TX( ADR( t2083 ) ) );
CONSTANTEXP( ADR( c1853 ) );
c1852 = STRINGTOSYMBOL( U_TX( ADR( t2084 ) ) );
CONSTANTEXP( ADR( c1852 ) );
c1851 = STRINGTOSYMBOL( U_TX( ADR( t2085 ) ) );
CONSTANTEXP( ADR( c1851 ) );
c1850 = STRINGTOSYMBOL( U_TX( ADR( t2086 ) ) );
CONSTANTEXP( ADR( c1850 ) );
c1849 = STRINGTOSYMBOL( U_TX( ADR( t2087 ) ) );
CONSTANTEXP( ADR( c1849 ) );
c1847 = STRINGTOSYMBOL( U_TX( ADR( t2088 ) ) );
CONSTANTEXP( ADR( c1847 ) );
c1843 = STRINGTOSYMBOL( U_TX( ADR( t2089 ) ) );
CONSTANTEXP( ADR( c1843 ) );
c1842 = EMPTYLIST;
t2090 = STRINGTOSYMBOL( U_TX( ADR( t2091 ) ) );
c1842 = CONS( t2090, c1842 );
CONSTANTEXP( ADR( c1842 ) );
c1837 = STRINGTOSYMBOL( U_TX( ADR( t2093 ) ) );
CONSTANTEXP( ADR( c1837 ) );
c1836 = EMPTYLIST;
X1 = EMPTYLIST;
t2094 = STRINGTOSYMBOL( U_TX( ADR( t2095 ) ) );
X1 = CONS( t2094, X1 );
t2096 = STRINGTOSYMBOL( U_TX( ADR( t2097 ) ) );
X1 = CONS( t2096, X1 );
c1836 = CONS( X1, c1836 );
CONSTANTEXP( ADR( c1836 ) );
c1831 = STRINGTOSYMBOL( U_TX( ADR( t2099 ) ) );
CONSTANTEXP( ADR( c1831 ) );
c1830 = STRINGTOSYMBOL( U_TX( ADR( t2100 ) ) );
CONSTANTEXP( ADR( c1830 ) );
c1828 = STRINGTOSYMBOL( U_TX( ADR( t2102 ) ) );
CONSTANTEXP( ADR( c1828 ) );
c1827 = STRINGTOSYMBOL( U_TX( ADR( t2103 ) ) );
CONSTANTEXP( ADR( c1827 ) );
c1826 = STRINGTOSYMBOL( U_TX( ADR( t2104 ) ) );
CONSTANTEXP( ADR( c1826 ) );
c1818 = STRINGTOSYMBOL( U_TX( ADR( t2107 ) ) );
CONSTANTEXP( ADR( c1818 ) );
c1817 = STRINGTOSYMBOL( U_TX( ADR( t2108 ) ) );
CONSTANTEXP( ADR( c1817 ) );
c1800 = STRINGTOSYMBOL( U_TX( ADR( t2113 ) ) );
CONSTANTEXP( ADR( c1800 ) );
c1799 = STRINGTOSYMBOL( U_TX( ADR( t2114 ) ) );
CONSTANTEXP( ADR( c1799 ) );
c1798 = STRINGTOSYMBOL( U_TX( ADR( t2115 ) ) );
CONSTANTEXP( ADR( c1798 ) );
c1797 = STRINGTOSYMBOL( U_TX( ADR( t2116 ) ) );
CONSTANTEXP( ADR( c1797 ) );
c1796 = STRINGTOSYMBOL( U_TX( ADR( t2117 ) ) );
CONSTANTEXP( ADR( c1796 ) );
c1795 = STRINGTOSYMBOL( U_TX( ADR( t2118 ) ) );
CONSTANTEXP( ADR( c1795 ) );
c1794 = STRINGTOSYMBOL( U_TX( ADR( t2119 ) ) );
CONSTANTEXP( ADR( c1794 ) );
c1793 = STRINGTOSYMBOL( U_TX( ADR( t2120 ) ) );
CONSTANTEXP( ADR( c1793 ) );
c1746 = STRINGTOSYMBOL( U_TX( ADR( t2124 ) ) );
CONSTANTEXP( ADR( c1746 ) );
c1710 = STRINGTOSYMBOL( U_TX( ADR( t2126 ) ) );
CONSTANTEXP( ADR( c1710 ) );
c1640 = EMPTYLIST;
c1640 = CONS( t2090, c1640 );
X1 = EMPTYLIST;
X1 = CONS( t2090, X1 );
c1640 = CONS( X1, c1640 );
t2128 = STRINGTOSYMBOL( U_TX( ADR( t2129 ) ) );
c1640 = CONS( t2128, c1640 );
CONSTANTEXP( ADR( c1640 ) );
c1630 = STRINGTOSYMBOL( U_TX( ADR( t2130 ) ) );
CONSTANTEXP( ADR( c1630 ) );
c1620 = STRINGTOSYMBOL( U_TX( ADR( t2131 ) ) );
CONSTANTEXP( ADR( c1620 ) );
c1619 = STRINGTOSYMBOL( U_TX( ADR( t2132 ) ) );
CONSTANTEXP( ADR( c1619 ) );
c1618 = STRINGTOSYMBOL( U_TX( ADR( t2133 ) ) );
CONSTANTEXP( ADR( c1618 ) );
c1617 = STRINGTOSYMBOL( U_TX( ADR( t2134 ) ) );
CONSTANTEXP( ADR( c1617 ) );
c1616 = STRINGTOSYMBOL( U_TX( ADR( t2135 ) ) );
CONSTANTEXP( ADR( c1616 ) );
c1615 = STRINGTOSYMBOL( U_TX( ADR( t2136 ) ) );
CONSTANTEXP( ADR( c1615 ) );
c1614 = STRINGTOSYMBOL( U_TX( ADR( t2137 ) ) );
CONSTANTEXP( ADR( c1614 ) );
c1604 = STRINGTOSYMBOL( U_TX( ADR( t2138 ) ) );
CONSTANTEXP( ADR( c1604 ) );
c1603 = STRINGTOSYMBOL( U_TX( ADR( t2139 ) ) );
CONSTANTEXP( ADR( c1603 ) );
c1595 = STRINGTOSYMBOL( U_TX( ADR( t2141 ) ) );
CONSTANTEXP( ADR( c1595 ) );
c1357 = EMPTYLIST;
X1 = EMPTYLIST;
t2143 = STRINGTOSYMBOL( U_TX( ADR( t2144 ) ) );
X1 = CONS( t2143, X1 );
t2145 = STRINGTOSYMBOL( U_TX( ADR( t2146 ) ) );
X1 = CONS( t2145, X1 );
X1 = CONS( _TSCP( 32 ), X1 );
t2147 = STRINGTOSYMBOL( U_TX( ADR( t2148 ) ) );
X1 = CONS( t2147, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
t2149 = STRINGTOSYMBOL( U_TX( ADR( t2150 ) ) );
X1 = CONS( t2149, X1 );
t2151 = STRINGTOSYMBOL( U_TX( ADR( t2152 ) ) );
X1 = CONS( t2151, X1 );
X1 = CONS( _TSCP( 16 ), X1 );
t2153 = STRINGTOSYMBOL( U_TX( ADR( t2154 ) ) );
X1 = CONS( t2153, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
t2155 = STRINGTOSYMBOL( U_TX( ADR( t2156 ) ) );
X1 = CONS( t2155, X1 );
t2157 = STRINGTOSYMBOL( U_TX( ADR( t2158 ) ) );
X1 = CONS( t2157, X1 );
X1 = CONS( _TSCP( 16 ), X1 );
X1 = CONS( c1604, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
X1 = CONS( t2155, X1 );
X1 = CONS( t2157, X1 );
X1 = CONS( _TSCP( 16 ), X1 );
X1 = CONS( c1603, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
X1 = CONS( t2155, X1 );
X1 = CONS( t2157, X1 );
X1 = CONS( _TSCP( 16 ), X1 );
t2159 = STRINGTOSYMBOL( U_TX( ADR( t2160 ) ) );
X1 = CONS( t2159, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
t2161 = STRINGTOSYMBOL( U_TX( ADR( t2162 ) ) );
X1 = CONS( t2161, X1 );
t2163 = STRINGTOSYMBOL( U_TX( ADR( t2164 ) ) );
X1 = CONS( t2163, X1 );
X1 = CONS( _TSCP( 16 ), X1 );
t2165 = STRINGTOSYMBOL( U_TX( ADR( t2166 ) ) );
X1 = CONS( t2165, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
t2167 = STRINGTOSYMBOL( U_TX( ADR( t2168 ) ) );
X1 = CONS( t2167, X1 );
t2169 = STRINGTOSYMBOL( U_TX( ADR( t2170 ) ) );
X1 = CONS( t2169, X1 );
X1 = CONS( _TSCP( 8 ), X1 );
t2171 = STRINGTOSYMBOL( U_TX( ADR( t2172 ) ) );
X1 = CONS( t2171, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
t2173 = STRINGTOSYMBOL( U_TX( ADR( t2174 ) ) );
X1 = CONS( t2173, X1 );
t2175 = STRINGTOSYMBOL( U_TX( ADR( t2176 ) ) );
X1 = CONS( t2175, X1 );
X1 = CONS( _TSCP( 8 ), X1 );
t2177 = STRINGTOSYMBOL( U_TX( ADR( t2178 ) ) );
X1 = CONS( t2177, X1 );
c1357 = CONS( X1, c1357 );
X1 = EMPTYLIST;
t2179 = STRINGTOSYMBOL( U_TX( ADR( t2180 ) ) );
X1 = CONS( t2179, X1 );
t2181 = STRINGTOSYMBOL( U_TX( ADR( t2182 ) ) );
X1 = CONS( t2181, X1 );
X1 = CONS( _TSCP( 4 ), X1 );
t2183 = STRINGTOSYMBOL( U_TX( ADR( t2184 ) ) );
X1 = CONS( t2183, X1 );
c1357 = CONS( X1, c1357 );
CONSTANTEXP( ADR( c1357 ) );
c1356 = STRINGTOSYMBOL( U_TX( ADR( t2185 ) ) );
CONSTANTEXP( ADR( c1356 ) );
c1355 = STRINGTOSYMBOL( U_TX( ADR( t2186 ) ) );
CONSTANTEXP( ADR( c1355 ) );
c1354 = STRINGTOSYMBOL( U_TX( ADR( t2187 ) ) );
CONSTANTEXP( ADR( c1354 ) );
c1249 = STRINGTOSYMBOL( U_TX( ADR( t2191 ) ) );
CONSTANTEXP( ADR( c1249 ) );
c1214 = STRINGTOSYMBOL( U_TX( ADR( t2192 ) ) );
CONSTANTEXP( ADR( c1214 ) );
c1213 = STRINGTOSYMBOL( U_TX( ADR( t2193 ) ) );
CONSTANTEXP( ADR( c1213 ) );
c1209 = STRINGTOSYMBOL( U_TX( ADR( t2194 ) ) );
CONSTANTEXP( ADR( c1209 ) );
c1198 = STRINGTOSYMBOL( U_TX( ADR( t2195 ) ) );
CONSTANTEXP( ADR( c1198 ) );
c1176 = STRINGTOSYMBOL( U_TX( ADR( t2197 ) ) );
CONSTANTEXP( ADR( c1176 ) );
c1111 = STRINGTOSYMBOL( U_TX( ADR( t2198 ) ) );
CONSTANTEXP( ADR( c1111 ) );
c1103 = EMPTYLIST;
c1103 = CONS( c1111, c1103 );
CONSTANTEXP( ADR( c1103 ) );
c1098 = EMPTYLIST;
t2199 = STRINGTOSYMBOL( U_TX( ADR( t2200 ) ) );
c1098 = CONS( t2199, c1098 );
CONSTANTEXP( ADR( c1098 ) );
c1093 = EMPTYLIST;
c1093 = CONS( c1213, c1093 );
c1093 = CONS( c1209, c1093 );
CONSTANTEXP( ADR( c1093 ) );
c1072 = STRINGTOSYMBOL( U_TX( ADR( t2201 ) ) );
CONSTANTEXP( ADR( c1072 ) );
c1067 = STRINGTOSYMBOL( U_TX( ADR( t2202 ) ) );
CONSTANTEXP( ADR( c1067 ) );
c1037 = STRINGTOSYMBOL( U_TX( ADR( t2203 ) ) );
CONSTANTEXP( ADR( c1037 ) );
c1036 = STRINGTOSYMBOL( U_TX( ADR( t2204 ) ) );
CONSTANTEXP( ADR( c1036 ) );
c1031 = STRINGTOSYMBOL( U_TX( ADR( t2206 ) ) );
CONSTANTEXP( ADR( c1031 ) );
c1027 = STRINGTOSYMBOL( U_TX( ADR( t2207 ) ) );
CONSTANTEXP( ADR( c1027 ) );
}
DEFTSCP( typedef_input_2dtypedef_v );
DEFSTRING( t2208, "INPUT-TYPEDEF", 13 );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( typedef_parse_2dtype );
EXTERNTSCP( typedef_parse_2dtype_v );
EXTERNTSCPP( scrt2_putprop );
EXTERNTSCP( scrt2_putprop_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP typedef_input_2dtypedef( e1002 )
TSCP e1002;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2208 ) ) );
X2 = scrt1_length( e1002 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L2211;
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 12 ) ) ) );
goto L2212;
L2211:
X1 = scrt2__3d_2dtwo( X2, _TSCP( 12 ) );
L2212:
if ( FALSE( X1 ) ) goto L2243;
if ( EQ( TSCPTAG( e1002 ), PAIRTAG ) ) goto L2221;
scrt1__24__car_2derror( e1002 );
L2221:
X2 = PAIR_CAR( e1002 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1027 ) ) ) goto L2243;
X2 = scrt1_caddr( e1002 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2243;
X2 = scrt1_caddr( e1002 );
X5 = PAIR_CDR( e1002 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2227;
scrt1__24__car_2derror( X5 );
L2227:
X4 = PAIR_CAR( X5 );
X3 = typedef_parse_2dtype( X4 );
scrt2_putprop( X2, c1036, FALSEVALUE );
scrt2_putprop( X2, c1037, X3 );
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2235;
X4 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
) goto L2235;
X5 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2239;
scrt1__24__car_2derror( X5 );
L2239:
X4 = PAIR_CAR( X5 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1067 ) ) ) goto L2235;
X4 = PAIR_CAR( X3 );
scrt2_putprop( X4, c1072, X2 );
L2235:
POPSTACKTRACE( X2 );
L2243:
POPSTACKTRACE( scrt6_error( c1031,
c1032,
CONS( e1002, EMPTYLIST ) ) );
}
DEFTSCP( typedef_parse_2dtype_v );
DEFSTRING( t2244, "PARSE-TYPE", 10 );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( typedef_struct_2dor_2dunion );
EXTERNTSCP( typedef_struct_2dor_2dunion_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( typedef_parse_2dstype );
EXTERNTSCP( typedef_parse_2dstype_v );
EXTERNTSCPP( typedef_parse_2datype );
EXTERNTSCP( typedef_parse_2datype_v );
TSCP typedef_parse_2dtype( t1085 )
TSCP t1085;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2244 ) ) );
if ( NEQ( TSCPTAG( t1085 ), PAIRTAG ) ) goto L2246;
X1 = PAIR_CAR( t1085 );
if ( FALSE( scrt1_memq( X1, c1093 ) ) ) goto L2248;
POPSTACKTRACE( typedef_struct_2dor_2dunion( t1085 ) );
L2248:
X1 = PAIR_CDR( t1085 );
if ( FALSE( scrt1_equal_3f( X1, c1098 ) ) ) goto L2251;
X3 = PAIR_CAR( t1085 );
X2 = typedef_parse_2dstype( X3 );
X3 = sc_cons( c1067, EMPTYLIST );
X1 = sc_cons( X2, X3 );
POPSTACKTRACE( X1 );
L2251:
X1 = PAIR_CDR( t1085 );
if ( FALSE( scrt1_equal_3f( X1, c1103 ) ) ) goto L2256;
X3 = PAIR_CAR( t1085 );
X2 = typedef_parse_2dstype( X3 );
X3 = sc_cons( c1111, EMPTYLIST );
X1 = sc_cons( X2, X3 );
POPSTACKTRACE( X1 );
L2256:
POPSTACKTRACE( typedef_parse_2datype( t1085 ) );
L2246:
POPSTACKTRACE( typedef_parse_2dstype( t1085 ) );
}
DEFTSCP( typedef_parse_2datype_v );
DEFSTRING( t2261, "PARSE-ATYPE", 11 );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
TSCP typedef_parse_2datype( t1120 )
TSCP t1120;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2261 ) ) );
if ( NEQ( TSCPTAG( t1120 ), PAIRTAG ) ) goto L2263;
X1 = PAIR_CAR( t1120 );
if ( FALSE( scrt1_memq( X1, c1093 ) ) ) goto L2265;
POPSTACKTRACE( typedef_struct_2dor_2dunion( t1120 ) );
L2265:
X2 = scrt1_length( t1120 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L2269;
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 8 ) ) ) );
goto L2270;
L2269:
X1 = scrt2__3d_2dtwo( X2, _TSCP( 8 ) );
L2270:
if ( FALSE( X1 ) ) goto L2297;
X3 = PAIR_CDR( t1120 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2280;
scrt1__24__car_2derror( X3 );
L2280:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2297;
X3 = PAIR_CDR( t1120 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2284;
scrt1__24__car_2derror( X3 );
L2284:
X2 = PAIR_CAR( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L2288;
if ( GTE( INT( X2 ), INT( _TSCP( 0 ) ) ) ) goto L2292;
goto L2297;
L2288:
if ( TRUE( scrt2__3e_3d_2dtwo( X2, _TSCP( 0 ) ) ) ) goto L2292;
goto L2297;
L2263:
POPSTACKTRACE( typedef_parse_2dstype( t1120 ) );
L2292:
X3 = PAIR_CAR( t1120 );
X2 = typedef_parse_2dstype( X3 );
X5 = PAIR_CDR( t1120 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2301;
scrt1__24__car_2derror( X5 );
L2301:
X4 = PAIR_CAR( X5 );
X3 = sc_cons( X4, EMPTYLIST );
X1 = sc_cons( X2, X3 );
POPSTACKTRACE( X1 );
L2297:
POPSTACKTRACE( scrt6_error( c1176,
c1177,
CONS( t1120, EMPTYLIST ) ) );
}
DEFTSCP( typedef_parse_2dstype_v );
DEFSTRING( t2304, "PARSE-STYPE", 11 );
TSCP typedef_parse_2dstype( t1195 )
TSCP t1195;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2304 ) ) );
if ( AND( EQ( TSCPTAG( t1195 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( t1195 ), SYMBOLTAG ) )
) goto L2306;
POPSTACKTRACE( scrt6_error( c1198,
c1177,
CONS( t1195, EMPTYLIST ) ) );
L2306:
POPSTACKTRACE( t1195 );
}
DEFTSCP( typedef_struct_2dor_2dunion_v );
DEFSTRING( t2308, "STRUCT-OR-UNION", 15 );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCP( typedef_parse_2dslot_2dtype_v );
TSCP typedef_struct_2dor_2dunion( e1201 )
TSCP e1201;
{
TSCP X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2308 ) ) );
if ( EQ( TSCPTAG( e1201 ), PAIRTAG ) ) goto L2311;
scrt1__24__car_2derror( e1201 );
L2311:
X3 = PAIR_CAR( e1201 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1209 ) ) ) goto L2314;
X2 = c1209;
goto L2317;
L2314:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1213 ) ) ) goto L2316;
X2 = c1213;
goto L2317;
L2316:
X2 = scrt6_error( c1214,
c1032, CONS( e1201, EMPTYLIST ) );
L2317:
X5 = PAIR_CDR( e1201 );
X6 = X5;
X7 = EMPTYLIST;
X8 = EMPTYLIST;
L2321:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L2322;
X4 = X7;
goto L2353;
L2322:
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2325;
scrt1__24__car_2derror( X6 );
L2325:
X11 = PAIR_CAR( X6 );
X13 = scrt1_length( X11 );
if ( BITAND( BITOR( INT( X13 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L2329;
X12 = BOOLEAN( EQ( UNSIGNED( X13 ),
UNSIGNED( _TSCP( 8 ) ) ) );
goto L2330;
L2329:
X12 = scrt2__3d_2dtwo( X13, _TSCP( 8 ) );
L2330:
if ( FALSE( X12 ) ) goto L2349;
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2338;
scrt1__24__cdr_2derror( X11 );
L2338:
X14 = PAIR_CDR( X11 );
if ( EQ( TSCPTAG( X14 ), PAIRTAG ) ) goto L2341;
scrt1__24__car_2derror( X14 );
L2341:
X13 = PAIR_CAR( X14 );
if ( NOT( AND( EQ( TSCPTAG( X13 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X13 ), SYMBOLTAG ) ) )
) goto L2349;
X16 = PAIR_CAR( X11 );
X15 = typedef_parse_2dslot_2dtype_v;
X15 = UNKNOWNCALL( X15, 1 );
X14 = VIA( PROCEDURE_CODE( X15 ) )( X16,
PROCEDURE_CLOSURE( X15 ) );
X17 = PAIR_CDR( X11 );
if ( EQ( TSCPTAG( X17 ), PAIRTAG ) ) goto L2346;
scrt1__24__car_2derror( X17 );
L2346:
X16 = PAIR_CAR( X17 );
X15 = sc_cons( X16, EMPTYLIST );
X13 = sc_cons( X14, X15 );
X10 = X13;
goto L2350;
L2349:
X10 = scrt6_error( c1214,
c1286, CONS( X11, EMPTYLIST ) );
L2350:
X9 = sc_cons( X10, EMPTYLIST );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2352;
X10 = PAIR_CDR( X6 );
X8 = X9;
X7 = X9;
X6 = X10;
goto L2321;
L2352:
X10 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2357;
scrt6_error( c1249, c1250, CONS( X8, EMPTYLIST ) );
L2357:
X8 = SETGEN( PAIR_CDR( X8 ), X9 );
X6 = X10;
goto L2321;
L2353:
X3 = sc_cons( X4, EMPTYLIST );
X1 = sc_cons( X2, X3 );
POPSTACKTRACE( X1 );
}
DEFTSCP( typedef_parse_2dslot_2dtype_v );
DEFSTRING( t2360, "PARSE-SLOT-TYPE", 15 );
DEFSTRING( t2363, "typedef_l1310 [inside PARSE-SLOT-TYPE]", 38 );
EXTERNTSCPP( sc_string_2d_3esymbol );
EXTERNTSCP( sc_string_2d_3esymbol_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP typedef_l1310( t1311, c2362 )
TSCP t1311, c2362;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2363 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2362, 0 );
X3 = typedef_parse_2datype( t1311 );
if ( NOT( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) )
) goto L2366;
X2 = X3;
goto L2367;
L2366:
X5 = scrt6_format( c1325,
CONS( PAIR_CAR( DISPLAY( 0 ) ),
EMPTYLIST ) );
X4 = sc_string_2d_3esymbol( X5 );
X6 = PAIR_CAR( DISPLAY( 0 ) );
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2370;
X5 = _TSCP( IPLUS( INT( X6 ), INT( _TSCP( 4 ) ) ) );
goto L2371;
L2370:
X5 = scrt2__2b_2dtwo( X6, _TSCP( 4 ) );
L2371:
SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X5 );
scrt2_putprop( X4, c1036, FALSEVALUE );
scrt2_putprop( X4, c1037, X3 );
X2 = X4;
L2367:
DISPLAY( 0 ) = X1;
POPSTACKTRACE( X2 );
}
EXTERNTSCPP( scrt1_list_2dref );
EXTERNTSCP( scrt1_list_2dref_v );
DEFTSCP( typedef_base_2dtype_v );
DEFSTRING( t2383, "BASE-TYPE", 9 );
EXTERNTSCPP( scrt2_getprop );
EXTERNTSCP( scrt2_getprop_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
TSCP typedef_base_2dtype( s1360 )
TSCP s1360;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2383 ) ) );
X1 = scrt2_getprop( s1360, c1036 );
if ( TRUE( X1 ) ) goto L2386;
X2 = s1360;
X3 = _TSCP( 80 );
L2389:
X4 = scrt2_getprop( X2, c1037 );
if ( FALSE( X4 ) ) goto L2391;
X5 = FALSEVALUE;
goto L2392;
L2391:
X5 = TRUEVALUE;
L2392:
if ( TRUE( X5 ) ) goto L2397;
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2400;
L2397:
scrt6_error( c1036,
c1379, CONS( s1360, EMPTYLIST ) );
L2400:
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
) goto L2401;
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2403;
X3 = _TSCP( IDIFFERENCE( INT( X3 ),
INT( _TSCP( 4 ) ) ) );
goto L2404;
L2403:
X3 = scrt2__2d_2dtwo( X3, _TSCP( 4 ) );
L2404:
X2 = X4;
goto L2389;
L2401:
POPSTACKTRACE( scrt2_putprop( s1360, c1036, X2 ) );
L2386:
POPSTACKTRACE( X1 );
}
DEFTSCP( typedef_isa_2dunion_3f_v );
DEFSTRING( t2405, "ISA-UNION?", 10 );
TSCP typedef_isa_2dunion_3f( t1391 )
TSCP t1391;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2405 ) ) );
X2 = typedef_base_2dtype( t1391 );
X1 = scrt2_getprop( X2, c1037 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2408;
X2 = PAIR_CAR( X1 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1213 ) ) ) );
L2408:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( typedef_isa_2dstruct_3f_v );
DEFSTRING( t2411, "ISA-STRUCT?", 11 );
TSCP typedef_isa_2dstruct_3f( t1409 )
TSCP t1409;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2411 ) ) );
X2 = typedef_base_2dtype( t1409 );
X1 = scrt2_getprop( X2, c1037 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2414;
X2 = PAIR_CAR( X1 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1209 ) ) ) );
L2414:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( typedef_uors_2dslots_v );
DEFSTRING( t2417, "UORS-SLOTS", 10 );
TSCP typedef_uors_2dslots( t1427 )
TSCP t1427;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2417 ) ) );
X2 = typedef_base_2dtype( t1427 );
X1 = scrt2_getprop( X2, c1037 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2421;
scrt1__24__cdr_2derror( X1 );
L2421:
X2 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2424;
scrt1__24__car_2derror( X2 );
L2424:
POPSTACKTRACE( PAIR_CAR( X2 ) );
}
DEFTSCP( typedef_isa_2dprocp_3f_v );
DEFSTRING( t2426, "ISA-PROCP?", 10 );
TSCP typedef_isa_2dprocp_3f( t1440 )
TSCP t1440;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2426 ) ) );
X2 = typedef_base_2dtype( t1440 );
X1 = scrt2_getprop( X2, c1037 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2429;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2433;
scrt1__24__car_2derror( X3 );
L2433:
X2 = PAIR_CAR( X3 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1111 ) ) ) );
L2429:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( typedef_procp_2dreturns_v );
DEFSTRING( t2435, "PROCP-RETURNS", 13 );
TSCP typedef_procp_2dreturns( t1464 )
TSCP t1464;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2435 ) ) );
X3 = typedef_base_2dtype( t1464 );
X2 = scrt2_getprop( X3, c1037 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2438;
scrt1__24__car_2derror( X2 );
L2438:
X1 = PAIR_CAR( X2 );
POPSTACKTRACE( typedef_base_2dtype( X1 ) );
}
DEFTSCP( typedef_isa_2dpointer_3f_v );
DEFSTRING( t2440, "ISA-POINTER?", 12 );
TSCP typedef_isa_2dpointer_3f( t1471 )
TSCP t1471;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2440 ) ) );
X2 = typedef_base_2dtype( t1471 );
X1 = scrt2_getprop( X2, c1037 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2443;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2447;
scrt1__24__car_2derror( X3 );
L2447:
X2 = PAIR_CAR( X3 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1067 ) ) ) );
L2443:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( typedef_pointer_2dto_v );
DEFSTRING( t2449, "POINTER-TO", 10 );
TSCP typedef_pointer_2dto( t1495 )
TSCP t1495;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2449 ) ) );
X3 = typedef_base_2dtype( t1495 );
X2 = scrt2_getprop( X3, c1037 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2452;
scrt1__24__car_2derror( X2 );
L2452:
X1 = PAIR_CAR( X2 );
POPSTACKTRACE( typedef_base_2dtype( X1 ) );
}
DEFTSCP( typedef_isa_2darray_3f_v );
DEFSTRING( t2454, "ISA-ARRAY?", 10 );
TSCP typedef_isa_2darray_3f( t1502 )
TSCP t1502;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2454 ) ) );
X2 = typedef_base_2dtype( t1502 );
X1 = scrt2_getprop( X2, c1037 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2457;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2461;
scrt1__24__car_2derror( X3 );
L2461:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2464;
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( X2 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ),
FLOATTAG ) ) ) );
L2464:
POPSTACKTRACE( TRUEVALUE );
L2457:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( typedef_array_2dsize_v );
DEFSTRING( t2466, "ARRAY-SIZE", 10 );
TSCP typedef_array_2dsize( t1533 )
TSCP t1533;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2466 ) ) );
X2 = typedef_base_2dtype( t1533 );
X1 = scrt2_getprop( X2, c1037 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2470;
scrt1__24__cdr_2derror( X1 );
L2470:
X2 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2473;
scrt1__24__car_2derror( X2 );
L2473:
POPSTACKTRACE( PAIR_CAR( X2 ) );
}
DEFTSCP( typedef_array_2dtype_v );
DEFSTRING( t2475, "ARRAY-TYPE", 10 );
TSCP typedef_array_2dtype( t1546 )
TSCP t1546;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2475 ) ) );
X3 = typedef_base_2dtype( t1546 );
X2 = scrt2_getprop( X3, c1037 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2478;
scrt1__24__car_2derror( X2 );
L2478:
X1 = PAIR_CAR( X2 );
POPSTACKTRACE( typedef_base_2dtype( X1 ) );
}
DEFTSCP( typedef_pointed_2dto_2dby_v );
DEFSTRING( t2480, "POINTED-TO-BY", 13 );
TSCP typedef_pointed_2dto_2dby( t1553 )
TSCP t1553;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2480 ) ) );
X2 = typedef_base_2dtype( t1553 );
X1 = scrt2_getprop( X2, c1072 );
POPSTACKTRACE( typedef_base_2dtype( X1 ) );
}
DEFTSCP( typedef_size_2dof_v );
DEFSTRING( t2482, "SIZE-OF", 7 );
EXTERNTSCPP( scrt2_max );
EXTERNTSCP( scrt2_max_v );
EXTERNTSCPP( scrt2__2b );
EXTERNTSCP( scrt2__2b_v );
EXTERNTSCPP( typedef_size_2dof );
EXTERNTSCP( typedef_size_2dof_v );
EXTERNTSCPP( scrt2__2a_2dtwo );
EXTERNTSCP( scrt2__2a_2dtwo_v );
TSCP typedef_size_2dof( t1556 )
TSCP t1556;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2482 ) ) );
L2483:
X4 = typedef_base_2dtype( t1556 );
X3 = scrt2_getprop( X4, c1354 );
if ( TRUE( X3 ) ) goto L2486;
if ( FALSE( typedef_isa_2dunion_3f( t1556 ) ) ) goto L2488;
X4 = typedef_uors_2dslots( t1556 );
X2 = scrt2_max_v;
X1 = X4;
goto L2490;
L2488:
if ( FALSE( typedef_isa_2dstruct_3f( t1556 ) ) ) goto L2491;
X4 = typedef_uors_2dslots( t1556 );
X2 = scrt2__2b_v;
X1 = X4;
goto L2490;
L2491:
if ( FALSE( typedef_isa_2dprocp_3f( t1556 ) ) ) goto L2493;
t1556 = c1604;
goto L2483;
L2493:
if ( FALSE( typedef_isa_2dpointer_3f( t1556 ) ) ) goto L2495;
t1556 = c1603;
goto L2483;
L2495:
if ( FALSE( typedef_isa_2darray_3f( t1556 ) ) ) goto L2497;
X4 = typedef_array_2dsize( t1556 );
X6 = typedef_array_2dtype( t1556 );
X5 = typedef_size_2dof( X6 );
if ( BITAND( BITOR( INT( X4 ), INT( X5 ) ),
3 ) ) goto L2500;
POPSTACKTRACE( _TSCP( ITIMES( FIXED_C( X4 ),
INT( X5 ) ) ) );
L2500:
POPSTACKTRACE( scrt2__2a_2dtwo( X4, X5 ) );
L2497:
POPSTACKTRACE( scrt6_error( c1595,
c1596,
CONS( t1556, EMPTYLIST ) ) );
L2486:
POPSTACKTRACE( X3 );
L2490:
X3 = _TSCP( 0 );
X3 = CONS( X3, EMPTYLIST );
X4 = X1;
L2504:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2505;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2509;
scrt1__24__car_2derror( X4 );
L2509:
X5 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2513;
scrt1__24__car_2derror( X5 );
L2513:
X9 = PAIR_CAR( X5 );
X8 = typedef_size_2dof( X9 );
X7 = X2;
X7 = UNKNOWNCALL( X7, 2 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( PAIR_CAR( X3 ),
X8,
PROCEDURE_CLOSURE( X7 ) );
SETGEN( PAIR_CAR( X3 ), X6 );
X4 = PAIR_CDR( X4 );
goto L2504;
L2505:
POPSTACKTRACE( PAIR_CAR( X3 ) );
}
DEFTSCP( typedef_to_2dget_2dtype_v );
DEFSTRING( t2516, "TO-GET-TYPE", 11 );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( typedef_to_2dget_2dtype );
EXTERNTSCP( typedef_to_2dget_2dtype_v );
TSCP typedef_to_2dget_2dtype( t1607 )
TSCP t1607;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2516 ) ) );
X1 = typedef_base_2dtype( t1607 );
X2 = scrt2_getprop( X1, c1355 );
if ( TRUE( X2 ) ) goto L2520;
if ( FALSE( typedef_isa_2darray_3f( X1 ) ) ) goto L2522;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X5 = typedef_array_2dtype( X1 );
X4 = typedef_to_2dget_2dtype( X5 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( c1619, X7 );
X8 = typedef_array_2dtype( X1 );
X6 = CONS( scrt1_cons_2a( c1067,
CONS( typedef_size_2dof( X8 ),
X7 ) ),
X6 );
X5 = CONS( scrt1_cons_2a( c1620, CONS( c1616, X6 ) ),
X5 );
X3 = CONS( scrt1_cons_2a( X4, CONS( c1615, X5 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1619, X4 );
POPSTACKTRACE( scrt1_cons_2a( c1614,
CONS( scrt1_cons_2a( c1615,
CONS( c1616,
X4 ) ),
X3 ) ) );
L2522:
if ( FALSE( typedef_isa_2dpointer_3f( X1 ) ) ) goto L2524;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = typedef_to_2dget_2dtype( c1603 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( c1616, X6 );
X4 = CONS( scrt1_cons_2a( X5, CONS( c1615, X6 ) ),
X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( c1618,
CONS( X1, X5 ) ),
X4 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1614,
CONS( scrt1_cons_2a( c1615,
CONS( c1616,
X4 ) ),
X3 ) ) );
L2524:
if ( FALSE( typedef_isa_2dprocp_3f( X1 ) ) ) goto L2526;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = typedef_to_2dget_2dtype( c1603 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( c1616, X6 );
X4 = CONS( scrt1_cons_2a( X5, CONS( c1615, X6 ) ),
X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( c1618,
CONS( X1, X5 ) ),
X4 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1614,
CONS( scrt1_cons_2a( c1615,
CONS( c1616,
X4 ) ),
X3 ) ) );
L2526:
POPSTACKTRACE( FALSEVALUE );
L2520:
POPSTACKTRACE( X2 );
}
DEFTSCP( typedef_to_2dset_21_2dtype_v );
DEFSTRING( t2528, "TO-SET!-TYPE", 12 );
EXTERNTSCPP( typedef_to_2dset_21_2dtype );
EXTERNTSCP( typedef_to_2dset_21_2dtype_v );
EXTERNTSCPP( typedef_to_2dcheck_2dtype );
EXTERNTSCP( typedef_to_2dcheck_2dtype_v );
TSCP typedef_to_2dset_21_2dtype( t1623 )
TSCP t1623;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2528 ) ) );
X1 = typedef_base_2dtype( t1623 );
X2 = scrt2_getprop( X1, c1356 );
if ( TRUE( X2 ) ) goto L2532;
if ( FALSE( typedef_isa_2darray_3f( X1 ) ) ) goto L2534;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X5 = typedef_array_2dtype( X1 );
X4 = typedef_to_2dset_21_2dtype( X5 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X7 = typedef_array_2dtype( X1 );
X6 = typedef_to_2dcheck_2dtype( X7 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( X6, CONS( c1630, X7 ) ),
X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( c1619, X7 );
X8 = typedef_array_2dtype( X1 );
X6 = CONS( scrt1_cons_2a( c1067,
CONS( typedef_size_2dof( X8 ),
X7 ) ),
X6 );
X5 = CONS( scrt1_cons_2a( c1620, CONS( c1616, X6 ) ),
X5 );
X3 = CONS( scrt1_cons_2a( X4, CONS( c1615, X5 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1630, X4 );
X4 = CONS( c1619, X4 );
POPSTACKTRACE( scrt1_cons_2a( c1614,
CONS( scrt1_cons_2a( c1615,
CONS( c1616,
X4 ) ),
X3 ) ) );
L2534:
if ( FALSE( typedef_isa_2dpointer_3f( X1 ) ) ) goto L2536;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = typedef_to_2dset_21_2dtype( c1603 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = typedef_to_2dcheck_2dtype( X1 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( X6, CONS( c1630, X7 ) ),
X5 );
X5 = CONS( c1616, X5 );
X3 = CONS( scrt1_cons_2a( X4, CONS( c1615, X5 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1630, X4 );
POPSTACKTRACE( scrt1_cons_2a( c1614,
CONS( scrt1_cons_2a( c1615,
CONS( c1616,
X4 ) ),
X3 ) ) );
L2536:
if ( FALSE( typedef_isa_2dprocp_3f( X1 ) ) ) goto L2538;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = typedef_to_2dset_21_2dtype( c1603 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = typedef_to_2dcheck_2dtype( X1 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( X6, CONS( c1630, X7 ) ),
X5 );
X5 = CONS( c1616, X5 );
X3 = CONS( scrt1_cons_2a( X4, CONS( c1615, X5 ) ),
X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1630, X4 );
POPSTACKTRACE( scrt1_cons_2a( c1614,
CONS( scrt1_cons_2a( c1615,
CONS( c1616,
X4 ) ),
X3 ) ) );
L2538:
POPSTACKTRACE( FALSEVALUE );
L2532:
POPSTACKTRACE( X2 );
}
DEFTSCP( typedef_to_2dcheck_2dtype_v );
DEFSTRING( t2540, "TO-CHECK-TYPE", 13 );
EXTERNTSCPP( typedef_uis );
EXTERNTSCP( typedef_uis_v );
TSCP typedef_to_2dcheck_2dtype( t1633 )
TSCP t1633;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2540 ) ) );
X1 = typedef_base_2dtype( t1633 );
X2 = typedef_isa_2dpointer_3f( X1 );
if ( TRUE( X2 ) ) goto L2547;
if ( TRUE( typedef_isa_2dprocp_3f( X1 ) ) ) goto L2547;
POPSTACKTRACE( c1640 );
L2547:
X2 = CONS( X1, EMPTYLIST );
POPSTACKTRACE( typedef_uis( CONS( c1642, X2 ) ) );
}
DEFTSCP( typedef_type_2dtag_v );
DEFSTRING( t2550, "TYPE-TAG", 8 );
TSCP typedef_type_2dtag( t1645 )
TSCP t1645;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2550 ) ) );
X1 = typedef_base_2dtype( t1645 );
if ( TRUE( typedef_isa_2dpointer_3f( X1 ) ) ) goto L2553;
if ( TRUE( typedef_isa_2dprocp_3f( X1 ) ) ) goto L2555;
POPSTACKTRACE( FALSEVALUE );
L2555:
POPSTACKTRACE( X1 );
L2553:
POPSTACKTRACE( X1 );
}
DEFTSCP( typedef_uis_v );
DEFSTRING( t2557, "UIS", 3 );
EXTERNTSCPP( sc_d_2dsymbol_ab4b4447 );
EXTERNTSCP( sc_d_2dsymbol_ab4b4447_v );
EXTERNTSCPP( scrt3_list_2d_3estring );
EXTERNTSCP( scrt3_list_2d_3estring_v );
DEFSTRING( t2560, "LOOP [inside UIS]", 17 );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt3_string_2d_3elist );
EXTERNTSCP( scrt3_string_2d_3elist_v );
EXTERNTSCPP( scrt3_char_2dupcase );
EXTERNTSCP( scrt3_char_2dupcase_v );
EXTERNTSCPP( typedef_l1655 );
TSCP typedef_l1655( s1657 )
TSCP s1657;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2560 ) ) );
if ( FALSE( s1657 ) ) goto L2562;
if ( EQ( TSCPTAG( s1657 ), PAIRTAG ) ) goto L2567;
scrt1__24__car_2derror( s1657 );
L2567:
X4 = PAIR_CAR( s1657 );
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
) goto L2564;
X4 = PAIR_CAR( s1657 );
if ( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) ) goto L2571;
scrt6_error( c1710, c1711, CONS( X4, EMPTYLIST ) );
L2571:
X3 = SYMBOL_NAME( X4 );
goto L2565;
L2564:
if ( EQ( TSCPTAG( s1657 ), PAIRTAG ) ) goto L2574;
scrt1__24__car_2derror( s1657 );
L2574:
X3 = PAIR_CAR( s1657 );
L2565:
X2 = scrt3_string_2d_3elist( X3 );
X3 = X2;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L2578:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2579;
X1 = X4;
goto L2586;
L2579:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2582;
scrt1__24__car_2derror( X3 );
L2582:
X8 = PAIR_CAR( X3 );
X7 = scrt3_char_2dupcase( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2585;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L2578;
L2585:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2590;
scrt6_error( c1249, c1250, CONS( X5, EMPTYLIST ) );
L2590:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L2578;
L2586:
X3 = PAIR_CDR( s1657 );
X2 = typedef_l1655( X3 );
POPSTACKTRACE( scrt1_append_2dtwo( X1, X2 ) );
L2562:
POPSTACKTRACE( EMPTYLIST );
}
TSCP typedef_uis( s1653 )
TSCP s1653;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2557 ) ) );
X2 = typedef_l1655( s1653 );
X1 = scrt3_list_2d_3estring( X2 );
POPSTACKTRACE( sc_d_2dsymbol_ab4b4447( X1 ) );
}
DEFTSCP( typedef_emit_2dtypedefs_v );
DEFSTRING( t2593, "EMIT-TYPEDEFS", 13 );
EXTERNTSCPP( scrt5_open_2doutput_2dfile );
EXTERNTSCP( scrt5_open_2doutput_2dfile_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
DEFSTRING( t2598, "DEF-PRINT [inside EMIT-TYPEDEFS]", 32 );
EXTERNTSCPP( scrt6_pp );
EXTERNTSCP( scrt6_pp_v );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
TSCP typedef_d1731( e1745, c2597 )
TSCP e1745, c2597;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2598 ) ) );
X1 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2597, 0 );
X2 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2597, 1 );
X3 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2597, 2 );
scrt6_pp( e1745,
CONS( DISPLAY( 2 ), EMPTYLIST ) );
scrt6_newline( CONS( DISPLAY( 2 ), EMPTYLIST ) );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( DISPLAY( 0 ), X6 );
if ( EQ( TSCPTAG( e1745 ), PAIRTAG ) ) goto L2601;
scrt1__24__cdr_2derror( e1745 );
L2601:
X7 = PAIR_CDR( e1745 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2604;
scrt1__24__car_2derror( X7 );
L2604:
X5 = scrt1_cons_2a( c1746,
CONS( PAIR_CAR( X7 ), X6 ) );
scrt6_pp( X5, CONS( DISPLAY( 1 ), EMPTYLIST ) );
X4 = scrt6_newline( CONS( DISPLAY( 1 ), EMPTYLIST ) );
DISPLAY( 2 ) = X1;
DISPLAY( 1 ) = X2;
DISPLAY( 0 ) = X3;
POPSTACKTRACE( X4 );
}
EXTERNTSCPP( typedef_emit_2dchk_2dprocs );
EXTERNTSCP( typedef_emit_2dchk_2dprocs_v );
EXTERNTSCPP( typedef_d1731 );
EXTERNTSCPP( typedef_emit_2darray_2dprocs );
EXTERNTSCP( typedef_emit_2darray_2dprocs_v );
EXTERNTSCPP( typedef_emit_2dstruct_2dprocs );
EXTERNTSCP( typedef_emit_2dstruct_2dprocs_v );
EXTERNTSCPP( scrt5_close_2dport );
EXTERNTSCP( scrt5_close_2dport_v );
TSCP typedef_emit_2dtypedefs( t1722, d1723, r1724, t1725 )
TSCP t1722, d1723, r1724, t1725;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2593 ) ) );
DISPLAY( 0 ) = typedef_uis( CONS( t1725, EMPTYLIST ) );
X2 = CONS( c1789, EMPTYLIST );
X1 = scrt3_string_2dappend( CONS( t1725, X2 ) );
DISPLAY( 1 ) = scrt5_open_2doutput_2dfile( X1 );
X2 = CONS( c1788, EMPTYLIST );
X1 = scrt3_string_2dappend( CONS( t1725, X2 ) );
DISPLAY( 2 ) = scrt5_open_2doutput_2dfile( X1 );
X1 = _TSCP( 0 );
X1 = CONS( X1, EMPTYLIST );
X2 = MAKEPROCEDURE( 1,
0,
typedef_d1731,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 2 ),
DISPLAY( 1 ),
DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( X1 ), X2 );
X2 = CONS( DISPLAY( 0 ), EMPTYLIST );
scrt6_format( DISPLAY( 2 ), CONS( c1757, X2 ) );
X2 = t1722;
L2607:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2608;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2612;
scrt1__24__car_2derror( X2 );
L2612:
X3 = PAIR_CAR( X2 );
if ( TRUE( scrt1_memq( X3, d1723 ) ) ) goto L2634;
X6 = typedef_base_2dtype( X3 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( X6 ) ) ) goto L2634;
X5 = X3;
X4 = scrt1_memq( X3, r1724 );
if ( FALSE( typedef_isa_2dpointer_3f( X5 ) ) ) goto L2620;
typedef_emit_2dchk_2dprocs( X5, PAIR_CAR( X1 ) );
X7 = typedef_pointer_2dto( X5 );
X6 = typedef_isa_2dunion_3f( X7 );
if ( TRUE( X6 ) ) goto L2627;
X7 = typedef_pointer_2dto( X5 );
if ( TRUE( typedef_isa_2dstruct_3f( X7 ) ) ) goto L2627;
X7 = typedef_pointer_2dto( X5 );
if ( FALSE( typedef_isa_2darray_3f( X7 ) ) ) goto L2634;
typedef_emit_2darray_2dprocs( X5, X4, PAIR_CAR( X1 ) );
goto L2634;
L2620:
if ( FALSE( typedef_isa_2dprocp_3f( X5 ) ) ) goto L2634;
typedef_emit_2dchk_2dprocs( X5, PAIR_CAR( X1 ) );
goto L2634;
L2627:
typedef_emit_2dstruct_2dprocs( X5, X4, t1725 );
L2634:
X2 = PAIR_CDR( X2 );
goto L2607;
L2608:
scrt5_close_2dport( DISPLAY( 2 ) );
SDVAL = scrt5_close_2dport( DISPLAY( 1 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( typedef_emit_2dchk_2dprocs_v );
DEFSTRING( t2636, "EMIT-CHK-PROCS", 14 );
TSCP typedef_emit_2dchk_2dprocs( t1791, d1792 )
TSCP t1791, d1792;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2636 ) ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( c1615, X5 );
X5 = CONS( c1801, X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( typedef_type_2dtag( t1791 ), EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1800,
CONS( scrt1_cons_2a( c1618,
CONS( typedef_uis( CONS( c1642,
X7 ) ),
X6 ) ),
X5 ) ),
X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1799, CONS( c1615, X5 ) ),
X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_cons_2a( c1618,
CONS( typedef_type_2dtag( t1791 ),
X7 ) ),
X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1797,
CONS( scrt1_cons_2a( c1798,
CONS( c1615, X7 ) ),
X6 ) ),
X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1794,
CONS( scrt1_cons_2a( c1795,
CONS( scrt1_cons_2a( c1796,
CONS( c1615,
X6 ) ),
X5 ) ),
X4 ) ),
X3 );
X5 = CONS( typedef_type_2dtag( t1791 ), EMPTYLIST );
X4 = typedef_uis( CONS( c1642, X5 ) );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X4,
CONS( c1615, X5 ) ),
X3 ) );
X1 = d1792;
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( X2, PROCEDURE_CLOSURE( X1 ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1618,
CONS( typedef_type_2dtag( t1791 ),
X6 ) ),
X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1797,
CONS( scrt1_cons_2a( c1798,
CONS( c1615, X6 ) ),
X5 ) ),
X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1795,
CONS( scrt1_cons_2a( c1796,
CONS( c1615, X5 ) ),
X4 ) ),
X3 );
X5 = CONS( c1803, EMPTYLIST );
X5 = CONS( typedef_type_2dtag( t1791 ), X5 );
X4 = typedef_uis( CONS( c1802, X5 ) );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X4,
CONS( c1615, X5 ) ),
X3 ) );
X1 = d1792;
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( typedef_emit_2darray_2dprocs_v );
DEFSTRING( t2638, "EMIT-ARRAY-PROCS", 16 );
TSCP typedef_emit_2darray_2dprocs( p1805, r1806, d1807 )
TSCP p1805, r1806, d1807;
{
TSCP X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2638 ) ) );
X3 = typedef_pointer_2dto( p1805 );
X4 = typedef_array_2dsize( X3 );
X2 = typedef_array_2dtype( X3 );
X1 = typedef_to_2dcheck_2dtype( p1805 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( typedef_size_2dof( X2 ), X8 );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( c1817,
CONS( scrt1_cons_2a( c1818,
CONS( scrt1_cons_2a( X1,
CONS( c1615,
X10 ) ),
X9 ) ),
X8 ) ),
X7 );
X9 = CONS( c1816, EMPTYLIST );
X8 = typedef_uis( CONS( X3, X9 ) );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X8,
CONS( c1615, X9 ) ),
X7 ) );
X5 = d1807;
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( X6, PROCEDURE_CLOSURE( X5 ) );
X5 = typedef_isa_2dstruct_3f( X2 );
if ( TRUE( X5 ) ) goto L2648;
if ( TRUE( typedef_isa_2dunion_3f( X2 ) ) ) goto L2648;
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = typedef_to_2dget_2dtype( X3 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( c1619, X10 );
X10 = CONS( _TSCP( 0 ), X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_cons_2a( X9,
CONS( scrt1_cons_2a( X1,
CONS( c1615,
X11 ) ),
X10 ) ),
X8 );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( c1619, X9 );
X7 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X3,
CONS( c1615, X9 ) ),
X8 ) );
X6 = d1807;
X6 = UNKNOWNCALL( X6, 1 );
VIA( PROCEDURE_CODE( X6 ) )( X7, PROCEDURE_CLOSURE( X6 ) );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( c1828, X12 );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( _TSCP( 4 ), X13 );
X11 = CONS( scrt1_cons_2a( c1827,
CONS( scrt1_cons_2a( c1620,
CONS( c1619,
X13 ) ),
X12 ) ),
X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( c1619, X12 );
X10 = CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( X3,
CONS( c1615,
X12 ) ),
X11 ) ),
X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_cons_2a( c1618,
CONS( EMPTYLIST, X11 ) ),
X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( c1828, X11 );
X9 = CONS( scrt1_cons_2a( c1794,
CONS( scrt1_cons_2a( c1797,
CONS( c1619,
X11 ) ),
X10 ) ),
X9 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = scrt1_cons_2a( c1619, CONS( _TSCP( 0 ), X11 ) );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X14 = CONS( c1816, EMPTYLIST );
X13 = typedef_uis( CONS( X3, X14 ) );
X14 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( scrt1_cons_2a( X10,
CONS( scrt1_cons_2a( c1828,
CONS( scrt1_cons_2a( X13,
CONS( c1615,
X14 ) ),
X12 ) ),
X11 ) ),
X9 );
X8 = CONS( scrt1_cons_2a( c1826, CONS( c1827, X9 ) ),
X8 );
X10 = CONS( c1825, EMPTYLIST );
X10 = CONS( X2, X10 );
X10 = CONS( c1824, X10 );
X9 = typedef_uis( CONS( X3, X10 ) );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X9,
CONS( c1615, X10 ) ),
X8 ) );
X6 = d1807;
X6 = UNKNOWNCALL( X6, 1 );
VIA( PROCEDURE_CODE( X6 ) )( X7, PROCEDURE_CLOSURE( X6 ) );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( c1831, X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( c1831, X12 );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( _TSCP( 4 ), X13 );
X12 = CONS( scrt1_cons_2a( c1620, CONS( c1619, X13 ) ),
X12 );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_cons_2a( c1827,
CONS( scrt1_cons_2a( c1799,
CONS( c1830,
X13 ) ),
X12 ) ),
X11 );
X13 = CONS( c1838, EMPTYLIST );
X12 = typedef_uis( CONS( X3, X13 ) );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X14 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( scrt1_cons_2a( c1798, CONS( c1830, X14 ) ),
X13 );
X13 = CONS( c1619, X13 );
X10 = CONS( scrt1_cons_2a( c1837,
CONS( scrt1_cons_2a( X12,
CONS( c1831,
X13 ) ),
X11 ) ),
X10 );
X9 = CONS( scrt1_cons_2a( c1794, CONS( c1830, X10 ) ),
X9 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = scrt1_cons_2a( c1830, CONS( c1830, X11 ) );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X14 = CONS( X3, EMPTYLIST );
X13 = typedef_uis( CONS( c1832, X14 ) );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2652;
X15 = c1836;
goto L2653;
L2652:
X15 = EMPTYLIST;
L2653:
X16 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_cons_2a( c1831,
CONS( scrt1_cons_2a( X13,
CONS( scrt1_append_2dtwo( X15,
X16 ),
EMPTYLIST ) ),
X12 ) ),
X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( scrt1_cons_2a( X10,
CONS( scrt1_cons_2a( c1619,
CONS( _TSCP( 0 ),
X12 ) ),
X11 ) ),
X9 );
X8 = CONS( scrt1_cons_2a( c1826, CONS( c1827, X9 ) ),
X8 );
X10 = CONS( X3, EMPTYLIST );
X10 = CONS( c1829, X10 );
X9 = typedef_uis( CONS( X2, X10 ) );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X9,
CONS( c1830, X10 ) ),
X8 ) );
X6 = d1807;
X6 = UNKNOWNCALL( X6, 1 );
VIA( PROCEDURE_CODE( X6 ) )( X7, PROCEDURE_CLOSURE( X6 ) );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = typedef_to_2dset_21_2dtype( X3 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( c1630, X10 );
X10 = CONS( c1619, X10 );
X10 = CONS( _TSCP( 0 ), X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_cons_2a( X9,
CONS( scrt1_cons_2a( X1,
CONS( c1615,
X11 ) ),
X10 ) ),
X8 );
X10 = CONS( c1838, EMPTYLIST );
X9 = typedef_uis( CONS( X3, X10 ) );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( c1630, X10 );
X10 = CONS( c1619, X10 );
X7 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X9,
CONS( c1615, X10 ) ),
X8 ) );
X6 = d1807;
X6 = UNKNOWNCALL( X6, 1 );
VIA( PROCEDURE_CODE( X6 ) )( X7, PROCEDURE_CLOSURE( X6 ) );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_cons_2a( c1847,
CONS( _TSCP( 0 ), X11 ) ),
X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2654;
X12 = c1615;
goto L2655;
L2654:
X12 = X4;
L2655:
X11 = CONS( X12, X11 );
X9 = CONS( scrt1_cons_2a( c1843,
CONS( scrt1_cons_2a( c1067,
CONS( typedef_size_2dof( X2 ),
X11 ) ),
X10 ) ),
X9 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( c1618,
CONS( p1805,
X10 ) ),
X9 ) ),
X8 );
X10 = CONS( X3, EMPTYLIST );
X9 = typedef_uis( CONS( c1832, X10 ) );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2656;
X11 = c1842;
goto L2657;
L2656:
X11 = EMPTYLIST;
L2657:
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X9,
CONS( scrt1_append_2dtwo( X11,
X12 ),
EMPTYLIST ) ),
X8 ) );
X6 = d1807;
X6 = UNKNOWNCALL( X6, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X6 ) )( X7,
PROCEDURE_CLOSURE( X6 ) ) );
L2648:
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( c1852, X12 );
X10 = CONS( scrt1_cons_2a( c1827,
CONS( scrt1_cons_2a( c1620,
CONS( c1615,
X12 ) ),
X11 ) ),
X10 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( c1852, X13 );
X12 = CONS( scrt1_cons_2a( c1620, CONS( c1615, X13 ) ),
X12 );
X12 = CONS( c1615, X12 );
X11 = CONS( scrt1_cons_2a( c1853, CONS( c1850, X12 ) ),
X11 );
X12 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( c1618,
CONS( typedef_pointed_2dto_2dby( X2 ),
X12 ) ),
X11 ) ),
X10 ) ),
X9 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( scrt1_cons_2a( c1618,
CONS( EMPTYLIST, X10 ) ),
X9 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( c1851, X10 );
X8 = CONS( scrt1_cons_2a( c1794,
CONS( scrt1_cons_2a( c1797,
CONS( c1615,
X10 ) ),
X9 ) ),
X8 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X9 = scrt1_cons_2a( c1615, CONS( _TSCP( 0 ), X10 ) );
X8 = CONS( scrt1_cons_2a( X9,
CONS( EMPTYLIST, EMPTYLIST ) ),
X8 );
X7 = CONS( scrt1_cons_2a( c1826, CONS( c1827, X8 ) ),
X7 );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( c1850,
CONS( scrt1_cons_2a( X1,
CONS( c1615, X10 ) ),
X9 ) );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( scrt1_cons_2a( c1852,
CONS( typedef_size_2dof( X2 ),
X10 ) ),
X9 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_cons_2a( c1849,
CONS( scrt1_cons_2a( X8,
CONS( scrt1_cons_2a( c1851,
CONS( scrt1_cons_2a( c1818,
CONS( c1850,
X11 ) ),
X10 ) ),
X9 ) ),
X7 ) ),
X6 );
X8 = CONS( c1825, EMPTYLIST );
X8 = CONS( X2, X8 );
X8 = CONS( c1824, X8 );
X7 = typedef_uis( CONS( X3, X8 ) );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X7,
CONS( c1615, X8 ) ),
X6 ) );
X4 = d1807;
X4 = UNKNOWNCALL( X4, 1 );
VIA( PROCEDURE_CODE( X4 ) )( X5, PROCEDURE_CLOSURE( X4 ) );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( c1615, X9 );
X10 = typedef_pointed_2dto_2dby( X2 );
X8 = CONS( scrt1_cons_2a( c1856,
CONS( typedef_to_2dcheck_2dtype( X10 ),
X9 ) ),
X8 );
X7 = CONS( scrt1_cons_2a( c1854, CONS( c1855, X8 ) ),
X7 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( c1618,
CONS( p1805, X8 ) ),
X7 ) ),
X6 );
X8 = CONS( X3, EMPTYLIST );
X8 = CONS( c1829, X8 );
X7 = typedef_uis( CONS( X2, X8 ) );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X7,
CONS( c1615, X8 ) ),
X6 ) );
X4 = d1807;
X4 = UNKNOWNCALL( X4, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X4 ) )( X5,
PROCEDURE_CLOSURE( X4 ) ) );
}
DEFTSCP( typedef_emit_2dstruct_2dprocs_v );
DEFSTRING( t2659, "EMIT-STRUCT-PROCS", 17 );
EXTERNTSCPP( scrt3_char_2ddowncase );
EXTERNTSCP( scrt3_char_2ddowncase_v );
DEFSTRING( t2688, "DEF-PRINT [inside EMIT-STRUCT-PROCS]", 36 );
TSCP typedef_d1872( e1874, c2687 )
TSCP e1874, c2687;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2688 ) ) );
X1 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2687, 0 );
X2 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2687, 1 );
X3 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2687, 2 );
scrt6_pp( e1874,
CONS( DISPLAY( 1 ), EMPTYLIST ) );
scrt6_newline( CONS( DISPLAY( 1 ), EMPTYLIST ) );
X5 = CONS( DISPLAY( 0 ), EMPTYLIST );
if ( EQ( TSCPTAG( e1874 ), PAIRTAG ) ) goto L2691;
scrt1__24__cdr_2derror( e1874 );
L2691:
X6 = PAIR_CDR( e1874 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2694;
scrt1__24__car_2derror( X6 );
L2694:
X5 = CONS( PAIR_CAR( X6 ), X5 );
X4 = scrt6_format( DISPLAY( 2 ),
CONS( c1875, X5 ) );
DISPLAY( 1 ) = X1;
DISPLAY( 0 ) = X2;
DISPLAY( 2 ) = X3;
POPSTACKTRACE( X4 );
}
EXTERNTSCPP( typedef_d1872 );
EXTERNTSCPP( scrt2_quotient );
EXTERNTSCP( scrt2_quotient_v );
EXTERNTSCPP( typedef_slot_2dgetset );
EXTERNTSCP( typedef_slot_2dgetset_v );
TSCP typedef_emit_2dstruct_2dprocs( p1858, r1859, t1860 )
TSCP p1858, r1859, t1860;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2659 ) ) );
X1 = typedef_pointer_2dto( p1858 );
if ( FALSE( typedef_uors_2dslots( X1 ) ) ) goto L2662;
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), SYMBOLTAG ) ) ) goto L2665;
scrt6_error( c1710, c1711, CONS( X1, EMPTYLIST ) );
L2665:
X4 = SYMBOL_NAME( X1 );
X3 = scrt3_string_2d_3elist( X4 );
X4 = X3;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
L2669:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2670;
X2 = X5;
goto L2677;
L2670:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2673;
scrt1__24__car_2derror( X4 );
L2673:
X9 = PAIR_CAR( X4 );
X8 = scrt3_char_2ddowncase( X9 );
X7 = sc_cons( X8, EMPTYLIST );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2676;
X8 = PAIR_CDR( X4 );
X6 = X7;
X5 = X7;
X4 = X8;
goto L2669;
L2676:
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2681;
scrt6_error( c1249, c1250, CONS( X6, EMPTYLIST ) );
L2681:
X6 = SETGEN( PAIR_CDR( X6 ), X7 );
X4 = X8;
goto L2669;
L2677:
DISPLAY( 0 ) = scrt3_list_2d_3estring( X2 );
X3 = CONS( c1788, EMPTYLIST );
X2 = scrt3_string_2dappend( CONS( DISPLAY( 0 ), X3 ) );
DISPLAY( 1 ) = scrt5_open_2doutput_2dfile( X2 );
X3 = CONS( c1789, EMPTYLIST );
X2 = scrt3_string_2dappend( CONS( DISPLAY( 0 ), X3 ) );
DISPLAY( 2 ) = scrt5_open_2doutput_2dfile( X2 );
X2 = _TSCP( 0 );
X2 = CONS( X2, EMPTYLIST );
X3 = MAKEPROCEDURE( 1,
0,
typedef_d1872,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 1 ),
DISPLAY( 0 ),
DISPLAY( 2 ) ) );
SETGEN( PAIR_CAR( X2 ), X3 );
X3 = CONS( DISPLAY( 0 ), EMPTYLIST );
scrt6_format( DISPLAY( 1 ), CONS( c1886, X3 ) );
X4 = CONS( c1789, EMPTYLIST );
X3 = CONS( scrt3_string_2dappend( CONS( t1860, X4 ) ),
EMPTYLIST );
scrt6_format( DISPLAY( 1 ), CONS( c1887, X3 ) );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_cons_2a( c1847,
CONS( _TSCP( 0 ), X7 ) ),
X6 );
X9 = typedef_size_2dof( X1 );
if ( BITAND( BITOR( INT( X9 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L2697;
X8 = _TSCP( IPLUS( INT( X9 ), INT( _TSCP( 12 ) ) ) );
goto L2698;
L2697:
X8 = scrt2__2b_2dtwo( X9, _TSCP( 12 ) );
L2698:
if ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 16 ) ) ),
3 ) ) goto L2700;
X7 = C_FIXED( QUOTIENT( INT( X8 ),
INT( _TSCP( 16 ) ) ) );
goto L2701;
L2700:
X7 = scrt2_quotient( X8, _TSCP( 16 ) );
L2701:
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 16 ) ) ),
3 ) ) goto L2703;
X8 = _TSCP( ITIMES( FIXED_C( X7 ),
INT( _TSCP( 16 ) ) ) );
goto L2704;
L2703:
X8 = scrt2__2a_2dtwo( X7, _TSCP( 16 ) );
L2704:
X5 = CONS( scrt1_cons_2a( c1843, CONS( X8, X6 ) ),
X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1617,
CONS( scrt1_cons_2a( c1618,
CONS( p1858, X6 ) ),
X5 ) ),
X4 );
X6 = CONS( X1, EMPTYLIST );
X5 = typedef_uis( CONS( c1832, X6 ) );
X3 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X5,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X4 ) );
typedef_d1872( X3,
PROCEDURE_CLOSURE( PAIR_CAR( X2 ) ) );
typedef_slot_2dgetset( X1,
X1,
_TSCP( 0 ),
p1858, r1859, PAIR_CAR( X2 ) );
scrt5_close_2dport( DISPLAY( 1 ) );
SDVAL = scrt5_close_2dport( DISPLAY( 2 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
L2662:
SDVAL = FALSEVALUE;
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( typedef_slot_2dgetset_v );
DEFSTRING( t2705, "SLOT-GETSET", 11 );
EXTERNTSCPP( scrt1_cadar );
EXTERNTSCP( scrt1_cadar_v );
TSCP typedef_slot_2dgetset( t1951,
p1952,
o1953, b1954, r1955, d1956 )
TSCP t1951, p1952, o1953, b1954, r1955, d1956;
{
TSCP X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2705 ) ) );
X1 = typedef_uors_2dslots( t1951 );
X2 = o1953;
L2709:
if ( FALSE( X1 ) ) goto L2710;
X3 = scrt1_cadar( X1 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2713;
scrt1__24__car_2derror( X1 );
L2713:
X5 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2716;
scrt1__24__car_2derror( X5 );
L2716:
X4 = PAIR_CAR( X5 );
X5 = typedef_isa_2dunion_3f( X4 );
if ( TRUE( X5 ) ) goto L2723;
if ( TRUE( typedef_isa_2dstruct_3f( X4 ) ) ) goto L2723;
X6 = X4;
X7 = X3;
X8 = X2;
if ( FALSE( typedef_isa_2darray_3f( X6 ) ) ) goto L2727;
X9 = c1966;
goto L2728;
L2727:
X9 = EMPTYLIST;
L2728:
X12 = CONS( EMPTYLIST, EMPTYLIST );
X13 = typedef_to_2dget_2dtype( X6 );
X15 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X14 = CONS( scrt1_append_2dtwo( X9, X15 ), EMPTYLIST );
X14 = CONS( X8, X14 );
X15 = typedef_to_2dcheck_2dtype( b1954 );
X16 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( scrt1_cons_2a( X13,
CONS( scrt1_cons_2a( X15,
CONS( c1615,
X16 ) ),
X14 ) ),
X12 );
X14 = CONS( X7, EMPTYLIST );
X14 = CONS( c1965, X14 );
X13 = typedef_uis( CONS( p1952, X14 ) );
X15 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X14 = CONS( scrt1_append_2dtwo( X9, X15 ), EMPTYLIST );
X11 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X13,
CONS( c1615, X14 ) ),
X12 ) );
X10 = d1956;
X10 = UNKNOWNCALL( X10, 1 );
VIA( PROCEDURE_CODE( X10 ) )( X11,
PROCEDURE_CLOSURE( X10 ) );
if ( TRUE( r1955 ) ) goto L2732;
X12 = CONS( EMPTYLIST, EMPTYLIST );
X13 = typedef_to_2dset_21_2dtype( X6 );
X15 = scrt1_cons_2a( c1616,
CONS( EMPTYLIST, EMPTYLIST ) );
X14 = CONS( scrt1_append_2dtwo( X9, X15 ), EMPTYLIST );
X14 = CONS( X8, X14 );
X15 = typedef_to_2dcheck_2dtype( b1954 );
X16 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( scrt1_cons_2a( X13,
CONS( scrt1_cons_2a( X15,
CONS( c1615,
X16 ) ),
X14 ) ),
X12 );
X14 = CONS( c1838, EMPTYLIST );
X14 = CONS( X7, X14 );
X14 = CONS( c1965, X14 );
X13 = typedef_uis( CONS( p1952, X14 ) );
X15 = scrt1_cons_2a( c1616,
CONS( EMPTYLIST, EMPTYLIST ) );
X14 = CONS( scrt1_append_2dtwo( X9, X15 ), EMPTYLIST );
X11 = scrt1_cons_2a( c1793,
CONS( scrt1_cons_2a( X13,
CONS( c1615, X14 ) ),
X12 ) );
X10 = d1956;
X10 = UNKNOWNCALL( X10, 1 );
VIA( PROCEDURE_CODE( X10 ) )( X11,
PROCEDURE_CLOSURE( X10 ) );
goto L2732;
L2723:
X7 = CONS( X3, EMPTYLIST );
X7 = CONS( c1965, X7 );
X6 = typedef_uis( CONS( p1952, X7 ) );
typedef_slot_2dgetset( X4,
X6, X2, b1954, r1955, d1956 );
L2732:
X5 = PAIR_CDR( X1 );
if ( TRUE( typedef_isa_2dunion_3f( t1951 ) ) ) goto L2738;
X6 = typedef_size_2dof( X4 );
if ( BITAND( BITOR( INT( X2 ), INT( X6 ) ),
3 ) ) goto L2737;
X2 = _TSCP( IPLUS( INT( X2 ), INT( X6 ) ) );
goto L2738;
L2737:
X2 = scrt2__2b_2dtwo( X2, X6 );
L2738:
X1 = X5;
goto L2709;
L2710:
POPSTACKTRACE( FALSEVALUE );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt5__init();
scrt3__init();
scrt6__init();
scrt2__init();
scrt1__init();
MAXDISPLAY( 3 );
}
void typedef__init()
{
TSCP X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(typedef SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2208 ) ),
ADR( typedef_input_2dtypedef_v ),
MAKEPROCEDURE( 1,
0,
typedef_input_2dtypedef,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2244 ) ),
ADR( typedef_parse_2dtype_v ),
MAKEPROCEDURE( 1,
0,
typedef_parse_2dtype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2261 ) ),
ADR( typedef_parse_2datype_v ),
MAKEPROCEDURE( 1,
0,
typedef_parse_2datype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2304 ) ),
ADR( typedef_parse_2dstype_v ),
MAKEPROCEDURE( 1,
0,
typedef_parse_2dstype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2308 ) ),
ADR( typedef_struct_2dor_2dunion_v ),
MAKEPROCEDURE( 1,
0,
typedef_struct_2dor_2dunion,
EMPTYLIST ) );
DISPLAY( 0 ) = _TSCP( 4 );
DISPLAY( 0 ) = CONS( DISPLAY( 0 ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2360 ) ),
ADR( typedef_parse_2dslot_2dtype_v ),
MAKEPROCEDURE( 1,
0,
typedef_l1310,
MAKECLOSURE( EMPTYLIST,
1,
DISPLAY( 0 ) ) ) );
X1 = c1357;
L2373:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2374;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2378;
scrt1__24__car_2derror( X1 );
L2378:
X2 = PAIR_CAR( X1 );
X3 = scrt1_list_2dref( X2, _TSCP( 0 ) );
X4 = scrt1_list_2dref( X2, _TSCP( 4 ) );
X5 = scrt1_list_2dref( X2, _TSCP( 8 ) );
X6 = scrt1_list_2dref( X2, _TSCP( 12 ) );
scrt2_putprop( X3, c1037, TRUEVALUE );
scrt2_putprop( X3, c1036, X3 );
scrt2_putprop( X3, c1354, X4 );
scrt2_putprop( X3, c1355, X5 );
scrt2_putprop( X3, c1356, X6 );
X1 = PAIR_CDR( X1 );
goto L2373;
L2374:
INITIALIZEVAR( U_TX( ADR( t2383 ) ),
ADR( typedef_base_2dtype_v ),
MAKEPROCEDURE( 1,
0,
typedef_base_2dtype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2405 ) ),
ADR( typedef_isa_2dunion_3f_v ),
MAKEPROCEDURE( 1,
0,
typedef_isa_2dunion_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2411 ) ),
ADR( typedef_isa_2dstruct_3f_v ),
MAKEPROCEDURE( 1,
0,
typedef_isa_2dstruct_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2417 ) ),
ADR( typedef_uors_2dslots_v ),
MAKEPROCEDURE( 1,
0,
typedef_uors_2dslots, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2426 ) ),
ADR( typedef_isa_2dprocp_3f_v ),
MAKEPROCEDURE( 1,
0,
typedef_isa_2dprocp_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2435 ) ),
ADR( typedef_procp_2dreturns_v ),
MAKEPROCEDURE( 1,
0,
typedef_procp_2dreturns,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2440 ) ),
ADR( typedef_isa_2dpointer_3f_v ),
MAKEPROCEDURE( 1,
0,
typedef_isa_2dpointer_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2449 ) ),
ADR( typedef_pointer_2dto_v ),
MAKEPROCEDURE( 1,
0,
typedef_pointer_2dto, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2454 ) ),
ADR( typedef_isa_2darray_3f_v ),
MAKEPROCEDURE( 1,
0,
typedef_isa_2darray_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2466 ) ),
ADR( typedef_array_2dsize_v ),
MAKEPROCEDURE( 1,
0,
typedef_array_2dsize, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2475 ) ),
ADR( typedef_array_2dtype_v ),
MAKEPROCEDURE( 1,
0,
typedef_array_2dtype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2480 ) ),
ADR( typedef_pointed_2dto_2dby_v ),
MAKEPROCEDURE( 1,
0,
typedef_pointed_2dto_2dby,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2482 ) ),
ADR( typedef_size_2dof_v ),
MAKEPROCEDURE( 1,
0,
typedef_size_2dof, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2516 ) ),
ADR( typedef_to_2dget_2dtype_v ),
MAKEPROCEDURE( 1,
0,
typedef_to_2dget_2dtype,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2528 ) ),
ADR( typedef_to_2dset_21_2dtype_v ),
MAKEPROCEDURE( 1,
0,
typedef_to_2dset_21_2dtype,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2540 ) ),
ADR( typedef_to_2dcheck_2dtype_v ),
MAKEPROCEDURE( 1,
0,
typedef_to_2dcheck_2dtype,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2550 ) ),
ADR( typedef_type_2dtag_v ),
MAKEPROCEDURE( 1,
0,
typedef_type_2dtag, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2557 ) ),
ADR( typedef_uis_v ),
MAKEPROCEDURE( 0,
1, typedef_uis, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2593 ) ),
ADR( typedef_emit_2dtypedefs_v ),
MAKEPROCEDURE( 4,
0,
typedef_emit_2dtypedefs,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2636 ) ),
ADR( typedef_emit_2dchk_2dprocs_v ),
MAKEPROCEDURE( 2,
0,
typedef_emit_2dchk_2dprocs,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2638 ) ),
ADR( typedef_emit_2darray_2dprocs_v ),
MAKEPROCEDURE( 3,
0,
typedef_emit_2darray_2dprocs,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2659 ) ),
ADR( typedef_emit_2dstruct_2dprocs_v ),
MAKEPROCEDURE( 3,
0,
typedef_emit_2dstruct_2dprocs,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2705 ) ),
ADR( typedef_slot_2dgetset_v ),
MAKEPROCEDURE( 6,
0,
typedef_slot_2dgetset, EMPTYLIST ) );
DISPLAY( 0 ) = SD0;
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.