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.18 and 1.24

version 1.18, 2003/11/01 23:58:43

version 1.24, 2006/11/08 07:34:33

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.17 2003/02/14 22:29:07 ohara Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/file.c,v 1.23 2006/09/13 02:26:13 noro Exp $

#include "ca.h"

#include "parse.h"

Line 76 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 Pimport();

extern int des_encryption;

extern char *asir_libdir;

Line 88 struct ftab file_tab[] = {

Line 89 struct ftab file_tab[] = {

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

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

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

error("get_byte : invalid argument");

}

void Pput_byte(NODE arg,Q *rp)

void Pget_word(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 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;

char *name,*name0;

char errbuf[BUFSIZ];

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

if ( ARG0(arg) ) {

switch (OID(ARG0(arg))) {

case O_STR:

Line 266 void Pload(NODE arg,Q *rp)

Line 316 void Pload(NODE arg,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 280 void Pload(NODE arg,Q *rp)

Line 326 void Pload(NODE arg,Q *rp)

STOQ(ret,*rp);

}

void Pload_exec(NODE arg,Q *rp)

NODE imported_files;

void Pimport(NODE arg,Q *rp)

{

int ret;

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

load_and_execfile(name);

MKNODE(t,name,imported_files);

ret = 0;

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;

}

STOQ(ret,*rp);

*rp = 0;

}

void Pwhich(NODE arg,STRING *rp)

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