diff options
| author | johnvg | 2002-06-17 11:53:07 +0000 |
|---|---|---|
| committer | johnvg | 2002-06-17 11:53:07 +0000 |
| commit | b9d3c2066f3cd10cf0fcda8fb2a6148b6a93ad88 (patch) | |
| tree | b518ce7cc52adbb04939e00ac74fd6068238c93b /frontend/genericsupport.icl | |
| parent | removed double alternative for TVI_TypeKind in <<< (diff) | |
removed ignored !'s
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1099 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/genericsupport.icl')
| -rw-r--r-- | frontend/genericsupport.icl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/frontend/genericsupport.icl b/frontend/genericsupport.icl index 2e42006..ba2877d 100644 --- a/frontend/genericsupport.icl +++ b/frontend/genericsupport.icl @@ -52,7 +52,7 @@ getGenericClass gen kind modules generic_heap -> (Yes class_glob, generic_heap) -lookupGenericClassInfo :: !TypeKind !GenericClassInfos -> !(Optional GenericClassInfo) +lookupGenericClassInfo :: !TypeKind !GenericClassInfos -> (Optional GenericClassInfo) lookupGenericClassInfo kind class_infos #! hash_index = case kind of KindConst -> 0 @@ -64,7 +64,7 @@ where | gci.gci_kind == kind = Yes gci = lookup kind gcis -addGenericClassInfo :: !GenericClassInfo !GenericClassInfos -> !GenericClassInfos +addGenericClassInfo :: !GenericClassInfo !GenericClassInfos -> GenericClassInfos addGenericClassInfo class_info=:{gci_kind} class_infos #! hash_index = case gci_kind of KindConst -> 0 @@ -76,13 +76,13 @@ addGenericClassInfo class_info=:{gci_kind} class_infos //**************************************************************************************** // Ident Helpers //**************************************************************************************** -makeIdent :: !String -> !Ident +makeIdent :: !String -> Ident makeIdent str = {id_name = str, id_info = nilPtr} -postfixIdent :: !Ident !String -> !Ident +postfixIdent :: !Ident !String -> Ident postfixIdent {id_name} postfix = makeIdent (id_name +++ postfix) -genericIdentToClassIdent :: !Ident !TypeKind -> !Ident +genericIdentToClassIdent :: !Ident !TypeKind -> Ident genericIdentToClassIdent gen_name kind = postfixIdent gen_name ("_" +++ kind_to_str kind) where @@ -93,11 +93,11 @@ where kinds_to_str [KindConst:ks] = "s" +++ kinds_to_str ks kinds_to_str [k:ks] = "o" +++ (kind_to_str k) +++ "c" +++ kinds_to_str ks -genericIdentToMemberIdent :: !Ident !TypeKind -> !Ident +genericIdentToMemberIdent :: !Ident !TypeKind -> Ident genericIdentToMemberIdent gen_name kind = genericIdentToClassIdent gen_name kind -genericIdentToFunIdent :: !Ident !TypeCons -> !Ident +genericIdentToFunIdent :: !Ident !TypeCons -> Ident genericIdentToFunIdent gen_name type_cons = postfixIdent gen_name ("_" +++ type_cons_to_str type_cons) where |