From: Daniel W. <dm...@lu...> - 2013-02-15 01:58:06
|
diffing dir... Sat Jul 14 17:15:33 BST 2012 ult...@gm... * Stop TypeGen.hs from stripping prefixes from C names Ignore-this: 391e6e3228f1d1a38f5643fc6fc3beb0 This behaviour is pointless (c2hs readds the prefix) and causes strange bugs when the names minus prefix come into scope (Window is a type found in X.h for example). hunk ./tools/hierarchyGen/TypeGen.hs 282 - (Just TypeInfo { tiQueryFunction = cname }) - | stripPrefix cname == name -> ss name - | otherwise -> ss cname.ss " as ".ss name - where stripPrefix s = if uCasePrefix `isPrefixOf` s - then drop (length prefix) s - else s - uCasePrefix = toUpper (head prefix) : tail prefix -- gtk -> Gtk + (Just TypeInfo { tiQueryFunction = cname }) -> ss cname.ss " as ".ss name |