basic101 0.1.0

data/test/integration/test.rb

@@ -0,0 +1,135 @@
+module Integration
+
+  class Test
+
+    BASIC_EXTENSION = '.bas'
+
+    def initialize(basic_path)
+      @basic_path = basic_path
+      create_input
+      create_expected_output
+      @expected_output = read_expected_output
+    end
+
+    def matches_patterns?(patterns)
+      return true if patterns.empty?
+      path = Pathname.new(@basic_path)
+      path = path.relative_path_from(base_path)
+      path.to_s =~ Regexp.union(patterns)
+    end
+
+    def run
+      output_file = OutputFile.new
+      output_file.max_lines = options['max_output_lines']
+      File.open(input_path, 'r') do |input_file|
+        begin
+          program = Basic101::Program.load_file(@basic_path)
+          runtime = Basic101::Runtime.new(:input_file => input_file,
+                                          :output_file => output_file,
+                                          :program => program)
+          runtime.run
+        rescue Error => e
+          output_file.puts_unchecked e
+        rescue Parslet::ParseFailed => e
+          output_file.puts e
+        rescue Basic101::Error => e
+          output_file.puts e
+        rescue Exception => e
+          output_file.puts e, e.backtrace
+        end
+      end
+      @output = output_file.string
+    end
+
+    def print_progress
+      print progress_character
+    end
+
+    def print_failure
+      return if passed?
+      puts
+      puts "Failed: #{File.basename(@basic_path)}"
+      actual_output_file = Tempfile.new(expected_output_filename)
+      actual_output_file.write @output
+      actual_output_file.close
+      command = [
+        'diff',
+        '-u',
+        expected_output_path,
+        actual_output_file.path,
+      ].join(' ')
+      system(command)
+      actual_output_file.unlink
+    end
+
+    def train
+      File.open(expected_output_path, 'w') do |file|
+        file.write @output
+      end
+    end
+    
+    def passed?
+      @output == @expected_output
+    end
+
+    private
+
+    DEFAULT_OPTIONS = {
+      'max_output_lines' => 10_000
+    }
+
+    def base_path
+      Pathname.new(__dir__) + 'tests'
+    end
+
+    def progress_character
+      if passed?
+        '.'
+      else
+        'F'
+      end
+    end
+
+    def create_input
+      FileUtils.touch(input_path)
+    end
+
+    def create_expected_output
+      FileUtils.touch(expected_output_path)
+    end
+
+    def read_expected_output
+      File.read(expected_output_path)
+    end
+
+    def expected_output_filename
+      File.basename(expected_output_path)
+    end
+
+    def input_path
+      path_without_extension + '.input'
+    end
+
+    def expected_output_path
+      path_without_extension + '.output'
+    end
+
+    def options_path
+      path_without_extension + '.options'
+    end
+
+    def options
+      if File.exists?(options_path)
+        YAML.load_file(options_path)
+      else
+        DEFAULT_OPTIONS
+      end
+    end
+
+    def path_without_extension
+      @basic_path.chomp('.bas')
+    end
+
+  end
+
+end

data/test/integration/tests/basic_computer_games/23-match.bas

@@ -0,0 +1,64 @@
+20 PRINT TAB(31);"23 MATCHES"
+30 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+40 PRINT:PRINT:PRINT
+80 PRINT " THIS IS A GAME CALLED '23 MATCHES'."
+90 PRINT
+100 PRINT "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE"
+110 PRINT "MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE"
+120 PRINT "THE LAST MATCH."
+130 PRINT
+140 PRINT "LET'S FLIP A COIN TO SEE WHO GOES FIRST."
+150 PRINT "IF IT COMES UP HEADS, I WILL WIN THE TOSS."
+155 PRINT
+160 REM
+165 N = 23
+170 Q = INT(2*RND(5))
+180 IF Q = 1 THEN 210
+190 PRINT "TAILS! YOU GO FIRST. "
+195 PRINT
+200 GOTO 300
+210 PRINT "HEADS! I WIN! HA! HA!"
+220 PRINT "PREPARE TO LOSE, MEATBALL-NOSE!!"
+230 PRINT
+250 PRINT "I TAKE 2 MATCHES"
+260 N = N -2
+270 PRINT "THE NUMBER OF MATCHES IS NOW" N
+280 PRINT
+290 PRINT "YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES."
+300 PRINT "HOW MANY DO YOU WISH TO REMOVE",
+310 INPUT K
+320 IF K > 3 THEN 430
+330 IF K <= 0 THEN 430
+340 N = N - K
+350 PRINT "THERE ARE NOW";N;"MATCHES REMAINING."
+351 IF N = 4 THEN 381
+352 IF N = 3 THEN 383
+353 IF N = 2 THEN 385
+360 IF N <= 1 THEN  530
+370 Z = 4 - K
+372 GOTO 390
+380 PRINT
+381 Z = 3
+382 GOTO 390
+383 Z = 2
+384 GOTO 390
+385 Z = 1
+390 PRINT "MY TURN ! I REMOVE" Z "MATCHES"
+400 N = N - Z
+410 IF N <= 1 THEN 470
+420 GOTO 270
+430 PRINT "VERY FUNNY! DUMMY!"
+440 PRINT "DO YOU WANT TO PLAY OR GOOF AROUND?"
+450 PRINT "NOW, HOW MANY MATCHES DO YOU WANT",
+460 GOTO 310
+470 PRINT
+480 PRINT"YOU POOR BOOB! YOU TOOK THE LAST MATCH! I GOTCHA!!"
+490 PRINT "HA ! HA ! I BEAT YOU !!!"
+500 PRINT
+510 PRINT "GOOD BYE LOSER!"
+520 GOTO 560
+530 PRINT "YOU WON, FLOPPY EARS !"
+540 PRINT "THINK YOU'RE PRETTY SMART !"
+550 PRINT "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOES OFF !!"
+560 STOP
+570 END

