home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_c20.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  1.6 KB  |  57 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9. int r605is_any(T605* C){
  10. int R=0;
  11. R=(((T0*)ms1_473))==((void*)((((T451*)((T451*)((((T605*)C))->_base_class_name/*24*/))))->_to_string/*0*/));
  12. return R;
  13. }
  14. /*No:BASE_CLASS.heading_comment2*/
  15. int r605is_general(T605* C){
  16. int R=0;
  17. R=(((T0*)ms14_473))==((void*)((((T451*)((T451*)((((T605*)C))->_base_class_name/*24*/))))->_to_string/*0*/));
  18. return R;
  19. }
  20. /*No:BASE_CLASS.feature_dictionary*/
  21. void r605mapping_c_in(T605* C,T0* a1){
  22. r7extend(((T7*)a1),'B');
  23. r7extend(((T7*)a1),'C');
  24. r2append_in((((T605*)C))->_id/*0*/,a1);
  25. }
  26. T0* r605new_name_of_original(T605* C,T0* a1,T0* a2){
  27. T0* R=NULL;
  28. /*IF*/if ((C)==((void*)(a1))) {
  29. R=a2;
  30. }
  31.  else if (r605is_general(C)) {
  32. R=a2;
  33. }
  34. else {
  35. /*IF*/if (((((T605*)C))->_parent_list/*40*/)==((void*)(NULL))) {
  36. R=r605new_name_of(((T605*)(r605class_any())),a1,a2);
  37. }
  38. else {
  39. /*[IRF3.3clear*/((((T854*)(((T854*)(oBC605going_up_trace)))))->_upper)=(-(1));
  40. /*]*/
  41. R=r673going_up(((T673*)((((T605*)C))->_parent_list/*40*/)),oBC605going_up_trace,a1,a2);
  42. }
  43. /*FI*/}
  44. /*FI*/return R;
  45. }
  46. T0*oBC605visited=NULL;
  47. /*No:BASE_CLASS.base_class_name*/
  48. /*No:BASE_CLASS.is_expanded*/
  49. /*No:BASE_CLASS.creation_clause_list*/
  50. /*No:BASE_CLASS.us_any*/
  51. /*No:BASE_CLASS.us_general*/
  52. void r605warning(T0* a1,T0* a2){
  53. r683add_position(a1);
  54. r683warning(((T683*)(oBC364eh)),a2);
  55. }
  56.  
  57.