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 |