Show
Ignore:
Timestamp:
10/31/08 08:15:09 (5 years ago)
Author:
kiyoka
Message:

Added function oldtype:sxml->command-list()

Location:
lang/gauche/oldtype/trunk/src
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/src

    • Property svn:ignore

      •  

        old new  
        1919Sample1.rich.txt 
        2020Sample2.rich.txt 
         21Sample1.commands 
         22Sample2.commands 

  • lang/gauche/oldtype/trunk/src/oldtype_to

    r22008 r22411  
    172172          (tree->string 
    173173           sexp)))) 
     174      ('commands 
     175       (let* ( 
     176              (sxml           (oldtype-parse input-port)) 
     177              (sexp           (oldtype:sxml->command-list sxml))) 
     178         (pretty-print-sexp sexp))) 
    174179      (else 
    175180       (cerr (format "Unsupported type. [~a]" (symbol->string type)))