extensions.st
changeset 19317 bca8ae2c2286
parent 19227 962f6c37ad81
child 19318 3a083a653431
equal deleted inserted replaced
19316:95ca3cd50e96 19317:bca8ae2c2286
  1944                             ifFalse:(1 to:self byteSize).
  1944                             ifFalse:(1 to:self byteSize).
  1945 
  1945 
  1946                     iv do:[:i |
  1946                     iv do:[:i |
  1947                         (((self basicAt:i) printStringRadix:base) leftPaddedTo:padding with:$0)
  1947                         (((self basicAt:i) printStringRadix:base) leftPaddedTo:padding with:$0)
  1948                             printOn:s.
  1948                             printOn:s.
       
  1949                     ] separatedBy:[
  1949                         s space.    
  1950                         s space.    
  1950                     ]
  1951                     ]
  1951                 ]
  1952                 ]
  1952         ] .
  1953         ] .
  1953         
  1954         
  1965                 ]
  1966                 ]
  1966             ];
  1967             ];
  1967         add:'-non-scientific (%f-format)' ->
  1968         add:'-non-scientific (%f-format)' ->
  1968             [
  1969             [
  1969                 PrintfScanf printf:'%f' argument:self.
  1970                 PrintfScanf printf:'%f' argument:self.
       
  1971             ];
       
  1972         add:('-full precision (%%.%1f-format)' bindWith:self decimalPrecision) ->
       
  1973             [
       
  1974                 PrintfScanf printf:('%%.%1f' bindWith:self decimalPrecision) argument:self.
  1970             ];
  1975             ];
  1971         when:[ UninterpretedBytes isBigEndian not] add:'-MSB binary' ->
  1976         when:[ UninterpretedBytes isBigEndian not] add:'-MSB binary' ->
  1972             [
  1977             [
  1973                 basePrinter value:2 value:8 value:true
  1978                 basePrinter value:2 value:8 value:true
  1974             ];
  1979             ];