Miroirs/aocla
1
0
Fork 0
mirror of https://github.com/antirez/aocla synced 2025-01-13 20:01:40 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

def

Browse source
This commit is contained in:
antirez 2022-12-20 22:24:22 +01:00
parent 6e4870766c
commit dcf2fd3d9b
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
aocla.c
View file

@ -522,7 +522,7 @@ int checkStackType(aoclactx *ctx, size_t count, ...) {
va_start(ap, count); va_start(ap, count);
for (size_t i = 0; i < count; i++) { for (size_t i = 0; i < count; i++) {
int type = va_arg(ap,int); int type = va_arg(ap,int);
if (type != ctx->stack[ctx->stacklen-1-i]->type) { if (type != ctx->stack[ctx->stacklen-count+i]->type) {
setError(ctx,NULL,"Type mismatch"); setError(ctx,NULL,"Type mismatch");
return 1; return 1;
} }
@ -637,6 +637,18 @@ int procSortList(const char *fname, aoclactx *ctx) {
return 0; return 0;
} }
/* "def" let Aocla define new procedures, binding a list to a
* symbol in the procedure table. */
int procDef(const char *fname, aoclactx *ctx) {
NOTUSED(fname);
if (checkStackType(ctx,2,OBJ_TYPE_LIST,OBJ_TYPE_SYMBOL)) return 1;
obj *sym = stackPop(ctx);
obj *code = stackPop(ctx);
addProc(ctx,sym->str.ptr,NULL,code);
release(sym);
return 0;
}
void loadLibrary(aoclactx *ctx) { void loadLibrary(aoclactx *ctx) {
addProc(ctx,"+",procBasicMath,NULL); addProc(ctx,"+",procBasicMath,NULL);
addProc(ctx,"-",procBasicMath,NULL); addProc(ctx,"-",procBasicMath,NULL);
@ -649,6 +661,7 @@ void loadLibrary(aoclactx *ctx) {
addProc(ctx,"<",procCompare,NULL); addProc(ctx,"<",procCompare,NULL);
addProc(ctx,"!=",procCompare,NULL); addProc(ctx,"!=",procCompare,NULL);
addProc(ctx,"sort",procSortList,NULL); addProc(ctx,"sort",procSortList,NULL);
addProc(ctx,"def",procDef,NULL);
addProcString(ctx,"dup","[(x) $x $x]"); addProcString(ctx,"dup","[(x) $x $x]");
addProcString(ctx,"swap","[(x y) $y $x]"); addProcString(ctx,"swap","[(x y) $y $x]");
addProcString(ctx,"drop","[(_)]"); addProcString(ctx,"drop","[(_)]");