removed redundant files from idl_misc directory

Annie Hughes
1 parent 4519580a
Showing 7 changed files with 0 additions and 474 deletions Show diff stats
src/idl_misc/nexttok.pro
src/idl_misc/repchr.pro
src/idl_misc/str_token.pro
src/idl_misc/strcnt.pro
src/idl_misc/strnumber.pro
src/idl_misc/strtrans.pro
src/idl_misc/textoidl_str_replace.pro
@@ -1,116 +0,0 @@
-;
-;+
-; NAME:
-;       NEXTTOK
-; PURPOSE:
-;       Find the next occurance of any of a set of characters in a
-;       string and return the character which occurs next.
-; CATEGORY:
-;       text/strings
-; CALLING SEQUENCE:
-;       tok = nexttok( strn, tokens )
-; INPUTS:
-;       strn   -- string to be searched for sub/superscripts    in
-;       tokens -- string containing characters to be found.     in
-; KEYWORD PARAMETERS:
-;       POSITION -- Set to a named variable to get position     out
-;                   of next token, or -1 if none found.
-;       /HELP    -- Print useful message and exit.
-; OUTPUTS:
-;       tok    -- Contains the character among tokens which     out
-;                 occurs next in strn, or null '' if none found.
-; COMMON BLOCKS:
-; SIDE EFFECTS:
-; NOTES:
-; EXAMPLE:
-;       nexttok( 'x^2 + N_j^3', '^_', position=pos ) returns '^' and sets
-;       pos to 1.
-; MODIFICATION HISTORY:
-;       $Id: nexttok.pro,v 1.3 1996/06/14 20:00:27 mcraig Exp $
-;       $Log: nexttok.pro,v $
-;       Revision 1.3  1996/06/14 20:00:27  mcraig
-;       Updated Copyright info.
-;
-;       Revision 1.2  1996/05/09 00:22:17  mcraig
-;       Generalized so that the next occurence of any of a set of characters will
-;       be returned.
-;
-;       Revision 1.1  1996/01/31 18:41:06  mcraig
-;       Initial revision
-;
-; RELEASE:
-;       $Name: Rel_2_1 $
-;
-; COPYRIGHT:
-;  Copyright (C) 1996 The Regents of the University of California, All
-;  Rights Reserved.  Written by Matthew W. Craig.
-;  See the file COPYRIGHT for restrictions on distrubting this code.
-;  This code comes with absolutely NO warranty; see DISCLAIMER for details.
-;-
-FUNCTION nexttok, strn, tokens, $
-                  POSITION=position, $
-                  HELP=Help
-
-;  Return to caller on error.
-    On_error, 2
-
-;  Help those in need of it.
-    IF (n_params() NE 2) OR keyword_set(Help) THEN BEGIN 
-        offset = '   '
-        print, offset+'Find the next occurance of any of a set of characters in a'
-        print, offset+'string and return the character which occurs next.'
-; CALLING SEQUENCE:
-        print, offset+'tok = nexttok( strn, tokens )'
-; INPUTS:
-        print, offset+'Inputs:'
-        print, offset+offset+'strn   -- string to be searched for sub/superscripts    in'
-        print, offset+offset+'tokens -- string containing characters to be found.     in'
-; KEYWORD PARAMETERS:
-        print, offset+'Keywords:'
-        print, offset+offset+'POSITION -- Set to a named variable to get position     out'
-        print, offset+offset+'            of next token, or -1 if none found.'
-        print, offset+offset+'/HELP    -- Print useful message and exit.'
-; OUTPUTS:
-        print, offset+'Outputs:'
-        print, offset+offset+'tok   -- Contains the character among tokens which      out'
-        print, offset+offset+"         occurs next in strn, or null '' if none found."
-; EXAMPLE:
-        print, offset+'Example:'
-        print, offset+offset+"nexttok( 'x^2 + N_j^3', '^_', position=pos ) returns '^' and sets"
-        print, offset+offset+'pos to 1.'
-        return, ''
-    ENDIF 
-
-    TmpStr = byte(strn)
-    TmpTok = byte(tokens)
-    NumToks = n_elements(TmpTok) 
-
-    MatchIdx = 0L
-    Matches = 0L
-    FOR j=0, NumToks-1 DO BEGIN 
-        TmpMatch = where(TmpStr EQ TmpTok(j),  TmpCnt)
-        IF (TmpCnt GT 0) THEN BEGIN
-            MatchIdx = [MatchIdx, Replicate(j, TmpCnt)]
-            Matches = [Matches, TmpMatch]
-        ENDIF 
-    ENDFOR 
-
-    IF n_elements(MatchIdx) EQ 1 THEN BEGIN 
-        Position = -1
-        return, ''
-    ENDIF 
-
-    MatchIdx = MatchIdx(1:*)
-    Matches = Matches(1:*)
-
-    SortInd = sort(Matches)
-
-    Position = Matches(SortInd(0))
-
-    Tok = string(TmpTok(MatchIdx(SortInd(0))))
-    
-    return, Tok
-END
-
-
-
@@ -1,57 +0,0 @@
-;-------------------------------------------------------------
-;+
-; NAME:
-;       REPCHR
-; PURPOSE:
-;       Replace all occurrences of one character with another in a text string.
-; CATEGORY:
-; CALLING SEQUENCE:
-;       new = repchr(old, c1, [c2])
-; INPUTS:
-;       old = original text string.          in
-;       c1 = character to replace.           in
-;       c2 = character to replace it with.   in
-;            default is space.
-; KEYWORD PARAMETERS:
-; OUTPUTS:
-;       new = edited string.                 out
-; COMMON BLOCKS:
-; NOTES:
-; MODIFICATION HISTORY:
-;       R. Sterner.  28 Oct, 1986.
-;       Johns Hopkins Applied Physics Lab.
-;       RES 1 Sep, 1989 --- converted to SUN.
-;       R. Sterner, 27 Jan, 1993 --- dropped reference to array.
-;
-; Copyright (C) 1986, Johns Hopkins University/Applied Physics Laboratory
-; This software may be used, copied, or redistributed as long as it is not
-; sold and this copyright notice is reproduced on each copy made.  This
-; routine is provided as is without any express or implied warranties
-; whatsoever.  Other limitations apply as described in the file disclaimer.txt.
-;	Converted to IDL V5.0   W. Landsman   September 1997
-;-
-;-------------------------------------------------------------
- 
-	FUNCTION REPCHR, OLD, C1, C2, help=hlp
- 
-	if (n_params(0) lt 2) or keyword_set(help) then begin
-	  print,' Replace all occurrences of one character with another '+$
-	    'in a text string.'
-	  print,' new = repchr(old, c1, [c2])'
-	  print,'   old = original text string.          in'
-	  print,'   c1 = character to replace.           in'
-	  print,'   c2 = character to replace it with.   in'
-	  print,'        default is space.'
-	  print,'   new = edited string.                 out'
-	  return, -1
-	endif
- 
-	B = BYTE(OLD)			   ; convert string to a byte array.
-	CB1 = BYTE(C1)			   ; convert char 1 to byte.
-	W = WHERE(B EQ CB1[0])		   ; find occurrences of char 1.
-	IF W[0] EQ -1 THEN RETURN, OLD	   ; if none, return old string.
-	IF N_PARAMS(0) LT 3 THEN C2 = ' '  ; default char 2 is space.
-	CB2 = BYTE(C2)			   ; convert char 2 to byte.
-	B[W] = CB2[0]			   ; replace char 1 by char 2.
-	RETURN, STRING(B)		   ; return new string.
-	END
@@ -1,112 +0,0 @@
-;
-;+
-; NAME:
-;       STR_TOKEN
-; PURPOSE:
-;       Retrieve portion of string up to token.
-; CATEGORY:
-;       text/strings
-; CALLING SEQUENCE:
-;       new = str_token( old, token )
-; INPUTS:
-;       old   -- String to be split.  Contains text after    in, out
-;                token on output.
-;       token -- Token to use in splitting old.              in
-; KEYWORD PARAMETERS:
-;       /TRIM -- set to remove leading blanks from old 
-;                before returning.
-;       /HELP -- print useful message and exit.
-; OUTPUTS:
-;       new   -- portion of string up to token.              out
-;       old   -- portion of old after token.                 out, in
-; COMMON BLOCKS:
-; SIDE EFFECTS:
-;       Input parameter old is modified.
-; NOTES:
-;       Token may be one or more characters.
-;       If token is not found, returns old and sets old to ''.
-; EXAMPLE:
-;       If old is 'foo44 bar', then str_token( old, '44' ) would return
-;       'foo', and upon return, old will be left with ' bar'.  If /TRIM
-;       were set, old would be 'bar' on return.
-;
-;       If old='xyz', then new=str_token(old,'a') would return with
-;       new='xyz' and old=''.
-; THANKS:
-;       To D. Linder who wrote GETTOK, part of the goddard library,
-;       upon which this is based.
-; MODIFICATION HISTORY:
-;       $Id: str_token.pro,v 1.1 2000/06/14 19:09:22 mcraig Exp $
-;       $Log: str_token.pro,v $
-;       Revision 1.1  2000/06/14 19:09:22  mcraig
-;       Changed name of strtok str_token to avoid conflict in IDL 5.3.
-;
-;       Revision 1.3  1996/06/14 20:00:27  mcraig
-;       Updated Copyright info.
-;
-;       Revision 1.2  1996/05/09 00:22:17  mcraig
-;       Added built in help.
-;
-;       Revision 1.1  1996/01/31 18:47:37  mcraig
-;       Initial revision
-;
-; RELEASE:
-;       $Name: Rel_2_1 $
-;
-; COPYRIGHT:
-;  Copyright (C) 1996 The Regents of the University of California, All
-;  Rights Reserved.  Written by Matthew W. Craig.
-;  See the file COPYRIGHT for restrictions on distrubting this code.
-;  This code comes with absolutely NO warranty; see DISCLAIMER for details.
-;-
-FUNCTION Str_token, string, token, $
-                 TRIM=trim, HELP=Help
-
-; Back to the caller if error occurs.
-    On_error, 2
-
-    IF (n_params() NE 2) OR keyword_set(Help) THEN BEGIN 
-        offset = '   '
-        print, offset+'Retrieve portion of string up to token.'
-        print, offset+'new = str_token( old, token )'
-        print, offset+'Inputs:'
-        print, offset+offset+'old   -- String to be split.  Contains text after    in, out'
-        print, offset+offset+'         token on output.'
-        print, offset+offset+'token -- Token to use in splitting old.              in'
-        print, offset+'Keywords:'
-        print, offset+offset+'/TRIM -- set to remove leading blanks from old '
-        print, offset+offset+'         before returning.'
-        print, offset+offset+'/HELP -- print useful message and exit.'
-        print, offset+'Outputs:'
-        print, offset+offset+'new   -- portion of string up to token.              out'
-        print, offset+offset+'old   -- portion of old after token.                 out, in'
-        print, offset+'Side effects:'
-        print, offset+offset+'Input parameter old is modified.'
-        print, offset+'Notes:'
-        print, offset+offset+'Token may be one or more characters.'
-        print, offset+offset+"If token is not found, returns old and sets old to ''."
-        print, offset+'Examples:'
-        print, offset+offset+"If old is 'foo44 bar', then str_token( old, '44' ) would return'"
-        print, offset+offset+"  'foo', and upon return, old will be left with ' bar'.  If /TRIM"
-        print, offset+offset+"  were set, old would be 'bar' on return."
-;'
-        print, offset+offset+"If old='xyz', then new=str_token(old,'a') would return with"
-        print, offset+offset+"  new='xyz' and old=''."
-        return, -1
-    ENDIF 
-
-    pos = strpos(string, token)
-
-    IF (pos GE 0) THEN BEGIN
-        front = strmid(string, 0, pos) 
-        string = strmid(string, pos + strlen(token), strlen(string))
-        IF keyword_set(trim) THEN string = strtrim(string, 1)
-        return, front
-    ENDIF
-    
-    front = string
-    string = ''
-    return, front
-    
-END
-
@@ -1,109 +0,0 @@
-;
-;+
-; NAME:
-;       STRCNT
-; PURPOSE:
-;       Count number of occurrences of a substring in a string.
-; CATEGORY:
-;       text/strings
-; CALLING SEQUENCE:
-;       num = strcnt(strn, substring, [pos])
-; INPUTS:
-;       string    -- The string in which to count occurences.     in
-;       substring -- The substring to count occurrences of.       in
-;       pos       -- the position at which to begin the search.   [in]
-;                    If not supplied, start at beginning of
-;                    string.
-; KEYWORD PARAMETERS:
-;       /HELP     -- Print useful message and return.
-; OUTPUTS:
-;       num       -- Number of occurances of substring in string. out
-; COMMON BLOCKS:
-; SIDE EFFECTS:
-; NOTES:
-;       Overlapping occurances are not counted separately.  For
-;       example, counting occurances of 'bb' in 'blah bbb' returns one
-;       occurance. 
-; EXAMPLE:
-; MODIFICATION HISTORY:
-;       $Id: strcnt.pro,v 1.3 1996/06/14 20:00:27 mcraig Exp $
-;       $Log: strcnt.pro,v $
-;       Revision 1.3  1996/06/14 20:00:27  mcraig
-;       Updated Copyright info.
-;
-;       Revision 1.2  1996/05/09 00:22:17  mcraig
-;       Added fast processing using BYTE arrays if we are counting occurences of
-;       a single character.  Added error handling.
-;
-;       Revision 1.1  1996/01/31 18:47:37  mcraig
-;       Initial revision
-;
-; RELEASE:
-;       $Name: Rel_2_1 $
-;
-; COPYRIGHT:
-;  Copyright (C) 1996 The Regents of the University of California, All
-;  Rights Reserved.  Written by Matthew W. Craig.
-;  See the file COPYRIGHT for restrictions on distrubting this code.
-;  This code comes with absolutely NO warranty; see DISCLAIMER for details.
-;-
-FUNCTION Strcnt, strn, substrn, startpos, $
-                 HELP=Help
-
-; Return to caller if error.
-    On_error, 2
-
-; Help user, if needed.
-    IF (n_params() LT 2) OR keyword_set(Help) THEN BEGIN
-        offset = '   '
-        print, offset+'Count number of occurrences of a substring in a string.'
-        print, offset+'num = strcnt(strn, substring, [pos])'
-        print, offset+'Inputs:'
-        print,offset+offset+'string    -- The string in which to count occurences.     in'
-        print,offset+offset+'substring -- The substring to count occurrences of.       in'
-        print,offset+offset+'pos       -- the position at which to begin the search.   [in]'
-        print,offset+offset+'             If not supplied, start at beginning of'
-        print,offset+offset+'             string.'
-        print, offset+'Keywords:'
-        print,offset+offset+'/HELP     -- Print useful message and return.'
-        print, offset+'Outputs:'
-        print,offset+offset+'num       -- Number of occurances of substring in string. out'
-        return, -1
-    ENDIF 
-
-    IF n_params() EQ 2 THEN startpos = 0
-
-;  return if we weren't really given a substring to search for. . .
-    IF strlen(substrn) EQ 0 THEN BEGIN 
-        print, "Error: Can't count occurances of null string."
-        return, -1
-    ENDIF 
-
-; . . .or if we were told to start at the end of the string.
-    tmpstrn = strmid(strn, startpos, strlen(strn))
-    IF strlen(tmpstrn) EQ 0 THEN return, 0
-
-; If looking for occurences of single character, process using BYTE
-; array.
-    IF strlen(substrn) EQ 1 THEN BEGIN
-        tmpstrn = byte(TmpStrn)
-        count = n_elements(where(TmpStrn EQ (byte(substrn))(0))) 
-    ENDIF ELSE BEGIN 
-        count = 0L
-        pos = rstrpos(tmpstrn, substrn)
-        WHILE pos GE 0 DO BEGIN
-            count = count + 1
-            pos = rstrpos(tmpstrn, substrn, pos)
-        ENDWHILE
-    ENDELSE 
-
-    return, count
-END 
-
-
-
-
-
-
-
-
@@ -1,78 +0,0 @@
-function strnumber, st, val, hex = hexflg, NaN = nan
-;+
-; NAME:
-;      STRNUMBER()
-; PURPOSE:
-;      Function to determine if a string is a valid numeric value.
-;
-; EXPLANATION:
-;      A string is considered a valid numeric value if IDL can convert it
-;      to a numeric variable without error.    
-; CALLING SEQUENCE:
-;      result = strnumber( st, [val, /HEX] )
-;
-; INPUTS:
-;      st - any IDL scalar string
-;
-; OUTPUTS:
-;      1 is returned as the function value if the string st has a
-;      valid numeric value, otherwise, 0 is returned.
-;
-; OPTIONAL OUTPUT:
-;      val - (optional) value of the string.  real*8
-;
-; OPTIONAL INPUT KEYWORD:
-;       /HEX - If present and nonzero, the string is treated as a hexadecimal
-;             longword integer.
-;       /NAN - if set, then the value of an empty string is returned as NaN,
-;              by default the returned value is 0.0d.     In either case,
-;              an empty string is considered a valid numeric value.
-;
-; EXAMPLES:
-;      IDL> res = strnumber('0.2d', val)
-;           returns res=1 (a valid number), and val = 0.2000d
-;              
-; NOTES:
-;      (1) STRNUMBER was modified in August 2006 so that an empty string is 
-;      considered a valid number.   Earlier versions of strnumber.pro did not 
-;      do this because in very early (pre-V4.0) versions of IDL
-;      this could corrupt the IDL session.
-;
-;       (2) STRNUMBER will return a string such as '23.45uyrg' as a valid 
-;      number (=23.45) since this is how IDL performs the type conversion.  If
-;      you want a stricter definition of valid number then use the VALID_NUM
-;      function.
-; HISTORY:
-;      version 1  By D. Lindler Aug. 1987
-;      test for empty string, W. Landsman          February, 1993
-;      Converted to IDL V5.0   W. Landsman   September 1997
-;      Hex keyword added.  MRG, RITSS, 15 March 2000.
-;      An empty string is a valid number   W. Landsman    August 2006
-;      Added /NAN keyword  W. Landsman August 2006
-;-
- if N_params() EQ 0 then begin
-      print,'Syntax - result = strnumber( st, [val, /HEX, /NAN] )'
-      return, 0
- endif
-
- newstr = strtrim( st )
- if keyword_set(NAN) then if newstr EQ '' then begin
-        val = !VALUES.D_NAN
-	return, 1
-  endif 	
-
- On_IOerror, L1                 ;Go to L1 if conversion error occurs
-
-  If (NOT keyword_set(hexflg)) Then Begin
-   val = double( newstr )
- EndIf Else Begin
-   val = 0L
-   reads, newstr, val, Format="(Z)"
- EndElse
-
- return, 1                      ;No conversion error
-
- L1: return, 0                  ;Conversion error occured
-
- end
- 
@@ -1 +0,0 @@
-;
;+
; NAME:
;       STRTRANS
; PURPOSE:
;       Translate all occurences of one substring to another.
; CATEGORY:
;       text/strings
; CALLING SEQUENCE:
;       new = strtrans(oldstr,from,to,ned)
; INPUTS:
;       oldstr -- string on which to operate.              in
;                 May be an array.
;       from   -- substrings to be translated. May be      in
;                 an array.
;       to     -- what strings in from should be           in
;                 translated to. May be an array.
; KEYWORD PARAMETERS:
;       /HELP  -- Set this to print useful message and 
;                 exit.
; OUTPUTS:
;       new    -- Translated string. Array if oldstr is    out          
;                 an array.
;       ned    -- number of substitutions performed in     out
;                 oldstr.  Array if oldstr is an array.
; COMMON BLOCKS:
; SIDE EFFECTS:
; NOTES:
;       - Any of old, from, and to can be arrays.  
;       - from and to must have the same number of elements.
; EXAMPLE:
;       inp='Many*bad!chars+in_here'
;       from=['*','!','+','_']
;       to  =[' ',' ',' ',' ']
;       out = strtrans(inp,from,to,ned)
;       Will produce out='Many bad chars in here', and set ned to 4.
; MODIFICATION HISTORY:
;       $Id: strtrans.pro,v 1.4 2001/11/21 19:13:23 mcraig Exp $
;       $Log: strtrans.pro,v $
;       Revision 1.4  2001/11/21 19:13:23  mcraig
;       Changed str_sep to strsplit. The former is now considered obsolete by RSI.
;
;       Revision 1.3  1996/06/14 20:00:27  mcraig
;       Updated Copyright info.
;
;       Revision 1.2  1996/05/09 00:22:17  mcraig
;       Sped up significantly by using str_sep to handle the translation.  No longer
;       relies on routines fromother user libraries.
;
;       Revision 1.1  1996/01/31 18:47:37  mcraig
;       Initial revision
;
; RELEASE:
;       $Name: Rel_2_1 $
;
; COPYRIGHT:
;  Copyright (C) 1996 The Regents of the University of California, All
;  Rights Reserved.  Written by Matthew W. Craig.
;  See the file COPYRIGHT for restrictions on distrubting this code.
;  This code comes with absolutely NO warranty; see DISCLAIMER for details.
;-
;
FUNCTION strtrans, InputString, from, to, ned,  $
                   HELP=Help

