Parent Directory | Revision Log | Patch
revision 1.3 by masse, Mon Aug 4 14:32:27 2003 UTC | revision 1.4 by masse, Tue Aug 5 09:09:51 2003 UTC | |
---|---|---|
# | Line 1438 extern void sx_636c6f7365(environment *e | Line 1438 extern void sx_636c6f7365(environment *e |
1438 | ||
1439 | toss(env); | toss(env); |
1440 | } | } |
1441 | ||
1442 | extern void mangle(environment *env) | |
1443 | { | |
1444 | char *new_string; | |
1445 | ||
1446 | if(env->head->type==empty) { | |
1447 | printerr("Too Few Arguments"); | |
1448 | env->err= 1; | |
1449 | return; | |
1450 | } | |
1451 | ||
1452 | if(CAR(env->head)->type!=string) { | |
1453 | printerr("Bad Argument Type"); | |
1454 | env->err= 2; | |
1455 | return; | |
1456 | } | |
1457 | ||
1458 | new_string= mangle_str(CAR(env->head)->content.string); | |
1459 | ||
1460 | toss(env); | |
1461 | if(env->err) return; | |
1462 | ||
1463 | push_cstring(env, new_string); | |
1464 | } | |
1465 |
|
root@recompile.se | ViewVC Help |
Powered by ViewVC 1.1.26 |