version 1.14, 2001/08/20 09:03:24 |
version 1.15, 2001/10/09 01:36:05 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/file.c,v 1.13 2001/03/21 23:49:34 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/file.c,v 1.14 2001/08/20 09:03:24 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
#include "ox.h" |
#include "base.h" |
#include "base.h" |
#include "unistd.h" |
#include "unistd.h" |
#if PARI |
#if PARI |
|
|
#if defined(VISUAL) |
#if defined(VISUAL) |
#include <windows.h> |
#include <windows.h> |
#include <process.h> |
#include <process.h> |
|
#include <io.h> |
/* #define ECGEN_KEYNAME "SoftWare\\Fujitsu\\WinECgen\\1.00.000" */ |
/* #define ECGEN_KEYNAME "SoftWare\\Fujitsu\\WinECgen\\1.00.000" */ |
#define ECGEN_KEYNAME "SoftWare\\Fujitsu\\FSEcParamGen\\V1.0L10" |
#define ECGEN_KEYNAME "SoftWare\\Fujitsu\\FSEcParamGen\\V1.0L10" |
#define ASIR_KEYNAME "SoftWare\\Fujitsu\\Asir\\1999.03.31" |
#define ASIR_KEYNAME "SoftWare\\Fujitsu\\Asir\\1999.03.31" |
Line 109 struct ftab file_tab[] = { |
|
Line 111 struct ftab file_tab[] = { |
|
|
|
static FILE *file_ptrs[BUFSIZ]; |
static FILE *file_ptrs[BUFSIZ]; |
|
|
void Ppurge_stdin(rp) |
void Ppurge_stdin(Q *rp) |
Q *rp; |
|
{ |
{ |
purge_stdin(stdin); |
purge_stdin(stdin); |
*rp = 0; |
*rp = 0; |
} |
} |
|
|
void Popen_file(arg,rp) |
void Popen_file(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
char *name; |
char *name; |
FILE *fp; |
FILE *fp; |
|
|
STOQ(i,*rp); |
STOQ(i,*rp); |
} |
} |
|
|
void Pclose_file(arg,rp) |
void Pclose_file(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
int i; |
int i; |
|
|
|
|
*rp = ONE; |
*rp = ONE; |
} |
} |
|
|
void Pget_line(arg,rp) |
void Pget_line(NODE arg,STRING *rp) |
NODE arg; |
|
STRING *rp; |
|
{ |
{ |
int i,j,c; |
int i,j,c; |
FILE *fp; |
FILE *fp; |
|
|
error("get_line : invalid argument"); |
error("get_line : invalid argument"); |
} |
} |
|
|
void Pget_byte(arg,rp) |
void Pget_byte(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
int i,c; |
int i,c; |
FILE *fp; |
FILE *fp; |
|
|
error("get_byte : invalid argument"); |
error("get_byte : invalid argument"); |
} |
} |
|
|
void Pput_byte(arg,rp) |
void Pput_byte(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
int i,c; |
int i,c; |
FILE *fp; |
FILE *fp; |
|
|
error("put_byte : invalid argument"); |
error("put_byte : invalid argument"); |
} |
} |
|
|
void Pload(arg,rp) |
void Pload(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
int ret = 0; |
int ret = 0; |
char *name,*name0; |
char *name,*name0; |
|
|
STOQ(ret,*rp); |
STOQ(ret,*rp); |
} |
} |
|
|
void Pload_exec(arg,rp) |
void Pload_exec(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
int ret = 0; |
int ret; |
char *name0,*name; |
char *name0,*name; |
|
|
name0 = BDY((STRING)ARG0(arg)); |
name0 = BDY((STRING)ARG0(arg)); |
searchasirpath(name0,&name); |
searchasirpath(name0,&name); |
if ( !name ) |
if ( !name ) |
ret = -1; |
ret = -1; |
else |
else { |
ret = load_and_execfile(name); |
load_and_execfile(name); |
|
ret = 0; |
|
} |
STOQ(ret,*rp); |
STOQ(ret,*rp); |
} |
} |
|
|
void Pwhich(arg,rp) |
void Pwhich(NODE arg,STRING *rp) |
NODE arg; |
|
STRING *rp; |
|
{ |
{ |
char *name; |
char *name; |
STRING str; |
STRING str; |
|
|
*rp = 0; |
*rp = 0; |
} |
} |
|
|
void Ploadfiles(arg,rp) |
void Ploadfiles(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
int ret; |
int ret; |
|
|
|
|
STOQ(ret,*rp); |
STOQ(ret,*rp); |
} |
} |
|
|
void Poutput(arg,rp) |
void Poutput(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
#if PARI |
#if PARI |
extern FILE *outfile; |
extern FILE *outfile; |
|
|
|
|
extern int ox_file_io; |
extern int ox_file_io; |
|
|
void Pbsave(arg,rp) |
void Pbsave(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
FILE *fp; |
FILE *fp; |
VL vl,t; |
VL vl,t; |
|
|
*rp = ONE; |
*rp = ONE; |
} |
} |
|
|
void Pbload(arg,rp) |
void Pbload(NODE arg,Obj *rp) |
NODE arg; |
|
Obj *rp; |
|
{ |
{ |
FILE *fp; |
FILE *fp; |
|
|
|
|
ox_file_io = 0; |
ox_file_io = 0; |
} |
} |
|
|
void Pbsave_cmo(arg,rp) |
void Pbsave_cmo(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
FILE *fp; |
FILE *fp; |
VL vl,t; |
|
|
|
asir_assert(ARG1(arg),O_STR,"bsave_cmo"); |
asir_assert(ARG1(arg),O_STR,"bsave_cmo"); |
fp = fopen(BDY((STRING)ARG1(arg)),"wb"); |
fp = fopen(BDY((STRING)ARG1(arg)),"wb"); |
|
|
*rp = ONE; |
*rp = ONE; |
} |
} |
|
|
void Pbload_cmo(arg,rp) |
void Pbload_cmo(NODE arg,Obj *rp) |
NODE arg; |
|
Obj *rp; |
|
{ |
{ |
FILE *fp; |
FILE *fp; |
|
|
|
|
static struct oSTRING rootdir; |
static struct oSTRING rootdir; |
|
|
#if defined(VISUAL) |
#if defined(VISUAL) |
void get_rootdir(name,len) |
void get_rootdir(char *name,int len) |
char *name; |
|
int len; |
|
{ |
{ |
LONG ret; |
LONG ret; |
HKEY hOpenKey; |
HKEY hOpenKey; |
|
|
} |
} |
} |
} |
|
|
void set_rootdir(name) |
void set_rootdir(char *name) |
char *name; |
|
{ |
{ |
static char DirName[BUFSIZ]; |
static char DirName[BUFSIZ]; |
|
|
|
|
} |
} |
|
|
#else |
#else |
void get_rootdir(name,len) |
void get_rootdir(char *name,int len) |
char *name; |
|
int len; |
|
{ |
{ |
strcpy(name,asir_libdir); |
strcpy(name,asir_libdir); |
} |
} |
|
|
void set_rootdir(name) |
void set_rootdir(char *name) |
char *name; |
|
{ |
{ |
static char DirName[BUFSIZ]; |
static char DirName[BUFSIZ]; |
|
|
|
|
|
|
#endif |
#endif |
|
|
void Pget_rootdir(rp) |
void Pget_rootdir(STRING *rp) |
STRING *rp; |
|
{ |
{ |
static char DirName[BUFSIZ]; |
static char DirName[BUFSIZ]; |
int DirNameLen; |
|
|
|
if ( !rootdir.body ) { |
if ( !rootdir.body ) { |
get_rootdir(DirName,sizeof(DirName)); |
get_rootdir(DirName,sizeof(DirName)); |
|
|
} |
} |
|
|
#if defined(VISUAL) && defined(DES_ENC) |
#if defined(VISUAL) && defined(DES_ENC) |
void Pbsave_enc(arg,rp) |
void Pbsave_enc(NODE arg,Obj *rp) |
NODE arg; |
|
Obj *rp; |
|
{ |
{ |
init_deskey(); |
init_deskey(); |
des_encryption = 1; |
des_encryption = 1; |
|
|
des_encryption = 0; |
des_encryption = 0; |
} |
} |
|
|
void Pbload_enc(arg,rp) |
void Pbload_enc(NODE arg,Obj *rp) |
NODE arg; |
|
Obj *rp; |
|
{ |
{ |
init_deskey(); |
init_deskey(); |
des_encryption = 1; |
des_encryption = 1; |
|
|
} |
} |
#endif |
#endif |
|
|
void Pbload27(arg,rp) |
void Pbload27(NODE arg,Obj *rp) |
NODE arg; |
|
Obj *rp; |
|
{ |
{ |
FILE *fp; |
FILE *fp; |
Obj r; |
Obj r; |
|
|
bobjtoobj(BASE27,r,rp); |
bobjtoobj(BASE27,r,rp); |
} |
} |
|
|
void Pbsave_compat(arg,rp) |
void Pbsave_compat(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
FILE *fp; |
FILE *fp; |
VL vl,t; |
VL vl,t; |
|
|
*rp = ONE; |
*rp = ONE; |
} |
} |
|
|
void Pbload_compat(arg,rp) |
void Pbload_compat(NODE arg,Obj *rp) |
NODE arg; |
|
Obj *rp; |
|
{ |
{ |
FILE *fp; |
FILE *fp; |
unsigned int hdr[2]; |
unsigned int hdr[2]; |
|
|
fclose(fp); |
fclose(fp); |
} |
} |
|
|
void Premove_file(arg,rp) |
void Premove_file(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
unlink((char *)BDY((STRING)ARG0(arg))); |
unlink((char *)BDY((STRING)ARG0(arg))); |
*rp = ONE; |
*rp = ONE; |
} |
} |
|
|
void Paccess(arg,rp) |
void Paccess(NODE arg,Q *rp) |
NODE arg; |
|
Q *rp; |
|
{ |
{ |
char *name; |
|
STRING str; |
|
|
|
#if defined(VISUAL) |
#if defined(VISUAL) |
if ( access(BDY((STRING)ARG0(arg)),04) >= 0 ) |
if ( access(BDY((STRING)ARG0(arg)),04) >= 0 ) |
#else |
#else |
Line 657 int process_id() |
|
Line 606 int process_id() |
|
return GetCurrentProcessId(); |
return GetCurrentProcessId(); |
} |
} |
|
|
void call_exe(name,av) |
void call_exe(char *name,char **av) |
char *name; |
|
char **av; |
|
{ |
{ |
_spawnv(_P_WAIT,name,av); |
_spawnv(_P_WAIT,name,av); |
} |
} |