Tmain: add cases for testing parser specific fields with data types defined in optlib

Signed-off-by: Masatake YAMATO <yamato@redhat.com>

Author: masatake

Tmain/parser-own-fields-for-foreign-lang-in-json.d/input.unknownx

@@ -0,0 +1,8 @@
+public func foo(n, m);
+protected func bar(n);
+private func baz(n,...);
+X:tagme@iamowner
+Y:iamowner2=tagme2
+Z:tagme-z@iamowner-z
+eset:a
+enoset:b

Tmain/parser-own-fields-for-foreign-lang-in-json.d/knownz.ctags

@@ -0,0 +1,12 @@
+--langdef=knownz
+--kinddef-knownz=m,mark,makers
+
+--_fielddef-knownz=owner,the owner of the markers{datatype=str}
+
+--_fielddef-knownz=len,the length of owner string{datatype=int}
+--fields-knownz=+{len}
+--_fielddef-knownz=lenplus,the length of owner string + 1{datatype=int}
+--fields-knownz=+{lenplus}
+
+--_fielddef-knownz=exported,whether the marker is exported or not{datatype=bool}
+--fields-knownz=+{exported}

Tmain/parser-own-fields-for-foreign-lang-in-json.d/run.sh

@@ -0,0 +1,19 @@
+# Copyright: 2025 Masatake YAMATO
+# License: GPL-2
+
+. ../utils.sh
+
+CTAGS=$1
+
+V=
+# V=valgrind
+
+is_feature_available "${CTAGS}" json
+
+echo "# output: json"
+${V} ${CTAGS} --options=NONE --options=./knownz.ctags --sort=no --options=./unknownx.ctags \
+	 --fields=+l \
+	 --fields-unknownx=+'{protection}{signature}' \
+	 --fields-knownz=+'{owner}' \
+	 --output-format=json \
+	 -o - input.unknownx

Tmain/parser-own-fields-for-foreign-lang-in-json.d/stderr-expected.txt

@@ -0,0 +1 @@
+ctags: Notice: No options will be read from files or environment

Tmain/parser-own-fields-for-foreign-lang-in-json.d/stdout-expected.txt

@@ -0,0 +1,10 @@
+# output: json
+{"_type": "tag", "name": "foo", "path": "input.unknownx", "pattern": "/^public func foo(n, m);$/", "language": "unknownx", "kind": "func", "protection": "public ", "signature": "(n, m)"}
+{"_type": "tag", "name": "bar", "path": "input.unknownx", "pattern": "/^protected func bar(n);$/", "language": "unknownx", "kind": "func", "protection": "protected ", "signature": "(n)"}
+{"_type": "tag", "name": "baz", "path": "input.unknownx", "pattern": "/^private func baz(n,...);$/", "language": "unknownx", "kind": "func", "protection": "private ", "signature": "(n,...)"}
+{"_type": "tag", "name": "tagme", "path": "input.unknownx", "pattern": "/^X:tagme@iamowner$/", "language": "knownz", "kind": "mark", "owner": "iamowner"}
+{"_type": "tag", "name": "tagme2", "path": "input.unknownx", "pattern": "/^Y:iamowner2=tagme2$/", "language": "knownz", "kind": "mark", "owner": "iamowner2"}
+{"_type": "tag", "name": "tagme-z", "path": "input.unknownx", "pattern": "/^Z:tagme-z@iamowner-z$/", "language": "knownz", "kind": "mark", "owner": "iamowner-z", "len": 10, "lenplus": 11}
+{"_type": "tag", "name": "a", "path": "input.unknownx", "pattern": "/^eset:a$/", "language": "knownz", "kind": "mark", "exported": true}
+{"_type": "tag", "name": "b", "path": "input.unknownx", "pattern": "/^enoset:b$/", "language": "knownz", "kind": "mark"}
+{"_type": "tag", "name": "7_exported", "path": "input.unknownx", "pattern": "/^enoset:b$/", "language": "knownz", "kind": "mark"}

Tmain/parser-own-fields-for-foreign-lang-in-json.d/unknownx.ctags

