#!/usr/bin/perl -s

use warnings;
use strict;

use Conclave::Utils::OTK;
use Conclave::Utils::OTK::PC;
use Data::Dumper;

my $pkgid = shift;
my $op = shift;
unless ($pkgid and $op) {
  print "Usage:\n",
    "  \$ conc-otk-load <pkgid> terminology <corpus>>\n",
      "  \$ conc-otk-load <pkgid> idtable <dbfile>\n",
        "  \$ conc-otk-load <pkgid> clang <datafile>\n",
          "  \$ conc-otk-load <pkgid> idterms <datafile>\n";
  exit;
}

if ($op eq 'terminology') {
  my $corpus = shift;
  unless ($corpus) {
    print "Usage: conc-otk-load <pkgid> terminology <corpus>\n";
    exit;
  }
  my $onto = Conclave::Utils::OTK->new($pkgid, 'problem');
  Conclave::Utils::OTK::PC::problem_load_terminology($onto, $corpus, $pkgid);
}

if ($op eq 'idtable') {
  my $dbfile = shift;
  unless ($dbfile) {
    print "Usage: conc-otk-load <pkgid> idtable <dbfile>\n";
    exit;
  }
  my $onto = Conclave::Utils::OTK->new($pkgid, 'program');
  Conclave::Utils::OTK::PC::program_load_idtable($onto, $dbfile, $pkgid);
}

if ($op eq 'clang') {
  my $datafile = shift;
  unless ($datafile) {
    print "Usage: conc-otk-load <pkgid> clang <datafile>\n";
    exit;
  }
  my $onto = Conclave::Utils::OTK->new($pkgid, 'program');
  Conclave::Utils::OTK::PC::program_load_clang($onto, $datafile, $pkgid);
}

if ($op eq 'idterms') {
  my $datafile = shift;
  unless ($datafile) {
    print "Usage: conc-otk-load <pkgid> idterms <datafile>\n";
    exit;
  }
  my $onto = Conclave::Utils::OTK->new($pkgid, 'program');
  Conclave::Utils::OTK::PC::program_load_idterms($onto, $datafile, $pkgid);
}