diff options
author | Karl Williamson <khw@cpan.org> | 2020-01-07 20:37:17 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-01-13 20:58:56 -0700 |
commit | d05c9ddbd283a22db2b3d16c46d6cd9cf0903217 (patch) | |
tree | d1fab7901afd0fd0fa145432118c7a1526f3c793 /numeric.c | |
parent | 2e046c5bb6c633dc75373a01ed609f546f543a4b (diff) | |
download | perl-d05c9ddbd283a22db2b3d16c46d6cd9cf0903217.tar.gz |
numeric.c: Move function in the file
This makes adjacent all similar functions and their docs
Diffstat (limited to 'numeric.c')
-rw-r--r-- | numeric.c | 74 |
1 files changed, 37 insertions, 37 deletions
@@ -287,6 +287,43 @@ Perl_grok_hex(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) return grok_hex(start, len_p, flags, result); } +/* +=for apidoc grok_oct + +converts a string representing an octal number to numeric form. + +On entry C<start> and C<*len> give the string to scan, C<*flags> gives +conversion flags, and C<result> should be C<NULL> or a pointer to an NV. +The scan stops at the end of the string, or the first invalid character. +Unless C<PERL_SCAN_SILENT_ILLDIGIT> is set in C<*flags>, encountering an +8 or 9 will also trigger a warning. +On return C<*len> is set to the length of the scanned string, +and C<*flags> gives output flags. + +If the value is <= C<UV_MAX> it is returned as a UV, the output flags are clear, +and nothing is written to C<*result>. If the value is > C<UV_MAX>, C<grok_oct> +returns C<UV_MAX>, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags, +and writes the value to C<*result> (or the value is discarded if C<result> +is C<NULL>). + +If C<PERL_SCAN_ALLOW_UNDERSCORES> is set in C<*flags> then the octal +number may use C<"_"> characters to separate digits. + +=cut + +Not documented yet because experimental is C<PERL_SCAN_SILENT_NON_PORTABLE> +which suppresses any message for non-portable numbers, but which are valid +on this platform. + */ + +UV +Perl_grok_oct(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) +{ + PERL_ARGS_ASSERT_GROK_OCT; + + return grok_oct(start, len_p, flags, result); +} + UV Perl_grok_bin_oct_hex(pTHX_ const char *start, STRLEN *len_p, @@ -431,43 +468,6 @@ Perl_grok_bin_oct_hex(pTHX_ const char *start, } /* -=for apidoc grok_oct - -converts a string representing an octal number to numeric form. - -On entry C<start> and C<*len> give the string to scan, C<*flags> gives -conversion flags, and C<result> should be C<NULL> or a pointer to an NV. -The scan stops at the end of the string, or the first invalid character. -Unless C<PERL_SCAN_SILENT_ILLDIGIT> is set in C<*flags>, encountering an -8 or 9 will also trigger a warning. -On return C<*len> is set to the length of the scanned string, -and C<*flags> gives output flags. - -If the value is <= C<UV_MAX> it is returned as a UV, the output flags are clear, -and nothing is written to C<*result>. If the value is > C<UV_MAX>, C<grok_oct> -returns C<UV_MAX>, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags, -and writes the value to C<*result> (or the value is discarded if C<result> -is C<NULL>). - -If C<PERL_SCAN_ALLOW_UNDERSCORES> is set in C<*flags> then the octal -number may use C<"_"> characters to separate digits. - -=cut - -Not documented yet because experimental is C<PERL_SCAN_SILENT_NON_PORTABLE> -which suppresses any message for non-portable numbers, but which are valid -on this platform. - */ - -UV -Perl_grok_oct(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) -{ - PERL_ARGS_ASSERT_GROK_OCT; - - return grok_oct(start, len_p, flags, result); -} - -/* =for apidoc scan_bin For backwards compatibility. Use C<grok_bin> instead. |