-#ifndef STRING_H
-#define STRING_H
+#pragma once
#include "nil.qh"
#include "sort.qh"
return substring(s, o + 1, strlen(s) - (o + 1));
}
+string cons(string a, string b)
+{
+ if (a == "") return b;
+ if (b == "") return a;
+ return strcat(a, " ", b);
+}
+
string substring_range(string s, float b, float e)
{
return substring(s, b, e - b);
#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))
-
-#endif