[BACK]Return to list.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/list.c between version 1.7 and 1.8

version 1.7, 2003/07/29 01:50:56 version 1.8, 2004/06/22 13:40:44
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/builtin/list.c,v 1.6 2003/01/20 17:44:51 saito Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/list.c,v 1.7 2003/07/29 01:50:56 ohara Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
   
 void Pcar(), Pcdr(), Pcons(), Pappend(), Preverse(), Plength();  void Pcar(), Pcdr(), Pcons(), Pappend(), Preverse(), Plength();
   void Plist();
 void Pnconc(), Preplcd(), Preplca();  void Pnconc(), Preplcd(), Preplca();
   
 struct ftab list_tab[] = {  struct ftab list_tab[] = {
Line 63  struct ftab list_tab[] = {
Line 64  struct ftab list_tab[] = {
         {"nconc",Pnconc,2},          {"nconc",Pnconc,2},
         {"replcd",Preplcd,2},          {"replcd",Preplcd,2},
         {"replca",Preplca,2},          {"replca",Preplca,2},
           {"list", Plist, -99999999},
         {0,0,0},          {0,0,0},
 };  };
   
Line 134  LIST *rp;
Line 136  LIST *rp;
         }          }
 }  }
   
 #if 0  
 void Plength(arg,rp)  void Plength(arg,rp)
 NODE arg;  NODE arg;
 Q *rp;  Q *rp;
 {  {
         NODE n;  
         int i;  
   
         asir_assert(ARG0(arg),O_LIST,"length");  
         n = BDY((LIST)ARG0(arg));  
         for ( i = 0; n; i++, n = NEXT(n) );  
         STOQ(i,*rp);  
 }  
 #endif  
   
 void Plength(arg,rp)  
 NODE arg;  
 Q *rp;  
 {  
     NODE n;      NODE n;
     int i;      int i;
   
Line 168  Q *rp;
Line 155  Q *rp;
         error("length : invalid argument"); break;          error("length : invalid argument"); break;
     }      }
     STOQ(i,*rp);      STOQ(i,*rp);
   }
   
   void Plist(NODE arg, LIST *rp)
   {
       MKLIST(*rp,arg);
 }  }
   
 void Pnconc(arg,rp)  void Pnconc(arg,rp)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>