/[gcl]/gcl/o/structure.c
ViewVC logotype

Diff of /gcl/o/structure.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9.4.1.4.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.9.4.1.4.2 by camm, Thu Nov 6 16:16:53 2003 UTC
# Line 84  structure_ref(object x, object name, int Line 84  structure_ref(object x, object name, int
84    
85    
86  static void  static void
87  siLstructure_ref1(void)  FFN(siLstructure_ref1)(void)
88  {object x=vs_base[0];  {object x=vs_base[0];
89   int n=fix(vs_base[1]);   int n=fix(vs_base[1]);
90   object def;   object def;
# Line 138  structure_set(object x, object name, int Line 138  structure_set(object x, object name, int
138  }  }
139    
140  static void  static void
141  siLstructure_subtype_p(void)  FFN(siLstructure_subtype_p)(void)
142  {object x,y;  {object x,y;
143   check_arg(2);   check_arg(2);
144   x=vs_base[0];   x=vs_base[0];
# Line 177  structure_to_list(object x) Line 177  structure_to_list(object x)
177          return(vs_pop);          return(vs_pop);
178  }  }
179    
180  void  LFD(siLmake_structure)(void)
 siLmake_structure(void)  
181  {  {
182    object x,name,*base;    object x,name,*base;
183    struct s_data *def=NULL;    struct s_data *def=NULL;
# Line 236  siLmake_structure(void) Line 235  siLmake_structure(void)
235  }  }
236    
237  static void  static void
238  siLcopy_structure(void)  FFN(siLcopy_structure)(void)
239  {  {
240          object x, y;          object x, y;
241          struct s_data *def;          struct s_data *def;
# Line 255  siLcopy_structure(void) Line 254  siLcopy_structure(void)
254          END_NO_INTERRUPT;}          END_NO_INTERRUPT;}
255  }  }
256    
257  void  LFD(siLstructure_name)(void)
 siLstructure_name(void)  
258  {  {
259          check_arg(1);          check_arg(1);
260          check_type_structure(vs_base[0]);          check_type_structure(vs_base[0]);
261          vs_base[0] = S_DATA(vs_base[0]->str.str_def)->name;          vs_base[0] = S_DATA(vs_base[0]->str.str_def)->name;
262  }  }
263    
264  void  LFD(siLstructure_ref)(void)
 siLstructure_ref(void)  
265  {  {
266          check_arg(3);          check_arg(3);
267          vs_base[0]=structure_ref(vs_base[0],vs_base[1],fix(vs_base[2]));          vs_base[0]=structure_ref(vs_base[0],vs_base[1],fix(vs_base[2]));
268          vs_top=vs_base+1;          vs_top=vs_base+1;
269  }  }
270    
271  void  LFD(siLstructure_set)(void)
 siLstructure_set(void)  
272  {  {
273          check_arg(4);          check_arg(4);
274          structure_set(vs_base[0],vs_base[1],fix(vs_base[2]),vs_base[3]);          structure_set(vs_base[0],vs_base[1],fix(vs_base[2]),vs_base[3]);
275          vs_base = vs_top-1;          vs_base = vs_top-1;
276  }  }
277    
278  void  LFD(siLstructurep)(void)
 siLstructurep(void)  
279  {  {
280          check_arg(1);          check_arg(1);
281          if (type_of(vs_base[0]) == t_structure)          if (type_of(vs_base[0]) == t_structure)
# Line 289  siLstructurep(void) Line 284  siLstructurep(void)
284                  vs_base[0] = Cnil;                  vs_base[0] = Cnil;
285  }  }
286    
287  void  LFD(siLrplaca_nthcdr)(void)
 siLrplaca_nthcdr(void)  
288  {  {
289    
290  /*  /*
# Line 317  siLrplaca_nthcdr(void) Line 311  siLrplaca_nthcdr(void)
311          vs_base = vs_base + 2;          vs_base = vs_base + 2;
312  }  }
313    
314  void  LFD(siLlist_nth)(void)
 siLlist_nth(void)  
315  {  {
316    
317  /*  /*
# Line 347  siLlist_nth(void) Line 340  siLlist_nth(void)
340    
341    
342  static void  static void
343  siLmake_s_data_structure(void)  FFN(siLmake_s_data_structure)(void)
344  {object x,y,raw,*base;  {object x,y,raw,*base;
345   int i;   int i;
346   check_arg(5);   check_arg(5);
# Line 371  siLmake_s_data_structure(void) Line 364  siLmake_s_data_structure(void)
364  }  }
365    
366  static void  static void
367  siLstructure_def(void)  FFN(siLstructure_def)(void)
368  {check_arg(1);  {check_arg(1);
369   check_type_structure(vs_base[0]);   check_type_structure(vs_base[0]);
370    vs_base[0]=vs_base[0]->str.str_def;    vs_base[0]=vs_base[0]->str.str_def;
# Line 395  sizeof(short)  /* aet_ushort  unsigned s Line 388  sizeof(short)  /* aet_ushort  unsigned s
388    
389    
390  static void  static void
391  siLsize_of(void)  FFN(siLsize_of)(void)
392  { object x= vs_base[0];  { object x= vs_base[0];
393    int i;    int i;
394    i= aet_sizes[fix(fSget_aelttype(x))];    i= aet_sizes[fix(fSget_aelttype(x))];
# Line 403  siLsize_of(void) Line 396  siLsize_of(void)
396  }  }
397        
398  static void  static void
399  siLaet_type(void)  FFN(siLaet_type)(void)
400  {vs_base[0]=fSget_aelttype(vs_base[0]);}  {vs_base[0]=fSget_aelttype(vs_base[0]);}
401    
402    
# Line 412  siLaet_type(void) Line 405  siLaet_type(void)
405    
406    
407  static void  static void
408  siLalignment(void)  FFN(siLalignment)(void)
409  {struct {double x; int y; double z;  {struct {double x; int y; double z;
410           float x1; int y1; float z1;}           float x1; int y1; float z1;}
411   joe;   joe;
# Line 424  siLalignment(void) Line 417  siLalignment(void)
417     if (vs_base[0]==sLshort_float)     if (vs_base[0]==sLshort_float)
418       {vs_base[0]=make_fixnum((long)&(joe.z1)-(long)&(joe.y1)); return;}       {vs_base[0]=make_fixnum((long)&(joe.z1)-(long)&(joe.y1)); return;}
419     else     else
420       {siLsize_of();}       {FFN(siLsize_of)();}
421  }  }
422        
423    

Legend:
Removed from v.1.9.4.1.4.1  
changed lines
  Added in v.1.9.4.1.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26