src/cons.h

Go to the documentation of this file.

/* -*- Mode: objc; c-basic-offset: 2; tab-width: 2 indent-tabs-mode: nil -*- */
/* vim: set filetype=objc ts=2 sw=2 expandtab: */
/*
 * Copyright (C) 2007 Neil Dantam
 *               2007 Jeff Seibert
 *
 * This program is free software: you can redistribute it and/or modify it
 * under the terms of the GNU General Public License, verson 3 ONLY, as
 * published by the Free Software Foundation.
 * 
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
 * more details.
 * 
 * You should have received a copy of the GNU General Public License along with
 * this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 */


#ifndef _CONS_H_
#define _CONS_H_

#include <objc/Object.h>

@interface Cons: Object {
  id first; 
  id rest;  
}

+(void) appendTo: (Cons**) pcons item: (id) o;

-(void) append: (id) o;

-(void) appendList: (Cons*) o;

-(id) first;

-(id) rest;

-(void) setFirst: (id) o;

-(void) setRest: (id) o;

-(id) car;
-(id) cdr;


-(id*) pcar;
-(id*) pcdr;

-(id*) pfirst;
-(id*) prest;

-(void) nilCars;


-(void) setCar: (id) o;
-(void) setCdr: (id) o;

-(BOOL) areMembersOf: (Class) c;

-(BOOL) areKindsOf: (Class) c;

-(id) stealCar;


-(id) stealCdr;

-(int) size;
@end

Cons *cons( id f, id r);

void push( Cons **c, id val);


#endif

---