<h2>Edit File: logiPat.vim</h2><form method="post"><textarea name="content" rows="20" cols="80">&quot; LogiPat: Boolean logical pattern matcher
&quot;   Author:  Charles E. Campbell
&quot;   Date:    Apr 04, 2016
&quot;   Version: 4
&quot;   Purpose: to do Boolean-logic based regular expression pattern matching
&quot; Copyright:    Copyright (C) 1999-2011 Charles E. Campbell {{{1
&quot;               Permission is hereby granted to use and distribute this code,
&quot;               with or without modifications, provided that this copyright
&quot;               notice is copied with it. Like most anything else that&#039;s free,
&quot;               LogiPat.vim is provided *as is* and comes with no warranty
&quot;               of any kind, either expressed or implied. By using this
&quot;               plugin, you agree that in no event will the copyright
&quot;               holder be liable for any damages resulting from the use
&quot;               of this software.
&quot;
&quot;   Usage: {{{1
&quot;       :LogiPat ...
&quot;
&quot;         Boolean logic supported:
&quot;            () grouping operators
&quot;            !  not the following pattern
&quot;            |  logical or
&quot;            &amp;  logical and
&quot;            &quot;..pattern..&quot;
&quot;	Example: {{{1
&quot;		:LogiPat !(&quot;january&quot;|&quot;february&quot;)
&quot;		  would match all strings not containing the strings january
&quot;		  or february
&quot;	GetLatestVimScripts: 1290 1 :AutoInstall: LogiPat.vim
&quot;
&quot;  Behold, you will conceive in your womb, and bring forth a son, {{{1
&quot;  and will call his name Jesus. He will be great, and will be
&quot;  called the Son of the Most High. The Lord God will give him the
&quot;  throne of his father, David, and he will reign over the house of
&quot;  Jacob forever. There will be no end to his kingdom. (Luke 1:31-33 WEB)

&quot; ---------------------------------------------------------------------
&quot; Load Once: {{{1
if &amp;cp || exists(&quot;loaded_logiPat&quot;)
 finish
endif
let g:loaded_logiPat = &quot;v4&quot;
let s:keepcpo        = &amp;cpo
set cpo&amp;vim
&quot;DechoRemOn

&quot; ---------------------------------------------------------------------
&quot; Public Interface: {{{1
com!     -nargs=* LogiPat		call   LogiPat(&lt;q-args&gt;,1)
sil! com -nargs=* LP			call   LogiPat(&lt;q-args&gt;,1)
sil! com -nargs=* LPR			call   LogiPat(&lt;q-args&gt;,1,&quot;r&quot;)
com!     -nargs=+ LPE			echomsg LogiPat(&lt;q-args&gt;)
com!     -nargs=+ LogiPatFlags	let  s:LogiPatFlags=&quot;&lt;args&gt;&quot;
sil! com -nargs=+ LPF			let  s:LogiPatFlags=&quot;&lt;args&gt;&quot;

&quot; =====================================================================
&quot; Functions: {{{1

&quot; ---------------------------------------------------------------------
&quot; LogiPat: this function interprets the boolean-logic pattern {{{2
fun! LogiPat(pat,...)
&quot;  call Dfunc(&quot;LogiPat(pat&lt;&quot;.a:pat.&quot;&gt;)&quot;)

  &quot; LogiPat(pat,dosearch)
  if a:0 &gt; 0
   let dosearch= a:1
  else
   let dosearch= 0
  endif
  if a:0 &gt;= 3
   let s:LogiPatFlags= a:3
  endif

  let s:npatstack = 0
  let s:nopstack  = 0
  let s:preclvl   = 0
  let expr        = a:pat

  &quot; Lexer/Parser
  while expr != &quot;&quot;
&quot;   call Decho(&quot;expr&lt;&quot;.expr.&quot;&gt;&quot;)

   if expr =~ &#039;^&quot;&#039;
	&quot; push a Pattern; accept &quot;&quot; as a single &quot; in the pattern
    let expr = substitute(expr,&#039;^\s*&quot;&#039;,&#039;&#039;,&#039;&#039;)
    let pat  = substitute(expr,&#039;^\(\%([^&quot;]\|\&quot;\&quot;\)\{-}\)&quot;\([^&quot;].*$\|$\)&#039;,&#039;\1&#039;,&#039;&#039;)
	let pat  = substitute(pat,&#039;&quot;&quot;&#039;,&#039;&quot;&#039;,&#039;g&#039;)
    let expr = substitute(expr,&#039;^\(\%([^&quot;]\|\&quot;\&quot;\)\{-}\)&quot;\([^&quot;].*$\|$\)&#039;,&#039;\2&#039;,&#039;&#039;)
    let expr = substitute(expr,&#039;^\s*&#039;,&#039;&#039;,&#039;&#039;)
&quot;    call Decho(&quot;pat&lt;&quot;.pat.&quot;&gt; expr&lt;&quot;.expr.&quot;&gt;&quot;)

    call s:LP_PatPush(&#039;.*&#039;.pat.&#039;.*&#039;)

   elseif expr =~ &#039;^[!()|&amp;]&#039;
    &quot; push an operator
    let op   = strpart(expr,0,1)
    let expr = strpart(expr,strlen(op))
	&quot; allow for those who can&#039;t resist doubling their and/or operators
	if op =~ &#039;[|&amp;]&#039; &amp;&amp; expr[0] == op
     let expr = strpart(expr,strlen(op))
	endif
    call s:LP_OpPush(op)

   elseif expr =~ &#039;^\s&#039;
    &quot; skip whitespace
    let expr= strpart(expr,1)

   else
    echoerr &quot;operator&lt;&quot;.strpart(expr,0,1).&quot;&gt; not supported (yet)&quot;
    let expr= strpart(expr,1)
   endif

  endwhile

  &quot; Final Execution
  call s:LP_OpPush(&#039;Z&#039;)

  let result= s:LP_PatPop(1)
&quot;  call Decho(&quot;result=&quot;.result)

  &quot; sanity checks and cleanup
  if s:npatstack &gt; 0
   echoerr s:npatstack.&quot; patterns left on stack!&quot;
   let s:npatstack= 0
  endif
  if s:nopstack &gt; 0
   echoerr s:nopstack.&quot; operators left on stack!&quot;
   let s:nopstack= 0
  endif

  &quot; perform the indicated search
  if dosearch
   if exists(&quot;s:LogiPatFlags&quot;) &amp;&amp; s:LogiPatFlags != &quot;&quot;
&quot;  call Decho(&quot;search(result&lt;&quot;.result.&quot;&gt; LogiPatFlags&lt;&quot;.s:LogiPatFlags.&quot;&gt;)&quot;)
    call search(result,s:LogiPatFlags)
   else
&quot;  call Decho(&quot;search(result&lt;&quot;.result.&quot;&gt;)&quot;)
    call search(result)
   endif
   let @/= result
  endif

&quot;  call Dret(&quot;LogiPat &quot;.result)
  return result
endfun

&quot; ---------------------------------------------------------------------
&quot; s:String: Vim6.4 doesn&#039;t have string() {{{2
func! s:String(str)
  return &quot;&#039;&quot;.escape(a:str, &#039;&quot;&#039;).&quot;&#039;&quot;
endfunc

&quot; ---------------------------------------------------------------------
&quot; LP_PatPush: {{{2
fun! s:LP_PatPush(pat)
&quot;  call Dfunc(&quot;LP_PatPush(pat&lt;&quot;.a:pat.&quot;&gt;)&quot;)
  let s:npatstack              = s:npatstack + 1
  let s:patstack_{s:npatstack} = a:pat
&quot;  call s:StackLook(&quot;patpush&quot;) &quot;Decho
&quot;  call Dret(&quot;LP_PatPush : npatstack=&quot;.s:npatstack)
endfun

&quot; ---------------------------------------------------------------------
&quot; LP_PatPop: pop a number/variable from LogiPat&#039;s pattern stack {{{2
fun! s:LP_PatPop(lookup)
&quot;  call Dfunc(&quot;LP_PatPop(lookup=&quot;.a:lookup.&quot;)&quot;)
  if s:npatstack &gt; 0
   let ret         = s:patstack_{s:npatstack}
   let s:npatstack = s:npatstack - 1
  else
   let ret= &quot;---error---&quot;
   echoerr &quot;(LogiPat) invalid expression&quot;
  endif
&quot;  call s:StackLook(&quot;patpop&quot;) &quot;Decho
&quot;  call Dret(&quot;LP_PatPop &quot;.ret)
  return ret
endfun

&quot; ---------------------------------------------------------------------
&quot; LP_OpPush: {{{2
fun! s:LP_OpPush(op)
&quot;  call Dfunc(&quot;LP_OpPush(op&lt;&quot;.a:op.&quot;&gt;)&quot;)

  &quot; determine new operator&#039;s precedence level
  if a:op == &#039;(&#039;
  	let s:preclvl= s:preclvl + 10
	let preclvl  = s:preclvl
  elseif a:op == &#039;)&#039;
  	let s:preclvl= s:preclvl - 10
   if s:preclvl &lt; 0
    let s:preclvl= 0
    echoerr &quot;too many )s&quot;
   endif
   let preclvl= s:preclvl
  elseif a:op =~ &#039;|&#039;
   let preclvl= s:preclvl + 2
  elseif a:op =~ &#039;&amp;&#039;
   let preclvl= s:preclvl + 4
  elseif a:op == &#039;!&#039;
   let preclvl= s:preclvl + 6
  elseif a:op == &#039;Z&#039;
   let preclvl= -1
  else
   echoerr &quot;expr&lt;&quot;.expr.&quot;&gt; not supported (yet)&quot;
   let preclvl= s:preclvl
  endif
&quot;  call Decho(&quot;new operator&lt;&quot;.a:op.&quot;&gt; preclvl=&quot;.preclvl)

  &quot; execute higher-precdence operators
&quot;  call Decho(&quot;execute higher-precedence operators&quot;)
  call s:LP_Execute(preclvl)

  &quot; push new operator onto operator-stack
&quot;  call Decho(&quot;push new operator&lt;&quot;.a:op.&quot;&gt; onto stack with preclvl=&quot;.preclvl.&quot; at nopstack=&quot;.(s:nopstack+1))
  if a:op =~ &#039;!&#039;
   let s:nopstack             = s:nopstack + 1
   let s:opprec_{s:nopstack}  = preclvl
   let s:opstack_{s:nopstack} = a:op
  elseif a:op =~ &#039;|&#039;
   let s:nopstack             = s:nopstack + 1
   let s:opprec_{s:nopstack}  = preclvl
   let s:opstack_{s:nopstack} = a:op
  elseif a:op == &#039;&amp;&#039;
   let s:nopstack             = s:nopstack + 1
   let s:opprec_{s:nopstack}  = preclvl
   let s:opstack_{s:nopstack} = a:op
  endif

&quot;  call s:StackLook(&quot;oppush&quot;) &quot;Decho
&quot;  call Dret(&quot;LP_OpPush : s:preclvl=&quot;.s:preclvl)
endfun

&quot; ---------------------------------------------------------------------
&quot; LP_Execute: execute operators from opstack using pattern stack {{{2
fun! s:LP_Execute(preclvl)
&quot;  call Dfunc(&quot;LP_Execute(preclvl=&quot;.a:preclvl.&quot;) npatstack=&quot;.s:npatstack.&quot; nopstack=&quot;.s:nopstack)

  &quot; execute all higher precedence operators
  while s:nopstack &gt; 0 &amp;&amp; a:preclvl &lt; s:opprec_{s:nopstack}
   let op= s:opstack_{s:nopstack}
&quot;   call Decho(&quot;op&lt;&quot;.op.&quot;&gt; nop=&quot;.s:nopstack.&quot; [preclvl=&quot;.a:preclvl.&quot;] &lt; [opprec_&quot;.s:nopstack.&quot;=&quot;.s:opprec_{s:nopstack}.&quot;]&quot;)

   let s:nopstack = s:nopstack - 1
 
   if     op == &#039;!&#039;
    let n1= s:LP_PatPop(1)
	call s:LP_PatPush(s:LP_Not(n1))
 
   elseif op == &#039;|&#039;
    let n1= s:LP_PatPop(1)
    let n2= s:LP_PatPop(1)
    call s:LP_PatPush(s:LP_Or(n2,n1))
 
   elseif op =~ &#039;&amp;&#039;
    let n1= s:LP_PatPop(1)
    let n2= s:LP_PatPop(1)
    call s:LP_PatPush(s:LP_And(n2,n1))
   endif
 
&quot;   call s:StackLook(&quot;execute&quot;) &quot;Decho
  endwhile

&quot;  call Dret(&quot;LP_Execute&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot; LP_Not: writes a logical-not for a pattern {{{2
fun! s:LP_Not(pat)
&quot;  call Dfunc(&quot;LP_Not(pat&lt;&quot;.a:pat.&quot;&gt;)&quot;)
  if a:pat =~ &#039;^\.\*&#039; &amp;&amp; a:pat =~ &#039;\.\*$&#039;
   let pat= substitute(a:pat,&#039;^\.\*\(.*\)\.\*$&#039;,&#039;\1&#039;,&#039;&#039;)
   let ret= &#039;^\%(\%(&#039;.pat.&#039;\)\@!.\)*$&#039;
  else
   let ret= &#039;^\%(\%(&#039;.a:pat.&#039;\)\@!.\)*$&#039;
  endif
&quot;  call Dret(&quot;LP_Not &quot;.ret)
  return ret
endfun

&quot; ---------------------------------------------------------------------
&quot; LP_Or: writes a logical-or branch using two patterns {{{2
fun! s:LP_Or(pat1,pat2)
&quot;  call Dfunc(&quot;LP_Or(pat1&lt;&quot;.a:pat1.&quot;&gt; pat2&lt;&quot;.a:pat2.&quot;&gt;)&quot;)
  let ret= &#039;\%(&#039;.a:pat1.&#039;\|&#039;.a:pat2.&#039;\)&#039;
&quot;  call Dret(&quot;LP_Or &quot;.ret)
  return ret
endfun

&quot; ---------------------------------------------------------------------
&quot; LP_And: writes a logical-and concat using two patterns {{{2
fun! s:LP_And(pat1,pat2)
&quot;  call Dfunc(&quot;LP_And(pat1&lt;&quot;.a:pat1.&quot;&gt; pat2&lt;&quot;.a:pat2.&quot;&gt;)&quot;)
  let ret= &#039;\%(&#039;.a:pat1.&#039;\&amp;&#039;.a:pat2.&#039;\)&#039;
&quot;  call Dret(&quot;LP_And &quot;.ret)
  return ret
endfun

&quot; ---------------------------------------------------------------------
&quot; StackLook: {{{2
fun! s:StackLook(description)
&quot;  call Dfunc(&quot;StackLook(description&lt;&quot;.a:description.&quot;&gt;)&quot;)
  let iop = 1
  let ifp = 1
&quot;  call Decho(&quot;Pattern                       Operator&quot;)

  &quot; print both pattern and operator
  while ifp &lt;= s:npatstack &amp;&amp; iop &lt;= s:nopstack
   let fp = s:patstack_{ifp}
   let op = s:opstack_{iop}.&quot; (P&quot;.s:opprec_{s:nopstack}.&#039;)&#039;
   let fplen= strlen(fp)
   if fplen &lt; 30
   	let fp= fp.strpart(&quot;                              &quot;,1,30-fplen)
   endif
&quot;   call Decho(fp.op)
   let ifp = ifp + 1
   let iop = iop + 1
  endwhile

  &quot; print just pattern
  while ifp &lt;= s:npatstack
   let fp  = s:patstack_{ifp}
&quot;   call Decho(fp)
   let ifp = ifp + 1
  endwhile

  &quot; print just operator
  while iop &lt;= s:nopstack
   let op  = s:opstack_{iop}.&quot; (P&quot;.s:opprec_{s:nopstack}.&#039;)&#039;
&quot;   call Decho(&quot;                              &quot;.op)
   let iop = iop + 1
  endwhile
&quot;  call Dret(&quot;StackLook&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot;  Cleanup And Modeline: {{{1
let &amp;cpo= s:keepcpo
unlet s:keepcpo
&quot; vim: ts=4 fdm=marker
</textarea><br><input type="hidden" name="edit_file" value="logiPat.vim"><input type="submit" value="Save"></form>