madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Float support

Browse source
This commit is contained in:
madmaurice 2021-04-05 03:50:33 +02:00
parent 9d2665e2e8
commit 41984b0083
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/Minilisp.pm
View file

@ -80,8 +80,17 @@ sub tokenize {
elsif($str =~ s/^([^\s()"]+)//) elsif($str =~ s/^([^\s()"]+)//)
{ {
my $ident = $1; 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, { push @tokens, {
type => NUMBER, type => NUMBER,
value => 0+ $ident, value => 0+ $ident,