rubylabs 0.6.2 → 0.6.4

data/Rakefile

@@ -11,7 +11,7 @@ begin
     gem.email = "conery@cs.uoregon.edu"
     gem.homepage = "http://github.com/conery/rubylabs"
     gem.authors = ["conery"]
-    gem.files = FileList['[A-Z]*', 'lib/**/*.rb', 'data/**', 'bin/**/*.rb']
+    gem.files = FileList['[A-Z]*', 'lib/**/*.rb', 'data/*', 'data/mars/*', 'data/eliza/*', 'bin/**/*.rb']
     gem.test_files = FileList['test/**/*.rb']
     gem.rubyforge_project = "rubylabs"
   end

data/VERSION

@@ -1 +1 @@
-0.6.2
+0.6.4

data/data/eliza/doctor.txt

@@ -0,0 +1,357 @@
+# The "Doctor" script for ELIZA.  These rules follow the general
+# outline of original rules from Joseph Weizenbaum's CACM paper, but
+# there are a few differences.
+
+:start "How do you do. Please tell me your problem."
+:stop "Goodbye."
+
+:default $noncommittal
+
+$noncommittal
+  /.*/
+    "I am not sure I understand you fully."
+    "Please go on."
+    "What does that suggest to you?"
+    "Do you feel strongly about discussing such things?"
+  
+# The preprocessor turns "can't" into "can not", etc.  That means some of the
+# rule patterns look strange (e.g. /why can not i (.*)/) but they match inputs
+# that have contractions and the responses are OK.
+
+:pre don't "do not"
+:pre can't "can not"
+:pre won't "will not"
+:pre i'm "I am"
+:pre you're "you are"
+
+:post me "you"
+:post i "you"
+:post you "I"
+:post am "are"
+:post are "am"
+:post myself "yourself"
+:post yourself "myself"
+:post my "your"
+:post your "my"
+
+sorry 
+  /.*/
+    "Please don't apologize."
+    "Apologies are not necessary."
+    "What feelings do you have when you apologize?"
+    "I've told you that apologies are not required."
+
+remember 5
+  /I remember (.*)/
+    "Do you often think of $1?"
+    "Does thinking of $1 bring anything else to mind?"
+    "What else do you remember?"
+    "Why do you remember $1 just now?"
+    "What is the connection between me and $1?"
+  /do you remember (.*)/ 
+    "Did you think I would forget $1?"
+    "Why do you think I should recall $1 now?"
+    "What about $1?"
+    "You mentioned $1."
+    @$what
+
+if 3 
+  /if (.*)/ 
+    "Do you think its likely that $1?"
+    "Do you wish that $1?"
+    "What do you think about $1?"
+    "Really, if $1?"
+
+:alias $dreamt dreamed dreamt
+$dreamt 4 
+  /I ($dreamt) (.*)/ 
+    "Really, $2?"
+    "Have you ever fantasized $2 while you were awake?"
+    "Have you $1 $2 before?"
+    @$dream
+
+:alias $dream dream dreams
+$dream 3 
+  /.*/ 
+    "What does that dream suggest to you?"
+    "Do you dream often?"
+    "What persons appear in your dreams?"
+    "Don't you believe that dream has something to do with your problem?"
+
+certainly
+  /.*/
+    @yes
+
+perhaps 
+  /.*/
+    "You don't seem quite certain."
+    "Why the uncertain tone?"
+    "Can't you be more positive?"
+    "You aren't sure?"
+    "Don't you know?"
+
+maybe
+  /.*/
+    @perhaps 
+    
+:alias $name name named names
+
+$name 15 
+  /.*/
+    "I am not interested in names."
+    "I've told you before, I don't care about names - please continue."
+
+:alias $language deutsch francais italiano espanol
+$language
+  /($language)/
+    "I'm sorry, I don't speak $1."
+    "I'm sorry, I speak only English."
+
+hello
+  /.*/
+    "How do you do? Please state your problem."
+
+:alias $computer computer computers machine machines
+$computer 50 
+  /(computer|machine)s?/
+    "Do $1s worry you?"
+    "Why do you mention $1s?"
+    "What do you think $1s have to do with your problem?"
+    "Don't you think $1s can help people?"
+    "What about $1s worries you?"
+    "What do you think about $1s?"
+  
+are
+  /are you (.*)/
+    "Why are you interested in whether I am $1 or not?"
+    "Would you prefer if I weren't $1?"
+    "Perhaps I am $1 in your fantasies?"
+    "Do you sometimes think I am $1?"
+    @$what
+  /you are (.*)/
+    "What makes you think I am $1?"
+    "Do you sometimes wish you were $1?"
+    "Perhaps you would like to be $1?"
+  /are (.*)/
+    "Did you think they might not be $1?"
+    "Would you like it if they were not $1?"
+    "What if they were not $1?"
+    "Possibly they are $1?"
+  
+your
+  /your (.*)/
+    "Why are you concerned over my $1?"
+    "What about your own $1?"
+    "Are you worried about someone else's $1?"
+    "Really, my $1?"
+
+was 2 
+  /was i (.*)/
+    "What if you were $1?"
+    "Do you think you were $1?"
+    "Were you $1?"
+    "What would it mean if you were $1?"
+    "What does '$1' suggest to you?"
+    @$what
+  /i was (.*)/
+    "Were you really?"
+    "Why do you tell me you were $1 now?"
+    "Perhaps I already knew you were $1?"
+  
+were
+  /were you (.*)/
+    "Would you like to believe I was $1?"
+    "What suggests that I was $1?"
+    "What do you think?"
+    "Perhaps I was $1?"
+    "What if I had been $1?"
+
+:alias $belief believe feel think wish
+
+i
+  /i (want|need) (.*)/
+    "What would it mean to you if you got $2?"
+    "Why do you $1 $2?"
+    "Suppose you got $2 soon?"
+    "What if you never got $2?"
+    "What would getting $2 mean to you?"
+    "What does $1ing $2 have to do with this discussion?"
+  /i am (.*)(sad|unhappy|depressed|sick)(.*)/
+    "I am sorry to hear you are $2$3."
+    "Do you think coming here will help you not to be $2$3?"
+    "I'm sure its not pleasant to be $2$3."
+    "Can you explain what made you $2$3?"
+  /i am (.*)(happy|elated|glad|better)(.*)/
+    "How have I helped you to be $2$3?"
+    "Has your treatment made you $2$3?"
+    "What makes you $2$3 just now?"
+    "Can you explain why you are suddenly $2$3?"
+  /am i (.*)/
+    "Do you believe you are $1?"
+    "Would you want to be $1?"
+    "You wish I would tell you you are $1?"
+    "What would it mean if you were $1?"
+    @$what
+  /i was/
+    @was
+  /i ($belief) i (.*)/
+    "Do you really think so?"
+    "But you are not sure you $2?"
+    "Do you really doubt you $2"
+  /i .*($belief).* you/
+    @you
+  /i am (.*)/
+    "Is it because you are $1 that you came to me?"
+    "How long have you been $1?"
+    "Do you believe it normal to be $1?"
+    "Do you enjoy being $1?"
+  /i (can not|cannot) (.*)/
+    "How do you know you can't $2?"
+    "Have you tried?"
+    "Perhaps you could $2 now?"
+    "Do you really want to be able to $2?"
+  /can i (.*)/
+    "Whether or not you can $1 depends on you more than on me."
+    "Do you want to be able to $1?"
+    "Perhaps you don't want to $1."
+    @$what
+  /why can not i (.*)/ 
+    "Do you think you should be able to $1?"
+    "Do you want to be able to $1?"
+    "Do you believe this will help you to $1?"
+    "Have you any idea why you can't $1?"
+    @$what
+  /i do not (.*)/
+    "Don't you really $1?"
+    "Why don't you $1?"
+    "Do you wish to be able to $1?"
+    "Does that trouble you?"
+  /i feel (.*)/
+    "Tell me more about such feelings."
+    "Do you often feel $1?"
+    "Do you enjoy feeling $1?"
+    "Of what does feeling $1 remind you?"
+  /i (.*) you/
+    "Perhaps in your fantasy we $1 each other?"
+    "Do you wish to $1 me?"
+    "You seem to need to $1 me."
+    "Do you $1 anyone else?"
+  /(.*)/
+    "You say '$1'?"
+    "Can you elaborate on that?"
+    "Do you say '$1' for some special reason?"
+    "That's quite interesting."
+
+you
+  /you remind me of/
+    @$dit
+  /you (.*) me/
+    "Why do you think I $1 you?"
+    "You like to think I $1 you, don't you?"
+    "What makes you think I $1 you?"
+    "Really, I $1 you?"
+    "Do you wish to believe I $1 you?"
+    "Suppose I did $1 you; what would that mean?"
+    "Does someone else believe I $1 you?"
+  /can you (.*)/
+    "You believe I can $1, don't you?"
+    @$what
+    "You want me to be able to $1?"
+    "Perhaps you would like to be able to $1 yourself?"
+  /why do not you (.*)/
+    "Do you believe I don't $1?"
+    "Perhaps I will $1 in good time."
+    "Should you $1 yourself?"
+    "You want me to $1?"
+    @$what
+  /you (.*)/
+    "We were discussing you, not me."
+    "Oh, I $1?"
+    "You're not really talking about me, are you?"
+    "What are your feelings now?"
+
+yes 
+  /.*/
+    "You seem quite positive."
+    "You are sure?"
+    "I see."
+    "I understand."
+
+no 
+  /.*/
+    "Are you saying 'no' just to be negative?"
+    "You are being a bit negative."
+    "Why not?"
+    "Why 'no'?"
+  
+:alias $family mother mom father dad sister brother wife husband partner child children    
+
+my 2 
+  /my (.*)($family) (.*)/
+    "Tell me more about your family."
+    "Who else in your family $3?"
+    "Your $2?"
+    "What else comes to mind when you think of your $2?"
+  /my (.*)/
+    "Your $1?"
+    "Why do you say your $1?"
+    "Does that suggest anything else which belongs to you?"
+    "Is it important to you that $1?"
+
+:alias $what what how when
+
+$what 
+  /.*/
+    "Why do you ask?"
+    "Does that question interest you?"
+    "What is it you really want to know?"
+    "Are such questions much on your mind?"
+    "What answer would please you most?"
+    "What do you think?"
+    "What comes to your mind when you ask that?"
+    "Have you asked such questions before?"
+    "Have you asked anyone else?"
+
+because 
+  /.*/
+    "Is that the real reason?"
+    "Don't any other reasons come to mind?"
+    "Does that reason seem to explain anything else?"
+    "What other reasons might there be?"
+
+:alias $everyone everyone everybody nobody noone
+
+$everyone 2 
+  /($everyone) (.*)/
+    "Really, $1 $2?"
+    "Surely not $1 $2?"
+    "Can you think of anyone in particular?"
+    "Who, for example?"
+    "You are thinking of a very special person?"
+    "Who, may I ask?"
+    "Someone special perhaps?"
+    "You have a particular person in mind, don't you?"
+    "Who do you think you're talking about?"
+
+always 2 
+  /.*/
+    "Can you think of a specific example?"
+    "When?"
+    "What incident are you thinking of?"
+    "Really, always?"
+
+like 10
+  /(am|is|are|was).*like/
+    @$dit
+
+:alias $dit alike same
+$dit 10
+  /.*/
+  "In what way?"
+  "What resemblance do you see?"
+  "What does that similarity suggest to you?"
+  "What other connections do you see?"
+  "What do you suppose that resemblance means?"
+  "What is the connection, do you suppose?"
+  "Could there really be some connection?"
+  "How?"

