package prologtest; import java.util.Map; import jpl.Compound; import jpl.Term; import jpl.fli.term_t; // c class wraps a prolog term in functions to access the bitstring values by friendly name--update it when the .pl file changes! public class PrologBitstring implements Comparable { int i = 1; Term c; // don't construct these yourself, get them from prolog and cast to Bitstring Term! public PrologBitstring(Term c) { this.c = c; } public Object bitString(){ return c.arg(1).intValue(); } public int numThinLeaves(){ return c.arg(2).intValue(); } public int numAttacks(){ return c.arg(3).intValue(); } public boolean isBeatInitial(){ return (c.arg(4).intValue() == 1); } public boolean isIsochronous(){ return (c.arg(5).intValue() == 1); } public int numUniqueDurations(){ return c.arg(7).intValue(); } public int durationUpcount(){ return c.arg(8).intValue(); } public int durationStaycount(){ return c.arg(9).intValue(); } public int durationDowncount(){ return c.arg(10).intValue(); } @Override public int compareTo(Object o) { i++; // TODO Auto-generated method stub return 0; } }