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.21 and 1.34

version 1.21, 2004/02/25 06:43:52

version 1.34, 2015/08/06 10:01:52

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.20 2003/11/11 06:14:08 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.33 2015/03/16 00:08:32 noro Exp $

#include "ca.h"

#include "parse.h"

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

#include <string.h>

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

#include <X11/Xlib.h>

#include <X11/cursorfont.h>

#endif

#if defined(VISUAL)

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

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

Line 80 void Psleep();

void Premove_module();

void Pmodule_list();

void Pmodule_definedp();

void Ptest();

void delete_history(int,int);

void grab_pointer();

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

Line 118 struct ftab misc_tab[] = {

{"hex_dump",Phex_dump,2},

{"peek",Ppeek,1},

{"poke",Ppoke,2},

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

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

{"xpause",Pxpause,0},

#endif

#if 0

Line 113 struct ftab misc_tab[] = {

Line 127 struct ftab misc_tab[] = {

{0,0,0},

};

void Pgetcwd(STRING *rp)

{

char *r;

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

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) || defined(__MINGW32__) || defined(__MINGW64__)

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;

{

int r;

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

STOQ(r,*rp);

}

void Psleep(arg,rp)

NODE arg;

Q *rp;

Line 120 Q *rp;

Line 209 Q *rp;

int ms;

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

#if defined(VISUAL)

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

Sleep(ms);

#else

usleep(ms*1000);

Line 188 NODE arg;

Line 277 NODE arg;

STRING *rp;

{

char *e,*f;

int len;

size_t len;

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

if ( e ) {

Line 210 Q *rp;

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

Line 356 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 278 Q *rp;

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

Line 349 Q *rp;

Line 448 Q *rp;

s = "";

else

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

toplevel(s);

goto_toplevel(s);

*rp = 0;

}

Line 366 Q *rp;

Line 465 Q *rp;

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

reason = BDY((STRING)ARG1(arg));

action = BDY((STRING)ARG2(arg));

#if defined(VISUAL)

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

set_error(code,reason,action);

#endif

error("");

Line 475 Q *rp;

Line 574 Q *rp;

STOQ(ret,*rp);

}

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

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

void Pxpause(rp)

Q *rp;

{

Line 511 init_display()

Line 610 init_display()

rootwin = RootWindow(display,DefaultScreen(display));

}

grab_pointer()

void grab_pointer()

{

XEvent ev;

static Cursor cursor;

Line 532 grab_pointer()

Line 631 grab_pointer()

void Psend_progress(NODE arg,Q *rp)

{

#if defined(VISUAL)

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

short per;

char *msg;

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