prelude: introduce _amember

Signed-off-by: Masatake YAMATO <[email protected]>
universal-ctags · May 15, 2021 · d76ae2d · d76ae2d
1 parent 7b27bce
commit d76ae2d
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/main/CommonPrelude.c b/main/CommonPrelude.c
@@ -141,4 +141,22 @@ const char ctagsCommonPrelude []=
 "        pop false\n"
 "    } ifelse\n"
 "} __bddef\n"
+"\n"
+"(array key _AMEMBER true|fales)\n"
+"/_amember {\n"
+"    false 3 1 roll\n"
+"    % false array key\n"
+"    exch {\n"
+"        % false key elt\n"
+"        1 index\n"
+"        % false key elt key\n"
+"        eq {\n"
+"            % false key\n"
+"            exch pop true exch\n"
+"            exit\n"
+"        } if\n"
+"        % false key\n"
+"    } forall\n"
+"    pop\n"
+"} __bddef\n"
 ;
diff --git a/main/CommonPrelude.ps b/main/CommonPrelude.ps