operator: introduce _markplaceholder

Signed-off-by: Masatake YAMATO <yamato@redhat.com>
universal-ctags · May 16, 2021 · d0d07af · d0d07af
1 parent 8c8223f
commit d0d07af
Show file tree

Hide file tree

Showing 4 changed files with 48 additions and 0 deletions.
diff --git a/Units/optscript.r/op-markplaceholder.d/args.ctags b/Units/optscript.r/op-markplaceholder.d/args.ctags
@@ -0,0 +1,11 @@
+--sort=no
+--langdef=UnknownX
+--map-UnknownX=.unknown
+
+--kinddef-UnknownX=d,def,definitions
+
+--regex-UnknownX=/([ \t]*)def +([a-zA-Z]):/\2/d/{{
+    \1 length 5 gt {
+        . _markplaceholder
+    } if
+}}
diff --git a/Units/optscript.r/op-markplaceholder.d/expected.tags b/Units/optscript.r/op-markplaceholder.d/expected.tags
@@ -0,0 +1,4 @@
+a	input.unknown	/^def a:$/;"	d
+b	input.unknown	/^    def b:$/;"	d
+A	input.unknown	/^def A:$/;"	d
+B	input.unknown	/^    def B:$/;"	d
diff --git a/Units/optscript.r/op-markplaceholder.d/input.unknown b/Units/optscript.r/op-markplaceholder.d/input.unknown
@@ -0,0 +1,6 @@
+def a:
+    def b:
+        def c:
+def A:
+    def B:
+        def C:
diff --git a/main/lregex.c b/main/lregex.c
@@ -3732,6 +3732,27 @@ static EsObject *lrop_advanceto (OptVM *vm, EsObject *name)
 	return es_true;
 }
 
+static EsObject *lrop_markplaceholder (OptVM *vm, EsObject *name)
+{
+	EsObject *tag = opt_vm_ostack_top (vm);
+
+	if (!es_integer_p (tag))
+		return OPT_ERR_TYPECHECK;
+
+	int n = es_integer_get (tag);
+	if (! (CORK_NIL < n && n < countEntryInCorkQueue()))
+		return OPT_ERR_RANGECHECK;
+
+	tagEntryInfo *e = getEntryInCorkQueue (n);
+	if (e == NULL)
+		return OPTSCRIPT_ERR_NOTAGENTRY;
+
+	markTagPlaceholder (e, true);
+
+	opt_vm_ostack_pop (vm);
+	return es_false;
+}
+
 static struct optscriptOperatorRegistration lropOperators [] = {
 	{
 		.name     = "_matchstr",
@@ -3872,6 +3893,12 @@ static struct optscriptOperatorRegistration lropOperators [] = {
 		.arity    = 0,
 		.help_str = "- _TRACED true|false",
 	},
+	{
+		.name     = "_markplaceholder",
+		.fn       = lrop_markplaceholder,
+		.arity    = 1,
+		.help_str = "tag:int _MARKPLACEHOLDER -",
+	}
 };
 
 extern void initRegexOptscript (void)
-Original file line number
+Diff line change
@@ -0,0 +1,6 @@
+    def a:
+        def b:
+            def c:
+    def A:
+        def B:
+            def C: