gacela_chip.c

   1
   2 #include "cmpinclude.h"
   3 #include "gacela_chip.h"
   4 void init__home_jsancho_proyectos_gacela_gacela_chip(){do_init((void *)VV);}
   5 #include "gacela_chipmunk.c"
   6 /*      function definition for CPINITCHIPMUNK  */
   7
   8 static void L1()
   9 {       object *old_base=vs_base;
  10         gacela_cpInitChipmunk();
  11         vs_top=(vs_base=old_base)+1;
  12         vs_base[0]=Cnil;
  13 }
  14 /*      function definition for CPRESETSHAPEIDCOUNTER   */
  15
  16 static void L2()
  17 {       object *old_base=vs_base;
  18         gacela_cpResetShapeIdCounter();
  19         vs_top=(vs_base=old_base)+1;
  20         vs_base[0]=Cnil;
  21 }
  22 /*      function definition for CPSPACENEW      */
  23
  24 static void L3()
  25 {       object *old_base=vs_base;
  26         int x;
  27         x=
  28         gacela_cpSpaceNew();
  29         vs_top=(vs_base=old_base)+1;
  30         vs_base[0]=CMPmake_fixnum(x);
  31 }
  32 /*      function definition for CPSPACEADDBODY  */
  33
  34 static void L4()
  35 {       object *old_base=vs_base;
  36         gacela_cpSpaceAddBody(
  37         object_to_int(vs_base[0]),
  38         object_to_int(vs_base[1]));
  39         vs_top=(vs_base=old_base)+1;
  40         vs_base[0]=Cnil;
  41 }
  42 /*      function definition for CPSPACEADDSHAPE */
  43
  44 static void L5()
  45 {       object *old_base=vs_base;
  46         gacela_cpSpaceAddShape(
  47         object_to_int(vs_base[0]),
  48         object_to_int(vs_base[1]));
  49         vs_top=(vs_base=old_base)+1;
  50         vs_base[0]=Cnil;
  51 }
  52 /*      function definition for CPSPACEFREE     */
  53
  54 static void L6()
  55 {       object *old_base=vs_base;
  56         gacela_cpSpaceFree(
  57         object_to_int(vs_base[0]));
  58         vs_top=(vs_base=old_base)+1;
  59         vs_base[0]=Cnil;
  60 }
  61 /*      function definition for CPBODYNEW       */
  62
  63 static void L7()
  64 {       object *old_base=vs_base;
  65         int x;
  66         x=
  67         gacela_cpBodyNew(
  68         object_to_float(vs_base[0]),
  69         object_to_float(vs_base[1]),
  70         object_to_float(vs_base[2]));
  71         vs_top=(vs_base=old_base)+1;
  72         vs_base[0]=CMPmake_fixnum(x);
  73 }
  74 /*      function definition for CPBODYFREE      */
  75
  76 static void L8()
  77 {       object *old_base=vs_base;
  78         gacela_cpBodyFree(
  79         object_to_int(vs_base[0]));
  80         vs_top=(vs_base=old_base)+1;
  81         vs_base[0]=Cnil;
  82 }
  83 /*      function definition for CPCIRCLESHAPENEW        */
  84
  85 static void L9()
  86 {       object *old_base=vs_base;
  87         int x;
  88         x=
  89         gacela_cpCircleShapeNew(
  90         object_to_int(vs_base[0]),
  91         object_to_float(vs_base[1]),
  92         object_to_float(vs_base[2]),
  93         object_to_float(vs_base[3]));
  94         vs_top=(vs_base=old_base)+1;
  95         vs_base[0]=CMPmake_fixnum(x);
  96 }
  97 /*      function definition for CPPOLYSHAPENEW  */
  98
  99 static void L10()
 100 {       object *old_base=vs_base;
 101         int x;
 102         x=
 103         gacela_cpPolyShapeNew(
 104         object_to_int(vs_base[0]),
 105         object_to_int(vs_base[1]),
 106         object_to_int(vs_base[2]),
 107         object_to_float(vs_base[3]),
 108         object_to_float(vs_base[4]));
 109         vs_top=(vs_base=old_base)+1;
 110         vs_base[0]=CMPmake_fixnum(x);
 111 }
 112 /*      function definition for CPSHAPEFREE     */
 113
 114 static void L11()
 115 {       object *old_base=vs_base;
 116         gacela_cpShapeFree(
 117         object_to_int(vs_base[0]));
 118         vs_top=(vs_base=old_base)+1;
 119         vs_base[0]=Cnil;
 120 }
 121 /*      function definition for SET-SPACE-PROPERTIES    */
 122
 123 static void L12()
 124 {       object *old_base=vs_base;
 125         set_space_properties(
 126         object_to_int(vs_base[0]),
 127         object_to_float(vs_base[1]),
 128         object_to_float(vs_base[2]));
 129         vs_top=(vs_base=old_base)+1;
 130         vs_base[0]=Cnil;
 131 }
 132 /*      function definition for MAKE-SPACE      */
 133
 134 static void L13()
 135 {register object *base=vs_base;
 136         register object *sup=base+VM1; VC1
 137         vs_check;
 138         {object V1;
 139         parse_key(vs_base,FALSE,FALSE,1,VV[3]);vs_top=sup;
 140         V1=(base[0]);
 141         base[2]= ((object)VV[0]);
 142         base[3]= (V1);
 143         vs_top=(vs_base=base+2)+2;
 144         siLmake_structure();
 145         return;
 146         }
 147 }
 148 /*      function definition for MAKE-BODY       */
 149
 150 static void L14()
 151 {register object *base=vs_base;
 152         register object *sup=base+VM2; VC2
 153         vs_check;
 154         {object V2;
 155         parse_key(vs_base,FALSE,FALSE,1,VV[3]);vs_top=sup;
 156         V2=(base[0]);
 157         base[2]= ((object)VV[1]);
 158         base[3]= (V2);
 159         vs_top=(vs_base=base+2)+2;
 160         siLmake_structure();
 161         return;
 162         }
 163 }
 164 /*      function definition for MAKE-SHAPE      */
 165
 166 static void L15()
 167 {register object *base=vs_base;
 168         register object *sup=base+VM3; VC3
 169         vs_check;
 170         {object V3;
 171         parse_key(vs_base,FALSE,FALSE,1,VV[3]);vs_top=sup;
 172         V3=(base[0]);
 173         base[2]= ((object)VV[2]);
 174         base[3]= (V3);
 175         vs_top=(vs_base=base+2)+2;
 176         siLmake_structure();
 177         return;
 178         }
 179 }
 180 /*      function definition for CREATE-SPACE    */
 181
 182 static void L16()
 183 {register object *base=vs_base;
 184         register object *sup=base+VM4; VC4
 185         vs_check;
 186         {object V4;
 187         parse_key(vs_base,FALSE,FALSE,1,VV[7]);vs_top=sup;
 188         V4=(base[0]);
 189         vs_base=vs_top;
 190         (void) (*Lnk8)();
 191         vs_top=sup;
 192         {object V5;
 193         register object V6;
 194         base[2]= ((object)VV[3]);
 195         vs_base=vs_top;
 196         (void) (*Lnk9)();
 197         vs_top=sup;
 198         base[3]= vs_base[0];
 199         vs_top=(vs_base=base+2)+2;
 200         (void) (*Lnk10)();
 201         vs_top=sup;
 202         V5= vs_base[0];
 203         V6= Cnil;
 204         base[2]= ((object)VV[0]);
 205         base[3]= (V5);
 206         vs_base=vs_top;
 207         Lgentemp();
 208         vs_top=sup;
 209         base[4]= vs_base[0];
 210         vs_top=(vs_base=base+2)+3;
 211         (void) (*Lnk11)();
 212         vs_top=sup;
 213         if(((V4))==Cnil){
 214         goto T15;}
 215         V6= (VFUN_NARGS=2,(*(LnkLI12))((V4),(V6)));
 216         goto T15;
 217 T15:;
 218         if(((V6))==Cnil){
 219         goto T19;}
 220         {object V7;
 221         V7= make_cons(STREF(object,(V5),0),(V6));
 222          vs_top=base+2;
 223          while(V7!=Cnil)
 224          {vs_push((V7)->c.c_car);V7=(V7)->c.c_cdr;}
 225         vs_base=base+2;}
 226         (void) (*Lnk13)();
 227         vs_top=sup;
 228         goto T19;
 229 T19:;
 230         base[2]= (V5);
 231         vs_top=(vs_base=base+2)+1;
 232         return;}
 233         }
 234 }
 235 /*      function definition for CREATE-BODY     */
 236
 237 static void L17()
 238 {register object *base=vs_base;
 239         register object *sup=base+VM5; VC5
 240         vs_check;
 241         {object V8;
 242         object V9;
 243         parse_key(vs_base,FALSE,FALSE,2,VV[14],VV[15]);vs_top=sup;
 244         if(base[2]==Cnil){
 245         V8= ((object)VV[4]);
 246         }else{
 247         V8=(base[0]);}
 248         if(base[3]==Cnil){
 249         V9= ((object)VV[5]);
 250         }else{
 251         V9=(base[1]);}
 252         vs_base=vs_top;
 253         (void) (*Lnk8)();
 254         vs_top=sup;
 255         {object V10;
 256         base[4]= ((object)VV[3]);
 257         base[6]= (V8);
 258         base[7]= (V9);
 259         base[8]= ((object)VV[6]);
 260         vs_top=(vs_base=base+6)+3;
 261         (void) (*Lnk16)();
 262         vs_top=sup;
 263         base[5]= vs_base[0];
 264         vs_top=(vs_base=base+4)+2;
 265         (void) (*Lnk17)();
 266         vs_top=sup;
 267         V10= vs_base[0];
 268         base[4]= ((object)VV[1]);
 269         base[5]= (V10);
 270         vs_base=vs_top;
 271         Lgentemp();
 272         vs_top=sup;
 273         base[6]= vs_base[0];
 274         vs_top=(vs_base=base+4)+3;
 275         (void) (*Lnk11)();
 276         vs_top=sup;
 277         base[4]= (V10);
 278         vs_top=(vs_base=base+4)+1;
 279         return;}
 280         }
 281 }
 282 static void LnkT17(){ call_or_link(((object)VV[17]),(void **)(void *)&Lnk17);} /* MAKE-BODY */
 283 static void LnkT16(){ call_or_link(((object)VV[16]),(void **)(void *)&Lnk16);} /* CPNEWBODY */
 284 static void LnkT13(){ call_or_link(((object)VV[13]),(void **)(void *)&Lnk13);} /* SET-SPACE-PROPERTIES */
 285 static object  LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[12]),(void **)(void *)&LnkLI12,first,ap);va_end(ap);return V1;} /* UNION */
 286 static void LnkT11(){ call_or_link(((object)VV[11]),(void **)(void *)&Lnk11);} /* SET-RESOURCE */
 287 static void LnkT10(){ call_or_link(((object)VV[10]),(void **)(void *)&Lnk10);} /* MAKE-SPACE */
 288 static void LnkT9(){ call_or_link(((object)VV[9]),(void **)(void *)&Lnk9);} /* CPSPACENEW */
 289 static void LnkT8(){ call_or_link(((object)VV[8]),(void **)(void *)&Lnk8);} /* INIT-CHIPMUNK */
 290
 291 #ifdef SYSTEM_SPECIAL_INIT
 292 SYSTEM_SPECIAL_INIT
 293 #endif
 294