| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | #if !constant(strerror)
#define strerror(X) X
#endif
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,"/","\\")
}
string handle_input(object o)
{
if(o->proxy)
o->proxy(Stdio.File("stdin"))
else
thread_create(lambda(object o)
{
object stdin=Stdio.File("stdin")
while(string s=stdin->read(1000,1))
o->write(s)
},o)
}
object low_do_cmd(string *cmd)
{
object(Stdio.File) f=Stdio.File()
if(!f->connect(getenv("NTHOST"),(int)getenv("NTPORT")))
{
werror("Failed to connect "+strerror(errno())+".\n")
exit(1)
}
string tmp=getcwd()
string mnt=getenv("NTMOUNT")
if(mnt && strlen(mnt)) tmp=replace(tmp,mnt,"")
cmd=({getenv("NTDRIVE")+replace(tmp,"/","\\")})+cmd
f->write(sprintf("%4c",sizeof(cmd)))
for(int e=0
f->write(sprintf("%4c%s",strlen(cmd[e]),cmd[e]))
return f
}
|
| 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) | | {
object(Stdio.File) f=low_do_cmd(cmd)
handle_input(f)
string ret=""
while(1)
{
string s
sscanf(f->read(4),"%4c",int len)
if(!len) break
|
| ef359c | 1998-03-21 | Fredrik Hübinette (Hubbe) | | s=f->read(len)
|
| 686ed6 | 1998-09-01 | Fredrik Hübinette (Hubbe) | | s=replace(s,"\r\n","\n")
|
| ef359c | 1998-03-21 | Fredrik Hübinette (Hubbe) | | if(!silent) write(s)
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | ret+=s
}
if(filter) filter(ret)
sscanf(f->read(4),"%4c",int code)
f->close("r")
f->close("w")
destruct(f)
return code
}
|
| 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
return tmp
}
|
| 5e1cbd | 1998-02-24 | Fredrik Hübinette (Hubbe) | | string getntenv(string var)
{
string s=""
object(Stdio.File) f=low_do_cmd( ({"getenv",var}) )
while(1)
{
sscanf(f->read(4),"%4c", int len)
if(!len) break
s+=f->read(len)
}
sscanf(f->read(4),"%4c",int code)
f->close("r")
f->close("w")
destruct(f)
return s
}
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
}
|