Changeset 15392 for lang/gauche

Timestamp:

07/07/08 21:18:48 (5 months ago)

Author:

kiyoka

Message:

0.3.0 Released.

Location:

lang/gauche/oldtype/branches/stable

Files:

• Kahua/oldtype/oldtype/dot20.xcf (deleted)
• Kahua/oldtype/oldtype/kahualib.scm (deleted)
• Kahua/oldtype/oldtype/util.kahua (modified) (1 diff)
• Kahua/oldtype/oldtype/version.kahua (modified) (1 diff)
• bin/batch.sh (modified) (1 diff)
• bin/convert.sh (modified) (1 diff)
• bin/ot_RecentChanges (modified) (1 diff)
• command/blog (modified) (4 diffs)

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

@@ -334 +334 @@
        (a/ (@/ (href (string-append (oldtype:static-base-path) "oldtype-mode.el")))
            "[Download oldtype-mode.el now]"))
+
+      ;; input comment
+      ((comment)
+       (form/ (@/ (action "."))
+              (table/
+               (tr/ (th/ "Post a comment"))
+               (tr/ (td/
+                     "Name:"
+                     (input/
+                      (@/ (type "text") (value "") (size 20)))))
+               (tr/ (td/
+                     (textarea/
+                      (@/ (cols 120) (rows 3)))))
+               (tr/ (td/
+                     (input/ (@/ (type "submit") (value "Submit comment"))))))))
+
+      ;; no listing to !RecentChanges
+      ((nolist)
+       (p/ ""))
+
       (else
        `(p/ ,(format "!!Error : no such macro \"~a\"!!" command))))))

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

@@ -7 +7 @@
 
 ;;---------------------------------------------------------
-(define *oldtype-version* "0.2.9")
+(define *oldtype-version* "0.3.0")

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

@@ -30 +30 @@
 function task () {
   ${OT_HOME}/bin/update.sh &&
-  ${OT_HOME}/bin/convert.sh &&
   ${OT_HOME}/bin/ot_AllPages &&
   ${OT_HOME}/bin/ot_RecentChanges &&
   ${OT_HOME}/command/blog &&
+  ${OT_HOME}/bin/convert.sh &&
   ${OT_HOME}/bin/add.sh &&
   ${OT_HOME}/bin/commit.sh
   #run-parts ${OT_HOME}/hook
+  echo -n [info] sleep...
   sleep 5
+  echo wakeup
 }
 

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

@@ -44 +44 @@
 done
 
+function convert_p() {
+  base=$1
+# echo "file is ${base}.ot"
+  echo ${base} | grep "!" > /dev/null
+  generated=$?
+  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=$?
+#    echo status : ${status}
+  else 
+    [ "${base}.ot" -nt ../_out/${base}.sexp ]
+    status=$?
+#    echo status : ${status}
+  fi
+  return $status
+}
+
+
 for f in $filelist;
 do
   base=`basename ${f} .ot`
-  if [ "${base}.ot" -nt ../_out/${base}.sexp ] ; then
+  convert_p ${base}
+  if [ "0" = "$?" ] ; then
       echo "[" ${base} "]"
       _svn t ann "${f}@HEAD" > ../_tmp/tmp.ann

lang/gauche/oldtype/branches/stable/bin/ot_RecentChanges

@@ -20 +20 @@
       eval ${line}
       name=`basename ${name} .ot`
-      echo "- ##(timestamp ${commit_utc}) ##(since ${commit_utc}): [[${name}]] by ([[${commit_author}]])"
+      if `grep '##(nolist)' ${OT_EDITHOME}/edit/${name}.ot > /dev/null` ; then
+        status=0
+      else
+        echo "- ##(timestamp ${commit_utc}) ##(since ${commit_utc}): [[${name}]] by ([[${commit_author}]])"
+      fi
   fi
 done | sort -r | head -${DISPLAY_LINES} >> ${OT_EDITHOME}/edit/!RecentChanges.ot.tmp

lang/gauche/oldtype/branches/stable/command/blog

@@ -22 +22 @@
                            "[.]([0-9]+)")))))
 
-(define (output-blog save-filename entrylist)
+(define (output-blog save-filename entrylist appendix)
   (with-output-to-file save-filename
     (lambda ()
@@ -37 +37 @@
                   (string-append "* [[" (oldtype:otpath->wikiname filename) "]]"))))
              (for-each print (port->string-list (current-input-port))))))
-       entrylist))))
+       entrylist)
+      (display appendix)
+      (newline))))
 
 
@@ -58 +60 @@
                (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")
                     (ot-blog-entrylist))
@@ -68 +71 @@
                     (cons
                      ot-blog-header
-                     (reverse entries)))))
+                     (reverse entries))
+                    "##(nolist)")))
    (oldtype:grouping-blog-entries
     (ot-blog-entrylist)))