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

Diff for /OpenXM_contrib2/asir2000/io/pexpr.c between version 1.31 and 1.32

version 1.31, 2004/02/27 09:13:04 version 1.32, 2004/03/03 09:25:30
Line 44 
Line 44 
  * 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/pexpr.c,v 1.30 2004/02/13 05:48:36 saito Exp $   * $OpenXM: OpenXM_contrib2/asir2000/io/pexpr.c,v 1.31 2004/02/27 09:13:04 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 110  extern int asir_texmacs;
Line 110  extern int asir_texmacs;
 #define PRINTSF printsf  #define PRINTSF printsf
 #define PRINTSYMBOL printsymbol  #define PRINTSYMBOL printsymbol
 #define PRINTRANGE printrange  #define PRINTRANGE printrange
   #define PRINTTB printtb
 #endif  #endif
   
 #ifdef SPRINT  #ifdef SPRINT
Line 159  extern int print_quote;
Line 160  extern int print_quote;
 #define PRINTSF sprintsf  #define PRINTSF sprintsf
 #define PRINTSYMBOL sprintsymbol  #define PRINTSYMBOL sprintsymbol
 #define PRINTRANGE sprintrange  #define PRINTRANGE sprintrange
   #define PRINTTB sprinttb
 #endif  #endif
   
 void PRINTEXPR();  void PRINTEXPR();
Line 192  void PRINTQOP();
Line 194  void PRINTQOP();
 void PRINTSF();  void PRINTSF();
 void PRINTSYMBOL();  void PRINTSYMBOL();
 void PRINTRANGE();  void PRINTRANGE();
   void PRINTTB();
   
 #ifdef FPRINT  #ifdef FPRINT
 void output_init() {  void output_init() {
Line 314  Obj p;
Line 317  Obj p;
                                 PRINTSYMBOL((SYMBOL)p); break;                                  PRINTSYMBOL((SYMBOL)p); break;
                         case O_RANGE:                          case O_RANGE:
                                 PRINTRANGE(vl,(RANGE)p); break;                                  PRINTRANGE(vl,(RANGE)p); break;
                           case O_TB:
                                   PRINTTB(vl,(TB)p); break;
                         default:                          default:
                                 break;                                  break;
                 }                  }
Line 1204  void PRINTRANGE(VL vl,RANGE p)
Line 1209  void PRINTRANGE(VL vl,RANGE p)
         PUTS(",");          PUTS(",");
         PRINTEXPR(vl,p->end);          PRINTEXPR(vl,p->end);
         PUTS(")");          PUTS(")");
   }
   
   void PRINTTB(VL vl,TB p)
   {
           int i;
   
           for ( i = 0; i < p->next; i++ ) {
                   PUTS(p->body[i]);
           }
 }  }
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>