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

Diff of /gcl/o/typespec.c

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

revision 1.6 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.7 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 80  check_type_float(object *p) Line 80  check_type_float(object *p)
80                  *p = wrong_type_argument(sLfloat, *p);                  *p = wrong_type_argument(sLfloat, *p);
81  }  }
82    
83  void  /* static void */
84  check_type_or_integer_float(object *p)  /* check_type_or_integer_float(object *p) */
85  {  /* { */
86          enum type t;  /*      enum type t; */
87    
88          while ((t = type_of(*p)) != t_fixnum && t != t_bignum &&  /*      while ((t = type_of(*p)) != t_fixnum && t != t_bignum && */
89                 t != t_shortfloat && t != t_longfloat)  /*             t != t_shortfloat && t != t_longfloat) */
90                  *p = wrong_type_argument(TSor_integer_float, *p);  /*              *p = wrong_type_argument(TSor_integer_float, *p); */
91  }  /* } */
92    
93  void  void
94  check_type_or_rational_float(object *p)  check_type_or_rational_float(object *p)
# Line 111  check_type_number(object *p) Line 111  check_type_number(object *p)
111                  *p = wrong_type_argument(sLnumber, *p);                  *p = wrong_type_argument(sLnumber, *p);
112  }  }
113    
114  void  /* static void */
115  check_type_bit(object *p)  /* check_type_bit(object *p) */
116  {  /* { */
117          while (type_of(*p) != t_fixnum ||  /*      while (type_of(*p) != t_fixnum || */
118                 (fix((*p)) != 0 && fix((*p)) != 1))  /*             (fix((*p)) != 0 && fix((*p)) != 1)) */
119                  *p = wrong_type_argument(sLbit, *p);  /*              *p = wrong_type_argument(sLbit, *p); */
120  }  /* } */
121    
122  void  void
123  check_type_character(object *p)  check_type_character(object *p)
# Line 126  check_type_character(object *p) Line 126  check_type_character(object *p)
126                  *p = wrong_type_argument(sLcharacter, *p);                  *p = wrong_type_argument(sLcharacter, *p);
127  }  }
128    
129  void  /* static void */
130  check_type_string_char(object *p)  /* check_type_string_char(object *p) */
131  {  /* { */
132          while (type_of(*p) != t_character ||  /*      while (type_of(*p) != t_character || */
133                 char_font((*p)) != 0 ||  /*             char_font((*p)) != 0 || */
134                 char_bits((*p)) != 0)  /*             char_bits((*p)) != 0) */
135                  *p = wrong_type_argument(sLcharacter, *p);  /*              *p = wrong_type_argument(sLcharacter, *p); */
136  }  /* } */
137    
138  void  void
139  check_type_symbol(object *p)  check_type_symbol(object *p)
# Line 156  check_type_or_string_symbol(object *p) Line 156  check_type_or_string_symbol(object *p)
156                  *p = wrong_type_argument(TSor_string_symbol, *p);                  *p = wrong_type_argument(TSor_string_symbol, *p);
157  }  }
158    
159  void  /* static void */
160  check_type_or_symbol_string_package(object *p)  /* check_type_or_symbol_string_package(object *p) */
161  {  /* { */
162          while (type_of(*p) != t_symbol &&  /*      while (type_of(*p) != t_symbol && */
163                 type_of(*p) != t_string &&  /*             type_of(*p) != t_string && */
164                 type_of(*p) != t_package)  /*             type_of(*p) != t_package) */
165                  *p = wrong_type_argument(TSor_symbol_string_package,  /*              *p = wrong_type_argument(TSor_symbol_string_package, */
166                                             *p);  /*                                         *p); */
167  }  /* } */
168    
169  void  void
170  check_type_package(object *p)  check_type_package(object *p)
# Line 180  check_type_string(object *p) Line 180  check_type_string(object *p)
180                  *p = wrong_type_argument(sLstring, *p);                  *p = wrong_type_argument(sLstring, *p);
181  }  }
182    
183  void  /* static void */
184  check_type_bit_vector(object *p)  /* check_type_bit_vector(object *p) */
185  {  /* { */
186          while (type_of(*p) != t_bitvector)  /*      while (type_of(*p) != t_bitvector) */
187                  *p = wrong_type_argument(sLbit_vector, *p);  /*              *p = wrong_type_argument(sLbit_vector, *p); */
188  }  /* } */
189    
190  void  void
191  check_type_cons(object *p)  check_type_cons(object *p)
# Line 263  BEGIN: Line 263  BEGIN:
263          }          }
264  }  }
265    
266  void  /* static void */
267  check_type_vector(object *p)  /* check_type_vector(object *p) */
268  {  /* { */
269  BEGIN:  /* BEGIN: */
270          switch (type_of(*p)) {  /*      switch (type_of(*p)) { */
271          case t_vector:  /*      case t_vector: */
272          case t_string:  /*      case t_string: */
273          case t_bitvector:  /*      case t_bitvector: */
274                  return;  /*              return; */
275    
276          default:  /*      default: */
277                  *p = wrong_type_argument(sLvector, *p);  /*              *p = wrong_type_argument(sLvector, *p); */
278                  goto BEGIN;  /*              goto BEGIN; */
279          }  /*      } */
280  }  /* } */
281    
282  void  void
283  check_type(object x, int t)  check_type(object x, int t)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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