Texinfo: new parser

Signed-off-by: Masatake YAMATO <yamato@redhat.com>
universal-ctags · Dec 29, 2022 · f3218d6 · f3218d6
1 parent f4f431d
commit f3218d6
Show file tree

Hide file tree

Showing 15 changed files with 739 additions and 25 deletions.
diff --git a/Tmain/list-params.d/run.sh b/Tmain/list-params.d/run.sh
@@ -4,6 +4,12 @@
 CTAGS=$1
 C="${CTAGS} --quiet --options=NONE"
 
+ignore_pcre2()
+{
+	grep -v Texinfo
+}
+
+{
 echo '# ALL'
 ${C} --with-list-header=yes --list-params
 echo
@@ -31,3 +37,4 @@ echo
 echo '# CPP MACHINABLE NOHEADER + PARAM DEFINE WITH CMDLINE'
 ${C} --_paramdef-CPreProcessor='pragma,handle program' --with-list-header=no  --machinable --list-params=CPreProcessor
 echo
+} | ignore_pcre2
diff --git a/Tmain/list-roles-with-kind-names.d/run.sh b/Tmain/list-roles-with-kind-names.d/run.sh
@@ -7,7 +7,7 @@ echo '{header}'
 ${CTAGS} --list-roles=all.'{header}'
 
 echo '{header}I'
-${CTAGS} --list-roles=all.'{header}I'
+${CTAGS} --machinable=yes --list-roles=all.'{header}I' | grep -v Texinfo
 
 echo 'd{header}'
 ${CTAGS} --list-roles=all.'d{header}'
diff --git a/Tmain/list-roles-with-kind-names.d/stdout-expected.txt b/Tmain/list-roles-with-kind-names.d/stdout-expected.txt
@@ -15,26 +15,26 @@ OldC++         h/header  system on      system header
 Vera           h/header  local  on      local header
 Vera           h/header  system on      system header
 {header}I
-#LANGUAGE      KIND(L/N)   NAME      ENABLED DESCRIPTION
-C              h/header    local     on      local header
-C              h/header    system    on      system header
-C++            h/header    local     on      local header
-C++            h/header    system    on      system header
-CPreProcessor  h/header    local     on      local header
-CPreProcessor  h/header    system    on      system header
-CUDA           h/header    local     on      local header
-CUDA           h/header    system    on      system header
-Flex           I/import    import    on      imports
-M4             I/macrofile included  on      included macro
-M4             I/macrofile sincluded on      silently included macro
-Make           I/makefile  included  on      included
-Make           I/makefile  optional  on      optionally included
-OldC           h/header    local     on      local header
-OldC           h/header    system    on      system header
-OldC++         h/header    local     on      local header
-OldC++         h/header    system    on      system header
-Vera           h/header    local     on      local header
-Vera           h/header    system    on      system header
+#LANGUAGE	KIND(L/N)	NAME	ENABLED	DESCRIPTION
+C	h/header	local	on	local header
+C	h/header	system	on	system header
+C++	h/header	local	on	local header
+C++	h/header	system	on	system header
+CPreProcessor	h/header	local	on	local header
+CPreProcessor	h/header	system	on	system header
+CUDA	h/header	local	on	local header
+CUDA	h/header	system	on	system header
+Flex	I/import	import	on	imports
+M4	I/macrofile	included	on	included macro
+M4	I/macrofile	sincluded	on	silently included macro
+Make	I/makefile	included	on	included
+Make	I/makefile	optional	on	optionally included
+OldC	h/header	local	on	local header
+OldC	h/header	system	on	system header
+OldC++	h/header	local	on	local header
+OldC++	h/header	system	on	system header
+Vera	h/header	local	on	local header
+Vera	h/header	system	on	system header
 d{header}
 #LANGUAGE      KIND(L/N)   NAME      ENABLED DESCRIPTION
 Automake       d/directory data      on      directory for DATA primary

diff --git a/Tmain/list-roles.d/run.sh b/Tmain/list-roles.d/run.sh
@@ -33,17 +33,22 @@ ignore_old()
     grep -v '^Old'
 }
 
+ignore_pcre2()
+{
+	grep -v '^Texinfo'
+}
+
 title ''
-${CTAGS} --quiet --options=NONE --list-roles= | ignore_xml | ignore_old | ignore_yaml
+${CTAGS} --quiet --options=NONE --list-roles= | ignore_xml | ignore_old | ignore_yaml | ignore_pcre2
 
 title 'all.*'
-${CTAGS} --quiet --options=NONE --list-roles='all.*' | ignore_xml | ignore_old | ignore_yaml
+${CTAGS} --quiet --options=NONE --list-roles='all.*' | ignore_xml | ignore_old | ignore_yaml | ignore_pcre2
 
 title 'C.*'
 ${CTAGS} --quiet --options=NONE --list-roles='C.*'
 
 title 'all.d'
-${CTAGS} --quiet --options=NONE --list-roles='all.d' | ignore_xml | ignore_old | ignore_yaml
+${CTAGS} --quiet --options=NONE --list-roles='all.d' | ignore_xml | ignore_old | ignore_yaml | ignore_pcre2
 
 title 'Sh.s'
 ${CTAGS} --quiet --options=NONE --list-roles='Sh.s'

diff --git a/Units/parser-texinfo.r/lisp-param-elisp.d/args.ctags b/Units/parser-texinfo.r/lisp-param-elisp.d/args.ctags
@@ -0,0 +1,2 @@
+--sort=no
+--extras=+g
diff --git a/Units/parser-texinfo.r/lisp-param-elisp.d/expected.tags b/Units/parser-texinfo.r/lisp-param-elisp.d/expected.tags
@@ -0,0 +1 @@
+exec	input.texi	/^(defun exec (cmd)$/;"	f
diff --git a/Units/parser-texinfo.r/lisp-param-elisp.d/input.texi b/Units/parser-texinfo.r/lisp-param-elisp.d/input.texi
@@ -0,0 +1,4 @@
+@lisp
+(defun exec (cmd)
+       ...)
+@end lisp
diff --git a/Units/parser-texinfo.r/lisp-param-scheme.d/args.ctags b/Units/parser-texinfo.r/lisp-param-scheme.d/args.ctags
@@ -0,0 +1,3 @@
+--sort=no
+--extras=+g
+--param-Texinfo.LispLang=Scheme
diff --git a/Units/parser-texinfo.r/lisp-param-scheme.d/expected.tags b/Units/parser-texinfo.r/lisp-param-scheme.d/expected.tags
@@ -0,0 +1 @@
+exec	input.texi	/^(define (exec cmd)$/;"	f
diff --git a/Units/parser-texinfo.r/lisp-param-scheme.d/input.texi b/Units/parser-texinfo.r/lisp-param-scheme.d/input.texi
@@ -0,0 +1,4 @@
+@lisp
+(define (exec cmd)
+       ...)
+@end lisp
diff --git a/docs/news.rst b/docs/news.rst
@@ -475,6 +475,7 @@ The following parsers have been added:
 * TclOO (see :ref:`The new Tcl parser <tcl>`)
 * Thrift *peg/packcc*
 * TTCN
+* Texinfo *optlib pcre2*
 * Txt2tags
 * TypeScript
 * Varlink *peg/packcc*

diff --git a/main/parsers_p.h b/main/parsers_p.h
@@ -48,7 +48,8 @@
 
 #ifdef HAVE_PCRE2
 #define OPTLIB2C_PCRE2_PARSER_LIST             \
-   RDocParser
+   RDocParser, \
+   TexinfoParser
 #else
 #define OPTLIB2C_PCRE2_PARSER_LIST
 #endif