blob: 670979cf90b54286e461c30dd33f47afb9480e1f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
definition module genericsupport
import syntax, checksupport
lookupGenericClassInfo ::
!TypeKind
!GenericClassInfos
-> !(Optional GenericClassInfo)
addGenericClassInfo ::
!GenericClassInfo
!GenericClassInfos
-> !GenericClassInfos
getGenericMember ::
!(Global Index) // generic
!TypeKind // kind argument
!{#CommonDefs} // modules
!*GenericHeap
->
( Optional (Global Index)
, !*GenericHeap
)
//****************************************************************************************
// Ident Helpers
//****************************************************************************************
makeIdent :: !String -> !Ident
postfixIdent :: !Ident !String -> !Ident
genericIdentToClassIdent :: !Ident !TypeKind -> !Ident
genericIdentToMemberIdent :: !Ident !TypeKind -> !Ident
genericIdentToFunIdent :: !Ident !TypeCons -> !Ident
|
