#include "sort.qh"
#include "oo.qh"
-#ifndef SVQC
+// string logic
+//
+// true: is truthy
+// == "": is equal to ""
+// is "": has the same string index as the string constant ""
+// strunzone: can be strunzoned
+//
+// | | true | == "" | is "" | strunzone |
+// | :----------: | :--: | :---: | :---: | :-------: |
+// | nil | | yes | | |
+// | strcat(nil) | yes | yes | | |
+// | strzone(nil) | yes | yes | | yes |
+// | "" | yes | yes | yes | |
+// | strcat("") | yes | yes | | |
+// | strzone("") | yes | yes | | yes |
+// | "s" | yes | | | |
+// | strcat("s") | yes | | | |
+// | strzone("s") | yes | | | yes |
+
+#ifdef CSQC
+ float stringwidth_colors(string s, vector theSize)
+ {
+ return stringwidth_builtin(s, true, theSize);
+ }
+
+ float stringwidth_nocolors(string s, vector theSize)
+ {
+ return stringwidth_builtin(s, false, theSize);
+ }
+#endif
+#ifdef MENUQC
float stringwidth_colors(string s, vector theSize)
{
return stringwidth(s, true, theSize);
}
#endif
-// TODO: macro
-string seconds_tostring(float sec)
+#define strcpy(this, s) MACRO_BEGIN \
+ if (this) { \
+ strunzone(this); \
+ } \
+ this = strzone(s); \
+MACRO_END
+
+#define strfree(this) MACRO_BEGIN \
+ if (this) { \
+ strunzone(this); \
+ } \
+ this = string_null; \
+MACRO_END
+
+// Returns the number of days since 0000-03-01 (March 1, year 0)
+// Starting counting from March, as the 1st month of the year, February becomes the 12th and last month,
+// so its variable duration does not affect, given that the 29th is the last day of the period
+ERASEABLE
+int days_up_to_date(int Y, int M, int D)
+{
+ int years = (M <= 2) ? Y - 1 : Y;
+
+ int leap_days = floor(years / 4) - floor(years / 100) + floor(years / 400);
+
+ // using these 2 formulas to save 2 arrays or switches (performance isn't important here)
+ int months = (M <= 2) ? (M + 9) : (M - 3); // 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
+ int leftover_days = (M <= 2) ? (M + 5) : floor(0.58 * M - 1.1); // 6, 7, 0, 1, 1, 2, 2, 3, 4, 4, 5, 5
+
+ int month_days = 30 * months + leftover_days;
+
+ return 365 * years + month_days + D + leap_days;
+}
+
+#define DAYS_UP_TO_EPOCH 719469 // days_up_to_date(1970, 1, 1);
+
+// Returns the number of seconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC).
+// This function exists only as a replacement for strftime(false, "%s") which doesn't work
+// on Windows (%s is not supported) and at least in some linux systems doesn't return the
+// correct result
+// NOTE: at the current date, the number (string) returned by both strftime(false, "%s") and
+// strftime_s() is so high that can't be converted to int (with ftos) without precision loss
+ERASEABLE
+string strftime_s()
+{
+ string date = strftime(false, "%Y-%m-%d %H:%M:%S");
+ int i, seconds = 0;
+ i =0; int Y = stof(substring(date, i, 4)); // years
+ i+=5; int M = stof(substring(date, i, 2)); // months
+ i+=3; int D = stof(substring(date, i, 2)); // days
+
+ i+=3; seconds += stof(substring(date, i, 2)) * 60 * 60; // hours
+ i+=3; seconds += stof(substring(date, i, 2)) * 60; // minutes
+ i+=3; seconds += stof(substring(date, i, 2)); // seconds
+
+ // doing so we loose precision
+ //seconds += (days_up_to_date(Y, M, D) - DAYS_UP_TO_EPOCH) * 24 * 60 * 60;
+ //return ftos(seconds);
+
+ int days_since_epoch = days_up_to_date(Y, M, D) - DAYS_UP_TO_EPOCH;
+ // use hundreds of seconds as unit to avoid precision loss
+ int hundreds_of_seconds = days_since_epoch * 24 * 6 * 6;
+ hundreds_of_seconds += floor(seconds / 100);
+
+ // tens of seconds and seconds
+ string seconds_str = ftos(seconds % 100);
+ if ((seconds % 100) < 10)
+ seconds_str = strcat("0", seconds_str);
+
+ return strcat(ftos(hundreds_of_seconds), seconds_str);
+}
+
+/// \param[in] seconds number of seconds, can be negative too
+/// \return time as "m:ss" string (floored)
+ERASEABLE
+string seconds_tostring(float seconds)
{
- float minutes = floor(sec / 60);
- sec -= minutes * 60;
- return sprintf("%d:%02d", minutes, sec);
+ bool negative = false;
+ if (seconds < 0)
+ {
+ negative = true;
+ seconds = -seconds;
+ if (floor(seconds) != seconds)
+ seconds += 1; // make floor work in the other direction
+ }
+ int minutes = floor(seconds / 60);
+ seconds -= minutes * 60;
+ if (negative)
+ return sprintf("-%d:%02d", minutes, seconds);
+ return sprintf("%d:%02d", minutes, seconds);
}
+/// \param[in] tm integer clocked time in tenths or hundredths, CANNOT be negative
+/// \param[in] hundredths if true append hundredths too, otherwise only tenths
+/// \param[in] compact if true leading 0s are omitted (except the seconds unit digit)
+/// \return clocked time as "m:ss.t" or "m:ss.th" string (rounded)
+ERASEABLE
+string clockedtime_tostring(int tm, bool hundredths, bool compact)
+{
+ if (tm < 0)
+ {
+ if (compact)
+ return strcat("0.0", hundredths ? "0" : "");
+ else
+ return strcat("0:00.0", hundredths ? "0" : "");
+ }
+ int acc = hundredths ? 6000 : 600;
+ tm = floor(tm + 0.5);
+ int minutes = floor(tm / acc);
+ int tm_without_minutes = tm - minutes * acc;
+ // NOTE: the start digit of s is a placeholder and won't be displayed
+ string s = ftos(acc * 10 + tm_without_minutes);
+ if (!compact || minutes > 0)
+ return strcat(ftos(minutes), ":", substring(s, 1, 2), ".", substring(s, 3, hundredths ? 2 : 1));
+
+ int ofs = 2, digits = 1;
+ if (tm_without_minutes >= 10 * (hundredths ? 100 : 10))
+ {
+ ofs = 1;
+ digits = 2;
+ }
+ return strcat(substring(s, ofs, digits), ".", substring(s, 3, hundredths ? 2 : 1));
+
+}
+
+#define mmsst(tm, compact) clockedtime_tostring(tm, false, compact)
+#define mmssth(tm, compact) clockedtime_tostring(tm, true, compact)
+
+ERASEABLE
string format_time(float seconds)
{
seconds = floor(seconds + 0.5);
else return sprintf(_("%02d:%02d:%02d"), hours, minutes, seconds);
}
-string mmsss(float tenths)
-{
- tenths = floor(tenths + 0.5);
- float minutes = floor(tenths / 600);
- tenths -= minutes * 600;
- string s = ftos(1000 + tenths);
- return strcat(ftos(minutes), ":", substring(s, 1, 2), ".", substring(s, 3, 1));
-}
-
-string mmssss(float hundredths)
-{
- hundredths = floor(hundredths + 0.5);
- float minutes = floor(hundredths / 6000);
- hundredths -= minutes * 6000;
- string s = ftos(10000 + hundredths);
- return strcat(ftos(minutes), ":", substring(s, 1, 2), ".", substring(s, 3, 2));
-}
-
int ColorTranslateMode;
+ERASEABLE
string ColorTranslateRGB(string s)
{
return (ColorTranslateMode & 1) ? strdecolorize(s) : s;
}
+#ifdef GAMEQC
// color code replace, place inside of sprintf and parse the string... defaults described as constants
// foreground/normal colors
string autocvar_hud_colorset_foreground_1 = "2"; // F1 - Green // primary priority (important names, etc)
/** color code replace, place inside of sprintf and parse the string */
string CCR(string input)
{
- // See the autocvar declarations in util.qh for default values
-
// foreground/normal colors
input = strreplace("^F1", strcat("^", autocvar_hud_colorset_foreground_1), input);
input = strreplace("^F2", strcat("^", autocvar_hud_colorset_foreground_2), input);
input = strreplace("^N", "^7", input); // "none"-- reset to white...
return input;
}
+#endif
#define startsWith(haystack, needle) (strstrofs(haystack, needle, 0) == 0)
+ERASEABLE
bool startsWithNocase(string haystack, string needle)
{
return strcasecmp(substring(haystack, 0, strlen(needle)), needle) == 0;
#define endsWith(this, suffix) (_endsWith_suffix = suffix, substring(this, -strlen(_endsWith_suffix), -1) == _endsWith_suffix)
/** unzone the string, and return it as tempstring. Safe to be called on string_null */
+ERASEABLE
string fstrunzone(string s)
{
if (!s) return s;
}
/** returns first word */
+ERASEABLE
string car(string s)
{
int o = strstrofs(s, " ", 0);
}
/** returns all but first word */
+ERASEABLE
string cdr(string s)
{
int o = strstrofs(s, " ", 0);
return substring(s, o + 1, strlen(s) - (o + 1));
}
+ERASEABLE
string cons(string a, string b)
{
if (a == "") return b;
return strcat(a, " ", b);
}
+ERASEABLE
+string cons_mid(string a, string mid, string b)
+{
+ if (a == "") return b;
+ if (b == "") return a;
+ return strcat(a, mid, b);
+}
+
+ERASEABLE
string substring_range(string s, float b, float e)
{
return substring(s, b, e - b);
}
+ERASEABLE
string swapwords(string str, float i, float j)
{
float n;
}
string _shufflewords_str;
+ERASEABLE
void _shufflewords_swapfunc(float i, float j, entity pass)
{
_shufflewords_str = swapwords(_shufflewords_str, i, j);
}
+
+ERASEABLE
string shufflewords(string str)
{
_shufflewords_str = str;
return str;
}
+ERASEABLE
string unescape(string in)
{
in = strzone(in); // but it doesn't seem to be necessary in my tests at least
return str;
}
+ERASEABLE
string strwords(string s, int w)
{
int endpos = 0;
#define strhasword(s, w) (strstrofs(strcat(" ", s, " "), strcat(" ", w, " "), 0) >= 0)
+ERASEABLE
int u8_strsize(string s)
{
int l = 0;
return l;
}
+// List of Unicode spaces: http://jkorpela.fi/chars/spaces.html
+ERASEABLE
bool isInvisibleString(string s)
{
s = strdecolorize(s);
case 192: // charmap space
if (!utf8) break;
return false;
- case 160: // space in unicode fonts
- case 0xE000 + 192: // utf8 charmap space
+ case 0xE000: // invisible char of the utf8 quake charmap
+ case 0xE00A: // invisible char of the utf8 quake charmap
+ case 0xE0A0: // invisible char of the utf8 quake charmap
+ case 0xE020: // invisible char of the utf8 quake charmap
+ case 0x00A0: // NO-BREAK SPACE
+ case 0x180E: // MONGOLIAN VOWEL SEPARATOR
+ case 0x2000: // EN QUAD
+ case 0x2001: // EM QUAD
+ case 0x2002: // EN SPACE
+ case 0x2003: // EM SPACE
+ case 0x2004: // THREE-PER-EM SPACE
+ case 0x2005: // FOUR-PER-EM SPACE
+ case 0x2006: // SIX-PER-EM SPACE
+ case 0x2007: // FIGURE SPACE
+ case 0x2008: // PUNCTUATION SPACE
+ case 0x2009: // THIN SPACE
+ case 0x200A: // HAIR SPACE
+ case 0x200B: // ZERO WIDTH SPACE
+ case 0x202F: // NARROW NO-BREAK SPACE
+ case 0x205F: // MEDIUM MATHEMATICAL SPACE
+ case 0x3000: // IDEOGRAPHIC SPACE
+ case 0xFEFF: // ZERO WIDTH NO-BREAK SPACE
+ case 0xFFA0: // Halfwidth Hangul Filler
+ case 0x3164: // Hangul Filler
if (utf8) break;
default:
return false;
// Multiline text file buffers
+ERASEABLE
int buf_load(string pFilename)
{
int buf = buf_create();
return buf;
}
+ERASEABLE
void buf_save(float buf, string pFilename)
{
int fh = fopen(pFilename, FILE_WRITE);
/**
* converts a number to a string with the indicated number of decimals
- * works for up to 10 decimals!
*/
+ERASEABLE
string ftos_decimals(float number, int decimals)
{
// inhibit stupid negative zero
if (number == 0) number = 0;
- // we have sprintf...
return sprintf("%.*f", decimals, number);
}
+/**
+ * converts a number to a string with the minimum number of decimals
+ */
+ERASEABLE
+string ftos_mindecimals(float number)
+{
+ // inhibit stupid negative zero
+ if (number == 0) number = 0;
+ return sprintf("%.7g", number);
+}
+
+ERASEABLE
int vercmp_recursive(string v1, string v2)
{
int dot1 = strstrofs(v1, ".", 0);
else return (dot2 == -1) ? 1 : vercmp_recursive(substring(v1, dot1 + 1, 999), substring(v2, dot2 + 1, 999));
}
+ERASEABLE
int vercmp(string v1, string v2)
{
if (strcasecmp(v1, v2) == 0) return 0; // early out check
return vercmp_recursive(v1, v2);
}
+const string HEXDIGITS_MINSET = "0123456789ABCDEFabcdef";
const string HEXDIGITS = "0123456789ABCDEF0123456789abcdef";
#define HEXDIGIT_TO_DEC_RAW(d) (strstrofs(HEXDIGITS, (d), 0))
#define HEXDIGIT_TO_DEC(d) ((HEXDIGIT_TO_DEC_RAW(d) | 0x10) - 0x10)
-#define DEC_TO_HEXDIGIT(d) (substring(HEXDIGITS, (d), 1))
+#define DEC_TO_HEXDIGIT(d) (substring(HEXDIGITS_MINSET, (d), 1))
+#define IS_HEXDIGIT(d) (strstrofs(HEXDIGITS_MINSET, (d), 0) >= 0)
+
+const string DIGITS = "0123456789";
+#define IS_DIGIT(d) (strstrofs(DIGITS, (d), 0) >= 0)
+
+// returns true if the caret at position pos is escaped
+ERASEABLE
+bool isCaretEscaped(string theText, float pos)
+{
+ // count all the previous carets
+ int carets = 0;
+ while(pos - carets >= 1 && substring(theText, pos - carets - 1, 1) == "^")
+ ++carets;
+ // if number of previous carets is odd then this carets is escaped
+ return (carets & 1);
+}
+
+ERASEABLE
+bool isValidColorCodeValue(string theText, int cc_len, int tag_start)
+{
+ if (cc_len == 2)
+ return IS_DIGIT(substring(theText, tag_start + 1, 1));
+ if (cc_len == 5)
+ return (IS_HEXDIGIT(substring(theText, tag_start + 2, 1))
+ && IS_HEXDIGIT(substring(theText, tag_start + 3, 1))
+ && IS_HEXDIGIT(substring(theText, tag_start + 4, 1)));
+ return false;
+}
+
+// it returns 0 if pos is NOT in the middle or at the end of a color code
+// otherwise it returns a vector with color code length as the first component
+// and the offset from '^' position to pos as the second component
+// e.g.:
+// "j^2kl" | returns 0 if pos == 0 or 1 or 4
+// ^^ | returns '2 1' or '2 2' if pos == 2 or 3
+ERASEABLE
+vector checkColorCode(string theText, int text_len, int pos, bool check_at_the_end)
+{
+ if (text_len == 0)
+ text_len = strlen(theText);
+ string tag_type = "^";
+ int cc_len = 2;
+ int tag_len = 1;
+
+ LABEL(check_color_tag)
+
+ int ofs = cc_len;
+ if (!check_at_the_end)
+ ofs--;
+ for (; ofs >= 1; ofs--)
+ {
+ if (!(pos >= ofs && text_len >= pos + (cc_len - ofs)))
+ continue;
+ if(substring(theText, pos - ofs, tag_len) == tag_type)
+ {
+ if (!isCaretEscaped(theText, pos - ofs) && isValidColorCodeValue(theText, cc_len, pos - ofs))
+ return eX * cc_len + eY * ofs;
+ }
+ }
+ if (cc_len == 2)
+ {
+ tag_type = "^x";
+ cc_len = 5;
+ tag_len = 2;
+ goto check_color_tag;
+ }
+ return '0 0 0';
+}