equal
deleted
inserted
replaced
1379 f2 := aFilename asFilename. |
1379 f2 := aFilename asFilename. |
1380 self fileSize > f2 fileSize ifTrue:[^ false]. |
1380 self fileSize > f2 fileSize ifTrue:[^ false]. |
1381 |
1381 |
1382 [ |
1382 [ |
1383 s1 := self readStream. |
1383 s1 := self readStream. |
1384 s1 isNil ifTrue:[ |
|
1385 ^ self error:('cannot open %1 for reading' bindWith:nameString) |
|
1386 ]. |
|
1387 s2 := f2 readStream. |
1384 s2 := f2 readStream. |
1388 s2 isNil ifTrue:[ |
|
1389 ^ self error:('cannot open %1 for reading' bindWith:aFilename asFilename name) |
|
1390 ]. |
|
1391 s1 binary. |
1385 s1 binary. |
1392 s2 binary. |
1386 s2 binary. |
1393 |
1387 |
1394 buffer1 := ByteArray new:8192. |
1388 buffer1 := ByteArray new:8192. |
1395 buffer2 := ByteArray new:8192. |
1389 buffer2 := ByteArray new:8192. |
5015 ! ! |
5009 ! ! |
5016 |
5010 |
5017 !Filename class methodsFor:'documentation'! |
5011 !Filename class methodsFor:'documentation'! |
5018 |
5012 |
5019 version |
5013 version |
5020 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.277 2004-03-09 12:13:49 stefan Exp $' |
5014 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.278 2004-03-19 21:30:13 cg Exp $' |
5021 ! ! |
5015 ! ! |
5022 |
5016 |
5023 Filename initialize! |
5017 Filename initialize! |