; StrReplace

; Replaces all ocurrences of a given needle within a haystack with another string

; Written by Dan Fuhry

!ifndef _StrRep

!define _StrRep

Var sr_haystack

Var sr_needle

Var sr_replace

Var sr_pos

Var sr_needlelen

Var sr_p_before

Var sr_stacklen

Var sr_p_after

Var sr_newpos

Var sr_test

Function str_replace

  Exch $sr_replace

  Exch 1

  Exch $sr_needle

  Exch 2

  Exch $sr_haystack

    StrCpy $sr_pos -1

    StrLen $sr_needlelen $sr_needle

    StrLen $sr_stacklen $sr_haystack

    loop:

      IntOp $sr_pos $sr_pos + 1

      StrCpy $sr_test $sr_haystack $sr_needlelen $sr_pos

      StrCmp $sr_test $sr_needle found

      StrCmp $sr_pos $sr_stacklen done

      Goto loop

    found:

      StrCpy $sr_p_before $sr_haystack $sr_pos

      IntOp $sr_newpos $sr_pos + $sr_needlelen

      StrCpy $sr_p_after $sr_haystack "" $sr_newpos

      StrCpy $sr_haystack $sr_p_before$sr_replace$sr_p_after

      StrCpy $sr_pos $sr_newpos

      StrLen $sr_stacklen $sr_haystack

      Goto loop

    done:

  Pop $sr_needle ; Prevent "invalid opcode" errors and keep the

  Pop $sr_needle ; stack as it was before the function was called

  Exch $sr_haystack

FunctionEnd

!endif ; _StrRep

!ifndef StrReplace

  !macro _strReplaceConstructor OUT NEEDLE NEEDLE2 HAYSTACK

    Push `${HAYSTACK}`

    Push `${NEEDLE}`

    Push `${NEEDLE2}`

    Call str_replace

    Pop `${OUT}`

  !macroend

  !define StrReplace '!insertmacro "_strReplaceConstructor"'

  !define str_replace '!insertmacro "_strReplaceConstructor"'

!endif

; StrStr

; input, top of stack = string to search for

;        top of stack-1 = string to search in

; output, top of stack (replaces with the portion of the string remaining)

; modifies no other variables.

;

; Usage:

;   Push "this is a long ass string"

;   Push "ass"

;   Call StrStr

;   Pop $R0

;  ($R0 at this point is "ass string")

!macro StrStr un

Function ${un}StrStr

Exch $R1 ; st=haystack,old$R1, $R1=needle

  Exch    ; st=old$R1,haystack

  Exch $R2 ; st=old$R1,old$R2, $R2=haystack

  Push $R3

  Push $R4

  Push $R5

  StrLen $R3 $R1

  StrCpy $R4 0

  ; $R1=needle

  ; $R2=haystack

  ; $R3=len(needle)

  ; $R4=cnt

  ; $R5=tmp

  loop:

    StrCpy $R5 $R2 $R3 $R4

    StrCmp $R5 $R1 done

    StrCmp $R5 "" done

    IntOp $R4 $R4 + 1

    Goto loop

done:

  StrCpy $R1 $R2 "" $R4

  Pop $R5

  Pop $R4

  Pop $R3

  Pop $R2

  Exch $R1

FunctionEnd

!macroend

!insertmacro StrStr ""

; !insertmacro StrStr "un."