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

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

@ -133,79 +133,61 @@ prog6 =
ruby :: File (Term Core User)
ruby = fromBody $ annWith callStack (rec (named' __semantic_global) (binds
[ named' "Class" :<- ann (Core.record
[ ("new", lam (named' "self")
( named' "instance" :<- Core.record [ (__semantic_super, pure "self") ]
>>>= pure "instance" $$$ "initialize"))
])
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") ]
>>>= pure "instance" $$$ "initialize"))
])
, named' "(Object)" :<- ann (Core.record [ (__semantic_super, pure "Class") ])
, named' "Object" :<- ann (Core.record
[ (__semantic_super, pure "(Object)")
, ("nil?", lam (named' "_") (pure __semantic_global ... "false"))
, ("initialize", lam (named' "self") (pure "self"))
, (__semantic_truthy, lam (named' "_") (Core.bool True))
])
, named' "(Object)" :<- ann (Core.record [ (__semantic_super, pure "Class") ])
, named' "Object" :<- ann (Core.record
[ (__semantic_super, pure "(Object)")
, ("nil?", lam (named' "_") (pure __semantic_global ... "false"))
, ("initialize", lam (named' "self") (pure "self"))
, (__semantic_truthy, lam (named' "_") (Core.bool True))
])
, named' "(NilClass)" :<- ann (Core.record
-- FIXME: what should we do about multiple import edges like this
[ (__semantic_super, pure "Class")
, (__semantic_super, pure "(Object)")
])
, named' "NilClass" :<- ann (Core.record
[ (__semantic_super, pure "(NilClass)")
, (__semantic_super, pure "Object")
, ("nil?", lam (named' "_") (pure __semantic_global ... "true"))
, (__semantic_truthy, lam (named' "_") (Core.bool False))
])
, named' "(NilClass)" :<- ann (Core.record
-- FIXME: what should we do about multiple import edges like this
[ (__semantic_super, pure "Class")
, (__semantic_super, pure "(Object)")
])
, named' "NilClass" :<- ann (Core.record
[ (__semantic_super, pure "(NilClass)")
, (__semantic_super, pure "Object")
, ("nil?", lam (named' "_") (pure __semantic_global ... "true"))
, (__semantic_truthy, lam (named' "_") (Core.bool False))
])
, named' "(TrueClass)" :<- ann (Core.record
[ (__semantic_super, pure "Class")
, (__semantic_super, pure "(Object)")
])
, named' "TrueClass" :<- ann (Core.record
[ (__semantic_super, pure "(TrueClass)")
, (__semantic_super, pure "Object")
])
, named' "(TrueClass)" :<- ann (Core.record
[ (__semantic_super, pure "Class")
, (__semantic_super, pure "(Object)")
])
, named' "TrueClass" :<- ann (Core.record
[ (__semantic_super, pure "(TrueClass)")
, (__semantic_super, pure "Object")
])
, named' "(FalseClass)" :<- ann (Core.record
[ (__semantic_super, pure "Class")
, (__semantic_super, pure "(Object)")
])
, named' "FalseClass" :<- ann (Core.record
[ (__semantic_super, pure "(FalseClass)")
, (__semantic_super, pure "Object")
, (__semantic_truthy, lam (named' "_") (Core.bool False))
])
, named' "(FalseClass)" :<- ann (Core.record
[ (__semantic_super, pure "Class")
, (__semantic_super, pure "(Object)")
])
, named' "FalseClass" :<- ann (Core.record
[ (__semantic_super, pure "(FalseClass)")
, (__semantic_super, pure "Object")
, (__semantic_truthy, lam (named' "_") (Core.bool False))
])
, named' "nil" :<- pure "NilClass" $$$ "new"
, named' "true" :<- pure "TrueClass" $$$ "new"
, named' "false" :<- pure "FalseClass" $$$ "new"
, named' "nil" :<- pure "NilClass" $$$ "new"
, named' "true" :<- pure "TrueClass" $$$ "new"
, named' "false" :<- pure "FalseClass" $$$ "new"
, 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"
, named' "require" :<- lam (named' "path") (Core.load (pure "path"))
]
self $$$ method = annWith callStack $ named' "_x" :<- self >>>= pure "_x" ... method $$ pure "_x"
record ... field = annWith callStack $ record Core.... field
__semantic_global = "__semantic_global"