home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / eiffel / smalleif.97 / se.t / SmallEiffel / bin_c / pretty9.c < prev   
Encoding:
C/C++ Source or Header  |  1996-05-02  |  24.7 KB  |  1,051 lines
  1. /* ANSI C code generated by SmallEiffel. */
  2. /*
  3. -- SmallEiffel  -- Release (- 0.97)    --      FRANCE
  4. -- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN 
  5. -- University Henri Poincare' - Nancy 1 - email colnet@loria.fr 
  6. -- CRIN (Centre de Recherche en Informatique de Nancy)
  7. -- FRANCE 
  8. */
  9. #include "pretty.h"
  10. void rT187bracketed_print(T187 *C){
  11. rT259put_character((T259*)oRBC27fmt,'\50');
  12. rT187pretty_print(C);
  13. rT259put_character((T259*)oRBC27fmt,'\51');
  14. }
  15. void rT187fatal_error(/*C*/T0* a1){
  16. rT43fatal_error((T43*)oRBC27eh,a1);
  17. }
  18. T0 * rT187arg1(T187 *C){
  19. T0 * R=NULL;
  20. R=rT168first((T168*)(C)->_arguments);
  21. return R;
  22. }
  23. T0 * rT187add_comment(T187 *C,T0 * a1){
  24. T0 * R=NULL;
  25. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  26. R=(T0 *)C;
  27. }
  28. else {
  29. {T218 *n=((T218*)new(218));
  30. rT218make(n,(T0 *)C,a1);
  31. R=(T0 *)n;}}
  32. /*FI*/return R;
  33. }
  34. void rT187print_as_target(T187 *C){
  35. rT187bracketed_print(C);
  36. rT259put_character((T259*)oRBC27fmt,'\56');
  37. }
  38. void rT187print_op(T187 *C){
  39. rT259put_character((T259*)oRBC27fmt,'\40');
  40. rT68pretty_print2((T68*)(C)->_feature_name);
  41. rT259put_character((T259*)oRBC27fmt,'\40');
  42. }
  43. T0 * rT187start_position(T187 *C){
  44. T0 * R=NULL;
  45. R=((T68*)(C)->_feature_name)->_start_position;
  46. return R;
  47. }
  48. void rT187pretty_print(T187 *C){
  49. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  50. XrT66pretty_print((C)->_target);
  51. rT187print_op(C);
  52. /*IF*/if ((XrT66precedence(rT187arg1(C)))==(13)) {
  53. XrT66pretty_print(rT187arg1(C));
  54. }
  55.  else if ((7)>=(XrT66precedence(rT187arg1(C)))) {
  56. XrT66bracketed_print(rT187arg1(C));
  57. }
  58. else {
  59. XrT66pretty_print(rT187arg1(C));
  60. }
  61. /*FI*/}
  62.  else if ((XrT66precedence((C)->_target))<(7)) {
  63. XrT66bracketed_print((C)->_target);
  64. rT187print_op(C);
  65. XrT66pretty_print(rT187arg1(C));
  66. }
  67. else {
  68. XrT66pretty_print((C)->_target);
  69. rT187print_op(C);
  70. XrT66pretty_print(rT187arg1(C));
  71. }
  72. /*FI*/}
  73. void rT187copy(T187 *C,T0 * a1){
  74. /*IF*//*AF*//*AE*/
  75. memcpy(C,a1,s[C->id]);
  76. /*FI*/}
  77. void rT187make_call_1(T187 *C,T0 * a1,T0 * a2,T0 * a3){
  78. C->_target=a1;
  79. C->_feature_name=a2;
  80. C->_arguments=a3;
  81. }
  82. void rT187make(T187 *C,T0 * a1,T0 * a2,T0 * a3){
  83. T0 * _eal=NULL;
  84. /*IF*/if ((!(a1))||(!(a3))) {
  85. /*UT*/(T43*)oRBC27eh;
  86. rT43add_position(a2);
  87. rT187fatal_error((T0 *)ms303);
  88. }
  89. /*FI*/{T68 *n=((T68*)new(68));
  90. rT68make(n,/*(IRF4*/(T0 *)ms84/*)*/,a2);
  91. C->_feature_name=(T0 *)n;}
  92. {T168 *n=((T168*)new(168));
  93. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  94. /*)*/_eal=(T0 *)n;}
  95. rT187make_call_1(C,a1,(C)->_feature_name,_eal);
  96. }
  97. void rT186bracketed_print(T186 *C){
  98. rT259put_character((T259*)oRBC27fmt,'\50');
  99. rT186pretty_print(C);
  100. rT259put_character((T259*)oRBC27fmt,'\51');
  101. }
  102. void rT186fatal_error(/*C*/T0* a1){
  103. rT43fatal_error((T43*)oRBC27eh,a1);
  104. }
  105. T0 * rT186arg1(T186 *C){
  106. T0 * R=NULL;
  107. R=rT168first((T168*)(C)->_arguments);
  108. return R;
  109. }
  110. T0 * rT186add_comment(T186 *C,T0 * a1){
  111. T0 * R=NULL;
  112. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  113. R=(T0 *)C;
  114. }
  115. else {
  116. {T218 *n=((T218*)new(218));
  117. rT218make(n,(T0 *)C,a1);
  118. R=(T0 *)n;}}
  119. /*FI*/return R;
  120. }
  121. void rT186print_as_target(T186 *C){
  122. rT186bracketed_print(C);
  123. rT259put_character((T259*)oRBC27fmt,'\56');
  124. }
  125. void rT186print_op(T186 *C){
  126. rT259put_character((T259*)oRBC27fmt,'\40');
  127. rT68pretty_print2((T68*)(C)->_feature_name);
  128. rT259put_character((T259*)oRBC27fmt,'\40');
  129. }
  130. T0 * rT186start_position(T186 *C){
  131. T0 * R=NULL;
  132. R=((T68*)(C)->_feature_name)->_start_position;
  133. return R;
  134. }
  135. void rT186pretty_print(T186 *C){
  136. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  137. XrT66pretty_print((C)->_target);
  138. rT186print_op(C);
  139. /*IF*/if ((XrT66precedence(rT186arg1(C)))==(13)) {
  140. XrT66pretty_print(rT186arg1(C));
  141. }
  142.  else if ((8)>=(XrT66precedence(rT186arg1(C)))) {
  143. XrT66bracketed_print(rT186arg1(C));
  144. }
  145. else {
  146. XrT66pretty_print(rT186arg1(C));
  147. }
  148. /*FI*/}
  149.  else if ((XrT66precedence((C)->_target))<(8)) {
  150. XrT66bracketed_print((C)->_target);
  151. rT186print_op(C);
  152. XrT66pretty_print(rT186arg1(C));
  153. }
  154. else {
  155. XrT66pretty_print((C)->_target);
  156. rT186print_op(C);
  157. XrT66pretty_print(rT186arg1(C));
  158. }
  159. /*FI*/}
  160. void rT186copy(T186 *C,T0 * a1){
  161. /*IF*//*AF*//*AE*/
  162. memcpy(C,a1,s[C->id]);
  163. /*FI*/}
  164. void rT186make_call_1(T186 *C,T0 * a1,T0 * a2,T0 * a3){
  165. C->_target=a1;
  166. C->_feature_name=a2;
  167. C->_arguments=a3;
  168. }
  169. void rT186make(T186 *C,T0 * a1,T0 * a2,T0 * a3){
  170. T0 * _eal=NULL;
  171. /*IF*/if ((!(a1))||(!(a3))) {
  172. /*UT*/(T43*)oRBC27eh;
  173. rT43add_position(a2);
  174. rT186fatal_error((T0 *)ms303);
  175. }
  176. /*FI*/{T68 *n=((T68*)new(68));
  177. rT68make(n,/*(IRF4*/(T0 *)ms95/*)*/,a2);
  178. C->_feature_name=(T0 *)n;}
  179. {T168 *n=((T168*)new(168));
  180. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  181. /*)*/_eal=(T0 *)n;}
  182. rT186make_call_1(C,a1,(C)->_feature_name,_eal);
  183. }
  184. void rT185bracketed_print(T185 *C){
  185. rT259put_character((T259*)oRBC27fmt,'\50');
  186. rT185pretty_print(C);
  187. rT259put_character((T259*)oRBC27fmt,'\51');
  188. }
  189. void rT185fatal_error(/*C*/T0* a1){
  190. rT43fatal_error((T43*)oRBC27eh,a1);
  191. }
  192. T0 * rT185arg1(T185 *C){
  193. T0 * R=NULL;
  194. R=rT168first((T168*)(C)->_arguments);
  195. return R;
  196. }
  197. T0 * rT185add_comment(T185 *C,T0 * a1){
  198. T0 * R=NULL;
  199. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  200. R=(T0 *)C;
  201. }
  202. else {
  203. {T218 *n=((T218*)new(218));
  204. rT218make(n,(T0 *)C,a1);
  205. R=(T0 *)n;}}
  206. /*FI*/return R;
  207. }
  208. void rT185print_as_target(T185 *C){
  209. rT185bracketed_print(C);
  210. rT259put_character((T259*)oRBC27fmt,'\56');
  211. }
  212. void rT185print_op(T185 *C){
  213. rT259put_character((T259*)oRBC27fmt,'\40');
  214. rT68pretty_print2((T68*)(C)->_feature_name);
  215. rT259put_character((T259*)oRBC27fmt,'\40');
  216. }
  217. T0 * rT185start_position(T185 *C){
  218. T0 * R=NULL;
  219. R=((T68*)(C)->_feature_name)->_start_position;
  220. return R;
  221. }
  222. void rT185pretty_print(T185 *C){
  223. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  224. XrT66pretty_print((C)->_target);
  225. rT185print_op(C);
  226. /*IF*/if ((XrT66precedence(rT185arg1(C)))==(13)) {
  227. XrT66pretty_print(rT185arg1(C));
  228. }
  229.  else if ((8)>=(XrT66precedence(rT185arg1(C)))) {
  230. XrT66bracketed_print(rT185arg1(C));
  231. }
  232. else {
  233. XrT66pretty_print(rT185arg1(C));
  234. }
  235. /*FI*/}
  236.  else if ((XrT66precedence((C)->_target))<(8)) {
  237. XrT66bracketed_print((C)->_target);
  238. rT185print_op(C);
  239. XrT66pretty_print(rT185arg1(C));
  240. }
  241. else {
  242. XrT66pretty_print((C)->_target);
  243. rT185print_op(C);
  244. XrT66pretty_print(rT185arg1(C));
  245. }
  246. /*FI*/}
  247. void rT185copy(T185 *C,T0 * a1){
  248. /*IF*//*AF*//*AE*/
  249. memcpy(C,a1,s[C->id]);
  250. /*FI*/}
  251. void rT185make_call_1(T185 *C,T0 * a1,T0 * a2,T0 * a3){
  252. C->_target=a1;
  253. C->_feature_name=a2;
  254. C->_arguments=a3;
  255. }
  256. void rT185make(T185 *C,T0 * a1,T0 * a2,T0 * a3){
  257. T0 * _eal=NULL;
  258. /*IF*/if ((!(a1))||(!(a3))) {
  259. /*UT*/(T43*)oRBC27eh;
  260. rT43add_position(a2);
  261. rT185fatal_error((T0 *)ms303);
  262. }
  263. /*FI*/{T68 *n=((T68*)new(68));
  264. rT68make(n,(T0 *)ms310,a2);
  265. C->_feature_name=(T0 *)n;}
  266. {T168 *n=((T168*)new(168));
  267. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  268. /*)*/_eal=(T0 *)n;}
  269. rT185make_call_1(C,a1,(C)->_feature_name,_eal);
  270. }
  271. void rT184bracketed_print(T184 *C){
  272. rT259put_character((T259*)oRBC27fmt,'\50');
  273. rT184pretty_print(C);
  274. rT259put_character((T259*)oRBC27fmt,'\51');
  275. }
  276. void rT184fatal_error(/*C*/T0* a1){
  277. rT43fatal_error((T43*)oRBC27eh,a1);
  278. }
  279. T0 * rT184arg1(T184 *C){
  280. T0 * R=NULL;
  281. R=rT168first((T168*)(C)->_arguments);
  282. return R;
  283. }
  284. T0 * rT184add_comment(T184 *C,T0 * a1){
  285. T0 * R=NULL;
  286. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  287. R=(T0 *)C;
  288. }
  289. else {
  290. {T218 *n=((T218*)new(218));
  291. rT218make(n,(T0 *)C,a1);
  292. R=(T0 *)n;}}
  293. /*FI*/return R;
  294. }
  295. void rT184print_as_target(T184 *C){
  296. rT184bracketed_print(C);
  297. rT259put_character((T259*)oRBC27fmt,'\56');
  298. }
  299. void rT184print_op(T184 *C){
  300. rT259put_character((T259*)oRBC27fmt,'\40');
  301. rT68pretty_print2((T68*)(C)->_feature_name);
  302. rT259put_character((T259*)oRBC27fmt,'\40');
  303. }
  304. T0 * rT184start_position(T184 *C){
  305. T0 * R=NULL;
  306. R=((T68*)(C)->_feature_name)->_start_position;
  307. return R;
  308. }
  309. void rT184pretty_print(T184 *C){
  310. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  311. XrT66pretty_print((C)->_target);
  312. rT184print_op(C);
  313. /*IF*/if ((XrT66precedence(rT184arg1(C)))==(13)) {
  314. XrT66pretty_print(rT184arg1(C));
  315. }
  316.  else if ((8)>=(XrT66precedence(rT184arg1(C)))) {
  317. XrT66bracketed_print(rT184arg1(C));
  318. }
  319. else {
  320. XrT66pretty_print(rT184arg1(C));
  321. }
  322. /*FI*/}
  323.  else if ((XrT66precedence((C)->_target))<(8)) {
  324. XrT66bracketed_print((C)->_target);
  325. rT184print_op(C);
  326. XrT66pretty_print(rT184arg1(C));
  327. }
  328. else {
  329. XrT66pretty_print((C)->_target);
  330. rT184print_op(C);
  331. XrT66pretty_print(rT184arg1(C));
  332. }
  333. /*FI*/}
  334. void rT184copy(T184 *C,T0 * a1){
  335. /*IF*//*AF*//*AE*/
  336. memcpy(C,a1,s[C->id]);
  337. /*FI*/}
  338. void rT184make_call_1(T184 *C,T0 * a1,T0 * a2,T0 * a3){
  339. C->_target=a1;
  340. C->_feature_name=a2;
  341. C->_arguments=a3;
  342. }
  343. void rT184make(T184 *C,T0 * a1,T0 * a2,T0 * a3){
  344. T0 * _eal=NULL;
  345. /*IF*/if ((!(a1))||(!(a3))) {
  346. /*UT*/(T43*)oRBC27eh;
  347. rT43add_position(a2);
  348. rT184fatal_error((T0 *)ms303);
  349. }
  350. /*FI*/{T68 *n=((T68*)new(68));
  351. rT68make(n,(T0 *)ms308,a2);
  352. C->_feature_name=(T0 *)n;}
  353. {T168 *n=((T168*)new(168));
  354. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  355. /*)*/_eal=(T0 *)n;}
  356. rT184make_call_1(C,a1,(C)->_feature_name,_eal);
  357. }
  358. void rT183bracketed_print(T183 *C){
  359. rT259put_character((T259*)oRBC27fmt,'\50');
  360. rT183pretty_print(C);
  361. rT259put_character((T259*)oRBC27fmt,'\51');
  362. }
  363. void rT183fatal_error(/*C*/T0* a1){
  364. rT43fatal_error((T43*)oRBC27eh,a1);
  365. }
  366. T0 * rT183arg1(T183 *C){
  367. T0 * R=NULL;
  368. R=rT168first((T168*)(C)->_arguments);
  369. return R;
  370. }
  371. T0 * rT183add_comment(T183 *C,T0 * a1){
  372. T0 * R=NULL;
  373. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  374. R=(T0 *)C;
  375. }
  376. else {
  377. {T218 *n=((T218*)new(218));
  378. rT218make(n,(T0 *)C,a1);
  379. R=(T0 *)n;}}
  380. /*FI*/return R;
  381. }
  382. void rT183print_as_target(T183 *C){
  383. rT183bracketed_print(C);
  384. rT259put_character((T259*)oRBC27fmt,'\56');
  385. }
  386. void rT183print_op(T183 *C){
  387. rT259put_character((T259*)oRBC27fmt,'\40');
  388. rT68pretty_print2((T68*)(C)->_feature_name);
  389. rT259put_character((T259*)oRBC27fmt,'\40');
  390. }
  391. T0 * rT183start_position(T183 *C){
  392. T0 * R=NULL;
  393. R=((T68*)(C)->_feature_name)->_start_position;
  394. return R;
  395. }
  396. void rT183pretty_print(T183 *C){
  397. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  398. XrT66pretty_print((C)->_target);
  399. rT183print_op(C);
  400. /*IF*/if ((XrT66precedence(rT183arg1(C)))==(13)) {
  401. XrT66pretty_print(rT183arg1(C));
  402. }
  403.  else if ((8)>=(XrT66precedence(rT183arg1(C)))) {
  404. XrT66bracketed_print(rT183arg1(C));
  405. }
  406. else {
  407. XrT66pretty_print(rT183arg1(C));
  408. }
  409. /*FI*/}
  410.  else if ((XrT66precedence((C)->_target))<(8)) {
  411. XrT66bracketed_print((C)->_target);
  412. rT183print_op(C);
  413. XrT66pretty_print(rT183arg1(C));
  414. }
  415. else {
  416. XrT66pretty_print((C)->_target);
  417. rT183print_op(C);
  418. XrT66pretty_print(rT183arg1(C));
  419. }
  420. /*FI*/}
  421. void rT183copy(T183 *C,T0 * a1){
  422. /*IF*//*AF*//*AE*/
  423. memcpy(C,a1,s[C->id]);
  424. /*FI*/}
  425. void rT183make_call_1(T183 *C,T0 * a1,T0 * a2,T0 * a3){
  426. C->_target=a1;
  427. C->_feature_name=a2;
  428. C->_arguments=a3;
  429. }
  430. void rT183make(T183 *C,T0 * a1,T0 * a2,T0 * a3){
  431. T0 * _eal=NULL;
  432. /*IF*/if ((!(a1))||(!(a3))) {
  433. /*UT*/(T43*)oRBC27eh;
  434. rT43add_position(a2);
  435. rT183fatal_error((T0 *)ms303);
  436. }
  437. /*FI*/{T68 *n=((T68*)new(68));
  438. rT68make(n,(T0 *)ms306,a2);
  439. C->_feature_name=(T0 *)n;}
  440. {T168 *n=((T168*)new(168));
  441. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  442. /*)*/_eal=(T0 *)n;}
  443. rT183make_call_1(C,a1,(C)->_feature_name,_eal);
  444. }
  445. void rT182bracketed_print(T182 *C){
  446. rT259put_character((T259*)oRBC27fmt,'\50');
  447. rT182pretty_print(C);
  448. rT259put_character((T259*)oRBC27fmt,'\51');
  449. }
  450. void rT182fatal_error(/*C*/T0* a1){
  451. rT43fatal_error((T43*)oRBC27eh,a1);
  452. }
  453. T0 * rT182arg1(T182 *C){
  454. T0 * R=NULL;
  455. R=rT168first((T168*)(C)->_arguments);
  456. return R;
  457. }
  458. T0 * rT182add_comment(T182 *C,T0 * a1){
  459. T0 * R=NULL;
  460. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  461. R=(T0 *)C;
  462. }
  463. else {
  464. {T218 *n=((T218*)new(218));
  465. rT218make(n,(T0 *)C,a1);
  466. R=(T0 *)n;}}
  467. /*FI*/return R;
  468. }
  469. void rT182print_as_target(T182 *C){
  470. rT182bracketed_print(C);
  471. rT259put_character((T259*)oRBC27fmt,'\56');
  472. }
  473. void rT182print_op(T182 *C){
  474. rT259put_character((T259*)oRBC27fmt,'\40');
  475. rT68pretty_print2((T68*)(C)->_feature_name);
  476. rT259put_character((T259*)oRBC27fmt,'\40');
  477. }
  478. T0 * rT182start_position(T182 *C){
  479. T0 * R=NULL;
  480. R=((T68*)(C)->_feature_name)->_start_position;
  481. return R;
  482. }
  483. void rT182pretty_print(T182 *C){
  484. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  485. XrT66pretty_print((C)->_target);
  486. rT182print_op(C);
  487. /*IF*/if ((XrT66precedence(rT182arg1(C)))==(13)) {
  488. XrT66pretty_print(rT182arg1(C));
  489. }
  490.  else if ((9)>(XrT66precedence(rT182arg1(C)))) {
  491. XrT66bracketed_print(rT182arg1(C));
  492. }
  493. else {
  494. XrT66pretty_print(rT182arg1(C));
  495. }
  496. /*FI*/}
  497.  else if ((XrT66precedence((C)->_target))<=(9)) {
  498. XrT66bracketed_print((C)->_target);
  499. rT182print_op(C);
  500. XrT66pretty_print(rT182arg1(C));
  501. }
  502. else {
  503. XrT66pretty_print((C)->_target);
  504. rT182print_op(C);
  505. XrT66pretty_print(rT182arg1(C));
  506. }
  507. /*FI*/}
  508. void rT182copy(T182 *C,T0 * a1){
  509. /*IF*//*AF*//*AE*/
  510. memcpy(C,a1,s[C->id]);
  511. /*FI*/}
  512. void rT182make_call_1(T182 *C,T0 * a1,T0 * a2,T0 * a3){
  513. C->_target=a1;
  514. C->_feature_name=a2;
  515. C->_arguments=a3;
  516. }
  517. void rT182make(T182 *C,T0 * a1,T0 * a2,T0 * a3){
  518. T0 * _eal=NULL;
  519. /*IF*/if ((!(a1))||(!(a3))) {
  520. /*UT*/(T43*)oRBC27eh;
  521. rT43add_position(a2);
  522. rT182fatal_error((T0 *)ms303);
  523. }
  524. /*FI*/{T68 *n=((T68*)new(68));
  525. rT68make(n,(T0 *)ms304,a2);
  526. C->_feature_name=(T0 *)n;}
  527. {T168 *n=((T168*)new(168));
  528. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  529. /*)*/_eal=(T0 *)n;}
  530. rT182make_call_1(C,a1,(C)->_feature_name,_eal);
  531. }
  532. void rT180bracketed_print(T180 *C){
  533. rT259put_character((T259*)oRBC27fmt,'\50');
  534. rT180pretty_print(C);
  535. rT259put_character((T259*)oRBC27fmt,'\51');
  536. }
  537. void rT180fatal_error(/*C*/T0* a1){
  538. rT43fatal_error((T43*)oRBC27eh,a1);
  539. }
  540. T0 * rT180arg1(T180 *C){
  541. T0 * R=NULL;
  542. R=rT168first((T168*)(C)->_arguments);
  543. return R;
  544. }
  545. T0 * rT180add_comment(T180 *C,T0 * a1){
  546. T0 * R=NULL;
  547. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  548. R=(T0 *)C;
  549. }
  550. else {
  551. {T218 *n=((T218*)new(218));
  552. rT218make(n,(T0 *)C,a1);
  553. R=(T0 *)n;}}
  554. /*FI*/return R;
  555. }
  556. void rT180print_as_target(T180 *C){
  557. rT180bracketed_print(C);
  558. rT259put_character((T259*)oRBC27fmt,'\56');
  559. }
  560. void rT180print_op(T180 *C){
  561. rT259put_character((T259*)oRBC27fmt,'\40');
  562. rT68pretty_print2((T68*)(C)->_feature_name);
  563. rT259put_character((T259*)oRBC27fmt,'\40');
  564. }
  565. T0 * rT180start_position(T180 *C){
  566. T0 * R=NULL;
  567. R=((T68*)(C)->_feature_name)->_start_position;
  568. return R;
  569. }
  570. void rT180pretty_print(T180 *C){
  571. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  572. XrT66pretty_print((C)->_target);
  573. rT180print_op(C);
  574. /*IF*/if ((XrT66precedence(rT180arg1(C)))==(13)) {
  575. XrT66pretty_print(rT180arg1(C));
  576. }
  577.  else if ((10)>=(XrT66precedence(rT180arg1(C)))) {
  578. XrT66bracketed_print(rT180arg1(C));
  579. }
  580. else {
  581. XrT66pretty_print(rT180arg1(C));
  582. }
  583. /*FI*/}
  584.  else if ((XrT66precedence((C)->_target))<(10)) {
  585. XrT66bracketed_print((C)->_target);
  586. rT180print_op(C);
  587. XrT66pretty_print(rT180arg1(C));
  588. }
  589. else {
  590. XrT66pretty_print((C)->_target);
  591. rT180print_op(C);
  592. XrT66pretty_print(rT180arg1(C));
  593. }
  594. /*FI*/}
  595. T0* rT180operator(T180 *C){
  596. T0* R=NULL;
  597. R=((T68*)(C)->_feature_name)->_to_string;
  598. return R;
  599. }
  600. void rT180copy(T180 *C,T0 * a1){
  601. /*IF*//*AF*//*AE*/
  602. memcpy(C,a1,s[C->id]);
  603. /*FI*/}
  604. void rT180make_infix(T180 *C,T0 * a1,T0 * a2,T0 * a3){
  605. T0 * _eal=NULL;
  606. /*IF*/if ((!(a1))||(!(a3))) {
  607. /*UT*/(T43*)oRBC27eh;
  608. rT43add_position(a2);
  609. rT180fatal_error((T0 *)ms303);
  610. }
  611. /*FI*/{T68 *n=((T68*)new(68));
  612. rT68make(n,rT180operator(C),a2);
  613. C->_feature_name=(T0 *)n;}
  614. {T168 *n=((T168*)new(168));
  615. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  616. /*)*/_eal=(T0 *)n;}
  617. rT180make_call_1(C,a1,(C)->_feature_name,_eal);
  618. }
  619. void rT180make_call_1(T180 *C,T0 * a1,T0 * a2,T0 * a3){
  620. C->_target=a1;
  621. C->_feature_name=a2;
  622. C->_arguments=a3;
  623. }
  624. void rT180make(T180 *C,T0 * a1,T0 * a2,T0 * a3){
  625. T0 * _eal=NULL;
  626. {T168 *n=((T168*)new(168));
  627. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  628. /*)*/_eal=(T0 *)n;}
  629. rT180make_call_1(C,a1,a2,_eal);
  630. }
  631. void rT173bracketed_print(T173 *C){
  632. rT259put_character((T259*)oRBC27fmt,'\50');
  633. rT173pretty_print(C);
  634. rT259put_character((T259*)oRBC27fmt,'\51');
  635. }
  636. T0 * rT173add_comment(T173 *C,T0 * a1){
  637. T0 * R=NULL;
  638. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  639. R=(T0 *)C;
  640. }
  641. else {
  642. {T218 *n=((T218*)new(218));
  643. rT218make(n,(T0 *)C,a1);
  644. R=(T0 *)n;}}
  645. /*FI*/return R;
  646. }
  647. void rT173print_as_target(T173 *C){
  648. rT173pretty_print(C);
  649. rT259put_character((T259*)oRBC27fmt,'\56');
  650. }
  651. T0 * rT173start_position(T173 *C){
  652. T0 * R=NULL;
  653. R=XrT65start_position((C)->_feature_name);
  654. return R;
  655. }
  656. void rT173pretty_print(T173 *C){
  657. XrT66print_as_target((C)->_target);
  658. rT259put_string((T259*)oRBC27fmt,XrT65to_string((C)->_feature_name));
  659. rT259level_incr((T259*)oRBC27fmt);
  660. rT168pretty_print((T168*)(C)->_arguments);
  661. rT259level_decr((T259*)oRBC27fmt);
  662. }
  663. void rT173copy(T173 *C,T0 * a1){
  664. /*IF*//*AF*//*AE*/
  665. memcpy(C,a1,s[C->id]);
  666. /*FI*/}
  667. void rT173make(T173 *C,T0 * a1,T0 * a2,T0 * a3){
  668. C->_target=a1;
  669. C->_feature_name=a2;
  670. C->_arguments=a3;
  671. }
  672. void rT172bracketed_print(T172 *C){
  673. rT259put_character((T259*)oRBC27fmt,'\50');
  674. rT172pretty_print(C);
  675. rT259put_character((T259*)oRBC27fmt,'\51');
  676. }
  677. T0 * rT172arg1(T172 *C){
  678. T0 * R=NULL;
  679. R=rT168first((T168*)(C)->_arguments);
  680. return R;
  681. }
  682. T0 * rT172add_comment(T172 *C,T0 * a1){
  683. T0 * R=NULL;
  684. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  685. R=(T0 *)C;
  686. }
  687. else {
  688. {T218 *n=((T218*)new(218));
  689. rT218make(n,(T0 *)C,a1);
  690. R=(T0 *)n;}}
  691. /*FI*/return R;
  692. }
  693. void rT172print_as_target(T172 *C){
  694. rT172pretty_print(C);
  695. rT259put_character((T259*)oRBC27fmt,'\56');
  696. }
  697. T0 * rT172start_position(T172 *C){
  698. T0 * R=NULL;
  699. R=XrT65start_position((C)->_feature_name);
  700. return R;
  701. }
  702. void rT172pretty_print(T172 *C){
  703. XrT66print_as_target((C)->_target);
  704. rT259put_string((T259*)oRBC27fmt,XrT65to_string((C)->_feature_name));
  705. rT259put_character((T259*)oRBC27fmt,'\50');
  706. XrT66pretty_print(rT172arg1(C));
  707. rT259put_character((T259*)oRBC27fmt,'\51');
  708. }
  709. void rT172copy(T172 *C,T0 * a1){
  710. /*IF*//*AF*//*AE*/
  711. memcpy(C,a1,s[C->id]);
  712. /*FI*/}
  713. void rT172make(T172 *C,T0 * a1,T0 * a2,T0 * a3){
  714. C->_target=a1;
  715. C->_feature_name=a2;
  716. C->_arguments=a3;
  717. }
  718. void rT161bracketed_print(T161 *C){
  719. rT259put_character((T259*)oRBC27fmt,'\50');
  720. rT161pretty_print(C);
  721. rT259put_character((T259*)oRBC27fmt,'\51');
  722. }
  723. T0 * rT161add_comment(T161 *C,T0 * a1){
  724. T0 * R=NULL;
  725. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  726. R=(T0 *)C;
  727. }
  728. else {
  729. {T218 *n=((T218*)new(218));
  730. rT218make(n,(T0 *)C,a1);
  731. R=(T0 *)n;}}
  732. /*FI*/return R;
  733. }
  734. void rT161print_as_target(T161 *C){
  735. rT161pretty_print(C);
  736. rT259put_character((T259*)oRBC27fmt,'\56');
  737. }
  738. T0 * rT161start_position(T161 *C){
  739. T0 * R=NULL;
  740. R=XrT65start_position((C)->_feature_name);
  741. return R;
  742. }
  743. void rT161pretty_print(T161 *C){
  744. XrT66print_as_target((C)->_target);
  745. rT259put_string((T259*)oRBC27fmt,XrT65to_string((C)->_feature_name));
  746. }
  747. void rT161copy(T161 *C,T0 * a1){
  748. /*IF*//*AF*//*AE*/
  749. memcpy(C,a1,s[C->id]);
  750. /*FI*/}
  751. void rT161make(T161 *C,T0 * a1,T0 * a2){
  752. C->_target=a1;
  753. C->_feature_name=a2;
  754. }
  755. void rT159bracketed_print(T159 *C){
  756. rT259put_character((T259*)oRBC27fmt,'\50');
  757. rT159pretty_print(C);
  758. rT259put_character((T259*)oRBC27fmt,'\51');
  759. }
  760. T0 * rT159add_comment(T159 *C,T0 * a1){
  761. T0 * R=NULL;
  762. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  763. R=(T0 *)C;
  764. }
  765. else {
  766. {T218 *n=((T218*)new(218));
  767. rT218make(n,(T0 *)C,a1);
  768. R=(T0 *)n;}}
  769. /*FI*/return R;
  770. }
  771. void rT159print_as_target(T159 *C){
  772. rT159bracketed_print(C);
  773. rT259put_character((T259*)oRBC27fmt,'\56');
  774. }
  775. T0 * rT159start_position(T159 *C){
  776. T0 * R=NULL;
  777. R=((T64*)(C)->_feature_name)->_start_position;
  778. return R;
  779. }
  780. void rT159pretty_print(T159 *C){
  781. rT64pretty_print2((T64*)(C)->_feature_name);
  782. rT259put_character((T259*)oRBC27fmt,'\40');
  783. /*IF*/if ((XrT66precedence((C)->_target))<(11)) {
  784. rT259put_character((T259*)oRBC27fmt,'\50');
  785. XrT66pretty_print((C)->_target);
  786. rT259put_character((T259*)oRBC27fmt,'\51');
  787. }
  788. else {
  789. XrT66pretty_print((C)->_target);
  790. }
  791. /*FI*/}
  792. void rT159copy(T159 *C,T0 * a1){
  793. /*IF*//*AF*//*AE*/
  794. memcpy(C,a1,s[C->id]);
  795. /*FI*/}
  796. void rT159make_call0(T159 *C,T0 * a1,T0 * a2){
  797. C->_target=a1;
  798. C->_feature_name=a2;
  799. }
  800. void rT159make(T159 *C,T0 * a1,T0 * a2){
  801. {T64 *n=((T64*)new(64));
  802. rT64make(n,/*(IRF4*/(T0 *)ms82/*)*/,a1);
  803. C->_feature_name=(T0 *)n;}
  804. rT159make_call0(C,a2,(C)->_feature_name);
  805. }
  806. void rT163bracketed_print(T163 *C){
  807. rT259put_character((T259*)oRBC27fmt,'\50');
  808. rT163pretty_print(C);
  809. rT259put_character((T259*)oRBC27fmt,'\51');
  810. }
  811. T0 * rT163add_comment(T163 *C,T0 * a1){
  812. T0 * R=NULL;
  813. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  814. R=(T0 *)C;
  815. }
  816. else {
  817. {T218 *n=((T218*)new(218));
  818. rT218make(n,(T0 *)C,a1);
  819. R=(T0 *)n;}}
  820. /*FI*/return R;
  821. }
  822. void rT163print_as_target(T163 *C){
  823. rT163bracketed_print(C);
  824. rT259put_character((T259*)oRBC27fmt,'\56');
  825. }
  826. T0 * rT163start_position(T163 *C){
  827. T0 * R=NULL;
  828. R=((T64*)(C)->_feature_name)->_start_position;
  829. return R;
  830. }
  831. void rT163pretty_print(T163 *C){
  832. rT64pretty_print2((T64*)(C)->_feature_name);
  833. rT259put_character((T259*)oRBC27fmt,'\40');
  834. /*IF*/if ((XrT66precedence((C)->_target))<(11)) {
  835. rT259put_character((T259*)oRBC27fmt,'\50');
  836. XrT66pretty_print((C)->_target);
  837. rT259put_character((T259*)oRBC27fmt,'\51');
  838. }
  839. else {
  840. XrT66pretty_print((C)->_target);
  841. }
  842. /*FI*/}
  843. void rT163copy(T163 *C,T0 * a1){
  844. /*IF*//*AF*//*AE*/
  845. memcpy(C,a1,s[C->id]);
  846. /*FI*/}
  847. void rT163make_call0(T163 *C,T0 * a1,T0 * a2){
  848. C->_target=a1;
  849. C->_feature_name=a2;
  850. }
  851. void rT163make(T163 *C,T0 * a1,T0 * a2){
  852. {T64 *n=((T64*)new(64));
  853. rT64make(n,/*(IRF4*/(T0 *)ms84/*)*/,a1);
  854. C->_feature_name=(T0 *)n;}
  855. rT163make_call0(C,a2,(C)->_feature_name);
  856. }
  857. void rT164bracketed_print(T164 *C){
  858. rT259put_character((T259*)oRBC27fmt,'\50');
  859. rT164pretty_print(C);
  860. rT259put_character((T259*)oRBC27fmt,'\51');
  861. }
  862. T0 * rT164add_comment(T164 *C,T0 * a1){
  863. T0 * R=NULL;
  864. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  865. R=(T0 *)C;
  866. }
  867. else {
  868. {T218 *n=((T218*)new(218));
  869. rT218make(n,(T0 *)C,a1);
  870. R=(T0 *)n;}}
  871. /*FI*/return R;
  872. }
  873. void rT164print_as_target(T164 *C){
  874. rT164bracketed_print(C);
  875. rT259put_character((T259*)oRBC27fmt,'\56');
  876. }
  877. T0 * rT164start_position(T164 *C){
  878. T0 * R=NULL;
  879. R=((T64*)(C)->_feature_name)->_start_position;
  880. return R;
  881. }
  882. void rT164pretty_print(T164 *C){
  883. rT64pretty_print2((T64*)(C)->_feature_name);
  884. rT259put_character((T259*)oRBC27fmt,'\40');
  885. /*IF*/if ((XrT66precedence((C)->_target))<(11)) {
  886. rT259put_character((T259*)oRBC27fmt,'\50');
  887. XrT66pretty_print((C)->_target);
  888. rT259put_character((T259*)oRBC27fmt,'\51');
  889. }
  890. else {
  891. XrT66pretty_print((C)->_target);
  892. }
  893. /*FI*/}
  894. void rT164copy(T164 *C,T0 * a1){
  895. /*IF*//*AF*//*AE*/
  896. memcpy(C,a1,s[C->id]);
  897. /*FI*/}
  898. void rT164make_call0(T164 *C,T0 * a1,T0 * a2){
  899. C->_target=a1;
  900. C->_feature_name=a2;
  901. }
  902. void rT164make(T164 *C,T0 * a1,T0 * a2){
  903. {T64 *n=((T64*)new(64));
  904. rT64make(n,/*(IRF4*/(T0 *)ms85/*)*/,a1);
  905. C->_feature_name=(T0 *)n;}
  906. rT164make_call0(C,a2,(C)->_feature_name);
  907. }
  908. void rT165bracketed_print(T165 *C){
  909. rT259put_character((T259*)oRBC27fmt,'\50');
  910. rT165pretty_print(C);
  911. rT259put_character((T259*)oRBC27fmt,'\51');
  912. }
  913. T0 * rT165add_comment(T165 *C,T0 * a1){
  914. T0 * R=NULL;
  915. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  916. R=(T0 *)C;
  917. }
  918. else {
  919. {T218 *n=((T218*)new(218));
  920. rT218make(n,(T0 *)C,a1);
  921. R=(T0 *)n;}}
  922. /*FI*/return R;
  923. }
  924. void rT165print_as_target(T165 *C){
  925. rT165bracketed_print(C);
  926. rT259put_character((T259*)oRBC27fmt,'\56');
  927. }
  928. T0 * rT165start_position(T165 *C){
  929. T0 * R=NULL;
  930. R=((T64*)(C)->_feature_name)->_start_position;
  931. return R;
  932. }
  933. void rT165pretty_print(T165 *C){
  934. rT64pretty_print2((T64*)(C)->_feature_name);
  935. rT259put_character((T259*)oRBC27fmt,'\40');
  936. /*IF*/if ((XrT66precedence((C)->_target))<(11)) {
  937. rT259put_character((T259*)oRBC27fmt,'\50');
  938. XrT66pretty_print((C)->_target);
  939. rT259put_character((T259*)oRBC27fmt,'\51');
  940. }
  941. else {
  942. XrT66pretty_print((C)->_target);
  943. }
  944. /*FI*/}
  945. T0* rT165operator(T165 *C){
  946. T0* R=NULL;
  947. R=((T64*)(C)->_feature_name)->_to_string;
  948. return R;
  949. }
  950. void rT165copy(T165 *C,T0 * a1){
  951. /*IF*//*AF*//*AE*/
  952. memcpy(C,a1,s[C->id]);
  953. /*FI*/}
  954. void rT165make_prefix(T165 *C,T0 * a1,T0 * a2){
  955. {T64 *n=((T64*)new(64));
  956. rT64make(n,rT165operator(C),a1);
  957. C->_feature_name=(T0 *)n;}
  958. rT165make_call0(C,a2,(C)->_feature_name);
  959. }
  960. void rT165make_call0(T165 *C,T0 * a1,T0 * a2){
  961. C->_target=a1;
  962. C->_feature_name=a2;
  963. }
  964. void rT165make(T165 *C,T0 * a1,T0 * a2){
  965. rT165make_call0(C,a1,a2);
  966. }
  967. void rT86bracketed_print(T86 *C){
  968. rT259put_character((T259*)oRBC27fmt,'\50');
  969. rT86pretty_print(C);
  970. rT259put_character((T259*)oRBC27fmt,'\51');
  971. }
  972. T0 * rT86add_comment(T86 *C,T0 * a1){
  973. T0 * R=NULL;
  974. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  975. R=(T0 *)C;
  976. }
  977. else {
  978. {T218 *n=((T218*)new(218));
  979. rT218make(n,(T0 *)C,a1);
  980. R=(T0 *)n;}}
  981. /*FI*/return R;
  982. }
  983. void rT86print_as_target(T86 *C){
  984. rT86pretty_print(C);
  985. rT259put_character((T259*)oRBC27fmt,'\56');
  986. }
  987. void rT86pretty_print(T86 *C){
  988. rT259put_string((T259*)oRBC27fmt,(C)->_to_string);
  989. }
  990. T0* rT86to_key(T86 *C){
  991. T0* R=NULL;
  992. R=(C)->_to_string;
  993. return R;
  994. }
  995. void rT86copy(T86 *C,T0 * a1){
  996. /*IF*//*AF*//*AE*/
  997. memcpy(C,a1,s[C->id]);
  998. /*FI*/}
  999. void rT86make(T86 *C,T0 * a1,T0* a2,int a3){
  1000. C->_start_position=a1;
  1001. C->_to_string=a2;
  1002. C->_rank=a3;
  1003. }
  1004. void rT68bracketed_print(T68 *C){
  1005. rT259put_character((T259*)oRBC27fmt,'\50');
  1006. rT68pretty_print(C);
  1007. rT259put_character((T259*)oRBC27fmt,'\51');
  1008. }
  1009. int rT68same_as(T68 *C,T0 * a1){
  1010. int R=0;
  1011. R=rT7is_equal((T7*)rT68to_key(C),XrT47to_key(a1));
  1012. return R;
  1013. }
  1014. T0 * rT68add_comment(T68 *C,T0 * a1){
  1015. T0 * R=NULL;
  1016. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  1017. R=(T0 *)C;
  1018. }
  1019. else {
  1020. {T218 *n=((T218*)new(218));
  1021. rT218make(n,(T0 *)C,a1);
  1022. R=(T0 *)n;}}
  1023. /*FI*/return R;
  1024. }
  1025. void rT68print_as_target(T68 *C){
  1026. rT259put_string((T259*)oRBC27fmt,(C)->_to_string);
  1027. rT259put_character((T259*)oRBC27fmt,'\56');
  1028. }
  1029. void rT68pretty_print2(T68 *C){
  1030. rT259put_string((T259*)oRBC27fmt,(C)->_to_string);
  1031. }
  1032. void rT68pretty_print(T68 *C){
  1033. rT259keyword((T259*)oRBC27fmt,(T0 *)ms495);
  1034. rT259put_character((T259*)oRBC27fmt,'\42');
  1035. rT259put_string((T259*)oRBC27fmt,(C)->_to_string);
  1036. rT259put_character((T259*)oRBC27fmt,'\42');
  1037. }
  1038. T0* rT68to_key(T68 *C){
  1039. T0* R=NULL;
  1040. R=(C)->_to_string;
  1041. return R;
  1042. }
  1043. void rT68copy(T68 *C,T0 * a1){
  1044. /*IF*//*AF*//*AE*/
  1045. memcpy(C,a1,s[C->id]);
  1046. /*FI*/}
  1047. void rT68make(T68 *C,T0* a1,T0 * a2){
  1048. C->_to_string=a1;
  1049. C->_start_position=a2;
  1050. }
  1051.