/*
UnTGZ是NSIS解压tgz/tar/gz/lzma/bz2/tlz/tbz压缩文件的插件
UnTGZ可以解压大多数的压缩制式压缩包,功能强大.
*/
!AddPluginDir "../"
; The name of the installer
Name "untgz Example"
; The file to write
OutFile "untgz_example.exe"
; Let user see messages in detail window
ShowInstDetails show
; The default installation directory
InstallDir $TEMPExample
; The text to prompt the user to enter a directory
DirText "This will install the untgz example on your computer. Please select a directory"
; The text to prompt the user to enter a directory
ComponentText "This will install untgz examples on your computer. Select which test to run."
; let user choose examples to run
InstType "All Examples"
InstType "extract all files"
InstType "extract all files alternate"
InstType "extract specific files"
InstType "extract a single file"
InstType "extract a corrupt or missing file"
InstType "extract a zero byte file"
InstType "extract all files from uncompressed tarball"
InstType "Test readonly/inuse files extraction"
InstType "Test update files extraction"
InstType "extract all files from lzma compressed tarball"
InstType "extract all files from bzip2 compressed tarball"
InstType "extract all files from tarball (auto determine type)"
; Required, the sample tarball used for testing
Section ""
SectionIn 1 2 3 4 5 6 7 8 9 10 11 12 13 RO
; Set output path to the installation directory.
SetOutPath $INSTDIR
; Put file there
File example.tgz
File examplecorrupt.tgz
File exampleempty.tgz
File examplenewer.tgz
File dups.tar.gz
; the alternate compressed files
File example.tar
File example.tlz
File example.tar.lzma
File example.tbz
SectionEnd
Section "Test extract"
SectionIn 1 2
; untgz::extract [-j] [-d basedir] tarball.tgz
untgz::extract -j -d "$INSTDIR/junkedpaths" "$INSTDIR/example.tgz"
DetailPrint "untgz returned ($R0)"
untgz::extract -d "$INSTDIR/withpaths" "$INSTDIR/example.tgz"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test extractV, same as extract"
SectionIn 1 3
; untgz::extractV [-j] [-d basedir] tarball.tgz [-i {iList}] [-x {xList}] --
untgz::extractV -j -d "$INSTDIR/junkedpathsAlt" "$INSTDIR/example.tgz" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -d "$INSTDIR/withpathsAlt" "$INSTDIR/example.tgz" --
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test extractV"
SectionIn 1 4
; untgz::extractV [-j] [-d basedir] tarball.tgz [-i {iList}] [-x {xList}] --
untgz::extractV -j -d "$INSTDIR/junkedpathsI" "$INSTDIR/example.tgz" -i "another doc.txt" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -j -d "$INSTDIR/junkedpathsX" "$INSTDIR/example.tgz" -x "another doc.txt" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -d "$INSTDIR/withpathsIa" "$INSTDIR/example.tgz" -i "another doc.txt" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -d "$INSTDIR/withpathsXa" "$INSTDIR/example.tgz" -x "sample doc.txt" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -d "$INSTDIR/withpathsXb" "$INSTDIR/example.tgz" -i "sample doc.txt" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -d "$INSTDIR/withpathsIb" "$INSTDIR/example.tgz" -x "another doc.txt" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -d "$INSTDIR/withpathsXs" "$INSTDIR/example.tgz" -x "subdir" --
DetailPrint "untgz returned ($R0)"
untgz::extractV -d "$INSTDIR/withpathsX curious" "$INSTDIR/example.tgz" -x "subdir/*" --
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test extractFile"
SectionIn 1 5
; untgz::extractFile [-d basedir] tarball.tgz file
untgz::extractFile -d "$INSTDIRsinglefile" "$INSTDIRexample.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
untgz::extractFile -d "$INSTDIR/forwardSlash" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test extract corrupt File"
SectionIn 1 6
; attempt to extract from a corrupt [manually truncated] tarball
untgz::extractFile -d "$INSTDIR/corrupt" "$INSTDIR/examplecorrupt.tgz" "fake doc.txt"
DetailPrint "untgz returned ($R0)"
; attempt to extract from a nonexistant tarball
untgz::extractFile -d "$INSTDIR/corrupt" "$INSTDIR/exampleNotExist.tgz" "my doc.txt"
DetailPrint "untgz returned ($R0)"
; attempt a proper extraction, should succeed.
untgz::extractFile -d "$INSTDIR/corruptSuccess" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
; attempt to extract a file from archive that does not exist
untgz::extractFile -d "$INSTDIR/singlefile2" "$INSTDIR/example.tgz" "Notexist.txT"
DetailPrint "untgz returned ($R0)"
untgz::extractFile -d "$INSTDIR/singlefile2" "$INSTDIR/example.tgz" "my doc.txt"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test extract 0 byte file"
SectionIn 1 7
untgz::extract -d "$INSTDIR/zerofile" "$INSTDIR/exampleempty.tgz"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test uncompressed tarball"
SectionIn 1 8
untgz::extract -d "$INSTDIR/plainTAR" "$INSTDIR/example.tar"
DetailPrint "untgz returned ($R0)"
untgz::extract -d "$INSTDIR/plainTAR2" -znone "$INSTDIR/example.tar"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test readonly/inuse files extraction"
SectionIn 1 9
DetailPrint ""
DetailPrint "Test readonly/inuse files extraction"
; Be sure paths to FileOpen and SetFileAttributes ONLY use character
DetailPrint "this should succeed"
untgz::extractFile -d "$INSTDIR/readonly" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
DetailPrint "this should succeed as well overwriting the file"
untgz::extractFile -d "$INSTDIR/readonly" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
DetailPrint "force this file open so next call should fail"
ClearErrors
FileOpen $0 "$INSTDIRreadonlyanother doc.txt" a
IfErrors 0 +2
MessageBox MB_OK "Failed to open file"
DetailPrint "this should produce an error since file trying to extract is open"
untgz::extractFile -d "$INSTDIR/readonly" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
DetailPrint "now retry should succeed once file closed"
FileClose $0
untgz::extractFile -d "$INSTDIR/readonly" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
DetailPrint "set file to readonly"
ClearErrors
SetFileAttributes "$INSTDIRreadonlyanother doc.txt" FILE_ATTRIBUTE_READONLY
IfErrors 0 +2
MessageBox MB_OK "Failed to set file to readonly"
DetailPrint "this should fail"
untgz::extractFile -d "$INSTDIR/readonly" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
DetailPrint "restore attributes, retry should succeed"
SetFileAttributes "$INSTDIRreadonlyanother doc.txt" FILE_ATTRIBUTE_NORMAL
untgz::extractFile -d "$INSTDIR/readonly" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test update files extraction"
SectionIn 1 10
DetailPrint ""
DetailPrint "Test update files extraction"
; this should succeed
untgz::extractFile -d "$INSTDIR/update" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
; this should skip the file just extracted
untgz::extractFile -k -d "$INSTDIR/update" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
; so should this one, since update should not happen (same time)
untgz::extractFile -u -d "$INSTDIR/update" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
; this should extract some files and skip ones skipped above
untgz::extract -j -u -d "$INSTDIR/update" "$INSTDIR/example.tgz"
DetailPrint "untgz returned ($R0)"
DetailPrint "set file to readonly"
untgz::extractFile -d "$INSTDIR/upd" "$INSTDIR/example.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
ClearErrors
SetFileAttributes "$INSTDIRupdanother doc.txt" FILE_ATTRIBUTE_READONLY
IfErrors 0 +2
MessageBox MB_OK "Failed to set file to readonly"
DetailPrint "this should fail"
untgz::extractFile -u -d "$INSTDIR/upd" "$INSTDIR/examplenewer.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
SetFileAttributes "$INSTDIRupdanother doc.txt" FILE_ATTRIBUTE_NORMAL
DetailPrint "this should update the file"
untgz::extractFile -u -d "$INSTDIR/upd" "$INSTDIR/examplenewer.tgz" "another doc.txt"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test lzma compressed tarball"
SectionIn 1 11
DetailPrint ""
DetailPrint "Test lzma compressed tarball"
untgz::extract -d "$INSTDIR/tlz_file" -zlzma "$INSTDIR/example.tlz"
DetailPrint "untgz returned ($R0)"
untgz::extract -d "$INSTDIR/tar_lzma_file" -zlzma "$INSTDIR/example.tar.lzma"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test bzip2 compressed tarball"
SectionIn 1 12
DetailPrint ""
DetailPrint "Test bzip2 compressed tarball"
; same example files as others
untgz::extract -d "$INSTDIR/tbz_file" -zbz2 "$INSTDIR/example.tbz"
DetailPrint "untgz returned ($R0)"
; this one should fail
DetailPrint "Test bzip2 extraction on invalid tarball"
untgz::extract -d "$INSTDIR/tbz_fail" -zbz2 "$INSTDIR/example.tgz"
DetailPrint "untgz returned ($R0)"
SectionEnd
Section "Test extraction tarball, no type indicated"
SectionIn 1 13
DetailPrint ""
DetailPrint "Test plain (uncompressed) tarball"
untgz::extract -d "$INSTDIR/tar_file" "$INSTDIR/example.tar"
DetailPrint "untgz returned ($R0)"
DetailPrint "Test gzipped compressed tarball"
untgz::extract -d "$INSTDIR/tgz_file" "$INSTDIR/example.tgz"
DetailPrint "untgz returned ($R0)"
DetailPrint "Test lzma compressed tarball"
untgz::extract -d "$INSTDIR/tlz_file" "$INSTDIR/example.tlz"
DetailPrint "untgz returned ($R0)"
DetailPrint "Test bzip2 compressed tarball"
; same example files as others
untgz::extract -d "$INSTDIR/tbz_file" "$INSTDIR/example.tbz"
DetailPrint "untgz returned ($R0)"
SectionEnd
; eof
免责声明：根据《计算机软件保护条例》第十七条规定“为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，不向其支付报酬。”您需知晓本站所有内容资源均来源于网络，仅供用户交流学习与研究使用，版权归属原版权方所有，版权争议与本站无关，用户本人下载后不能用作商业或非法用途，需在24个小时之内从您的电脑中彻底删除上述内容，否则后果均由用户承担责任；如果您访问和下载此文件，表示您同意只将此文件用于参考、学习而非其他用途，否则一切后果请您自行承担，如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。丨本站为个人博客非盈利性站点，所有软件信息均来自网络，所有资源仅供学习参考研究目的，并不贩卖软件，不存在任何商业目的及用途。丨本文采用知识共享 署名4.0国际许可协议 [BY-NC-SA] 进行授权BY-NC-SA协议进行授权
转载请注明：永恒心锁-分享互联网 » UnTGZ是NSIS解压tgz/tar/gz/lzma/bz2/tlz/tbz压缩文件的插件