basic101 0.1.0 → 0.2.0

data/lib/basic101/parser/data_statement.rb

@@ -0,0 +1,20 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:data_statement) do
+      str('DATA') >>
+        (space? >> data_item >> 
+         (space? >> str(',') >>
+          space? >> data_item
+          ).repeat(0)
+         ).as(:data_items)
+    end
+
+    rule(:data_item) do
+      float | integer | quoted_string | unquoted_string
+    end
+
+  end
+
+end

data/lib/basic101/parser/define_function_statement.rb

@@ -0,0 +1,18 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:define_function_statement) do
+      str('DEF').as(:def) >>
+        space? >> user_defined_function_identifier.as(:identifier) >>
+        (space? >> str('(') >>
+         space? >> scalar_reference_list >>
+         space? >> str(')')
+         ).as(:parameters) >>
+        space? >> str('=') >>
+        space? >> expression.as(:expression)
+    end
+
+  end
+
+end

data/lib/basic101/parser/dim_statement.rb

@@ -0,0 +1,16 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:dim_statement) do
+      str('DIM').as(:dim) >>
+        (space? >> array_reference >>
+         (space? >> str(',') >>
+          space? >> array_reference
+          ).repeat(0)
+         ).as(:references)
+    end
+
+  end
+
+end

data/lib/basic101/parser/end_statement.rb

@@ -0,0 +1,11 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:end_statement) do
+      str('END').as(:end)
+    end
+
+  end
+
+end

data/lib/basic101/parser/expression.rb

@@ -0,0 +1,100 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:multiply_op) do
+      (str('*').as(:multiply) |
+       str('/').as(:divide))
+    end
+
+    rule(:addition_op) do
+      (str('+').as(:add) |
+       str('-').as(:subtract))
+    end
+
+    rule(:comparison_op) do
+      (str('=').as(:eq) |
+       str('<>').as(:ne) |
+       str('>=').as(:ge) |
+       str('<=').as(:le)) |
+        str('<').as(:lt) |
+        str('>').as(:gt)
+    end
+
+    rule(:and_op) do
+      str('AND').as(:and)
+    end
+
+    rule(:or_op) do
+      str('OR').as(:or)
+    end
+
+    rule(:factor) do
+      quoted_string |
+        float |
+        integer |
+        function_call |
+        reference |
+        str('(') >> space? >> expression >> space? >> str(')')
+    end
+
+    rule(:power) do
+      (factor.as(:left) >>
+       space? >> str('^').as(:power) >>
+       space? >> power.as(:right)) |
+        factor
+    end
+
+    rule(:negation) do
+      (str('-') >>
+       space? >> power).as(:negation) |
+        power
+    end
+
+    rule(:term) do
+      negation.as(:left) >>
+        (space? >> multiply_op.as(:operator) >>
+         space? >> negation.as(:right)
+         ).repeat(1).as(:operations).maybe
+    end
+
+    rule(:simple_expression) do
+      term.as(:left) >>
+        (space? >> addition_op.as(:operator) >>
+         space? >> term.as(:right)
+         ).repeat(1).as(:operations).maybe
+    end
+
+    rule(:comparison_expression) do
+      simple_expression.as(:left) >>
+        (space? >> comparison_op.as(:operator) >>
+         space? >> simple_expression.as(:right)
+         ).repeat(1).as(:operations).maybe
+    end
+
+    rule(:not_expression) do
+      (str('NOT') >> space? >> comparison_expression).as(:not) |
+        comparison_expression
+    end
+
+    rule(:and_expression) do
+      not_expression.as(:left) >>
+        (space? >> and_op.as(:operator) >>
+         space? >> not_expression.as(:right)
+         ).repeat(1).as(:operations).maybe
+    end
+
+    rule(:or_expression) do
+      and_expression.as(:left) >>
+        (space? >> or_op.as(:operator) >>
+         space? >> and_expression.as(:right)
+         ).repeat(1).as(:operations).maybe
+    end
+
+    rule(:expression) do
+      or_expression
+    end
+
+  end
+
+end

data/lib/basic101/parser/for_statement.rb

@@ -0,0 +1,17 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:for_statement) do
+      str('FOR') >>
+        space? >> scalar_reference.as(:reference) >>
+        space? >> str('=') >>
+        space? >> expression.as(:from) >>
+        space? >> str('TO') >>
+        space? >> expression.as(:to) >>
+        (space? >> str('STEP') >> space? >> expression).maybe.as(:step)
+    end
+
+  end
+
+end

data/lib/basic101/parser/function_call.rb

@@ -0,0 +1,13 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:function_call) do
+      function_identifier.as(:function_identifier) >> space? >> 
+        str('(') >> space? >> argument_list.as(:argument_list) >>
+        space? >> str(')')
+    end
+
+  end
+
+end

data/lib/basic101/parser/gosub_statement.rb

@@ -0,0 +1,12 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:gosub_statement) do
+      str('GOSUB').as(:gosub) >>
+        space? >> integer.as(:line_number)
+    end
+
+  end
+
+end

data/lib/basic101/parser/goto_statement.rb

@@ -0,0 +1,11 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:goto_statement) do
+      str('GOTO').as(:goto) >> space? >> integer
+    end
+
+  end
+
+end