data/test/integration/tests/basic_computer_games/23-match.input

@@ -0,0 +1 @@
+3

data/test/integration/tests/basic_computer_games/23-match.output

@@ -0,0 +1,29 @@
+                               23 MATCHES
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+ THIS IS A GAME CALLED '23 MATCHES'.
+
+WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE
+MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE
+THE LAST MATCH.
+
+LET'S FLIP A COIN TO SEE WHO GOES FIRST.
+IF IT COMES UP HEADS, I WILL WIN THE TOSS.
+
+HEADS! I WIN! HA! HA!
+PREPARE TO LOSE, MEATBALL-NOSE!!
+
+I TAKE 2 MATCHES
+THE NUMBER OF MATCHES IS NOW 21 
+
+YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES.
+HOW MANY DO YOU WISH TO REMOVE            ? 3
+THERE ARE NOW 18 MATCHES REMAINING.
+MY TURN ! I REMOVE 1 MATCHES
+THE NUMBER OF MATCHES IS NOW 17 
+
+YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES.
+HOW MANY DO YOU WISH TO REMOVE            ? 
+Error on line 310: No more input

data/test/integration/tests/basic_computer_games/3dplot.bas

@@ -0,0 +1,17 @@
+1 PRINT TAB(30);"SLOTS"
+2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+3 PRINT: PRINT: PRINT
+5 DEF FNA(Z)=30*EXP(-Z*Z/100)
+100 PRINT
+110 FOR X=-30 TO 30 STEP 1.5
+120 L=0
+130 Y1=5*INT(SQR(900-X*X)/5)
+140 FOR Y=Y1 TO -Y1 STEP -5
+150 Z=INT(25+FNA(SQR(X*X+Y*Y))-.7*Y)
+160 IF Z<=L THEN 190
+170 L=Z
+180 PRINT TAB(Z);"*";
+190 NEXT Y
+200 PRINT
+210 NEXT X
+300 END

data/test/integration/tests/basic_computer_games/3dplot.output

@@ -0,0 +1,47 @@
+                              SLOTS
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+                         *
+                     *   *  *
+                  *  *   *  *   *
+              *   *  *   *  *   *  *
+              *   *  *   *  *   *  *
+              *   *  *   *  *   *  *
+           *  *   *  *   *  *   *  *   *
+           *  *   *   *  *   *  *  *   *
+           *  *   *   *   *  *  *  *   *
+       *   *  *   *    *  *   * *  *   *  *
+       *   *  *    *   *    * *  * *   *  *
+       *   *   *   *     *   *  **  *  *  *
+       *   *   *    *      *    * * *  *  *
+       *   *   *     *       *    * *  *  *
+       *   *   *      *        *      **  *
+       *   *    *       *         *       *
+       *   *    *        *           *       *
+       *   *     *         *            *        *
+       *   *     *          *             *         *
+       *   *     *          *               *         *
+    *  *   *     *           *              *          *
+       *   *     *          *               *         *
+       *   *     *          *             *         *
+       *   *     *         *            *        *
+       *   *    *        *           *       *
+       *   *    *       *         *       *
+       *   *   *      *        *      **  *
+       *   *   *     *       *    * *  *  *
+       *   *   *    *      *    * * *  *  *
+       *   *   *   *     *   *  **  *  *  *
+       *   *  *    *   *    * *  * *   *  *
+       *   *  *   *    *  *   * *  *   *  *
+           *  *   *   *   *  *  *  *   *
+           *  *   *   *  *   *  *  *   *
+           *  *   *  *   *  *   *  *   *
+              *   *  *   *  *   *  *
+              *   *  *   *  *   *  *
+              *   *  *   *  *   *  *
+                  *  *   *  *   *
+                     *   *  *
+                         *

