diff options
| author | ronny | 2003-05-16 09:59:19 +0000 |
|---|---|---|
| committer | ronny | 2003-05-16 09:59:19 +0000 |
| commit | d70d064e64fea680078f0248e6ddb8ece76e0cde (patch) | |
| tree | 0976d44630b049a5ddfb70de86b279d71435af17 /frontend/genericsupport.icl | |
| parent | foldExp - added alternative for EE (diff) | |
renamed field names of type Ident in syntax tree
s/\<mod_name\>/mod_ident/g
s/\<ps_field_name\>/ps_field_ident/g
s/\<ps_selector_name\>/ps_selector_ident/g
s/\<pc_cons_name\>/pc_cons_ident/g
s/\<class_name\>/class_ident/g
s/\<gen_name\>/gen_ident/g
s/\<gen_member_name\>/gen_member_ident/g
s/\<gc_name\>/gc_ident/g
s/\<gc_gname\>/gc_gident/g
s/\<fs_name\>/fs_ident/g
s/\<td_name\>/td_ident/g
s/\<fv_name\>/fv_ident/g
s/\<var_name\>/var_ident/g
s/\<type_name\>/type_ident/g
s/\<symb_name\>/symb_ident/g
s/\<tv_name\>/tv_ident/g
s/\<av_name\>/av_ident/g
s/\<me_symb\>/me_ident/g
s/\<ft_symb\>/ft_ident/g
s/\<fun_symb\>/fun_ident/g
s/\<cons_symb\>/cons_ident/g
s/\<sd_symb\>/sd__ident/g
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1340 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/genericsupport.icl')
| -rw-r--r-- | frontend/genericsupport.icl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/frontend/genericsupport.icl b/frontend/genericsupport.icl index ba2877d..8b62503 100644 --- a/frontend/genericsupport.icl +++ b/frontend/genericsupport.icl @@ -83,8 +83,8 @@ postfixIdent :: !Ident !String -> Ident postfixIdent {id_name} postfix = makeIdent (id_name +++ postfix) genericIdentToClassIdent :: !Ident !TypeKind -> Ident -genericIdentToClassIdent gen_name kind - = postfixIdent gen_name ("_" +++ kind_to_str kind) +genericIdentToClassIdent gen_ident kind + = postfixIdent gen_ident ("_" +++ kind_to_str kind) where kind_to_str KindConst = "s" kind_to_str (KindArrow kinds) @@ -94,15 +94,15 @@ where kinds_to_str [k:ks] = "o" +++ (kind_to_str k) +++ "c" +++ kinds_to_str ks genericIdentToMemberIdent :: !Ident !TypeKind -> Ident -genericIdentToMemberIdent gen_name kind - = genericIdentToClassIdent gen_name kind +genericIdentToMemberIdent gen_ident kind + = genericIdentToClassIdent gen_ident kind genericIdentToFunIdent :: !Ident !TypeCons -> Ident -genericIdentToFunIdent gen_name type_cons - = postfixIdent gen_name ("_" +++ type_cons_to_str type_cons) +genericIdentToFunIdent gen_ident type_cons + = postfixIdent gen_ident ("_" +++ type_cons_to_str type_cons) where - type_cons_to_str (TypeConsSymb {type_name}) = toString type_name + type_cons_to_str (TypeConsSymb {type_ident}) = toString type_ident type_cons_to_str (TypeConsBasic bt) = toString bt type_cons_to_str TypeConsArrow = "ARROW" - type_cons_to_str (TypeConsVar tv) = tv.tv_name.id_name + type_cons_to_str (TypeConsVar tv) = tv.tv_ident.id_name
\ No newline at end of file |