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.22 and 1.31

version 1.22, 2004/03/11 09:52:56

version 1.31, 2013/06/13 18:42:11

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.21 2004/02/25 06:43:52 ohara Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.30 2013/06/13 08:11:55 ohara Exp $

#include "ca.h"

#include "parse.h"

#include <string.h>

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

#include <X11/Xlib.h>

#include <X11/cursorfont.h>

#endif

#if defined(VISUAL)

#include <direct.h>

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

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

Line 77 void Ptest();

Line 85 void Ptest();

void delete_history(int,int);

struct ftab misc_tab[] = {

{"pwd",Pgetcwd,0},

{"chdir",Pchdir,1},

{"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 105 struct ftab misc_tab[] = {

Line 117 struct ftab misc_tab[] = {

{"hex_dump",Phex_dump,2},

{"peek",Ppeek,1},

{"poke",Ppoke,2},

{"test",Ptest,2},

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

{"xpause",Pxpause,0},

#endif

Line 115 struct ftab misc_tab[] = {

Line 126 struct ftab misc_tab[] = {

{0,0,0},

};

void Pgetcwd(STRING *rp)

{

char *r;

#if defined(VISUAL)

char buf[_MAX_PATH];

_getcwd(buf, _MAX_PATH);

#else

char buf[MAXPATHLEN];

getcwd(buf, MAXPATHLEN);

#endif

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

#if defined(VISUAL)

int status = _chdir(dir);

#else

int status = chdir(dir);

#endif

STOQ(status,*rp);

}

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;

Line 200 NODE arg;

Line 276 NODE arg;

STRING *rp;

{

char *e,*f;

int len;

size_t len;

e = (char *)getenv(BDY((STRING)ARG0(arg)));

if ( e ) {

Line 222 Q *rp;

Line 298 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 280 void Pheap(arg,rp)

Line 355 void Pheap(arg,rp)

NODE arg;

Q *rp;

{

int h0,h;

size_t h0,h;

unsigned int u,l;

N n;

void GC_expand_hp(int);

h0 = get_heapsize();

Line 290 Q *rp;

Line 367 Q *rp;

GC_expand_hp(h-h0);

}

h = get_heapsize();

STOQ(h,*rp);

if(sizeof(size_t)>sizeof(int)) {

u = h>>(sizeof(int)*CHAR_BIT); l = h&(~0);

if ( !u ) UTOQ(l,*rp);

else {

n = NALLOC(2); PL(n)=2; BD(n)[0] = l; BD(n)[1] = u;

NTOQ(n,1,*rp);

}

}else {

UTOQ(h,*rp);

}

unsigned int get_asir_version();

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