fetch-word-pairs.scm

;
; Provides the pair-counts for us
; Takes as input the counting mode: lg, clique, clique-distance
;
; NOTE: This script assumes that the databas already contains 
; the mutual information for the pairs obtained from an observe
; pass over the same sentences to be parsed.

(use-modules (opencog) (opencog persist) (opencog persist-sql))
(use-modules (opencog nlp) (opencog nlp learn))
(use-modules (opencog matrix))

(define (fetch-wp cnt-mode)
  (define pair-obj '())
  (define star-obj '())
  (display "Fetching all word-pairs from the database. This may take a few minutes.\n")
  (cond
    ((equal? cnt-mode "any")
      (set! pair-obj (make-any-link-api)))

    ((or (equal? cnt-mode "clique")
         (equal? cnt-mode "clique-dist"))
      (set! pair-obj (make-clique-pair-api))))

  (set! star-obj (add-pair-stars pair-obj)) ;TODO: Can it be left out??
  (pair-obj 'fetch-pairs)

  ; Print the sql stats
  (sql-stats)

  ; Clear the sql cache and the stats counters
  (sql-clear-cache)
  (sql-clear-stats)

  (display "Done fetching pairs.\n")
)