15 lines
453 B
Factor
15 lines
453 B
Factor
! Copyright (C) 2008 Alex Chapman
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel semantic-db semantic-db.type ;
|
|
IN: semantic-db.context
|
|
|
|
! : all-contexts ( -- contexts )
|
|
! has-type-relation context-type relation-object-subjects ;
|
|
!
|
|
! : context-relations ( context -- relations )
|
|
! has-context-relation swap relation-object-subjects ;
|
|
|
|
: ensure-context ( name -- context-id )
|
|
context-type swap ensure-node-of-type ;
|
|
|