Changeset 15936 for lang/gauche

Timestamp:

07/17/08 20:54:29 (4 months ago)

Author:

kiyoka

Message:

Fix some bugs.

Location:

lang/gauche/oldtype/trunk

Files:

• bin/convert.sh (modified) (1 diff)
• command/blog (modified) (3 diffs)

lang/gauche/oldtype/trunk/bin/convert.sh

@@ -49 +49 @@
   echo ${base} | grep "!" > /dev/null
   generated=$?
-  if [ "0" = $generated ] ; then
+  if [ "0" = "$generated" ] ; then
     diffs=`_svn t diff ${base}.ot | wc -l | awk '{ print $1; }'`
 #    echo diffs : ${diffs}
     [ "0" != "${diffs}" -o ! -f ../_out/${base}.sexp ]
     status=$?
+
+    ## TODO: fix me ( Must implement !xxxxx.ot contents converttion check )
+    status=0
+
 #    echo status : ${status}
   else 

lang/gauche/oldtype/trunk/command/blog

@@ -2 +2 @@
 
 (use srfi-1)
+(use util.list)
 (use oldtype.util)
 
@@ -36 +37 @@
                  (display 
                   (string-append "* [[" (oldtype:otpath->wikiname filename) "]]"))))
-             (for-each print (port->string-list (current-input-port))))))
+             (for-each
+              (lambda (line)
+                (if (#/##\(comment\)/ line)
+                    (print (string-append "comment please => [[" (oldtype:otpath->wikiname filename) "]]"))
+                    (print line)))
+              (port->string-list (current-input-port))))))
        entrylist)
       (display appendix)
@@ -60 +66 @@
                (cons
                 ot-blog-header
-                (take (ot-blog-entrylist) ot-new-entry-limit))
+                (take* (ot-blog-entrylist) ot-new-entry-limit))
                "")
   (output-blog-list (string-append ot-blog ".list.ot")