60 |
void |
void |
61 |
Lsystem(void) |
Lsystem(void) |
62 |
{ |
{ |
63 |
char command[1024]; |
char command[32768]; |
64 |
int i; |
int i; |
65 |
|
|
66 |
check_arg(1); |
check_arg(1); |
67 |
check_type_string(&vs_base[0]); |
check_type_string(&vs_base[0]); |
68 |
if (vs_base[0]->st.st_fillp >= 1024) |
if (vs_base[0]->st.st_fillp >= 32768) |
69 |
FEerror("Too long command line: ~S.", 1, vs_base[0]); |
FEerror("Too long command line: ~S.", 1, vs_base[0]); |
70 |
for (i = 0; i < vs_base[0]->st.st_fillp; i++) |
for (i = 0; i < vs_base[0]->st.st_fillp; i++) |
71 |
command[i] = vs_base[0]->st.st_self[i]; |
command[i] = vs_base[0]->st.st_self[i]; |