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

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

author	boris
	Tue, 09 Jan 2007 16:07:19 +0100
changeset 1798	74535804fe1b
parent 1795	e52a638e2a81
child 1799	5bb8bb7d430f
permissions	-rw-r--r--