# ============================================================================
# tar(1) archive files
# ============================================================================

DATA_ATTRIBUTES TAR
{
	ACTIONS		TarContents,TarUnpackContents,TarListPrint
	ICON		Dtmagtp
	NAME_TEMPLATE	%s.tar
	MIME_TYPE	application/octet-stream
	DESCRIPTION	This file is an archive file that contains \
			a number of individual files.  Its data type is \
			named TAR.  TAR files have names ending with '.tar'.
}
DATA_CRITERIA TAR1
{
	DATA_ATTRIBUTES_NAME TAR
	MODE		f
	NAME_PATTERN	*.tar
}
DATA_CRITERIA TAR2
{
	DATA_ATTRIBUTES_NAME TAR
	MODE		f
	NAME_PATTERN	*.TAR
}
ACTION TarContents
{
	LABEL		Tar Contents
	ARG_TYPE	TAR
	ICON		Dtmagtp
	DESCRIPTION	This action lists the contents of all \
			Tar archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 fl=`echo \
			    "%(File)Arg_1"Compressed archive files to list"% \
			     %(File)Args%"`; \
			 cmd="Tar Contents: \$fl"; \
			 export cmd; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 ( ( ( setsid \
			       /bin/sh -c "( ( ( for f in \$fl ; do \
						   echo ""; \
						   echo tar -tvf \\\$f: ; \
						   tar -tvf \\\$f ; \
						 done ); \
					     \$suicide ) \
					     2>&1 < /dev/null & ); \
			       \$precmd" ) | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "Tar Contents: \$fl" \
			   -columns 80 -rows 20 -frompipe ) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}
ACTION TarUnpackContents
{
	LABEL		Tar Unpack
	ARG_TYPE	TAR
	ICON		Dtmagtp
	DESCRIPTION	This action unpacks the contents of all \
			Tar archives you give it.
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 fl=`echo \
			    "%(File)Arg_1"Compressed archive files to unpack"% \
			     %(File)Args%"`; \
			 cmd="Tar Unpack: \$fl"; \
			 export cmd; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 ( ( ( setsid \
			       /bin/sh -c "( ( ( for f in \$fl ; do \
						   echo ""; \
						   echo tar -xvf \\\$f: ; \
						   tar -xvf \\\$f ; \
						 done ); \
					     \$suicide ) \
					     2>&1 < /dev/null & ); \
			       \$precmd" ) | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "Tar Unpack: \$fl" \
			   -columns 80 -rows 20 -frompipe ) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}
ACTION TarListPrint
{
	LABEL		Tar List Print
	ARG_TYPE	TAR
	TYPE		COMMAND
	WINDOW_TYPE	NO_STDIO
	EXEC_STRING	sh -c ' \
			tar -tvf "%(File)Arg_1%" | \
			   /usr/dt/bin/dtlp -u "Archive List Contents"'
	DESCRIPTION	The PrintTarList action prints out a list of the \
			files contained in a TAR archive file on the \
			default printer.
}

# ============================================================================
# compress(1)ed tar(1) archive files, uses zip/unzip scripts
# ============================================================================

DATA_ATTRIBUTES TarZFile
{
	ICON		TarZFile
	ACTIONS		TarZContents,TarZUnpack
	DESCRIPTION	Compressed Tar Archive File
}
DATA_CRITERIA TarZFile1
{
	DATA_ATTRIBUTES_NAME TarZFile
	MODE		!d
	NAME_PATTERN	*.tz
}
DATA_CRITERIA TarZFile2
{
	DATA_ATTRIBUTES_NAME TarZFile
	MODE		!d
	NAME_PATTERN	*.TZ
}
DATA_CRITERIA TarZFile3
{
	DATA_ATTRIBUTES_NAME TarZFile
	MODE		!d
	NAME_PATTERN	*.taz
}
DATA_CRITERIA TarZFile4
{
	DATA_ATTRIBUTES_NAME TarZFile
	MODE		!d
	NAME_PATTERN	*.TAZ
}
DATA_CRITERIA TarZFile5
{
	DATA_ATTRIBUTES_NAME TarZFile
	MODE		!d
	NAME_PATTERN	*.tar.Z
}

ACTION TarZContents
{
	ICON		TarZLookFile
	DESCRIPTION	This action lists the contents of all compressed \
			Tar archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 fl=`echo \
			    "%(File)Arg_1"Compressed archive files to list"% \
			     %(File)Args%"`; \
			 cmd="$HOME/.util/unztar -t \$fl"; \
			 export cmd; \
			 ( ( (setsid \
			    /bin/sh -c "( ( (\$cmd); \
					  \$suicide) \
					  2>&1 < /dev/null &); \
					 \$precmd") | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "TarZ Contents: \$fl" \
			   -columns 80 -rows 20 -frompipe) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}
ACTION TarZPack
{
	ICON		TarZipFile
	DESCRIPTION	This action packs files or directories into compressed \
			Tar archives. 
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 fl=`echo \
			    "%(File)Arg_1"Files to pack"% \
			     %(File)Args%"`; \
			 cmd="$HOME/.util/ztar -t \$fl"; \
			 export cmd; \
			 ( ( (setsid \
			    /bin/sh -c "( ( (\$cmd); \
					  \$suicide) \
					  2>&1 < /dev/null &); \
					 \$precmd") | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "TarZ Pack: \$fl" \
			   -columns 80 -rows 20 -frompipe) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}
ACTION TarZUnpack
{
	ICON		TarUnZipFile
	DESCRIPTION	This action unpacks all files from all compressed \
			Tar archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 fl=`echo \
			    "%(File)Arg_1"Compressed archive files to unpack"% \
			     %(File)Args%"`; \
			 cmd="$HOME/.util/unztar -x \$fl"; \
			 export cmd; \
			 ( ( (setsid \
			    /bin/sh -c "( ( (\$cmd); \
					  \$suicide) \
					  2>&1 < /dev/null &); \
					 \$precmd") | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "TarZ Unpack: \$fl" \
			   -columns 80 -rows 20 -frompipe) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}

# ============================================================================
# GNU-zipped tar(1) archive files
# ============================================================================

DATA_ATTRIBUTES TarGZFile
{
	ICON		TarZFile
	ACTIONS		TarGZContents,TarGZUnpack
	DESCRIPTION	Compressed Tar Archive File
}
DATA_CRITERIA TarGZFile1
{
	DATA_ATTRIBUTES_NAME TarGZFile
	MODE		!d
	NAME_PATTERN	*.tar.gz
}
DATA_CRITERIA TarGZFile2
{
	DATA_ATTRIBUTES_NAME TarGZFile
	MODE		!d
	NAME_PATTERN	*.tgz
}
DATA_CRITERIA TarGZFile3
{
	DATA_ATTRIBUTES_NAME TarGZFile
	MODE		!d
	NAME_PATTERN	*.TGZ
}

ACTION TarGZContents
{
	ICON		TarZLookFile
	DESCRIPTION	This action lists the contents of all compressed \
			Tar archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 fl=`echo \
			    "%(File)Arg_1"Compressed archive files to list"% \
			     %(File)Args%"`; \
			 cmd="$HOME/.util/unztar -t \$fl"; \
			 export cmd; \
			 ( ( ( setsid \
			    /bin/sh -c "( ( ( \$cmd ); \
					  \$suicide ) \
					  2>&1 < /dev/null &); \
					 \$precmd") | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "TarGZ Contents: \$fl" \
			   -columns 80 -rows 20 -frompipe) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}
ACTION TarGZPack
{
	ICON		TarZipFile
	DESCRIPTION	This action packs files or directories into compressed \
			Tar archives. 
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 fl=`echo \
			    "%(File)Arg_1"Files to pack"% \
			     %(File)Args%"`; \
			 cmd="$HOME/.util/ztar -gnu \$fl"; \
			 export cmd; \
			 ( ( (setsid \
			    /bin/sh -c "( ( (\$cmd); \
					  \$suicide) \
					  2>&1 < /dev/null &); \
					 \$precmd") | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "TarGZ Pack: \$fl" \
			   -columns 80 -rows 20 -frompipe) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}
ACTION TarGZUnpack
{
	ICON		TarUnZipFile
	DESCRIPTION	This action unpacks all files from all compressed \
			Tar archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	sh -c \
			'shell=\$SHELL; \
			 precmd="if myesno -text \\"kill \\\$cmd\\" \
					   -title \\"kill \\\$cmd\\"; \
				 then kill -TERM \\\$setsid_GROUP; fi"; \
			 suicide="kill -TERM \\\$setsid_GROUP"; \
			 fl=`echo \
			    "%(File)Arg_1"Compressed archive files to unpack"% \
			     %(File)Args%"`; \
			 cmd="$HOME/.util/unztar -x \$fl"; \
			 export cmd; \
			 ( ( (setsid \
			    /bin/sh -c "( ( (\$cmd); \
					  \$suicide) \
					  2>&1 < /dev/null &); \
					 \$precmd") | \
			 mdisplay -specfont 7x13 -pb2label "" \
			   -xrm "*XmText*highlightThickness: 0" \
			   -title "TarGZ Unpack: \$fl" \
			   -columns 80 -rows 20 -frompipe) \
			 2>&1 > /dev/null & )'
	WINDOW_TYPE	NO_STDIO
}

# ============================================================================
# PC-zipped ZIP archive files
# ============================================================================


DATA_ATTRIBUTES PCZipFile
{
	ICON		zip
	ACTIONS		ZipContents,ZipUnpack,ZipUnpackForced,ZipExtract
	DESCRIPTION	PC ZIP file (using public domain ZIP commands)
}
DATA_CRITERIA PCZipFile1
{
	DATA_ATTRIBUTES_NAME PCZipFile
	MODE		!d
	NAME_PATTERN	*.zip
}
DATA_CRITERIA PCZipFile2
{
	DATA_ATTRIBUTES_NAME PCZipFile
	MODE		!d
	NAME_PATTERN	*.ZIP
}

ACTION ZipContents
{
	ICON		zip
	DESCRIPTION	This action lists the contents of all ZIP \
			archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	tcsh -c 'unzip -v \
			%(File)Arg_1"ZIP archive file to list"% %(File)Args% \
			|& mlist -specfont 7x13 -pb2label "" \
				-title "UnZip contents" -list 20'
	WINDOW_TYPE	NO_STDIO
}
ACTION ZipPack
{
	ICON		zip
	DESCRIPTION	This action packs each file into a ZIP archive.
	TYPE		COMMAND
	EXEC_STRING	sh -c '(exec 2>&1; \
			for f in %(File)Arg_1"File to ZIP"% %(File)Args%; \
			do ( cd `dirname \$f`; \
			     b=`basename \$f`; \
			     z=`echo \$b`; \
			     echo zip -vr \$z.zip \$b; zip -vr \$z.zip \$b ); \
			done ) \
			| mlist -specfont 7x13 -pb2label "" \
				-title "ZIP Files" -list 20'
	WINDOW_TYPE	NO_STDIO
}
ACTION ZipUnpack
{
	ICON		zip
	DESCRIPTION	This action unpacks all files from all ZIP \
			archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	tcsh -c 'unzip -x \
			%(File)Arg_1"ZIP archive file to unpack"% %(File)Args% \
			|& mlist -specfont 7x13 -pb2label "" \
				-title "UnZip extract" -list 20'
	WINDOW_TYPE	NO_STDIO
}
ACTION ZipUnpackForced
{
	ICON		zip
	DESCRIPTION	This action unpacks all files from all ZIP \
			archives you give it. 
	TYPE		COMMAND
	EXEC_STRING	tcsh -c 'unzip -xo \
			%(File)Arg_1"ZIP archive file to unpack"% %(File)Args% \
			|& mlist -specfont 7x13 -pb2label "" \
				-title "UnZip extract" -list 20'
	WINDOW_TYPE	NO_STDIO
}
ACTION ZipExtract
{
	ICON		zip
	DESCRIPTION	This action allows you to select a file in a ZIP \
			archive for extraction
	EXEC_STRING	sh -c '( a=%(File)Arg_1"ZIP archive file"%; \
				  f=`(zipinfo -1 \$a | \
				       mselect -specfont 7x13 \
					       -title "ZIP contents" \
					       -listlabel \$a )`; \
				  cd `dirname \$a`; \
				  if [ -n "\$f" ]; then \
				    echo extracting \$f from \$a; \
				    unzip -xo \$a \$f; \
				  else \
				    echo no file selected from \$a; \
				  fi ) | mlist -specfont 7x13 -pb2label "" \
					  -title "UnZip extract"'
	WINDOW_TYPE	NO_STDIO
}