-/*
+/*
Windows PDF view helper
-Author: Joost Verburg and Uwe Stöhr
+Author: Uwe Stöhr and Joost Verburg
This will be installed as pdfview.exe.
The application will launch the default PDF viewer to display the PDF file,
but works around the file locking problems of Adobe Reader and Acrobat.
-The files pdfopen/pdfclose are part of this archive:
-http://www.tex.ac.uk/tex-archive/systems/win32/w32tex/pdftex-w32.tar.xz
-
*/
+Unicode true
+
!include LogicLib.nsh
!include FileFunc.nsh
RequestExecutionLevel user
-#--------------------------------
-# Constants
-
-!define FALSE 0
-!define TRUE 1
-
-# see http://msdn.microsoft.com/en-us/library/windows/desktop/aa364417%28v=vs.85%29.aspx
-!define FILE_NOTIFY_CHANGE_LAST_WRITE 0x00000010
-# see http://msdn.microsoft.com/en-us/library/windows/desktop/ms687032%28v=vs.85%29.aspx
-!define WAIT_TIMEOUT 0x00000102
-
#--------------------------------
# Variables
Var Character
-Var RunAppReturn
Var OriginalFile
Var OriginalFileName
-Var OriginalDir
Var PDFFile
Var ViewerFileName
Var Viewer
-
-Var ChangeNotification
-Var WaitReturn
-Var LockedFile
-
-Var TimeDiff
-
-#--------------------------------
-# Macros
-
-!macro SystemCall STACK
-
- # Call a Windows API function
-
- Push `${STACK}`
- CallInstDLL "$EXEDIR\System.dll" Call
-
-!macroend
-
-!macro HideConsole COMMAND_LINE
-
- # Run an application and hide console output
-
- Push `${COMMAND_LINE}`
- CallInstDLL "$EXEDIR\Console.dll" Exec
- Pop $RunAppReturn
-
- ${If} $RunAppReturn == "error"
- MessageBox MB_OK|MB_ICONSTOP "Error opening PDF file $PDFFile."
- ${EndIf}
-
-!macroend
-
-# all following macros and functions are from
-# http://nsis.sourceforge.net/FileTimeDiff
-!define GetFileTimeS "!insertmacro _GetFileTimeS"
-
-!macro _GetFileTimeS _Time_ _File_
-
- Push "${_File_}"
- Call GetFileTimeS
- Pop ${_Time_}
-
-!macroend
-
-Function GetFileTimeS
-
- Exch $0 # File / hi
- Push $1 # lo
-
- ClearErrors
- GetFileTime "$0" $0 $1
- IfErrors err
- System::Call '*(i r1, i r0) i .r0'
- System::Call '*$0(l .r0)'
- System::Int64Op $0 / 10000000 # Conversion From '100 ns' to '1 sec' unit
- Goto end
-
- err:
- Push ""
- SetErrors
- Goto +3
- end:
- System::Free $0
- Exch 2
- Pop $0
- Pop $1
-
-FunctionEnd
-
-!define FileTimeDiff "!insertmacro _FileTimeDiff"
-
-!macro _FileTimeDiff _RetVal_ _FileA_ _FileB_
-
- Push "${_FileB_}"
- Push "${_FileA_}"
- Call FileTimeDiff
- Pop ${_RetVal_}
-
-!macroend
-
-Function FileTimeDiff
- Exch $0 # FileA
- Exch
- Exch $1 # FileB
-
- ${GetFileTimeS} $0 "$0"
- IfErrors err
- ${GetFileTimeS} $1 "$1"
- IfErrors err
- System::Int64Op $0 - $1
- Goto end
-
- err:
- Push ""
- SetErrors
- end:
- Exch 2
- Pop $0
- Pop $1
-
-FunctionEnd
+Var ViewerHandle
+Var ViewerVersion
#--------------------------------
# PDF viewing
InitPluginsDir # Temporary directory for PDF file
# Command line parameters
- ${GetParameters} $OriginalFile
+ ${GetParameters} $OriginalFileName
# Trim quotes
- StrCpy $Character $OriginalFile 1
+ StrCpy $Character $OriginalFileName 1
${If} $Character == '"'
- StrCpy $OriginalFile $OriginalFile "" 1
+ StrCpy $OriginalFileName $OriginalFileName "" 1
${EndIf}
- StrCpy $Character $OriginalFile 1 -1
+ StrCpy $Character $OriginalFileName 1 -1
${If} $Character == '"'
- StrCpy $OriginalFile $OriginalFile -1
+ StrCpy $OriginalFileName $OriginalFileName -1
${EndIf}
- GetFullPathName $OriginalFile $OriginalFile
- ${GetFileName} $OriginalFile $OriginalFileName
- ${GetParent} $OriginalFile $OriginalDir # tmpbuf
- ${GetParent} $OriginalDir $OriginalDir # tmpdir
+ GetFullPathName $OriginalFile $OriginalFileName
SetOutPath $TEMP # The LyX tmpbuf should not be locked
StrCpy $PDFFile $PLUGINSDIR\$OriginalFileName
# Check whether the file will be opened with Adobe Reader or Adobe Acrobat
- !insertmacro SystemCall "shell32::FindExecutable(t '$OriginalFile', t '', t .s)"
- Pop $ViewerFileName
+
+ FileOpen $R0 "$PLUGINSDIR\a.pdf" "w" #create a temp pdf file with a simple name
+ FileClose $R0
+
+ #find stadard executable for "a.pdf", writes result in $0 (".r0" below)
+ System::Call "shell32::FindExecutable(t '$PLUGINSDIR\a.pdf', t '', t .r0)"
+ StrCpy $ViewerFileName $0
${GetFileName} $ViewerFileName $Viewer
${If} $Viewer == ""
Please install a PDF viewer such as Adobe Reader."
Quit
${EndIf}
-
- ${If} $Viewer == "AcroRd32.exe"
- ${OrIf} $Viewer == "Acrobat.exe"
+ ${if} $Viewer == "AcroRd32.exe"
+ ${orif} $Viewer == "AcroRd64.exe"
+ ${orif} $Viewer == "Acrobat.exe"
+
# get the version of Acrobat - currenly not necessary
- #GetDLLVersion $ViewerFileName $R0 $R1
- #IntOp $R2 $R0 >> 16
- #IntOp $R2 $R2 & 0x0000FFFF ; $R2 now contains major version
+ GetDLLVersion $ViewerFileName $R0 $R1
+ IntOp $R2 $R0 >> 16
+ IntOp $R2 $R2 & 0x0000FFFF ; $R2 now contains major version
#IntOp $R3 $R0 & 0x0000FFFF ; $R3 now contains minor version
#IntOp $R4 $R1 >> 16
#IntOp $R4 $R4 & 0x0000FFFF ; $R4 now contains release
#IntOp $R5 $R1 & 0x0000FFFF ; $R5 now contains build
- #StrCpy $ViewerVersion "$R2"
+ StrCpy $ViewerVersion $R2
- # Close existing view
- ${If} ${FileExists} $PDFFile
- !insertmacro HideConsole '"$EXEDIR\pdfclose.exe" --file "$PDFFile"'
- ${EndIf}
+ # check if there is a windows open containing the PDF
+ ${if} $Viewer == "AcroRd32.exe"
+ ${orif} $Viewer == "AcroRd64.exe"
+ ${if} $ViewerVersion > 14
+ FindWindow $ViewerHandle "" "$OriginalFileName - Adobe Acrobat Reader DC"
+ ${else}
+ FindWindow $ViewerHandle "" "$OriginalFileName - Adobe Reader"
+ ${endif}
+ ${elseif} $Viewer == "Acrobat.exe"
+ FindWindow $ViewerHandle "" "$OriginalFileName - Adobe Acrobat"
+ ${if} $ViewerHandle == "0"
+ FindWindow $ViewerHandle "" "$OriginalFileName - Adobe Acrobat Pro"
+ ${endif}
+ ${endif}
+ ${if} $ViewerHandle <> "0" # close the window
+ SendMessage $ViewerHandle 16 0 0
+ ${endif}
# Copy PDF to temporary file to allow LyX to overwrite the original
CopyFiles /SILENT $OriginalFile $PDFFile
# Open a new view
- !insertmacro HideConsole '"$EXEDIR\pdfopen.exe" --file "$PDFFile"'
-
- # check if a file in LyX's temp folder has been changed
- !insertmacro SystemCall "kernel32::FindFirstChangeNotification(t '$OriginalDir', \
- i 1, i ${FILE_NOTIFY_CHANGE_LAST_WRITE}) i.s"
- Pop $ChangeNotification
-
- ${Do}
-
- # wait until the folder is not changed anymore, if so a "0" is returned
- # otherwise a "258" (0x00000102) is returned
- !insertmacro SystemCall "kernel32::WaitForSingleObject(i $ChangeNotification, i 10000) i.s"
- Pop $WaitReturn
-
- # Check whether the lock of the PDF file is still active (if not, Adobe Reader is closed)
- FileOpen $LockedFile $PDFFile a
- ${If} $LockedFile != ""
- # Quit this application
- FileClose $LockedFile
- Delete $PDFFile
- !insertmacro SystemCall "kernel32::FindCloseChangeNotification(i $ChangeNotification)"
- Quit
- ${EndIf}
-
- # if the folder is (for now) not changed anymore
- ${IfNot} $WaitReturn = ${WAIT_TIMEOUT}
-
- # check if the PDF-file in our temp directory is older than the one
- # in LyX's temp folder because then it has been changed by LaTeX
- ${FileTimeDiff} $TimeDiff "$PDFFile" "$OriginalFile"
-
- # if the file is older than 1 second
- ${If} $TimeDiff < -1
- # close the PDF
- !insertmacro HideConsole '"$EXEDIR\pdfclose.exe" --file "$PDFFile"'
-
- # The problem is now that LaTeX might need several runs and therefore the PDF can
- # also be rewritten consecutively several times.
- # If we would directly open the file we will get in troubles as the PDF can be
- # unreadable. We also don't know the time of a LaTeX run.
- # (As example take UserGuide.lyx, view it, then remove a letter in a section heading
- # and finally update the view.)
- # We therefore loop until the PDF is no longer changed and wait some time in each loop.
- ${Do}
- CopyFiles /SILENT $OriginalFile $PDFFile
- # wait 1.666 seconds (is empirically enough time that the PDF can be changed)
- Sleep 1666
- ${FileTimeDiff} $TimeDiff "$PDFFile" "$OriginalFile"
- ${LoopUntil} $TimeDiff = 0
-
- # open the new file
- !insertmacro HideConsole '"$EXEDIR\pdfopen.exe" --file "$PDFFile"'
- ${EndIf}
-
- #Monitor again
- !insertmacro SystemCall "kernel32::FindNextChangeNotification(i $ChangeNotification)"
-
- ${EndIf} # end ifnot
-
- ${Loop}
+ ExecWait '"$ViewerFileName" "$PDFFile"'
${Else}
projects / lyx.git / blobdiff