source: LSFind/tag/1.0/VWBFPFND.m@ 1803

VWBFPFND        ;WV/BFP/jBell Portland, OR display labels in routine(s)  May 2016
        ;;**LOCAL**
        ;; This program is free software: you can redistribute it and/or modify
        ;; it under the terms of the GNU General Public License as published by
        ;; the Free Software Foundation, either version 3 of the License, or
        ;; (at your option) any later version.
        ;;
        ;; This program is distributed in the hope that it will be useful,
        ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
        ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        ;; GNU General Public License for more details.
        ;;
        ;; You should have received a copy of the GNU General Public License
        ;; along with this program.  If not, see <http://www.gnu.org/licenses>
        ;Q
        ;
LL      ;Find labels or strings
        ;***********************************************************
        ;*For gtm environs                                       *
        ;* After driving myself to Van Gogh level insanity trying  *
        ;* to remember line labels in only MY routines, or using   *
        ;* %RSE for string find and getting some several thousand  *
        ;* routine names AND being in a non-connective locale      *
        ;* (idyll fingers, etc, etc...) I finally did this routine *
        ;* that will only list the targeted item in the routine    *
        ;* set. The immediate benefit: I still have 2 ears.     *
        ;***********************************************************
        ;
        ;Q
        G ASK
        ;
X       W !?5 F I=1:1:10 W !,$T(LL+I^VWBFPFND)
        W !
        Q
        ;
C       R !,"String: ",MATCH:30
        I WHERE="G1" G @WHERE
        I '$L(MATCH) Q
        E  W !?10,"Searching for ",$S(WHAT="L":"LABEL ",1:"STRING "),""""_MATCH_"""" G @WHERE
        ;
A       G @WHERE
        ;
ASK     N WHAT,WHERE,ANS,R,X,I,J
        ;D X
A2      K %ZR,%ZG S ANS=""
        W !,"Search in (G)lobal or (R)outine: R// " R WHICH:120 I WHICH="G" G GSRCH
        W !!,"(L)abel only, (S)tring match in routine set?: " R WHAT:30 Q:'$L(WHAT)
        S WHAT=$E($$UP^XLFSTR(WHAT),1)
        S WHERE=$S(WHAT="L":"LAB",WHAT="S":"STR",WHAT="H":"HELP",1:"LAB")
        S ANS="C"
        S ANS=$E($$UP^XLFSTR(ANS),1)
A3      D @ANS
        G A2
        ;
LAB     D ^%RSEL
        Q:$D(%ZR)#11  ;No selection array
        D ^%ZIS U IO
        S R="" F  S R=$O(%ZR(R)) Q:R=""  D
        . S MATCH=$S('$L($G(MATCH)):"",1:MATCH)
        . F I=1:1 S X=$T(@R+I^@R) Q:X=""  S LABEL=$P(X," ") I $L(LABEL) D
        .. I ANS="A",MATCH="" S %ZR(R,$O(%ZR(R," "),-1)+1)=X Q
        .. I ANS="C",X[MATCH S %ZR(R,$O(%ZR(R," "),-1)+1)=X Q
        .. I ANS="E",X=MATCH S %ZR(R,$O(%ZR(R," "),-1)+1)=X Q
        D WR,^%ZISC
        Q
        ;
STR     ;Strings in the code
        I '$L(MATCH) W !?4,"Dude! No info!" Q
        D ^%RSEL
        Q:$D(%ZR)#11  ;No selection array
        D ^%ZIS U IO
        S R="" F  S R=$O(%ZR(R)) Q:R=""  D
        . F I=1:1 S X=$T(@R+I^@R) Q:X=""  D
        .. F J=1:1:$L(X,MATCH) I X[MATCH S %ZR(R,$O(%ZR(" "),-1)+1)="+"_I_" ->"_X
        D WR,^%ZISC
        Q
        ;
WR      ;Go through %ZR array and only print path/routine name
        ;                                           target...
        W !,"Searching for ",MATCH
        S R="" F  S R=$O(%ZR(R)) Q:R=""  D:$O(%ZR(R,0))
        . W !,%ZR(R)_R
        . S N=0 F  S N=$O(%ZR(R,N)) Q:'+N  W !?4,%ZR(R,N)
        Q
        ;
        ;ROUTINE fini
        ;
GSRCH   ;Global search for string
        W !,"Search string in Globals"
        R !,"Search for string: ",MATCH:30 Q:'$L(MATCH) 
        D CALL^%GSEL Q:$D(%ZG)#11
G1      W !,"Searching for ",MATCH,"...working...."
        S N="" F  S N=$O(%ZG(N)) Q:N=""  S X=N W "." D
        . F  S X=$Q(@X) Q:X=""  I X[MATCH!(@X[MATCH) W !,X,"->",@X
        . K %ZG(N)
        K WHERE,N,X,%ZG,MATCH
        Q
        ;Global fini
        ;