self hosted progress

1 files changed, 13 insertions, 0 deletions

diff --git a/src/common.hff b/src/common.hff
index aac733e..fe90e09 100644
--- a/src/common.hff
+++ b/src/common.hff
@@ -26,6 +26,19 @@ defmacro foreach(x, i, a, ...body) [
 ]
 
 defmacro streq(a,b) [ (strcmp(a,b) == 0) ]
+defmacro strcieq(a,b) [ (strcasecmp(a,b) == 0) ]
+
+defmacro coalesce(a,b) [
+   (do let $x = a;
+       $x ? $x : b; )
+]
+
+defmacro with_tmpchange(var,x,...body) [
+   { let $tmp = (var);
+       (var) = x;
+       { body }
+       (var) = $tmp; }
+]
 
 // Inline functions
 fn bswap32(x u32) u32 {