;
; launch-mst-parser.scm
;
; Run the cogserver, needed for the language-learning disjunct
; counting pipeline. Starts the cogserver, opens the database,
; loads the database (which can take an hour or more!)
;
(use-modules (opencog) (opencog persist) (opencog persist-sql))
(use-modules (opencog cogserver))
(use-modules (opencog nlp))
(use-modules (system repl common))
(use-modules (system repl server))
(use-modules (opencog logger))
(use-modules (opencog matrix))
(add-to-load-path ".")
(load "utilities.scm")
; Get the database connection and language details
(define database-uri (get-connection-uri))
(define language (get-lang))
; set the prompt for the given language
(repl-default-option-set! 'prompt (string-append "scheme@("
language "-mst)> "))
; Start the cogserver with configs for the given language
(start-cogserver (string-append "config/opencog-mst-" language ".conf"))
; Open the database.
(sql-open database-uri)
; NOTE: This script assumes that compute-mi-launch.scm has
; already stored the mutual information for the pairs after
; an observe pass over the same sentences to be parsed.
; Load up the words
(display "Fetching all words from database. This may take a few minutes.\n")
(fetch-all-words)
; Load up the word-pairs -- this can take over half an hour!
(display "Fetching all word-pairs. This may take a few minutes.\n")
; The object which will be providing pair-counts for us.
; We can also do MST parsing with other kinds of pair-count objects,
; for example, the clique-pairs, or the distance-pairs.
(define pair-obj (make-any-link-api))
;(define pair-obj (make-clique-pair-api))
(define star-obj (add-pair-stars pair-obj))
(pair-obj 'fetch-pairs)
; Print the sql stats
(sql-stats)
; Clear the sql cache and the stats counters
(sql-clear-cache)
(sql-clear-stats)
;(print-matrix-summary-report star-obj)
(display "Done fetching pairs.\n")