; Bomb out to caller if error.
    On_error, 2

; Offer help if we don't have at least InputString, from, and to, or
; if the user asks for it.
    IF (n_params() LT 3) OR keyword_set(help) THEN BEGIN
        offset = '   '
        print, offset+'Translate all occurences of one substring to another.'
        print, offset+'new = strtrans(oldstr,from,to,ned)'
        print, offset+'Inputs:'
        print, offset+offset+'oldstr -- string on which to operate.              in'
        print, offset+offset+'          May be an array.'
        print, offset+offset+'from   -- substrings to be translated. May be      in'
        print, offset+offset+'          an array.'
        print, offset+offset+'to     -- what strings in from should be           in'
        print, offset+offset+'          translated to. May be an array.'
        print, offset+'Outputs:'
        print, offset+offset+'new    -- Translated string. Array if oldstr is    out'
        print, offset+offset+'          an array.'
        print, offset+offset+'ned    -- number of substitutions performed in     out'
        print, offset+offset+'          oldstr.  Array if oldstr is an array.'
        print, offset+'Notes:'
        print, offset+offset+'- Any of old, from, and to can be arrays. ' 
        print, offset+offset+'- from and to must have the same number of elements.'
        return, -1
    ENDIF 
    
    strn = InputString

;  Check that From/To have same number of elements.  RETURN if they don't.
    NFrom = n_elements(from)
    NTo = n_elements(to)
    IF (NFrom EQ 0) OR (NTo EQ 0) THEN return, strn
    IF NFrom NE NTo THEN BEGIN
        print,'Error: Number of elements in from/to unequal'
        return,-1
    ENDIF

