Return to %STRING.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%STRING.m, revision 1.1

1.1     ! snw         1: %STRING(THIS,INIT) ; Created by FreeM Administrator
        !             2:     S THIS=$G(INIT,"")
        !             3:     QUIT
        !             4: ASCII(THIS,POS) N RP S RP=$G(POS,1) Q $A(THIS,RP)
        !             5: ascii(THIS,POS) N RP S RP=$G(POS,1) Q $A(THIS,RP)
        !             6: Ascii(THIS,POS) N RP S RP=$G(POS,1) Q $A(THIS,RP)
        !             7: DATA(THIS) Q $D(THIS)
        !             8: data(THIS) Q $D(THIS)
        !             9: Data(THIS) Q $D(THIS)
        !            10: DISTANCE(THIS,COMP) Q $ZLSD(THIS,COMP)
        !            11: distance(THIS,COMP) Q $ZLSD(THIS,COMP)
        !            12: Distance(THIS,COMP) Q $ZLSD(THIS,COMP)
        !            13: EXTRACT(THIS,START,END) Q $E(THIS,$G(START,1),$G(END,$G(START,1)))
        !            14: extract(THIS,START,END) Q $E(THIS,$G(START,1),$G(END,$G(START,1)))
        !            15: Extract(THIS,START,END) Q $E(THIS,$G(START,1),$G(END,$G(START,1)))
        !            16: FIND(THIS,SUBSTR,START) N RS S RS=$GET(START,1) Q $F(THIS,SUBSTR,RS)
        !            17: find(THIS,SUBSTR,START) N RS S RS=$GET(START,1) Q $F(THIS,SUBSTR,RS)
        !            18: Find(THIS,SUBSTR,START) N RS S RS=$GET(START,1) Q $F(THIS,SUBSTR,RS)
        !            19: FNUMBER(THIS,CODES) Q $FN(THIS,CODES)
        !            20: fnumber(THIS,CODES) Q $FN(THIS,CODES)
        !            21: Fnumber(THIS,CODES) Q $FN(THIS,CODES)
        !            22: JUSTIFY(THIS,COUNT,DIG) Q $J(THIS,COUNT,$GET(DIG,$L(THIS)))
        !            23: justify(THIS,COUNT,DIG) Q $J(THIS,COUNT,$GET(DIG,$L(THIS)))
        !            24: Justify(THIS,COUNT,DIG) Q $J(THIS,COUNT,$GET(DIG,$L(THIS)))
        !            25: LENGTH(THIS) Q $L(THIS)
        !            26: length(THIS) Q $L(THIS)
        !            27: Length(THIS) Q $L(THIS)
        !            28: PIECECOUNT(THIS,DELIM) Q $L(THIS,DELIM)
        !            29: pieceCount(THIS,DELIM) Q $L(THIS,DELIM)
        !            30: PieceCount(THIS,DELIM) Q $L(THIS,DELIM)
        !            31: PIECE(THIS,DELIM,FIRST,LAST) N RF S RF=$G(FIRST,1) N RL S RL=$G(LAST,RF) Q $P(THIS,DELIM,RF,RL)
        !            32: piece(THIS,DELIM,FIRST,LAST) N RF S RF=$G(FIRST,1) N RL S RL=$G(LAST,RF) Q $P(THIS,DELIM,RF,RL)
        !            33: Piece(THIS,DELIM,FIRST,LAST) N RF S RF=$G(FIRST,1) N RL S RL=$G(LAST,RF) Q $P(THIS,DELIM,RF,RL)
        !            34: REPLACE(THIS,SEARCH,REPLACE) Q $ZREPLACE(THIS,SEARCH,REPLACE)
        !            35: replace(THIS,SEARCH,REPLACE) Q $ZREPLACE(THIS,SEARCH,REPLACE)
        !            36: Replace(THIS,SEARCH,REPLACE) Q $ZREPLACE(THIS,SEARCH,REPLACE)
        !            37: REVERSE(THIS) Q $RE(THIS)
        !            38: reverse(THIS) Q $RE(THIS)
        !            39: Reverse(THIS) Q $RE(THIS)
        !            40: TOLOWER(THIS) Q $TR(THIS,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
        !            41: toLower(THIS) Q $TR(THIS,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
        !            42: ToLower(THIS) Q $TR(THIS,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
        !            43: TOUPPER(THIS) Q $TR(THIS,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
        !            44: toUpper(THIS) Q $TR(THIS,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
        !            45: ToUpper(THIS) Q $TR(THIS,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
        !            46: TRANSLATE(THIS,SEARCH,REPLACE) N RR S RR=$G(REPLACE,"") Q $TR(THIS,SEARCH,RR)
        !            47: translate(THIS,SEARCH,REPLACE) N RR S RR=$G(REPLACE,"") Q $TR(THIS,SEARCH,RR)
        !            48: Translate(THIS,SEARCH,REPLACE) N RR S RR=$G(REPLACE,"") Q $TR(THIS,SEARCH,RR)