Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (Win10) Added Ubuntu 22.04 to GH CI 904ad66 3 years ago 623 Commits
nujel / lib / collection / list.h
Raw
text/plain • 1.21 KB • 36 lines 
#ifndef NUJEL_LIB_COLLECTION_LIST
#define NUJEL_LIB_COLLECTION_LIST
#include "../nujel.h"
#include "../type/val.h"

int       lListLength (lVal *v);
lVal     *lList       (int length, ...);

/* Create and return a cell out of CAR and CDR */
static inline lVal *lCons(lVal *car, lVal *cdr){
	lVal *v = lValAlloc(ltPair);
	v->vList.car = car;
	v->vList.cdr = cdr;
	return v;
}

static inline lVal *lCar(lVal *v){
	return (v != NULL) && (v->type == ltPair) ? v->vList.car : NULL;
}

static inline lVal *lCdr(lVal *v){
	return (v != NULL) && (v->type == ltPair) ? v->vList.cdr : NULL;
}

static inline lVal *lCaar  (lVal *v){return lCar(lCar(v));}
static inline lVal *lCadr  (lVal *v){return lCar(lCdr(v));}
static inline lVal *lCdar  (lVal *v){return lCdr(lCar(v));}
static inline lVal *lCddr  (lVal *v){return lCdr(lCdr(v));}
static inline lVal *lCaadr (lVal *v){return lCar(lCar(lCdr(v)));}
static inline lVal *lCdadr (lVal *v){return lCdr(lCar(lCdr(v)));}
static inline lVal *lCadar (lVal *v){return lCar(lCdr(lCar(v)));}
static inline lVal *lCaddr (lVal *v){return lCar(lCdr(lCdr(v)));}
static inline lVal *lCdddr (lVal *v){return lCdr(lCdr(lCdr(v)));}
static inline lVal *lCadddr(lVal *v){return lCar(lCdr(lCdr(lCdr(v))));}

#endif