302stack_allocate.subx - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: cd51d5ff01681796c6fd09b2de901f2cba918f15 (plain) (tree)

28746b36 ^

78d27542 ^

28746b36 ^

6b36e4db ^

28746b36 ^

28746b36 ^

6b36e4db ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-12 12:51:59 +0000

Special { color: #008000; } .Comment { color: #9090ff; } .Delimiter { color: #800080; } .LineNr { color: #444444; } .traceContains { color: #008000; } .Normal { color: #eeeeee; background-color: #080808; padding-bottom: 1px; } .Identifier { color: #c0a020; } --> </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <pre id='vimCodeElement'> 1 //: Support literal non-integers. 2 3 :(scenarios load) 4 :(scenario noninteger_literal) 5 def <a href='000organization.cc.html#L113'>main</a> [ 6 1:number <- copy 3.14159 7 ] 8 +parse: ingredient: {3.14159: "literal-fractional-number"} 9 10 :(after "Parsing reagent(string s)") 11 if (<a href='015literal_noninteger.cc.html#L19'>is_noninteger</a>(s)) { 12 name = s; 13 type = new type_tree("literal-fractional-number", 0); 14 <a href='010vm.cc.html#L65'>set_value</a>(<a href='015literal_noninteger.cc.html#L26'>to_double</a>(s)); 15 return; 16 } 17 18 :(code) 19 bool <a href='015literal_noninteger.cc.html#L19'>is_noninteger</a>(const string& s) { 20 return s.find_first_not_of("0123456789-.") == string::npos // no other characters 21 && s.find_first_of("0123456789") != string::npos // at least one digit 22 && s.find('-', 1) == string::npos // '-' only at first position 23 && std::count(s.begin(), s.<a href='003trace.cc.html#L185'>end</a>(), '.') == 1; // exactly one decimal point 24 } 25 26 double <a href='015literal_noninteger.cc.html#L26'>to_double</a>(string n) { 27 char* <a href='003trace.cc.html#L185'>end</a> = NULL; 28 // safe because string.c_str() is guaranteed to be null-terminated 29 double result = strtod(n.c_str(), &end); 30 assert(*end == '\0'); 31 return result; 32 } 33 34 void <a href='015literal_noninteger.cc.html#L34'>test_is_noninteger</a>() { 35 <a href='002test.cc.html#L25'>CHECK</a>(!is_noninteger("1234")); 36 <a href='002test.cc.html#L25'>CHECK</a>(!is_noninteger("1a2")); 37 <a href='002test.cc.html#L25'>CHECK</a>(<a href='015literal_noninteger.cc.html#L19'>is_noninteger</a>("234.0")); 38 <a href='002test.cc.html#L25'>CHECK</a>(!is_noninteger("...")); 39 <a href='002test.cc.html#L25'>CHECK</a>(!is_noninteger(".")); 40 <a href='002test.cc.html#L25'>CHECK</a>(<a href='015literal_noninteger.cc.html#L19'>is_noninteger</a>("2.")); 41 <a href='002test.cc.html#L25'>CHECK</a>(<a href='015literal_noninteger.cc.html#L19'>is_noninteger</a>(".2")); 42 <a href='002test.cc.html#L25'>CHECK</a>(<a href='015literal_noninteger.cc.html#L19'>is_noninteger</a>("-.2")); 43 <a href='002test.cc.html#L25'>CHECK</a>(<a href='015literal_noninteger.cc.html#L19'>is_noninteger</a>("-2.")); 44 <a href='002test.cc.html#L25'>CHECK</a>(!is_noninteger("--.2")); 45 <a href='002test.cc.html#L25'>CHECK</a>(!is_noninteger(".-2")); 46 <a href='002test.cc.html#L25'>CHECK</a>(!is_noninteger("..2")); 47 } </pre> </body> </html>