data/data/mars/chang1.txt

@@ -0,0 +1,18 @@
+;redcode
+;name Chang1
+;author Morrison J. Chang
+;strategy 2nd place in ICWST'86
+;strategy dwarf, imp-stomper, imp-gun
+;assert 1
+        MOV     #0     ,-1
+        JMP     -1
+        DAT     #9
+START   SPL     -2
+        SPL     4
+        ADD     #-16   ,-3
+        MOV     #0     ,@-4
+        JMP     -4
+        SPL     2
+        JMP     -1
+        MOV     0      ,1
+        END     START

data/data/mars/dwarf.txt

@@ -0,0 +1,11 @@
+;redcode verbose
+;name Dwarf
+;author A. K. Dewdney
+;strategy Throw DAT bombs (as in "fetchez la vache") around memory, hitting every 4th memory cell.
+;strategy This program was presented in the first Corewar article.
+
+vache   DAT #0
+dwarf   ADD #4, vache
+        MOV vache, @vache
+        JMP dwarf
+        end dwarf

data/data/mars/ferret.txt

@@ -0,0 +1,18 @@
+;redcode
+;name Ferret
+;author Robert R. Reed III
+;strategy 1st place in ICWST'87
+;assert 1
+START   MOV     #4908  ,B
+F       CMP     <A     ,<B
+        MOV     S      ,@B
+        CMP     <A     ,<B
+A       MOV     S      ,-5
+        DJN     F      ,B
+K       MOV     W      ,<W
+        DJN     K      ,<W
+        ADD     #3     ,W
+B       JMP     K
+W       DAT     #-10
+S       SPL     0
+        END     START