;  Make sure there are no null strings in From.  RETURN if there are.   
    FromLen = strlen(From)
    IF (total(FromLen EQ 0) GT 0) THEN BEGIN
        print, 'Error: elements of From must have nonzero length.'
        return, -1
    ENDIF 

    NStrings = n_elements(strn)
    ned = lonarr(NStrings)
    tmpned = 0L
; Say strn='a#b#c', from='#' and to='@'.  Then the approach here is to
; first split strn at all occurances of '#', then recombine the pieces
; with '@' inserted instead.  Do this for all elements of strn, and
; all elements of from.
    FOR i = 0L, NStrings-1 DO BEGIN
        ned(i) = 0L
        st=strn(i)
        FOR j=0L, NFrom-1 DO BEGIN
            strn(i)=textoidl_str_replace(strn(i),from(j),to(j))       ;jpb patch using JD's routine
;            SepStr = strsplit(strn(i), from(j))             ;jpb patch
;            pos=strposmulti(strn(i),from(j),count)
;            SepStr = strsplit(strn(i), from(j),/extract)             ;jpb patch
;            NSubs = n_elements(SepStr) - 1
;            IF count NE 0 THEN BEGIN
;              stop
;              SepStr = strsplit(strn(i), from(j),/extract)
;              NSubs = n_elements(SepStr) - 1
;              strn(i) = SepStr(0)
;              FOR k=1L, NSubs DO strn(i) = strn(i) + To(j) + SepStr(k)
;              ned(i) =  ned(i) + NSubs
;            ENDIF
        ENDFOR 
    ENDFOR

    return, strn
