[Gtk2hs-commit] (main branch): Improve apiGen names, for example hsv instead of hSV

[Axel S. <si...@co...>]

Thu Apr 30 11:22:50 EDT 2009  m....@gm...
  * Improve apiGen names, for example hsv instead of hSV
  Ignore-this: 89e23bb8809006e40a3708049de9c031

    hunk ./tools/apiGen/src/CodeGen.hs 226
    -                      else let typeVar = lowerCaseFirstChar propertyType
    +                      else let typeVar = lowerCaseFirstWord propertyType
    hunk ./tools/apiGen/src/CodeGen.hs 259
    -                      else let typeVar = lowerCaseFirstChar propertyType
    +                      else let typeVar = lowerCaseFirstWord propertyType
    hunk ./tools/apiGen/src/CodeGen.hs 291
    -      text (lowerCaseFirstChar signalName) <+> text "::" <+> signalType
    -   $$ text (lowerCaseFirstChar signalName) <+> equals <+> text "Signal" <+> parens (text "connect_" <> connectCall <+> signalCName)
    +      text (lowerCaseFirstWord signalName) <+> text "::" <+> signalType
    +   $$ text (lowerCaseFirstWord signalName) <+> equals <+> text "Signal" <+> parens (text "connect_" <> connectCall <+> signalCName)
    hunk ./tools/apiGen/src/CodeGen.hs 592
    -             ([(undefined, "import Monad\t(liftM)")]
    +             ([(undefined, "import Control.Monad\t(liftM)")]
    hunk ./tools/apiGen/src/Module.hs 279
    -      let objName  = lowerCaseFirstChar (Api.object_name object)
    +      let objName  = lowerCaseFirstWord (Api.object_name object)
    hunk ./tools/apiGen/src/Module.hs 301
    -      let objName = lowerCaseFirstChar (Api.object_name object)
    +      let objName = lowerCaseFirstWord (Api.object_name object)
    hunk ./tools/apiGen/src/Module.hs 520
    -            declName = lowerCaseFirstChar (module_name module_) ++ attrName
    +            declName = lowerCaseFirstWord (module_name module_) ++ attrName
    hunk ./tools/apiGen/src/Names.hs 4
    -import Utils (splitBy, lowerCaseFirstChar, upperCaseFirstChar)
    +import Utils (splitBy, lowerCaseFirstWord, upperCaseFirstChar)
    hunk ./tools/apiGen/src/Names.hs 9
    -    lowerCaseFirstChar
    +    lowerCaseFirstWord
    hunk ./tools/apiGen/src/Names.hs 16
    -    lowerCaseFirstChar
    +    lowerCaseFirstWord
    hunk ./tools/apiGen/src/Utils.hs 12
    -  lowerCaseFirstChar,
    +  lowerCaseFirstWord,
    hunk ./tools/apiGen/src/Utils.hs 25
    -import Data.Char (toLower, toUpper)
    +import Data.Char (isUpper, toLower, toUpper)
    hunk ./tools/apiGen/src/Utils.hs 53
    -lowerCaseFirstChar :: String -> String
    -lowerCaseFirstChar (c:cs) = toLower c : cs
    +lowerCaseFirstWord :: String -> String
    +lowerCaseFirstWord s = case span isUpper s of
    +  ([],_) -> s
    +  ([c],cs) -> toLower c : cs
    +  (caps,[]) -> map toLower caps
    +  (caps,cs) -> map toLower (init caps) ++ (last caps : cs)
    hunk ./tools/callbackGen/gtkmarshal.list 39
    -#BOOLEAN:INT,INT
    +BOOLEAN:INT,INT
    hunk ./tools/callbackGen/gtkmarshal.list 125
    +