data/test/integration/tests/basic_computer_games/aceyducy.bas

@@ -0,0 +1,100 @@
+10 PRINT TAB(26);"ACEY DUCEY CARD GAME"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+21 PRINT
+22 PRINT
+30 PRINT"ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER "
+40 PRINT"THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP"
+50 PRINT"YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING"
+60 PRINT"ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE"
+70 PRINT"A VALUE BETWEEN THE FIRST TWO."
+80 PRINT"IF YOU DO NOT WANT TO BET, INPUT A 0"
+100 N=100
+110 Q=100
+120 PRINT "YOU NOW HAVE";Q;"DOLLARS."
+130 PRINT
+140 GOTO 260
+210 Q=Q+M
+220 GOTO 120
+240 Q=Q-M
+250 GOTO 120
+260 PRINT"HERE ARE YOUR NEXT TWO CARDS: "
+270 A=INT(14*RND(1))+2
+280 IF A<2 THEN 270
+290 IF A>14 THEN 270
+300 B=INT(14*RND(1))+2
+310 IF B<2 THEN 300
+320 IF B>14 THEN 300
+330 IF A>=B THEN 270
+350 IF A<11 THEN 400
+360 IF A=11 THEN 420
+370 IF A=12 THEN 440
+380 IF A=13 THEN 460
+390 IF A=14 THEN 480
+400 PRINT A
+410 GOTO 500
+420 PRINT"JACK"
+430 GOTO 500
+440 PRINT"QUEEN"
+450 GOTO 500
+460 PRINT"KING"
+470 GOTO 500
+480 PRINT"ACE"
+500 IF B<11 THEN 550
+510 IF B=11 THEN 570
+520 IF B=12 THEN 590
+530 IF B=13 THEN 610
+540 IF B=14 THEN 630
+550 PRINT B
+560 GOTO 650
+570 PRINT"JACK"
+580 GOTO 650
+590 PRINT"QUEEN"
+600 GOTO 650
+610 PRINT"KING"
+620 GOTO 650
+630 PRINT"ACE"
+640 PRINT
+650 PRINT
+660 INPUT"WHAT IS YOUR BET";M
+670 IF M<>0 THEN 680
+675 PRINT"CHICKEN!!"
+676 PRINT
+677 GOTO 260
+680 IF M<=Q THEN 730
+690 PRINT"SORRY, MY FRIEND, BUT YOU BET TOO MUCH."
+700 PRINT"YOU HAVE ONLY ";Q;" DOLLARS TO BET."
+710 GOTO 650
+730 C=INT(14*RND(1))+2
+740 IF C<2 THEN 730
+750 IF C>14 THEN 730
+760 IF C<11 THEN 810
+770 IF C=11 THEN 830
+780 IF C=12 THEN 850
+790 IF C=13 THEN 870
+800 IF C=14 THEN 890
+810 PRINT C
+820 GOTO 910
+830 PRINT"JACK"
+840 GOTO 910
+850 PRINT"QUEEN"
+860 GOTO 910
+870 PRINT"KING"
+880 GOTO 910
+890 PRINT "ACE"
+900 PRINT
+910 IF C>A THEN 930
+920 GOTO 970
+930 IF C>=B THEN 970
+950 PRINT"YOU WIN!!!"
+960 GOTO 210
+970 PRINT"SORRY, YOU LOSE"
+980 IF M<Q THEN 240
+990 PRINT
+1000 PRINT
+1010 PRINT"SORRY, FRIEND, BUT YOU BLEW YOUR WAD."
+1015 PRINT:PRINT
+1020 INPUT"TRY AGAIN (YES OR NO)";A$
+1025 PRINT:PRINT
+1030 IF A$="YES" THEN 110
+1040 PRINT"O.K., HOPE YOU HAD FUN!"
+1050 END

data/test/integration/tests/basic_computer_games/aceyducy.input

@@ -0,0 +1,8 @@
+10
+20
+30
+40
+50
+60
+50
+NO

data/test/integration/tests/basic_computer_games/aceyducy.output

