[wadalabfont-kit] / java / LispInputStream.java  

Diff of /java/LispInputStream.java

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:22 2000 UTC version 1.2, Wed Jan 3 02:46:30 2001 UTC
Line 19 
Line 19 
     int token=st.nextToken();      int token=st.nextToken();
     switch(token){      switch(token){
     case StreamTokenizer.TT_NUMBER:      case StreamTokenizer.TT_NUMBER:
       //      System.out.println("Number: "+st.nval+"String:"+st.sval);          System.out.println("Number: "+st.nval+"String:"+st.sval);
       break;        break;
     case StreamTokenizer.TT_WORD:      case StreamTokenizer.TT_WORD:
       //      System.out.println("WORD: "+st.sval);          System.out.println("WORD: "+st.sval);
       break;        break;
     default:      default:
       //      System.out.println("CHARACTER: "+token);          System.out.println("CHARACTER: "+token);
       break;        break;
     }      }
     return token;      return token;
Line 41 
Line 41 
     }      }
   }    }
   public LispObject nextObject() throws IOException{    public LispObject nextObject() throws IOException{
     //    System.out.println("nextObject");      System.out.println("nextObject");
     int token=nextToken();      int token=nextToken();
     //    System.out.println("token="+token);      System.out.println("token="+token);
     switch(token){      switch(token){
     case '(': {      case '(': {
       //      System.out.println("readList");        System.out.println("readList");
       return readList();        return readList();
     }      }
     case '\'': {      case '\'': {
       //      System.out.println("quote");        System.out.println("quote");
       LispObject ret=nextObject();        LispObject ret=nextObject();
       return new Cons(Symbol.quote,new Cons(ret,Symbol.nil));        return new Cons(Symbol.quote,new Cons(ret,Symbol.nil));
     }      }

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help