;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

; MoveFile and MoveFolder macros

;

; Author: theblazingangel@aol.com (for the AutoPatcher project - www.autopatcher.com)

; Created: June 2007

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

;==================

; MoveFile macro

;==================

!macro MoveFile sourceFile destinationFile

!define MOVEFILE_JUMP ${__LINE__}

; Check source actually exists

IfFileExists "${sourceFile}" +3 0

SetErrors

goto done_${MOVEFILE_JUMP}

; Add message to details-view/install-log

DetailPrint "Moving/renaming file: ${sourceFile} to ${destinationFile}"

; If destination does not already exists simply move file

IfFileExists "${destinationFile}" +3 0

rename "${sourceFile}" "${destinationFile}"

goto done_${MOVEFILE_JUMP}

; If overwriting without 'ifnewer' check

${If} $switch_overwrite == 1

delete "${destinationFile}"

rename "${sourceFile}" "${destinationFile}"

delete "${sourceFile}"

goto done_${MOVEFILE_JUMP}

${EndIf}

; If destination already exists

Push $R0

Push $R1

Push $R2

push $R3

GetFileTime "${sourceFile}" $R0 $R1

GetFileTime "${destinationFile}" $R2 $R3

IntCmp $R0 $R2 0 older_${MOVEFILE_JUMP} newer_${MOVEFILE_JUMP}

IntCmp $R1 $R3 older_${MOVEFILE_JUMP} older_${MOVEFILE_JUMP} newer_${MOVEFILE_JUMP}

older_${MOVEFILE_JUMP}:

delete "${sourceFile}"

goto time_check_done_${MOVEFILE_JUMP}

newer_${MOVEFILE_JUMP}:

delete "${destinationFile}"

rename "${sourceFile}" "${destinationFile}"

delete "${sourceFile}" ;incase above failed!

time_check_done_${MOVEFILE_JUMP}:

Pop $R3

Pop $R2

Pop $R1

Pop $R0

done_${MOVEFILE_JUMP}:

!undef MOVEFILE_JUMP

!macroend

;==================

; MoveFolder macro

;==================

!macro MoveFolder source destination mask

!define MOVEFOLDER_JUMP ${__LINE__}

Push $R0

Push $R1

; Move path parameters into registers so they can be altered if necessary

StrCpy $R0 "${source}"

StrCpy $R1 "${destination}"

; Sort out paths - remove final backslash if supplied

Push $0

; Source

StrCpy $0 "$R0" 1 -1

StrCmp $0 '\' 0 +2

StrCpy $R0 "$R0" -1

; Destination

StrCpy $0 "$R1" 1 -1

StrCmp $0 '\' 0 +2

StrCpy $R1 "$R1" -1

Pop $0

; Create destination dir

CreateDirectory "$R1\"

; Add message to details-view/install-log

DetailPrint "Moving files: $R0\${mask} to $R1\"

; Push registers used by ${Locate} onto stack

Push $R6

Push $R7

Push $R8

Push $R9

; Duplicate dir structure (to preserve empty folders and such)

${Locate} "$R0" "/L=D" ".MoveFolder_Locate_createDir"

; Locate files and move (via callback function)

${Locate} "$R0" "/L=F /M=${mask} /S= /G=1" ".MoveFolder_Locate_moveFile"

; Delete subfolders left over after move

Push $R2

deldir_loop_${MOVEFOLDER_JUMP}:

StrCpy $R2 0

${Locate} "$R0" "/L=DE" ".MoveFolder_Locate_deleteDir"

StrCmp $R2 0 0 deldir_loop_${MOVEFOLDER_JUMP}

Pop $R2

; Delete empty subfolders moved - say the user just wanted to move *.apm files, they now also have a load of empty dir's from dir structure duplication!

Push $R2

delnewdir_loop_${MOVEFOLDER_JUMP}:

StrCpy $R2 0

${Locate} "$R1" "/L=DE" ".MoveFolder_Locate_deleteDir"

StrCmp $R2 0 0 delnewdir_loop_${MOVEFOLDER_JUMP}

Pop $R2

; Pop registers used by ${Locate} off the stack again

Pop $R9

Pop $R8

Pop $R7

Pop $R6

; Delete source folder if empty

rmdir "$R0"

Pop $R1

Pop $R0

!undef MOVEFOLDER_JUMP

!macroend

;==================

; MoveFolder macro's ${Locate} callback functions

;==================

Function .MoveFolder_Locate_createDir

${If} $R6 == ""

Push $R2

StrLen $R2 "$R0"

StrCpy $R2 $R9 '' $R2

CreateDirectory "$R1$R2"

Pop $R2

${EndIf}

Push $R1

FunctionEnd

Function .MoveFolder_Locate_moveFile

Push $R2

; Get path to file

StrLen $R2 "$R0"

StrCpy $R2 $R9 '' $R2

StrCpy $R2 "$R1$R2"

; If destination does not already exists simply move file

IfFileExists "$R2" +3 0

rename "$R9" "$R2"

goto done

; If overwriting without 'ifnewer' check

${If} $switch_overwrite == 1

delete "$R2"

rename "$R9" "$R2"

delete "$R9"

goto done

${EndIf}

; If destination already exists

Push $0

Push $1

Push $2

push $3

GetFileTime "$R9" $0 $1

GetFileTime "$R2" $2 $3

IntCmp $0 $2 0 older newer

IntCmp $1 $3 older older newer

older:

delete "$R9"

goto time_check_done

newer:

delete "$R2"

rename "$R9" "$R2"

delete "$R9" ;incase above failed!

time_check_done:

Pop $3

Pop $2

Pop $1

Pop $0

done:

Pop $R2

Push $R1

FunctionEnd

Function .MoveFolder_Locate_deleteDir

${If} $R6 == ""

RMDir $R9

IntOp $R2 $R2 + 1

${EndIf}

Push $R1

FunctionEnd