@@ -0,0 +1,78 @@
+                          ACEY DUCEY CARD GAME
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER 
+THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP
+YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING
+ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE
+A VALUE BETWEEN THE FIRST TWO.
+IF YOU DO NOT WANT TO BET, INPUT A 0
+YOU NOW HAVE 100 DOLLARS.
+
+HERE ARE YOUR NEXT TWO CARDS: 
+ 9 
+QUEEN
+
+WHAT IS YOUR BET? 10
+ 10 
+YOU WIN!!!
+YOU NOW HAVE 110 DOLLARS.
+
+HERE ARE YOUR NEXT TWO CARDS: 
+ 9 
+ACE
+
+
+WHAT IS YOUR BET? 20
+ 2 
+SORRY, YOU LOSE
+YOU NOW HAVE 90 DOLLARS.
+
+HERE ARE YOUR NEXT TWO CARDS: 
+ 8 
+QUEEN
+
+WHAT IS YOUR BET? 30
+ 3 
+SORRY, YOU LOSE
+YOU NOW HAVE 60 DOLLARS.
+
+HERE ARE YOUR NEXT TWO CARDS: 
+ 5 
+QUEEN
+
+WHAT IS YOUR BET? 40
+ 8 
+YOU WIN!!!
+YOU NOW HAVE 100 DOLLARS.
+
+HERE ARE YOUR NEXT TWO CARDS: 
+ 10 
+JACK
+
+WHAT IS YOUR BET? 50
+ 7 
+SORRY, YOU LOSE
+YOU NOW HAVE 50 DOLLARS.
+
+HERE ARE YOUR NEXT TWO CARDS: 
+ 8 
+JACK
+
+WHAT IS YOUR BET? 60
+SORRY, MY FRIEND, BUT YOU BET TOO MUCH.
+YOU HAVE ONLY  50  DOLLARS TO BET.
+
+WHAT IS YOUR BET? 50
+ 2 
+SORRY, YOU LOSE
+
+
+SORRY, FRIEND, BUT YOU BLEW YOUR WAD.
+
+
+TRY AGAIN (YES OR NO)? NO
+
+
+O.K., HOPE YOU HAD FUN!

data/test/integration/tests/basic_computer_games/amazing.bas

