[BACK]Return to spexpr.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / io

Annotation of OpenXM_contrib2/asir2000/io/spexpr.c, Revision 1.34

1.3       noro        1: /*
                      2:  * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED
                      3:  * All rights reserved.
                      4:  *
                      5:  * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,
                      6:  * non-exclusive and royalty-free license to use, copy, modify and
                      7:  * redistribute, solely for non-commercial and non-profit purposes, the
                      8:  * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and
                      9:  * conditions of this Agreement. For the avoidance of doubt, you acquire
                     10:  * only a limited right to use the SOFTWARE hereunder, and FLL or any
                     11:  * third party developer retains all rights, including but not limited to
                     12:  * copyrights, in and to the SOFTWARE.
                     13:  *
                     14:  * (1) FLL does not grant you a license in any way for commercial
                     15:  * purposes. You may use the SOFTWARE only for non-commercial and
                     16:  * non-profit purposes only, such as academic, research and internal
                     17:  * business use.
                     18:  * (2) The SOFTWARE is protected by the Copyright Law of Japan and
                     19:  * international copyright treaties. If you make copies of the SOFTWARE,
                     20:  * with or without modification, as permitted hereunder, you shall affix
                     21:  * to all such copies of the SOFTWARE the above copyright notice.
                     22:  * (3) An explicit reference to this SOFTWARE and its copyright owner
                     23:  * shall be made on your publication or presentation in any form of the
                     24:  * results obtained by use of the SOFTWARE.
                     25:  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
1.4       noro       26:  * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
1.3       noro       27:  * for such modification or the source code of the modified part of the
                     28:  * SOFTWARE.
                     29:  *
                     30:  * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL
                     31:  * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND
                     32:  * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS
                     33:  * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'
                     34:  * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY
                     35:  * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.
                     36:  * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,
                     37:  * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY
                     38:  * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL
                     39:  * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES
                     40:  * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES
                     41:  * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY
                     42:  * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF
                     43:  * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART
                     44:  * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
                     45:  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
                     46:  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
1.34    ! noro       47:  * $OpenXM: OpenXM_contrib2/asir2000/io/spexpr.c,v 1.33 2004/05/14 06:02:54 noro Exp $
1.3       noro       48: */
1.1       noro       49: #include "ca.h"
1.2       noro       50: #include "al.h"
1.1       noro       51: #include "parse.h"
                     52: #include "comp.h"
                     53: #include "base.h"
1.26      noro       54:
1.32      noro       55: #ifndef SPRINT
                     56: #define SPRINT
                     57: #endif
                     58:
1.26      noro       59: #if defined(PARI)
1.25      noro       60: #include "genpari.h"
                     61: #endif
1.1       noro       62:
1.23      saito      63: extern int outputstyle;
1.2       noro       64:
1.1       noro       65: static char *buf;
                     66: #define OUT buf
                     67: extern char DFORMAT[BUFSIZ];
1.2       noro       68: extern int hex_output;
                     69: extern int fortran_output;
1.6       noro       70: extern int double_output;
1.10      noro       71: extern int real_digit;
1.26      noro       72: extern int real_binary;
1.14      noro       73: extern int print_quote;
1.32      noro       74: extern int printmode;
                     75: extern int hideargs;
1.22      saito      76:
1.1       noro       77: #define TAIL while ( *OUT ) OUT++;
                     78: #define PUTS(s) strcat(OUT,s)
                     79: #define PRINTF sprintf
                     80: #define PRINTN sprintn
                     81: #define PRINTBF sprintbf
                     82: #define PRINTCPLX sprintcplx
1.2       noro       83: #define PRINTLM sprintlm
                     84: #define PRINTUP2 sprintup2
1.1       noro       85: #define PRINTV sprintv
                     86: #define PRINTEXPR sprintexpr
                     87: #define PRINTNUM sprintnum
1.20      noro       88: #define PRINTP asir_sprintp
1.1       noro       89: #define PRINTR sprintr
                     90: #define PRINTLIST sprintlist
                     91: #define PRINTVECT sprintvect
                     92: #define PRINTMAT sprintmat
                     93: #define PRINTSTR sprintstr
                     94: #define PRINTCOMP sprintcomp
                     95: #define PRINTDP sprintdp
1.2       noro       96: #define PRINTUI sprintui
                     97: #define PRINTGF2MAT sprintgf2mat
                     98: #define PRINTGFMMAT sprintgfmmat
1.5       noro       99: #define PRINTBYTEARRAY sprintbytearray
1.13      noro      100: #define PRINTQUOTE sprintquote
1.34    ! noro      101: #define PRINTQUOTEARG sprintquotearg
1.2       noro      102: #define PRINTERR sprinterr
                    103: #define PRINTLF sprintlf
                    104: #define PRINTLOP sprintlop
                    105: #define PRINTFOP sprintfop
                    106: #define PRINTEOP sprinteop
                    107: #define PRINTQOP sprintqop
                    108: #define PRINTUP sprintup
1.16      noro      109: #define PRINTUM sprintum
                    110: #define PRINTSF sprintsf
1.26      noro      111: #define PRINTSYMBOL sprintsymbol
1.27      noro      112: #define PRINTRANGE sprintrange
1.29      noro      113: #define PRINTTB sprinttb
1.33      noro      114: #define PRINTDPV sprintdpv
1.30      noro      115: #define PRINTFNODE sprintfnode
                    116: #define PRINTFNODENODE sprintfnodenode
                    117: #define PRINTFARGS sprintfargs
1.1       noro      118:
1.32      noro      119: #include "pexpr_body.c"
1.1       noro      120:
1.32      noro      121: /* special functions for string output */
1.1       noro      122:
                    123: void soutput_init(s)
                    124: char *s;
                    125: {
                    126:        s[0] = 0; buf = s;
                    127: }
                    128:
1.21      ohara     129: #if defined(PARI)
1.8       noro      130: void myoutbrute(g)
                    131: GEN g;
                    132: {
1.28      saito     133: # if PARI_VERSION_CODE > 131588
                    134:        brute(g, 'f', -1);
                    135: # else
1.8       noro      136:        bruteall(g,'f',-1,1);
1.28      saito     137: # endif
1.8       noro      138: }
                    139:
1.32      noro      140: void sprintbf(BF a)
1.1       noro      141: {
                    142:        char *str;
1.8       noro      143:        char *GENtostr0();
1.1       noro      144:
1.8       noro      145:        if ( double_output ) {
                    146:                str = GENtostr0(a->body,myoutbrute);
                    147:        } else {
                    148:                str = GENtostr(a->body);
                    149:        }
1.1       noro      150:        TAIL PRINTF(OUT,"%s",str);
                    151:        free(str);
                    152: }
                    153: #endif
                    154:

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