Changeset 58

Timestamp:

08/05/04 16:54:09 (21 years ago)

Author:

bmastenbrook

Message:

um, not sure

Location:

trunk/example

Files:

• advice (modified) (1 diff)
• cliki.lisp (modified) (2 diffs)
• specbot.lisp (modified) (1 diff)

trunk/example/advice ¶

@@ -96 +96 @@
  (11964
   . "I guess this just goes to show that you can lead a horse to water, but you can't make him drink it.")
- (11999 . "You are a stupid asshole.  Shut the fuck up."))
+ (11999 . "You are a stupid asshole.  Shut the fuck up.")
+ (12000 . "Looking for a compiler bug is the second-to-last resort. The last resort is blaming bad RAM. It's never the correct hypothesis."))

trunk/example/cliki.lisp ¶

@@ -488 +488 @@
                     (return-from cliki-lookup nil))
                   (or
-                   (let ((strings
-                          (or
-                           (aif
-                            (nth-value 1 (scan-to-strings "^(?i)(direct|tell|show|inform|teach|give)\\s+(\\S+)\\s+(about|on|in|to|through|for|some|)\\s*(.+)$" first-pass))
-                            (cons :forward it))
-                           (aif
-                            (nth-value 1 (scan-to-strings "^(?i)(look\\s+up\\s+|)\\s*(.+)\\s+(for|to|at)\\s+(\\S+)$" first-pass))
-                            (cons :backward it))
-                           )))
-                     (if strings
-                         (let* ((term (case (car strings)
-                                        (:forward (elt (cdr strings) 3))
-                                        (:backward (elt (cdr strings) 1))))
-                                (person (case (car strings)
-                                        (:forward (elt (cdr strings) 1))
-                                        (:backward (elt (cdr strings) 3))))
-                                (person (if (string-equal person "me")
-                                            (or sender channel "you")
-                                            person))
-                                (about (cliki-lookup term :sender sender
-                                                    :channel channel)))
-                           (if about
-                               (format nil "~A: ~A~A"
-                                       person
-                                       (if (scan "http:" about)
-                                           (concatenate 'string
-                                                        (random-element
-                                                         '("have a look at"
-                                                           "please look at"
-                                                           "please see"
-                                                           "direct your attention towards"
-                                                           "look at"))
-                                                        " ")
-                                           "")
-                                       about)
-                               (setf should-send-cant-find nil)))))
+                   
                    (if (string-equal first-pass "help")
                        (if (should-do-lookup first-pass (or channel sender ""))
@@ -576 +541 @@
                      (and strs
                           (lookup-paste (parse-integer (elt strs 0)))))
-                   
+                   (let ((strings
+                          (or
+                           (aif
+                            (nth-value 1 (scan-to-strings "^(?i)(direct|tell|show|inform|teach|give)\\s+(\\S+)\\s+(about|on|in|to|through|for|some|)\\s*(.+)$" first-pass))
+                            (cons :forward it))
+                           (aif
+                            (nth-value 1 (scan-to-strings "^(?i)(look\\s+up\\s+|)\\s*(.+)\\s+(for|to|at)\\s+(\\S+)$" first-pass))
+                            (cons :backward it))
+                           )))
+                     (if strings
+                         (let* ((term (case (car strings)
+                                        (:forward (elt (cdr strings) 3))
+                                        (:backward (elt (cdr strings) 1))))
+                                (person (case (car strings)
+                                        (:forward (elt (cdr strings) 1))
+                                        (:backward (elt (cdr strings) 3))))
+                                (person (if (string-equal person "me")
+                                            (or sender channel "you")
+                                            person))
+                                (about (cliki-lookup term :sender sender
+                                                    :channel channel)))
+                           (if about
+                               (format nil "~A: ~A~A"
+                                       person
+                                       (if (scan "http:" about)
+                                           (concatenate 'string
+                                                        (random-element
+                                                         '("have a look at"
+                                                           "please look at"
+                                                           "please see"
+                                                           "direct your attention towards"
+                                                           "look at"))
+                                                        " ")
+                                           "")
+                                       about)
+                               (setf should-send-cant-find nil)))))
                    (if (scan "^(?i)hello(\\s|$)*" first-pass) "what's up?")
                    (if (scan "^(?i)hi(\\s|$)*" first-pass) "what's up?")

trunk/example/specbot.lisp ¶

@@ -130 +130 @@
                          *default-pathname-defaults*)))))
 
+(defparameter *ppc-file*
+  (merge-pathnames "ppc-assem.lisp-expr"
+                   (make-pathname
+                    :directory
+                    (pathname-directory
+                     (or *load-truename*
+                         *default-pathname-defaults*)))))
+
 (defun start-specbot (nick server &rest channels)
   (add-simple-alist-lookup *754-file* 'ieee754 "ieee754" "Section numbers of IEEE 754")
+  (add-simple-alist-lookup *ppc-file* 'ppc "ppc" "PowerPC assembly mnemonics")
   (setf *nickname* nick)
   (setf *connection* (connect :nickname *nickname* :server server))