!CType class methodsFor: 'instance creation'!

baseType: aBaseType
    ^self baseType: aBaseType subType: nil
!

baseType: aBaseType subType: aSubType
    ^self baseType: aBaseType subType: aSubType numElements: 1
!

baseType: aBaseType subType: aSubType numElements: anInteger
    ^self new baseType: aBaseType subType: aSubType numElements: anInteger
!!

!CType methodsFor: 'accessing'!

subType
    ^subType
!

baseType
    ^baseType
!

numElements
    ^numElements
!

sizeof
    ^numElements * subType sizeof
!!


!CType methodsFor: 'private'!

baseType: aBaseType subType: aSubType numElements: anInteger
    baseType _ aBaseType.
    subType _ aSubType.
    numElements _ anInteger
!!