| version 1.85, 2014/03/30 10:48:16 |
version 1.87, 2015/08/04 06:20:45 |
|
|
| * 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.84 2013/11/29 08:21:29 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.86 2015/03/16 00:08:32 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "al.h" |
#include "al.h" |
| #include "parse.h" |
#include "parse.h" |
| #include "ox.h" |
#include "ox.h" |
| #if defined(PARI) |
|
| #include "genpari.h" |
|
| #endif |
|
| #if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) && !defined(__INTERIX) && !defined(__FreeBSD__) |
#if !defined(VISUAL) && !defined(_PA_RISC1_1) && !defined(linux) && !defined(SYSV) && !defined(__CYGWIN__) && !defined(__INTERIX) && !defined(__FreeBSD__) |
| #include <sgtty.h> |
#include <sgtty.h> |
| #endif |
#endif |
| Line 400 void process_args(int ac,char **av) |
|
| Line 397 void process_args(int ac,char **av) |
|
| } else if ( !strcmp(*av,"-fep") ) { |
} else if ( !strcmp(*av,"-fep") ) { |
| do_fep = 1; av++; ac--; |
do_fep = 1; av++; ac--; |
| #endif |
#endif |
| #if defined(PARI) |
|
| } else if ( !strcmp(*av,"-paristack") ) { |
|
| extern int paristack; |
|
| |
|
| paristack = atoi(*(av+1)); av += 2; ac -= 2; |
|
| #endif |
|
| } else { |
} else { |
| fprintf(stderr,"%s : unknown option.\n",*av); |
fprintf(stderr,"%s : unknown option.\n",*av); |
| asir_terminate(1); |
asir_terminate(1); |
| Line 486 void resetenv(char *s) |
|
| Line 477 void resetenv(char *s) |
|
| w_noflush_stderr(0); |
w_noflush_stderr(0); |
| #endif |
#endif |
| asir_out = stdout; |
asir_out = stdout; |
| #if defined(PARI) |
|
| pari_outfile = stdout; |
|
| #endif |
|
| /* restore states */ |
/* restore states */ |
| reset_engine(); |
reset_engine(); |
| reset_io(); |
reset_io(); |
| Line 742 void error(char *s) |
|
| Line 730 void error(char *s) |
|
| resetenv("return to toplevel"); |
resetenv("return to toplevel"); |
| } |
} |
| |
|
| void toplevel(char *s) |
void goto_toplevel(char *s) |
| { |
{ |
| SNODE *snp=0; |
SNODE *snp=0; |
| |
|
| Line 801 char *get_gcversion() |
|
| Line 789 char *get_gcversion() |
|
| |
|
| char *get_pariversion() |
char *get_pariversion() |
| { |
{ |
| #if PARI |
|
| #if 0 |
|
| return PARIVERSION", Copyright (C) 2000-2005 The PARI Group.\n"; |
|
| #else |
|
| return "PARI 2.0.17, copyright 1989-1999, C. Batut, K. Belabas, D. Bernardi,\n H. Cohen and M. Olivier.\n"; |
|
| #endif |
|
| #endif |
|
| return ""; |
return ""; |
| } |
} |
| |
|
![[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