kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 18:18:51 +03:00
Code Issues Projects Releases Wiki Activity

Ada: negative numbers in reader

Browse Source
This commit is contained in:
Chris M Moore 2016-03-20 22:20:34 +00:00
parent d1967ba511
commit c2df4f1379
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ada/reader.adb
View File

@ -192,7 +192,9 @@ package body Reader is
Dots := 0; Dots := 0;
All_Digits := True; All_Digits := True;
for K in I .. J loop for K in I .. J loop
if Element (Saved_Line, K) = '.' then if (K = I and K /= J) and then Element (Saved_Line, K) = '-' then
null;
elsif Element (Saved_Line, K) = '.' then
Dots := Dots + 1; Dots := Dots + 1;
elsif not (Element (Saved_Line, K) in '0' .. '9') then elsif not (Element (Saved_Line, K) in '0' .. '9') then
All_Digits := False; All_Digits := False;