prelude: introduce @1 ~ @9 and 1@ ~ 9@ procedures

Signed-off-by: Masatake YAMATO <[email protected]>

Author: masatake

main/CommonPrelude.c

@@ -178,4 +178,24 @@ const char ctagsCommonPrelude []=
 "    } forall\n"
 "    dup true ne { pop pop false } if\n"
 "} __bddef\n"
+"\n"
+"% define @1 ~ @9.\n"
+"1 1 9 {\n"
+"    dup\n"
+"    mark (- @) 3 -1 roll ?0 add ( matchloc) _buildstring\n"
+"    exch dup\n"
+"    mark (@) 3 -1 roll ?0 add _buildstring cvn\n"
+"    exch\n"
+"    [ exch /start /_matchloc cvx ] cvx __bddef\n"
+"} for\n"
+"\n"
+"% define 1@ ~ 9@.\n"
+"1 1 9 {\n"
+"    dup\n"
+"    mark (- ) 3 -1 roll ?0 add (@ matchloc) _buildstring\n"
+"    exch dup\n"
+"    mark exch ?0 add (@) _buildstring cvn\n"
+"    exch\n"
+"    [ exch /end /_matchloc cvx ] cvx __bddef\n"
+"} for\n"
 ;

main/CommonPrelude.ps

@@ -41,7 +41,7 @@ static void initializeGPerfParser (const langType language)
 		"     (lookup-function-name) /lfunc\n"
 		"     (class-name)           /class\n"
 		"     (string-pool-name)     /strpool >> \\1 get\n"
-		"  2 /start _matchloc\n"
+		"  @2\n"
 		"  _tag _commit pop\n"
 		"}}", NULL);
 	addLanguageTagMultiTableRegex (language, "main",
@@ -92,7 +92,7 @@ static void initializeGPerfParser (const langType language)
 		"     (lookup-function-name) /lfunc\n"
 		"     (class-name)           /class\n"
 		"     (string-pool-name)     /strpool >> \\1 get\n"
-		"  2 /start _matchloc\n"
+		"  @2\n"
 		"  _tag _commit pop\n"
 		"}}", NULL);
 	addLanguageTagMultiTableRegex (language, "structdec",

optlib/gperf.c

@@ -84,7 +84,7 @@
      (lookup-function-name) /lfunc
      (class-name)           /class
      (string-pool-name)     /strpool >> \1 get
-  2 /start _matchloc
+  @2
   _tag _commit pop
 }}
 --_mtable-regex-GPerf=structdec/[^\n]*\n//

optlib/gperf.ctags

@@ -25,7 +25,7 @@ static void initializeManParser (const langType language)
 		"    /fill-end-of-scope {\n"
 		"         _scopetop pop exch\n"
 		"         % scope-top:int adjustment:int\n"
-		"         1 /start _matchloc _matchloc2line exch\n"
+		"         @1 _matchloc2line exch\n"
 		"         % scope-top:int line adjustment:int\n"
 		"         2 copy gt {\n"
 		"             sub end:\n"

optlib/man.c

@@ -59,7 +59,7 @@
     /fill-end-of-scope {
          _scopetop pop exch
          % scope-top:int adjustment:int
-         1 /start _matchloc _matchloc2line exch
+         @1 _matchloc2line exch
          % scope-top:int line adjustment:int
          2 copy gt {
              sub end:

optlib/man.ctags

@@ -56,7 +56,7 @@ extern parserDefinition* MesonOptionsParser (void)
 		"    % \\2 may point a kind. This must be converted to a name from a string.\n"
 		"    \\2 cvn\n"
 		"    % Push the start position of the group 1.\n"
-		"    1 /start _matchloc\n"
+		"    @1\n"
 		"    % To skip an unexpected kind name, _tag is wrapped with stopped.\n"
 		"    { _tag } stopped {\n"
 		"        % Unexpected kind. Clear the stack.\n"

optlib/mesonOptions.c

@@ -33,7 +33,7 @@
     % \2 may point a kind. This must be converted to a name from a string.
     \2 cvn
     % Push the start position of the group 1.
-    1 /start _matchloc
+    @1
     % To skip an unexpected kind name, _tag is wrapped with stopped.
     { _tag } stopped {
         % Unexpected kind. Clear the stack.

optlib/mesonOptions.ctags

@@ -92,7 +92,7 @@ extern parserDefinition* PodParser (void)
 		"{{\n"
 		"    \\2\n"
 		"    kindTable \\1 tolevel get\n"
-		"    2 /start _matchloc\n"
+		"    @2\n"
 		"    _tag _commit\n"
 		"    dup :line 1 sub \\1 tolevel scopePopUpTo\n"
 		"    _scopetop {\n"

optlib/pod.c

@@ -79,7 +79,7 @@
 --regex-Pod=/^=head([1-4])[ \t]+(.+)//{{
     \2
     kindTable \1 tolevel get
-    2 /start _matchloc
+    @2
     _tag _commit
     dup :line 1 sub \1 tolevel scopePopUpTo
     _scopetop {