data/data/mars/imp.txt

@@ -0,0 +1,6 @@
+;redcode
+;name Imp
+;author A. K. Dewdney
+;strategy   This program was presented in the first Corewar article.
+;assert 1
+  mov 0, 1

data/data/mars/mice.txt

@@ -0,0 +1,15 @@
+;redcode
+;name Mice
+;author Chip Wendell
+;strategy 1st place in ICWST'86
+;strategy replicator
+;assert 1
+PTR     DAT             #0
+START   MOV     #12    ,PTR
+LOOP    MOV     @PTR   ,<COPY
+        DJN     LOOP   ,PTR
+        SPL     @COPY  ,0
+        ADD     #653   ,COPY
+        JMZ     START  ,PTR
+COPY    DAT             #833
+        END     START

data/data/mars/midget.txt

@@ -0,0 +1,10 @@
+;redcode
+;name Midget
+;author Chip Wendell
+;strategy 3rd place in ICWST'86
+;assert 1
+START   ADD     #-28   ,3
+        MOV     #0     ,@2
+        JMP     -2
+        DAT     #-980
+        END     START

data/data/mars/piper.txt

@@ -0,0 +1,36 @@
+;redcode
+;name Piper
+;author Chip Wendell
+;strategy 3rd place in ICWST'87
+;strategy vampire -> clear
+;assert 1
+START   ADD     #65    ,BAIT
+LURE    MOV     BAIT   ,@TARGET
+        ADD     #48    ,BAIT
+        SUB     #48    ,TARGET
+        JMN     LURE   ,TARGET
+SET     MOV     #-12   ,PTR
+BOMB    MOV     PTR    ,@PTR
+        DJN     BOMB   ,PTR
+        JMP     SET
+BAIT    JMP     @0
+TARGET  DAT     #-48
+PTR     DAT     #-12
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+        DAT     #0
+TRAP    SPL     0
+        JMP     TRAP
+        END

