sardonyx 0.3.5 → 0.3.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: b6cb7504c3a8d3c20d609b052304da6f29006b61d4606b738fe0a33fc92753c8
-  data.tar.gz: 573d3b61d0031f2c1016ab4ba6d8b856f6ba8770e19b93610080735fb01efabf
+  metadata.gz: d0c5b5dabcbc157b1423ad023f21c3a892937bf6046050a83da1470e7ce724a1
+  data.tar.gz: f386cc4507d301b80f807a231ef2bd8af4140114bb7d3760bdf2847fdd73b843
 SHA512:
-  metadata.gz: f8d4f48ba42b07b7bc29a367cb67492c7ca7f0c481f7556a2cecb28d2085be081330ebc3040469cadee489db420f015c2bf31969a2818f3b285ec24c0d101b4f
-  data.tar.gz: d6569e3d3607dfc50628b72952195e44289ac642412804330b54f82d8b6e3ad3afb863888a8f80c57e736c73e02f9bbee25f033a76dda87845d869753c4dbf9d
+  metadata.gz: 714886d2d100b7ac440f7dd56cb8e9bf0f7ae880d67778775fe900b8b179f99f9d47f5404cb313515923a32f2fbb2d0e71527da296357b3ca3e5ddbb12963120
+  data.tar.gz: 5fc4e31a81de969b3714ab40b1c12e4c792d27efbd96c36292d1cea570cbae0de0865b7b8e412c560113cdd910aa5d7c80df834cf12df4fc7a3b4a9b402704d8

data/bin/sdx

@@ -22,7 +22,7 @@ if ARGV.size == 1
 else
     path = [(File.expand_path Dir.pwd), *(ENV.fetch("SDX_PATH", "").split ":")]
     vm = VM.new StringIO.new ""
-    puts "Sardonyx v0.3.4"
+    puts "Sardonyx v0.3.6"
     puts "Type :help for help, or :exit to exit"
     loop do
         begin
@@ -50,7 +50,7 @@ else
                 vm.interpret false
                 val = vm.stack[-1]
                 vm.clear
-                if val
+                if val and State::state == :ok
                     puts stringify val
                 end
             end

data/lib/sdx/vm/datatypes.rb

@@ -1,4 +1,5 @@
 require "stringio"
+require "bigdecimal"
 
 class DataType 
     attr_reader :internal
