--- a/Cface__TypeMapping.st	Thu Jul 10 20:56:08 2008 +0000
+++ b/Cface__TypeMapping.st	Mon Sep 08 21:55:26 2008 +0000
@@ -206,7 +206,7 @@
         [|c|
         c := inputStream next.
         c = $_ 
-            ifTrue:[outputStream nextPut: inputStream next asUppercase]
+            ifTrue:[inputStream peek ifNotNil:[outputStream nextPut: inputStream next asUppercase]]
             ifFalse:[outputStream nextPut: c]].
     ^outputStream contents.
 
@@ -216,7 +216,7 @@
     "
 
     "Created: / 08-02-2008 / 09:34:40 / janfrog"
-    "Modified: / 03-07-2008 / 22:31:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 10-07-2008 / 23:05:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 smalltalkizeSelector: translatedFunctionName forFunction: cFunction

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cvut_fel_cface.st	Mon Sep 08 21:55:26 2008 +0000
@@ -0,0 +1,118 @@
+"{ Package: 'cvut:fel/cface' }"
+
+LibraryDefinition subclass:#cvut_fel_cface
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'* Projects & Packages *'
+!
+
+!cvut_fel_cface class methodsFor:'description'!
+
+preRequisites
+    ^ #(
+        #'stx:goodies/smaCC'    "SmaCC::SmaCCParser - superclass of Cface::CDefinitionParser "
+        #'stx:libbasic'    "Object - superclass of Cface::CDerivedTypeNode "
+        #'stx:libbasic3'    "MethodDefinitionChange - referenced by Cface::SmalltalkXGenerator>>visitCStructFieldNode: "
+    )
+
+    "Modified: / 08-09-2008 / 23:54:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!cvut_fel_cface class methodsFor:'description - contents'!
+
+classNamesAndAttributes
+    ^ #(
+        "<className> or (<className> attributes...) in load order"
+        #'Cface::CDefinitionParser'
+        #'Cface::CDefinitionScanner'
+        #'Cface::CNode'
+        #'Cface::CNodeVisitor'
+        #'Cface::GeneratorCommand'
+        #'Cface::Platform'
+        #'Cface::TypeMapping'
+        #'cvut_fel_cface'
+        #'Cface::CDefinitionNode'
+        #'Cface::CModifierNode'
+        #'Cface::CNoNode'
+        #'Cface::CairoMapping'
+        #'Cface::Generator'
+        #'Cface::SVNMapping'
+        #'Cface::SmalltalkX'
+        #'Cface::TypeCollector'
+        #'Cface::TypeMapper'
+        #'Cface::TypeResolver'
+        #'Cface::CArgumentNode'
+        #'Cface::CConstNode'
+        #'Cface::CDefinitionFileNode'
+        #'Cface::CEnumValueNode'
+        #'Cface::CFunctionNode'
+        #'Cface::CLongNode'
+        #'Cface::CShortNode'
+        #'Cface::CStructFieldNode'
+        #'Cface::CTypeNode'
+        #'Cface::CUnsignedNode'
+        #'Cface::SmalltalkXGenerator'
+        #'Cface::CArrayNode'
+        #'Cface::CBuiltinNode'
+        #'Cface::CDerivedTypeNode'
+        #'Cface::CPointerNode'
+        #'Cface::CTypedefNode'
+        #'Cface::CUserDefinedTypeNode'
+        #'Cface::CCharNode'
+        #'Cface::CDoubleNode'
+        #'Cface::CEnumNode'
+        #'Cface::CFloatNode'
+        #'Cface::CFunctionTypeNode'
+        #'Cface::CIntNode'
+        #'Cface::CStructuredNode'
+        #'Cface::CVoidNode'
+        #'Cface::CWCharNode'
+        #'Cface::CStructNode'
+        #'Cface::CUnionNode'
+    )
+
+    "Modified: / 08-09-2008 / 23:54:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+extensionMethodNames
+    ^ #(
+    )
+
+    "Modified: / 08-09-2008 / 23:54:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!cvut_fel_cface class methodsFor:'description - project information'!
+
+companyName
+    "Return a companyname which will appear in <lib>.rc"
+
+    ^ 'CVUT FEL'
+
+    "Created: / 08-09-2008 / 23:49:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+description
+    "Return a description string which will appear in vc.def / bc.def"
+
+    ^ 'Cairo graphics binding'
+
+    "Created: / 08-09-2008 / 23:49:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+legalCopyright
+    "Return a copyright string which will appear in <lib>.rc"
+
+    ^ 'Copyright 2008 Jan Vrany'
+
+    "Created: / 08-09-2008 / 23:49:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+productName
+    "Return a product name which will appear in <lib>.rc"
+
+    ^ 'CairoGraphics'
+
+    "Created: / 08-09-2008 / 23:49:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+