OpenXM_contrib2/asir2000/parse/glob.c - diff

Return to glob.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/glob.c between version 1.6 and 1.21

version 1.6, 2000/06/05 03:21:58

version 1.21, 2001/08/20 09:03:27

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.5 2000/02/08 04:47:12 noro Exp $ */

* FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,

* non-exclusive and royalty-free license to use, copy, modify and

* redistribute, solely for non-commercial and non-profit purposes, the

* computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and

* conditions of this Agreement. For the avoidance of doubt, you acquire

* only a limited right to use the SOFTWARE hereunder, and FLL or any

* third party developer retains all rights, including but not limited to

* copyrights, in and to the SOFTWARE.

* (1) FLL does not grant you a license in any way for commercial

* purposes. You may use the SOFTWARE only for non-commercial and

* non-profit purposes only, such as academic, research and internal

* business use.

* (2) The SOFTWARE is protected by the Copyright Law of Japan and

* international copyright treaties. If you make copies of the SOFTWARE,

* with or without modification, as permitted hereunder, you shall affix

* to all such copies of the SOFTWARE the above copyright notice.

* (3) An explicit reference to this SOFTWARE and its copyright owner

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

* THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL

* MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND

* EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS

* FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'

* RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY

* MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.

* UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,

* OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY

* DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL

* DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES

* ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES

* FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY

* DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF

* SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.20 2001/06/27 09:14:08 noro Exp $

#include "ca.h"

#include "al.h"

#include "parse.h"

#if PARI

#include "genpari.h"

#endif

#if !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV)

#if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV)

#include <sgtty.h>

#else

#if defined(THINK_C) && !defined(__MWERKS__)

#include <console.h>

#endif

#if defined(VISUAL)

#include <io.h>

#include <direct.h>

#endif

#if defined(SYSV)

#if defined(SYSV) && !defined(_IBMR2)

#include <sys/ttold.h>

#endif

#if defined(THINK_C) || defined(VISUAL)

#if defined(VISUAL)

#define HISTORY asir_history

#else

#define HISTORY "history"

#endif

#define MAXHIST 100

extern int GC_free_space_divisor;

Line 36 extern int GC_free_space_numerator;

Line 77 extern int GC_free_space_numerator;

extern FILE *asir_out;

IN asir_infile;

jmp_buf env,debug_env,timer_env;

jmp_buf main_env,debug_env,timer_env,exec_env;

int little_endian,debug_mode;

char *asir_libdir;

char *asir_pager;

Line 53 FILE *ox_istream,*ox_ostream;

Line 94 FILE *ox_istream,*ox_ostream;

int do_server_in_X11;

Obj LastVal;

char LastError[BUFSIZ];

int timer_is_set;

