Mercurial Mercurial > hg > jv-cface / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cface__CUserDefinedTypeNode.st
changeset 19 1297bf936bfb
parent 14 1f730d82496e
child 24 e7afa531abcf 
--- a/Cface__CUserDefinedTypeNode.st	Mon Jul 18 16:13:22 2011 +0000
+++ b/Cface__CUserDefinedTypeNode.st	Wed May 30 19:55:53 2012 +0000
@@ -100,175 +100,6 @@
     "Created: / 12-02-2008 / 23:21:13 / janfrog"
 ! !
 
-!CUserDefinedTypeNode methodsFor:'builder'!
-
-buildCTypeOn:aBuilder
-
-    ((reference references:EnumNode) | (reference references:StructNode) | (reference references:UnionNode)) ifTrue:[
-      (reference typedef) ifFalse:[
-        (reference references:EnumNode) ifTrue:[ aBuilder nextPutString:'enum ' ].
-        (reference references:StructNode) ifTrue:[ aBuilder nextPutString:'struct ' ].
-        (reference references:UnionNode) ifTrue:[ aBuilder nextPutString:'union ' ].
-      ].
-    ].
-
-    aBuilder idNamesWith:names.
-
-    "Created: / 19-12-2007 / 18:13:30 / haja"
-!
-
-buildObjectCreationDefinedTypeFor:aVariable on:aBuilder
-
-    (reference references:EnumNode) ifTrue:[
-      ^aBuilder buildIntegerCreationFor:aVariable.
-    ].
-
-    ^aBuilder buildPointerCreationFor:aVariable.
-
-    "Created: / 19-12-2007 / 17:42:08 / haja"
-!
-
-buildObjectCreationFor:aVariable on:aBuilder
-
-    self fundamentalTypes do:[:aType| (aType = names last) ifTrue:[ ^self buildObjectCreationFundamentalTypeFor:aVariable on:aBuilder. ] ].
-
-    ^self buildObjectCreationDefinedTypeFor:aVariable on:aBuilder.
-
-    "Created: / 19-12-2007 / 16:34:44 / haja"
-    "Modified: / 19-12-2007 / 17:44:19 / haja"
-!
-
-buildObjectCreationFundamentalTypeFor:aVariable on:aBuilder
-
-      (((names last = 'int') | (names last = 'short') | (names last = 'long')) & ((names includes:'unsigned')not)) ifTrue:[
-        ^aBuilder buildIntegerCreationFor:aVariable.
-      ].
-
-      (((names last = 'int') | (names last = 'short') | (names last = 'long') | (names last = 'unsigned')) & ((names includes:'signed')not)) ifTrue:[
-        ^aBuilder buildUnsignedIntegerCreationFor:aVariable.
-      ].
-
-      (names last = 'char') ifTrue:[
-        ^aBuilder buildCharacterCreationFor:aVariable.
-      ].
-
-      (names last = 'float') ifTrue:[
-        ^aBuilder buildFloatCreationFor:aVariable.
-      ].
-      (names last = 'double') ifTrue:[
-        ^aBuilder buildDoubleCreationFor:aVariable.
-      ].
-
-    ^aBuilder buildPointerCreationFor:aVariable.
-
-    "Created: / 19-12-2007 / 17:40:14 / haja"
-!
-
-buildTypeCheckFor:aVariable on:aBuilder
-
-    self fundamentalTypes do:[:aType| (aType = names last) ifTrue:[ ^self buildTypeCheckForFundamentalType:aVariable on:aBuilder. ] ].
-
-    ^self buildTypeCheckForDefinedType:aVariable on:aBuilder.
-
-    "Created: / 19-12-2007 / 15:24:02 / haja"
-!
-
-buildTypeCheckForDefinedType:aVariable on:aBuilder
-
-    (reference references:EnumNode) ifTrue:[
-      ^aBuilder buildIntegerCheckFor:aVariable.
-    ].
-
-    ^aBuilder buildPointerCheckFor:aVariable.
-
-    "Created: / 19-12-2007 / 15:31:52 / haja"
-!
-
-buildTypeCheckForFundamentalType:aVariable on:aBuilder
-
-      ((names last = 'int') | (names last = 'short') | (names last = 'long') | (names last = 'unsigned')) ifTrue:[
-        ^aBuilder buildIntegerCheckFor:aVariable.
-      ].
-
-      (names last = 'char') ifTrue:[
-        ^aBuilder buildCharacterCheckFor:aVariable.
-      ].
-
-      (names last = 'float') ifTrue:[
-        ^aBuilder buildFloatCheckFor:aVariable.
-      ].
-      (names last = 'double') ifTrue:[
-        ^aBuilder buildDoubleCheckFor:aVariable.
-      ].
-
-    ^aBuilder buildPointerCheckFor:aVariable.
-
-    "Created: / 19-12-2007 / 15:31:42 / haja"
-!
-
-buildTypeDescriptionOn:aBuilder
-
-    (reference references:Cface::EnumNode) ifTrue:[
-        aBuilder nextPutString:'enumeration '.
-    ].
-    (reference references:Cface::StructNode) ifTrue:[
-        aBuilder nextPutString:'structure '.
-    ].
-    (reference references:Cface::UnionNode) ifTrue:[
-        aBuilder nextPutString:'union '.
-    ].
-
-    names do:[:aName| aBuilder nextPutString:aName asString,' ' ].
-
-    "Created: / 20-12-2007 / 12:11:52 / haja"
-!
-
-buildValueExtractionFor:aVariable on:aBuilder
-
-    self fundamentalTypes do:[:aType| (aType = names last) ifTrue:[ ^self buildValueExtractionForFundamentalType:aVariable on:aBuilder. ] ].
-
-    ^self buildValueExtractionForDefinedType:aVariable on:aBuilder.
-
-    "Created: / 19-12-2007 / 17:26:12 / haja"
-!
-
-buildValueExtractionForDefinedType:aVariable on:aBuilder
-
-    (reference references:EnumNode) ifTrue:[
-      ^aBuilder buildIntegerValueExtractionFor:aVariable.
-    ].
-
-    ^aBuilder buildPointerValueExtractionFor:aVariable.
-
-    "Created: / 19-12-2007 / 17:26:43 / haja"
-!
-
-buildValueExtractionForFundamentalType:aVariable on:aBuilder
-
-      (((names last = 'int') | (names last = 'short') | (names last = 'long')) & ((names includes:'unsigned')not)) ifTrue:[
-        ^aBuilder buildIntegerValueExtractionFor:aVariable.
-      ].
-
-      (((names last = 'int') | (names last = 'short') | (names last = 'long') | (names last = 'unsigned')) & ((names includes:'signed')not)) ifTrue:[
-        ^aBuilder buildUnsignedIntegerValueExtractionFor:aVariable.
-      ].
-
-      (names last = 'char') ifTrue:[
-        ^aBuilder buildCharacterValueExtractionFor:aVariable.
-      ].
-
-      (names last = 'float') ifTrue:[
-        ^aBuilder buildFloatValueExtractionFor:aVariable.
-      ].
-      (names last = 'double') ifTrue:[
-        ^aBuilder buildDoubleValueExtractionFor:aVariable.
-      ].
-
-    ^aBuilder buildPointerValueExtractionFor:aVariable.
-
-    "Created: / 19-12-2007 / 17:26:57 / haja"
-! !
-
 !CUserDefinedTypeNode methodsFor:'converting'!
 
 resolved
@@ -335,7 +166,7 @@
 !CUserDefinedTypeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CUserDefinedTypeNode.st,v 1.1 2008/02/26 15:57:04 vranyj1 Exp $'
+    ^ '$Id$'
 !
 
 version_SVN
hg/jv-cface