25 |
char command [250]; |
char command [250]; |
26 |
printf("Building symbol table for %s ..\n",kcl_self);fflush(stdout); |
printf("Building symbol table for %s ..\n",kcl_self);fflush(stdout); |
27 |
sprintf(tmpfile1,"rsym%d",getpid()); |
sprintf(tmpfile1,"rsym%d",getpid()); |
28 |
|
#ifndef STAND |
29 |
coerce_to_filename(symbol_value(sSAsystem_directoryA), |
coerce_to_filename(symbol_value(sSAsystem_directoryA), |
30 |
system_directory); |
system_directory); |
31 |
|
#endif |
32 |
#ifndef RSYM_COMMAND |
#ifndef RSYM_COMMAND |
33 |
sprintf(command,"%srsym %s %s",system_directory,kcl_self,tmpfile1); |
sprintf(command,"%srsym %s %s",system_directory,kcl_self,tmpfile1); |
34 |
#else |
#else |
35 |
RSYM_COMMAND(command,system_directory,kcl_self,tmpfile1); |
RSYM_COMMAND(command,system_directory,kcl_self,tmpfile1); |
36 |
#endif |
#endif |
37 |
if (system(command) != 0) |
if (system(command) != 0) |
38 |
|
#ifdef STAND |
39 |
|
FEerror("The rsym command %s failed .",1,command); |
40 |
|
#else |
41 |
FEerror("The rsym command ~a failed .",1, |
FEerror("The rsym command ~a failed .",1, |
42 |
make_simple_string(command)); |
make_simple_string(command)); |
43 |
|
#endif |
44 |
read_special_symbols(tmpfile1); |
read_special_symbols(tmpfile1); |
45 |
unlink(tmpfile1); |
unlink(tmpfile1); |
46 |
qsort((char*)(c_table.ptable),(int)(c_table.length),sizeof(struct node),node_compare); |
qsort((char*)(c_table.ptable),(int)(c_table.length),sizeof(struct node),node_compare); |