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

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

author	Claus Gittinger <cg@exept.de>
	Sat, 28 Feb 2015 00:11:09 +0100
changeset 3512	b6feb770d2b8
parent 3490	a29c708667c9
child 3651	abfe8e55ceaf
permissions	-rw-r--r--