Show
Ignore:
Timestamp:
10/24/08 21:49:41 (6 years ago)
Author:
kiyoka
Message:

sync from trunk.

Location:
lang/gauche/oldtype/branches/stable/src
Files:
6 modified

Legend:

Unmodified
Added
Removed
  • lang/gauche/oldtype/branches/stable/src

    • Property svn:ignore
      •  

        old new  
        1717Sample2.txt 
        1818Test.no-timeline.sexp 
         19Sample1.rich.txt 
         20Sample2.rich.txt 
  • lang/gauche/oldtype/branches/stable/src/Makefile

    r21138 r22071  
    1212        gosh -I ../Kahua/oldtype ./oldtype_to plain     ../edit/Sample1.ot > Sample1.txt 
    1313        gosh -I ../Kahua/oldtype ./oldtype_to plain     ../edit/Sample2.ot > Sample2.txt 
     14        gosh -I ../Kahua/oldtype ./oldtype_to rich      ../edit/Sample1.ot > Sample1.rich.txt 
     15        gosh -I ../Kahua/oldtype ./oldtype_to rich      ../edit/Sample2.ot > Sample2.rich.txt 
    1416 
    1517test: log.txt Test.ann.txt 
  • lang/gauche/oldtype/branches/stable/src/Test.no-timeline.sexp.master

    r21138 r22071  
    2626  (text) 
    2727  (distribution)) 
    28  (plain "* UnitTest用のサンプルファイル" "----" "*** start" "*** Entry1" "*** Entry2" "*** end" "")) 
     28 (plain "* UnitTest用のサンプルファイル" "----" "*** start" "*** Entry1" "*** Entry2" "*** end" "") 
     29 (rich "<h2>UnitTest用のサンプルファイル" "</h2><hr><h4>start" "</h4><h4>Entry1" "</h4><h4>Entry2" "</h4><h4>end" "</h4>")) 
  • lang/gauche/oldtype/branches/stable/src/Test.sexp.master

    r21138 r22071  
    9999   (13317 6 5 4 3) 
    100100   (13304 2))) 
    101  (plain "* UnitTest用のサンプルファイル" "----" "*** start" "*** Entry1" "*** Entry2" "*** end" "")) 
     101 (plain "* UnitTest用のサンプルファイル" "----" "*** start" "*** Entry1" "*** Entry2" "*** end" "") 
     102 (rich "<h2>UnitTest用のサンプルファイル" "</h2><hr><h4>start" "</h4><h4>Entry1" "</h4><h4>Entry2" "</h4><h4>end" "</h4>")) 
  • lang/gauche/oldtype/branches/stable/src/oldtype_to

    r21138 r22071  
    161161       (let* ( 
    162162              (sxml           (oldtype-parse input-port)) 
    163               (sexp           (oldtype:sxml->plain-text sxml))) 
     163              (sexp           (oldtype:sxml->plain-text sxml #f))) 
     164         (print 
     165          (tree->string 
     166           sexp)))) 
     167      ('rich 
     168       (let* ( 
     169              (sxml           (oldtype-parse input-port)) 
     170              (sexp           (oldtype:sxml->plain-text sxml #t))) 
    164171         (print 
    165172          (tree->string 
  • lang/gauche/oldtype/branches/stable/src/test.scm

    r21138 r22071  
    9191 
    9292      (test "ago string of lineno 1 <oldtype-timeline>" 
    93             "  (4 months ago)"  
     93            "  (7 months ago)"  
    9494            (lambda () 
    9595              (get-ago (log-by-lineno oldtype-timeline 1)))) 
    9696      (test "ago string of lineno 1 <oldtype-page>" 
    97             "  (4 months ago)" 
     97            "  (7 months ago)" 
    9898            (lambda () 
    9999              (get-ago oldtype-page 1))) 
     
    119119      (test "date,ago,rank,committer of lineno 1 <oldtype-page>" 
    120120            '((date  . "2008-03-20 21:36 (+0900)") 
    121               (ago   . "  (4 months ago)") 
     121              (ago   . "  (7 months ago)") 
    122122              (rank  . 5) 
    123123              (committer . "kiyoka"))