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.23 and 1.35

version 1.23, 2006/09/13 02:26:13

version 1.35, 2017/06/10 05:32:24

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.22 2006/02/08 02:11:19 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/file.c,v 1.34 2015/08/14 13:51:54 fujimoto Exp $

#include "ca.h"

#include "parse.h"

#include "ox.h"

#include "base.h"

#if !defined(VISUAL)

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

#include "unistd.h"

#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 76 void Pbsave(), Pbload(), Pbload27();

Line 79 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 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},

Line 99 struct ftab file_tab[] = {

Line 108 struct ftab file_tab[] = {

{"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 108 struct ftab file_tab[] = {

Line 117 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 Pfprintf(NODE arg,pointer *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);

Line 142 void Popen_file(NODE arg,Q *rp)

Line 171 void Popen_file(NODE arg,Q *rp)

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

Line 235 void Pget_byte(NODE arg,Q *rp)

Line 264 void Pget_byte(NODE arg,Q *rp)

error("get_byte : invalid argument");

}

void Pget_word(NODE arg,Q *rp)

{

int i,c;

FILE *fp;

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

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

if ( fp = file_ptrs[i] ) {

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;

Line 261 void Pput_byte(NODE arg,Obj *rp)

Line 308 void Pput_byte(NODE arg,Obj *rp)

*rp = obj;

}

void Pput_word(NODE arg,Obj *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;

Line 443 void Pbload_cmo(NODE arg,Obj *rp)

Line 508 void Pbload_cmo(NODE arg,Obj *rp)

static struct oSTRING rootdir;

#if defined(VISUAL)

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

void get_rootdir(char *name,int len)

{

LONG ret;

Line 455 void get_rootdir(char *name,int len)

Line 520 void get_rootdir(char *name,int len)

strcpy(name,rootdir.body);

return;

}

if ( GetModuleFileName(NULL,name,BUFSIZ) ) {

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

GetCurrentDirectory(BUFSIZ,name);

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

if ( slash )

*slash = 0;

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

if ( slash )

*slash = 0;

return;

}

Line 522 void Pget_rootdir(STRING *rp)

Line 587 void Pget_rootdir(STRING *rp)

*rp = &rootdir;

}

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

void Pgetpid(Q *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();

Line 618 void Premove_file(NODE arg,Q *rp)

Line 695 void Premove_file(NODE arg,Q *rp)

void Paccess(NODE arg,Q *rp)

{

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

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