END 
 \ No newline at end of file
@@ -1 +0,0 @@
-FUNCTION TEXTOIDL_STR_REPLACE, str, outstring, instring
;+
; NAME:
;     STR_REPLACE
; PURPOSE:
;     replace a substring by another in an input string
; CALLING SEQUENCE:
;     result = STR_REPLACE(str, outstring, instring)
; INPUT:
;     str : input string
;     outstring : substring to be searched for and replaced
;     instring : substring to be put in str in replacement of outstring
; OUTPUT:
;     input string with outstring replaced by instring
; KEYWORDS:
;     none
; EXAMPLES:
;     IDL> str = 'tralala tsoin tsoin'
;     IDL> PRINT, STR_REPLACE(str, 'tsoin', 'ploum')
;     (IDL prints 'tralala ploum ploum')
; ALGORITHM:
;     simple string manipulation
; SIDE EFFECTS:
;     none
; RESTRICTIONS:
;     Report any bugs to Jacques Delabrouille
;     j.delabrouille@cdf.in2p3.fr
; PROCEDURES CALLED:
;     none
; REVISION HISTORY
;     Written, Jacques Delabrouille June 2000
;     Bug (infinite loop) when instring contains outstring fixed, JD, May 2001 
;-


IF ( N_PARAMS() EQ 0 ) THEN BEGIN
	print,'  CALL IS : result = STR_REPLACE(str, outstring, instring)'
;	print,'  Keywords :'
     GOTO, closing
ENDIF

search = 1

begin_string = ''
endstring = str

WHILE search EQ 1 DO BEGIN
  whout = STRPOS(endstring,outstring)
  IF whout EQ -1 THEN BEGIN
     RETURN, begin_string+endstring
  	GOTO, closing
  ENDIF ELSE BEGIN
    begin_string = begin_string + STRMID(endstring,0,whout) + instring
    endstring = STRMID(endstring,whout+STRLEN(outstring))
  ENDELSE
ENDWHILE
RETURN, newstr

closing:
END
 \ No newline at end of file