data/data/mars/plague.txt

@@ -0,0 +1,24 @@
+;redcode
+;name Plague
+;author Ron Paludan
+;strategy 2nd place in ICWST'87
+;assert 1
+       SPL     WIPE
+       SPL     WIPE
+LOOP   ADD     #24    ,PTR
+       JMZ     LOOP   ,@PTR
+       MOV     JBOMB  ,@PTR
+       MOV     SBOMB  ,<PTR
+       ADD     #1     ,PTR
+       JMP     LOOP
+       DAT             #1
+       DAT             #2
+       DAT             #3
+       DAT             #4
+PTR    DAT             #5
+WIPE   MOV     2      ,<2
+       JMP     WIPE
+       DAT             #-16
+JBOMB  JMP     -1
+SBOMB  SPL     0
+       END

data/data/mars/test_celsius.txt

@@ -0,0 +1,20 @@
+;redcode
+;name Celsius
+;strategy   cels = (fahr - 32) * 5 / 9
+
+fahr    DAT #80             ; input temperature
+cels    DAT #0              ; store result here
+ftmp    DAT #0              ; save fahr-32 here
+start   MOV fahr, ftmp      ; (1) subtract 32
+        SUB #32, ftmp
+mult    ADD ftmp, acc       ; (2) multiply by 5
+        SUB #1, count
+        JMN mult, count
+div     SUB #9, acc         ; (3) divide by 9
+        SLT #0, acc
+        DAT #0              ; stop here when division done
+        ADD #1, cels
+        JMP div
+acc     DAT #0              ; accumulator
+count   DAT #5              ; counter
+        end start

