Changeset 16056 for lang/gauche

Show
Ignore:
Timestamp:
07/21/08 10:03:35 (5 years ago)
Author:
kiyoka
Message:

0.3.2 pretest

Location:
lang/gauche/oldtype/branches/stable
Files:
7 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/svn.scm

    r15941 r16056  
    3939  (export init 
    4040          commit 
     41          clean 
    4142          status 
    4243          get-fullpath 
    … …  
    122123 
    123124 
     125(define-method clean ((self <svn-work>)) 
     126  ;; mkdir  
     127  (remove-directory* (get-fullpath self)) 
     128  #t) 
     129 
     130 
    124131(define-method save-text-list ((self <svn-work>) wikiname text-list) 
    125132  (with-output-to-file (format "~a/edit/~a.ot" (get-fullpath self) wikiname) 

  • lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/util.kahua

    r15945 r16056  
    387387                                        (begin 
    388388                                          (commit work) 
     389                                          (clean work) 
    389390                                          (set! nodes 
    390391                                                (p/ 

  • lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/version.kahua

    r15941 r16056  
    77 
    88;;--------------------------------------------------------- 
    9 (define *oldtype-version* "0.3.1") 
     9(define *oldtype-version* "0.3.2") 

  • lang/gauche/oldtype/branches/stable/bin/batch.sh

    r15941 r16056  
    2929 
    3030function task () { 
    31   ${OT_HOME}/bin/update.sh && 
     31  force=$1 
     32  echo [[info]] task start 
     33  ${OT_HOME}/bin/update.sh ${force} && 
    3234  ${OT_HOME}/bin/ot_AllPages && 
    3335  ${OT_HOME}/bin/ot_RecentChanges && 
    3436  ${OT_HOME}/command/blog && 
    35   ${OT_HOME}/bin/convert.sh && 
    3637  ${OT_HOME}/bin/add.sh && 
    37   ${OT_HOME}/bin/commit.sh 
     38  ${OT_HOME}/bin/commit.sh && 
     39  ${OT_HOME}/bin/update.sh ${force} && 
     40  ${OT_HOME}/bin/convert.sh 
    3841  #run-parts ${OT_HOME}/hook 
    39   echo -n [info] sleep... 
    40   sleep 1 
     42  echo -n [[info]] sleep... 
     43  sleep 2 
    4144  echo wakeup 
    4245} 
    4346 
     47cnt=0 
    4448while : 
    4549do 
    46   task 
     50  if [ "${cnt}" = "0" ] ; then 
     51    task 1 
     52  else 
     53    task 0 
     54  fi 
     55 
     56  cnt=`expr ${cnt} + 1` 
     57  if [ "${cnt}" -gt "10" ] ; then 
     58    cnt=0 
     59  fi 
    4760done 
    48  
    49  

  • lang/gauche/oldtype/branches/stable/bin/convert.sh

    r15941 r16056  
    1515    if [ "$?" = "0" ] ; then 
    1616        /bin/mv -f ../_out/${base}.sexp.tmp ../_out/${base}.sexp 
     17        /bin/cp -f ${src} ../_out/${base}.ot 
    1718    else 
    1819        exit $? 
    … …  
    4647function convert_p() { 
    4748  base=$1 
    48 # echo "file is ${base}.ot" 
    49   echo ${base} | grep "!" > /dev/null 
    50   generated=$? 
    51   if [ "0" = "$generated" ] ; then 
    52     diffs=`_svn t diff ${base}.ot | wc -l | awk '{ print $1; }'` 
    53 #    echo diffs : ${diffs} 
    54     [ "0" != "${diffs}" -o ! -f ../_out/${base}.sexp ] 
    55     status=$? 
    56  
    57     ## TODO: fix me ( Must implement !xxxxx.ot contents converttion check ) 
     49  status=1 
     50  if [ ! -f "../_out/${base}.ot" ] ; then 
     51    # doesn't exist yet 
    5852    status=0 
    59  
    60 #    echo status : ${status} 
    61   else  
    62     [ "${base}.ot" -nt ../_out/${base}.sexp ] 
    63     status=$? 
    64 #    echo status : ${status} 
     53  else 
     54    diff "${base}.ot" "../_out/${base}.ot" > /dev/null 
     55    if [ "$?" != "0" ] ; then 
     56      # difference exist 
     57      status=0 
     58    fi      
    6559  fi 
    6660  return $status 

  • lang/gauche/oldtype/branches/stable/bin/update.sh

    r13289 r16056  
    2424cd        ${OT_EDITHOME} 
    2525 
     26  prev=`_svn t info   | grep Revision: | awk '{ print $2; }'` 
    2627  _svn t update 
     28  curr=`_svn t info   | grep Revision: | awk '{ print $2; }'` 
    2729 
    2830popd 
     31 
     32if [ "$1" = "1" ] ; then 
     33  echo "[[info]] force update" 
     34  # force option 
     35  status=0 
     36else 
     37  echo "[[info]] revision[$prev]=>[$curr]" 
     38  [ "$prev" != "$curr" ] 
     39  status=$? 
     40fi 
     41exit $status 

  • lang/gauche/oldtype/branches/stable/src/test.scm

    r15941 r16056  
    9191 
    9292      (test "ago string of lineno 1 <oldtype-timeline>" 
    93             "  (3 months ago)"  
     93            "  (4 months ago)"  
    9494            (lambda () 
    9595              (get-ago (log-by-lineno oldtype-timeline 1)))) 
    9696      (test "ago string of lineno 1 <oldtype-page>" 
    97             "  (3 months ago)" 
     97            "  (4 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   . "  (3 months ago)") 
     121              (ago   . "  (4 months ago)") 
    122122              (rank  . 5) 
    123123              (committer . "kiyoka")) 
    … …  
    185185 
    186186      (let1 work 
    187             (make <svn-work> :url "http://genkan.sumibi.org/svn/newtype" :user "anonymous" :pass "anonymous" :basepath "/Users/kiyoka/work/tmp") 
     187            (make <svn-work> :url "http://genkan.sumibi.org/svn/newtype" :user "kahua" :pass "kahua" :basepath "/Users/kiyoka/work/tmp") 
    188188             
    189189            (test "Initialize svn work directory" 
    … …  
    195195                  '("" "") 
    196196                  (lambda () 
    197                     (status work "_kiyoka"))) 
     197                    (begin 
     198                      (display (get-fullpath work)) 
     199                      (newline) 
     200                      (status work "_kiyoka")))) 
    198201 
    199202            (test "status of wikiname (some changes)" 
    … …  
    202205                    (save-text-list work 
    203206                                    "test" 
    204                                     '("UnitTest用ページ。" "----" "##(comment)")) 
     207                                    `("UnitTest用ページ。" ,(number->string (sys-time)))) 
    205208                    (car (status work "test")))) 
    206209             
    … …  
    210213                    #t 
    211214                    (lambda () 
    212                       (commit work))))) 
    213        
     215                      (commit work) 
     216                      (clean work))))) 
    214217      (test-end) 
    215218