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

Diff for /OpenXM_contrib2/asir2000/io/pexpr_body.c between version 1.6 and 1.9

version 1.6, 2004/12/17 03:09:08 version 1.9, 2005/09/28 08:08:34
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.5 2004/12/02 13:48:43 noro Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.8 2005/01/17 07:43:24 saito Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 11  void PRINTR();
Line 11  void PRINTR();
 void PRINTLIST();  void PRINTLIST();
 void PRINTVECT();  void PRINTVECT();
 void PRINTMAT();  void PRINTMAT();
   void PRINTIMAT(); /* IMAT */
 void PRINTSTR();  void PRINTSTR();
 void PRINTCOMP();  void PRINTCOMP();
 void PRINTDP();  void PRINTDP();
Line 60  Obj p;
Line 61  Obj p;
                                 PRINTVECT(vl,(VECT)p); break;                                  PRINTVECT(vl,(VECT)p); break;
                         case O_MAT:                          case O_MAT:
                                 PRINTMAT(vl,(MAT)p); break;                                  PRINTMAT(vl,(MAT)p); break;
   /* IMAT */
                           case O_IMAT:
                                   PRINTIMAT(vl,(IMAT)p); break;
   /* IMAT */
                         case O_STR:                          case O_STR:
                                 PRINTSTR((STRING)p); break;                                  PRINTSTR((STRING)p); break;
                         case O_COMP:                          case O_COMP:
Line 290  MAT mat;
Line 295  MAT mat;
         }          }
 }  }
   
   /* IMAT */
   #if !defined(CPRINT)
   void PRINTIMAT(vl,xmat)
   VL vl;
   IMAT xmat;
   {
           int i,j,c;
           int row, col, cr;
           IMATC Im;
           IENT ent;
   
           row = xmat->row;
           col = xmat->col;
           Im = (pointer)xmat->root;
           if ( xmat->clen == 0 ) {
                   for(j = 0; j< row; j++) {
                           PUTS("( ");
                           for(i = 0; i < col; i++) PUTS("0 ");
                           PUTS(")");
                           if ( j < row - 1 ) PUTS("\n");
                   }
                   return;
           }
           c = -1;
           GetNextIent(&Im, &ent, &c);
           for(j = 0; j < row; j++) {
                   PUTS("( ");
                   for(i = 0; i < col; i++) {
                           cr = j * col + i;
                           if( ent.cr == cr ) {
                                   PRINTEXPR(vl, (pointer)ent.body); PUTS(" ");
                                   GetNextIent(&Im, &ent, &c);
                           } else {
                                   PUTS("0 ");
                           }
                   }
                   PUTS(")");
                   if ( j < row - 1 ) PUTS("\n");
           }
   }
   #endif
   /* IMAT */
   
 void PRINTLIST(vl,list)  void PRINTLIST(vl,list)
 VL vl;  VL vl;
 LIST list;  LIST list;
Line 505  void PRINTFNODE(FNODE f,int paren)
Line 553  void PRINTFNODE(FNODE f,int paren)
                         PRINTFNODE((FNODE)FA1(f),1);                          PRINTFNODE((FNODE)FA1(f),1);
                         PUTS(((ARF)FA0(f))->name);                          PUTS(((ARF)FA0(f))->name);
                         PRINTFNODE((FNODE)FA2(f),1);                          PRINTFNODE((FNODE)FA2(f),1);
                           break;
                   case I_NARYOP:
                           t = (NODE)FA1(f);
                           PRINTFNODE((FNODE)BDY(t),1);
                           for ( t = NEXT(t); t; t = NEXT(t) )     {
                                   PUTS(((ARF)FA0(f))->name);
                                   PRINTFNODE((FNODE)BDY(t),1);
                           }
                         break;                          break;
                 case I_COP:                  case I_COP:
                         switch( (cid)FA0(f) ) {                          switch( (cid)FA0(f) ) {
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>