diff --git a/hawk/lib/Hawk.cpp b/hawk/lib/Hawk.cpp index b7108614..cafa9aea 100644 --- a/hawk/lib/Hawk.cpp +++ b/hawk/lib/Hawk.cpp @@ -194,7 +194,7 @@ int Hawk::Console::setFileName (const hawk_ooch_t* name) } } -int Hawk::Console::setFNR (int_t fnr) +int Hawk::Console::setFNR (hawk_int_t fnr) { hawk_val_t* tmp; int n; @@ -231,7 +231,7 @@ const hawk_bch_t* Hawk::Value::getEmptyMbs() return EMPTY_STRING; } -Hawk::Value::IntIndex::IntIndex (int_t x) +Hawk::Value::IntIndex::IntIndex (hawk_int_t x) { ptr = buf; len = 0; @@ -239,8 +239,8 @@ Hawk::Value::IntIndex::IntIndex (int_t x) #define NTOC(n) (HAWK_T("0123456789")[n]) int base = 10; - int_t last = x % base; - int_t y = 0; + hawk_int_t last = x % base; + hawk_int_t y = 0; int dig = 0; if (x < 0) buf[len++] = HAWK_T('-'); @@ -422,16 +422,16 @@ void Hawk::Value::clear () } } -Hawk::Value::operator Hawk::int_t () const +Hawk::Value::operator hawk_int_t () const { - int_t v; + hawk_int_t v; if (this->getInt(&v) <= -1) v = 0; return v; } -Hawk::Value::operator Hawk::flt_t () const +Hawk::Value::operator hawk_flt_t () const { - flt_t v; + hawk_flt_t v; if (this->getFlt(&v) <= -1) v = 0.0; return v; } @@ -454,9 +454,9 @@ Hawk::Value::operator const hawk_bch_t* () const } #endif -int Hawk::Value::getInt (int_t* v) const +int Hawk::Value::getInt (hawk_int_t* v) const { - int_t lv = 0; + hawk_int_t lv = 0; HAWK_ASSERT (this->val != HAWK_NULL); @@ -474,9 +474,9 @@ int Hawk::Value::getInt (int_t* v) const return 0; } -int Hawk::Value::getFlt (flt_t* v) const +int Hawk::Value::getFlt (hawk_flt_t* v) const { - flt_t rv = 0; + hawk_flt_t rv = 0; HAWK_ASSERT (this->val != HAWK_NULL); @@ -494,7 +494,7 @@ int Hawk::Value::getFlt (flt_t* v) const return 0; } -int Hawk::Value::getNum (int_t* lv, flt_t* fv) const +int Hawk::Value::getNum (hawk_int_t* lv, hawk_flt_t* fv) const { HAWK_ASSERT (this->val != HAWK_NULL); @@ -641,7 +641,7 @@ int Hawk::Value::setVal (Run* r, hawk_val_t* v) return 0; } -int Hawk::Value::setInt (int_t v) +int Hawk::Value::setInt (hawk_int_t v) { if (this->run == HAWK_NULL) { @@ -652,7 +652,7 @@ int Hawk::Value::setInt (int_t v) return this->setInt(this->run, v); } -int Hawk::Value::setInt (Run* r, int_t v) +int Hawk::Value::setInt (Run* r, hawk_int_t v) { hawk_val_t* tmp; tmp = hawk_rtx_makeintval(r->rtx, v); @@ -667,7 +667,7 @@ int Hawk::Value::setInt (Run* r, int_t v) return n; } -int Hawk::Value::setFlt (flt_t v) +int Hawk::Value::setFlt (hawk_flt_t v) { if (this->run == HAWK_NULL) { @@ -678,7 +678,7 @@ int Hawk::Value::setFlt (flt_t v) return this->setFlt(this->run, v); } -int Hawk::Value::setFlt (Run* r, flt_t v) +int Hawk::Value::setFlt (Run* r, hawk_flt_t v) { hawk_val_t* tmp; tmp = hawk_rtx_makefltval(r->rtx, v); @@ -917,13 +917,13 @@ int Hawk::Value::setIndexedVal (Run* r, const Index& idx, hawk_val_t* v) return 0; } -int Hawk::Value::setIndexedInt (const Index& idx, int_t v) +int Hawk::Value::setIndexedInt (const Index& idx, hawk_int_t v) { if (run == HAWK_NULL) return -1; return this->setIndexedInt (run, idx, v); } -int Hawk::Value::setIndexedInt (Run* r, const Index& idx, int_t v) +int Hawk::Value::setIndexedInt (Run* r, const Index& idx, hawk_int_t v) { hawk_val_t* tmp = hawk_rtx_makeintval (r->rtx, v); if (tmp == HAWK_NULL) @@ -939,13 +939,13 @@ int Hawk::Value::setIndexedInt (Run* r, const Index& idx, int_t v) return n; } -int Hawk::Value::setIndexedFlt (const Index& idx, flt_t v) +int Hawk::Value::setIndexedFlt (const Index& idx, hawk_flt_t v) { if (run == HAWK_NULL) return -1; return this->setIndexedFlt(run, idx, v); } -int Hawk::Value::setIndexedFlt (Run* r, const Index& idx, flt_t v) +int Hawk::Value::setIndexedFlt (Run* r, const Index& idx, hawk_flt_t v) { hawk_val_t* tmp = hawk_rtx_makefltval(r->rtx, v); if (tmp == HAWK_NULL) @@ -1208,7 +1208,7 @@ void Hawk::Run::formatError (hawk_errnum_t code, const hawk_loc_t* loc, const ha va_end (ap); } -int Hawk::Run::setGlobal (int id, int_t v) +int Hawk::Run::setGlobal (int id, hawk_int_t v) { HAWK_ASSERT (this->rtx != HAWK_NULL); @@ -1221,7 +1221,7 @@ int Hawk::Run::setGlobal (int id, int_t v) return n; } -int Hawk::Run::setGlobal (int id, flt_t v) +int Hawk::Run::setGlobal (int id, hawk_flt_t v) { HAWK_ASSERT (this->rtx != HAWK_NULL); @@ -2551,13 +2551,13 @@ int Hawk::functionHandler (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi) return rxtn->run->awk->dispatch_function(rxtn->run, fi); } -Hawk::flt_t Hawk::pow (hawk_t* awk, flt_t x, flt_t y) +hawk_flt_t Hawk::pow (hawk_t* awk, hawk_flt_t x, hawk_flt_t y) { xtn_t* xtn = GET_XTN(awk); return xtn->hawk->pow(x, y); } -Hawk::flt_t Hawk::mod (hawk_t* awk, flt_t x, flt_t y) +hawk_flt_t Hawk::mod (hawk_t* awk, hawk_flt_t x, hawk_flt_t y) { xtn_t* xtn = GET_XTN(awk); return xtn->hawk->mod(x, y); diff --git a/hawk/lib/Hawk.hpp b/hawk/lib/Hawk.hpp index 48cba528..fe2d4661 100644 --- a/hawk/lib/Hawk.hpp +++ b/hawk/lib/Hawk.hpp @@ -376,12 +376,6 @@ private: class HAWK_EXPORT Hawk: public Uncopyable, public Mmged { public: - // redefine flt_t. To access Types::flt_t, use the fully qualified - // name as it's overriding Types::flt_t. - typedef hawk_flt_t flt_t; - typedef hawk_int_t int_t; - typedef hawk_uint_t uint_t; - typedef hawk_errstr_t errstr_t; typedef hawk_errinf_t errinf_t; @@ -819,7 +813,7 @@ public: Mode getMode () const; int setFileName (const hawk_ooch_t* name); - int setFNR (int_t fnr); + int setFNR (hawk_int_t fnr); protected: hawk_ooch_t* filename; @@ -902,7 +896,7 @@ public: class HAWK_EXPORT IntIndex: public Index { public: - IntIndex (int_t num); + IntIndex (hawk_int_t num); protected: // 2^32: 4294967296 @@ -912,7 +906,7 @@ public: // -(2^64/2): -9223372036854775808 // -(2^128/2): -170141183460469231731687303715884105728 #if HAWK_SIZEOF_LONG_T > 16 - # error SIZEOF(int_t) TOO LARGE. + # error SIZEOF(hawk_int_t) TOO LARGE. # error INCREASE THE BUFFER SIZE TO SUPPORT IT. #elif HAWK_SIZEOF_LONG_T == 16 hawk_ooch_t buf[41]; @@ -995,8 +989,8 @@ public: void clear (); operator hawk_val_t* () const { return val; } - operator int_t () const; - operator flt_t () const; + operator hawk_int_t () const; + operator hawk_flt_t () const; operator const hawk_ooch_t* () const; #if defined(HAWK_OOCH_IS_UCH) operator const hawk_bch_t* () const; @@ -1007,14 +1001,14 @@ public: return operator hawk_val_t* (); } - int_t toInt () const + hawk_int_t toInt () const { - return operator int_t (); + return operator hawk_int_t (); } - flt_t toFlt () const + hawk_flt_t toFlt () const { - return operator flt_t (); + return operator hawk_flt_t (); } const hawk_ooch_t* toStr (hawk_oow_t* len) const @@ -1047,19 +1041,19 @@ public: return p; } - int getInt (int_t* v) const; - int getFlt (flt_t* v) const; - int getNum (int_t* lv, flt_t* fv) const; + int getInt (hawk_int_t* v) const; + int getFlt (hawk_flt_t* v) const; + int getNum (hawk_int_t* lv, hawk_flt_t* fv) const; int getStr (const hawk_ooch_t** str, hawk_oow_t* len) const; int getMbs (const hawk_bch_t** str, hawk_oow_t* len) const; int setVal (hawk_val_t* v); int setVal (Run* r, hawk_val_t* v); - int setInt (int_t v); - int setInt (Run* r, int_t v); - int setFlt (flt_t v); - int setFlt (Run* r, flt_t v); + int setInt (hawk_int_t v); + int setInt (Run* r, hawk_int_t v); + int setFlt (hawk_flt_t v); + int setFlt (Run* r, hawk_flt_t v); int setStr (const hawk_uch_t* str, hawk_oow_t len, bool numeric = false); int setStr (Run* r, const hawk_uch_t* str, hawk_oow_t len, bool numeric = false); @@ -1077,10 +1071,10 @@ public: int setIndexedVal (const Index& idx, hawk_val_t* v); int setIndexedVal (Run* r, const Index& idx, hawk_val_t* v); - int setIndexedInt (const Index& idx, int_t v); - int setIndexedInt (Run* r, const Index& idx, int_t v); - int setIndexedFlt (const Index& idx, flt_t v); - int setIndexedFlt (Run* r, const Index& idx, flt_t v); + int setIndexedInt (const Index& idx, hawk_int_t v); + int setIndexedInt (Run* r, const Index& idx, hawk_int_t v); + int setIndexedFlt (const Index& idx, hawk_flt_t v); + int setIndexedFlt (Run* r, const Index& idx, hawk_flt_t v); int setIndexedStr (const Index& idx, const hawk_ooch_t* str, hawk_oow_t len, bool numeric = false); int setIndexedStr (Run* r, const Index& idx, const hawk_ooch_t* str, hawk_oow_t len, bool numeric = false); @@ -1213,7 +1207,7 @@ public: /// to \a v. /// \return 0 on success, -1 on failure /// - int setGlobal (int id, int_t v); + int setGlobal (int id, hawk_int_t v); /// /// The setGlobal() function sets the value of a global @@ -1221,7 +1215,7 @@ public: /// to \a v. /// \return 0 on success, -1 on failure /// - int setGlobal (int id, flt_t v); + int setGlobal (int id, hawk_flt_t v); /// /// The setGlobal() function sets the value of a global @@ -1680,8 +1674,8 @@ protected: /// \} // primitive handlers - virtual flt_t pow (flt_t x, flt_t y) = 0; - virtual flt_t mod (flt_t x, flt_t y) = 0; + virtual hawk_flt_t pow (hawk_flt_t x, hawk_flt_t y) = 0; + virtual hawk_flt_t mod (hawk_flt_t x, hawk_flt_t y) = 0; virtual void* modopen (const hawk_mod_spec_t* spec) = 0; virtual void modclose (void* handle) = 0; @@ -1708,8 +1702,8 @@ protected: static int functionHandler (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi); - static flt_t pow (hawk_t* awk, flt_t x, flt_t y); - static flt_t mod (hawk_t* awk, flt_t x, flt_t y); + static hawk_flt_t pow (hawk_t* awk, hawk_flt_t x, hawk_flt_t y); + static hawk_flt_t mod (hawk_t* awk, hawk_flt_t x, hawk_flt_t y); static void* modopen (hawk_t* awk, const hawk_mod_spec_t* spec); static void modclose (hawk_t* awk, void* handle); diff --git a/hawk/lib/HawkStd.cpp b/hawk/lib/HawkStd.cpp index f8fc8a66..eb5a469b 100644 --- a/hawk/lib/HawkStd.cpp +++ b/hawk/lib/HawkStd.cpp @@ -30,7 +30,6 @@ #include // for hawk_stdmodXXX() functions #include "hawk-prv.h" #include -#include // TODO: remove the following definitions and find a way to share the similar definitions in std.c #if defined(HAWK_ENABLE_LIBLTDL) @@ -252,7 +251,7 @@ int HawkStd::build_argcv (Run* run) this->runarg.ptr[i].len, true) <= -1) return -1; } - run->setGlobal (this->gbl_argc, (int_t)this->runarg.len); + run->setGlobal (this->gbl_argc, (hawk_int_t)this->runarg.len); run->setGlobal (this->gbl_argv, argv); return 0; } @@ -418,14 +417,14 @@ int HawkStd::setioattr ( hawk_find_oochar(ptr[1], l[1], HAWK_T('\0')) || hawk_find_oochar(ptr[2], l[2], HAWK_T('\0'))) { - return ret.setInt ((int_t)-1); + return ret.setInt ((hawk_int_t)-1); } int tmout; if ((tmout = timeout_code (ptr[1])) >= 0) { - int_t lv; - flt_t fv; + hawk_int_t lv; + hawk_flt_t fv; int n; n = args[2].getNum(&lv, &fv); @@ -446,7 +445,7 @@ int HawkStd::setioattr ( nsec = fv - ioattr->tmout[tmout].sec; ioattr->tmout[tmout].nsec = HAWK_SEC_TO_NSEC(nsec); } - return ret.setInt ((int_t)0); + return ret.setInt ((hawk_int_t)0); } #if defined(HAWK_OOCH_IS_UCH) else if (hawk_comp_oocstr(ptr[1], HAWK_T("codepage"), 1) == 0 || @@ -459,7 +458,7 @@ int HawkStd::setioattr ( else { cmgr = hawk_get_cmgr_by_name(ptr[2]); - if (cmgr == HAWK_NULL) return ret.setInt ((int_t)-1); + if (cmgr == HAWK_NULL) return ret.setInt ((hawk_int_t)-1); } ioattr = find_or_make_ioattr(ptr[0], l[0]); @@ -473,7 +472,7 @@ int HawkStd::setioattr ( else { // unknown attribute name - return ret.setInt ((int_t)-1); + return ret.setInt ((hawk_int_t)-1); } } @@ -501,7 +500,7 @@ int HawkStd::getioattr ( if ((tmout = timeout_code(ptr[1])) >= 0) { if (ioattr->tmout[tmout].nsec == 0) - xx = args[2].setInt ((int_t)ioattr->tmout[tmout].sec); + xx = args[2].setInt ((hawk_int_t)ioattr->tmout[tmout].sec); else xx = args[2].setFlt ((hawk_flt_t)ioattr->tmout[tmout].sec + HAWK_NSEC_TO_SEC((hawk_flt_t)ioattr->tmout[tmout].nsec)); } @@ -515,7 +514,7 @@ int HawkStd::getioattr ( } // unknown attribute name or errors - return ret.setInt ((int_t)xx); + return ret.setInt ((hawk_int_t)xx); } #if defined(ENABLE_NWIO) @@ -909,7 +908,7 @@ int HawkStd::open_console_in (Console& io) // ok to find ARGV[this->runarg_index] as ARGV[0] // has been skipped. - ibuflen = hawk_int_to_oocstr (this->runarg_index, 10, HAWK_NULL, ibuf, HAWK_COUNTOF(ibuf)); + ibuflen = hawk_int_to_oocstr(this->runarg_index, 10, HAWK_NULL, ibuf, HAWK_COUNTOF(ibuf)); pair = hawk_htb_search (map, ibuf, ibuflen); HAWK_ASSERT (pair != HAWK_NULL); @@ -1143,12 +1142,12 @@ void HawkStd::freeMem (void* ptr) // miscellaneous primitive -HawkStd::flt_t HawkStd::pow (flt_t x, flt_t y) +hawk_flt_t HawkStd::pow (hawk_flt_t x, hawk_flt_t y) { return hawk_stdmathpow (this->awk, x, y); } -HawkStd::flt_t HawkStd::mod (flt_t x, flt_t y) +hawk_flt_t HawkStd::mod (hawk_flt_t x, hawk_flt_t y) { return hawk_stdmathmod (this->awk, x, y); } diff --git a/hawk/lib/HawkStd.hpp b/hawk/lib/HawkStd.hpp index 8af29da2..3da3cf5d 100644 --- a/hawk/lib/HawkStd.hpp +++ b/hawk/lib/HawkStd.hpp @@ -199,8 +199,8 @@ protected: void* reallocMem (void* ptr, hawk_oow_t n); void freeMem (void* ptr); - flt_t pow (flt_t x, flt_t y); - flt_t mod (flt_t x, flt_t y); + hawk_flt_t pow (hawk_flt_t x, hawk_flt_t y); + hawk_flt_t mod (hawk_flt_t x, hawk_flt_t y); void* modopen (const hawk_mod_spec_t* spec); void modclose (void* handle);