poke-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [PATCH v2] pkl,std: add `stof' and `stod'


From: Jose E. Marchesi
Subject: Re: [PATCH v2] pkl,std: add `stof' and `stod'
Date: Tue, 21 Mar 2023 22:44:25 +0100
User-agent: Gnus/5.13 (Gnus v5.13)

Hi Mohammad.
Thanks for the patch.

> +
> +/* String conversion to 32-bit floating-point number represented
> +   as `uint<32>'.  */
> +
> +fun stof = (string s) uint<32>:
> +{
> +  var f = asm any: ("stof" : s);
> +
> +  if (asm int<32>: ("nn; nip" : f))
> +    return f as uint<32>;
> +  raise E_conv;
> +}
> +
> +/* String conversion to 64-bit floating-point number represented
> +   as `uint<64>'.  */
> +
> +fun stod = (string s) uint<64>:
> +{
> +  var d = asm any: ("stod" : s);
> +
> +  if (asm int<32>: ("nn; nip" : d))
> +    return d as uint<64>;
> +  raise E_conv;
> +}

What about adding an explicative message to the raised exceptions?




reply via email to

[Prev in Thread] Current Thread [Next in Thread]