You are looking at historical revision 34607 of this page. It may differ significantly from its current revision.

Chicken bindings to the CMU link grammar parser.

Description

The link grammar parser is a syntactic parser of English, based on link grammar, an original theory of English syntax. Given a sentence, the system assigns to it a syntactic structure, which consists of a set of labeled links connecting pairs of words. The parser also produces a "constituent" representation of a sentence (showing noun phrases, verb phrases, etc.).

Author

David Ireland

Example

 
(import link-grammar)

(define (process-linkage sentence opts)
  (let* ([verbosity   (lg:get-verbosity opts)]
         [links-found (lg:linkages-found sentence)]
         [max-links   1024]
         [index       0])
    (print "Verbosity: " verbosity)
    (print "Links found: " links-found)

    (define (display-linkage sentence opts index)
      (let* ([linkage     (lg:create-linkage index sentence opts)])
             (when linkage
               (begin
                 (let ([constituents (lg:get-constituents linkage lg:MAX-STYLES)]
                       [diagram      (lg:get-diagram linkage #t 80)])
                 (print "Constituents(" index ") -> " constituents)
                 (print "Diagram(" index ") -> "  diagram)
                 (lg:delete-linkage linkage))))
             (when (<= index links-found)
               (display-linkage sentence opts (+ index 1)))))
    (display-linkage sentence opts 0)))

(define (parse text dictionary opts)
  (let* ([sentence     (lg:create-sentence text dictionary)]
         [num-linkages (lg:parse-sentence sentence opts)])
    (when (= num-linkages 0)
      (begin
       (lg:set-min-null-count! opts  1)
       (lg:set-max-null-count! opts (lg:sentence-length sentence))
       (set! num-linkages (lg:parse-sentence sentence opts))))
    (process-linkage sentence opts)))

(define dictionary (lg:create-default-dictionary))
(define opts       (lg:init-opts))
(lg:set-linkage-limit!  opts 1000)
(lg:set-short-length!   opts 10)
(lg:set-verbosity!      opts 1)
(lg:set-max-parse-time! opts 30)
(lg:set-linkage-limit!  opts 1000)
(lg:set-min-null-count! opts 0)
(lg:set-max-null-count! opts 0)
(lg:set-short-length!   opts 16)
(lg:set-islands-ok!     opts #f)

(parse "The black fox ran from the hunters." opts)

API

System Initialization

Dictionary

[procedure] (lg:create-default-dictionary) -> dictionary*
[procedure] (lg:create-dictionary-from-utf8 string) -> dictionary*
[procedure] (lg:create-dictionary-with-language string) -> dictionary*
[procedure] (lg:get-dictionary-language dictionary*) -> string
[procedure] (lg:get-dictionary-data-dir dictionary*) -> string
[procedure] (lg:set-dictionary-data-dir! string)
[procedure] (lg:delete-dictionary dictionary*)

Parse Options

[procedure] (lg:init-opts parse-options* int) -> parse-options*
[procedure] (lg:set-max-parse-time! parse-options* int)
[procedure] (lg:set-linkage-limit! parse-options* int)
[procedure] (lg:set-short-length! parse-options* int)
[procedure] (lg:set-disjunct-cost! parse-options* int)
[procedure] (lg:set-min-null-count! parse-options* int)
[procedure] (lg:set-max-null-count! parse-options* int)
[procedure] (lg:set-max-parse-time! parse-options* int)
[procedure] (lg:set-islands-ok! parse-options* bool)
[procedure] (lg:set-verbosity! parse-options* int)
[procedure] (lg:get-verbosity parse-options*) -> int
[procedure] (lg:resources-exhausted? parse-options*) -> bool
[procedure] (lg:memory-exhausted? parse-options*) -> bool
[procedure] (lg:timer-expired? parse-options*) -> bool
[procedure] (lg:reset-resources! parse-options*)
[procedure] (lg:delete-parse-options parse-options*)

Sentences

[procedure] (lg:create-sentence string dictionary*)
[procedure] (lg:split-sentence sentence* parse-options*) -> int
[procedure] (lg:parse-sentence sentence* parse-options*) -> int
[procedure] (lg:sentence-length sentence*) -> int
[procedure] (lg:sentence-null-count sentence*) -> int
[procedure] (lg:sentence-disjunct-cost sentence* int) -> int
[procedure] (lg:sentence-link-cost sentence* int) -> int
[procedure] (lg:linkages-found sentence*)-> int
[procedure] (lg:linkages-post-processed sentence*) -> int
[procedure] (lg:linkages-violated sentence* int) -> int
[procedure] (lg:valid-linkages sentence*)-> int
[procedure] (lg:delete-sentence sentence*)

Linkages

Changelog

License

 
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU  Lesser General Public License as 
published by the Free Software Foundation; either version 2 of 
the License, or (at your option) any later version.


This program is distributed in the hope that it will be useful, 
but WITHOUT ANY WARRANTY; without  even the implied warranty of 
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
General Public License for more details.


You should have received a copy of the GNU General Public License along with this program; if not, 
write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA