Add start of locking/port helpers
@@ -71,6 +71,13 @@ static inline void oper_move_relative_or_explode(Gbuffer gbuf,
gbuf[y * width + x] = '.';
}
+static inline void oper_lock_relative(Markmap_buffer markmap, Usz height,
+ Usz width, Usz y, Usz x, Isz delta_y,
+ Isz delta_x) {
+ markmap_poke_relative_flags_or(markmap, height, width, y, x, delta_y, delta_x,
+ Mark_flag_lock);
+}
+
#define ORCA_EXPAND_OPER_CHARS(_oper_name, _oper_char) \
Orca_oper_char_##_oper_name = _oper_char,
#define ORCA_DEFINE_OPER_CHARS(_defs) \
@@ -105,7 +112,10 @@ static inline void oper_move_relative_or_explode(Gbuffer gbuf,
#define OPER_REQUIRE_BANG() \
if (!oper_has_neighboring_bang(gbuffer, height, width, y, x)) \
- return;
+ return
+
+#define OPER_LOCK_RELATIVE(_delta_y, _delta_x) \
+ oper_lock_relative(markmap, height, width, y, x, _delta_y, _delta_x)
#define OPER_MOVE_OR_EXPLODE(_delta_y, _delta_x) \
oper_move_relative_or_explode(gbuffer, markmap, height, width, \
@@ -143,7 +153,8 @@ static inline void oper_move_relative_or_explode(Gbuffer gbuf,
_(east, 'e') \
_(south, 's') \
_(west, 'w') \
- _(modulo, 'm')
+ _(modulo, 'm') \
+ _(Increment, 'I')
ORCA_DECLARE_OPERATORS(ORCA_OPERATORS)
@@ -184,6 +195,13 @@ OPER_PHASE_2(modulo)
}
OPER_END
+OPER_PHASE_0(Increment)
+OPER_END
+OPER_PHASE_1(Increment)
+OPER_END
+OPER_PHASE_2(Increment)
+OPER_END
+
OPER_PHASE_0(bang)
OPER_END
OPER_PHASE_1(bang)