data/data/mars/test_div.txt

@@ -0,0 +1,13 @@
+;redcode
+;name div
+;strategy   division demo -- compute 20 / 9
+
+x       DAT #20
+y       DAT #9
+count   DAT #0              ; result goes here
+div     SUB y, x 
+        SLT #0, x
+        DAT #0              ; stop here when division done
+        ADD #1, count
+        JMP div
+        end div

data/data/mars/test_hello.txt

@@ -0,0 +1,7 @@
+; test_hello.txt -- a "hello, world" program for MARS
+
+x       DAT #7
+y       DAT #4
+hello   ADD x, y      ; add the contents of x to y
+        DAT #0        ; a dat instruction halts the machine
+				end hello

data/data/mars/test_mult.txt

@@ -0,0 +1,12 @@
+;redcode
+;name mult
+;strategy   multiplication demo: compute acc = x * y
+
+x       DAT #7            ; multiplicand
+y       DAT #6            ; multiplier
+acc     DAT #0            ; accumulator -- result goes here
+mult    ADD x, acc        ; add x to acc
+        SUB #1, y         ; subtract 1 from y
+        JMN mult, y       ; repeat if y is not 0
+        DAT #0            ; algorithm halts here
+        end mult

data/data/mars/test_threads.txt

@@ -0,0 +1,8 @@
+;redcode
+;name threads
+;strategy launch imps to demonstrate how SPL works
+
+start   SPL imp
+        JMP start
+imp     MOV 0, 1
+        end start

data/lib/bitlab.rb

@@ -584,41 +584,3 @@ class Fixnum
   
 end
 
-=begin rdoc
-  Priority queue class -- simple wrapper for an array that can only be updated via
-  +<<+ and +shift+ operations.  Also responds to +length+, +first+, and +last+, 
-  and allows direct access to an item through an index expression, but does not allow 
-  assignment via an index or any other array operation.
-  The +<<+ method checks to make sure an object is comparable (responds to <) before 
-  adding it to the queue.
-=end
-
-
-# Note: defined outside rubylabs, so it's a top level class -- move to own file, require here?
-
-class PriorityQueue
-  
-  def initialize
-    @q = Array.new
-  end
-  
-  def <<(obj)
-    raise "Object cannot be inserted into priority queue" unless obj.respond_to?(:<)
-    i = 0
-    while (i < @q.length)
-      break if obj < @q[i]
-      i += 1
-    end
-    @q.insert(i, obj)
-  end
-  
-  %w{shift length first last to_s inspect}.each do |name|
-    eval "def #{name}() @q.#{name} end"
-  end
-    
-  def [](i)
-    @q[i]
-  end
-  	    
-end # PriorityQueue
-