@@ -0,0 +1,39 @@
+--langdef=unknownx{_foreignLanguage=knownz}
+--kinddef-unknownx=f,func,functions
+--map-unknownx=+.unknownx
+
+--_fielddef-unknownx=protection,protections
+--_fielddef-unknownx=signature,signatures
+
+--_prelude-unknownx={{
+   /exported false def
+}}
+
+--regex-unknownx=/^((public|protected|private) +)?func ([^\(]+)\((.*)\)/\3/f/{_field=protection:\1}{_field=signature:(\4)}
+--regex-unknownx=/^X:([a-z]+)@([a-z]+)/\1/m/{_language=knownz}{_field=owner:\2}
+--regex-unknownx=/^Y:([a-z0-9]+)=([a-z0-9]+)/\2/m/{_field=owner:\1}{_language=knownz}
+--regex-unknownx=/^Z:([-a-z]+)@([-a-z]+)/\1/m/{_language=knownz}{{
+    . \2 knownz.owner:
+    . :knownz.owner {
+        . exch length knownz.len:
+    } if
+    . :knownz.len {
+        1 add
+        . exch knownz.lenplus:
+    } if
+}}
+
+--regex-unknownx=/^eset:([-a-z]+)/\1/m/{_language=knownz}{{
+    /exported . def
+    . true knownz.exported:
+}}
+
+--regex-unknownx=/^enoset:([-a-z]+)/\1/m/{_language=knownz}{{
+    . false knownz.exported:
+    exported :knownz.exported and {
+       mark exported 0 string cvs (_exported) _buildstring
+       /knownz
+       /mark
+       1@ _foreigntag _commit pop
+    } if
+}}

Tmain/parser-own-fields-for-foreign-lang.d/input.unknownx

@@ -3,3 +3,6 @@ protected func bar(n);
 private func baz(n,...);
 X:tagme@iamowner
 Y:iamowner2=tagme2
+Z:tagme-z@iamowner-z
+eset:a
+enoset:b

Tmain/parser-own-fields-for-foreign-lang.d/knownz.ctags

@@ -1,4 +1,12 @@
 --langdef=knownz
 --kinddef-knownz=m,mark,makers
 
---_fielddef-knownz=owner,the owner of the markers
+--_fielddef-knownz=owner,the owner of the markers{datatype=str}
+
+--_fielddef-knownz=len,the length of owner string{datatype=int}
+--fields-knownz=+{len}
+--_fielddef-knownz=lenplus,the length of owner string + 1{datatype=int}
+--fields-knownz=+{lenplus}
+
+--_fielddef-knownz=exported,whether the marker is exported or not{datatype=bool}
+--fields-knownz=+{exported}

Tmain/parser-own-fields-for-foreign-lang.d/run.sh

@@ -8,8 +8,17 @@ CTAGS=$1
 V=
 # V=valgrind
 
-${V} ${CTAGS} --options=NONE --options=./knownz.ctags --options=./unknownx.ctags \
+echo "# output: tags"
+${V} ${CTAGS} --options=NONE --options=./knownz.ctags --sort=no --options=./unknownx.ctags \
 	 --fields=+l \
 	 --fields-unknownx=+'{protection}{signature}' \
 	 --fields-knownz=+'{owner}' \
 	 -o - input.unknownx
+
+echo "# output: xref"
+${V} ${CTAGS} --options=NONE --options=./knownz.ctags --sort=no --options=./unknownx.ctags \
+	 --fields=+l \
+	 --fields-unknownx=+'{protection}{signature}' \
+	 --fields-knownz=+'{owner}' \
+	 -x --_xformat="%N %l / owner:%{knownz.owner},len:%{knownz.len},lenplus:%{knownz.lenplus},exported:%{knownz.exported} / %{unknownx.protection}%{unknownx.signature}" \
+	 -o - input.unknownx

Tmain/parser-own-fields-for-foreign-lang.d/stderr-expected.txt

@@ -1 +1,2 @@
 ctags: Notice: No options will be read from files or environment
+ctags: Notice: No options will be read from files or environment