equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2975 (decodedChar between:0 and:31) ifTrue:[ |
2973 (decodedChar between:0 and:31) ifTrue:[ |
2976 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
2974 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
2977 "/ are perfect here, but usually not available in the font |
2975 "/ are perfect here, but usually not available in the font |
2978 "/ and we have currently no way of knowing if they are... |
2976 "/ and we have currently no way of knowing if they are... |
2979 "/ (could let the font draw into a bitmap and check if there is something...) |
2977 "/ (could let the font draw into a bitmap and check if there is something...) |
2980 "/ For now, write a dot.· |
2978 "/ For now, write a dot.· |
2981 "/ charPrinted := (Character value:(byte + 16r2400)) |
2979 "/ charPrinted := (Character value:(byte + 16r2400)) |
2982 ]. |
2980 ]. |
2983 ]. |
2981 ]. |
2984 ]. |
2982 ]. |
2985 asciiLineStream nextPut:charPrinted. |
2983 asciiLineStream nextPut:charPrinted. |
8087 |
8085 |
8088 self currentSelectedFiles do:[:fn | |
8086 self currentSelectedFiles do:[:fn | |
8089 |inStream signatureFilename| |
8087 |inStream signatureFilename| |
8090 |
8088 |
8091 inStream := fn asFilename readStream. |
8089 inStream := fn asFilename readStream. |
8092 zipArchive addFile: (targetDir construct:fn asFilename baseName) name fromStream:inStream. |
8090 [ |
8093 inStream close. |
8091 zipArchive addFile: (targetDir construct:fn asFilename baseName) name fromStream:inStream. |
|
8092 ] ensure:[ |
|
8093 inStream close. |
|
8094 ]. |
8094 ]. |
8095 ]. |
8095 |
8096 |
8096 zipArchive close. |
8097 zipArchive close. |
8097 |
8098 |
8098 generateSignedPatchHolder value ifTrue:[ |
8099 generateSignedPatchHolder value ifTrue:[ |
8952 redefKind := 'class'. |
8953 redefKind := 'class'. |
8953 isRedef := true. |
8954 isRedef := true. |
8954 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8955 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8955 label := msg := 'Breakpoint/Halt in fileIn'. |
8956 label := msg := 'Breakpoint/Halt in fileIn'. |
8956 sender := ex suspendedContext. |
8957 sender := ex suspendedContext. |
8957 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
8958 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
8958 ] ifFalse:[ |
8959 ] ifFalse:[ |
8959 label := 'Error in fileIn'. |
8960 label := 'Error in fileIn'. |
8960 msg := 'error in fileIn: %1' |
8961 msg := 'error in fileIn: %1' |
8961 ]]]. |
8962 ]]]. |
8962 |
8963 |