equal
deleted
inserted
replaced
1385 |f2 s1 s2 buffer1 buffer2 n| |
1385 |f2 s1 s2 buffer1 buffer2 n| |
1386 |
1386 |
1387 f2 := aFilename asFilename. |
1387 f2 := aFilename asFilename. |
1388 self fileSize > f2 fileSize ifTrue:[^ false]. |
1388 self fileSize > f2 fileSize ifTrue:[^ false]. |
1389 |
1389 |
1390 buffer1 := ByteArray new:8192. |
|
1391 buffer2 := ByteArray new:8192. |
|
1392 |
|
1393 [ |
1390 [ |
1394 s1 := self readStream. |
1391 s1 := self readStream. |
1395 s1 isNil ifTrue:[ |
1392 s1 isNil ifTrue:[ |
1396 ^ self error:('cannot open %1 for reading' bindWith:nameString) |
1393 ^ self error:('cannot open %1 for reading' bindWith:nameString) |
1397 ]. |
1394 ]. |
1399 s2 isNil ifTrue:[ |
1396 s2 isNil ifTrue:[ |
1400 ^ self error:('cannot open %1 for reading' bindWith:aFilename asFilename name) |
1397 ^ self error:('cannot open %1 for reading' bindWith:aFilename asFilename name) |
1401 ]. |
1398 ]. |
1402 s1 binary. |
1399 s1 binary. |
1403 s2 binary. |
1400 s2 binary. |
|
1401 |
|
1402 buffer1 := ByteArray new:8192. |
|
1403 buffer2 := ByteArray new:8192. |
1404 |
1404 |
1405 [s1 atEnd] whileFalse:[ |
1405 [s1 atEnd] whileFalse:[ |
1406 n := s1 nextBytes:8192 into:buffer1 startingAt:1. |
1406 n := s1 nextBytes:8192 into:buffer1 startingAt:1. |
1407 n == 0 ifTrue:[ |
1407 n == 0 ifTrue:[ |
1408 "/ receiver shorter. |
1408 "/ receiver shorter. |
4983 ! ! |
4983 ! ! |
4984 |
4984 |
4985 !Filename class methodsFor:'documentation'! |
4985 !Filename class methodsFor:'documentation'! |
4986 |
4986 |
4987 version |
4987 version |
4988 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.269 2003-10-27 21:27:07 cg Exp $' |
4988 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.270 2003-11-22 17:05:22 cg Exp $' |
4989 ! ! |
4989 ! ! |
4990 |
4990 |
4991 Filename initialize! |
4991 Filename initialize! |