@@ -51,10 +52,10 @@ class Bool < DataType
             @internal = false
         end
         @fields = {
-            "__as_string" => (NativeFn.new 0, (Proc.new do
+            "__as_str" => (NativeFn.new 0, (Proc.new do
                 as_string
             end)),
-            "__as_code_string" => (NativeFn.new 0, (Proc.new do
+            "__as_code_str" => (NativeFn.new 0, (Proc.new do
                 as_string
             end)),
             "__eq" => (NativeFnInternal.new (lambda do |other|
@@ -77,10 +78,10 @@ class Int < DataType
             @internal = val
         end
         @fields = {
-            "__as_string" => (NativeFnInternal.new (Proc.new do
+            "__as_str" => (NativeFnInternal.new (Proc.new do
                 as_string
             end)),
-            "__as_code_string" => (NativeFnInternal.new (Proc.new do
+            "__as_code_str" => (NativeFnInternal.new (Proc.new do
                 as_string
             end)),
             "__as_bool" => (NativeFnInternal.new (Proc.new do
@@ -134,42 +135,112 @@ class Int < DataType
     end
 
     def add(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int + on #{other.class}"
+            return nil
+        end
         Int.new @internal + other.internal
     end
 
     def sub(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int - on #{other.class}"
+            return nil
+        end
         Int.new @internal - other.internal
     end
 
     def mul(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int * on #{other.class}"
+            return nil
+        end
         Int.new @internal * other.internal
     end
 
     def div(other)
-        Int.new @internal / other.internal
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int / on #{other.class}"
+            return nil
+        end
+        Num.new (@internal / (other.internal / 1.0)).to_s
     end
 
     def mod(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int % on #{other.class}"
+            return nil
+        end
         Int.new @internal % other.internal
     end
 
     def pow(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int ^ on #{other.class}"
+            return nil
+        end
         Int.new @internal ** other.internal
     end
 
     def lt(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int < on #{other.class}"
+            return nil
+        end
         Bool.new @internal < other.internal
     end
 
     def gt(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int > on #{other.class}"
+            return nil
+        end
         Bool.new @internal > other.internal
     end
 
     def le(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int <= on #{other.class}"
+            return nil
+        end
         Bool.new @internal <= other.internal
     end
 
     def ge(other)
+        case other
+        when Int
+        when Num
+        else
+            error "Cannot use Int >= on #{other.class}"
+            return nil
+        end
         Bool.new @internal >= other.internal
     end
 end
@@ -180,10 +251,10 @@ class Str < DataType
             @internal = val
         end
         @fields = {
-            "__as_string" => (NativeFnInternal.new (Proc.new do 
+            "__as_str" => (NativeFnInternal.new (Proc.new do 
                 as_string
             end)),
-            "__as_code_string" => (NativeFnInternal.new (Proc.new do
+            "__as_code_str" => (NativeFnInternal.new (Proc.new do
                 as_code_string
             end)),
             "__add" => (NativeFnInternal.new (Proc.new do |other|
@@ -210,10 +281,22 @@ class Str < DataType
     end
 
     def add(other)
+        case other
+        when Str
+        else
+            error "Cannot use Str + on #{other.class}"
+            return nil
+        end
         Str.new @internal + other.internal
     end
 
     def mul(other)
+        case other
+        when Int
+        else
+            error "Cannot use Int * on #{other.class}"
+            return nil
+        end
         Str.new @internal * other.internal
     end
 end
@@ -221,13 +304,13 @@ end
 class Num < DataType
     def initialize(val=nil)
         if val != nil
-            @internal = val
+            @internal = BigDecimal val
         end
         @fields = {
-            "__as_string" => (NativeFnInternal.new (Proc.new do
+            "__as_str" => (NativeFnInternal.new (Proc.new do
                 as_string
             end)),
-            "__as_code_string" => (NativeFnInternal.new (Proc.new do
+            "__as_code_str" => (NativeFnInternal.new (Proc.new do
                 as_string
             end)),
             "__as_bool" => (NativeFnInternal.new (Proc.new do
@@ -273,7 +356,7 @@ class Num < DataType
     end
 
     def as_string
-        Str.new @internal.to_s
+        Str.new (@internal.to_s "F")
     end
 
     def as_bool
@@ -281,42 +364,112 @@ class Num < DataType
     end
 
     def add(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num + on #{other.class}"
+            return nil
+        end
         Num.new @internal + other.internal
     end
 
     def sub(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num - on #{other.class}"
+            return nil
+        end
         Num.new @internal - other.internal
     end
 
     def mul(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num * on #{other.class}"
+            return nil
+        end
         Num.new @internal * other.internal
     end
 
     def div(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num / on #{other.class}"
+            return nil
+        end
         Num.new @internal / other.internal
     end
 
     def mod(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num % on #{other.class}"
+            return nil
+        end
         Num.new @internal % other.internal
     end
 
     def pow(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num ^ on #{other.class}"
+            return nil
+        end
         Num.new @internal ** other.internal
     end
 
     def lt(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num < on #{other.class}"
+            return nil
+        end
         Bool.new @internal < other.internal
     end
 
     def gt(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num > on #{other.class}"
+            return nil
+        end
         Bool.new @internal > other.internal
     end
 
     def le(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num <= on #{other.class}"
+            return nil
+        end
         Bool.new @internal <= other.internal
     end
 
     def ge(other)
+        case other
+        when Num
+        when Int
+        else
+            error "Cannot use Num >= on #{other.class}"
+            return nil
+        end
         Bool.new @internal >= other.internal
     end
 end
@@ -328,6 +481,9 @@ class Nil < DataType
             "__as_bool" => (NativeFnInternal.new (Proc.new do
                 Bool.new false
             end)),
+            "__as_str" => (NativeFnInternal.new (Proc.new do
+                Str.new "nil"
+            end)),
             "__eq" => (NativeFnInternal.new (lambda do |other|
                 Bool.new @internal == other[0].internal
             end)),
@@ -344,10 +500,10 @@ class List < DataType
         @scope = scope
         @pos = 0
         @fields = {
-            "__as_string" => (NativeFnInternal.new (Proc.new do 
+            "__as_str" => (NativeFnInternal.new (Proc.new do 
                 as_string
             end)),
-            "__as_code_string" => (NativeFnInternal.new (Proc.new do
+            "__as_code_str" => (NativeFnInternal.new (Proc.new do
                 as_code_string
             end)),
             "__reset" => (NativeFnInternal.new (Proc.new do 
@@ -414,6 +570,12 @@ class List < DataType
     end
 
     def mul(other)
+        case other
+        when Int
+        else
+            error "Cannot use List * on #{other.class}"
+            return nil
+        end
         return List.new @internal * other.internal
     end
 end

data/lib/sdx/vm/vm.rb

@@ -3,11 +3,11 @@ require 'sdx/vm/datatypes'
 require 'sdx/vm/scope'
 
 def codify(val)
-    if val.value.fields["__as_code_string"]
-        if val.value.fields["__as_code_string"].respond_to? :call
-            (val.value.fields["__as_code_string"].call).internal
+    if val.value.fields["__as_code_str"]
+        if val.value.fields["__as_code_str"].respond_to? :call
+            (val.value.fields["__as_code_str"].call).internal
         else
-            (val.value.fields["__as_code_string"].fields["__call"].call [], val.scope).internal
+            (val.value.fields["__as_code_str"].fields["__call"].call [], val.scope).internal
         end
     else
         val.value.pretty_inspect
@@ -15,17 +15,22 @@ def codify(val)
 end
 
 def stringify(val)
-    if val.value.fields["__as_string"]
-        if val.value.fields["__as_string"].respond_to? :fields
-            (val.value.fields["__as_string"].fields["__call"].call [], val.scope).internal
+    if val.value.fields["__as_str"]
+        if val.value.fields["__as_str"].respond_to? :fields
+            (val.value.fields["__as_str"].fields["__call"].call [], val.scope).internal
         else
-            (val.value.fields["__as_string"]).call.internal
+            (val.value.fields["__as_str"]).call.internal
         end
     else
         val.value.to_s
     end
 end
 
+def error(msg)
+    puts "\x1b[0;31mError in VM: #{msg}\x1b[0;0m"
+    State::state = :error
+end
+
 class VM
     attr_accessor :bc_io
     
@@ -113,6 +118,62 @@ class VM
             args = (codify args)[1..-2]
             from_rb eval "#{name.value.internal}(#{args})"
         end)), :fn, @global)
+        @global.add_fn "__is_int", (Variable.new (NativeFn.new 1, (Proc.new do |n|
+            case n.value
+            when Int
+                to_var (Bool.new true)
+            else
+                to_var (Bool.new false)
+            end
+        end)), :fn, @global)
+        @global.add_fn "__is_num", (Variable.new (NativeFn.new 1, (Proc.new do |n|
+            case n.value
+            when Num
+                to_var (Bool.new true)
+            else
+                to_var (Bool.new false)
+            end
+        end)), :fn, @global)
+        @global.add_fn "__is_str", (Variable.new (NativeFn.new 1, (Proc.new do |n|
+            case n.value
+            when Str
+                to_var (Bool.new true)
+            else
+                to_var (Bool.new false)
+            end
+        end)), :fn, @global)
+        @global.add_fn "__is_list", (Variable.new (NativeFn.new 1, (Proc.new do |n|
+            case n.value
+            when List
+                to_var (Bool.new true)
+            else
+                to_var (Bool.new false)
+            end
+        end)), :fn, @global)
+        @global.add_fn "__is_bool", (Variable.new (NativeFn.new 1, (Proc.new do |n|
+            case n.value
+            when Bool
+                to_var (Bool.new true)
+            else
+                to_var (Bool.new false)
+            end
+        end)), :fn, @global)
+        @global.add_fn "__is_list", (Variable.new (NativeFn.new 1, (Proc.new do |n|
+            case n.value
+            when List
+                to_var (Bool.new true)
+            else
+                to_var (Bool.new false)
+            end
+        end)), :fn, @global)
+        @global.add_fn "__is_nil", (Variable.new (NativeFn.new 1, (Proc.new do |n|
+            case n.value
+            when Nil
+                to_var (Bool.new true)
+            else
+                to_var (Bool.new false)
+            end
+        end)), :fn, @global)
         @stack = []
         @byte_pos = 0
     end
@@ -275,7 +336,7 @@ class VM
                     push_to_stack Variable.new (Int.new val.to_i), :int, @global
                 when :num
                     val = get_string
-                    push_to_stack Variable.new (Num.new val.to_f), :num, @global
+                    push_to_stack Variable.new (Num.new val), :num, @global
                 when :str
                     val = get_string
                     push_to_stack Variable.new (Str.new val), :str, @global

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: sardonyx
 version: !ruby/object:Gem::Version
-  version: 0.3.5
+  version: 0.3.6
 platform: ruby
 authors:
 - sugarfi