data/lib/basic101/parser/identifier.rb

@@ -0,0 +1,87 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:identifier) do
+      string_identifier | numeric_identifier
+    end
+
+    rule(:numeric_identifier) do
+      base_identifier.as(:numeric_identifier)
+    end
+
+    rule(:string_identifier) do
+      (base_identifier >> str('$')).as(:string_identifier)
+    end
+
+    rule(:function_identifier) do
+      user_defined_function_identifier | 
+        built_in_function_identifier
+    end
+
+    rule(:user_defined_function_identifier) do
+      (str('FN') >> base_identifier >>
+       str('$').maybe).as(:function_identifier)
+    end
+
+    rule(:built_in_function_identifier) do
+      (str('ABS') |
+       str('ASC') |
+       str('CHR$') |
+       str('COS') |
+       str('EXP') |
+       str('INT') |
+       str('LEFT$') |
+       str('LEN') |
+       str('LOG') |
+       str('MID$') |
+       str('RIGHT$') |
+       str('RND') |
+       str('SGN') |
+       str('SIN') |
+       str('SQR') |
+       str('STR$') |
+       str('TAB') |
+       str('TAN') |
+       str('VAL')).as(:function_identifier)
+    end
+
+    rule(:base_identifier) do
+      (keyword.absent? >> match('[A-Z]')) >>
+        (keyword.absent? >> match('[A-Z0-9]')).repeat(0)
+    end
+
+    rule(:keyword) do
+      str('AND') |
+        str('DATA') |
+        str('DEF') |
+        str('DIM') |
+        str('ELSE') |
+        str('ELSE') |
+        str('END') |
+        str('FOR') |
+        str('GOSUB') |
+        str('GOTO') |
+        str('GOTO') |
+        str('IF') |
+        str('INPUT') |
+        str('LET') |
+        str('NEXT') |
+        str('NOT') |
+        str('ON') |
+        str('OR') |
+        str('PRINT') |
+        str('RANDOMIZE') |
+        str('READ') |
+        str('REM') |
+        str('RESTORE') |
+        str('RETURN') |
+        str('STEP') |
+        str('STOP') |
+        str('THEN') |
+        str('TO')
+    end
+
+  end
+
+end

data/lib/basic101/parser/if_statement.rb

@@ -0,0 +1,20 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:if_statement) do
+      str('IF').as(:if) >>
+        space? >> expression.as(:condition) >> 
+        (space? >> str('THEN')).maybe >>
+        space? >> if_block.as(:then_block) >>
+        (space? >> str('ELSE') >> space? >> if_block).maybe.as(:else_block)
+    end
+
+    rule(:if_block) do
+      (integer.as(:if_line_number) |
+       statements)
+    end
+
+  end
+
+end

data/lib/basic101/parser/input_statement.rb

@@ -0,0 +1,19 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:input_statement) do
+      str('INPUT').as(:input) >>
+        (space? >> quoted_string.as(:prompt) >>
+         space? >> prompt_delimeter.as(:prompt_delimeter)).maybe >>
+        space? >> reference_list.as(:references)
+    end
+
+    rule(:prompt_delimeter) do
+      str(';').as(:prompt_delimeter) |
+        str(',').as(:null_prompt_delimeter)
+    end
+
+  end
+
+end

data/lib/basic101/parser/let_statement.rb

@@ -0,0 +1,13 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:let_statement) do
+      (str('LET') >> space?).maybe >>
+        reference.as(:lvalue) >> space? >> 
+        str('=') >> space? >> expression.as(:rvalue)
+    end
+
+  end
+
+end

data/lib/basic101/parser/next_statement.rb

@@ -0,0 +1,16 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:next_statement) do
+      str('NEXT').as(:next) >>
+        (space? >> reference >>
+         (space? >> str(',') >>
+          space? >> reference
+          ).repeat(0)
+         ).maybe.as(:references)
+    end
+
+  end
+
+end

data/lib/basic101/parser/numeric.rb

@@ -0,0 +1,34 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:float) do
+      (fixed >> exponent.maybe |
+       sign.maybe >> decimal >> exponent).as(:float)
+    end
+
+    rule(:integer) do
+      (sign.maybe >> decimal).as(:integer)
+    end
+
+    rule(:decimal) do
+      match('[0-9]').repeat(1)
+    end
+
+    rule(:sign)  do
+      match('[+-]')
+    end
+
+    rule(:fixed) do
+      sign.maybe >>
+        (decimal >> str('.') >> decimal.maybe) |
+        (str('.') >> decimal)
+    end
+
+    rule(:exponent) do
+      str('E') >> sign.maybe >> decimal
+    end
+
+  end
+
+end

data/lib/basic101/parser/on_goto_statement.rb

@@ -0,0 +1,20 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:on_goto_statement) do
+      str('ON').as(:on_goto) >>
+        space? >>expression.as(:expression) >>
+        space? >> str('GOTO') >>
+        (
+         space? >> integer >>
+         (
+          space? >> str(',') >>
+          space? >> integer
+          ).repeat(0)
+         ).as(:line_numbers)
+    end
+
+  end
+
+end