added deguix's collection of string functions
git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@3479 212acab6-be3b-0410-9dea-997c60f758d6
This commit is contained in:
kichik
parent
8c8a8a701d
commit
58efd7312d
4 changed files with 1697 additions and 0 deletions
976
Include/StrFunc.nsh
Normal file
976
Include/StrFunc.nsh
Normal file
|
|
@ -0,0 +1,976 @@
|
|||
/*
|
||||
|
||||
Functions Header File for NSIS
|
||||
|
||||
StrFunc.nsh
|
||||
This file contains functions for string manipulation for NSIS
|
||||
|
||||
by Diego Pedroso (aka deguix)
|
||||
|
||||
*/
|
||||
|
||||
!ifndef MUI_VERBOSE
|
||||
!define MUI_VERBOSE 3
|
||||
!endif
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nNSIS String Functions Header File 1.01 - © 2004 Diego Pedroso$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define StrClbGet "!insertmacro FUNCTION_STRING_StrClbGet"
|
||||
!define StrClbSet "!insertmacro FUNCTION_STRING_StrClbSet"
|
||||
!define StrIOToNSIS "!insertmacro FUNCTION_STRING_StrIOToNSIS"
|
||||
!define StrLoc "!insertmacro FUNCTION_STRING_StrLoc"
|
||||
!define StrLowerCase "!insertmacro FUNCTION_STRING_StrLowerCase"
|
||||
!define StrNSISToIO "!insertmacro FUNCTION_STRING_StrNSISToIO"
|
||||
!define StrRep "!insertmacro FUNCTION_STRING_StrRep"
|
||||
!define StrStr "!insertmacro FUNCTION_STRING_StrStr"
|
||||
!define StrStrAdv "!insertmacro FUNCTION_STRING_StrStrAdv"
|
||||
!define StrTok "!insertmacro FUNCTION_STRING_StrTok"
|
||||
!define StrTrimNewLines "!insertmacro FUNCTION_STRING_StrTrimNewLines"
|
||||
!define StrUpperCase "!insertmacro FUNCTION_STRING_StrUpperCase"
|
||||
|
||||
!macro FUNCTION_STRING_StrStr
|
||||
|
||||
!ifndef FUNCTION_STRING_StrStr
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nSearch in String Function - 2002-2004 Ximon Eighteen\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrStr
|
||||
!undef StrStr
|
||||
!define StrStr "!insertmacro FUNCTION_STRING_StrStr_Call"
|
||||
|
||||
Function 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
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrStr_Call ResultVar String StrToSearchFor
|
||||
|
||||
!echo `$ {StrStr} "${ResultVar}" "${String}" "${StrToSearchFor}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
Push `${StrToSearchFor}`
|
||||
|
||||
Call StrStr
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrLoc
|
||||
|
||||
!ifndef FUNCTION_STRING_StrLoc
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nLocalize in String Function - © 2004 Diego Pedroso\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrLoc
|
||||
!undef StrLoc
|
||||
!define StrLoc "!insertmacro FUNCTION_STRING_StrLoc_Call"
|
||||
|
||||
Function StrLoc
|
||||
Exch $R0
|
||||
Exch
|
||||
Exch $R1 ; st=haystack,old$R1, $R1=needle
|
||||
Exch 2 ; 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
|
||||
loop:
|
||||
StrCpy $R5 $R2 $R3 $R4
|
||||
StrCmp $R5 $R1 done
|
||||
StrCmp $R5 "" error
|
||||
IntOp $R4 $R4 + 1
|
||||
Goto loop
|
||||
done:
|
||||
|
||||
StrCmp $R0 "<" 0 +5
|
||||
StrLen $R0 $R2
|
||||
IntOp $R0 $R0 - $R4
|
||||
IntOp $R0 $R0 - $R3
|
||||
Goto +2
|
||||
|
||||
StrCpy $R0 $R4
|
||||
Goto +2
|
||||
|
||||
error:
|
||||
StrCpy $R0 ""
|
||||
|
||||
Pop $R5
|
||||
Pop $R4
|
||||
Pop $R3
|
||||
Pop $R2
|
||||
Pop $R1
|
||||
Exch $R0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrLoc_Call ResultVar String StrToSearchFor Direction
|
||||
|
||||
!echo `$ {StrLoc} "${ResultVar}" "${String}" "${StrToSearchFor}" "${Direction}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
Push `${StrToSearchFor}`
|
||||
Push `${Direction}`
|
||||
|
||||
Call StrLoc
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrStrAdv
|
||||
|
||||
!ifndef FUNCTION_STRING_StrStrAdv
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nAdvanced Search in String Function - © 2003-2004 Diego Pedroso$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrStrAdv
|
||||
!undef StrStrAdv
|
||||
|
||||
!define StrStrAdv "!insertmacro FUNCTION_STRING_StrStrAdv_Call"
|
||||
|
||||
Function AdvancedStrStr
|
||||
|
||||
# Preparing Variables
|
||||
|
||||
Exch $R9
|
||||
Exch
|
||||
Exch $R8
|
||||
Exch
|
||||
Exch 2
|
||||
Exch $R7
|
||||
Exch 2
|
||||
Exch 3
|
||||
Exch $R6
|
||||
Exch 3
|
||||
Exch 4
|
||||
Exch $R5
|
||||
Exch 4
|
||||
Exch 5
|
||||
Exch $R4
|
||||
Exch 5
|
||||
Push $R3
|
||||
Push $R2
|
||||
Push $R1
|
||||
Push $R0
|
||||
Push $9
|
||||
Push $8
|
||||
Push $7
|
||||
Push $6
|
||||
StrCpy $R2 $R4
|
||||
StrCpy $R1 $R5
|
||||
StrCpy $R4 ""
|
||||
StrCpy $R5 ""
|
||||
StrCpy $7 $R2
|
||||
|
||||
# Detect Empty Input
|
||||
|
||||
StrCmp $R1 "" 0 +3
|
||||
SetErrors
|
||||
Goto granddone
|
||||
|
||||
StrCmp $R2 "" 0 +3
|
||||
SetErrors
|
||||
Goto granddone
|
||||
|
||||
StrCmp $R6 "" 0 +2
|
||||
StrCpy $R6 >
|
||||
|
||||
StrCmp $R7 "" 0 +2
|
||||
StrCpy $R7 >
|
||||
|
||||
# Preparing StrStr
|
||||
|
||||
StrCpy $R0 0
|
||||
|
||||
IntCmp $R9 1 +2 0 +2
|
||||
StrCpy $R9 0
|
||||
|
||||
IntOp $R9 $R9 + 1
|
||||
|
||||
# Loops and more loops if you want...
|
||||
|
||||
grandloop:
|
||||
|
||||
# Detect if the loops number given by user = code runs...
|
||||
|
||||
StrCpy $R4 0
|
||||
StrLen $R3 $R1
|
||||
StrCpy $6 $R3
|
||||
StrCmp $9 1 0 +4
|
||||
StrCmp $R6 "<" 0 +2
|
||||
IntOp $R3 $R3 + 1
|
||||
IntOp $R4 $R4 + 1
|
||||
|
||||
StrCmp $R6 "<" 0 +5
|
||||
IntOp $R3 $R3 * -1
|
||||
StrCpy $6 $R3
|
||||
IntCmp $R0 0 +2 0 0
|
||||
IntOp $6 $6 + 1
|
||||
|
||||
# Searching the string
|
||||
|
||||
loop:
|
||||
|
||||
# RTL...
|
||||
|
||||
StrCmp $R6 "<" 0 EndBack
|
||||
|
||||
IntOp $9 $R4 * -1
|
||||
|
||||
StrCmp $9 0 0 +3
|
||||
StrCpy $R5 $R2 "" $R3
|
||||
Goto +2
|
||||
StrCpy $R5 $R2 $9 $R3
|
||||
Goto +2
|
||||
|
||||
EndBack:
|
||||
|
||||
# LTR...
|
||||
|
||||
StrCpy $R5 $R2 $R3 $R4
|
||||
|
||||
# Detect if the value returned is the searched...
|
||||
|
||||
StrCmp $R5 $R1 done
|
||||
|
||||
StrCmp $R5 "" granddone
|
||||
|
||||
# If not, make a loop...
|
||||
|
||||
IntOp $R4 $R4 + 1
|
||||
StrCmp $R6 "<" 0 +2
|
||||
IntOp $R3 $R3 - 1
|
||||
|
||||
Goto loop
|
||||
|
||||
done:
|
||||
|
||||
StrCmp $R6 "<" 0 +3
|
||||
IntOp $8 $9 + $8
|
||||
Goto +2
|
||||
IntOp $8 $R4 + $8
|
||||
|
||||
# Looping Calculation...
|
||||
|
||||
IntOp $R0 $R0 + 1
|
||||
|
||||
IntCmp $R0 $R9 0 continueloop 0
|
||||
|
||||
# Customizing the string to fit user conditions (supported by loops)...
|
||||
|
||||
# RTL...
|
||||
|
||||
StrCmp $R6 "<" 0 EndBackward
|
||||
StrCmp $R7 ">" 0 +7
|
||||
StrCmp $8 0 0 +3
|
||||
StrCpy $R2 ""
|
||||
Goto +2
|
||||
StrCpy $R2 $7 "" $8
|
||||
StrCpy $R2 $R1$R2
|
||||
Goto +3
|
||||
|
||||
StrCmp $9 0 +2
|
||||
StrCpy $R2 $R2 $9
|
||||
|
||||
StrCmp $R8 1 EndForward 0
|
||||
StrCmp $R7 ">" 0 End>
|
||||
Push $6
|
||||
IntOp $6 $6 * -1
|
||||
StrCpy $R2 $R2 "" $6
|
||||
Pop $6
|
||||
Goto +2
|
||||
End>:
|
||||
StrCpy $R2 $R2 $6
|
||||
Goto EndForward
|
||||
EndBackward:
|
||||
|
||||
# LTR...
|
||||
|
||||
StrCmp $R7 "<" 0 +4
|
||||
StrCpy $R2 $7 $8
|
||||
StrCpy $R2 $R2$R1
|
||||
Goto +2
|
||||
StrCpy $R2 $R2 "" $R4
|
||||
StrCmp $R8 1 EndForward 0
|
||||
StrCmp $R7 "<" 0 End<
|
||||
Push $6
|
||||
IntOp $6 $6 * 2
|
||||
StrCpy $R2 $R2 $6
|
||||
Pop $6
|
||||
Goto +2
|
||||
End<:
|
||||
StrCpy $R2 $R2 "" $R3
|
||||
EndForward:
|
||||
|
||||
Goto stoploop
|
||||
|
||||
continueloop:
|
||||
|
||||
# Customizing the string to fits user conditions (not supported by loops)...
|
||||
|
||||
# RTL...
|
||||
|
||||
StrCmp $R6 "<" 0 +4
|
||||
StrCmp $9 0 +4
|
||||
StrCpy $R2 $R2 $9
|
||||
Goto +2
|
||||
|
||||
# LTR...
|
||||
|
||||
StrCpy $R2 $R2 "" $R4
|
||||
|
||||
stoploop:
|
||||
|
||||
# Return to grandloop init...
|
||||
|
||||
StrCpy $9 1
|
||||
|
||||
IntCmp $R0 $R9 0 grandloop 0
|
||||
|
||||
StrCpy $R4 $R2
|
||||
|
||||
Goto +2
|
||||
|
||||
granddone:
|
||||
|
||||
# Return the result to user
|
||||
|
||||
StrCpy $R4 ""
|
||||
|
||||
Pop $6
|
||||
Pop $7
|
||||
Pop $8
|
||||
Pop $9
|
||||
Pop $R0
|
||||
Pop $R1
|
||||
Pop $R2
|
||||
Pop $R3
|
||||
Pop $R9
|
||||
Pop $R8
|
||||
Pop $R7
|
||||
Pop $R6
|
||||
Pop $R5
|
||||
Exch $R4
|
||||
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrStrAdv_Call ResultVar String StrToSearchFor SearchDirection ResultStrDirection DisplayStrToSearch Loops
|
||||
|
||||
!echo `$ {StrStrAdv} "${ResultVar}" "${String}" "${StrToSearchFor}" "${SearchDirection}" "${ResultStrDirection}" "${DisplayStrToSearch}" "${Loops}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
Push `${StrToSearchFor}`
|
||||
Push `${SearchDirection}`
|
||||
Push `${ResultStrDirection}`
|
||||
Push `${DisplayStrToSearch}`
|
||||
Push `${Loops}`
|
||||
|
||||
Call AdvancedStrStr
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrTok
|
||||
|
||||
!ifndef FUNCTION_STRING_StrTok
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nAdvanced Token String Function - © 2004 Diego Pedroso$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrTok
|
||||
!undef StrTok
|
||||
!define StrTok "!insertmacro FUNCTION_STRING_StrTok_Call"
|
||||
|
||||
Function AdvancedStrTok
|
||||
Exch $9
|
||||
Exch
|
||||
Exch $R0
|
||||
Exch 2
|
||||
Exch $R1
|
||||
Exch 3
|
||||
Exch $R2
|
||||
Push $R3
|
||||
Push $R4
|
||||
Push $R5
|
||||
Push $R6
|
||||
Push $R7
|
||||
Push $R8
|
||||
Push $R9
|
||||
Push $0
|
||||
Push $1
|
||||
Push $2
|
||||
|
||||
StrCpy $R8 0
|
||||
StrCpy $R9 $R1
|
||||
|
||||
IntCmp $R0 0 0 0 +2
|
||||
StrCpy $R0 L
|
||||
|
||||
|
||||
StrCmp $R0 L 0 +5
|
||||
StrCpy $2 1
|
||||
StrCpy $R0 0
|
||||
StrCpy $1 ""
|
||||
StrCpy $9 1
|
||||
|
||||
PartLoop:
|
||||
|
||||
StrCpy $R4 0
|
||||
IntOp $R8 $R8 + 1
|
||||
StrCpy $0 0
|
||||
|
||||
loop:
|
||||
|
||||
StrCpy $R5 $R2 1 $R4
|
||||
StrCmp $R5 "" done
|
||||
|
||||
StrCpy $R6 -1
|
||||
StrCpy $R7 0
|
||||
loop2:
|
||||
|
||||
IntOp $R6 $R6 + 1
|
||||
IntOp $R7 $R6 + 1
|
||||
StrCpy $R3 $R1 $R7 $R6
|
||||
StrCmp $R3 "" 0 +3
|
||||
IntOp $0 $0 + 1
|
||||
Goto ContLoop2
|
||||
StrCmp $R5 $R3 0 Loop2
|
||||
StrCmp $9 1 0 done
|
||||
StrCmp $0 0 0 done
|
||||
StrCpy $R2 $R2 "" 1
|
||||
Goto Loop
|
||||
|
||||
ContLoop2:
|
||||
|
||||
IntOp $R4 $R4 + 1
|
||||
Goto loop
|
||||
|
||||
done:
|
||||
IntOp $R4 $R4 + $0
|
||||
StrCpy $R1 $R2 $0
|
||||
IntOp $0 $0 + 1
|
||||
StrCpy $R2 $R2 "" $0
|
||||
|
||||
StrCmp $2 1 0 +4
|
||||
StrCmp $R1 "" 0 +3
|
||||
StrCpy $R1 $1
|
||||
Goto End
|
||||
|
||||
StrCmp $R0 $R8 End
|
||||
StrCmp $2 1 0 +2
|
||||
StrCpy $1 $R1
|
||||
StrCpy $R1 $R9
|
||||
Goto PartLoop
|
||||
|
||||
End:
|
||||
|
||||
StrCpy $9 $R1
|
||||
|
||||
Pop $2
|
||||
Pop $1
|
||||
Pop $0
|
||||
Pop $R9
|
||||
Pop $R8
|
||||
Pop $R7
|
||||
Pop $R6
|
||||
Pop $R5
|
||||
Pop $R4
|
||||
Pop $R3
|
||||
Pop $R2
|
||||
Pop $R1
|
||||
Pop $R0
|
||||
Exch $9
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrTok_Call ResultVar StrToTokenizing Separators ResultPart SkipEmptyParts
|
||||
|
||||
!echo `$ {StrTok} "${ResultVar}" "${StrToTokenizing}" "${Separators}" "${ResultPart}" "${SkipEmptyParts}"$\r$\n`
|
||||
|
||||
Push `${StrToTokenizing}`
|
||||
Push `${Separators}`
|
||||
Push `${ResultPart}`
|
||||
Push `${SkipEmptyParts}`
|
||||
|
||||
Call AdvancedStrTok
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrClbSet
|
||||
|
||||
!ifndef FUNCTION_STRING_StrClbSet
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nCopy To Clipboard - 2003-2004 Nik Medved$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrClbSet
|
||||
!undef StrClbSet
|
||||
|
||||
!define StrClbSet "!insertmacro FUNCTION_STRING_StrClb_Set"
|
||||
|
||||
Function CopyToClipboard
|
||||
Exch $0 ;input string
|
||||
Push $1
|
||||
Push $2
|
||||
System::Call 'user32::OpenClipboard(i 0)'
|
||||
System::Call 'user32::EmptyClipboard()'
|
||||
StrLen $1 $0
|
||||
IntOp $1 $1 + 1
|
||||
System::Call 'kernel32::GlobalAlloc(i 2, i r1) i.r1'
|
||||
System::Call 'kernel32::GlobalLock(i r1) i.r2'
|
||||
System::Call 'kernel32::lstrcpyA(i r2, t r0)'
|
||||
System::Call 'kernel32::GlobalUnlock(i r1)'
|
||||
System::Call 'user32::SetClipboardData(i 1, i r1)'
|
||||
System::Call 'user32::CloseClipboard()'
|
||||
Pop $2
|
||||
Pop $1
|
||||
Pop $0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrClbGet
|
||||
|
||||
!ifndef FUNCTION_STRING_StrClbGet
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nCopy From Clipboard Function - 2003-2004 Nik Medved - changed by Diego Pedroso$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrClbGet
|
||||
!undef StrClbGet
|
||||
|
||||
!define StrClbGet "!insertmacro FUNCTION_STRING_StrClb_Get"
|
||||
|
||||
Function CopyFromClipboard
|
||||
Push $0
|
||||
System::Call 'user32::OpenClipboard(i 0)'
|
||||
System::Call 'user32::GetClipboardData(i 1) t .r0'
|
||||
System::Call 'user32::CloseClipboard()'
|
||||
Exch $0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrClb_Set String
|
||||
|
||||
!echo `$ {StrClbSet} "${String}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
|
||||
Call CopyToClipboard
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrClb_Get ResultVar
|
||||
|
||||
!echo `$ {StrClbGet} "${ResultVar}"$\r$\n`
|
||||
|
||||
Call CopyFromClipboard
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrUpperCase
|
||||
|
||||
!ifndef FUNCTION_STRING_StrUpperCase
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nUppercase String Function - 2002-2004 Dave Laundon $\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrUpperCase
|
||||
!undef StrUpperCase
|
||||
!define StrUpperCase "!insertmacro FUNCTION_STRING_StrUpperCase_Call"
|
||||
|
||||
Function StrUpper
|
||||
Exch $0 ; Original string
|
||||
Push $1 ; Final string
|
||||
Push $2 ; Current character
|
||||
Push $3
|
||||
Push $4
|
||||
StrCpy $1 ""
|
||||
Loop:
|
||||
StrCpy $2 $0 1 ; Get next character
|
||||
StrCmp $2 "" Done
|
||||
StrCpy $0 $0 "" 1
|
||||
StrCpy $3 65 ; 65 = ASCII code for A
|
||||
Loop2:
|
||||
IntFmt $4 %c $3 ; Get character from current ASCII code
|
||||
StrCmp $2 $4 Match
|
||||
IntOp $3 $3 + 1
|
||||
StrCmp $3 91 NoMatch Loop2 ; 91 = ASCII code one beyond Z
|
||||
Match:
|
||||
StrCpy $2 $4 ; It 'matches' (either case) so grab the uppercase version
|
||||
NoMatch:
|
||||
StrCpy $1 $1$2 ; Append to the final string
|
||||
Goto Loop
|
||||
Done:
|
||||
StrCpy $0 $1 ; Return the final string
|
||||
Pop $4
|
||||
Pop $3
|
||||
Pop $2
|
||||
Pop $1
|
||||
Exch $0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrUpperCase_Call ResultVar String
|
||||
|
||||
!echo `$ {StrUpperCase} "${ResultVar}" "${String}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
|
||||
Call StrUpper
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrLowerCase
|
||||
|
||||
!ifndef FUNCTION_STRING_StrLowerCase
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nLowercase String Function - changed from Uppercase String Function 2002-2004 Dave Laundon$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrLowerCase
|
||||
!undef StrLowerCase
|
||||
!define StrLowerCase "!insertmacro FUNCTION_STRING_StrLowerCase_Call"
|
||||
|
||||
Function StrLower
|
||||
Exch $0 ; Original string
|
||||
Push $1 ; Final string
|
||||
Push $2 ; Current character
|
||||
Push $3
|
||||
Push $4
|
||||
StrCpy $1 ""
|
||||
Loop:
|
||||
StrCpy $2 $0 1 ; Get next character
|
||||
StrCmp $2 "" Done
|
||||
StrCpy $0 $0 "" 1
|
||||
StrCpy $3 122 ; 122 = ASCII code for z
|
||||
Loop2:
|
||||
IntFmt $4 %c $3 ; Get character from current ASCII code
|
||||
StrCmp $2 $4 Match
|
||||
IntOp $3 $3 - 1
|
||||
StrCmp $3 91 NoMatch Loop2 ; 90 = ASCII code one beyond Z
|
||||
Match:
|
||||
StrCpy $2 $4 ; It 'matches' (either case) so grab the lowercase version
|
||||
NoMatch:
|
||||
StrCpy $1 $1$2 ; Append to the final string
|
||||
Goto Loop
|
||||
Done:
|
||||
StrCpy $0 $1 ; Return the final string
|
||||
Pop $4
|
||||
Pop $3
|
||||
Pop $2
|
||||
Pop $1
|
||||
Exch $0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrLowerCase_Call ResultVar String
|
||||
|
||||
!echo `$ {StrLowerCase} "${ResultVar}" "${String}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
|
||||
Call StrLower
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrRep
|
||||
|
||||
!ifndef FUNCTION_STRING_StrRep
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nReplace String Function - 2002-2004 Hendri Adriaens$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrRep
|
||||
!undef StrRep
|
||||
!define StrRep "!insertmacro FUNCTION_STRING_StrRep_Call"
|
||||
|
||||
Function StrReplace
|
||||
Exch $0 ;this will replace wrong characters
|
||||
Exch
|
||||
Exch $1 ;needs to be replaced
|
||||
Exch
|
||||
Exch 2
|
||||
Exch $2 ;the orginal string
|
||||
Push $3 ;counter
|
||||
Push $4 ;temp character
|
||||
Push $5 ;temp string
|
||||
Push $6 ;length of string that need to be replaced
|
||||
Push $7 ;length of string that will replace
|
||||
Push $R0 ;tempstring
|
||||
Push $R1 ;tempstring
|
||||
Push $R2 ;tempstring
|
||||
StrCpy $3 "-1"
|
||||
StrCpy $5 ""
|
||||
StrLen $6 $1
|
||||
StrLen $7 $0
|
||||
Loop:
|
||||
IntOp $3 $3 + 1
|
||||
StrCpy $4 $2 $6 $3
|
||||
StrCmp $4 "" ExitLoop
|
||||
StrCmp $4 $1 Replace
|
||||
Goto Loop
|
||||
Replace:
|
||||
StrCpy $R0 $2 $3
|
||||
IntOp $R2 $3 + $6
|
||||
StrCpy $R1 $2 "" $R2
|
||||
StrCpy $2 $R0$0$R1
|
||||
IntOp $3 $3 + $7
|
||||
Goto Loop
|
||||
ExitLoop:
|
||||
StrCpy $0 $2
|
||||
Pop $R2
|
||||
Pop $R1
|
||||
Pop $R0
|
||||
Pop $7
|
||||
Pop $6
|
||||
Pop $5
|
||||
Pop $4
|
||||
Pop $3
|
||||
Pop $2
|
||||
Pop $1
|
||||
Exch $0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrRep_Call ResultVar String StringToReplaceFor StringToBeReplacedWith
|
||||
|
||||
!echo `$ {StrRep} "${ResultVar}" "${String}" "${StringToReplaceFor}" "${StringToBeReplacedWith}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
Push `${StringToReplaceFor}`
|
||||
Push `${StringToBeReplacedWith}`
|
||||
|
||||
Call StrReplace
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrTrimNewLines
|
||||
|
||||
!ifndef FUNCTION_STRING_StrTrimNewLines
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nTrim New Lines Function - 2003-2004 Ximon Eighteen$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrTrimNewLines
|
||||
!undef StrTrimNewLines
|
||||
!define StrTrimNewLines "!insertmacro FUNCTION_STRING_StrTrimNewLines_Call"
|
||||
|
||||
Function TrimNewlines
|
||||
Exch $R0
|
||||
Push $R1
|
||||
Push $R2
|
||||
StrCpy $R1 0
|
||||
|
||||
loop:
|
||||
IntOp $R1 $R1 - 1
|
||||
StrCpy $R2 $R0 1 $R1
|
||||
StrCmp $R2 "$\r" loop
|
||||
StrCmp $R2 "$\n" loop
|
||||
|
||||
IntOp $R1 $R1 + 1
|
||||
IntCmp $R1 0 no_trim_needed
|
||||
StrCpy $R0 $R0 $R1
|
||||
|
||||
no_trim_needed:
|
||||
Pop $R2
|
||||
Pop $R1
|
||||
Exch $R0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrTrimNewLines_Call ResultVar String
|
||||
|
||||
!echo `$ {StrTrimNewLines} "${ResultVar}" "${String}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
|
||||
Call TrimNewLines
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrNSISToIO
|
||||
|
||||
!ifndef FUNCTION_STRING_StrNSISToIO
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nNSIS -> Install Options String Convertion Function - 2003-2004 Amir Szekely, Joost Verburg and Dave Laundon$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrNSISToIO
|
||||
!undef StrNSISToIO
|
||||
!define StrNSISToIO "!insertmacro FUNCTION_STRING_StrNSISToIO_Call"
|
||||
|
||||
Function Nsis2Io
|
||||
Exch $0 ; The source
|
||||
Push $1 ; The output
|
||||
Push $2 ; Temporary char
|
||||
StrCpy $1 "" ; Initialise the output
|
||||
loop:
|
||||
StrCpy $2 $0 1 ; Get the next source char
|
||||
StrCmp $2 "" done ; Abort when none left
|
||||
StrCpy $0 $0 "" 1 ; Remove it from the source
|
||||
StrCmp $2 "\" "" +3 ; Back-slash?
|
||||
StrCpy $1 "$1\\"
|
||||
Goto loop
|
||||
StrCmp $2 "$\r" "" +3 ; Carriage return?
|
||||
StrCpy $1 "$1\r"
|
||||
Goto loop
|
||||
StrCmp $2 "$\n" "" +3 ; Line feed?
|
||||
StrCpy $1 "$1\n"
|
||||
Goto loop
|
||||
StrCmp $2 "$\t" "" +3 ; Tab?
|
||||
StrCpy $1 "$1\t"
|
||||
Goto loop
|
||||
StrCpy $1 "$1$2" ; Anything else
|
||||
Goto loop
|
||||
done:
|
||||
StrCpy $0 $1
|
||||
Pop $2
|
||||
Pop $1
|
||||
Exch $0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrNSISToIO_Call ResultVar String
|
||||
|
||||
!echo `$ {StrNSISToIO} "${ResultVar}" "${String}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
|
||||
Call NSIS2IO
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrIOToNSIS
|
||||
|
||||
!ifndef FUNCTION_STRING_StrIOToNSIS
|
||||
|
||||
!echo "$\r$\n----------------------------------------------------------------------$\r$\nInstall Options -> NSIS String Convertion Function - 2003-2004 Amir Szekely, Joost Verburg and Dave Laundon$\r$\n----------------------------------------------------------------------$\r$\n$\r$\n"
|
||||
|
||||
!define FUNCTION_STRING_StrIOToNSIS
|
||||
!undef StrIOToNSIS
|
||||
!define StrIOToNSIS "!insertmacro FUNCTION_STRING_StrIOToNSIS_Call"
|
||||
|
||||
Function Io2Nsis
|
||||
Exch $0 ; The source
|
||||
Push $1 ; The output
|
||||
Push $2 ; Temporary char
|
||||
StrCpy $1 "" ; Initialise the output
|
||||
loop:
|
||||
StrCpy $2 $0 1 ; Get the next source char
|
||||
StrCmp $2 "" done ; Abort when none left
|
||||
StrCpy $0 $0 "" 1 ; Remove it from the source
|
||||
StrCmp $2 "\" +3 ; Escape character?
|
||||
StrCpy $1 "$1$2" ; If not just output
|
||||
Goto loop
|
||||
StrCpy $2 $0 1 ; Get the next source char
|
||||
StrCpy $0 $0 "" 1 ; Remove it from the source
|
||||
StrCmp $2 "\" "" +3 ; Back-slash?
|
||||
StrCpy $1 "$1\"
|
||||
Goto loop
|
||||
StrCmp $2 "r" "" +3 ; Carriage return?
|
||||
StrCpy $1 "$1$\r"
|
||||
Goto loop
|
||||
StrCmp $2 "n" "" +3 ; Line feed?
|
||||
StrCpy $1 "$1$\n"
|
||||
Goto loop
|
||||
StrCmp $2 "t" "" +3 ; Tab?
|
||||
StrCpy $1 "$1$\t"
|
||||
Goto loop
|
||||
StrCpy $1 "$1$2" ; Anything else (should never get here)
|
||||
Goto loop
|
||||
done:
|
||||
StrCpy $0 $1
|
||||
Pop $2
|
||||
Pop $1
|
||||
Exch $0
|
||||
FunctionEnd
|
||||
|
||||
!endif
|
||||
|
||||
!macroend
|
||||
|
||||
!macro FUNCTION_STRING_StrIOToNSIS_Call ResultVar String
|
||||
|
||||
!echo `$ {StrIOToNSIS} "${ResultVar}" "${String}"$\r$\n`
|
||||
|
||||
Push `${String}`
|
||||
|
||||
Call IO2NSIS
|
||||
|
||||
Pop `${ResultVar}`
|
||||
|
||||
!macroend
|
||||
|
||||
!ifndef MUI_VERBOSE
|
||||
!define MUI_VERBOSE 4
|
||||
!endif
|
||||
Loading…
Add table
Add a link
Reference in a new issue