version 1.26, 2004/02/04 07:42:07 |
version 1.28, 2004/02/13 05:48:36 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* 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/io/spexpr.c,v 1.27 2004/02/09 08:23:30 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 107 int print_quote; |
|
Line 108 int print_quote; |
|
#define PRINTUM printum |
#define PRINTUM printum |
#define PRINTSF printsf |
#define PRINTSF printsf |
#define PRINTSYMBOL printsymbol |
#define PRINTSYMBOL printsymbol |
|
#define PRINTRANGE printrange |
#endif |
#endif |
|
|
#ifdef SPRINT |
#ifdef SPRINT |
Line 155 extern int print_quote; |
|
Line 157 extern int print_quote; |
|
#define PRINTUM sprintum |
#define PRINTUM sprintum |
#define PRINTSF sprintsf |
#define PRINTSF sprintsf |
#define PRINTSYMBOL sprintsymbol |
#define PRINTSYMBOL sprintsymbol |
|
#define PRINTRANGE sprintrange |
#endif |
#endif |
|
|
void PRINTEXPR(); |
void PRINTEXPR(); |
Line 187 void PRINTLOP(); |
|
Line 190 void PRINTLOP(); |
|
void PRINTQOP(); |
void PRINTQOP(); |
void PRINTSF(); |
void PRINTSF(); |
void PRINTSYMBOL(); |
void PRINTSYMBOL(); |
|
void PRINTRANGE(); |
|
|
#ifdef FPRINT |
#ifdef FPRINT |
void output_init() { |
void output_init() { |
|
|
void myoutbrute(g) |
void myoutbrute(g) |
GEN g; |
GEN g; |
{ |
{ |
|
# if PARI_VERSION_CODE > 131588 |
|
brute(g, 'f', -1); |
|
# else |
bruteall(g,'f',-1,1); |
bruteall(g,'f',-1,1); |
|
# endif |
} |
} |
|
|
void sprintbf(a) |
void sprintbf(a) |
|
|
case O_QUOTE: |
case O_QUOTE: |
PRINTQUOTE(vl,(QUOTE)p); break; |
PRINTQUOTE(vl,(QUOTE)p); break; |
case O_SYMBOL: |
case O_SYMBOL: |
PRINTSYMBOL((Symbol)p); break; |
PRINTSYMBOL((SYMBOL)p); break; |
|
case O_RANGE: |
|
PRINTRANGE(vl,(RANGE)p); break; |
default: |
default: |
break; |
break; |
} |
} |
Line 1176 unsigned int i; |
|
Line 1186 unsigned int i; |
|
} |
} |
} |
} |
|
|
void PRINTSYMBOL(Symbol p) |
void PRINTSYMBOL(SYMBOL sym) |
{ |
{ |
PUTS(p->name); |
PUTS(sym->name); |
|
} |
|
|
|
void PRINTRANGE(VL vl,RANGE p) |
|
{ |
|
PUTS("range("); |
|
PRINTEXPR(vl,p->start); |
|
PUTS(","); |
|
PRINTEXPR(vl,p->end); |
|
PUTS(")"); |
} |
} |