equal
deleted
inserted
replaced
3417 "/ read some data from the file ... |
3417 "/ read some data from the file ... |
3418 buffer := String new:2024. |
3418 buffer := String new:2024. |
3419 s := self readStream. |
3419 s := self readStream. |
3420 s isNil ifTrue:[^ nil]. |
3420 s isNil ifTrue:[^ nil]. |
3421 |
3421 |
3422 size := s nextBytes:buffer size into:buffer. |
3422 s errorSignal handle:[:ex | |
|
3423 size := 0. |
|
3424 ] do:[ |
|
3425 size := s nextBytes:buffer size into:buffer. |
|
3426 ]. |
3423 s close. |
3427 s close. |
3424 buffer := buffer asLowercase. |
3428 buffer := buffer asLowercase. |
3425 |
3429 |
3426 (idx := buffer findString:'mimetype:') ~~ 0 ifTrue:[ |
3430 (idx := buffer findString:'mimetype:') ~~ 0 ifTrue:[ |
3427 idx := idx + 'mimetype:' size. |
3431 idx := idx + 'mimetype:' size. |
4552 ! ! |
4556 ! ! |
4553 |
4557 |
4554 !Filename class methodsFor:'documentation'! |
4558 !Filename class methodsFor:'documentation'! |
4555 |
4559 |
4556 version |
4560 version |
4557 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.233 2002-11-26 16:16:46 stefan Exp $' |
4561 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.234 2002-12-30 17:46:03 cg Exp $' |
4558 ! ! |
4562 ! ! |
4559 |
4563 |
4560 Filename initialize! |
4564 Filename initialize! |