hg/jv-cface: Cface__Libgit2Mapping.st@6a2e82ddbca1 (annotated)

22 57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'cvut:fel/cface' }"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cface }"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TypeMapping subclass:#Libgit2Mapping
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cface-Mappings'
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!Libgit2Mapping methodsFor:'accessing'!
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	smalltalkNameForEnumValue:cEnumFieldType
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	\|cairoName\|
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	cairoName := cEnumFieldType cName.
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	(cairoName startsWith:'GIT_') ifTrue:[
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	cairoName := cairoName copyFrom:5
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	].
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	^ cairoName asSymbol
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	Cface::CairoMapping new
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	smalltalkNameForEnumValue:(Cface::CEnumValueNode new cName:'CAIRO_FONT_TYPE_TOY')
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	"Created: / 04-07-2008 / 11:32:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	"Modified: / 04-09-2012 / 16:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	!
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	smalltalkPackage
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	^#'stx:libgit'
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	"Created: / 03-07-2008 / 21:14:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	"Modified: / 04-09-2012 / 16:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	! !
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
24 e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	42	!Libgit2Mapping methodsFor:'mapping - categories'!
e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	43
26 bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	44	smalltalkCategoryForDerivedType:cType
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	45	\| className class \|
24 e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	46
26 bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	47	className := cType smalltalkName asSymbol.
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	48	(className notNil and:[(class := Smalltalk at: className) notNil]) ifTrue:[
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	49	^class category
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	50	].
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	51	^'Git-Support-libgit2'
24 e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	52
e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	53	"Created: / 05-09-2012 / 11:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	54	! !
e7afa531abcf Some fixes for libgit2 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	55
26 bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	56	!Libgit2Mapping methodsFor:'mapping - class names'!
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	57
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	58	smalltalkClassNameForEnum:cEnum
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	59
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	60	cEnum cName = 'git_otype' ifTrue:[
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	61	^#GitObjectType
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	62	].
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	63
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	64	cEnum cName = 'git_error_t' ifTrue:[
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	65	^#GitErrorCode
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	66	].
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	67
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	68	^ self smalltalkClassNameForDerivedType:cEnum
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	69
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	70	"Answers class which should contain function call"
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	71
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	72	"Created: / 10-09-2012 / 09:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	73	!
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	74
26 bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	75	smalltalkClassNameForFunction:cFunction
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	76	"Answers class which should contain function call"
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	77
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	78	^#GitPrimitives
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	79
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	80	"Created: / 07-09-2012 / 15:04:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28 6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	81	!
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	82
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	83	smalltalkClassNameForStruct:cStruct
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	84
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	85	"Make GitOid a pure byte array to reduce stress on GC"
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	86	cStruct cName = '_git_oid' ifTrue:[
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	87	cStruct ffiPointerTypeSymbol:#charPointer.
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	88	].
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	89
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	90	^ self smalltalkClassNameForDerivedType:cStruct
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	91
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	92	"Answers class which should contain function call"
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	93
6a2e82ddbca1 - Updates to latest GCC XML that apparently reports structure sizes in bits instead of bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 27 diff changeset	94	"Created: / 10-09-2012 / 10:31:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
26 bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	95	! !
bd4d0544a609 - Cface::TypeMapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	96
27 5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	97	!Libgit2Mapping methodsFor:'mapping - selectors'!
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	98
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	99	smalltalkSelectorForFunction:cFunction
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	100	\| selector \|
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	101
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	102	selector := String streamContents:[:s\|
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	103	s nextPutAll: '_'.
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	104	s nextPutAll: cFunction cName.
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	105
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	106	cFunction arguments size > 0 ifTrue:
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	107	[s nextPut:$:].
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	108	cFunction arguments size > 1 ifTrue:
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	109	[(cFunction arguments copyFrom:2) do:
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	110	[:argument\|
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	111	s
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	112	nextPutAll: ("self smalltalkize: "argument cName);
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	113	nextPut:$:]]].
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	114
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	115	^selector asSymbol
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	116
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	117	"Created: / 07-09-2012 / 23:14:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	118	! !
5a58064b5921 - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	119
22 57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	!Libgit2Mapping class methodsFor:'documentation'!
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	version_SVN
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	^ '$Id:: $'
57da23a9fbbd - Cface::Libgit2Mapping Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 10 Sep 2012 10:23:27 +0000
changeset 28	6a2e82ddbca1
parent 27	5a58064b5921
child 29	91d5e0a30fa4
permissions	-rw-r--r--