hg/jv-cface: Cface__CUnsignedNode.st@307d55f736ec (annotated)

32 d7464405cbda Package renamed from cvut:fel/cface to jv:cface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	1	"{ Package: 'jv:cface' }"
1 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	CModifierNode subclass:#CUnsignedNode
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
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-C AST'
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
18 2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	13	!CUnsignedNode methodsFor:'* As yet uncategorized *'!
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	14
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	15	ffiPointerTypeSymbol
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	16
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	17	^type ffiPointerTypeSymbol
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	18
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	19	"Created: / 18-07-2011 / 17:01:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	20	! !
2f55519f3d0b Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	21
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	22	!CUnsignedNode methodsFor:'accessing'!
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	23
37 1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	24	cName
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	25	^ 'unsigned ', super cName
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	26
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	27	"Created: / 06-07-2015 / 07:33:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	28	!
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	29
2 cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	30	ffiTypeSymbol
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	31	"Superclass Cface::CModifierNode says that I am responsible to implement this method"
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	^'u', type ffiTypeSymbol
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	34
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	35	"Created: / 03-07-2008 / 22:59:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	36	! !
cfd2c393abfe Smalltalk/X generator improvements: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	37
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	!CUnsignedNode methodsFor:'printing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	printOn: stream indent: indent
42 a428eeead6ad 64bit fixes: for C99 fixed-width int types, generate proper fixed-width FFI types. For int and longs generate generic, machine-dependent FFI types Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	41	stream nextPutAll:'unsigned '.
a428eeead6ad 64bit fixes: for C99 fixed-width int types, generate proper fixed-width FFI types. For int and longs generate generic, machine-dependent FFI types Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	42	type printOn: stream indent: indent.
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	"Created: / 04-03-2008 / 10:57:12 / janfrog"
42 a428eeead6ad 64bit fixes: for C99 fixed-width int types, generate proper fixed-width FFI types. For int and longs generate generic, machine-dependent FFI types Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	45	"Modified: / 12-08-2015 / 07:42:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	!CUnsignedNode methodsFor:'testing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	isCUnsignedNode
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	^ true
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	"Created: / 17-02-2008 / 21:52:38 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!CUnsignedNode methodsFor:'visiting'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	acceptVisitor:aVisitor
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	"Double dispatch back to the visitor, passing my type encoded in
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	the selector (visitor pattern)"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	"stub code automatically generated - please change if required"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	^ aVisitor visitCUnsignedNode:self
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	"Created: / 12-02-2008 / 22:14:55 / janfrog"
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	66	!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	67
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	68	isCIntNode
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	69
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	70	^type isCIntNode
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	71
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	72	"Created: / 09-07-2008 / 20:23:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	!CUnsignedNode class methodsFor:'documentation'!
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	version
19 1297bf936bfb Some fixes for modern GCC XML Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	78	^ '$Id$'
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	79	!
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	80
37 1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	81	version_HG
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	82
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	83	^ '$Changeset: <not expanded> $'
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	84	!
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	85
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	86	version_SVN
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	87	^ '$Id$'
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	! !
37 1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	89

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 17 Sep 2015 07:36:40 +0100
changeset 49	307d55f736ec
parent 42	a428eeead6ad
permissions	-rw-r--r--