hg/jv-cface: Cface__TypeMapping.st@ae25dce94003 (annotated)

1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'cvut:fel/cface' }"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cface }"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	Object subclass:#TypeMapping
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	6	instanceVariableNames:'smalltalkPackage smalltalkNamespace'
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cface-Mappings'
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!TypeMapping methodsFor:'accessing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	15	kindForFunction:cFunction
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	16
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	17	\|firstArgType\|
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	18
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	19	cFunction arguments isEmpty ifTrue:[^#static].
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	20	firstArgType := cFunction arguments first type.
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	21	^(firstArgType isCPointerNode and:[firstArgType type isCStructNode])
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	22	ifTrue:[#method]
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	23	ifFalse:[#static]
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	24
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	25
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	26
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	27
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	28
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	29	"Answers class which should contain function call"
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	30
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	31	"Created: / 03-07-2008 / 22:09:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	32	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	33
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	34	smalltalkCategoryForDerivedType:cType
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	35
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	36	^(self smalltalkNamespaceForDerivedType: cType) , ' - C Types'
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	37
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	38	"Created: / 10-07-2008 / 08:06:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	39	"Modified: / 10-07-2008 / 20:30:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	40	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	41
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	42	smalltalkCategoryForEnum: enum
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	43
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	44	^self smalltalkNamespace , ' - Constants'
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	45
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	46	"Answers class which should contain function call"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	47
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	48	"Created: / 10-07-2008 / 08:07:31 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	49	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	51	smalltalkCategoryForStruct:struct
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52	^ self smalltalkCategoryForDerivedType:struct
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54	"Answers class which should contain function call"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	55
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	56	"Created: / 10-07-2008 / 08:07:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	57	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	58
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	59	smalltalkCategoryForUnion:union
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	60	^ self smalltalkCategoryForDerivedType:union
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	"Answers class which should contain function call"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	64	"Created: / 10-07-2008 / 08:06:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	67	smalltalkClassNameForDerivedType:cType
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	68	^ (self smalltalkize:cType cName) capitalized asSymbol
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	70	"Created: / 10-07-2008 / 08:05:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	71	"Modified: / 10-07-2008 / 20:29:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	72	!
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	74	smalltalkClassNameForEnum:cEnum
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	75	^ self smalltalkClassNameForDerivedType:cEnum
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	"Answers class which should contain function call"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	79	"Created: / 10-07-2008 / 07:58:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	82	smalltalkClassNameForFunction:cFunction
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	83	\|firstArgType\|
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	84
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	85	cFunction arguments isEmpty ifTrue:[
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	86	^ nil
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	87	].
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	88	firstArgType := cFunction arguments first type.
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	89	^ (firstArgType isCPointerNode and:[ firstArgType type isCStructNode ])
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	90	ifTrue:[ firstArgType type smalltalkClassName ]
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	91	ifFalse:[ nil ]
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	"Answers class which should contain function call"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	95	"Created: / 10-07-2008 / 07:58:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	98	smalltalkClassNameForStruct:cStruct
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	99	^ self smalltalkClassNameForDerivedType:cStruct
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	100
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	101	"Answers class which should contain function call"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	103	"Created: / 10-07-2008 / 07:59:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	104	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	105
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	106	smalltalkClassNameForUnion:union
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	107	^ self smalltalkClassNameForDerivedType:union
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	108
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	109	"Answers class which should contain function call"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	110
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	111	"Created: / 10-07-2008 / 07:59:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	114	smalltalkNameForEnumValue:cEnumField
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	115	^ self smalltalkClassNameForDerivedType:cEnumField
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	116
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	117	"Answers class which should contain function call"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	118
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	119	"Created: / 04-07-2008 / 11:32:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	120	"Modified: / 10-07-2008 / 08:05:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
4 fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	121	!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	122
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	smalltalkNameForStructField:cStructField
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	^ self smalltalkize: cStructField cName
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	"Created: / 17-02-2008 / 21:22:15 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	smalltalkNamespace
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	131	^smalltalkNamespace ? #Smalltalk
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	"Created: / 17-02-2008 / 20:51:05 / janfrog"
6 ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	134	"Modified: / 10-07-2008 / 20:34:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	135	!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	136
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	137	smalltalkNamespace:something
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	138	smalltalkNamespace := something.
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	139
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	140	"Created: / 10-07-2008 / 20:23:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	141	!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	142
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	143	smalltalkNamespaceForDerivedType: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	144
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	145	^self smalltalkNamespace
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	146
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	147	"Created: / 10-07-2008 / 20:23:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	148	!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	149
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	150	smalltalkNamespaceForEnum: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	151
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	152	^self smalltalkNamespaceForDerivedType: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	153
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	154	"Created: / 10-07-2008 / 20:24:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	155	!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	156
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	157	smalltalkNamespaceForFunction: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	158
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	159	^self smalltalkNamespaceForDerivedType: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	160
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	161	"Created: / 10-07-2008 / 20:24:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	162	!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	163
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	164	smalltalkNamespaceForStruct: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	165
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	166	^self smalltalkNamespaceForDerivedType: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	167
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	168	"Created: / 10-07-2008 / 20:24:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	169	!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	170
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	171	smalltalkNamespaceForUnion: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	172
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	173	^self smalltalkNamespaceForDerivedType: cType
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	174
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	175	"Created: / 10-07-2008 / 20:24:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	178	smalltalkPackage
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	179	^ smalltalkPackage
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	180
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	181	"Created: / 03-07-2008 / 21:12:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	182	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	183
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	184	smalltalkPackage:package
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	185	smalltalkPackage := package.
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	186
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	187	"Created: / 03-07-2008 / 21:12:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	188	!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	189
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	smalltalkSelectorForFunction:cFunction
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	192	^self smalltalkizeSelector: cFunction cName forFunction: cFunction
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	"Created: / 17-02-2008 / 22:15:44 / janfrog"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	195	"Modified: / 04-07-2008 / 15:16:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	!TypeMapping methodsFor:'private - utilities'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	smalltalkize: input
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	\| inputStream outputStream \|
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	inputStream := input readStream.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	outputStream := (String new:input size) writeStream.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	[ inputStream atEnd ] whileFalse:
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	[\|c\|
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	c := inputStream next.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	c = $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	ifTrue:[outputStream nextPut: inputStream next asUppercase]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	ifFalse:[outputStream nextPut: c]].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	^outputStream contents.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	"
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	214	Cface::TypeMapping new smalltalkize:'test'
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	215	Cface::TypeMapping new smalltalkize:'test_of_smalltalkize'
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	"Created: / 08-02-2008 / 09:34:40 / janfrog"
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	219	"Modified: / 03-07-2008 / 22:31:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	220	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	221
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	222	smalltalkizeSelector: translatedFunctionName forFunction: cFunction
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	223
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	224	^String streamContents:
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	225	[:s\|
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	226	s nextPutAll:(self smalltalkize: translatedFunctionName).
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	227	cFunction arguments size > 0 ifTrue:
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	228	[s nextPut:$:].
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	229	cFunction arguments size > 1 ifTrue:
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	230	[(cFunction arguments copyFrom:2) do:
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	231	[:argument\|
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	232	s
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	233	nextPutAll: (self smalltalkize: argument cName);
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	234	nextPut:$:]]]
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	235
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	236	"Created: / 04-07-2008 / 15:16:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	!TypeMapping class methodsFor:'documentation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	version
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__TypeMapping.st,v 1.1 2008/02/26 16:00:36 vranyj1 Exp $'
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 10 Jul 2008 20:56:08 +0000
changeset 6	ae25dce94003
parent 5	c110eef5b9ef
child 7	75608e40c6da
permissions	-rw-r--r--