@@ -0,0 +1,138 @@
+10 PRINT TAB(28);"AMAZING PROGRAM"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT:PRINT
+100 INPUT "WHAT ARE YOUR WIDTH AND LENGTH";H,V
+102 IF H<>1 AND V<>1 THEN 110
+104 PRINT "MEANINGLESS DIMENSIONS.  TRY AGAIN.":GOTO 100
+110 DIM W(H,V),V(H,V)
+120 PRINT
+130 PRINT
+140 PRINT
+150 PRINT
+160 Q=0:Z=0:X=INT(RND(1)*H+1)
+165 FOR I=1 TO H
+170 IF I=X THEN 173
+171 PRINT ".--";:GOTO 180
+173 PRINT ".  ";
+180 NEXT I
+190 PRINT "."
+195 C=1:W(X,1)=C:C=C+1
+200 R=X:S=1:GOTO 260
+210 IF R<>H THEN 240
+215 IF S<>V THEN 230
+220 R=1:S=1:GOTO 250
+230 R=1:S=S+1:GOTO 250
+240 R=R+1
+250 IF W(R,S)=0 THEN 210
+260 IF R-1=0 THEN 530
+265 IF W(R-1,S)<>0 THEN 530
+270 IF S-1=0 THEN 390
+280 IF W(R,S-1)<>0 THEN 390
+290 IF R=H THEN 330
+300 IF W(R+1,S)<>0 THEN 330
+310 X=INT(RND(1)*3+1)
+320 ON X GOTO 790,820,860
+330 IF S<>V THEN 340
+334 IF Z=1 THEN 370
+338 Q=1:GOTO 350
+340 IF W(R,S+1)<>0 THEN 370
+350 X=INT(RND(1)*3+1)
+360 ON X GOTO 790,820,910
+370 X=INT(RND(1)*2+1)
+380 ON X GOTO 790,820
+390 IF R=H THEN 470
+400 IF W(R+1,S)<>0 THEN 470
+405 IF S<>V THEN 420
+410 IF Z=1 THEN 450
+415 Q=1:GOTO 430
+420 IF W(R,S+1)<>0 THEN 450
+430 X=INT(RND(1)*3+1)
+440 ON X GOTO 790,860,910
+450 X=INT(RND(1)*2+1)
+460 ON X GOTO 790,860
+470 IF S<>V THEN 490
+480 IF Z=1 THEN 520
+485 Q=1:GOTO 500
+490 IF W(R,S+1)<>0 THEN 520
+500 X=INT(RND(1)*2+1)
+510 ON X GOTO 790,910
+520 GOTO 790
+530 IF S-1=0 THEN 670
+540 IF W(R,S-1)<>0 THEN 670
+545 IF R=H THEN 610
+547 IF W(R+1,S)<>0 THEN 610
+550 IF S<>V THEN 560
+552 IF Z=1 THEN 590
+554 Q=1:GOTO 570
+560 IF W(R,S+1)<>0 THEN 590
+570 X=INT(RND(1)*3+1)
+580 ON X GOTO 820,860,910
+590 X=INT(RND(1)*2+1)
+600 ON X GOTO 820,860
+610 IF S<>V THEN 630
+620 IF Z=1 THEN 660
+625 Q=1:GOTO 640
+630 IF W(R,S+1)<>0 THEN 660
+640 X=INT(RND(1)*2+1)
+650 ON X GOTO 820,910
+660 GOTO 820
+670 IF R=H THEN 740
+680 IF W(R+1,S)<>0 THEN 740
+685 IF S<>V THEN 700
+690 IF Z=1 THEN 730
+695 Q=1:GOTO 830
+700 IF W(R,S+1)<>0 THEN 730
+710 X=INT(RND(1)*2+1)
+720 ON X GOTO 860,910
+730 GOTO 860
+740 IF S<>V THEN 760
+750 IF Z=1 THEN 780
+755 Q=1:GOTO 770
+760 IF W(R,S+1)<>0 THEN 780
+770 GOTO 910
+780 GOTO 1000
+790 W(R-1,S)=C
+800 C=C+1:V(R-1,S)=2:R=R-1
+810 IF C=H*V+1 THEN 1010
+815 Q=0:GOTO 260
+820 W(R,S-1)=C
+830 C=C+1
+840 V(R,S-1)=1:S=S-1:IF C=H*V+1 THEN 1010
+850 Q=0:GOTO 260
+860 W(R+1,S)=C
+870 C=C+1:IF V(R,S)=0 THEN 880
+875 V(R,S)=3:GOTO 890
+880 V(R,S)=2
+890 R=R+1
+900 IF C=H*V+1 THEN 1010
+905 GOTO 530
+910 IF Q=1 THEN 960
+920 W(R,S+1)=C:C=C+1:IF V(R,S)=0 THEN 940
+930 V(R,S)=3:GOTO 950
+940 V(R,S)=1
+950 S=S+1:IF C=H*V+1 THEN 1010
+955 GOTO 260
+960 Z=1
+970 IF V(R,S)=0 THEN 980
+975 V(R,S)=3:Q=0:GOTO 1000
+980 V(R,S)=1:Q=0:R=1:S=1:GOTO 250
+1000 GOTO 210
+1010 FOR J=1 TO V
+1011 PRINT "I";
+1012 FOR I=1 TO H
+1013 IF V(I,J)<2 THEN 1030
+1020 PRINT "   ";
+1021 GOTO 1040
+1030 PRINT "  I";
+1040 NEXT I
+1041 PRINT
+1043 FOR I=1 TO H
+1045 IF V(I,J)=0 THEN 1060
+1050 IF V(I,J)=2 THEN 1060
+1051 PRINT ":  ";
+1052 GOTO 1070
+1060 PRINT ":--";
+1070 NEXT I
+1071 PRINT "."
+1072 NEXT J
+1073 END

data/test/integration/tests/basic_computer_games/amazing.input

@@ -0,0 +1 @@
+10,10

data/test/integration/tests/basic_computer_games/amazing.output

@@ -0,0 +1,32 @@
+                            AMAZING PROGRAM
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+
+WHAT ARE YOUR WIDTH AND LENGTH? 10,10
+
+
+
+
+.--.--.--.--.--.  .--.--.--.--.
+I        I        I           I
+:  :  :  :  :--:  :--:--:--:  .
+I  I  I        I              I
+:  :--:--:--:  :  :--:--:--:--.
+I  I        I  I  I  I        I
+:  :  :--:  :  :  :  :  :--:  .
+I     I     I  I     I  I     I
+:--:--:  :--:--:--:  :  :--:  .
+I     I     I     I        I  I
+:  :  :--:  :  :--:--:--:  :  .
+I  I     I     I           I  I
+:  :  :--:--:  :  :--:--:--:  .
+I  I  I     I  I  I     I     I
+:  :--:  :  :  :  :  :  :  :  .
+I  I     I     I  I  I     I  I
+:  :  :--:--:--:  :  :--:--:--.
+I  I           I  I           I
+:  :  :--:--:  :  :--:--:--:  .
+I     I        I  I           I
+:--:--:--:--:--:  :--:--:--:--.