| version 1.20, 2003/12/06 02:49:22 |
version 1.21, 2004/02/28 13:39:42 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.19 2003/12/05 13:51:31 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.20 2003/12/06 02:49:22 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
| Line 2119 struct object KstringToArgv(struct object ob) { |
|
| Line 2119 struct object KstringToArgv(struct object ob) { |
|
| rob = newObjectArray(wc); |
rob = newObjectArray(wc); |
| for (i=0; i<wc; i++) { |
for (i=0; i<wc; i++) { |
| putoa(rob,i,KpoString(argv[i])); |
putoa(rob,i,KpoString(argv[i])); |
| printf("%s\n",argv[i]); |
/* printf("%s\n",argv[i]); */ |
| } |
} |
| return(rob); |
return(rob); |
| } |
} |