| version 1.49, 2004/05/14 09:20:57 |
version 1.52, 2004/12/15 22:51:40 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.48 2004/02/27 09:13:04 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.51 2004/11/24 06:01:04 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "al.h" |
#include "al.h" |
| Line 83 extern FILE *asir_out; |
|
| Line 83 extern FILE *asir_out; |
|
| |
|
| INFILE asir_infile; |
INFILE asir_infile; |
| JMP_BUF main_env,debug_env,timer_env,exec_env; |
JMP_BUF main_env,debug_env,timer_env,exec_env; |
| int little_endian,debug_mode; |
int little_endian,debug_mode,no_debug_on_error; |
| char *asir_libdir; |
char *asir_libdir; |
| char *asir_pager; |
char *asir_pager; |
| |
|
| Line 695 void set_lasterror(char *s) |
|
| Line 695 void set_lasterror(char *s) |
|
| } |
} |
| |
|
| SNODE error_snode; |
SNODE error_snode; |
| |
int error_in_timer; |
| |
|
| void error(char *s) |
void error(char *s) |
| { |
{ |
| SNODE *snp=0; |
SNODE *snp=0; |
| |
|
| #if !defined(VISUAL) |
#if !defined(VISUAL) |
| if ( timer_is_set ) |
if ( !error_in_timer && timer_is_set ) |
| alrm_handler(SIGVTALRM); |
alrm_handler(SIGVTALRM); |
| #endif |
#endif |
| fprintf(stderr,"%s\n",s); |
fprintf(stderr,"%s\n",s); |
| Line 726 void error(char *s) |
|
| Line 727 void error(char *s) |
|
| if ( debug_mode ) |
if ( debug_mode ) |
| LONGJMP(debug_env,1); |
LONGJMP(debug_env,1); |
| if ( CPVS != GPVS ) |
if ( CPVS != GPVS ) |
| if ( do_server_in_X11 || isatty(0) ) |
if ( !no_debug_on_error && (do_server_in_X11 || isatty(0)) ) |
| bp(error_snode); |
bp(error_snode); |
| if ( read_exec_file ) |
if ( read_exec_file ) |
| read_exec_file = 0; |
read_exec_file = 0; |
| Line 809 char *get_intervalversion() |
|
| Line 810 char *get_intervalversion() |
|
| |
|
| void copyright() |
void copyright() |
| { |
{ |
| char *format = "This is Risa/Asir%s, Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2003, Risa/Asir committers, http://www.openxm.org/.\nGC 6.2(alpha6) copyright 1988-2003, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n%s"; |
char *format = "This is Risa/Asir%s, Version %d (%s Distribution).\nCopyright (C) 1994-2000, all rights reserved, FUJITSU LABORATORIES LIMITED.\nCopyright 2000-2004, Risa/Asir committers, http://www.openxm.org/.\nGC 6.2(alpha6) copyright 1988-2003, H-J. Boehm, A. J. Demers, Xerox, SGI, HP.\n%s"; |
| if ( asir_texmacs ) printf("\2verbatim:"); |
if ( asir_texmacs ) printf("\2verbatim:"); |
| printf(format, get_intervalversion(), get_asir_version(), get_asir_distribution(), get_pariversion()); |
printf(format, get_intervalversion(), get_asir_version(), get_asir_distribution(), get_pariversion()); |
| if ( asir_texmacs ) putchar('\5'); |
if ( asir_texmacs ) putchar('\5'); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to glob.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / parse