Subversion Repositories wimsdev

Rev

Rev 8100 | Rev 8529 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8100 Rev 8120
Line 18... Line 18...
18 
/* Interface gp to wims */
 18 
/* Interface gp to wims */
19 
 
 19 
 
20 
/* This program is now limited to pari version 2.??. */
 20 
/* This program is now limited to pari version 2.??. */
21 
 
 21 
 
22 
/*************** Customization: change values hereafter ****************/
 22 
/*************** Customization: change values hereafter ****************/
- 
 
 23 
#include "common.h"
23 
 
 24 
 
24 
/* gp prompt string */
 25 
/* gp prompt string */
25 
#define gpprompt "\n? "
 26 
#define gpprompt "\n? "
26 
/* This is the good bye string of gp, signaling end of output. */
 27 
/* This is the good bye string of gp, signaling end of output. */
27 
#define goodbyestring "Good bye!"
 28 
#define goodbyestring "Good bye!"
28 
/* This is PARI home page. To be kept up to date. */
 29 
/* This is PARI home page. To be kept up to date. */
29 
#define homepage "http://pari.math.u-bordeaux.fr/"
 30 
#define homepage "http://pari.math.u-bordeaux.fr/"
30 
/* String to tell the program to quit. */
 31 
/* String to tell the program to quit. */
31 
#define quitstring "\nquit\n"
 32 
char *quitstring="\nquit\n";
32 
/* The way to print a string in the program. */
 33 
/* The way to print a string in the program. */
33 
#define stringprinter "print(\"%s\")\n"
 34 
char *stringprinter="print(\"%s\")\n";
34 
/* limit of input/output file sizes */
 35 
/* limit of input/output file sizes */
35 
int fsizelim=131072;
 36 
int fsizelim=131072;
36 
int precision=28; /* default */
 37 
int precision=28; /* default */
37 
 
 38 
 
38 
char *nameofcmd="gp";
 39 
char *nameofcmd="gp";
Line 73... Line 74...
73 
alias(RANDOM,random)\n\
 74 
alias(RANDOM,random)\n\
74 
alias(SOLVE,solve)\n\
 75 
alias(SOLVE,solve)\n\
75 
alias(parirandom,random)\n\
 76 
alias(parirandom,random)\n\
76 
alias(parisolve,solve)\n\
 77 
alias(parisolve,solve)\n\
77 
";
 78 
";
78 
 
 79 
 
79 
struct {
 80 
struct {
80 
    char *wname;    char *defaultval;    char *gpset;
 81 
    char *wname; char *defaultval; char *gpset;
81 
} setups[]={
 82 
} setups[]={
82 
      {"w_pari_precision", "20", "\\p "},
 83 
      {"w_pari_precision", "20", "\\p "},
83 
      {"w_pari_serieslength", "8", "\\ps "}
 84 
      {"w_pari_serieslength", "8", "\\ps "}
84 
};
 85 
};
85 
 
 86 
 
86 
/* names which are not allowed */
 87 
/* names which are not allowed */
87 
char *illegal[]={
 88 
char *illegal[]={
88 
};
 89 
};
- 
 
 90 
 
- 
 
 91 
int illegal_no=(sizeof(illegal)/sizeof(illegal[0]));
89 
 
 92 
 
90 
/* name parts which are not allowed */
 93 
/* name parts which are not allowed */
91 
char *illpart[]={
 94 
char *illpart[]={
92 
    "plot", "write", "help"
 95 
    "plot", "write", "help"
93 
};
 96 
};
94 
 
 97 
 
- 
 
 98 
int illpart_no=(sizeof(illpart)/sizeof(illpart[0]));
- 
 
 99 
 
95 
/***************** Nothing should need change hereafter *****************/
 100 
/***************** Nothing should need change hereafter *****************/
96 
 
 101 
 
97 
#define progname "pari"
 102 
char *progname="pari";
98 
#include "common.h"
 - 
 
99 
#include "common.c"
 - 
 
100 
 
 103 
 
101 
int pariray=0;
 104 
int pariray=0;
102 
 
 105 
 
103 
/* check for security violations in command string */
 106 
/* check for security violations in command string */
104 
void check_parm(char *pm)
 107 
void check_parm(char *pm)