OpenXM_contrib2/asir2000/builtin/miscf.c - diff

Return to miscf.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/miscf.c between version 1.19 and 1.27

version 1.19, 2003/10/20 00:21:09

version 1.27, 2008/08/26 16:17:03

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.18 2003/05/16 07:56:14 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.26 2006/02/08 02:11:19 noro Exp $

#include "ca.h"

#include "parse.h"

#include <string.h>

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

#include <X11/Xlib.h>

#include <X11/cursorfont.h>

Line 57

Line 58

#if defined(VISUAL)

#include <stdlib.h>

#include <windows.h>

#else

#include <unistd.h>

#include <sys/param.h>

#endif

void Pgetcwd(), Pchdir();

void Pset_secure_mode();

void Pset_secure_flag();

void Pquit(), Pdebug(), Pnmono(), Pnez(), Popt(), Pshell(), Pheap();

void Perror(), Perror3(), Pversion(), Pflist(), Pdelete_history(), Ppause(), Pxpause();

void Ptoplevel();

void Perror(), Perror3(), Pversion(), Pcopyright(), Pflist(), Pdelete_history(), Ppause(), Pxpause();

void Pr2g(), Pread_cmo(), Pwrite_cmo();

void Pgc(),Pbatch(),Psend_progress();

void Pnull_command();

Line 71 void Psleep();

Line 79 void Psleep();

void Premove_module();

void Pmodule_list();

void Pmodule_definedp();

void Ptest();

void delete_history(int,int);

struct ftab misc_tab[] = {

#if !defined(VISUAL)

{"pwd",Pgetcwd,0},

{"chdir",Pchdir,1},

#endif

{"set_secure_mode",Pset_secure_mode,-1},

{"set_secure_flag",Pset_secure_flag,-2},

{"module_list",Pmodule_list,0},

{"remove_module",Premove_module,1},

{"module_definedp",Pmodule_definedp,1},

Line 87 struct ftab misc_tab[] = {

Line 102 struct ftab misc_tab[] = {

{"shell",Pshell,-2},

{"heap",Pheap,-1},

{"version",Pversion,-99999},

{"copyright",Pcopyright,0},

{"nmono",Pnmono,1},

{"toplevel",Ptoplevel,-1},

{"error",Perror,1},

{"error3",Perror3,3},

{"nez",Pnez,1},

Line 110 struct ftab misc_tab[] = {

Line 127 struct ftab misc_tab[] = {

{0,0,0},

};

#if !defined(VISUAL)

void Pgetcwd(STRING *rp)

{

char *r;

char buf[MAXPATHLEN];

getcwd(buf, MAXPATHLEN);

r = (char *)MALLOC_ATOMIC(strlen(buf)+1);

strcpy(r,buf);

MKSTR(*rp,r);

}

void Pchdir(NODE arg, Q *rp)

{

char *dir = BDY((STRING)ARG0(arg));

int status = chdir(dir);

STOQ(status,*rp);

}

#endif

void Pset_secure_mode(NODE arg,Q *rp)

{

int s;

if ( argc(arg) )

setsecuremode(QTOS((Q)ARG0(arg)));

s = getsecuremode();

STOQ(s,*rp);

}

void Pset_secure_flag(NODE arg,Q *rp)

{

int ac,s,status;

Obj f;

char *fname;

ac = argc(arg);

if ( !ac )

error("set_secure_flag : a function name must be specified");

if ( ac == 2 )

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

else

s = 1;

f = ARG0(arg);

if ( !f )

error("set_secure_flag : invalid argument");

switch ( OID(f) ) {

case O_STR:

fname = BDY((STRING)f); break;

case O_P:

fname = NAME(VR((P)f)); break;

default:

error("set_secure_flag : invalid argument"); break;

}

status = setsecureflag(fname,s);

if ( status < 0 )

error("set_secure_flag : function not found");

STOQ(s,*rp);

}

void Ptest(arg,rp)

NODE arg;

Q *rp;

{

int r;

r = equalr(CO,ARG0(arg),ARG1(arg));

STOQ(r,*rp);

}

void Psleep(arg,rp)

NODE arg;

Q *rp;

Line 207 Q *rp;

Line 292 Q *rp;

void Pquit(rp)

pointer *rp;

{

if ( !NEXT(asir_infile) )

if ( asir_infile && NEXT(asir_infile) && asir_infile->ready_for_longjmp )

asir_terminate(2);

LONGJMP(asir_infile->jmpbuf,1);

else {

closecurrentinput();

if ( !asir_infile->fp && strcmp(asir_infile->name,"string") )

asir_terminate(2);

}

*rp = 0;

}

Line 305 Obj *rp;

Line 389 Obj *rp;

}

char *scopyright();

void Pcopyright(rp)

STRING *rp;

{

MKSTR(*rp,scopyright());

}

extern int nez;

void Pnez(arg,rp)

Line 325 Q *rp;

Line 417 Q *rp;

else

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

error(s);

*rp = 0;

}

void Ptoplevel(arg,rp)

NODE arg;

Q *rp;

{

char *s;

if ( !arg || !ARG0(arg) || (OID((Obj)ARG0(arg)) != O_STR) )

s = "";

else

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

toplevel(s);

*rp = 0;

}

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