X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=scripts%2Fgen_calc_cmp.php;fp=scripts%2Fgen_calc_cmp.php;h=8f82bfbf72d2fcdf017bb9f99895d7cf08ca208d;hp=0000000000000000000000000000000000000000;hb=52ed5940ed0ab3cafd36fbded2e83c92563e7b2b;hpb=acb84297d3ceeb57c97e0ac4da1881eba6aee18e

diff --git a/scripts/gen_calc_cmp.php b/scripts/gen_calc_cmp.php
new file mode 100644
index 0000000..8f82bfb
--- /dev/null
+++ b/scripts/gen_calc_cmp.php
@@ -0,0 +1,61 @@
+<?php
+
+include __DIR__."/_include.php";
+
+$ops = [
+		"eq" => "==",
+		"ne" => "!=",
+		"lt" => "<",
+		"gt" => ">",
+		"le" => "<=",
+		"ge" => ">="
+];
+
+?>
+
+<?php foreach ($ops as $op_name => $op) : ?>
+
+static inline token_t psi_calc_cmp_<?=$op_name?>(token_t t1, impl_val *v1, token_t t2, impl_val *v2, impl_val *res)
+{
+	switch (t1) {<?php /*nobr*/ ?>
+	<?php foreach ($types as $t1 => $v1) : ?>
+	<?php if (t_is_special($t1)) : ?>
+
+#if HAVE_<?=$t1?>
+	<?php endif; ?>
+
+	case PSI_T_<?=$t1?>:
+		switch (t2) {<?php /*nobr*/ ?>
+		<?php foreach ($types as $t2 => $v2) : ?>
+		<?php if (t_is_special($t2)) :?>
+	
+#	if HAVE_<?=$t2?>
+		<?php endif; ?>
+		
+		case PSI_T_<?=$t2?>:
+			res->u8 = v1-><?=$v1?> <?=$op?> v2-><?=$v2?>;
+			break;<?php /*nobr*/ ?>
+		<?php if (t_is_special($t2)) : ?>
+
+#	endif
+		<?php endif; ?>
+		<?php endforeach; ?>
+
+		default:
+			assert(0);
+			break;
+		}
+		break;<?php /*nobr*/ ?>
+	<?php if (t_is_special($t1)) : ?>
+
+#endif
+	<?php endif; ?>
+	<?php endforeach; ?>
+
+	default:
+		assert(0);
+		break;
+	}
+	return PSI_T_UINT8;
+}
+<?php endforeach; ?>