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 / pretty8.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-02  |  27.9 KB  |  1,194 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 rT48set_invariant(T48 *C,T0 * a1,T0 * a2,T0* a3){
  11. /*IF*/if ((((int)a2))||(((int)a3))) {
  12. {T257 *n=((T257*)new(257));
  13. rT257make(n,a1,a2,a3);
  14. C->_invariant_assertion=(T0 *)n;}
  15. }
  16. /*FI*/}
  17. void rT48set_is_expanded(T48 *C){
  18. /*IF*/if ((C)->_is_deferred) {
  19. rT48error1(C);
  20. }
  21. /*FI*/C->_is_expanded=1;
  22. }
  23. void rT48set_is_deferred(T48 *C){
  24. /*IF*/if ((C)->_is_expanded) {
  25. rT48error1(C);
  26. }
  27. /*FI*/C->_is_deferred=1;
  28. }
  29. T0 * rT48class_with(/*C*/T0* a1){
  30. T0 * R=NULL;
  31. R=(/*UT*/(T50*)oRBC27small_eiffel,
  32. rT50get_class(a1));
  33. return R;
  34. }
  35. void rT48copy(T48 *C,T0 * a1){
  36. /*IF*//*AF*//*AE*/
  37. memcpy(C,a1,s[C->id]);
  38. /*FI*/}
  39. void rT48set_parent_list(T48 *C,T0 * a1,T0 * a2,T0* a3){
  40. {T129 *n=((T129*)new(129));
  41. rT129make(n,(T0 *)C,a1,a2,a3);
  42. C->_parent_list=(T0 *)n;}
  43. }
  44. int rT48has(T48 *C,T0 * a1){
  45. int R=0;
  46. /*IF*/if (rT59has((T59*)(C)->_feature_dictionary,XrT65to_key(a1))) {
  47. R=1;
  48. }
  49. else {
  50. R=rT48super_has(C,a1);
  51. }
  52. /*FI*/return R;
  53. }
  54. void rT48make(T48 *C,T0* a1){
  55. C->_path=a1;
  56. {T46 *n=((T46*)new(46));
  57. rT46make_unknown(n);
  58. C->_base_class_name=(T0 *)n;}
  59. {T59 *n=((T59*)new(59));
  60. rT59make(n);
  61. C->_feature_dictionary=(T0 *)n;}
  62. }
  63. void rT200bracketed_print(T200 *C){
  64. rT259put_character((T259*)oRBC27fmt,'\50');
  65. rT200pretty_print(C);
  66. rT259put_character((T259*)oRBC27fmt,'\51');
  67. }
  68. void rT200fatal_error(/*C*/T0* a1){
  69. rT43fatal_error((T43*)oRBC27eh,a1);
  70. }
  71. T0 * rT200arg1(T200 *C){
  72. T0 * R=NULL;
  73. R=rT168first((T168*)(C)->_arguments);
  74. return R;
  75. }
  76. T0 * rT200add_comment(T200 *C,T0 * a1){
  77. T0 * R=NULL;
  78. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  79. R=(T0 *)C;
  80. }
  81. else {
  82. {T218 *n=((T218*)new(218));
  83. rT218make(n,(T0 *)C,a1);
  84. R=(T0 *)n;}}
  85. /*FI*/return R;
  86. }
  87. void rT200print_as_target(T200 *C){
  88. rT200bracketed_print(C);
  89. rT259put_character((T259*)oRBC27fmt,'\56');
  90. }
  91. void rT200print_op(T200 *C){
  92. rT259put_character((T259*)oRBC27fmt,'\40');
  93. rT68pretty_print2((T68*)(C)->_feature_name);
  94. rT259put_character((T259*)oRBC27fmt,'\40');
  95. }
  96. T0 * rT200start_position(T200 *C){
  97. T0 * R=NULL;
  98. R=((T68*)(C)->_feature_name)->_start_position;
  99. return R;
  100. }
  101. void rT200pretty_print(T200 *C){
  102. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  103. XrT66pretty_print((C)->_target);
  104. rT200print_op(C);
  105. /*IF*/if ((XrT66precedence(rT200arg1(C)))==(13)) {
  106. XrT66pretty_print(rT200arg1(C));
  107. }
  108.  else if ((3)>=(XrT66precedence(rT200arg1(C)))) {
  109. XrT66bracketed_print(rT200arg1(C));
  110. }
  111. else {
  112. XrT66pretty_print(rT200arg1(C));
  113. }
  114. /*FI*/}
  115.  else if ((XrT66precedence((C)->_target))<(3)) {
  116. XrT66bracketed_print((C)->_target);
  117. rT200print_op(C);
  118. XrT66pretty_print(rT200arg1(C));
  119. }
  120. else {
  121. XrT66pretty_print((C)->_target);
  122. rT200print_op(C);
  123. XrT66pretty_print(rT200arg1(C));
  124. }
  125. /*FI*/}
  126. void rT200copy(T200 *C,T0 * a1){
  127. /*IF*//*AF*//*AE*/
  128. memcpy(C,a1,s[C->id]);
  129. /*FI*/}
  130. void rT200make_call_1(T200 *C,T0 * a1,T0 * a2,T0 * a3){
  131. C->_target=a1;
  132. C->_feature_name=a2;
  133. C->_arguments=a3;
  134. }
  135. void rT200make(T200 *C,T0 * a1,T0 * a2,T0 * a3){
  136. T0 * _eal=NULL;
  137. /*IF*/if ((!(a1))||(!(a3))) {
  138. /*UT*/(T43*)oRBC27eh;
  139. rT43add_position(a2);
  140. rT200fatal_error((T0 *)ms303);
  141. }
  142. /*FI*/{T68 *n=((T68*)new(68));
  143. rT68make(n,/*(IRF4*/(T0 *)ms100/*)*/,a2);
  144. C->_feature_name=(T0 *)n;}
  145. {T168 *n=((T168*)new(168));
  146. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  147. /*)*/_eal=(T0 *)n;}
  148. rT200make_call_1(C,a1,(C)->_feature_name,_eal);
  149. }
  150. void rT199bracketed_print(T199 *C){
  151. rT259put_character((T259*)oRBC27fmt,'\50');
  152. rT199pretty_print(C);
  153. rT259put_character((T259*)oRBC27fmt,'\51');
  154. }
  155. void rT199fatal_error(/*C*/T0* a1){
  156. rT43fatal_error((T43*)oRBC27eh,a1);
  157. }
  158. T0 * rT199arg1(T199 *C){
  159. T0 * R=NULL;
  160. R=rT168first((T168*)(C)->_arguments);
  161. return R;
  162. }
  163. T0 * rT199add_comment(T199 *C,T0 * a1){
  164. T0 * R=NULL;
  165. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  166. R=(T0 *)C;
  167. }
  168. else {
  169. {T218 *n=((T218*)new(218));
  170. rT218make(n,(T0 *)C,a1);
  171. R=(T0 *)n;}}
  172. /*FI*/return R;
  173. }
  174. void rT199print_as_target(T199 *C){
  175. rT199bracketed_print(C);
  176. rT259put_character((T259*)oRBC27fmt,'\56');
  177. }
  178. void rT199print_op(T199 *C){
  179. rT259put_character((T259*)oRBC27fmt,'\40');
  180. rT68pretty_print2((T68*)(C)->_feature_name);
  181. rT259put_character((T259*)oRBC27fmt,'\40');
  182. }
  183. T0 * rT199start_position(T199 *C){
  184. T0 * R=NULL;
  185. R=((T68*)(C)->_feature_name)->_start_position;
  186. return R;
  187. }
  188. void rT199pretty_print(T199 *C){
  189. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  190. XrT66pretty_print((C)->_target);
  191. rT199print_op(C);
  192. /*IF*/if ((XrT66precedence(rT199arg1(C)))==(13)) {
  193. XrT66pretty_print(rT199arg1(C));
  194. }
  195.  else if ((4)>=(XrT66precedence(rT199arg1(C)))) {
  196. XrT66bracketed_print(rT199arg1(C));
  197. }
  198. else {
  199. XrT66pretty_print(rT199arg1(C));
  200. }
  201. /*FI*/}
  202.  else if ((XrT66precedence((C)->_target))<(4)) {
  203. XrT66bracketed_print((C)->_target);
  204. rT199print_op(C);
  205. XrT66pretty_print(rT199arg1(C));
  206. }
  207. else {
  208. XrT66pretty_print((C)->_target);
  209. rT199print_op(C);
  210. XrT66pretty_print(rT199arg1(C));
  211. }
  212. /*FI*/}
  213. void rT199copy(T199 *C,T0 * a1){
  214. /*IF*//*AF*//*AE*/
  215. memcpy(C,a1,s[C->id]);
  216. /*FI*/}
  217. void rT199make_call_1(T199 *C,T0 * a1,T0 * a2,T0 * a3){
  218. C->_target=a1;
  219. C->_feature_name=a2;
  220. C->_arguments=a3;
  221. }
  222. void rT199make(T199 *C,T0 * a1,T0 * a2,T0 * a3){
  223. T0 * _eal=NULL;
  224. /*IF*/if ((!(a1))||(!(a3))) {
  225. /*UT*/(T43*)oRBC27eh;
  226. rT43add_position(a2);
  227. rT199fatal_error((T0 *)ms303);
  228. }
  229. /*FI*/{T68 *n=((T68*)new(68));
  230. rT68make(n,/*(IRF4*/(T0 *)ms99/*)*/,a2);
  231. C->_feature_name=(T0 *)n;}
  232. {T168 *n=((T168*)new(168));
  233. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  234. /*)*/_eal=(T0 *)n;}
  235. rT199make_call_1(C,a1,(C)->_feature_name,_eal);
  236. }
  237. void rT198bracketed_print(T198 *C){
  238. rT259put_character((T259*)oRBC27fmt,'\50');
  239. rT198pretty_print(C);
  240. rT259put_character((T259*)oRBC27fmt,'\51');
  241. }
  242. void rT198fatal_error(/*C*/T0* a1){
  243. rT43fatal_error((T43*)oRBC27eh,a1);
  244. }
  245. T0 * rT198arg1(T198 *C){
  246. T0 * R=NULL;
  247. R=rT168first((T168*)(C)->_arguments);
  248. return R;
  249. }
  250. T0 * rT198add_comment(T198 *C,T0 * a1){
  251. T0 * R=NULL;
  252. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  253. R=(T0 *)C;
  254. }
  255. else {
  256. {T218 *n=((T218*)new(218));
  257. rT218make(n,(T0 *)C,a1);
  258. R=(T0 *)n;}}
  259. /*FI*/return R;
  260. }
  261. void rT198print_as_target(T198 *C){
  262. rT198bracketed_print(C);
  263. rT259put_character((T259*)oRBC27fmt,'\56');
  264. }
  265. void rT198print_op(T198 *C){
  266. rT259put_character((T259*)oRBC27fmt,'\40');
  267. rT68pretty_print2((T68*)(C)->_feature_name);
  268. rT259put_character((T259*)oRBC27fmt,'\40');
  269. }
  270. T0 * rT198start_position(T198 *C){
  271. T0 * R=NULL;
  272. R=((T68*)(C)->_feature_name)->_start_position;
  273. return R;
  274. }
  275. void rT198pretty_print(T198 *C){
  276. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  277. XrT66pretty_print((C)->_target);
  278. rT198print_op(C);
  279. /*IF*/if ((XrT66precedence(rT198arg1(C)))==(13)) {
  280. XrT66pretty_print(rT198arg1(C));
  281. }
  282.  else if ((4)>=(XrT66precedence(rT198arg1(C)))) {
  283. XrT66bracketed_print(rT198arg1(C));
  284. }
  285. else {
  286. XrT66pretty_print(rT198arg1(C));
  287. }
  288. /*FI*/}
  289.  else if ((XrT66precedence((C)->_target))<(4)) {
  290. XrT66bracketed_print((C)->_target);
  291. rT198print_op(C);
  292. XrT66pretty_print(rT198arg1(C));
  293. }
  294. else {
  295. XrT66pretty_print((C)->_target);
  296. rT198print_op(C);
  297. XrT66pretty_print(rT198arg1(C));
  298. }
  299. /*FI*/}
  300. void rT198copy(T198 *C,T0 * a1){
  301. /*IF*//*AF*//*AE*/
  302. memcpy(C,a1,s[C->id]);
  303. /*FI*/}
  304. void rT198make_call_1(T198 *C,T0 * a1,T0 * a2,T0 * a3){
  305. C->_target=a1;
  306. C->_feature_name=a2;
  307. C->_arguments=a3;
  308. }
  309. void rT198make(T198 *C,T0 * a1,T0 * a2,T0 * a3){
  310. T0 * _eal=NULL;
  311. /*IF*/if ((!(a1))||(!(a3))) {
  312. /*UT*/(T43*)oRBC27eh;
  313. rT43add_position(a2);
  314. rT198fatal_error((T0 *)ms303);
  315. }
  316. /*FI*/{T68 *n=((T68*)new(68));
  317. rT68make(n,/*(IRF4*/(T0 *)ms104/*)*/,a2);
  318. C->_feature_name=(T0 *)n;}
  319. {T168 *n=((T168*)new(168));
  320. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  321. /*)*/_eal=(T0 *)n;}
  322. rT198make_call_1(C,a1,(C)->_feature_name,_eal);
  323. }
  324. void rT197bracketed_print(T197 *C){
  325. rT259put_character((T259*)oRBC27fmt,'\50');
  326. rT197pretty_print(C);
  327. rT259put_character((T259*)oRBC27fmt,'\51');
  328. }
  329. void rT197fatal_error(/*C*/T0* a1){
  330. rT43fatal_error((T43*)oRBC27eh,a1);
  331. }
  332. T0 * rT197arg1(T197 *C){
  333. T0 * R=NULL;
  334. R=rT168first((T168*)(C)->_arguments);
  335. return R;
  336. }
  337. T0 * rT197add_comment(T197 *C,T0 * a1){
  338. T0 * R=NULL;
  339. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  340. R=(T0 *)C;
  341. }
  342. else {
  343. {T218 *n=((T218*)new(218));
  344. rT218make(n,(T0 *)C,a1);
  345. R=(T0 *)n;}}
  346. /*FI*/return R;
  347. }
  348. void rT197print_as_target(T197 *C){
  349. rT197bracketed_print(C);
  350. rT259put_character((T259*)oRBC27fmt,'\56');
  351. }
  352. void rT197print_op(T197 *C){
  353. rT259put_character((T259*)oRBC27fmt,'\40');
  354. rT68pretty_print2((T68*)(C)->_feature_name);
  355. rT259put_character((T259*)oRBC27fmt,'\40');
  356. }
  357. T0 * rT197start_position(T197 *C){
  358. T0 * R=NULL;
  359. R=((T68*)(C)->_feature_name)->_start_position;
  360. return R;
  361. }
  362. void rT197pretty_print(T197 *C){
  363. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  364. XrT66pretty_print((C)->_target);
  365. rT197print_op(C);
  366. /*IF*/if ((XrT66precedence(rT197arg1(C)))==(13)) {
  367. XrT66pretty_print(rT197arg1(C));
  368. }
  369.  else if ((4)>=(XrT66precedence(rT197arg1(C)))) {
  370. XrT66bracketed_print(rT197arg1(C));
  371. }
  372. else {
  373. XrT66pretty_print(rT197arg1(C));
  374. }
  375. /*FI*/}
  376.  else if ((XrT66precedence((C)->_target))<(4)) {
  377. XrT66bracketed_print((C)->_target);
  378. rT197print_op(C);
  379. XrT66pretty_print(rT197arg1(C));
  380. }
  381. else {
  382. XrT66pretty_print((C)->_target);
  383. rT197print_op(C);
  384. XrT66pretty_print(rT197arg1(C));
  385. }
  386. /*FI*/}
  387. void rT197copy(T197 *C,T0 * a1){
  388. /*IF*//*AF*//*AE*/
  389. memcpy(C,a1,s[C->id]);
  390. /*FI*/}
  391. void rT197make_call_1(T197 *C,T0 * a1,T0 * a2,T0 * a3){
  392. C->_target=a1;
  393. C->_feature_name=a2;
  394. C->_arguments=a3;
  395. }
  396. void rT197make(T197 *C,T0 * a1,T0 * a2,T0 * a3){
  397. T0 * _eal=NULL;
  398. /*IF*/if ((!(a1))||(!(a3))) {
  399. /*UT*/(T43*)oRBC27eh;
  400. rT43add_position(a2);
  401. rT197fatal_error((T0 *)ms303);
  402. }
  403. /*FI*/{T68 *n=((T68*)new(68));
  404. rT68make(n,/*(IRF4*/(T0 *)ms106/*)*/,a2);
  405. C->_feature_name=(T0 *)n;}
  406. {T168 *n=((T168*)new(168));
  407. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  408. /*)*/_eal=(T0 *)n;}
  409. rT197make_call_1(C,a1,(C)->_feature_name,_eal);
  410. }
  411. void rT196bracketed_print(T196 *C){
  412. rT259put_character((T259*)oRBC27fmt,'\50');
  413. rT196pretty_print(C);
  414. rT259put_character((T259*)oRBC27fmt,'\51');
  415. }
  416. void rT196fatal_error(/*C*/T0* a1){
  417. rT43fatal_error((T43*)oRBC27eh,a1);
  418. }
  419. T0 * rT196arg1(T196 *C){
  420. T0 * R=NULL;
  421. R=rT168first((T168*)(C)->_arguments);
  422. return R;
  423. }
  424. T0 * rT196add_comment(T196 *C,T0 * a1){
  425. T0 * R=NULL;
  426. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  427. R=(T0 *)C;
  428. }
  429. else {
  430. {T218 *n=((T218*)new(218));
  431. rT218make(n,(T0 *)C,a1);
  432. R=(T0 *)n;}}
  433. /*FI*/return R;
  434. }
  435. void rT196print_as_target(T196 *C){
  436. rT196bracketed_print(C);
  437. rT259put_character((T259*)oRBC27fmt,'\56');
  438. }
  439. void rT196print_op(T196 *C){
  440. rT259put_character((T259*)oRBC27fmt,'\40');
  441. rT68pretty_print2((T68*)(C)->_feature_name);
  442. rT259put_character((T259*)oRBC27fmt,'\40');
  443. }
  444. T0 * rT196start_position(T196 *C){
  445. T0 * R=NULL;
  446. R=((T68*)(C)->_feature_name)->_start_position;
  447. return R;
  448. }
  449. void rT196pretty_print(T196 *C){
  450. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  451. XrT66pretty_print((C)->_target);
  452. rT196print_op(C);
  453. /*IF*/if ((XrT66precedence(rT196arg1(C)))==(13)) {
  454. XrT66pretty_print(rT196arg1(C));
  455. }
  456.  else if ((5)>=(XrT66precedence(rT196arg1(C)))) {
  457. XrT66bracketed_print(rT196arg1(C));
  458. }
  459. else {
  460. XrT66pretty_print(rT196arg1(C));
  461. }
  462. /*FI*/}
  463.  else if ((XrT66precedence((C)->_target))<(5)) {
  464. XrT66bracketed_print((C)->_target);
  465. rT196print_op(C);
  466. XrT66pretty_print(rT196arg1(C));
  467. }
  468. else {
  469. XrT66pretty_print((C)->_target);
  470. rT196print_op(C);
  471. XrT66pretty_print(rT196arg1(C));
  472. }
  473. /*FI*/}
  474. void rT196copy(T196 *C,T0 * a1){
  475. /*IF*//*AF*//*AE*/
  476. memcpy(C,a1,s[C->id]);
  477. /*FI*/}
  478. void rT196make_call_1(T196 *C,T0 * a1,T0 * a2,T0 * a3){
  479. C->_target=a1;
  480. C->_feature_name=a2;
  481. C->_arguments=a3;
  482. }
  483. void rT196make(T196 *C,T0 * a1,T0 * a2,T0 * a3){
  484. T0 * _eal=NULL;
  485. /*IF*/if ((!(a1))||(!(a3))) {
  486. /*UT*/(T43*)oRBC27eh;
  487. rT43add_position(a2);
  488. rT196fatal_error((T0 *)ms303);
  489. }
  490. /*FI*/{T68 *n=((T68*)new(68));
  491. rT68make(n,/*(IRF4*/(T0 *)ms101/*)*/,a2);
  492. C->_feature_name=(T0 *)n;}
  493. {T168 *n=((T168*)new(168));
  494. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  495. /*)*/_eal=(T0 *)n;}
  496. rT196make_call_1(C,a1,(C)->_feature_name,_eal);
  497. }
  498. void rT195bracketed_print(T195 *C){
  499. rT259put_character((T259*)oRBC27fmt,'\50');
  500. rT195pretty_print(C);
  501. rT259put_character((T259*)oRBC27fmt,'\51');
  502. }
  503. void rT195fatal_error(/*C*/T0* a1){
  504. rT43fatal_error((T43*)oRBC27eh,a1);
  505. }
  506. T0 * rT195arg1(T195 *C){
  507. T0 * R=NULL;
  508. R=rT168first((T168*)(C)->_arguments);
  509. return R;
  510. }
  511. T0 * rT195add_comment(T195 *C,T0 * a1){
  512. T0 * R=NULL;
  513. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  514. R=(T0 *)C;
  515. }
  516. else {
  517. {T218 *n=((T218*)new(218));
  518. rT218make(n,(T0 *)C,a1);
  519. R=(T0 *)n;}}
  520. /*FI*/return R;
  521. }
  522. void rT195print_as_target(T195 *C){
  523. rT195bracketed_print(C);
  524. rT259put_character((T259*)oRBC27fmt,'\56');
  525. }
  526. void rT195print_op(T195 *C){
  527. rT259put_character((T259*)oRBC27fmt,'\40');
  528. rT68pretty_print2((T68*)(C)->_feature_name);
  529. rT259put_character((T259*)oRBC27fmt,'\40');
  530. }
  531. T0 * rT195start_position(T195 *C){
  532. T0 * R=NULL;
  533. R=((T68*)(C)->_feature_name)->_start_position;
  534. return R;
  535. }
  536. void rT195pretty_print(T195 *C){
  537. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  538. XrT66pretty_print((C)->_target);
  539. rT195print_op(C);
  540. /*IF*/if ((XrT66precedence(rT195arg1(C)))==(13)) {
  541. XrT66pretty_print(rT195arg1(C));
  542. }
  543.  else if ((5)>=(XrT66precedence(rT195arg1(C)))) {
  544. XrT66bracketed_print(rT195arg1(C));
  545. }
  546. else {
  547. XrT66pretty_print(rT195arg1(C));
  548. }
  549. /*FI*/}
  550.  else if ((XrT66precedence((C)->_target))<(5)) {
  551. XrT66bracketed_print((C)->_target);
  552. rT195print_op(C);
  553. XrT66pretty_print(rT195arg1(C));
  554. }
  555. else {
  556. XrT66pretty_print((C)->_target);
  557. rT195print_op(C);
  558. XrT66pretty_print(rT195arg1(C));
  559. }
  560. /*FI*/}
  561. void rT195copy(T195 *C,T0 * a1){
  562. /*IF*//*AF*//*AE*/
  563. memcpy(C,a1,s[C->id]);
  564. /*FI*/}
  565. void rT195make_call_1(T195 *C,T0 * a1,T0 * a2,T0 * a3){
  566. C->_target=a1;
  567. C->_feature_name=a2;
  568. C->_arguments=a3;
  569. }
  570. void rT195make(T195 *C,T0 * a1,T0 * a2,T0 * a3){
  571. T0 * _eal=NULL;
  572. /*IF*/if ((!(a1))||(!(a3))) {
  573. /*UT*/(T43*)oRBC27eh;
  574. rT43add_position(a2);
  575. rT195fatal_error((T0 *)ms303);
  576. }
  577. /*FI*/{T68 *n=((T68*)new(68));
  578. rT68make(n,/*(IRF4*/(T0 *)ms103/*)*/,a2);
  579. C->_feature_name=(T0 *)n;}
  580. {T168 *n=((T168*)new(168));
  581. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  582. /*)*/_eal=(T0 *)n;}
  583. rT195make_call_1(C,a1,(C)->_feature_name,_eal);
  584. }
  585. void rT194bracketed_print(T194 *C){
  586. rT259put_character((T259*)oRBC27fmt,'\50');
  587. rT194pretty_print(C);
  588. rT259put_character((T259*)oRBC27fmt,'\51');
  589. }
  590. void rT194fatal_error(/*C*/T0* a1){
  591. rT43fatal_error((T43*)oRBC27eh,a1);
  592. }
  593. T0 * rT194arg1(T194 *C){
  594. T0 * R=NULL;
  595. R=rT168first((T168*)(C)->_arguments);
  596. return R;
  597. }
  598. T0 * rT194add_comment(T194 *C,T0 * a1){
  599. T0 * R=NULL;
  600. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  601. R=(T0 *)C;
  602. }
  603. else {
  604. {T218 *n=((T218*)new(218));
  605. rT218make(n,(T0 *)C,a1);
  606. R=(T0 *)n;}}
  607. /*FI*/return R;
  608. }
  609. void rT194print_as_target(T194 *C){
  610. rT194bracketed_print(C);
  611. rT259put_character((T259*)oRBC27fmt,'\56');
  612. }
  613. void rT194print_op(T194 *C){
  614. rT259put_character((T259*)oRBC27fmt,'\40');
  615. rT68pretty_print2((T68*)(C)->_feature_name);
  616. rT259put_character((T259*)oRBC27fmt,'\40');
  617. }
  618. T0 * rT194start_position(T194 *C){
  619. T0 * R=NULL;
  620. R=((T68*)(C)->_feature_name)->_start_position;
  621. return R;
  622. }
  623. void rT194pretty_print(T194 *C){
  624. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  625. XrT66pretty_print((C)->_target);
  626. rT194print_op(C);
  627. /*IF*/if ((XrT66precedence(rT194arg1(C)))==(13)) {
  628. XrT66pretty_print(rT194arg1(C));
  629. }
  630.  else if ((6)>=(XrT66precedence(rT194arg1(C)))) {
  631. XrT66bracketed_print(rT194arg1(C));
  632. }
  633. else {
  634. XrT66pretty_print(rT194arg1(C));
  635. }
  636. /*FI*/}
  637.  else if ((XrT66precedence((C)->_target))<(6)) {
  638. XrT66bracketed_print((C)->_target);
  639. rT194print_op(C);
  640. XrT66pretty_print(rT194arg1(C));
  641. }
  642. else {
  643. XrT66pretty_print((C)->_target);
  644. rT194print_op(C);
  645. XrT66pretty_print(rT194arg1(C));
  646. }
  647. /*FI*/}
  648. void rT194copy(T194 *C,T0 * a1){
  649. /*IF*//*AF*//*AE*/
  650. memcpy(C,a1,s[C->id]);
  651. /*FI*/}
  652. void rT194make_call_1(T194 *C,T0 * a1,T0 * a2,T0 * a3){
  653. C->_target=a1;
  654. C->_feature_name=a2;
  655. C->_arguments=a3;
  656. }
  657. void rT194make(T194 *C,T0 * a1,T0 * a2,T0 * a3){
  658. T0 * _eal=NULL;
  659. /*IF*/if ((!(a1))||(!(a3))) {
  660. /*UT*/(T43*)oRBC27eh;
  661. rT43add_position(a2);
  662. rT194fatal_error((T0 *)ms303);
  663. }
  664. /*FI*/{T68 *n=((T68*)new(68));
  665. rT68make(n,(T0 *)ms322,a2);
  666. C->_feature_name=(T0 *)n;}
  667. {T168 *n=((T168*)new(168));
  668. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  669. /*)*/_eal=(T0 *)n;}
  670. rT194make_call_1(C,a1,(C)->_feature_name,_eal);
  671. }
  672. void rT193bracketed_print(T193 *C){
  673. rT259put_character((T259*)oRBC27fmt,'\50');
  674. rT193pretty_print(C);
  675. rT259put_character((T259*)oRBC27fmt,'\51');
  676. }
  677. void rT193fatal_error(/*C*/T0* a1){
  678. rT43fatal_error((T43*)oRBC27eh,a1);
  679. }
  680. T0 * rT193arg1(T193 *C){
  681. T0 * R=NULL;
  682. R=rT168first((T168*)(C)->_arguments);
  683. return R;
  684. }
  685. T0 * rT193add_comment(T193 *C,T0 * a1){
  686. T0 * R=NULL;
  687. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  688. R=(T0 *)C;
  689. }
  690. else {
  691. {T218 *n=((T218*)new(218));
  692. rT218make(n,(T0 *)C,a1);
  693. R=(T0 *)n;}}
  694. /*FI*/return R;
  695. }
  696. void rT193print_as_target(T193 *C){
  697. rT193bracketed_print(C);
  698. rT259put_character((T259*)oRBC27fmt,'\56');
  699. }
  700. void rT193print_op(T193 *C){
  701. rT259put_character((T259*)oRBC27fmt,'\40');
  702. rT68pretty_print2((T68*)(C)->_feature_name);
  703. rT259put_character((T259*)oRBC27fmt,'\40');
  704. }
  705. T0 * rT193start_position(T193 *C){
  706. T0 * R=NULL;
  707. R=((T68*)(C)->_feature_name)->_start_position;
  708. return R;
  709. }
  710. void rT193pretty_print(T193 *C){
  711. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  712. XrT66pretty_print((C)->_target);
  713. rT193print_op(C);
  714. /*IF*/if ((XrT66precedence(rT193arg1(C)))==(13)) {
  715. XrT66pretty_print(rT193arg1(C));
  716. }
  717.  else if ((6)>=(XrT66precedence(rT193arg1(C)))) {
  718. XrT66bracketed_print(rT193arg1(C));
  719. }
  720. else {
  721. XrT66pretty_print(rT193arg1(C));
  722. }
  723. /*FI*/}
  724.  else if ((XrT66precedence((C)->_target))<(6)) {
  725. XrT66bracketed_print((C)->_target);
  726. rT193print_op(C);
  727. XrT66pretty_print(rT193arg1(C));
  728. }
  729. else {
  730. XrT66pretty_print((C)->_target);
  731. rT193print_op(C);
  732. XrT66pretty_print(rT193arg1(C));
  733. }
  734. /*FI*/}
  735. void rT193copy(T193 *C,T0 * a1){
  736. /*IF*//*AF*//*AE*/
  737. memcpy(C,a1,s[C->id]);
  738. /*FI*/}
  739. void rT193make_call_1(T193 *C,T0 * a1,T0 * a2,T0 * a3){
  740. C->_target=a1;
  741. C->_feature_name=a2;
  742. C->_arguments=a3;
  743. }
  744. void rT193make(T193 *C,T0 * a1,T0 * a2,T0 * a3){
  745. T0 * _eal=NULL;
  746. /*IF*/if ((!(a1))||(!(a3))) {
  747. /*UT*/(T43*)oRBC27eh;
  748. rT43add_position(a2);
  749. rT193fatal_error((T0 *)ms303);
  750. }
  751. /*FI*/{T68 *n=((T68*)new(68));
  752. rT68make(n,(T0 *)ms318,a2);
  753. C->_feature_name=(T0 *)n;}
  754. {T168 *n=((T168*)new(168));
  755. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  756. /*)*/_eal=(T0 *)n;}
  757. rT193make_call_1(C,a1,(C)->_feature_name,_eal);
  758. }
  759. void rT192bracketed_print(T192 *C){
  760. rT259put_character((T259*)oRBC27fmt,'\50');
  761. rT192pretty_print(C);
  762. rT259put_character((T259*)oRBC27fmt,'\51');
  763. }
  764. void rT192fatal_error(/*C*/T0* a1){
  765. rT43fatal_error((T43*)oRBC27eh,a1);
  766. }
  767. T0 * rT192arg1(T192 *C){
  768. T0 * R=NULL;
  769. R=rT168first((T168*)(C)->_arguments);
  770. return R;
  771. }
  772. T0 * rT192add_comment(T192 *C,T0 * a1){
  773. T0 * R=NULL;
  774. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  775. R=(T0 *)C;
  776. }
  777. else {
  778. {T218 *n=((T218*)new(218));
  779. rT218make(n,(T0 *)C,a1);
  780. R=(T0 *)n;}}
  781. /*FI*/return R;
  782. }
  783. void rT192print_as_target(T192 *C){
  784. rT192bracketed_print(C);
  785. rT259put_character((T259*)oRBC27fmt,'\56');
  786. }
  787. void rT192print_op(T192 *C){
  788. rT259put_character((T259*)oRBC27fmt,'\40');
  789. rT68pretty_print2((T68*)(C)->_feature_name);
  790. rT259put_character((T259*)oRBC27fmt,'\40');
  791. }
  792. T0 * rT192start_position(T192 *C){
  793. T0 * R=NULL;
  794. R=((T68*)(C)->_feature_name)->_start_position;
  795. return R;
  796. }
  797. void rT192pretty_print(T192 *C){
  798. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  799. XrT66pretty_print((C)->_target);
  800. rT192print_op(C);
  801. /*IF*/if ((XrT66precedence(rT192arg1(C)))==(13)) {
  802. XrT66pretty_print(rT192arg1(C));
  803. }
  804.  else if ((6)>=(XrT66precedence(rT192arg1(C)))) {
  805. XrT66bracketed_print(rT192arg1(C));
  806. }
  807. else {
  808. XrT66pretty_print(rT192arg1(C));
  809. }
  810. /*FI*/}
  811.  else if ((XrT66precedence((C)->_target))<(6)) {
  812. XrT66bracketed_print((C)->_target);
  813. rT192print_op(C);
  814. XrT66pretty_print(rT192arg1(C));
  815. }
  816. else {
  817. XrT66pretty_print((C)->_target);
  818. rT192print_op(C);
  819. XrT66pretty_print(rT192arg1(C));
  820. }
  821. /*FI*/}
  822. void rT192copy(T192 *C,T0 * a1){
  823. /*IF*//*AF*//*AE*/
  824. memcpy(C,a1,s[C->id]);
  825. /*FI*/}
  826. void rT192make_call_1(T192 *C,T0 * a1,T0 * a2,T0 * a3){
  827. C->_target=a1;
  828. C->_feature_name=a2;
  829. C->_arguments=a3;
  830. }
  831. void rT192make(T192 *C,T0 * a1,T0 * a2,T0 * a3){
  832. T0 * _eal=NULL;
  833. /*IF*/if ((!(a1))||(!(a3))) {
  834. /*UT*/(T43*)oRBC27eh;
  835. rT43add_position(a2);
  836. rT192fatal_error((T0 *)ms303);
  837. }
  838. /*FI*/{T68 *n=((T68*)new(68));
  839. rT68make(n,(T0 *)ms320,a2);
  840. C->_feature_name=(T0 *)n;}
  841. {T168 *n=((T168*)new(168));
  842. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  843. /*)*/_eal=(T0 *)n;}
  844. rT192make_call_1(C,a1,(C)->_feature_name,_eal);
  845. }
  846. void rT191bracketed_print(T191 *C){
  847. rT259put_character((T259*)oRBC27fmt,'\50');
  848. rT191pretty_print(C);
  849. rT259put_character((T259*)oRBC27fmt,'\51');
  850. }
  851. void rT191fatal_error(/*C*/T0* a1){
  852. rT43fatal_error((T43*)oRBC27eh,a1);
  853. }
  854. T0 * rT191arg1(T191 *C){
  855. T0 * R=NULL;
  856. R=rT168first((T168*)(C)->_arguments);
  857. return R;
  858. }
  859. T0 * rT191add_comment(T191 *C,T0 * a1){
  860. T0 * R=NULL;
  861. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  862. R=(T0 *)C;
  863. }
  864. else {
  865. {T218 *n=((T218*)new(218));
  866. rT218make(n,(T0 *)C,a1);
  867. R=(T0 *)n;}}
  868. /*FI*/return R;
  869. }
  870. void rT191print_as_target(T191 *C){
  871. rT191bracketed_print(C);
  872. rT259put_character((T259*)oRBC27fmt,'\56');
  873. }
  874. void rT191print_op(T191 *C){
  875. rT259put_character((T259*)oRBC27fmt,'\40');
  876. rT68pretty_print2((T68*)(C)->_feature_name);
  877. rT259put_character((T259*)oRBC27fmt,'\40');
  878. }
  879. T0 * rT191start_position(T191 *C){
  880. T0 * R=NULL;
  881. R=((T68*)(C)->_feature_name)->_start_position;
  882. return R;
  883. }
  884. void rT191pretty_print(T191 *C){
  885. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  886. XrT66pretty_print((C)->_target);
  887. rT191print_op(C);
  888. /*IF*/if ((XrT66precedence(rT191arg1(C)))==(13)) {
  889. XrT66pretty_print(rT191arg1(C));
  890. }
  891.  else if ((6)>=(XrT66precedence(rT191arg1(C)))) {
  892. XrT66bracketed_print(rT191arg1(C));
  893. }
  894. else {
  895. XrT66pretty_print(rT191arg1(C));
  896. }
  897. /*FI*/}
  898.  else if ((XrT66precedence((C)->_target))<(6)) {
  899. XrT66bracketed_print((C)->_target);
  900. rT191print_op(C);
  901. XrT66pretty_print(rT191arg1(C));
  902. }
  903. else {
  904. XrT66pretty_print((C)->_target);
  905. rT191print_op(C);
  906. XrT66pretty_print(rT191arg1(C));
  907. }
  908. /*FI*/}
  909. void rT191copy(T191 *C,T0 * a1){
  910. /*IF*//*AF*//*AE*/
  911. memcpy(C,a1,s[C->id]);
  912. /*FI*/}
  913. void rT191make_call_1(T191 *C,T0 * a1,T0 * a2,T0 * a3){
  914. C->_target=a1;
  915. C->_feature_name=a2;
  916. C->_arguments=a3;
  917. }
  918. void rT191make(T191 *C,T0 * a1,T0 * a2,T0 * a3){
  919. T0 * _eal=NULL;
  920. /*IF*/if ((!(a1))||(!(a3))) {
  921. /*UT*/(T43*)oRBC27eh;
  922. rT43add_position(a2);
  923. rT191fatal_error((T0 *)ms303);
  924. }
  925. /*FI*/{T68 *n=((T68*)new(68));
  926. rT68make(n,(T0 *)ms316,a2);
  927. C->_feature_name=(T0 *)n;}
  928. {T168 *n=((T168*)new(168));
  929. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  930. /*)*/_eal=(T0 *)n;}
  931. rT191make_call_1(C,a1,(C)->_feature_name,_eal);
  932. }
  933. void rT190bracketed_print(T190 *C){
  934. rT259put_character((T259*)oRBC27fmt,'\50');
  935. rT190pretty_print(C);
  936. rT259put_character((T259*)oRBC27fmt,'\51');
  937. }
  938. void rT190fatal_error(/*C*/T0* a1){
  939. rT43fatal_error((T43*)oRBC27eh,a1);
  940. }
  941. T0 * rT190arg1(T190 *C){
  942. T0 * R=NULL;
  943. R=rT168first((T168*)(C)->_arguments);
  944. return R;
  945. }
  946. T0 * rT190add_comment(T190 *C,T0 * a1){
  947. T0 * R=NULL;
  948. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  949. R=(T0 *)C;
  950. }
  951. else {
  952. {T218 *n=((T218*)new(218));
  953. rT218make(n,(T0 *)C,a1);
  954. R=(T0 *)n;}}
  955. /*FI*/return R;
  956. }
  957. void rT190print_as_target(T190 *C){
  958. rT190bracketed_print(C);
  959. rT259put_character((T259*)oRBC27fmt,'\56');
  960. }
  961. void rT190print_op(T190 *C){
  962. rT259put_character((T259*)oRBC27fmt,'\40');
  963. rT68pretty_print2((T68*)(C)->_feature_name);
  964. rT259put_character((T259*)oRBC27fmt,'\40');
  965. }
  966. T0 * rT190start_position(T190 *C){
  967. T0 * R=NULL;
  968. R=((T68*)(C)->_feature_name)->_start_position;
  969. return R;
  970. }
  971. void rT190pretty_print(T190 *C){
  972. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  973. XrT66pretty_print((C)->_target);
  974. rT190print_op(C);
  975. /*IF*/if ((XrT66precedence(rT190arg1(C)))==(13)) {
  976. XrT66pretty_print(rT190arg1(C));
  977. }
  978.  else if ((6)>=(XrT66precedence(rT190arg1(C)))) {
  979. XrT66bracketed_print(rT190arg1(C));
  980. }
  981. else {
  982. XrT66pretty_print(rT190arg1(C));
  983. }
  984. /*FI*/}
  985.  else if ((XrT66precedence((C)->_target))<(6)) {
  986. XrT66bracketed_print((C)->_target);
  987. rT190print_op(C);
  988. XrT66pretty_print(rT190arg1(C));
  989. }
  990. else {
  991. XrT66pretty_print((C)->_target);
  992. rT190print_op(C);
  993. XrT66pretty_print(rT190arg1(C));
  994. }
  995. /*FI*/}
  996. void rT190copy(T190 *C,T0 * a1){
  997. /*IF*//*AF*//*AE*/
  998. memcpy(C,a1,s[C->id]);
  999. /*FI*/}
  1000. void rT190make_call_1(T190 *C,T0 * a1,T0 * a2,T0 * a3){
  1001. C->_target=a1;
  1002. C->_feature_name=a2;
  1003. C->_arguments=a3;
  1004. }
  1005. void rT190make(T190 *C,T0 * a1,T0 * a2,T0 * a3){
  1006. T0 * _eal=NULL;
  1007. /*IF*/if ((!(a1))||(!(a3))) {
  1008. /*UT*/(T43*)oRBC27eh;
  1009. rT43add_position(a2);
  1010. rT190fatal_error((T0 *)ms303);
  1011. }
  1012. /*FI*/{T68 *n=((T68*)new(68));
  1013. rT68make(n,(T0 *)ms314,a2);
  1014. C->_feature_name=(T0 *)n;}
  1015. {T168 *n=((T168*)new(168));
  1016. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  1017. /*)*/_eal=(T0 *)n;}
  1018. rT190make_call_1(C,a1,(C)->_feature_name,_eal);
  1019. }
  1020. void rT189bracketed_print(T189 *C){
  1021. rT259put_character((T259*)oRBC27fmt,'\50');
  1022. rT189pretty_print(C);
  1023. rT259put_character((T259*)oRBC27fmt,'\51');
  1024. }
  1025. void rT189fatal_error(/*C*/T0* a1){
  1026. rT43fatal_error((T43*)oRBC27eh,a1);
  1027. }
  1028. T0 * rT189arg1(T189 *C){
  1029. T0 * R=NULL;
  1030. R=rT168first((T168*)(C)->_arguments);
  1031. return R;
  1032. }
  1033. T0 * rT189add_comment(T189 *C,T0 * a1){
  1034. T0 * R=NULL;
  1035. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  1036. R=(T0 *)C;
  1037. }
  1038. else {
  1039. {T218 *n=((T218*)new(218));
  1040. rT218make(n,(T0 *)C,a1);
  1041. R=(T0 *)n;}}
  1042. /*FI*/return R;
  1043. }
  1044. void rT189print_as_target(T189 *C){
  1045. rT189bracketed_print(C);
  1046. rT259put_character((T259*)oRBC27fmt,'\56');
  1047. }
  1048. void rT189print_op(T189 *C){
  1049. rT259put_character((T259*)oRBC27fmt,'\40');
  1050. rT68pretty_print2((T68*)(C)->_feature_name);
  1051. rT259put_character((T259*)oRBC27fmt,'\40');
  1052. }
  1053. T0 * rT189start_position(T189 *C){
  1054. T0 * R=NULL;
  1055. R=((T68*)(C)->_feature_name)->_start_position;
  1056. return R;
  1057. }
  1058. void rT189pretty_print(T189 *C){
  1059. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  1060. XrT66pretty_print((C)->_target);
  1061. rT189print_op(C);
  1062. /*IF*/if ((XrT66precedence(rT189arg1(C)))==(13)) {
  1063. XrT66pretty_print(rT189arg1(C));
  1064. }
  1065.  else if ((6)>=(XrT66precedence(rT189arg1(C)))) {
  1066. XrT66bracketed_print(rT189arg1(C));
  1067. }
  1068. else {
  1069. XrT66pretty_print(rT189arg1(C));
  1070. }
  1071. /*FI*/}
  1072.  else if ((XrT66precedence((C)->_target))<(6)) {
  1073. XrT66bracketed_print((C)->_target);
  1074. rT189print_op(C);
  1075. XrT66pretty_print(rT189arg1(C));
  1076. }
  1077. else {
  1078. XrT66pretty_print((C)->_target);
  1079. rT189print_op(C);
  1080. XrT66pretty_print(rT189arg1(C));
  1081. }
  1082. /*FI*/}
  1083. void rT189copy(T189 *C,T0 * a1){
  1084. /*IF*//*AF*//*AE*/
  1085. memcpy(C,a1,s[C->id]);
  1086. /*FI*/}
  1087. void rT189make_call_1(T189 *C,T0 * a1,T0 * a2,T0 * a3){
  1088. C->_target=a1;
  1089. C->_feature_name=a2;
  1090. C->_arguments=a3;
  1091. }
  1092. void rT189make(T189 *C,T0 * a1,T0 * a2,T0 * a3){
  1093. T0 * _eal=NULL;
  1094. /*IF*/if ((!(a1))||(!(a3))) {
  1095. /*UT*/(T43*)oRBC27eh;
  1096. rT43add_position(a2);
  1097. rT189fatal_error((T0 *)ms303);
  1098. }
  1099. /*FI*/{T68 *n=((T68*)new(68));
  1100. rT68make(n,(T0 *)ms312,a2);
  1101. C->_feature_name=(T0 *)n;}
  1102. {T168 *n=((T168*)new(168));
  1103. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  1104. /*)*/_eal=(T0 *)n;}
  1105. rT189make_call_1(C,a1,(C)->_feature_name,_eal);
  1106. }
  1107. void rT188bracketed_print(T188 *C){
  1108. rT259put_character((T259*)oRBC27fmt,'\50');
  1109. rT188pretty_print(C);
  1110. rT259put_character((T259*)oRBC27fmt,'\51');
  1111. }
  1112. void rT188fatal_error(/*C*/T0* a1){
  1113. rT43fatal_error((T43*)oRBC27eh,a1);
  1114. }
  1115. T0 * rT188arg1(T188 *C){
  1116. T0 * R=NULL;
  1117. R=rT168first((T168*)(C)->_arguments);
  1118. return R;
  1119. }
  1120. T0 * rT188add_comment(T188 *C,T0 * a1){
  1121. T0 * R=NULL;
  1122. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  1123. R=(T0 *)C;
  1124. }
  1125. else {
  1126. {T218 *n=((T218*)new(218));
  1127. rT218make(n,(T0 *)C,a1);
  1128. R=(T0 *)n;}}
  1129. /*FI*/return R;
  1130. }
  1131. void rT188print_as_target(T188 *C){
  1132. rT188bracketed_print(C);
  1133. rT259put_character((T259*)oRBC27fmt,'\56');
  1134. }
  1135. void rT188print_op(T188 *C){
  1136. rT259put_character((T259*)oRBC27fmt,'\40');
  1137. rT68pretty_print2((T68*)(C)->_feature_name);
  1138. rT259put_character((T259*)oRBC27fmt,'\40');
  1139. }
  1140. T0 * rT188start_position(T188 *C){
  1141. T0 * R=NULL;
  1142. R=((T68*)(C)->_feature_name)->_start_position;
  1143. return R;
  1144. }
  1145. void rT188pretty_print(T188 *C){
  1146. /*IF*/if ((XrT66precedence((C)->_target))==(13)) {
  1147. XrT66pretty_print((C)->_target);
  1148. rT188print_op(C);
  1149. /*IF*/if ((XrT66precedence(rT188arg1(C)))==(13)) {
  1150. XrT66pretty_print(rT188arg1(C));
  1151. }
  1152.  else if ((7)>=(XrT66precedence(rT188arg1(C)))) {
  1153. XrT66bracketed_print(rT188arg1(C));
  1154. }
  1155. else {
  1156. XrT66pretty_print(rT188arg1(C));
  1157. }
  1158. /*FI*/}
  1159.  else if ((XrT66precedence((C)->_target))<(7)) {
  1160. XrT66bracketed_print((C)->_target);
  1161. rT188print_op(C);
  1162. XrT66pretty_print(rT188arg1(C));
  1163. }
  1164. else {
  1165. XrT66pretty_print((C)->_target);
  1166. rT188print_op(C);
  1167. XrT66pretty_print(rT188arg1(C));
  1168. }
  1169. /*FI*/}
  1170. void rT188copy(T188 *C,T0 * a1){
  1171. /*IF*//*AF*//*AE*/
  1172. memcpy(C,a1,s[C->id]);
  1173. /*FI*/}
  1174. void rT188make_call_1(T188 *C,T0 * a1,T0 * a2,T0 * a3){
  1175. C->_target=a1;
  1176. C->_feature_name=a2;
  1177. C->_arguments=a3;
  1178. }
  1179. void rT188make(T188 *C,T0 * a1,T0 * a2,T0 * a3){
  1180. T0 * _eal=NULL;
  1181. /*IF*/if ((!(a1))||(!(a3))) {
  1182. /*UT*/(T43*)oRBC27eh;
  1183. rT43add_position(a2);
  1184. rT188fatal_error((T0 *)ms303);
  1185. }
  1186. /*FI*/{T68 *n=((T68*)new(68));
  1187. rT68make(n,/*(IRF4*/(T0 *)ms85/*)*/,a2);
  1188. C->_feature_name=(T0 *)n;}
  1189. {T168 *n=((T168*)new(168));
  1190. /*(IRF3*/((n)->_list)=(ma(79,0,1,a3));
  1191. /*)*/_eal=(T0 *)n;}
  1192. rT188make_call_1(C,a1,(C)->_feature_name,_eal);
  1193. }
  1194.