Changeset 20736 for lang/gauche

Show
Ignore:
Timestamp:
10/05/08 01:39:58 (5 years ago)
Author:
kiyoka
Message:
 
Location:
lang/gauche/oldtype/trunk/tool/tdiary2oldtype
Files:
1 added
2 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/tool/tdiary2oldtype/convertToSexp.scm

    r20692 r20736  
    22 
    33(use srfi-1) 
    4  
     4(use srfi-13) 
    55 
    66(define (load-td2 port) 
    … …  
    2929               (string-append 
    3030                (if (#/^Date: / str) 
    31                     (format "( \"~a\" . " (cadr pair)) 
     31                    (format "( \"~a\" " (cadr pair)) 
    3232                    "") 
    3333                (format "(~a . \"~a\")" (car pair) (cadr pair))))) 
    3434        ((= 0 (string-length str)) 
    3535         (reset-body!)) 
    36         ((#/^.$/ str) 
     36        ((#/^[.]$/ str) 
    3737         (string-append (reset-body!) 
    3838                        " )")) 
    3939        (else 
    40          (let1 str (regexp-replace-all #/[\"]/ str "'") 
     40         (let1 str (string-trim 
     41                    (regexp-replace-all #/[\"]/ str "'")) 
    4142               (push-body! str) 
    4243               #f)))) 
    … …  
    4546 
    4647(define (main argv) 
    47   (let1 mode (string->symbol (cadr argv)) 
    48         (print "(") 
    49         (for-each print 
    50                   (load-td2 
    51                    (current-input-port))) 
    52         (print ")"))) 
     48  (print "(") 
     49  (for-each print 
     50            (load-td2 
     51             (current-input-port))) 
     52  (print ")")) 
    5353 
    5454 

  • lang/gauche/oldtype/trunk/tool/tdiary2oldtype/tdiary2oldtype.sh

    r20690 r20736  
    77gosh ./convertToSexp.scm c < tdc.txt > tdc.scm 
    88 
     9#gosh ./convertToSexp.scm d < td2_small.txt > td2.scm 
     10#gosh ./convertToSexp.scm c < tdc_small.txt > tdc.scm 
     11 
     12mkdir -p out 
     13gosh ./convertToOT.scm td2.scm tdc.scm