| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | #if !constant(strerror)
#define strerror(X) X
#endif
|
| 41ee48 | 2000-02-28 | Fredrik Hübinette (Hubbe) | | #ifdef __NT__
void exece(string cmd, array(string) args)
{
exit(Process.create_process( ({ cmd }) + args )->wait());
}
#endif
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | string fixpath(string s)
{
string mnt=getenv("NTMOUNT");
if(mnt && strlen(mnt)) s=replace(s,mnt,"");
return replace(s,"/","\\");
}
string fixabspath(string s)
{
return replace(s,"/","\\");
}
|
| 41ee48 | 2000-02-28 | Fredrik Hübinette (Hubbe) | | string opt_path(string p1, string p2)
{
return ( ( ((p1||"") + ";" + (p2||"")) / ";" ) - ({""}) ) * ";";
}
|
| ef359c | 1998-03-21 | Fredrik Hübinette (Hubbe) | | int silent_do_cmd(string *cmd, mixed|void filter, int|void silent)
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | {
string ret="";
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | object(Stdio.File) f=Stdio.File();
switch(getenv("REMOTE_METHOD"))
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | {
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | default:
werror("Unknown REMOTE method %s\n",getenv("REMOTE_METHOD"));
break;
case "wine":
case "WINE":
#if 0
if(!silent && !filter)
{
return Process.create_process(({"wine",cmd*" "}))->wait();
}
else
#endif
{
object o=f->pipe(Stdio.PROP_BIDIRECTIONAL | Stdio.PROP_IPC);
|
| dd990d | 1998-12-31 | Fredrik Hübinette (Hubbe) | | cmd=({"wine",
"-winver","win95",
|
| 41ee48 | 2000-02-28 | Fredrik Hübinette (Hubbe) | | "-debugmsg","fixme-all",
|
| dd990d | 1998-12-31 | Fredrik Hübinette (Hubbe) | | "-debugmsg","trace+all",
"-debugmsg","+relay",
cmd*" "});
|
| 41ee48 | 2000-02-28 | Fredrik Hübinette (Hubbe) | | object proc=Process.create_process(cmd, (["stdout":o]) );
destruct(o);
while(1)
{
string s=f->read(8192,1);
if(!s || !strlen(s)) break;
s=replace(s,"\r\n","\n");
if(!silent) write(s);
ret+=s;
}
if(filter) filter(ret);
destruct(f);
return proc->wait();
}
case "cygwin":
case "CYGWIN":
{
mapping env=copy_value(getenv());
if(string tmp=getenv("REMOTE_VARIABLES"))
{
foreach(tmp/"\n",string var)
{
if(search(var,"=")!=-1 && sscanf(var,"%s=%s",string key, string val))
{
if(!env[key])
{
if(env[lower_case(key)])
key=lower_case(key);
else if(env[upper_case(key)])
key=upper_case(key);
else
{
foreach(indices(env), string x)
{
if(lower_case(x) == lower_case(key))
{
key=x;
break;
}
}
}
}
if(val[0]==';')
{
env[key]=opt_path(env[key], val);
}
else if(val[-1]==';')
{
env[key]=opt_path(val, env[key]);
}
else
{
env[key]=val;
}
}
}
}
string mnt=getenv("NTMOUNT");
#if 1
if(mnt && strlen(mnt)>1)
{
for(int e=1;e<sizeof(cmd);e++)
cmd[e]=replace(cmd[e],mnt,getenv("NTDRIVE"));
}
#endif
object o=f->pipe(Stdio.PROP_IPC);
object proc=Process.create_process(cmd,
(["stdout":o,"env":env]));
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | destruct(o);
while(1)
{
string s=f->read(8192,1);
if(!s || !strlen(s)) break;
s=replace(s,"\r\n","\n");
if(!silent) write(s);
ret+=s;
}
if(filter) filter(ret);
destruct(f);
return proc->wait();
}
case 0:
case "sprsh":
case "SPRSH":
|
| 7ce044 | 1999-08-24 | Fredrik Hübinette (Hubbe) | | if(string tmp=getenv("REMOTE_VARIABLES"))
{
array vars=({});
foreach(tmp/"\n",string var)
if(search(var,"=")!=-1)
vars+=({var});
cmd=vars+cmd;
}
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | string tmp=getcwd();
string mnt=getenv("NTMOUNT");
|
| 41ee48 | 2000-02-28 | Fredrik Hübinette (Hubbe) | | if(mnt && strlen(mnt))
tmp=replace(tmp,mnt,getenv("NTDRIVE"));
else
tmp=getenv("NTDRIVE")+tmp;
tmp=replace(tmp,"/","\\");
cmd=({ tmp })+cmd;
|
| fbb55b | 2000-02-02 | Fredrik Hübinette (Hubbe) | |
#if 1
if(mnt && strlen(mnt)>1)
{
for(int e=1;e<sizeof(cmd);e++)
cmd[e]=replace(cmd[e],mnt,getenv("NTDRIVE"));
}
#endif
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | if(!f->connect(getenv("NTHOST"),(int)getenv("NTPORT")))
{
werror("Failed to connect "+strerror(errno())+".\n");
exit(1);
|
| ac77cc | 2000-06-28 | Fredrik Hübinette (Hubbe) | | }
class SimpleInOut
{
object o=Stdio.File("stdin");
string read() {
string s=o->read(1000,1);
if(!strlen(s)) return 0;
return s;
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | }
|
| ac77cc | 2000-06-28 | Fredrik Hübinette (Hubbe) | | int write(string s)
{
return Stdio.stdout->write(s);
}
};
object inout;
#if __VERSION__ > 0.699999 && constant(thread_create)
class RLInOut
{
Thread.Mutex m=Thread.Mutex();
object rl=Stdio.Readline();
string prompt="";
string read()
{
string tmp=rl->read();
if(tmp)
{
tmp+="\n";
prompt="";
}
return tmp;
}
int write(string s)
{
s=prompt+s-"\r";
array lines=s/"\n";
rl->write(lines[..sizeof(s)-2]*"\n");
rl->set_prompt(prompt=lines[-1]);
return strlen(s);
}
void create()
{
rl->enable_history(512);
}
};
if(!silent && !!Stdio.stdin->tcgetattr())
{
inout=RLInOut();
}else
#endif
inout=SimpleInOut();
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | f->write(sprintf("%4c",sizeof(cmd)));
for(int e=0;e<sizeof(cmd);e++)
f->write(sprintf("%4c%s",strlen(cmd[e]),cmd[e]));
|
| fb2493 | 2000-01-27 | Fredrik Hübinette (Hubbe) | |
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | thread_create(lambda(object f)
{
|
| ac77cc | 2000-06-28 | Fredrik Hübinette (Hubbe) | | int killed;
void killme()
{
if(!killed)
{
werror("\r\n** Interupted\r\n");
f->write_oob("x");
killed=1;
}
};
if(f->write_oob)
|
| fb2493 | 2000-01-27 | Fredrik Hübinette (Hubbe) | | {
|
| ac77cc | 2000-06-28 | Fredrik Hübinette (Hubbe) | | signal(signum("SIGINT"), killme);
|
| fb2493 | 2000-01-27 | Fredrik Hübinette (Hubbe) | | }
|
| ac77cc | 2000-06-28 | Fredrik Hübinette (Hubbe) | |
while(string s=inout->read())
f->write(s);
signal(signum("SIGINT"), 0);
|
| fb2493 | 2000-01-27 | Fredrik Hübinette (Hubbe) | | f->close("w");
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | },f);
while(1)
{
|
| be2495 | 2000-06-28 | Henrik Grubbström (Grubba) | | string s = f->read(4);
if (!s) {
werror("Connection closed!\n");
exit(1);
}
sscanf(s,"%4c",int len);
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | if(!len) break;
s=f->read(len);
s=replace(s,"\r\n","\n");
|
| ac77cc | 2000-06-28 | Fredrik Hübinette (Hubbe) | | if(!silent) inout->write(s);
if(filter) ret+=s;
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | }
if(filter) filter(ret);
sscanf(f->read(4),"%4c",int code);
f->close("r");
|
| fb2493 | 2000-01-27 | Fredrik Hübinette (Hubbe) | |
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | destruct(f);
return code;
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | }
}
|
| ef359c | 1998-03-21 | Fredrik Hübinette (Hubbe) | | string tmp;
string popen_cmd(string *cmd)
{
tmp="";
silent_do_cmd(cmd,lambda(string x) { tmp=x; }, 1);
return tmp;
}
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | string getntenv(string var)
{
string s="";
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | switch(getenv("REMOTE_METHOD"))
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | {
|
| da5cd9 | 1998-11-05 | Fredrik Hübinette (Hubbe) | | default:
werror("Unknown REMOTE method %s\n",getenv("REMOTE_METHOD"));
break;
case "wine":
case "WINE":
return getenv(var) || getenv(lower_case(var));
case 0:
case "sprsh":
case "SPRSH":
return popen_cmd( ({"getenv",var}) );
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | }
}
int do_cmd(string *cmd, mixed|void filter)
{
werror("DOING "+cmd*" "+"\n");
return silent_do_cmd(cmd,filter);
}
string find_lib_location()
{
return __FILE__;
}
|
| c06406 | 1998-05-27 | Fredrik Hübinette (Hubbe) | |
string find_next_in_path(string argv0,string cmd)
{
argv0=combine_path(getcwd(),argv0);
if(file_stat(argv0))
{
foreach((getenv("PATH")||"")/":",string x)
{
string fname=combine_path(getcwd(),x,cmd);
if(array s=file_stat(fname))
{
if(argv0)
{
|
| 686ed6 | 1998-09-01 | Fredrik Hübinette (Hubbe) | | if(argv0==fname)
|
| c06406 | 1998-05-27 | Fredrik Hübinette (Hubbe) | | argv0=0;
}else{
return fname;
}
}
}
}else{
foreach((getenv("PATH")||"")/":",string x)
{
string fname=combine_path(getcwd(),x,cmd);
if(array s=file_stat(fname))
{
if(Stdio.File(fname,"r")->read(2)=="#!")
continue;
return fname;
}
}
}
foreach((getenv("PATH")||"")/":",string x)
{
string fname=combine_path(getcwd(),x,cmd);
if(array s=file_stat(fname))
return fname;
}
return "/bin/"+cmd;
}
|