;
; ---------------------------------------------------------------------
; make-word-link -- create a word-link from a word-instance link
;
; Get the LG word-link relation corresponding to a word-instance LG link
; relation. An LG link is simply a single link-grammar link between two
; words (or two word-instances, when working with a single sentence).
;
; This function simply strips off the unique word-ids from each word.
; For example, given this as input:
;
; EvaluationLink
; LgLinkNode "FOO"
; ListLink
; WordInstanceNode "word@uuid"
; WordInstanceNode "bird@uuid"
;
; this creates and returns this:
;
; EvaluationLink
; LgLinkNode "FOO" -- gar
; ListLink -- gdr
; WordNode "word" -- gadr
; WordNode "bird" -- gddr
;
(define (make-word-link lg-rel-inst)
(let (
(rel-node (gar lg-rel-inst))
(w-left (word-inst-get-word (gadr lg-rel-inst)))
(w-right (word-inst-get-word (gddr lg-rel-inst)))
)
(EvaluationLink rel-node (ListLink w-left w-right))
)
)
; ---------------------------------------------------------------------