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.1 and 1.16

version 1.1, 1999/12/03 07:39:07

version 1.16, 2002/10/01 09:58:48

Line 1

/* $OpenXM: OpenXM/src/asir99/builtin/file.c,v 1.2 1999/11/23 07:14:14 noro Exp $ */

* FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,

* non-exclusive and royalty-free license to use, copy, modify and

* redistribute, solely for non-commercial and non-profit purposes, the

* computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and

* conditions of this Agreement. For the avoidance of doubt, you acquire

* only a limited right to use the SOFTWARE hereunder, and FLL or any

* third party developer retains all rights, including but not limited to

* copyrights, in and to the SOFTWARE.

* (1) FLL does not grant you a license in any way for commercial

* purposes. You may use the SOFTWARE only for non-commercial and

* non-profit purposes only, such as academic, research and internal

* business use.

* (2) The SOFTWARE is protected by the Copyright Law of Japan and

* international copyright treaties. If you make copies of the SOFTWARE,

* with or without modification, as permitted hereunder, you shall affix

* to all such copies of the SOFTWARE the above copyright notice.

* (3) An explicit reference to this SOFTWARE and its copyright owner

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

* THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL

* MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND

* EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS

* FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'

* RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY

* MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.

* UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,

* OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY

* DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL

* DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES

* ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES

* FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY

* DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF

* SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

* 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.15 2001/10/09 01:36:05 noro Exp $

#include "ca.h"

#include "parse.h"

#include "ox.h"

#include "base.h"

#if !defined(VISUAL)

#include "unistd.h"

#endif

#if PARI

#include "genpari.h"

#endif

#if defined(VISUAL)

#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"

Line 19 void Pload(), Pwhich(), Ploadfiles(), Poutput();

Line 75 void Pload(), Pwhich(), Ploadfiles(), Poutput();

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 Ppurge_stdin();

void Pload_exec();

extern int des_encryption;

extern char *asir_libdir;

