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

Diff of /gcl/o/num_log.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:52 2003 UTC
# Line 235  int_bit_length(int i) Line 235  int_bit_length(int i)
235    
236    
237    
238  void  LFD(Llogior)(void)
 Llogior(void)  
239  {  {
240          object  x;          object  x;
241          int     narg, i;          int     narg, i;
# Line 257  Llogior(void) Line 256  Llogior(void)
256          vs_push(x);          vs_push(x);
257  }  }
258    
259  void  LFD(Llogxor)(void)
 Llogxor(void)  
260  {  {
261          object  x;          object  x;
262          int     narg, i;          int     narg, i;
# Line 278  Llogxor(void) Line 276  Llogxor(void)
276          vs_push(x);          vs_push(x);
277  }  }
278    
279  void  LFD(Llogand)(void)
 Llogand(void)  
280  {  {
281          object  x;          object  x;
282          int     narg, i;          int     narg, i;
# Line 299  Llogand(void) Line 296  Llogand(void)
296          vs_push(x);          vs_push(x);
297  }  }
298    
299  void  LFD(Llogeqv)(void)
 Llogeqv(void)  
300  {  {
301          object  x;          object  x;
302          int     narg, i;          int     narg, i;
# Line 320  Llogeqv(void) Line 316  Llogeqv(void)
316          vs_push(x);          vs_push(x);
317  }  }
318    
319  void  LFD(Lboole)(void)
 Lboole(void)  
320  {  {
321          object  x;          object  x;
322          object  o;          object  o;
# Line 362  Lboole(void) Line 357  Lboole(void)
357          vs_push(x);          vs_push(x);
358  }  }
359    
360  void  LFD(Llogbitp)(void)
 Llogbitp(void)  
361  {  {
362          object  x, p;          object  x, p;
363          int     i;          int     i;
# Line 403  Llogbitp(void) Line 397  Llogbitp(void)
397                  vs_push(Cnil);                  vs_push(Cnil);
398  }  }
399    
400  void  LFD(Lash)(void)
 Lash(void)  
401  {  {
402          object  r=Cnil, x, y;          object  r=Cnil, x, y;
403          int     w, sign_x;          int     w, sign_x;
# Line 453  BYE: Line 446  BYE:
446          vs_push(r);          vs_push(r);
447  }  }
448    
449  void  LFD(Llogcount)(void)
 Llogcount(void)  
450  {  {
451          object  x;          object  x;
452          int     i;          int     i;
# Line 467  Llogcount(void) Line 459  Llogcount(void)
459          vs_push(make_fixnum(i));          vs_push(make_fixnum(i));
460  }  }
461    
462  void  LFD(Linteger_length)(void)
 Linteger_length(void)  
463  {  {
464          object  x;          object  x;
465          int count=0, i;          int count=0, i;
# Line 532  Linteger_length(void) Line 523  Linteger_length(void)
523    
524        
525    
526  void  LFD(siLbit_array_op)(void)
 gcl_init_num_log(void)  
 {  
 /*      int siLbit_array_op(void); */  
   
         make_constant("BOOLE-CLR", make_fixnum(BOOLCLR));  
         make_constant("BOOLE-SET", make_fixnum(BOOLSET));  
         make_constant("BOOLE-1", make_fixnum(BOOL1));  
         make_constant("BOOLE-2", make_fixnum(BOOL2));  
         make_constant("BOOLE-C1", make_fixnum(BOOLC1));  
         make_constant("BOOLE-C2", make_fixnum(BOOLC2));  
         make_constant("BOOLE-AND", make_fixnum(BOOLAND));  
         make_constant("BOOLE-IOR", make_fixnum(BOOLIOR));  
         make_constant("BOOLE-XOR", make_fixnum(BOOLXOR));  
         make_constant("BOOLE-EQV", make_fixnum(BOOLEQV));  
         make_constant("BOOLE-NAND", make_fixnum(BOOLNAND));  
         make_constant("BOOLE-NOR", make_fixnum(BOOLNOR));  
         make_constant("BOOLE-ANDC1", make_fixnum(BOOLANDC1));  
         make_constant("BOOLE-ANDC2", make_fixnum(BOOLANDC2));  
         make_constant("BOOLE-ORC1", make_fixnum(BOOLORC1));  
         make_constant("BOOLE-ORC2", make_fixnum(BOOLORC2));  
   
         make_function("LOGIOR", Llogior);  
         make_function("LOGXOR", Llogxor);  
         make_function("LOGAND", Llogand);  
         make_function("LOGEQV", Llogeqv);  
         make_function("BOOLE", Lboole);  
         make_function("LOGBITP", Llogbitp);  
         make_function("ASH", Lash);  
         make_function("LOGCOUNT", Llogcount);  
         make_function("INTEGER-LENGTH", Linteger_length);  
   
         sLbit = make_ordinary("BIT");  
         make_si_function("BIT-ARRAY-OP", siLbit_array_op);  
 }  
   
 void  
 siLbit_array_op(void)  
527  {  {
528          int i, j, n, d;          int i, j, n, d;
529          object  o, x, y, r, r0=Cnil;          object  o, x, y, r, r0=Cnil;
# Line 795  siLbit_array_op(void) Line 749  siLbit_array_op(void)
749  ERROR:  ERROR:
750          FEerror("Illegal arguments for bit-array operation.", 0);          FEerror("Illegal arguments for bit-array operation.", 0);
751  }  }
752    
753    void
754    gcl_init_num_log(void)
755    {
756    /*      int siLbit_array_op(void); */
757    
758            make_constant("BOOLE-CLR", make_fixnum(BOOLCLR));
759            make_constant("BOOLE-SET", make_fixnum(BOOLSET));
760            make_constant("BOOLE-1", make_fixnum(BOOL1));
761            make_constant("BOOLE-2", make_fixnum(BOOL2));
762            make_constant("BOOLE-C1", make_fixnum(BOOLC1));
763            make_constant("BOOLE-C2", make_fixnum(BOOLC2));
764            make_constant("BOOLE-AND", make_fixnum(BOOLAND));
765            make_constant("BOOLE-IOR", make_fixnum(BOOLIOR));
766            make_constant("BOOLE-XOR", make_fixnum(BOOLXOR));
767            make_constant("BOOLE-EQV", make_fixnum(BOOLEQV));
768            make_constant("BOOLE-NAND", make_fixnum(BOOLNAND));
769            make_constant("BOOLE-NOR", make_fixnum(BOOLNOR));
770            make_constant("BOOLE-ANDC1", make_fixnum(BOOLANDC1));
771            make_constant("BOOLE-ANDC2", make_fixnum(BOOLANDC2));
772            make_constant("BOOLE-ORC1", make_fixnum(BOOLORC1));
773            make_constant("BOOLE-ORC2", make_fixnum(BOOLORC2));
774    
775            make_function("LOGIOR", Llogior);
776            make_function("LOGXOR", Llogxor);
777            make_function("LOGAND", Llogand);
778            make_function("LOGEQV", Llogeqv);
779            make_function("BOOLE", Lboole);
780            make_function("LOGBITP", Llogbitp);
781            make_function("ASH", Lash);
782            make_function("LOGCOUNT", Llogcount);
783            make_function("INTEGER-LENGTH", Linteger_length);
784    
785            sLbit = make_ordinary("BIT");
786            make_si_function("BIT-ARRAY-OP", siLbit_array_op);
787    }
788    

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