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

diff --git a/scripts/gen_calc_oper.php b/scripts/gen_calc_oper.php
new file mode 100644
index 0000000..126e9ac
--- /dev/null
+++ b/scripts/gen_calc_oper.php
@@ -0,0 +1,63 @@
+<?php
+
+include __DIR__."/_include.php";
+
+$oper = [
+		["NOT", "TILDE"],
+		["ASTERISK", "SLASH", "MODULO"],
+		["PLUS", "MINUS"],
+		["LSHIFT", "RSHIFT"],
+		["LCHEVR", "CMP_LE", "RCHEVR", "CMP_GE"],
+		["AMPERSAND"],
+		["CMP_EQ", "CMP_NE"],
+		["CARET"],
+		["PIPE"],
+		["AND"],
+		["OR"]
+];
+
+?>
+
+
+static inline int psi_calc_oper(token_t op1, token_t op2)
+{
+	if (PSI_T_LPAREN == op2) {
+		return -1;
+	} else if (PSI_T_LPAREN == op1) {
+		return 1;
+	} else if (op1 == op2) {
+		return 0;
+	} else if (!op1) {
+		return 1;
+	} else if (!op2) {
+		return -1;
+	}
+
+	switch (op1) {<?php /*nobr*/ ?>
+	<?php foreach ($oper as $prec1 => $ops1) : ?>
+	<?php foreach ($ops1 as $op1) : ?>
+
+	case PSI_T_<?=$op1?>:
+		switch (op2) {<?php /*nobr*/ ?>
+		<?php foreach ($oper as $prec2 => $ops2) : ?>
+			<?php foreach ($ops2 as $op2) : ?>
+
+		case PSI_T_<?=$op2?>:
+			return <?=$prec1==$prec2?0:($prec1>$prec2?1:-1)?>;<?php /*nobr */ ?>
+			<?php endforeach; ?>
+		<?php endforeach; ?>
+
+		default:
+			assert(0);
+			break;
+		}
+		break;
+	<?php endforeach; ?>
+	<?php endforeach; ?>
+
+	default:
+		assert(0);
+		break;
+	}
+	return 0;
+}