Number names: Difference between revisions

m
→‎{{header|Phix}}: use new include_file()
No edit summary
m (→‎{{header|Phix}}: use new include_file())
Line 3,914:
Fraction ideas copied from [[Number_names#HicEst|HicEst]], using billion=10^9, trillion=10^12, quadrillion=10^15, and limited to 999 quadrillion.<br>
Implemented as an [[Executable_library]] for use in [[Names_to_numbers#Phix|Names_to_numbers]].
<lang Phix>-- demo/rosetta/Number_names.exw
-- demo/rosetta/Number_names.exw
--
constant twenties = {"zero","one","two","three","four","five","six","seven","eight","nine","ten",
"eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"}
Line 4,014 ⟶ 4,012:
end function
if include_file()==1 then
procedure main()
atom si
for i=1 to length(Samples) do
atom si = Samples[i]
printf(1,"%18s %s\n",{smartp(si),spell(si)})
end for
end procedure
 
-- from Executable_library#Phix --
function isMainOrInclude()
-- returns 1 if called from the main file, 0 if from an include
integer res
#ilASM{
[32]
mov eax,[ebp+20] -- prev_ebp
mov eax,[eax+8] -- rtn
mov [res],eax
[64]
mov rax,[rbp+40] -- prev_ebp
mov rax,[rax+16] -- rtn
mov [res],rax
[]
}
return res=21 -- (21=T_maintls)
end function
 
if isMainOrInclude() then
main()
end if</lang>
{{out}}
7,795

edits