diff options
| author | ronny | 2001-07-18 11:22:43 +0000 |
|---|---|---|
| committer | ronny | 2001-07-18 11:22:43 +0000 |
| commit | 2d637512067926a9217e281041ba7eb3fec1bd52 (patch) | |
| tree | 8f8c7281a7f884403e9fbec47c5f38bf90d69ee1 /frontend/utilities.dcl | |
| parent | work around for caching / attribute heap bug (diff) | |
assorted scanner/parser bug fixes by Pieter (tested by Ronny)
(bug_incomplete_instance_def, bug_layout_rule, bug_nested_guard_in_otherwise,
parse-bug-18, parse_bug_Real_as_class_name, parse_bug_case,
parse_bug_constructor_with_name_of_basic_type, parse_bug_lost_brackets_in_pattern,
parse_bug_no_layout_rule)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@550 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/utilities.dcl')
| -rw-r--r-- | frontend/utilities.dcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/frontend/utilities.dcl b/frontend/utilities.dcl index 965f872..6eaa0b4 100644 --- a/frontend/utilities.dcl +++ b/frontend/utilities.dcl @@ -18,8 +18,11 @@ stringToCharList :: !String -> [Char] charListToString :: ![Char] -> String revCharListToString :: !Int ![Char] -> String -isUpperCaseName :: ! String -> Bool -isLowerCaseName :: ! String -> Bool +NoUnderscores :== False +UnderscoresAllowed :== True + +isUpperCaseName :: ! String !Bool -> Bool +isLowerCaseName :: ! String !Bool -> Bool isFunnyIdName :: ! String -> Bool isSpecialChar :: ! Char -> Bool |