OpenXM_contrib2/asir2000/builtin/file.c - diff

Return to file.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/file.c between version 1.14 and 1.37

version 1.14, 2001/08/20 09:03:24

version 1.37, 2017/09/02 04:04:41

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* 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.36 2017/06/12 06:22:50 noro Exp $

#include "ca.h"

#include "parse.h"

#include "ox.h"

#include "base.h"

#include <stdlib.h>

#if !defined(VISUAL) && !defined(__MINGW32__)

#include "unistd.h"

#if PARI

#endif

#if defined(PARI)

#include "genpari.h"

#endif

#if defined(VISUAL)

#if defined(VISUAL) || defined(__MINGW32__)

#include <windows.h>

#include <process.h>

#include <io.h>

/* #define ECGEN_KEYNAME "SoftWare\\Fujitsu\\WinECgen\\1.00.000" */

#define ECGEN_KEYNAME "SoftWare\\Fujitsu\\FSEcParamGen\\V1.0L10"

#define ASIR_KEYNAME "SoftWare\\Fujitsu\\Asir\\1999.03.31"

#define R_OK 0x04

#endif

void Psprintf(NODE,STRING *);

void Pget_rootdir();

void Paccess(),Premove_file();

void Pbsave_enc(), Pbload_enc();

Line 72 void Pbsave(), Pbload(), Pbload27();

Line 80 void Pbsave(), Pbload(), Pbload27();

void Pbsave_compat(), Pbload_compat();

void Pbsave_cmo(), Pbload_cmo();

void Popen_file(), Pclose_file(), Pget_line(), Pget_byte(), Pput_byte();

void Pput_word(), Pget_word();

void Ppurge_stdin();

void Pload_exec();

void Pfprintf();

void Pimport();

void Pgetpid();

extern int des_encryption;

extern char *asir_libdir;

