hg/stx-libbasic2: Archiver.st@552aa6706d4c (annotated)

1554 a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	1	"
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	2	COPYRIGHT (c) 2003 by eXept Software AG
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	3	All Rights Reserved
1554 a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	4
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	5	This software is furnished under a license and may be used
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	6	only in accordance with the terms of that license and with the
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	7	inclusion of the above copyright notice. This software may not
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	8	be provided or otherwise made available to, or used by, any
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	9	other person. No title to or ownership of the software is
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	10	hereby transferred.
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	11	"
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	12	"{ Package: 'stx:libbasic2' }"
2ff8d73d5dcf initial checkin penk parents: diff changeset	13
2ff8d73d5dcf initial checkin penk parents: diff changeset	14	Object subclass:#Archiver
1089 128ba2ef5505 next stage penk parents: 1088 diff changeset	15	instanceVariableNames:'process temporaryDirectory fileName outStream errorStream
128ba2ef5505 next stage penk parents: 1088 diff changeset	16	synchron'
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	17	classVariableNames:'MimeTypeMapping'
1089 128ba2ef5505 next stage penk parents: 1088 diff changeset	18	poolDictionaries:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	19	category:'System-Support-FileFormats'
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	20	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	21
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	22	Archiver subclass:#MultiFileArchive
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	23	instanceVariableNames:''
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	24	classVariableNames:''
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	25	poolDictionaries:''
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	26	privateIn:Archiver
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	27	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	28
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	29	Object subclass:#ArchiverOutputParser
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	30	instanceVariableNames:'firstLineRead archiver'
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	31	classVariableNames:''
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	32	poolDictionaries:''
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	33	privateIn:Archiver
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	34	!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	35
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	36	Archiver subclass:#CompressedFile
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	37	instanceVariableNames:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	38	classVariableNames:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	39	poolDictionaries:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	40	privateIn:Archiver
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	41	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	42
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	43	Archiver::CompressedFile subclass:#BZ2Compressed
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	44	instanceVariableNames:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	45	classVariableNames:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	46	poolDictionaries:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	47	privateIn:Archiver
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	48	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	49
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	50	Archiver subclass:#CompressedTarArchive
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	51	instanceVariableNames:'tarArchiver tarFile'
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	52	classVariableNames:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	53	poolDictionaries:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	54	privateIn:Archiver
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	55	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	56
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	57	Archiver::CompressedFile subclass:#GZipCompressed
1089 128ba2ef5505 next stage penk parents: 1088 diff changeset	58	instanceVariableNames:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	59	classVariableNames:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	60	poolDictionaries:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	61	privateIn:Archiver
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	62	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	63
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	64	Archiver::MultiFileArchive subclass:#ArArchive
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	65	instanceVariableNames:''
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	66	classVariableNames:''
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	67	poolDictionaries:''
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	68	privateIn:Archiver
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	69	!
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	70
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	71	Archiver::MultiFileArchive subclass:#TarArchive
1089 128ba2ef5505 next stage penk parents: 1088 diff changeset	72	instanceVariableNames:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	73	classVariableNames:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	74	poolDictionaries:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	75	privateIn:Archiver
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	76	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	77
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	78	Archiver::CompressedTarArchive subclass:#TarBZ2Archive
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	79	instanceVariableNames:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	80	classVariableNames:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	81	poolDictionaries:''
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	82	privateIn:Archiver
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	83	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	84
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	85	Archiver::CompressedTarArchive subclass:#TarGZipArchive
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	86	instanceVariableNames:''
1089 128ba2ef5505 next stage penk parents: 1088 diff changeset	87	classVariableNames:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	88	poolDictionaries:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	89	privateIn:Archiver
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	90	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	91
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	92	Archiver::MultiFileArchive subclass:#ZipArchive
1089 128ba2ef5505 next stage penk parents: 1088 diff changeset	93	instanceVariableNames:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	94	classVariableNames:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	95	poolDictionaries:''
128ba2ef5505 next stage penk parents: 1088 diff changeset	96	privateIn:Archiver
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	97	!
2af5aca23dba zip added penk parents: 1085 diff changeset	98
1554 a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	99	!Archiver class methodsFor:'documentation'!
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	100
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	101	copyright
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	102	"
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	103	COPYRIGHT (c) 2003 by eXept Software AG
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	104	All Rights Reserved
1554 a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	105
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	106	This software is furnished under a license and may be used
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	107	only in accordance with the terms of that license and with the
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	108	inclusion of the above copyright notice. This software may not
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	109	be provided or otherwise made available to, or used by, any
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	110	other person. No title to or ownership of the software is
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	111	hereby transferred.
a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	112	"
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	113	!
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	114
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	115	documentation
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	116	"
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	117	this is a soon to be obsoleted helper class for the fileBrowser.
3007 778a3c6b9877 class: Archiver Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	118	it wraps OS-specific command line archivers (tar, zip, rar, etc)
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	119	into a common protocol useful to display an archive's contents.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	120
3007 778a3c6b9877 class: Archiver Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	121	will be removed - do not use for your projects.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	122	"
1554 a92694a00c33 * empty log message * Claus Gittinger <cg@exept.de> parents: 1479 diff changeset	123	! !
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	124
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	125	!Archiver class methodsFor:'initialization'!
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	126
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	127	initialize
2689 916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	128	MimeTypeMapping := Dictionary
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	129	withKeysAndValues:
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	130	#(
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	131	'application/x-tar-compressed' CompressedTarArchive "abstract - special handling"
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	132	'application/x-tar-gzip-compressed' TarGZipArchive
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	133	'application/x-tar-bzip2-compressed' TarBZ2Archive
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	134	'application/x-tar' TarArchive
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	135	'application/x-gzip-compressed' GZipCompressed
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	136	'application/x-zip-compressed' ZipArchive
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	137	'application/x-bzip2-compressed' BZ2Compressed
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	138	'application/x-squeak-archive' ZipArchive
2693 d6750d5e8160 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	139	'application/x-squeak-monticello-archive' ZipArchive
2689 916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	140	'application/java-archive' ZipArchive
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	141
2689 916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	142	'application/x-ar-archive' ArArchive
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	143	'application/x-ar-library' ArArchive
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	144	'application/library' ArArchive
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	145
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	146	"/ 'application/x-rpm' RPMArchive
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	147	"/ 'application/x-rpm-archive' RPMArchive
2688 e97785830190 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2646 diff changeset	148	"/ 'application/x-redhat packet manager' RPMArchive
e97785830190 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2646 diff changeset	149
2689 916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	150	'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet' ZipArchive
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	151	).
2688 e97785830190 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2646 diff changeset	152
2693 d6750d5e8160 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2690 diff changeset	153	"Modified: / 01-12-2011 / 21:25:08 / cg"
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	154	! !
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	155
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	156	!Archiver class methodsFor:'instance creation'!
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	157
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	158	classForMimeType:aMimeType fileName:aFileNameOrNil
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	159	\|className\|
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	160
2694 253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	161	className := MimeTypeMapping at:aMimeType ifAbsent:nil.
253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	162	className isNil ifTrue:[
253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	163	"/ hard coded heuristics...
253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	164	aFileNameOrNil asFilename suffix = 'mcz' ifTrue:[^ ZipArchive].
253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	165	^ nil
253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	166	].
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	167
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	168	className = #CompressedTarArchive ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	169	(aFileNameOrNil notNil and:[aFileNameOrNil suffix = 'bz2']) ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	170	className := #TarBZ2Archive
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	171	] ifFalse:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	172	"this is the default"
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	173	className := #TarGZipArchive
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	174	]
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	175	].
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	176	^ self privateClassesAt:className.
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	177
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	178	"
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	179	self classForMimeType:nil fileName:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	180	self classForMimeType:'application/x-tar-compressed' fileName:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	181	self classForMimeType:'application/x-tar' fileName:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	182	self classForMimeType:'application/x-foo' fileName:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	183	self classForMimeType:'application/x-squeak-archive' fileName:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	184	self classForMimeType:'application/java-archive' fileName:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	185	'foo.sar' asFilename mimeTypeFromName
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	186	'foo.jar' asFilename mimeTypeFromName
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	187	'foo.a' asFilename mimeTypeFromName
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	188	"
2694 253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	189
253225aabd59 changed: #classForMimeType:fileName: Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	190	"Modified: / 01-12-2011 / 21:26:24 / cg"
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	191	!
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	192
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	193	newFor:aFilename
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	194	\|fn archiverClass\|
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	195
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	196	fn := aFilename asFilename.
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	197	archiverClass := self classForMimeType:fn mimeTypeFromName fileName:fn.
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	198	archiverClass isNil ifTrue:[^ nil].
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	199	^ archiverClass with:fn
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	200	!
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	201
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	202	with:aFilename
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	203	^ self new fileName:aFilename.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	204	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	205
2ff8d73d5dcf initial checkin penk parents: diff changeset	206	!Archiver class methodsFor:'classAccess'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	207
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	208	arArchive
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	209
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	210	^ ArArchive
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	211	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	212
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	213	gzipArchive
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	214	^ GZipCompressed
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	215	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	216
2ff8d73d5dcf initial checkin penk parents: diff changeset	217	tarArchive
2ff8d73d5dcf initial checkin penk parents: diff changeset	218
2ff8d73d5dcf initial checkin penk parents: diff changeset	219	^ TarArchive
2ff8d73d5dcf initial checkin penk parents: diff changeset	220	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	221
2ff8d73d5dcf initial checkin penk parents: diff changeset	222	tarGZipArchive
2ff8d73d5dcf initial checkin penk parents: diff changeset	223
2ff8d73d5dcf initial checkin penk parents: diff changeset	224	^ TarGZipArchive
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	225	!
2af5aca23dba zip added penk parents: 1085 diff changeset	226
2af5aca23dba zip added penk parents: 1085 diff changeset	227	zipArchive
2af5aca23dba zip added penk parents: 1085 diff changeset	228
2af5aca23dba zip added penk parents: 1085 diff changeset	229	^ ZipArchive
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	230	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	231
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	232	!Archiver class methodsFor:'columns'!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	233
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	234	columns
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	235	self subclassResponsibility
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	236	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	237
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	238	!Archiver class methodsFor:'command strings'!
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	239
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	240	stringWithQuotedFileBaseNames:aColOfFiles
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	241
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	242	aColOfFiles isNil ifTrue:[^ ''].
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	243
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	244	^ String
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	245	streamContents:[:str \|
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	246	aColOfFiles do:[:fn \|
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	247	str nextPutAll:' "'.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	248	str nextPutAll:(fn asFilename baseName).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	249	str nextPutAll:'"'.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	250	].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	251	]
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	252	! !
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	253
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	254	!Archiver class methodsFor:'commandOutputReader'!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	255
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	256	commandOutputParser
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	257	^ self commandOutputParserClass new
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	258	!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	259
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	260	commandOutputParserClass
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	261	^ ArchiverOutputParser
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	262	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	263
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	264	!Archiver class methodsFor:'queries'!
2af5aca23dba zip added penk parents: 1085 diff changeset	265
2af5aca23dba zip added penk parents: 1085 diff changeset	266	canAddFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	267
2af5aca23dba zip added penk parents: 1085 diff changeset	268	^ false
2af5aca23dba zip added penk parents: 1085 diff changeset	269	!
2af5aca23dba zip added penk parents: 1085 diff changeset	270
1106 893c2c508df1 checkin from browser penk parents: 1098 diff changeset	271	canDragnDrop
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	272
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	273	^ true.
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	274	!
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	275
1098 4b5a0721ec55 checkin from browser penk parents: 1089 diff changeset	276	canExtractFiles
4b5a0721ec55 checkin from browser penk parents: 1089 diff changeset	277
4b5a0721ec55 checkin from browser penk parents: 1089 diff changeset	278	^ false
4b5a0721ec55 checkin from browser penk parents: 1089 diff changeset	279	!
4b5a0721ec55 checkin from browser penk parents: 1089 diff changeset	280
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	281	canRemoveFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	282
2af5aca23dba zip added penk parents: 1085 diff changeset	283	^ false
2af5aca23dba zip added penk parents: 1085 diff changeset	284	!
2af5aca23dba zip added penk parents: 1085 diff changeset	285
1106 893c2c508df1 checkin from browser penk parents: 1098 diff changeset	286	canViewFile
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	287
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	288	^ false
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	289	!
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	290
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	291	hasTitleLine
2af5aca23dba zip added penk parents: 1085 diff changeset	292
2af5aca23dba zip added penk parents: 1085 diff changeset	293	^ false
2af5aca23dba zip added penk parents: 1085 diff changeset	294	! !
2af5aca23dba zip added penk parents: 1085 diff changeset	295
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	296	!Archiver methodsFor:'accessing'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	297
2ff8d73d5dcf initial checkin penk parents: diff changeset	298	errorStream
2ff8d73d5dcf initial checkin penk parents: diff changeset	299	"return the value of the instance variable 'errorStream' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	300
2ff8d73d5dcf initial checkin penk parents: diff changeset	301	^ errorStream
2ff8d73d5dcf initial checkin penk parents: diff changeset	302	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	303
2ff8d73d5dcf initial checkin penk parents: diff changeset	304	errorStream:something
2ff8d73d5dcf initial checkin penk parents: diff changeset	305	"set the value of the instance variable 'errorStream' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	306
2ff8d73d5dcf initial checkin penk parents: diff changeset	307	errorStream := something.
2ff8d73d5dcf initial checkin penk parents: diff changeset	308	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	309
2ff8d73d5dcf initial checkin penk parents: diff changeset	310	fileName
2ff8d73d5dcf initial checkin penk parents: diff changeset	311	"return the value of the instance variable 'fileName' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	312
2ff8d73d5dcf initial checkin penk parents: diff changeset	313	^ fileName
2ff8d73d5dcf initial checkin penk parents: diff changeset	314	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	315
2ff8d73d5dcf initial checkin penk parents: diff changeset	316	fileName:something
2ff8d73d5dcf initial checkin penk parents: diff changeset	317	"set the value of the instance variable 'fileName' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	318
2ff8d73d5dcf initial checkin penk parents: diff changeset	319	fileName := something.
2ff8d73d5dcf initial checkin penk parents: diff changeset	320	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	321
2ff8d73d5dcf initial checkin penk parents: diff changeset	322	outStream
2ff8d73d5dcf initial checkin penk parents: diff changeset	323	"return the value of the instance variable 'outStream' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	324
2ff8d73d5dcf initial checkin penk parents: diff changeset	325	^ outStream
2ff8d73d5dcf initial checkin penk parents: diff changeset	326	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	327
2ff8d73d5dcf initial checkin penk parents: diff changeset	328	outStream:something
2ff8d73d5dcf initial checkin penk parents: diff changeset	329	"set the value of the instance variable 'outStream' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	330
2ff8d73d5dcf initial checkin penk parents: diff changeset	331	outStream := something.
2ff8d73d5dcf initial checkin penk parents: diff changeset	332	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	333
2ff8d73d5dcf initial checkin penk parents: diff changeset	334	process
2ff8d73d5dcf initial checkin penk parents: diff changeset	335	"return the value of the instance variable 'process' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	336
2ff8d73d5dcf initial checkin penk parents: diff changeset	337	^ process
2ff8d73d5dcf initial checkin penk parents: diff changeset	338	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	339
2ff8d73d5dcf initial checkin penk parents: diff changeset	340	process:something
2ff8d73d5dcf initial checkin penk parents: diff changeset	341	"set the value of the instance variable 'process' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	342
2ff8d73d5dcf initial checkin penk parents: diff changeset	343	process := something.
2ff8d73d5dcf initial checkin penk parents: diff changeset	344	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	345
2ff8d73d5dcf initial checkin penk parents: diff changeset	346	synchron
2ff8d73d5dcf initial checkin penk parents: diff changeset	347	"return the value of the instance variable 'synchron' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	348
2ff8d73d5dcf initial checkin penk parents: diff changeset	349	^ synchron
2ff8d73d5dcf initial checkin penk parents: diff changeset	350	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	351
2ff8d73d5dcf initial checkin penk parents: diff changeset	352	synchron:something
2ff8d73d5dcf initial checkin penk parents: diff changeset	353	"set the value of the instance variable 'synchron' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	354
2ff8d73d5dcf initial checkin penk parents: diff changeset	355	synchron := something.
2ff8d73d5dcf initial checkin penk parents: diff changeset	356	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	357
2ff8d73d5dcf initial checkin penk parents: diff changeset	358	temporaryDirectory
2ff8d73d5dcf initial checkin penk parents: diff changeset	359	"return the value of the instance variable 'temporaryDirectory' (automatically generated)"
2ff8d73d5dcf initial checkin penk parents: diff changeset	360
2ff8d73d5dcf initial checkin penk parents: diff changeset	361	temporaryDirectory isNil ifTrue:[
3027 552aa6706d4c class: Archiver Stefan Vogel <sv@exept.de> parents: 3007 diff changeset	362	temporaryDirectory := Filename newTemporaryDirectory.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	363	].
2ff8d73d5dcf initial checkin penk parents: diff changeset	364	^ temporaryDirectory
2ff8d73d5dcf initial checkin penk parents: diff changeset	365	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	366
2ff8d73d5dcf initial checkin penk parents: diff changeset	367	!Archiver methodsFor:'actions'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	368
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	369	extractFilesTo:aDirectory
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	370	self extractFiles:nil to:aDirectory
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	371	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	372
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	373	listFiles:aColOfFiles
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	374	\|cmd dir\|
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	375
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	376	self fileName isNil ifTrue:[ ^ self].
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	377	dir := self fileName directory.
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	378	cmd := self getCommandToListFiles:aColOfFiles.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	379	cmd isNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	380	errorStream nextPutLine:'No command to list the archive.'.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	381	^ self
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	382	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	383	self executeCommand:cmd directory:dir
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	384
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	385	"Modified: / 16-09-2011 / 16:33:50 / cg"
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	386	!
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	387
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	388	removeFilesFromArchive:aColOfFiles
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	389
2ff8d73d5dcf initial checkin penk parents: diff changeset	390	self subclassResponsibility.
2ff8d73d5dcf initial checkin penk parents: diff changeset	391	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	392
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	393	!Archiver methodsFor:'actions-basic'!
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	394
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	395	addFilesToArchive:colOfFiles
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	396	self subclassResponsibility.
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	397	!
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	398
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	399	extractFiles:aColOfFilesOrNil to:aDirectory
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	400	self subclassResponsibility.
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	401	! !
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	402
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	403	!Archiver methodsFor:'actions-private'!
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	404
2ff8d73d5dcf initial checkin penk parents: diff changeset	405	removeTemporaryDirectory
2ff8d73d5dcf initial checkin penk parents: diff changeset	406
2ff8d73d5dcf initial checkin penk parents: diff changeset	407	\| tmp \|
2ff8d73d5dcf initial checkin penk parents: diff changeset	408
2ff8d73d5dcf initial checkin penk parents: diff changeset	409	temporaryDirectory notNil ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	410	tmp := self temporaryDirectory.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	411	(FileDirectory directoryNamed:(tmp directory)) removeDirectory:tmp baseName.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	412	temporaryDirectory := nil.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	413	].
2ff8d73d5dcf initial checkin penk parents: diff changeset	414	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	415
2ff8d73d5dcf initial checkin penk parents: diff changeset	416	stopProcess
2ff8d73d5dcf initial checkin penk parents: diff changeset	417
2ff8d73d5dcf initial checkin penk parents: diff changeset	418	process notNil ifTrue:[
2743 1c66068c14a1 changed: #stopProcess Stefan Vogel <sv@exept.de> parents: 2694 diff changeset	419	process terminateWithAllSubprocessesInGroup.
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	420	process waitUntilTerminated.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	421	].
2ff8d73d5dcf initial checkin penk parents: diff changeset	422	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	423
2ff8d73d5dcf initial checkin penk parents: diff changeset	424	!Archiver methodsFor:'command execution'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	425
2ff8d73d5dcf initial checkin penk parents: diff changeset	426	executeCommand:cmd directory:aDirectory
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	427	cmd isNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	428	errorStream nextPutAll:'No command for archive operation.'.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	429	^ false
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	430	].
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	431
2ff8d73d5dcf initial checkin penk parents: diff changeset	432	synchron isNil ifTrue:[synchron := true].
2ff8d73d5dcf initial checkin penk parents: diff changeset	433	synchron ifTrue:[
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	434	^ OperatingSystem
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	435	executeCommand:cmd
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	436	inputFrom:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	437	outputTo:outStream
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	438	errorTo:errorStream
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	439	inDirectory:aDirectory
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	440	lineWise:true
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	441	onError:[:status\| false].
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	442	] ifFalse:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	443	process := Process for:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	444	[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	445	OperatingSystem
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	446	executeCommand:cmd
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	447	inputFrom:nil
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	448	outputTo:outStream
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	449	errorTo:errorStream
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	450	inDirectory:aDirectory
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	451	lineWise:true
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	452	onError:[:status\| false].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	453	] ensure:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	454	process := nil.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	455	].
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	456
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	457	] priority:(Processor systemBackgroundPriority).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	458	process name:('Archiver command: ', cmd).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	459	process resume.
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	460	^true
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	461	]
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	462
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	463	"Modified: / 16-09-2011 / 16:32:37 / cg"
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	464	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	465
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	466	isValidOutputLine:line
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	467	"return true, if line contains a valid list-files output line"
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	468
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	469	self subclassResponsibility
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	470	!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	471
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	472	listFilesReader
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	473	\|reader\|
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	474
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	475	reader := ArchiverOutputParser new.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	476	reader archiver:self.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	477	^ reader
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	478	!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	479
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	480	outStream:aOutStream errorStream:aErrorStream
2ff8d73d5dcf initial checkin penk parents: diff changeset	481
2ff8d73d5dcf initial checkin penk parents: diff changeset	482	outStream := aOutStream.
2ff8d73d5dcf initial checkin penk parents: diff changeset	483	errorStream := aErrorStream.
2ff8d73d5dcf initial checkin penk parents: diff changeset	484	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	485
2ff8d73d5dcf initial checkin penk parents: diff changeset	486	outStream:aOutStream errorStream:aErrorStream synchron:aBoolean
2ff8d73d5dcf initial checkin penk parents: diff changeset	487
2ff8d73d5dcf initial checkin penk parents: diff changeset	488	outStream := aOutStream.
2ff8d73d5dcf initial checkin penk parents: diff changeset	489	errorStream := aErrorStream.
2ff8d73d5dcf initial checkin penk parents: diff changeset	490	synchron := aBoolean
2ff8d73d5dcf initial checkin penk parents: diff changeset	491	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	492
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	493	!Archiver methodsFor:'command strings'!
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	494
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	495	addDoubleQuotedFilenames:collectionOfFilenames toStream:aStream
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	496	collectionOfFilenames notNil ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	497	collectionOfFilenames do:[:el \|
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	498	aStream nextPutAll:' "'.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	499	aStream nextPutAll:(el asString).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	500	aStream nextPutAll:'"'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	501	].
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	502	].
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	503	! !
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	504
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	505	!Archiver methodsFor:'initialization & release'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	506
2ff8d73d5dcf initial checkin penk parents: diff changeset	507	release
2ff8d73d5dcf initial checkin penk parents: diff changeset	508
2ff8d73d5dcf initial checkin penk parents: diff changeset	509	self stopProcess.
2ff8d73d5dcf initial checkin penk parents: diff changeset	510	self removeTemporaryDirectory.
2ff8d73d5dcf initial checkin penk parents: diff changeset	511	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	512
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	513	!Archiver::MultiFileArchive methodsFor:'actions'!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	514
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	515	addFilesToArchive:colOfFiles
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	516	\|cmd tempDir archivFile archivInTemp fileSize backupFile result\|
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	517
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	518	archivFile := self fileName.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	519
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	520	tempDir := self temporaryDirectory.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	521	archivInTemp := tempDir construct:(archivFile baseName).
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	522
1784 f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	523	"/ copy a non-empty archiv to tempDir
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	524	fileSize := archivFile fileSize.
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	525	(fileSize notNil and: [fileSize > 0])
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	526	ifTrue: [archivFile copyTo:archivInTemp].
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	527
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	528	"/ keep a save copy
1784 f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	529
1799 5bb8bb7d430f creation of .sav file modified boris parents: 1798 diff changeset	530	"/ backupFile := archivFile withSuffix: 'sav'.
5bb8bb7d430f creation of .sav file modified boris parents: 1798 diff changeset	531	"/ (backupFile exists) ifTrue:[
5bb8bb7d430f creation of .sav file modified boris parents: 1798 diff changeset	532	"/ backupFile recursiveRemove. " works for a file as well as for a directory "
5bb8bb7d430f creation of .sav file modified boris parents: 1798 diff changeset	533	"/ ].
1795 e52a638e2a81 deletion of an old .sav file fixed boris* parents: 1784 diff changeset	534
1799 5bb8bb7d430f creation of .sav file modified boris parents: 1798 diff changeset	535	"/ archivFile renameTo:(archivFile withSuffix:'sav').
1795 e52a638e2a81 deletion of an old .sav file fixed boris* parents: 1784 diff changeset	536
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	537	[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	538	"/ copy files to be added to tempDir
1784 f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	539	colOfFiles do:[:file \| \| destName \|
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	540	destName := tempDir construct:(file asFilename baseName).
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	541	file isDirectory
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	542	ifTrue: [destName := tempDir].
f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	543	file recursiveCopyTo:destName.
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	544	].
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	545
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	546	"/ addFiles to the archive. Synchron command execution answers
74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	547	"/ a boolean.
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	548	cmd := self getCommandToAdd:colOfFiles toArchive:archivInTemp.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	549	cmd isNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	550	errorStream nextPutAll:'No command to add files.'.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	551	result := false
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	552	] ifFalse:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	553	result := self executeCommand:cmd directory:tempDir.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	554	].
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	555
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	556	"/ copy the archive back
74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	557	(result == true and: [archivInTemp exists]) ifTrue:[
74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	558	archivInTemp copyTo:archivFile.
74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	559	].
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	560	] ensure:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	561	"/ cg: remove the tempFile
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	562	archivInTemp exists ifTrue:[ archivInTemp remove.].
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	563	"/ cg: remove copied files
1784 f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	564	" colOfFiles do:[:file \|
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	565	(tempDir construct:(file asFilename baseName)) remove.
1784 f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	566	]. "
1783 c7c8d7faccc0 two fixes: creation of a new zip-file is now possible boris parents: 1591 diff changeset	567	"/ boris: remove the temporary directory and its name, too.
1784 f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	568	tempDir recursiveRemove.
1783 c7c8d7faccc0 two fixes: creation of a new zip-file is now possible boris parents: 1591 diff changeset	569	temporaryDirectory := nil.
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	570	].
1784 f90c4d7528c7 * empty log message * boris parents: 1783 diff changeset	571
1798 74535804fe1b better error handling when zip command is not installed boris parents: 1795 diff changeset	572	^result == true.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	573
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	574	"Modified: / 16-09-2011 / 16:35:17 / cg"
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	575	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	576
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	577	extractFiles:aColOfFilesOrNil to:aDirectory
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	578	\|execDir cmd\|
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	579
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	580	execDir := self fileName directory.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	581	cmd := self getCommandToExtractFiles:aColOfFilesOrNil intoDirectory:aDirectory.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	582	cmd isNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	583	errorStream nextPutAll:'No command to extract files.'.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	584	^ self.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	585	].
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	586	self executeCommand:cmd directory:execDir.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	587
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	588	"Modified: / 16-09-2011 / 16:35:34 / cg"
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	589	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	590
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	591	extractFiles:aColOfFiles withoutDirectoryTo:aDirectory
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	592	\|execDir tempDir tempFile targetFile\|
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	593
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	594	execDir := self fileName directory.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	595	tempDir := self temporaryDirectory.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	596	self extractFiles:aColOfFiles to:tempDir.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	597
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	598	aColOfFiles do:[ : aFileString \|
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	599	tempFile := self temporaryDirectory construct:aFileString.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	600	targetFile := aDirectory construct:(aFileString asFilename baseName).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	601	targetFile exists ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	602	targetFile recursiveRemove.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	603	].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	604	tempFile exists ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	605	tempFile recursiveCopyTo:targetFile.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	606	].
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	607	].
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	608	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	609
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	610	removeFilesFromArchive:aColOfFiles
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	611
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	612	\|cmd\|
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	613
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	614	cmd := self getCommandToRemoveFiles:aColOfFiles.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	615	cmd isNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	616	errorStream nextPutAll:'No command to remove files.'.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	617	^ self.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	618	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	619	self executeCommand:cmd directory:(self fileName directory).
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	620
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	621	"Modified: / 16-09-2011 / 16:35:41 / cg"
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	622	! !
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	623
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	624	!Archiver::MultiFileArchive methodsFor:'command strings'!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	625
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	626	getCommandToAdd:colOfFiles toArchive:archivIn
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	627	self subclassResponsibility
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	628	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	629
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	630	getCommandToExtractFiles:sel intoDirectory:dir
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	631	self subclassResponsibility
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	632	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	633
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	634	getCommandToListFiles:aColOfFiles
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	635	self subclassResponsibility
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	636	!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	637
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	638	getCommandToRemoveFiles:aColOfFiles
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	639	self subclassResponsibility
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	640	! !
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	641
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	642	!Archiver::ArchiverOutputParser class methodsFor:'instance creation'!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	643
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	644	new
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	645	^ self basicNew initialize.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	646	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	647
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	648	!Archiver::ArchiverOutputParser methodsFor:'accessing'!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	649
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	650	archiver:something
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	651	"set the value of the instance variable 'archiver' (automatically generated)"
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	652
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	653	archiver := something.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	654	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	655
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	656	!Archiver::ArchiverOutputParser methodsFor:'initialization'!
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	657
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	658	initialize
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	659	firstLineRead := false.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	660	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	661
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	662	!Archiver::ArchiverOutputParser methodsFor:'parsing'!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	663
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	664	parseLine:line forItemClass:itemClass
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	665	\|words archiverColumns item index key\|
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	666
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	667	(firstLineRead not and:[archiver class hasTitleLine]) ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	668	firstLineRead := true.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	669	^ nil.
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	670	].
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	671
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	672	(archiver isValidOutputLine:line) ifFalse:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	673	^ nil.
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	674	].
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	675
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	676	words := line asCollectionOfWords.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	677	archiverColumns := archiver columns.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	678	item := itemClass new.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	679	index := 1.
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	680
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	681	archiverColumns do:[:colDescr \|
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	682	\| itemWordCount itemStream itemFieldSelector itemWriter \|
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	683
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	684	itemWordCount := colDescr second.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	685	itemFieldSelector := colDescr first.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	686	itemFieldSelector notNil ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	687	itemWriter := (itemFieldSelector , ':') asSymbol.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	688	].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	689	itemStream := WriteStream on:''.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	690	itemWordCount == #rest ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	691	words from:index do:[:w\|
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	692	itemStream nextPutAll:w.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	693	itemStream space.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	694	].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	695	] ifFalse:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	696	words from:index to:(index + itemWordCount - 1) do:[:w\|
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	697	itemStream nextPutAll:w.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	698	itemStream space.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	699	].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	700	index := index + itemWordCount.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	701	].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	702	itemWriter notNil ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	703	item perform:itemWriter with:(itemStream contents withoutSeparators).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	704	].
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	705	itemStream close.
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	706	].
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	707	((archiverColumns collect:[:el\| el first]) includes:#permissions) ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	708	(item permissions startsWith:$d) ifTrue:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	709	key := #directory.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	710	item isDirectory:true.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	711	] ifFalse:[
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	712	key := MIMETypes mimeTypeForFilename:(item fileName asFilename baseName).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	713	item isDirectory:false.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	714	].
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	715	] ifFalse:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	716	key := MIMETypes mimeTypeForFilename:(item fileName asFilename baseName).
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	717	].
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	718	item icon:(FileBrowser iconForKeyMatching:key).
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	719	^ item
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	720	! !
2af5aca23dba zip added penk parents: 1085 diff changeset	721
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	722	!Archiver::CompressedFile class methodsFor:'command strings'!
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	723
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	724	compressCommand
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	725	self subclassResponsibility
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	726	!
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	727
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	728	uncompressCommand
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	729	self subclassResponsibility
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	730	! !
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	731
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	732	!Archiver::CompressedFile class methodsFor:'queries'!
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	733
1106 893c2c508df1 checkin from browser penk parents: 1098 diff changeset	734	canViewFile
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	735
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	736	^ true
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	737	! !
2af5aca23dba zip added penk parents: 1085 diff changeset	738
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	739	!Archiver::CompressedFile methodsFor:'actions'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	740
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	741	compressFile:aFile to:newFile
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	742	\| cmd directory\|
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	743
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	744	directory := newFile directory.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	745	(directory exists) ifFalse:[
2086 4ffc55b2f921 self warn Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	746	self warn:'Cannot compress to non-existing directory ', directory asString.
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	747	].
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	748	(directory isDirectory) ifFalse:[
2086 4ffc55b2f921 self warn Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	749	self warn:'Cannot compress to non-directory ', directory asString.
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	750	].
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	751
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	752	cmd := self getCommandToCompress:aFile asNew:newFile.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	753	self executeCommand:cmd directory:directory.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	754	newFile exists ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	755	self fileName:newFile.
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	756	].
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	757	!
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	758
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	759	extractFiles:aColOfFilesOrNil to:aDirectory
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	760	self uncompressTo:aDirectory
1106 893c2c508df1 checkin from browser penk parents: 1098 diff changeset	761	!
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	762
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	763	uncompressTo:aDirectory
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	764	\| cmd file newFile\|
2ff8d73d5dcf initial checkin penk parents: diff changeset	765
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	766	(aDirectory exists) ifFalse:[
2086 4ffc55b2f921 self warn Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	767	self warn:'Cannot uncompress to non-existing directory ', aDirectory asString.
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	768	^ self
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	769	].
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	770	(aDirectory isDirectory) ifFalse:[
2086 4ffc55b2f921 self warn Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	771	self warn:'Cannot uncompress to file ', aDirectory asString.
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	772	^ self
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	773	].
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	774	file := newFile := self fileName.
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	775	(file directory pathName = aDirectory pathName) ifFalse:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	776	newFile := aDirectory construct:(file baseName).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	777	file copyTo:newFile.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	778	].
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	779	cmd := self getCommandToUncompress:newFile.
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	780	self executeCommand:cmd directory:aDirectory.
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	781	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	782
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	783	!Archiver::CompressedFile methodsFor:'columns'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	784
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	785	columns
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	786	self subclassResponsibility
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	787	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	788
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	789	isValidOutputLine:line
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	790	^ line endsWith:self fileName withoutSuffix baseName.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	791	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	792
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	793	!Archiver::CompressedFile methodsFor:'command strings'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	794
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	795	getCommandToCompress:aFile asNew:newFile
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	796	^ '%1 -c %2 > %3'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	797	bindWith:self class compressCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	798	with:aFile asString
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	799	with:newFile asString
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	800	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	801
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	802	getCommandToListFiles:dummyArg
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	803	^ 'gzip -l "' , self fileName baseName , '"'
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	804	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	805
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	806	getCommandToUncompress:aFileName
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	807	^ '%1 %2'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	808	bindWith:self class uncompressCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	809	with:aFileName baseName
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	810	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	811
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	812	!Archiver::BZ2Compressed class methodsFor:'command strings'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	813
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	814	compressCommand
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	815	^ 'bzip2'
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	816	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	817
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	818	uncompressCommand
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	819	^ 'bunzip2'
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	820	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	821
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	822	!Archiver::BZ2Compressed methodsFor:'columns'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	823
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	824	columns
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	825	^ #(
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	826	#(#fileName 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	827	)
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	828	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	829
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	830	isValidOutputLine:line
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	831	^ true
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	832	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	833
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	834	!Archiver::BZ2Compressed methodsFor:'command strings'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	835
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	836	getCommandToListFiles:dummyArg
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	837	^ 'echo ' , self fileName withoutSuffix baseName
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	838	"/ ^ 'bzip2 -t -v "' , self fileName baseName , '"'
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	839	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	840
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	841	!Archiver::CompressedTarArchive class methodsFor:'queries'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	842
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	843	canAddFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	844	^ Archiver tarArchive canAddFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	845	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	846
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	847	canRemoveFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	848	^ Archiver tarArchive canRemoveFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	849	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	850
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	851	canViewFile
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	852	^ Archiver tarArchive canViewFile
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	853	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	854
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	855	compressorClass
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	856	self subclassResponsibility
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	857	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	858
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	859	!Archiver::CompressedTarArchive methodsFor:'accessing'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	860
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	861	fileName:aFile
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	862	\|tempDir file compressor suffix tarFilename\|
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	863
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	864	super fileName:aFile.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	865	" unzip file in tempDirectory and do all the things with tar file "
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	866	tempDir := self temporaryDirectory.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	867	compressor := (self class compressorClass) with:(self fileName).
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	868	compressor uncompressTo:tempDir.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	869	suffix := self fileName suffix.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	870	file := self fileName withoutSuffix.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	871	tarFilename := file baseName.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	872	file suffix ~= 'tar' ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	873	tarFilename := tarFilename , '.tar'
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	874	].
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	875	tarFile := self temporaryDirectory construct:tarFilename.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	876	tarArchiver := Archiver::TarArchive with:tarFile.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	877	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	878
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	879	!Archiver::CompressedTarArchive methodsFor:'actions'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	880
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	881	addFilesToArchive:colOfFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	882	self setCommandOptions.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	883	tarArchiver addFilesToArchive:colOfFiles.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	884	"/ synchronize the tar archive under temporary file with archiv file position
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	885	self synchronize.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	886	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	887
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	888	extractFiles:aColOfFiles to:aDirectory
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	889	self setCommandOptions.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	890	tarArchiver extractFiles:aColOfFiles to:aDirectory.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	891	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	892
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	893	extractFiles:aColOfFiles withoutDirectoryTo:aDirectory
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	894	self setCommandOptions.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	895	tarArchiver extractFiles:aColOfFiles withoutDirectoryTo:aDirectory.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	896	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	897
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	898	listFiles:aColOfFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	899	self setCommandOptions.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	900	tarArchiver listFiles:aColOfFiles.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	901	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	902
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	903	removeFilesFromArchive:aColOfFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	904	self setCommandOptions.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	905	tarArchiver removeFilesFromArchive:aColOfFiles.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	906	self synchronize.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	907	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	908
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	909	!Archiver::CompressedTarArchive methodsFor:'actions private'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	910
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	911	setCommandOptions
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	912	tarArchiver outStream:(self outStream).
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	913	tarArchiver errorStream:(self errorStream).
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	914	tarArchiver synchron:(self synchron).
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	915	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	916
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	917	synchronize
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	918	self subclassResponsibility
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	919	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	920
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	921	!Archiver::CompressedTarArchive methodsFor:'columns'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	922
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	923	columns
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	924	^ tarArchiver columns
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	925	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	926
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	927	isValidOutputLine:line
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	928	^ tarArchiver isValidOutputLine:line
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	929	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	930
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	931	!Archiver::CompressedTarArchive methodsFor:'initialization & release'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	932
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	933	release
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	934	super release.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	935	tarArchiver release.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	936	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	937
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	938	!Archiver::GZipCompressed class methodsFor:'command strings'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	939
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	940	compressCommand
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	941	^ 'gzip'
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	942	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	943
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	944	uncompressCommand
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	945	^ 'gunzip'
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	946	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	947
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	948	!Archiver::GZipCompressed class methodsFor:'queries'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	949
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	950	hasTitleLine
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	951	^ true
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	952	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	953
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	954	!Archiver::GZipCompressed methodsFor:'columns'!
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	955
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	956	columns
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	957
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	958	"/ columns in stream order
1247 4c628a0455c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	959	"/ colums id/readSelector words to read
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	960	^ #( "/ #(#method 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	961	"/ #(#crc 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	962	"/ #(#dateAndTime 3)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	963	#(#compressSize 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	964	#(#size 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	965	#(#ratio 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	966	#(#fileName #rest)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	967	)
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	968	!
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	969
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	970	isValidOutputLine:line
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	971	^ line endsWith:self fileName withoutSuffix baseName.
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	972	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	973
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	974	!Archiver::GZipCompressed methodsFor:'command strings'!
1255 32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	975
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	976	getCommandToListFiles:dummyArg
32e0aa97ae82 gzip archiver stuff fixed. Claus Gittinger <cg@exept.de> parents: 1247 diff changeset	977	^ 'gzip -l "' , self fileName baseName , '"'
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	978	! !
c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	979
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	980	!Archiver::ArArchive class methodsFor:'command strings'!
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	981
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	982	arCommand
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	983	^ 'ar'
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	984	! !
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	985
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	986	!Archiver::ArArchive methodsFor:'columns'!
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	987
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	988	columns
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	989	"/ colums id/readSelector words to read
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	990	^ #(
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	991	#(#permissions 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	992	#(#ownerGroup 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	993	#(#size 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	994	#(#monthName 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	995	#(#dayString 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	996	#(#timeString 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	997	#(#yearString 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	998	#(#fileName #rest)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	999	)
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1000	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1001
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1002	isValidOutputLine:line
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1003	('[-r][-w][-x]' match:(line copyTo:3)) ifTrue:[^ true].
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1004	^ false.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1005	! !
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1006
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1007	!Archiver::ArArchive methodsFor:'command strings'!
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1008
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1009	getCommandToExtractFiles:sel intoDirectory:dir
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1010	\|stream\|
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1011
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1012	stream := WriteStream on:''.
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1013
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1014	"/ 'x' arArchivUnpackOption
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1015	stream nextPutAll:('(cd %3 ; %1 x "%2" '
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1016	bindWith:self class arCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1017	with:self fileName asString string
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1018	with:dir asString string).
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1019
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1020	sel notNil ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1021	sel do:[:el \|
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1022	stream nextPutAll:' "'.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1023	stream nextPutAll:(el asString).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1024	stream nextPutAll:'"'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1025	].
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1026	].
1384 fea5bf58e5fb allow single extract from an archive Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	1027	stream nextPutAll:')'.
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1028	^ stream contents.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1029	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1030
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1031	getCommandToListFiles:aColOfFiles
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1032	\|stream\|
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1033
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1034	stream := WriteStream on:''.
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1035
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1036	"/ 't' arArchivListContentsOption
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1037	"/ 'v' arArchivVerboseOption
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1038	stream nextPutAll:('%1 tv "%2"'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1039	bindWith:self class arCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1040	with:self fileName baseName).
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1041
1383 527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1042	stream nextPutAll:(self class stringWithQuotedFileBaseNames:aColOfFiles).
527dcd29a97b added ar-archive (unix object-libraries) Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	1043	^ stream contents.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1044	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	1045
2ff8d73d5dcf initial checkin penk parents: diff changeset	1046	!Archiver::TarArchive class methodsFor:'command strings'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1047
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1048	tarCommand
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1049	^ 'tar'
2ff8d73d5dcf initial checkin penk parents: diff changeset	1050	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	1051
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1052	!Archiver::TarArchive class methodsFor:'queries'!
2af5aca23dba zip added penk parents: 1085 diff changeset	1053
2af5aca23dba zip added penk parents: 1085 diff changeset	1054	canAddFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	1055
2af5aca23dba zip added penk parents: 1085 diff changeset	1056	^ true
2af5aca23dba zip added penk parents: 1085 diff changeset	1057	!
2af5aca23dba zip added penk parents: 1085 diff changeset	1058
2af5aca23dba zip added penk parents: 1085 diff changeset	1059	canRemoveFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	1060
2af5aca23dba zip added penk parents: 1085 diff changeset	1061	^ true
1106 893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1062	!
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1063
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1064	canViewFile
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1065
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1066	^ true
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1067	! !
2af5aca23dba zip added penk parents: 1085 diff changeset	1068
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1069	!Archiver::TarArchive methodsFor:'columns'!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1070
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1071	columns
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1072
1247 4c628a0455c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1073	"/ colums id/readSelector words to read
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1074	^ #( #(#permissions 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1075	#(#ownerGroup 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1076	#(#size 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1077	#(#dateAndTime 2)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1078	#(#fileName #rest)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1079	)
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1080	!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1081
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1082	isValidOutputLine:line
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1083	('[-d][-r][-w][-x]' match:(line copyTo:4)) ifTrue:[^ true].
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1084	^ false.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1085	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1086
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1087	!Archiver::TarArchive methodsFor:'command strings'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1088
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1089	getCommandToAdd:aColOfFiles toArchive:archiveFile
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1090	\|stream\|
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1091
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1092	archiveFile exists ifFalse:[^ nil].
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1093
fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1094	stream := WriteStream on:''.
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1095
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1096	"/ 'r' TarArchivAddOption
fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1097	"/ 'f' TarArchivFileOption
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1098	stream nextPutAll:('%1 rf "%2"'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1099	bindWith:self class tarCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1100	with:archiveFile asString string).
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1101
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1102	stream nextPutAll:(self class stringWithQuotedFileBaseNames:aColOfFiles).
fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1103	^ stream contents
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1104	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1105
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1106	getCommandToExtractFiles:sel intoDirectory:dir
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1107	\|stream\|
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1108
2ff8d73d5dcf initial checkin penk parents: diff changeset	1109	stream := WriteStream on:''.
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1110
9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1111	"/ 'x' TarArchivUnpackOption
9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1112	"/ 'f' TarArchivFileOption
9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1113	"/ 'C' TarArchivUnpackInDirectoryOption
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1114	stream nextPutAll:('%1 -xf "%2" -C %3'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1115	bindWith:self class tarCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1116	with:self fileName asString string
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1117	with:dir asString).
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1118
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1119	sel notNil ifTrue:[
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1120	sel do:[:el \|
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1121	stream nextPutAll:' "'.
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1122	stream nextPutAll:(el asString).
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1123	stream nextPutAll:'"'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1124	].
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1125	].
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1126	^ stream contents.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1127	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1128
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1129	getCommandToListFiles:aColOfFiles
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1130	\|stream\|
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1131
2ff8d73d5dcf initial checkin penk parents: diff changeset	1132	stream := WriteStream on:''.
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1133
9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1134	"/ 't' TarArchivListContentsOption
9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1135	"/ 'v' TarArchivVerboseOption
9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1136	"/ 'f' TarArchivFileOption
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1137	stream nextPutAll:('%1 -tvf "%2"'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1138	bindWith:self class tarCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1139	with:self fileName baseName).
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1140
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1141	stream nextPutAll:(self class stringWithQuotedFileBaseNames:aColOfFiles).
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1142	^ stream contents.
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1143	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1144
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1145	getCommandToRemoveFiles:sel
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1146	\|stream filename\|
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1147
2ff8d73d5dcf initial checkin penk parents: diff changeset	1148	filename := self fileName.
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1149	filename exists ifFalse:[^ nil].
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1150
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1151	stream := WriteStream on:''.
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1152
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1153	"/ 'f' TarArchivFileOption
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1154	stream nextPutAll:('%1 --delete -f "%2"'
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1155	bindWith:self class tarCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1156	with:self fileName baseName).
1174 fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1157
fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1158	stream nextPutAll:(self class stringWithQuotedFileBaseNames:sel).
fde4f57dce18 cleanup Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	1159	^ stream contents
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1160	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	1161
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1162	!Archiver::TarBZ2Archive class methodsFor:'queries'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1163
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1164	canAddFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1165
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1166	^ Archiver tarArchive canAddFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1167	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1168
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1169	canRemoveFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1170
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1171	^ Archiver tarArchive canRemoveFiles
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1172	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1173
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1174	canViewFile
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1175
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1176	^ Archiver tarArchive canViewFile
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1177	!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1178
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1179	compressorClass
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1180	^ Archiver::BZ2Compressed
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1181	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1182
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1183	!Archiver::TarBZ2Archive methodsFor:'actions private'!
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1184
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1185	synchronize
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1186	\|gzipArchiver\|
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1187
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1188	gzipArchiver := Archiver::BZ2Compressed with:nil.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1189	gzipArchiver compressFile:(tarArchiver fileName) to:(self fileName).
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1190	! !
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1191
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1192	!Archiver::TarGZipArchive class methodsFor:'queries'!
2af5aca23dba zip added penk parents: 1085 diff changeset	1193
2af5aca23dba zip added penk parents: 1085 diff changeset	1194	canAddFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	1195
2af5aca23dba zip added penk parents: 1085 diff changeset	1196	^ Archiver tarArchive canAddFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	1197	!
2af5aca23dba zip added penk parents: 1085 diff changeset	1198
2af5aca23dba zip added penk parents: 1085 diff changeset	1199	canRemoveFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	1200
2af5aca23dba zip added penk parents: 1085 diff changeset	1201	^ Archiver tarArchive canRemoveFiles
1106 893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1202	!
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1203
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1204	canViewFile
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1205
893c2c508df1 checkin from browser penk parents: 1098 diff changeset	1206	^ Archiver tarArchive canViewFile
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1207	!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1208
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1209	compressorClass
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1210	^ Archiver::GZipCompressed
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1211	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	1212
2ff8d73d5dcf initial checkin penk parents: diff changeset	1213	!Archiver::TarGZipArchive methodsFor:'actions private'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1214
2ff8d73d5dcf initial checkin penk parents: diff changeset	1215	synchronize
2ff8d73d5dcf initial checkin penk parents: diff changeset	1216	\|gzipArchiver\|
2ff8d73d5dcf initial checkin penk parents: diff changeset	1217
1392 e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1218	gzipArchiver := Archiver::GZipCompressed with:nil.
e5290b66715f refactored and bz2 support added Claus Gittinger <cg@exept.de> parents: 1384 diff changeset	1219	gzipArchiver compressFile:(tarArchiver fileName) to:(self fileName).
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1220	! !
2ff8d73d5dcf initial checkin penk parents: diff changeset	1221
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1222	!Archiver::ZipArchive class methodsFor:'command strings'!
2af5aca23dba zip added penk parents: 1085 diff changeset	1223
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1224	unzipCommand
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1225	\|cmdString s cmd\|
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1226
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1227	OperatingSystem isUNIXlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1228	^ 'unzip'
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1229	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1230	OperatingSystem isMSWINDOWSlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1231	cmdString := MIMETypes defaultCommandTemplateToOpenMimeType:'application/x-zip-compressed'.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1232	cmdString notEmptyOrNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1233	s := cmdString readStream.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1234	s skipSeparators.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1235	s peek == $" ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1236	s next.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1237	cmd := (s upTo:$")
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1238	] ifFalse:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1239	cmd := s upToSeparator.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1240	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1241	^ cmd
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1242	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1243	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1244	^ nil
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1245
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1246	"
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1247	self unzipCommand
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1248	"
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1249
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1250	"Modified: / 16-09-2011 / 17:26:18 / cg"
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1251	!
2af5aca23dba zip added penk parents: 1085 diff changeset	1252
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1253	zipCommand
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1254	OperatingSystem isUNIXlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1255	^ 'zip'
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1256	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1257	OperatingSystem isMSWINDOWSlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1258	^ self unzipCommand.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1259	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1260	^ nil
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1261
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1262	"Modified: / 16-09-2011 / 16:26:00 / cg"
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1263	! !
2af5aca23dba zip added penk parents: 1085 diff changeset	1264
2af5aca23dba zip added penk parents: 1085 diff changeset	1265	!Archiver::ZipArchive class methodsFor:'queries'!
2af5aca23dba zip added penk parents: 1085 diff changeset	1266
2af5aca23dba zip added penk parents: 1085 diff changeset	1267	canAddFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	1268
2af5aca23dba zip added penk parents: 1085 diff changeset	1269	^ true
2af5aca23dba zip added penk parents: 1085 diff changeset	1270	!
2af5aca23dba zip added penk parents: 1085 diff changeset	1271
2af5aca23dba zip added penk parents: 1085 diff changeset	1272	canRemoveFiles
2af5aca23dba zip added penk parents: 1085 diff changeset	1273
2af5aca23dba zip added penk parents: 1085 diff changeset	1274	^ true
1088 f859684fd729 next stage penk parents: 1087 diff changeset	1275	!
f859684fd729 next stage penk parents: 1087 diff changeset	1276
1138 5232eb3c94e0 canView is true for ZipArchives Claus Gittinger <cg@exept.de> parents: 1131 diff changeset	1277	canViewFile
5232eb3c94e0 canView is true for ZipArchives Claus Gittinger <cg@exept.de> parents: 1131 diff changeset	1278
5232eb3c94e0 canView is true for ZipArchives Claus Gittinger <cg@exept.de> parents: 1131 diff changeset	1279	^ true
5232eb3c94e0 canView is true for ZipArchives Claus Gittinger <cg@exept.de> parents: 1131 diff changeset	1280	!
5232eb3c94e0 canView is true for ZipArchives Claus Gittinger <cg@exept.de> parents: 1131 diff changeset	1281
1088 f859684fd729 next stage penk parents: 1087 diff changeset	1282	hasLastLine
f859684fd729 next stage penk parents: 1087 diff changeset	1283	^ true
f859684fd729 next stage penk parents: 1087 diff changeset	1284	!
f859684fd729 next stage penk parents: 1087 diff changeset	1285
f859684fd729 next stage penk parents: 1087 diff changeset	1286	hasTitleLine
f859684fd729 next stage penk parents: 1087 diff changeset	1287	^ true
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1288	! !
2af5aca23dba zip added penk parents: 1085 diff changeset	1289
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1290	!Archiver::ZipArchive methodsFor:'columns'!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1291
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1292	columns
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1293
1247 4c628a0455c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	1294	"/ colums id/readSelector words to read
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1295	^ #( (#permissions 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1296	(#version 2)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1297	(#size 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1298	(#type 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1299	(#ratio 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1300	(nil 1)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1301	(#dateAndTime 2)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1302	(#fileName #rest)
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1303	)
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1304	!
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1305
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1306	isValidOutputLine:line
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1307	('[-d][-r][-w][-x]' match:(line copyTo:4)) ifTrue:[^ true].
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1308	^ false.
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1309	! !
1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1310
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1311	!Archiver::ZipArchive methodsFor:'command strings'!
2af5aca23dba zip added penk parents: 1085 diff changeset	1312
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1313	getCommandToAdd:aColOfFiles toArchive:archiveFile
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1314	"archiveFile exists ifFalse:[^ nil]."
1088 f859684fd729 next stage penk parents: 1087 diff changeset	1315
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1316	OperatingSystem isUNIXlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1317	^ String streamContents:[:s \|
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1318	s nextPutAll:('%1 -r "%2"'
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1319	bindWith:self class zipCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1320	with:archiveFile asString string).
1088 f859684fd729 next stage penk parents: 1087 diff changeset	1321
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1322	self
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1323	addDoubleQuotedFilenames:(aColOfFiles collect:[:each \| each asFilename baseName])
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1324	toStream:s.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1325	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1326	].
1215 c3fe5597c1ec refactored Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	1327
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1328	^ nil
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1329
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1330	"Modified (comment): / 16-09-2011 / 16:27:20 / cg"
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1331	!
2af5aca23dba zip added penk parents: 1085 diff changeset	1332
1246 1eefc3a60863 output parsing refactored; Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	1333	getCommandToExtractFiles:aColOfFiles intoDirectory:dir
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1334	\|cmd template\|
1087 d6bfc66a3860 next stage penk parents: 1086 diff changeset	1335
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1336	cmd := self class unzipCommand.
1145 9a6688b7139a * empty log message * Claus Gittinger <cg@exept.de> parents: 1144 diff changeset	1337
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1338	OperatingSystem isUNIXlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1339	template := '%1 -o -d "%2" "%3"'
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1340	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1341	OperatingSystem isMSDOSlike ifTrue:[
3007 778a3c6b9877 class: Archiver Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	1342	self halt:'unhandled os'.
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1343	].
1087 d6bfc66a3860 next stage penk parents: 1086 diff changeset	1344
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1345	template notNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1346	^ String streamContents:[:s \|
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1347	"/ -o UnzipOverwriteExistingFilesOption
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1348	"/ -d UnzipExtDirectoryOption
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1349
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1350	s nextPutAll:(template
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1351	bindWith:cmd
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1352	with:dir asString string
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1353	with:self fileName asString).
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1354
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1355	self addDoubleQuotedFilenames:aColOfFiles toStream:s.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1356	]
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1357	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1358
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1359	^ nil.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1360
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1361	"Modified: / 16-09-2011 / 16:38:57 / cg"
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1362	!
2af5aca23dba zip added penk parents: 1085 diff changeset	1363
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1364	getCommandToListFiles:aColOfFiles
2690 dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1365	\|cmd headlessCmd template\|
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1366
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1367	cmd := self class unzipCommand.
1144 75008d5f9632 * empty log message * Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	1368
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1369	OperatingSystem isUNIXlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1370	"/ -Z ZipInfoOption
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1371	"/ -h ZipHeaderOption
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1372	"/ -t ZipTotalOption
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1373	template := '"%1" -Z -m -h "%2"'
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1374	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1375	OperatingSystem isMSDOSlike ifTrue:[
2690 dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1376	cmd asFilename baseName = 'WinRAR.exe' ifTrue:[
dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1377	headlessCmd := cmd asFilename directory construct:'rar.exe'.
dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1378	headlessCmd exists ifTrue:[
dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1379	cmd := headlessCmd.
dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1380	template := '"%1" l "%2"'
dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1381	].
dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1382	] ifFalse:[
3007 778a3c6b9877 class: Archiver Claus Gittinger <cg@exept.de> parents: 2907 diff changeset	1383	self halt:'unhandled unzip command'.
2690 dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1384	]
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1385	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1386
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1387	template notNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1388	^ String streamContents:[:s \|
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1389	s nextPutAll:(template
2907 180ea50c301b class: Archiver Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	1390	bindWith:cmd
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1391	with:self fileName asString string).
1139 aea281a4e983 zip file list Claus Gittinger <cg@exept.de> parents: 1138 diff changeset	1392
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1393	aColOfFiles notNil ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1394	self breakPoint:#ca.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1395	self
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1396	addDoubleQuotedFilenames:(aColOfFiles collect:[:each \| each asFilename baseName])
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1397	toStream:s.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1398	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1399	].
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1400	].
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1401	^ nil.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1402
2690 dc6d8fafc622 x Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	1403	"Modified: / 29-11-2011 / 20:19:18 / cg"
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1404	!
2af5aca23dba zip added penk parents: 1085 diff changeset	1405
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1406	getCommandToRemoveFiles:aColOfFiles
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1407	OperatingSystem isUNIXlike ifTrue:[
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1408	^ String streamContents:[:s \|
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1409	s nextPutAll:('%1 -d "%2"'
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1410	bindWith:self class zipCommand
f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1411	with:self fileName asString string).
1088 f859684fd729 next stage penk parents: 1087 diff changeset	1412
2646 a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1413	self addDoubleQuotedFilenames:aColOfFiles toStream:s.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1414	]
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1415	].
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1416
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1417	^ nil.
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1418
a3031f695be8 added: #documentation Claus Gittinger <cg@exept.de> parents: 2086 diff changeset	1419	"Modified: / 16-09-2011 / 16:29:09 / cg"
1086 2af5aca23dba zip added penk parents: 1085 diff changeset	1420	! !
2af5aca23dba zip added penk parents: 1085 diff changeset	1421
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1422	!Archiver class methodsFor:'documentation'!
2ff8d73d5dcf initial checkin penk parents: diff changeset	1423
2ff8d73d5dcf initial checkin penk parents: diff changeset	1424	version
3027 552aa6706d4c class: Archiver Stefan Vogel <sv@exept.de> parents: 3007 diff changeset	1425	^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.44 2013-07-04 23:03:47 stefan Exp $'
2689 916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1426	!
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1427
916e23097292 changed: #initialize Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1428	version_CVS
3027 552aa6706d4c class: Archiver Stefan Vogel <sv@exept.de> parents: 3007 diff changeset	1429	^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.44 2013-07-04 23:03:47 stefan Exp $'
1085 2ff8d73d5dcf initial checkin penk parents: diff changeset	1430	! !
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1431
2907 180ea50c301b class: Archiver Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	1432
1591 f655110a107f stc-compile on Unix Stefan Vogel <sv@exept.de> parents: 1590 diff changeset	1433	Archiver initialize!

author	Stefan Vogel <sv@exept.de>
	Fri, 05 Jul 2013 01:03:47 +0200
changeset 3027	552aa6706d4c
parent 3007	778a3c6b9877
child 3186	c2a5877276d8
permissions	-rw-r--r--