[BACK]Return to OM2OXM.java CVS log [TXT][DIR] Up to [local] / OpenXM / src / OpenMath

Diff for /OpenXM/src/OpenMath/OM2OXM.java between version 1.16 and 1.23

version 1.16, 2000/01/20 18:14:32 version 1.23, 2000/03/15 15:02:05
Line 1 
Line 1 
 /**  /**
  * $OpenXM: OpenXM/src/OpenMath/OM2OXM.java,v 1.15 2000/01/20 13:58:48 tam Exp $   * $OpenXM: OpenXM/src/OpenMath/OM2OXM.java,v 1.22 2000/03/14 05:38:49 tam Exp $
  *   *
  * $B$3$N%/%i%9$G$O0J2<$N(B BNF $B$GI=$5$l$k9=J82r@O$r<BAu$7$F$$$k(B   * $B$3$N%/%i%9$G$O0J2<$N(B BNF $B$GI=$5$l$k9=J82r@O$r<BAu$7$F$$$k(B
  * expr -> stag [expr | immediate]* etag   * expr -> stag [expr | immediate]* etag
Line 52  final class OM2OXM implements Runnable{
Line 52  final class OM2OXM implements Runnable{
     //$B%5!<%PB&$+$iAw?.$5$l$?J8;zNs$r<u?.$7$^$9!#(B      //$B%5!<%PB&$+$iAw?.$5$l$?J8;zNs$r<u?.$7$^$9!#(B
     try{      try{
       while(true){        while(true){
         CMO tmp;          OXmessage message = asir.receive();
   
         switch(asir.receiveOXtag()){          if(message.getTag() == OpenXM.OX_DATA){
         case OpenXM.OX_COMMAND:            System.out.println("=> "+ CMO2OM((CMO)message.getBody()));
           asir.receiveSM();  
           break;            break;
   
         case OpenXM.OX_DATA:  
           tmp = asir.receiveCMO();  
           System.out.println("=> "+ CMO2OM(tmp));  
           break;  
         }          }
   
       }        }
     }catch(IOException e){}      }catch(IOException e){}
   }    }
Line 77  final class OM2OXM implements Runnable{
Line 70  final class OM2OXM implements Runnable{
     String ret = "";      String ret = "";
   
     switch(cmo.getDISCRIMINATOR()){      switch(cmo.getDISCRIMINATOR()){
     case CMO.CMO_NULL:      case CMO.NULL:
       return "<OMI>0</OMI>";        return "<OMI>0</OMI>";
   
     case CMO.CMO_INT32:      case CMO.INT32:
       return "<OMI>"+ ((CMO_INT32)cmo).intValue() +"</OMI>";        return "<OMI>"+ ((CMO_INT32)cmo).intValue() +"</OMI>";
   
       // case CMO.CMO_DATUM:        // case CMO.DATUM:
   
     case CMO.CMO_STRING:      case CMO.STRING:
       return "<OMSTR>"+ ((CMO_STRING)cmo).getString() +"</OMSTR>";        return "<OMSTR>"+ ((CMO_STRING)cmo).getString() +"</OMSTR>";
   
     case CMO.CMO_LIST:      case CMO.LIST:
       ret += "<OMA><OMS name=\"list\" cd=\"basic\"/>";        ret += "<OMA><OMS name=\"list\" cd=\"basic\"/>";
       {        {
         CMO ob[] = ((CMO_LIST)cmo).getElements();          CMO ob[] = ((CMO_LIST)cmo).getElements();
Line 100  final class OM2OXM implements Runnable{
Line 93  final class OM2OXM implements Runnable{
       ret += "</OMA>";        ret += "</OMA>";
       return ret;        return ret;
   
     case CMO.CMO_MONOMIAL32:      case CMO.MONOMIAL32:
       ret += "<OMA><OMS name=\"Monom\" cd=\"poly\"/>";        ret += "<OMA><OMS name=\"Monom\" cd=\"poly\"/>";
       ret += CMO2OM_sub(((CMO_MONOMIAL32)cmo).getCoefficient());        ret += CMO2OM_sub(((CMO_MONOMIAL32)cmo).getCoefficient());
       for(int i=0;i<((CMO_MONOMIAL32)cmo).getDegree().length;i++){        for(int i=0;i<((CMO_MONOMIAL32)cmo).getDegree().length;i++){
Line 109  final class OM2OXM implements Runnable{
Line 102  final class OM2OXM implements Runnable{
       ret += "</OMA>";        ret += "</OMA>";
       return ret;        return ret;
   
     case CMO.CMO_ZZ:      case CMO.ZZ:
       return "<OMI>"+ ((CMO_ZZ)cmo).BigIntValue() +"</OMI>";        return "<OMI>"+ ((CMO_ZZ)cmo).BigIntValue() +"</OMI>";
   
     case CMO.CMO_QQ:      case CMO.QQ:
       return "<OMA><OMS name=\"over\" cd=\"basic\"/>"+        return "<OMA><OMS name=\"over\" cd=\"basic\"/>"+
         CMO2OM_sub(((CMO_QQ)cmo).getBunshi())+          CMO2OM_sub(((CMO_QQ)cmo).getBunshi())+
         CMO2OM_sub(((CMO_QQ)cmo).getBunbo())+          CMO2OM_sub(((CMO_QQ)cmo).getBunbo())+
         "</OMA>";          "</OMA>";
   
     case CMO.CMO_ZERO:      case CMO.ZERO:
       return "<OMI> 0 </OMI>";        return "<OMI> 0 </OMI>";
   
       // case CMO.CMO_DMS:        // case CMO.DMS:
   
     case CMO.CMO_DMS_GENERIC:      case CMO.DMS_GENERIC:
       ret += "<OMA><OMS name=\"PolyRing\" cd=\"poly\"/>";        ret += "<OMA><OMS name=\"PolyRing\" cd=\"poly\"/>";
       ret += "<OMI>2</OMI></OMA>";        ret += "<OMI>2</OMI></OMA>";
       return ret;        return ret;
   
     case CMO.CMO_RECURSIVE_POLYNOMIAL:      case CMO.RECURSIVE_POLYNOMIAL:
       return CMO2OM_CoefficientOfRecursivePOLYNOMIAL(((CMO_RECURSIVE_POLYNOMIAL)cmo).getPolynomial(),((CMO_RECURSIVE_POLYNOMIAL)cmo).getVariables());        return CMO2OM_CoefficientOfRecursivePOLYNOMIAL(((CMO_RECURSIVE_POLYNOMIAL)cmo).getPolynomial(),((CMO_RECURSIVE_POLYNOMIAL)cmo).getVariables());
   
     case CMO.CMO_DISTRIBUTED_POLYNOMIAL:      case CMO.DISTRIBUTED_POLYNOMIAL:
       ret += "<OMA><OMS name=\"DMP\" cd=\"poly\"/>";        ret += "<OMA><OMS name=\"DMP\" cd=\"poly\"/>";
       ret += CMO2OM_sub(((CMO_DISTRIBUTED_POLYNOMIAL)cmo).getRing());        ret += CMO2OM_sub(((CMO_DISTRIBUTED_POLYNOMIAL)cmo).getRing());
       ret += "<OMA><OMS name=\"SDMP\" cd=\"poly\"/>";        ret += "<OMA><OMS name=\"SDMP\" cd=\"poly\"/>";
Line 142  final class OM2OXM implements Runnable{
Line 135  final class OM2OXM implements Runnable{
       ret += "</OMA></OMA>";        ret += "</OMA></OMA>";
       return ret;        return ret;
   
       //case CMO.CMO_POLYNOMIAL_IN_ONE_VARIABLE:        //case CMO.POLYNOMIAL_IN_ONE_VARIABLE:
   
     case CMO.CMO_BIGFLOAT:      case CMO.BIGFLOAT:
       ret += "<OMA><OMS name=\"times\" cd=\"basic\"/>";        ret += "<OMA><OMS name=\"times\" cd=\"basic\"/>";
       ret += CMO2OM_sub(((CMO_BIGFLOAT)cmo).getSyosubu());        ret += CMO2OM_sub(((CMO_BIGFLOAT)cmo).getSyosubu());
       ret += "<OMA><OMS name=\"power\" cd=\"basic\"/>";        ret += "<OMA><OMS name=\"power\" cd=\"basic\"/>";
Line 153  final class OM2OXM implements Runnable{
Line 146  final class OM2OXM implements Runnable{
       ret += "</OMA></OMA>";        ret += "</OMA></OMA>";
       return ret;        return ret;
   
     case CMO.CMO_INDETERMINATE:      case CMO.INDETERMINATE:
       return "<OMV name=\""+ ((CMO_INDETERMINATE)cmo).getString() +"\"/>";        return "<OMV name=\""+ ((CMO_INDETERMINATE)cmo).getString() +"\"/>";
   
     case CMO.CMO_TREE:      case CMO.TREE:
       ret += "<OMA><OMS name=\""+ ((CMO_TREE)cmo).getName() +"\" cd=\""+        ret += "<OMA><OMS name=\""+ ((CMO_TREE)cmo).getName() +"\" cd=\""+
         ((CMO_TREE)cmo).getCDName() +"\"/>";          ((CMO_TREE)cmo).getCDName() +"\"/>";
       for(int i=0;i<((CMO_TREE)cmo).getLeaves().getElements().length;i++){        for(int i=0;i<((CMO_TREE)cmo).getLeaves().getElements().length;i++){
Line 363  final class OM2OXM implements Runnable{
Line 356  final class OM2OXM implements Runnable{
       if(name.equals("DMP")){        if(name.equals("DMP")){
         ret = parse_symb_DMP();          ret = parse_symb_DMP();
         debug("poly: "+ret);          debug("poly: "+ret);
       }else if(name.equals("list")){  
         ret = parse_objects();  
       }else{        }else{
         ret = new CMO_TREE(name,"Basic",parse_objects());          CMO[] leaves = parse_objects();
   
           if(name.equals("list")){
             ret = new CMO_LIST(leaves);
           }else if(name.equals("over") && leaves.length==2
                    && leaves[0] instanceof CMO_ZZ
                    && leaves[1] instanceof CMO_ZZ){
             ret = new CMO_QQ((CMO_ZZ)leaves[0],(CMO_ZZ)leaves[1]);
           }else{
             ret = new CMO_TREE(name,"basic",new CMO_LIST(leaves));
           }
       }        }
   
       exceptTokenTypeInParse(TT_EndTag);        exceptTokenTypeInParse(TT_EndTag);
Line 374  final class OM2OXM implements Runnable{
Line 375  final class OM2OXM implements Runnable{
         parse_error("We expect '</OMA>'.");          parse_error("We expect '</OMA>'.");
       }        }
     }else{      }else{
       parse_error("???");        parse_error("We expect '<OMI> or '<OMA>' or '<OMV>'.");
       ret = null;        ret = null;
     }      }
   
Line 459  final class OM2OXM implements Runnable{
Line 460  final class OM2OXM implements Runnable{
   
   private CMO_MONOMIAL32 parse_symb_Monom() throws IOException{    private CMO_MONOMIAL32 parse_symb_Monom() throws IOException{
     Vector degree = new Vector();      Vector degree = new Vector();
       CMO coefficient;
     int[] array;      int[] array;
   
     exceptTokenTypeInParse(TT_StartTag);      exceptTokenTypeInParse(TT_StartTag);
Line 470  final class OM2OXM implements Runnable{
Line 472  final class OM2OXM implements Runnable{
       parse_error("We expect '<Monom>'");        parse_error("We expect '<Monom>'");
     }      }
   
       coefficient = parse_object();
       if(!(coefficient instanceof CMO_ZZ
            || coefficient instanceof CMO_QQ
            || coefficient instanceof CMO_INT32
            || coefficient instanceof CMO_ZERO)){
         parse_error("the coefficient of Monomials must be integer or rational.");
       }
   
     while(readNextToken() != TT_EndTag){      while(readNextToken() != TT_EndTag){
       pushbackLex();        pushbackLex();
       degree.addElement(parse_OMI());        degree.addElement(parse_OMI());
Line 479  final class OM2OXM implements Runnable{
Line 489  final class OM2OXM implements Runnable{
       parse_error("We expect '<OMA>'.");        parse_error("We expect '<OMA>'.");
     }      }
   
     array = new int[degree.size()-1];      array = new int[degree.size()];
     for(int i=0;i<array.length;i++){      for(int i=0;i<array.length;i++){
       array[i] = ((CMO_ZZ)degree.elementAt(i+1)).intValue();        array[i] = ((CMO_ZZ)degree.elementAt(i)).intValue();
     }      }
   
     //debug("monom: "+ new CMO_MONOMIAL32(array,(CMO_ZZ)degree.elementAt(0)));      //debug("monom: "+ new CMO_MONOMIAL32(array,coefficient));
     return new CMO_MONOMIAL32(array,(CMO_ZZ)degree.elementAt(0));      return new CMO_MONOMIAL32(array,coefficient);
   }    }
   
   private CMO_LIST parse_objects() throws IOException{    private CMO[] parse_objects() throws IOException{
     // $B2r@O$5$l$?(B object $B$r(B LIST $B$GJV$9(B  
     Vector objects = new Vector();      Vector objects = new Vector();
     CMO[] array;      CMO[] array;
   
Line 504  final class OM2OXM implements Runnable{
Line 513  final class OM2OXM implements Runnable{
     objects.copyInto((Object[])array);      objects.copyInto((Object[])array);
   
     debug("debug :"+ new CMO_LIST(array));      debug("debug :"+ new CMO_LIST(array));
     return new CMO_LIST(array);      return array;
   }    }
   
   private String parse_symbol() throws IOException{    private String parse_symbol() throws IOException{
Line 716  final class OM2OXM implements Runnable{
Line 725  final class OM2OXM implements Runnable{
     String ret;      String ret;
   
     ret = mesg +"\n";      ret = mesg +"\n";
     ret += "error occuered near :";      ret += "error occuered before that :";
     try{      try{
       for(int i=0;i<10;i++){        for(int i=0;i<40;i++){
         ret += (char)is.read();          ret += (char)is.read();
       }        }
     }catch(IOException e){}      }catch(IOException e){}
Line 757  final class OM2OXM implements Runnable{
Line 766  final class OM2OXM implements Runnable{
   
     try{      try{
       asir = new OpenXM(host,CtrlPort,StreamPort);        asir = new OpenXM(host,CtrlPort,StreamPort);
       asir.sendSM(new SM(SM.SM_mathcap));        asir.send(new SM(SM.SM_mathcap));
     }catch(UnknownHostException e){      }catch(UnknownHostException e){
       System.err.println("host unknown.");        System.err.println("host unknown.");
       System.err.println(e.getMessage());        System.err.println(e.getMessage());
Line 767  final class OM2OXM implements Runnable{
Line 776  final class OM2OXM implements Runnable{
       System.err.println("IOException occuer !!");        System.err.println("IOException occuer !!");
       System.err.println(e.getMessage());        System.err.println(e.getMessage());
       return;        return;
       }catch(MathcapViolation e){
         System.err.println("MathcapViolation !!");
         System.err.println(e.getMessage());
         return;
     }      }
   
     P.asir = asir;      P.asir = asir;
Line 781  final class OM2OXM implements Runnable{
Line 794  final class OM2OXM implements Runnable{
         try{          try{
           CMO obj = P.parse(System.in);            CMO obj = P.parse(System.in);
           asir.send(obj);            asir.send(obj);
           asir.sendSM(new SM(SM.SM_popCMO));            asir.send(new SM(SM.SM_popCMO));
         }catch(NumberFormatException e){          }catch(NumberFormatException e){
           System.err.println(e.getMessage());            System.err.println(e.getMessage());
         }catch(MathcapViolation e){          }catch(MathcapViolation e){
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.23
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>