Changeset 110

Timestamp:

10/13/05 18:22:38 (19 years ago)

Author:

lisppaste

Message:

For bmastenbrook: Steel Bazooka Common Lisp!

Location:

trunk/example

Files:

• cliki-bot.asd (modified) (1 diff)
• cliki.lisp (modified) (1 diff)
• steel-bazooka.lisp (added)
• words (added)

trunk/example/cliki-bot.asd ¶

@@ -29 +29 @@
                  (:file "eliza-rules"
                         :depends-on ("mp2eliza"))
+                 (:file "steel-bazooka")
                  (:file "cliki"
-                        :depends-on ("mp2eliza"))))
+                        :depends-on ("mp2eliza" "steel-bazooka"))))

trunk/example/cliki.lisp ¶

@@ -676 +676 @@
                      (and str
                           (lookup-advice (elt str 0))))
+                   (let ((str (nth-value 1 (scan-to-strings "^(?i)what\\s+does\\s+([a-zA-Z]+)\\s+(mean|stand\\s+for)$" first-pass))))
+                     (and str
+                          (let ((letters (elt str 0)))
+                            (if (and (> (length letters) 2)
+                                     (string-equal (subseq letters (- (length letters) 2)) "cl"))
+                                (steel-bazooka:steel-whatever :letters (string-downcase (subseq letters 0 (- (length letters) 2))))
+                                (steel-bazooka:steel-whatever :letters (string-downcase letters) :suffix nil)))))
                    (let ((str (nth-value 1 (scan-to-strings "^(?i)shorten\\s+(\\w+://.+\\S)\\s*$" term-with-question))))
                      (and str