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

Compute the fields of the record.

Browse Source
This commit is contained in:
Rob Rix 2019-07-22 13:06:46 -04:00
parent acfcee116f
commit 3f7ac5eb50
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 49 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
semantic-core/src/Analysis/Eval.hs
View File

@ -133,6 +133,9 @@ prog6 =
ruby :: File (Term Core User)
ruby = fromBody $ annWith callStack (rec (named' __semantic_global) (binds
bindings
(Core.record (map (\ (Named _ v :<- _) -> (v, pure v)) bindings))))
where bindings =
[ named' "Class" :<- ann (Core.record
[ ("new", lam (named' "self")
( named' "instance" :<- Core.record [ (__semantic_super, pure "self") ]
@ -184,28 +187,7 @@ ruby = fromBody $ annWith callStack (rec (named' __semantic_global) (binds
, named' "require" :<- lam (named' "path") (Core.load (pure "path"))
]
(Core.record (map ((,) <*> pure)
[ "Class"
, "(Object)"
, "Object"
, "(NilClass)"
, "NilClass"
, "(TrueClass)"
, "TrueClass"
, "(FalseClass)"
, "FalseClass"
, "nil"
, "true"
, "false"
, "require"
, "nil"
, "true"
, "false"
, "require"
]))))
where self $$$ method = annWith callStack $ named' "_x" :<- self >>>= pure "_x" ... method $$ pure "_x"
self $$$ method = annWith callStack $ named' "_x" :<- self >>>= pure "_x" ... method $$ pure "_x"
record ... field = annWith callStack $ record Core.... field
__semantic_global = "__semantic_global"