home *** CD-ROM | disk | FTP | other *** search
- ; Uninstallation script for AmigaWriter-Filter
- ;
- ; ©2000 by Rüdiger Hanke
-
- (set #FILTERPATH "SoftLogik:Filters")
- (set #DOCFILTER (cat #FILTERPATH "/AmigaWriter.dfilter"))
- (set #TEXTFILTER (cat #FILTERPATH "/AmigaWriter.tfilter"))
-
- (set #DEINSTALL_TFILTER (exists (cat "" #TEXTFILTER) (noreq)))
- (set #DEINSTALL_DFILTER (exists (cat "" #DOCFILTER) (noreq)))
-
- (set @app-name "AmigaWriter-Filter")
- (set @default-dest (cat "" #FILTERSPATH))
-
- ; First check some stuff
- (if (and (<> 1 #DEINSTALL_TFILTER)
- (<> 1 #DEINSTALL_DFILTER))
- (
- (abort "AmigaWriter-Filter is not installed!\n\nThe installer could not find any installed filter.\n")
- )
- )
-
- ; Ask what to install if user != novice
- (if (<> @user-level 0)
- (
- (set #BITMASK 0)
- (if (<> 0 #DEINSTALL_DFILTER)
- (
- (set #BITMASK (bitor #BITMASK 1))
- )
- )
- (if (<> 0 #DEINSTALL_TFILTER)
- (
- (set #BITMASK (bitor #BITMASK 2))
- )
- )
- (set #RESULT (askoptions (prompt "Please select which filter(s) you'd like to deinstall:")
- (choices "Document filter" "Text filter")
- (default #BITMASK)
- (help "Select the filters you would like to deinstall.\n\nDocument filter:\n"
- "With the document filter, you can load AmigaWriter documents in PageStream "
- "via the \"Open\" menu item as if they were PageStream-native documents. Page sizes, boxes, images, "
- "links between boxes etc. will all be imported.\n\n"
- "Text filter:\nThe text filters imports the main flowtext of your AmigaWriter "
- "document via the \"Insert text\" menu item into the current column.\n\n"
- "Both filters can co-exist and unless you absolutely don't need one of them, "
- "there is no reason to install only one.")))
-
- (if (not (bitand 1 #RESULT))
- (
- (set #DEINSTALL_DFILTER 0)
- )
- )
-
- (if (not (bitand 2 #RESULT))
- (
- (set #DEINSTALL_TFILTER 0)
- )
- )
- )
- )
-
- ; DeInstall
- (if (<> 0 #DEINSTALL_DFILTER)
- (
- ; Delete document filter
- (delete #DOCFILTER
- (prompt "Deinstalling document filter..."))
- )
- )
-
- (if (<> 0 #DEINSTALL_TFILTER)
- (
- ; Delete text filter
- (delete #TEXTFILTER
- (prompt "Deinstalling text filter..."))
- )
- )
-
-