struct oV oVAR[] = {

{"x",0,0}, {"y",0,0}, {"z",0,0}, {"u",0,0},

{"v",0,0}, {"w",0,0}, {"p",0,0}, {"q",0,0},

Line 89 F F_FALSE = &oF_FALSE;

Line 132 F F_FALSE = &oF_FALSE;

#if defined(__SVR4) && defined(sun)

char cppname[BUFSIZ] = "/usr/ccs/lib/cpp ";

#else

#if defined(__FreeBSD__) || defined(__NetBSD__)

#if defined(__FreeBSD__) || defined(__NetBSD__) || (defined(__MACH__) && defined(__ppc__))

char cppname[BUFSIZ] = "/usr/bin/cpp ";

#else

#if defined(VISUAL)

Line 118 void glob_init() {

Line 161 void glob_init() {

OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;

OID(F_FALSE)=O_F; FOP(F_FALSE)=AL_FALSE; F_FALSE->arg.dummy = 0;

sprintf(asirname,"%s/asir_symtab",asir_libdir);

#if defined(THINK_C)

initVol();

#endif

}

void input_init(fp,name)

Line 140 Obj a,b,*c;

Line 180 Obj a,b,*c;

error("undefined arithmetic operation.");

}

int kernelmode;

int do_asirrc;

int do_file;

int do_message;

Line 166 void ExitAsir() {

Line 205 void ExitAsir() {

void asir_terminate(status)

int status;

{

int t;

if ( read_exec_file ) {

read_exec_file = 0; longjmp(env,status);

t = read_exec_file;

read_exec_file = 0;

if ( t == 1 )

longjmp(main_env,status);

else

longjmp(exec_env,status);

} else {

tty_reset();

#if INET && !defined(THINK_C)

#if MPI

if ( !mpi_myid )

close_allconnections();

mpi_finalize();

#else

#if defined(SIGPIPE)

signal(SIGPIPE,SIG_IGN);

#endif

close_allconnections();

#endif

if ( kernelmode )

fputc(0xff,asir_out);

if ( asir_out )

fflush(asir_out);

#if defined(THINK_C) && !defined(__MWERKS__)

#if FEP

*((int *)0x8) = buserr_sav;

if ( do_fep ) {

while ( NEXT(asir_infile) )

stifle_history(MAXHIST);

closecurrentinput();

write_history(asir_history);

console_options.pause_atexit = 0;

}

resetDir();

write_hist(HISTORY);

#endif

ExitAsir();

}

Line 198 int status;

Line 241 int status;

void param_init() {

unsigned int et = 0xff;

extern int paristack;

#if defined(THINK_C)

char name[BUFSIZ];

int c;

int val;

FILE *fp;

int stacksize;

#include <Memory.h>

GC_free_space_divisor = 4; stacksize = 0x40000;

if ( fp = fopen("params","r") ) {

while ( 1 ) {

c = fgetc(fp);

if ( c == EOF )

break;

else

ungetc(c,fp);

fscanf(fp,"%s %d",name,&val);

if ( !strcmp(name,"stacksize") )

stacksize = val;

else if ( !strcmp(name,"adj") )

GC_free_space_divisor = val;

#if PARI

else if ( !strcmp(name,"paristack") )

paristack = val;

#endif

}

fclose(fp);

}

#if defined(__MWERKS__)

{

Ptr al;

al = LMGetApplLimit();

LMSetApplLimit(al-stacksize);

}

#else

ApplLimit = (Ptr)((char *)ApplLimit-stacksize);

console_options.title = "\pAsir";

#endif

if ( *((char *)&et) )

little_endian = 1;

else

Line 245 void param_init() {

Line 249 void param_init() {

void prompt() {

if ( !no_prompt && !do_fep && asir_infile->fp == stdin )

fprintf(asir_out,"[%d]%c",APVS->n,kernelmode?0xfe:' ');

fprintf(asir_out,"[%d] ",APVS->n);

fflush(asir_out);

}

void sprompt(ptr)

char *ptr;

{

sprintf(ptr,"[%d]%c",APVS->n,kernelmode?0xfe:' ');

sprintf(ptr,"[%d] ",APVS->n);

}

#if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)

static struct tchars tc;

static char oldeof;

struct winsize wsize;

int ttywidth;

char *upperbuf,*lowerbuf;

#endif

FILE *in_fp;

void process_args(ac,av)

int ac;

char **av;

{

#if !defined(THINK_C)

do_asirrc = 1;

#if !MPI

do_message = 1;

Line 299 char **av;

Line 294 char **av;

}

do_file = 1;

av += 2; ac -= 2;

} else if ( !strcmp(*av,"-kernel") ) {

kernelmode = 1; av++; ac--;

} else if ( !strcmp(*av,"-norc") ) {

do_asirrc = 0; av++; ac--;

} else if ( !strcmp(*av,"-nomessage") ) {

do_message = 0; av++; ac--;

} else if ( !strcmp(*av,"-terse") ) {

no_prompt = 0; av++; ac--;

} else if ( !strcmp(*av,"-rootdir") && (ac >= 2) ) {

set_rootdir(*(av+1)); av += 2; ac -= 2;

} else if ( !strcmp(*av,"-maxheap") && (ac >= 2) ) {

void GC_set_max_heap_size(int);

Line 315 char **av;

Line 310 char **av;

} else if ( !strcmp(*av,"-display") && (ac >= 2) ) {

strcpy(displayname,*(av+1)); av += 2; ac -= 2;

#endif

#if FEP

} else if ( !strcmp(*av,"-fep") ) {

do_fep = 1; av++; ac--;

#endif

#if PARI

} else if ( !strcmp(*av,"-paristack") ) {

extern int paristack;

Line 326 char **av;

Line 325 char **av;

asir_terminate(1);

}

#if FEP

if ( do_fep ) {

char *home;

home = (char *)getenv("HOME");

if (!home)

home = ".";

sprintf (asir_history, "%s/.asir_history",home);

read_history(asir_history);

using_history();

}

#endif

#if (defined(THINK_C) && !defined(__MWERKS__))

init_hist(MAXHIST);

read_hist(HISTORY);

#endif

}

#include <signal.h>

Line 355 void sig_init() {

Line 360 void sig_init() {

signal(SIGILL,ill_handler);

#endif

#if defined(THINK_C)

buserr_sav = *((int *)0x8);

*((int *)0x8) = (int)bus_handler;

#else /* THINK_C */

#if !defined(VISUAL)

signal(SIGBUS,bus_handler);

#endif

#if 0

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

signal(SIGWINCH,winch_handler);

#endif

#endif /* THINK_C */

}

static void (*old_int)(int);

Line 411 char *s;

Line 403 char *s;

/* restore states */

reset_engine();

reset_io();

longjmp(env,1);

#if !defined(VISUAL)

reset_timer();

#endif

longjmp(main_env,1);

}

void fatal(n)

Line 435 int sig;

Line 430 int sig;

ox_int_received = 1;

return;

}

#if defined(THINK_C) || defined(VISUAL)

#if defined(VISUAL)

suspend_timer(); signal(SIGINT,SIG_IGN);

suspend_timer();

#endif

#if defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)

signal(SIGINT,SIG_IGN);

#endif

#if !defined(VISUAL)

if ( do_server_in_X11 ) {

debug(PVSS?((VS)BDY(PVSS))->usrf->f.usrf->body:0);

Line 461 int sig;

Line 454 int sig;

char c;

fprintf(stderr,"interrupt ?(q/t/c/d/u/w/?) "); fflush(stderr);

if ( kernelmode )

fputc('\0',stderr);

buf[0] = '\n';

while ( buf[0] == '\n' )

fgets(buf,BUFSIZ,stdin);

Line 494 int sig;

Line 485 int sig;

}

if ( debug_mode )

debug_mode = 0;

if ( kernelmode )

fputc('\0',stderr);

restore_handler();

if ( c == 'u' ) {

if ( registered_handler ) {

Line 519 int sig;

Line 508 int sig;

restore_handler();

return;

case 'c':

if ( kernelmode )

fputc('\0',stderr);

restore_handler();

return; break;

case 'w':

Line 535 int sig;

Line 522 int sig;

}

void restore_handler() {

#if defined(THINK_C) || defined(VISUAL)

#if defined(VISUAL)

resume_timer(); signal(SIGINT,int_handler);

resume_timer();

#endif

#if defined(_PA_RISC1_1) || defined(linux) || defined(__svr4__)

#if defined(SIGINT)

signal(SIGINT,int_handler);

#endif

}

Line 546 void restore_handler() {

Line 533 void restore_handler() {

void segv_handler(sig)

int sig;

{

#if defined(THINK_C) || defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)

#if defined(SIGSEGV)

signal(SIGSEGV,segv_handler);

#endif

error("internal error (SEGV)");

#endif

}

void ill_handler(sig)

int sig;

{

#if defined(THINK_C) || defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)

#if defined(SIGILL)

signal(SIGILL,ill_handler);

#endif

error("illegal instruction (ILL)");

#endif

}

void alrm_handler(sig)

Line 580 int sig;

Line 567 int sig;

void fpe_handler(sig)

int sig;

{

#if defined(THINK_C) || defined(_PA_RISC1_1) || defined(linux) || defined(VISUAL) || defined(__svr4__)

#if defined(SIGFPE)

signal(SIGFPE,fpe_handler);

#endif

error("internal error (FPE)");

}

void winch_handler(sig)

int sig;

{

#if 0

#if !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(__svr4__)

if ( isatty(1) ) {

struct winsize t;

if ( ioctl(1,TIOCGWINSZ,&t) == -1 )

perror("TIOCGWINSZ");

if ( t.ws_col != wsize.ws_col || t.ws_row != wsize.ws_row ) {

resize_buffer();

if ( killpg(getpgrp(0),SIGWINCH) == -1 )

perror("killpg");

}

#endif

}

void pipe_handler(sig)

Line 611 int sig;

Line 578 int sig;

{

#if defined(SIGPIPE)

signal(SIGPIPE,pipe_handler);

end_critical();

error("internal error (BROKEN PIPE)");

#endif

}

void resize_buffer()

{

#if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)

if ( isatty(1) ) {

if ( ioctl(1,TIOCGWINSZ,&wsize) == -1 )

perror("TIOCGWINSZ");

if ( wsize.ws_col > 2 ) {

ttywidth = wsize.ws_col - 2;

upperbuf = (char *)MALLOC(wsize.ws_col);

lowerbuf = (char *)MALLOC(wsize.ws_col);

}

#endif

}

void tty_init() {

#if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)

if ( isatty(0) ) {

if ( ioctl(0,TIOCGETC,&tc) == -1 )

perror("TIOCGETC");

oldeof = tc.t_eofc; tc.t_eofc = 0xff;

if ( ioctl(0,TIOCSETC,&tc) == -1 )

perror("TIOCSETC");

setpgrp(0, getpid());

}

resize_buffer();

#endif

}

void tty_reset() {

#if 0 && !defined(THINK_C) && !defined(VISUAL) && !defined(_PA_RISC1_1)

if ( oldeof ) {

tc.t_eofc = oldeof;

if ( ioctl(0,TIOCSETC,&tc) == -1 )

perror("TIOCSETC");

}

#endif

}

extern int evalstatline;

Line 670 char *s;

Line 609 char *s;

{

SNODE *snp;

#if !defined(VISUAL)

if ( timer_is_set )

alrm_handler(SIGVTALRM);

#endif

fprintf(stderr,"%s\n",s);

set_lasterror(s);

if ( CPVS != GPVS ) {

searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);

if ( CPVS->usrf && CPVS->usrf && CPVS->usrf->f.usrf )

searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);

if ( snp )

error_snode = *snp;

else

Line 712 int interval;

Line 656 int interval;

it.it_value.tv_usec = 0;

setitimer(ITIMER_VIRTUAL,&it,0);

signal(SIGVTALRM,alrm_handler);

timer_is_set = 1;

}

void reset_timer()

Line 724 void reset_timer()

Line 669 void reset_timer()

it.it_value.tv_usec = 0;

setitimer(ITIMER_VIRTUAL,&it,0);

signal(SIGVTALRM,SIG_IGN);

timer_is_set = 0;

}

#endif

unsigned int get_asir_version();

char *get_asir_distribution();

void copyright() {

printf("This is Risa/Asir, Version %d.\n",get_asir_version());

#if defined(INTERVAL)

printf("Copyright (C) FUJITSU LABORATORIES LIMITED.\n");

printf("This is Risa/Asir + Interval Arithmetic, Version %d (%s Distribution).\n",

get_asir_version(), get_asir_distribution());

#else

printf("This is Risa/Asir, Version %d (%s Distribution).\n",

get_asir_version(), get_asir_distribution());

#endif

printf(" C. Batut, K. Belabas, D. Bernardi, H. Cohen and M. Olivier.\n");

}

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