struct ftab file_tab[] = {

{"fprintf",Pfprintf,-99999999},

{"purge_stdin",Ppurge_stdin,0},

{"open_file",Popen_file,-2},

{"close_file",Pclose_file,1},

{"get_byte",Pget_byte,1},

{"put_byte",Pput_byte,2},

{"get_word",Pget_word,1},

{"put_word",Pput_word,2},

{"get_line",Pget_line,-1},

{"remove_file",Premove_file,1},

{"access",Paccess,1},

{"load",Pload,-1},

{"load_exec",Pload_exec,1},

{"import",Pimport,-1},

{"which",Pwhich,1},

{"loadfiles",Ploadfiles,1},

{"output",Poutput,-1},

{"bsave",Pbsave,2},

{"bload",Pbload,1},

{"get_rootdir",Pget_rootdir,0},

#if defined(VISUAL) && defined(DES_ENC)

#if defined(DES_ENC)

{"bsave_enc",Pbsave_enc,2},

{"bload_enc",Pbload_enc,1},

#endif

Line 104 struct ftab file_tab[] = {

Line 118 struct ftab file_tab[] = {

{"bload_compat",Pbload_compat,1},

{"bsave_cmo",Pbsave_cmo,2},

{"bload_cmo",Pbload_cmo,1},

{"getpid",Pgetpid,0},

{0,0,0},

};

static FILE *file_ptrs[BUFSIZ];

void Ppurge_stdin(rp)

void Pfprintf(NODE arg,pointer *rp)

Q *rp;

{

FILE *fp;

STRING s;

asir_assert(ARG0(arg),O_N,"fprintf");

fp = file_ptrs[QTOS((Q)ARG0(arg))];

if ( !fp ) {

error("fprintf : invalid argument");

}

arg = NEXT(arg);

if ( arg ) {

Psprintf(arg,&s);

fputs(BDY(s),fp);

/* fflush(fp); */

}

*rp = 0;

return;

}

void Ppurge_stdin(Q *rp)

{

purge_stdin(stdin);

*rp = 0;

}

void Popen_file(arg,rp)

void Popen_file(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

char *name;

FILE *fp;

Line 130 Q *rp;

Line 161 Q *rp;

if ( i == BUFSIZ )

error("open_file : too many open files");

name = BDY((STRING)ARG0(arg));

if ( argc(arg) == 2 ) {

if (strcmp(name,"unix://stdin") == 0) {

fp = stdin;

}else if (strcmp(name,"unix://stdout") == 0) {

fp = stdout;

}else if (strcmp(name,"unix://stderr") == 0) {

fp = stderr;

}else{

if ( argc(arg) == 2 ) {

asir_assert(ARG1(arg),O_STR,"open_file");

fp = fopen(name,BDY((STRING)ARG1(arg)));

} else

fp = fopen(name,"r");

fp = fopen(name,"rb");

}

if ( !fp ) {

sprintf(errbuf,"open_file : cannot open \"%s\"",name);

error(errbuf);

Line 143 Q *rp;

Line 182 Q *rp;

STOQ(i,*rp);

}

void Pclose_file(arg,rp)

void Pclose_file(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

int i;

Line 159 Q *rp;

Line 196 Q *rp;

*rp = ONE;

}

void Pget_line(arg,rp)

void Pget_line(NODE arg,STRING *rp)

NODE arg;

STRING *rp;

{

int i,j,c;

FILE *fp;

Line 207 STRING *rp;

Line 242 STRING *rp;

fsetpos(fp,&head);

str = (char *)MALLOC_ATOMIC(j+1);

fgets(str,j+1,fp);

for ( i = 0; i < j; i++ )

if ( str[i] == '\r' ) {

str[i] = '\n';

str[i+1] = 0;

break;

}

MKSTR(*rp,str);

} else

error("get_line : invalid argument");

}

void Pget_byte(arg,rp)

void Pget_byte(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

int i,c;

FILE *fp;

Line 232 Q *rp;

Line 271 Q *rp;

error("get_byte : invalid argument");

}

void Pput_byte(arg,rp)

void Pget_word(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

int i,c;

FILE *fp;

asir_assert(ARG0(arg),O_N,"put_byte");

asir_assert(ARG0(arg),O_N,"get_word");

asir_assert(ARG1(arg),O_N,"put_byte");

i = QTOS((Q)ARG0(arg));

c = QTOS((Q)ARG1(arg));

if ( fp = file_ptrs[i] ) {

putc(c,fp);

if ( feof(fp) ) {

error("get_word : end of file");

return;

}

read_int(fp,&c);

STOQ(c,*rp);

} else

error("get_word : invalid argument");

}

void Pput_byte(NODE arg,Obj *rp)

{

int i,j,c;

FILE *fp;

Obj obj;

TB tb;

asir_assert(ARG0(arg),O_N,"put_byte");

i = QTOS((Q)ARG0(arg));

if ( !(fp = file_ptrs[i]) )

error("put_byte : invalid argument");

obj = (Obj)ARG1(arg);

if ( !obj || OID(obj) == O_N ) {

c = QTOS((Q)obj);

putc(c,fp);

} else if ( OID(obj) == O_STR )

fputs(BDY((STRING)obj),fp);

else if ( OID(obj) == O_TB ) {

tb = (TB)obj;

for ( j = 0; j < tb->next; j++ )

fputs(tb->body[j],fp);

}

*rp = obj;

}

void Pload(arg,rp)

void Pput_word(NODE arg,Obj *rp)

NODE arg;

Q *rp;

{

int i,c;

FILE *fp;

Obj obj;

asir_assert(ARG0(arg),O_N,"put_word");

asir_assert(ARG1(arg),O_N,"put_word");

i = QTOS((Q)ARG0(arg));

if ( !(fp = file_ptrs[i]) )

error("put_word : invalid argument");

obj = (Q)ARG1(arg);

c = QTOS((Q)obj);

write_int(fp,&c);

*rp = obj;

}

void Pload(NODE arg,Q *rp)

{

int ret = 0;

char *name,*name0;

char errbuf[BUFSIZ];

if ( !arg ) error("load : invalid argument");

if ( ARG0(arg) ) {

switch (OID(ARG0(arg))) {

case O_STR:

Line 267 Q *rp;

Line 349 Q *rp;

sprintf(errbuf,"load : \"%s\" not found in the search path",name0);

error(errbuf);

}

ret = loadfile(name);

execasirfile(name);

if ( !ret ) {

sprintf(errbuf,"load : \"%s\" could not be loaded",name);

error(errbuf);

}

break;

default:

error("load : invalid argument");

Line 281 Q *rp;

Line 359 Q *rp;

STOQ(ret,*rp);

}

void Pload_exec(arg,rp)

NODE imported_files;

NODE arg;

Q *rp;

void Pimport(NODE arg,Q *rp)

{

int ret = 0;

char *name;

char *name0,*name;

NODE t,p,opt;

name0 = BDY((STRING)ARG0(arg));

name = BDY((STRING)ARG0(arg));

searchasirpath(name0,&name);

for ( t = imported_files; t; t = NEXT(t) )

if ( !name )

if ( !strcmp((char *)BDY(t),name) ) break;

ret = -1;

if ( !t ) {

else

Pload(arg,rp);

ret = load_and_execfile(name);

MKNODE(t,name,imported_files);

STOQ(ret,*rp);

imported_files = t;

return;

} else if ( current_option ) {

for ( opt = current_option; opt; opt = NEXT(opt) ) {

p = BDY((LIST)BDY(opt));

if ( !strcmp(BDY((STRING)BDY(p)),"reimport") && BDY(NEXT(p)) ) {

Pload(arg,rp);

return;

}

*rp = 0;

}

void Pwhich(arg,rp)

void Pwhich(NODE arg,STRING *rp)

NODE arg;

STRING *rp;

{

char *name;

STRING str;

Line 318 STRING *rp;

Line 405 STRING *rp;

*rp = 0;

}

void Ploadfiles(arg,rp)

void Ploadfiles(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

int ret;

Line 334 Q *rp;

Line 419 Q *rp;

STOQ(ret,*rp);

}

void Poutput(arg,rp)

void Poutput(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

#if PARI

#if defined(PARI)

extern FILE *outfile;

#endif

FILE *fp;

Line 356 Q *rp;

Line 439 Q *rp;

error("output : invalid filename");

break;

}

#if PARI

#if defined(PARI)

pari_outfile =

#endif

asir_out = fp;

Line 365 Q *rp;

Line 448 Q *rp;

extern int ox_file_io;

void Pbsave(arg,rp)

void Pbsave(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

FILE *fp;

VL vl,t;

Line 388 Q *rp;

Line 469 Q *rp;

*rp = ONE;

}

void Pbload(arg,rp)

void Pbload(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

FILE *fp;

Line 405 Obj *rp;

Line 484 Obj *rp;

ox_file_io = 0;

}

void Pbsave_cmo(arg,rp)

void Pbsave_cmo(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

FILE *fp;

VL vl,t;

asir_assert(ARG1(arg),O_STR,"bsave_cmo");

fp = fopen(BDY((STRING)ARG1(arg)),"wb");

Line 423 Q *rp;

Line 499 Q *rp;

*rp = ONE;

}

void Pbload_cmo(arg,rp)

void Pbload_cmo(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

FILE *fp;

Line 441 Obj *rp;

Line 515 Obj *rp;

static struct oSTRING rootdir;

#if defined(VISUAL)

#if defined(VISUAL) || defined(__MINGW32__)

void get_rootdir(name,len)

static void chop_delim(char *s)

char *name;

int len;

{

int n=strlen(s);

if(n>1 && s[n-1]=='\\') {

s[n-1]=0;

}

void get_rootdir(char *name,int len)

{

LONG ret;

HKEY hOpenKey;

DWORD Type;

char *slash;

char drive[_MAX_DRIVE], dir0[_MAX_DIR], dir[_MAX_DIR];

char fullname[_MAX_PATH];

if ( rootdir.body ) {

strcpy(name,rootdir.body);

strcpy_s(name,len,rootdir.body);

return;

}

if ( GetModuleFileName(NULL,fullname,_MAX_PATH) ) {

if ( access("UseCurrentDir",0) >= 0 ) {

_splitpath(fullname,drive,dir0,NULL,NULL);

GetCurrentDirectory(BUFSIZ,name);

chop_delim(dir0);

slash = strrchr(name,'\\');

_splitpath(dir0,NULL,dir,NULL,NULL);

if ( slash )

chop_delim(dir);

*slash = 0;

strcpy_s(name,len,drive);

strcat_s(name,len,dir);

return;

}

name[0] = 0;

Line 473 int len;

Line 555 int len;

RegQueryValueEx(hOpenKey, "Directory", NULL, &Type, name, &len);

RegCloseKey(hOpenKey);

} else {

GetCurrentDirectory(len,name);

GetCurrentDirectory(_MAX_PATH,fullname);

slash = strrchr(name,'\\');

_splitpath(fullname,drive,dir,NULL,NULL);

if ( slash )

chop_delim(dir);

*slash = 0;

strcpy_s(name,len,drive);

strcat_s(name,len,dir);

}

void set_rootdir(name)

void set_rootdir(char *name)

char *name;

{

static char DirName[BUFSIZ];

Line 494 char *name;

Line 576 char *name;

}

#else

void get_rootdir(name,len)

void get_rootdir(char *name,int len)

char *name;

int len;

{

strcpy(name,asir_libdir);

}

void set_rootdir(name)

void set_rootdir(char *name)

char *name;

{

static char DirName[BUFSIZ];

Line 514 char *name;

Line 593 char *name;

#endif

void Pget_rootdir(rp)

void Pget_rootdir(STRING *rp)

STRING *rp;

{

static char DirName[BUFSIZ];

int DirNameLen;

if ( !rootdir.body ) {

get_rootdir(DirName,sizeof(DirName));

Line 528 STRING *rp;

Line 605 STRING *rp;

*rp = &rootdir;

}

#if defined(VISUAL) && defined(DES_ENC)

void Pgetpid(Q *rp)

void Pbsave_enc(arg,rp)

NODE arg;

Obj *rp;

{

int id;

#if defined(VISUAL) || defined(__MINGW32__)

id = GetCurrentProcessId();

#else

id = getpid();

#endif

STOQ(id,*rp);

}

#if defined(DES_ENC)

void Pbsave_enc(NODE arg,Obj *rp)

{

init_deskey();

des_encryption = 1;

Pbsave(arg,rp);

des_encryption = 0;

}

void Pbload_enc(arg,rp)

void Pbload_enc(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

init_deskey();

des_encryption = 1;

Line 550 Obj *rp;

Line 635 Obj *rp;

}

#endif

void Pbload27(arg,rp)

void Pbload27(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

FILE *fp;

Obj r;

Line 567 Obj *rp;

Line 650 Obj *rp;

bobjtoobj(BASE27,r,rp);

}

void Pbsave_compat(arg,rp)

void Pbsave_compat(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

FILE *fp;

VL vl,t;

Line 590 Q *rp;

Line 671 Q *rp;

*rp = ONE;

}

void Pbload_compat(arg,rp)

void Pbload_compat(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

FILE *fp;

unsigned int hdr[2];

Line 626 Obj *rp;

Line 705 Obj *rp;

fclose(fp);

}

void Premove_file(arg,rp)

void Premove_file(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

unlink((char *)BDY((STRING)ARG0(arg)));

*rp = ONE;

}

void Paccess(arg,rp)

void Paccess(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

char *name;

STRING str;

#if defined(VISUAL)

if ( access(BDY((STRING)ARG0(arg)),04) >= 0 )

#else

if ( access(BDY((STRING)ARG0(arg)),R_OK) >= 0 )

#endif

*rp = ONE;

else

*rp = 0;

}

#if defined(VISUAL)

#if defined(VISUAL) || defined(__MINGW32__)

int process_id()

{

return GetCurrentProcessId();

}

void call_exe(name,av)

void call_exe(char *name,char **av)

char *name;

char **av;

{

_spawnv(_P_WAIT,name,av);

}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>