struct ftab file_tab[] = {

{"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_line",Pget_line,-1},

{"remove_file",Premove_file,1},

{"access",Paccess,1},

{"load",Pload,-1},

{"load_exec",Pload_exec,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)

{"bsave_enc",Pbsave_enc,2},

{"bload_enc",Pbload_enc,1},

#endif

{"bload27",Pbload27,1},

{"bsave_compat",Pbsave_compat,2},

{"bload_compat",Pbload_compat,1},

Line 43 struct ftab file_tab[] = {

Line 111 struct ftab file_tab[] = {

{0,0,0},

};

void Pload(arg,rp)

static FILE *file_ptrs[BUFSIZ];

NODE arg;

Q *rp;

void Ppurge_stdin(Q *rp)

{

int ret = 0;

purge_stdin(stdin);

char *name,*name0;

*rp = 0;

}

void Popen_file(NODE arg,Q *rp)

{

char *name;

FILE *fp;

char errbuf[BUFSIZ];

int i;

#if defined THINK_C

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

if ( !arg ) {

for ( i = 0; i < BUFSIZ && file_ptrs[i]; i++ );

ret = finder_loadfile();

if ( i == BUFSIZ )

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

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

if ( argc(arg) == 2 ) {

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

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

} else

fp = fopen(name,"r");

if ( !fp ) {

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

error(errbuf);

}

file_ptrs[i] = fp;

STOQ(i,*rp);

}

void Pclose_file(NODE arg,Q *rp)

{

int i;

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

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

if ( file_ptrs[i] ) {

fclose(file_ptrs[i]);

file_ptrs[i] = 0;

} else

error("close_file : invalid argument");

*rp = ONE;

}

void Pget_line(NODE arg,STRING *rp)

{

int i,j,c;

FILE *fp;

fpos_t head;

char *str;

char buf[BUFSIZ];

if ( !arg ) {

#if defined(VISUAL_LIB)

get_string(buf,sizeof(buf));

#else

fgets(buf,sizeof(buf),stdin);

#endif

i = strlen(buf);

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

strcpy(str,buf);

MKSTR(*rp,str);

return;

}

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

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

if ( fp = file_ptrs[i] ) {

if ( feof(fp) ) {

*rp = 0;

return;

}

fgetpos(fp,&head);

j = 0;

while ( 1 ) {

c = getc(fp);

if ( c == EOF ) {

if ( !j ) {

*rp = 0;

return;

} else

break;

}

j++;

if ( c == '\n' )

break;

}

fsetpos(fp,&head);

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

fgets(str,j+1,fp);

MKSTR(*rp,str);

} else

error("get_line : invalid argument");

}

void Pget_byte(NODE arg,Q *rp)

{

int i,c;

FILE *fp;

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

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

if ( fp = file_ptrs[i] ) {

if ( feof(fp) ) {

STOQ(-1,*rp);

return;

}

c = getc(fp);

STOQ(c,*rp);

} else

error("get_byte : invalid argument");

}

void Pput_byte(NODE arg,Q *rp)

{

int i,c;

FILE *fp;

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

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);

STOQ(c,*rp);

} else

error("put_byte : invalid argument");

}

void Pload(NODE arg,Q *rp)

{

int ret = 0;

char *name,*name0;

char errbuf[BUFSIZ];

if ( ARG0(arg) ) {

switch (OID(ARG0(arg))) {

case O_STR:

Line 79 Q *rp;

Line 272 Q *rp;

STOQ(ret,*rp);

}

void Pwhich(arg,rp)

void Pload_exec(NODE arg,Q *rp)

NODE arg;

STRING *rp;

{

int ret;

char *name0,*name;

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

searchasirpath(name0,&name);

if ( !name )

ret = -1;

else {

load_and_execfile(name);

ret = 0;

}

STOQ(ret,*rp);

}

void Pwhich(NODE arg,STRING *rp)

{

char *name;

STRING str;

Line 100 STRING *rp;

Line 307 STRING *rp;

*rp = 0;

}

void Ploadfiles(arg,rp)

void Ploadfiles(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

int ret;

Line 116 Q *rp;

Line 321 Q *rp;

STOQ(ret,*rp);

}

void Poutput(arg,rp)

void Poutput(NODE arg,Q *rp)

NODE arg;

Q *rp;

{

#if PARI

extern FILE *outfile;

Line 147 Q *rp;

Line 350 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 159 Q *rp;

Line 360 Q *rp;

for ( t = vl; t; t = NEXT(t) )

if ( t->v->attr == (pointer)V_UC )

error("bsave : not implemented");

#if defined(THINK_C) || defined(VISUAL)

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

#else

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

#endif

if ( !fp )

error("bsave : invalid filename");

ox_file_io = 1; /* network byte order is used */

Line 174 Q *rp;

Line 371 Q *rp;

*rp = ONE;

}

void Pbload(arg,rp)

void Pbload(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

FILE *fp;

asir_assert(ARG0(arg),O_STR,"bload");

#if defined(THINK_C) || defined(VISUAL)

fp = fopen(BDY((STRING)ARG0(arg)),"rb");

#else

fp = fopen(BDY((STRING)ARG0(arg)),"r");

#endif

if ( !fp )

error("bload : invalid filename");

ox_file_io = 1; /* network byte order is used */

Line 195 Obj *rp;

Line 386 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");

#if defined(THINK_C) || defined(VISUAL)

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

#else

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

#endif

if ( !fp )

error("bsave_cmo : invalid filename");

ox_file_io = 1; /* network byte order is used */

Line 217 Q *rp;

Line 401 Q *rp;

*rp = ONE;

}

void Pbload_cmo(arg,rp)

void Pbload_cmo(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

FILE *fp;

asir_assert(ARG0(arg),O_STR,"bload_cmo");

#if defined(THINK_C) || defined(VISUAL)

fp = fopen(BDY((STRING)ARG0(arg)),"rb");

#else

fp = fopen(BDY((STRING)ARG0(arg)),"r");

#endif

if ( !fp )

error("bload_cmo : invalid filename");

ox_file_io = 1; /* network byte order is used */

Line 237 Obj *rp;

Line 415 Obj *rp;

ox_file_io = 0;

}

static struct oSTRING rootdir;

#if defined(VISUAL)

void get_rootdir(name,len)

void get_rootdir(char *name,int len)

char *name;

int len;

{

LONG ret;

HKEY hOpenKey;

DWORD Type;

char *slash;

if ( rootdir.body ) {

strcpy(name,rootdir.body);

return;

}

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

GetCurrentDirectory(BUFSIZ,name);

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

if ( slash )

*slash = 0;

return;

}

name[0] = 0;

ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, ECGEN_KEYNAME, 0,

KEY_QUERY_VALUE, &hOpenKey);

Line 255 int len;

Line 446 int len;

if( ret == ERROR_SUCCESS ) {

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

RegCloseKey(hOpenKey);

} else {

GetCurrentDirectory(len,name);

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

if ( slash )

*slash = 0;

}

void set_rootdir(char *name)

{

static char DirName[BUFSIZ];

strcpy(DirName,name);

rootdir.id = O_STR;

rootdir.body = DirName;

asir_libdir = DirName;

/* XXX */

env_init();

}

#else

void get_rootdir(name,len)

void get_rootdir(char *name,int len)

char *name;

int len;

{

strcpy(name,asir_libdir);

}

void set_rootdir(char *name)

{

static char DirName[BUFSIZ];

strcpy(DirName,name);

asir_libdir = DirName;

/* XXX */

env_init();

}

#endif

void Pget_rootdir(rp)

void Pget_rootdir(STRING *rp)

STRING *rp;

{

static struct oSTRING rootdir;

static char DirName[BUFSIZ];

int DirNameLen;

if ( !rootdir.body ) {

get_rootdir(DirName,sizeof(DirName));

Line 281 STRING *rp;

Line 496 STRING *rp;

*rp = &rootdir;

}

void Pbsave_enc(arg,rp)

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

NODE arg;

void Pbsave_enc(NODE arg,Obj *rp)

Obj *rp;

{

init_deskey();

des_encryption = 1;

Line 291 Obj *rp;

Line 505 Obj *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;

Pbload(arg,rp);

des_encryption = 0;

}

#endif

void Pbload27(arg,rp)

void Pbload27(NODE arg,Obj *rp)

NODE arg;

Obj *rp;

{

FILE *fp;

Obj r;

asir_assert(ARG0(arg),O_STR,"bload27");

#if defined(THINK_C) || defined(VISUAL)

fp = fopen(BDY((STRING)ARG0(arg)),"rb");

#else

fp = fopen(BDY((STRING)ARG0(arg)),"r");

#endif

if ( !fp )

error("bload : invalid filename");

loadvl(fp);

Line 322 Obj *rp;

Line 529 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 334 Q *rp;

Line 539 Q *rp;

for ( t = vl; t; t = NEXT(t) )

if ( t->v->attr == (pointer)V_UC )

error("bsave : not implemented");

#if defined(THINK_C) || defined(VISUAL)

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

#else

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

#endif

if ( !fp )

error("bsave : invalid filename");

/* indicator of an asir32 file */

Line 349 Q *rp;

Line 550 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 359 Obj *rp;

Line 558 Obj *rp;

int c;

asir_assert(ARG0(arg),O_STR,"bload_compat");

#if defined(THINK_C) || defined(VISUAL)

fp = fopen(BDY((STRING)ARG0(arg)),"rb");

#else

fp = fopen(BDY((STRING)ARG0(arg)),"r");

#endif

if ( !fp )

error("bload : invalid filename");

fread(hdr,sizeof(unsigned int),2,fp);

Line 389 Obj *rp;

Line 584 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

Line 413 Q *rp;

Line 601 Q *rp;

else

*rp = 0;

}

#if defined(VISUAL)

int process_id()

{

return GetCurrentProcessId();

}

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

{

_spawnv(_P_WAIT,name,av);

}

#endif

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