ResourcePack.st
changeset 9002 0c1d599727eb
parent 9001 2a2c30b7b382
equal deleted inserted replaced
9001:2a2c30b7b382 9002:0c1d599727eb
   759                     onError:[
   759                     onError:[
   760                                 printError value:('invalid line <' , lineString , '>').
   760                                 printError value:('invalid line <' , lineString , '>').
   761                                 nil
   761                                 nil
   762                             ].
   762                             ].
   763     ] ifFalse:[
   763     ] ifFalse:[
   764         lineStream peek == $' ifTrue:[
   764         ((lineString startsWith:'c''') or:[lineStream peek == $']) ifTrue:[
   765             name := String
   765             name := String
   766                         readSmalltalkStringFrom:lineStream
   766                         readSmalltalkStringFrom:lineStream
   767                         onError:[
   767                         onError:[
   768                                     printError value:('invalid line <' , lineString , '>').
   768                                     printError value:('invalid line <' , lineString , '>').
   769                                     nil
   769                                     nil
   913 
   913 
   914                 aResourcePack at:name put:value.
   914                 aResourcePack at:name put:value.
   915             ]
   915             ]
   916         ]
   916         ]
   917     ]
   917     ]
       
   918 
       
   919     "
       
   920      |p|
       
   921      p := ResourcePack new.
       
   922      self processResourceLine:'''foo'' ''xlation_of_foo''' encoding:nil file:'dummy.rc' printErrorWith:[:err | Logger warn:err] for:p keepUselessTranslations:false.
       
   923      p inspect.
       
   924     "
   918 
   925 
   919     "Modified: / 06-02-2014 / 15:33:03 / cg"
   926     "Modified: / 06-02-2014 / 15:33:03 / cg"
   920     "Modified: / 27-03-2019 / 11:59:49 / Claus Gittinger"
   927     "Modified: / 27-03-2019 / 11:59:49 / Claus Gittinger"
   921     "Modified: / 28-09-2019 / 15:20:38 / Stefan Vogel"
   928     "Modified: / 28-09-2019 / 15:20:38 / Stefan Vogel"
   922 !
   929 !
  1720         processResourceLine:lineString
  1727         processResourceLine:lineString
  1721         encoding:encodingSymbolOrEncoder
  1728         encoding:encodingSymbolOrEncoder
  1722         file:fileName
  1729         file:fileName
  1723         printErrorWith:printError
  1730         printErrorWith:printError
  1724         for:self
  1731         for:self
       
  1732         keepUselessTranslations:false
  1725 !
  1733 !
  1726 
  1734 
  1727 readFromFile:fileName directory:dirName
  1735 readFromFile:fileName directory:dirName
  1728     "read definitions from a file in a directory"
  1736     "read definitions from a file in a directory"
  1729 
  1737 
  1945                                         file:(inStream isFileStream
  1953                                         file:(inStream isFileStream
  1946                                                 ifTrue:[inStream pathName]
  1954                                                 ifTrue:[inStream pathName]
  1947                                                 ifFalse:['---'])
  1955                                                 ifFalse:['---'])
  1948                                         printErrorWith:printError
  1956                                         printErrorWith:printError
  1949                                         for:self
  1957                                         for:self
       
  1958                                         keepUselessTranslations:false
  1950                                 ]]
  1959                                 ]]
  1951                     ]
  1960                     ]
  1952                 ]
  1961                 ]
  1953             ]
  1962             ]
  1954         ]
  1963         ]