github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 02:14:20 +03:00
Code Issues Projects Releases Wiki Activity

Update TypeScript assignment to construct an Accessibility syntax term

Browse Source
This commit is contained in:
Rick Winfrey 2018-12-14 17:05:52 -08:00
parent b97a2d6df7
commit a9dd405294
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Language/TypeScript/Assignment.hs
View File

@ -42,6 +42,7 @@ import Proto3.Suite (Named1(..), Named(..))
type Syntax = '[
Comment.Comment
, Comment.HashBang
, Declaration.Accessibility
, Declaration.Class
, Declaration.Function
, Declaration.Method
@ -481,7 +482,16 @@ parameter = requiredParameter
<|> optionalParameter
accessibilityModifier' :: Assignment Term
accessibilityModifier' = makeTerm <$> symbol AccessibilityModifier <*> children (Syntax.Identifier . name <$> source)
accessibilityModifier' = makeTerm'
<$> symbol AccessibilityModifier
<*> children (inject <$> do
loc <- location
s <- source
pure $ case s of
"protected" -> Declaration.Protected $ makeTerm loc (Syntax.Identifier (name s))
"private" -> Declaration.Private $ makeTerm loc (Syntax.Identifier (name s))
-- | The catchall case is 'Declaration.Public'.
_ -> Declaration.Public $ makeTerm loc (Syntax.Identifier (name s)))
destructuringPattern :: Assignment Term
destructuringPattern = object <|> array
@ -497,7 +507,7 @@ methodDefinition = makeMethod <$>
symbol MethodDefinition
<*> children ((,,,,,) <$> (term accessibilityModifier' <|> emptyTerm) <*> (term readonly' <|> emptyTerm) <*> emptyTerm <*> term propertyName <*> callSignatureParts <*> term statementBlock)
where
makeMethod loc (modifier, readonly, receiver, propertyName', (typeParameters', params, ty'), statements) = makeTerm loc (Declaration.Method [modifier, readonly, typeParameters', ty'] receiver propertyName' params statements)
makeMethod loc (modifier, readonly, receiver, propertyName', (typeParameters', params, ty'), statements) = makeTerm loc (Declaration.Method [readonly, typeParameters', ty'] modifier receiver propertyName' params statements)
callSignatureParts :: Assignment (Term, [Term], Term)
callSignatureParts = contextualize' <$> Assignment.manyThrough comment (postContextualize' <$> callSignature' <*> many comment)