|
|
@@ -1692,7 +1692,7 @@ typedef struct files_chain_t files_chain_t;
|
|
|
static files_chain_t*files_chain;
|
|
|
V _cleanup_pipe(int*pipe){close(pipe[0]);
|
|
|
close(pipe[1]);}
|
|
|
-static I _do_popen2(files_chain_t*link,const S command){I child_in[2];
|
|
|
+static I _do_popen2(files_chain_t*link,cS command){I child_in[2];
|
|
|
I child_out[2];
|
|
|
if(0!=pipe(child_in))return-1;
|
|
|
if(0!=pipe(child_out)){_cleanup_pipe(child_in);
|
|
|
@@ -1714,7 +1714,7 @@ static I _do_popen2(files_chain_t*link,const S command){I child_in[2];
|
|
|
close(child_out[1]);
|
|
|
link->files.in=fdopen(child_in[1],"w");
|
|
|
link->files.out=fdopen(child_out[0],"r");R 0;}
|
|
|
-files_t*popen2(const S command){files_chain_t*link=(files_chain_t*)malloc(SO(files_chain_t));
|
|
|
+files_t*popen2(cS command){files_chain_t*link=(files_chain_t*)malloc(SO(files_chain_t));
|
|
|
if(N==link)R N;
|
|
|
if(0>_do_popen2(link,command)){free(link);R N;}
|
|
|
link->next=files_chain;
|
|
|
@@ -2613,7 +2613,7 @@ cS HELP = "\\0\thelp on syntax\n"\
|
|
|
"\\\"\thelp on adverbs\n"\
|
|
|
"\\;\thelp on conjunctions\n"\
|
|
|
"\\-:\thelp on inverses\n";
|
|
|
-const S VSTR=VER " " __DATE__;
|
|
|
+cS VSTR=VER " " __DATE__;
|
|
|
I main(I argc,S*argv){GC_INIT();
|
|
|
GC_enable_incremental();
|
|
|
guards=ln();
|
