Float support

2021-04-05 03:50:33 +02:00 · 2021-04-05 03:50:33 +02:00 · 41984b0083
commit 41984b0083
parent 9d2665e2e8
1 changed files with 10 additions and 1 deletions
--- a/lib/Minilisp.pm
+++ b/lib/Minilisp.pm
@ -80,8 +80,17 @@ sub tokenize {
      elsif($str =~ s/^([^\s()"]+)//)
        {
          my $ident = $1;
-          if($ident =~ /^[0-9]+$/)
+          if($ident eq ".")
            {
+              die "short cons not supported"
+            }
+          elsif($ident =~ /^-?([0-9]+|[0-9]*\.[0-9]*)$/)
+            {
+              if($ident =~ s/^-//)
+                {
+                  $ident = 0 - $ident;
+                }
+
              push @tokens, {
                type => NUMBER,
                value => 0+ $ident,