AGPrologRules.java

package com.franz.ag.examples;

import com.franz.ag.*;


public class AGPrologRules {

    /**
     * Demonstrates some basics of using Horn rules in Prolog.
     * 
     * @param unused
     * @throws AllegroGraphException 
     */
    public static void main(String[] args) throws AllegroGraphException {
        
        // Connect to server, which must already be running.
        AllegroGraphConnection ags = new AllegroGraphConnection();
        try {
            ags.enable();
        } catch (Exception e) {
            throw new AllegroGraphException("Server connection problem", e);
        }

        // Create a fresh triple store for this example. 
        AllegroGraph ts = ags.renew("prologrules", AGPaths.TRIPLE_STORES);

        // Load the Kennedy data
        AGUtils.loadNTriplesWithTiming(ts, AGPaths.dataSources("kennedy.ntriples"));

        // Index the store for faster querying
        AGUtils.indexAllTriplesWithTiming(ts);
        
        // Register any namespaces
        ts.registerNamespace("ex", "http://example.org/kennedy/");

        // Add some horn rules for use in queries.  The <-- operator 
        // overwrites any previous definitions for the clause head.
        AGUtils.addPrologRule("(<-- (male ?x) (q ?x !ex:sex !ex:male))", ts);
        AGUtils.addPrologRule("(<-- (female ?x) (q ?x !ex:sex !ex:female))", ts);
        AGUtils.addPrologRule("(<-- (father ?x ?y) (male ?x) (q ?x !ex:has-child ?y))", ts);
        AGUtils.addPrologRule("(<-- (mother ?x ?y) (female ?x) (q ?x !ex:has-child ?y))", ts);
        
        // Query the store for all sons of person1. 
        String pquery = "(?x)" + "(q !ex:person1 !ex:has-child ?x)" + "(male ?x)";
        AGUtils.doPrologQuery(ts, pquery);
        
        // Query the store for mothers and sons
        pquery = "(?m ?s)" + "(mother ?m ?s) (male ?s)";
        AGUtils.doPrologQuery(ts, pquery);
        
        // Now for fathers and daughters
        pquery = "(?f ?d)" + "(father ?f ?d) (female ?d)";
        AGUtils.doPrologQuery(ts, pquery);
        
        // Close the triple store and disconnect from the server.
        ts.closeTripleStore();
        ags.disable();
    }

}

Up | Next