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

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

author	Claus Gittinger <cg@exept.de>
	Wed, 17 Jan 2018 13:59:52 +0100
changeset 4559	41081992e085
parent 4315	d14a71b89af8
child 4584	bb1b80fa1cdd
permissions	-rw-r--r--