summaryrefslogtreecommitdiff
path: root/Build/source/libs/harfbuzz/harfbuzz-src/src/hb-number-parser.rl
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/libs/harfbuzz/harfbuzz-src/src/hb-number-parser.rl
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/libs/harfbuzz/harfbuzz-src/src/hb-number-parser.rl')
-rw-r--r--Build/source/libs/harfbuzz/harfbuzz-src/src/hb-number-parser.rl136
1 files changed, 0 insertions, 136 deletions
diff --git a/Build/source/libs/harfbuzz/harfbuzz-src/src/hb-number-parser.rl b/Build/source/libs/harfbuzz/harfbuzz-src/src/hb-number-parser.rl
deleted file mode 100644
index c6c4a3bab88..00000000000
--- a/Build/source/libs/harfbuzz/harfbuzz-src/src/hb-number-parser.rl
+++ /dev/null
@@ -1,136 +0,0 @@
-/*
- * Copyright © 2019 Ebrahim Byagowi
- *
- * This is part of HarfBuzz, a text shaping library.
- *
- * Permission is hereby granted, without written agreement and without
- * license or royalty fees, to use, copy, modify, and distribute this
- * software and its documentation for any purpose, provided that the
- * above copyright notice and the following two paragraphs appear in
- * all copies of this software.
- *
- * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR
- * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
- * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN
- * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
- * DAMAGE.
- *
- * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,
- * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
- * FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS
- * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO
- * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
- *
- */
-
-#ifndef HB_NUMBER_PARSER_HH
-#define HB_NUMBER_PARSER_HH
-
-#include "hb.hh"
-
-%%{
-
-machine double_parser;
-alphtype unsigned char;
-write data;
-
-action see_neg { neg = true; }
-action see_exp_neg { exp_neg = true; }
-
-action add_int {
- value = value * 10. + (fc - '0');
-}
-action add_frac {
- if (likely (frac <= MAX_FRACT / 10))
- {
- frac = frac * 10. + (fc - '0');
- ++frac_count;
- }
-}
-action add_exp {
- if (likely (exp * 10 + (fc - '0') <= MAX_EXP))
- exp = exp * 10 + (fc - '0');
- else
- exp_overflow = true;
-}
-
-num = [0-9]+;
-
-main := (
- (
- (('+'|'-'@see_neg)? num @add_int) ('.' num @add_frac)?
- |
- (('+'|'-'@see_neg)? '.' num @add_frac)
- )
- (('e'|'E') (('+'|'-'@see_exp_neg)? num @add_exp))?
-);
-
-}%%
-
-/* Works only for n < 512 */
-static inline double
-_pow10 (unsigned exponent)
-{
- static const double _powers_of_10[] =
- {
- 1.0e+256,
- 1.0e+128,
- 1.0e+64,
- 1.0e+32,
- 1.0e+16,
- 1.0e+8,
- 10000.,
- 100.,
- 10.
- };
- unsigned mask = 1 << (ARRAY_LENGTH (_powers_of_10) - 1);
- double result = 1;
- for (const double *power = _powers_of_10; mask; ++power, mask >>= 1)
- if (exponent & mask) result *= *power;
- return result;
-}
-
-/* a variant of strtod that also gets end of buffer in its second argument */
-static inline double
-strtod_rl (const char *p, const char **end_ptr /* IN/OUT */)
-{
- double value = 0;
- double frac = 0;
- double frac_count = 0;
- unsigned exp = 0;
- bool neg = false, exp_neg = false, exp_overflow = false;
- const unsigned long long MAX_FRACT = 0xFFFFFFFFFFFFFull; /* 2^52-1 */
- const unsigned MAX_EXP = 0x7FFu; /* 2^11-1 */
-
- const char *pe = *end_ptr;
- while (p < pe && ISSPACE (*p))
- p++;
-
- int cs;
- %%{
- write init;
- write exec;
- }%%
-
- *end_ptr = p;
-
- if (frac_count) value += frac / _pow10 (frac_count);
- if (neg) value *= -1.;
-
- if (unlikely (exp_overflow))
- {
- if (value == 0) return value;
- if (exp_neg) return neg ? -DBL_MIN : DBL_MIN;
- else return neg ? -DBL_MAX : DBL_MAX;
- }
-
- if (exp)
- {
- if (exp_neg) value /= _pow10 (exp);
- else value *= _pow10 (exp);
- }
-
- return value;
-}
-
-#endif /* HB_NUMBER_PARSER_HH */