Changeset 20797

Timestamp:

10/05/08 16:33:05 (5 years ago)

Author:

kiyoka

Message:

Supported <%=a %> and <%isbn_image %> command.

Files:

• lang/gauche/oldtype/trunk/tool/tdiary2oldtype/convertToOT.scm (modified) (2 diffs)

lang/gauche/oldtype/trunk/tool/tdiary2oldtype/convertToOT.scm

@@ -14 +14 @@
     (string-append y "_" m "_" d)))
 
+
+;;
+;; "<%=a 'link|str' %>          =>  [[link|str]]
+;; "<%=isbn_image 'id' %>       =>  ##(amazon id)
+;;
+(define (convert-command str)
+  (let* ((str
+          (regexp-replace-all #/<%=[ ]?a[ ]+'([^|]+)[|]([^']+)'[ ]+%>/ #?=str
+                              (lambda (m)
+                                (string-append "[["
+                                               #?=(rxmatch-substring m 2)
+                                               "|"
+                                               #?=(rxmatch-substring m 1)
+                                               "]]"))))
+         (str
+          (regexp-replace-all #/<%=[ ]?isbn_image[ ]+'([^']+)'[ ]+%>/ #?=str
+                              (lambda (m)
+                                (string-append "##(amazon "
+                                               (rxmatch-substring m 1)
+                                               ")")))))
+    #?=str))
+
+  
 (define (output-oldtype-file username date entry-data)
 
@@ -21 +44 @@
        (when (string? (car lst))
          (begin
-            (display (car lst) port)
-            (newline port)
-            (newline port))))
+           (display (convert-command (car lst)) port)
+           (newline port)
+           (newline port))))
      entry))