package daikon;

import daikon.inv.Invariant;
import java.util.Arrays;
import java.util.List;
import java.util.Set;
import java.util.logging.Level;
import java.util.logging.Logger;
import org.checkerframework.checker.initialization.qual.UnknownInitialization;
import org.checkerframework.checker.nullness.qual.NonNull;
import org.checkerframework.checker.nullness.qual.Nullable;
import org.plumelib.util.ArraysPlume;

/**
 * Debug class used with the logger to create standardized output. It can be setup to track
 * combinations of classes, program points, and variables. The most common class to track is an
 * invariant, but any class can be used.
 *
 * <p>This allows detailed information about a particular class/ppt/variable combination to be
 * printed without getting lost in a mass of other information (which is a particular problem in
 * Daikon due to the volume of data considered).
 *
 * <p>Note that each of the three items (class, ppt, variable) must match in order for printing to
 * occur.
 */
public final class Debug {

  /** Debug Logger. */
  public static final Logger debugTrack = Logger.getLogger("daikon.Debug");

  /**
   * List of classes for logging. Each name listed is compared to the fully qualified class name. If
   * it matches (shows up anywhere in the class name) it will be included in debug prints. This is
   * not a regular expression match
   *
   * @see #log(Logger, Class, Ppt, String)
   */
  public static String[] debugTrackClass = {
    // "Bound",
    // "DynamicConstants",
    // "EltNonZero",
    // "EltNonZeroFloat",
    // "EltOneOf",
    // "Equality",
    // "FunctionBinary",
    // "IntEqual",
    // "IntGreaterEqual",
    // "IntGreaterThan",
    // "IntLessEqual",
    // "IntLessThan",
    // "IntNonEqual",
    // "LinearBinary",
    // "LowerBound",
    // "Member",
    // "NonZero",
    // "OneOfSequence",
    // "PptSlice",
    // "PptSlice2",
    // "PptSliceEquality",
    // "PptTopLevel",
    // "SeqIndexComparison",
    // "SeqIndexNonEqual",
    // "SeqIntEqual",
    // "SeqSeqIntEqual",
    // "NonZero",
    // "FunctionBinary",
    // "OneOfSequence",
    // "IntLessEqual",
    // "IntGreaterEqual",
    // "IntLessThan",
    // "IntGreaterThan",
    // "IntNonEqual",
    // "Member",
    // "FunctionBinary"
    // "EltNonZero",
    // "SeqSeqIntGreaterThan",
    // "SeqSeqIntLessThan",
    // "SubSet",
    // "SuperSet",
    // "EltOneOf",
    // "Bound",
    // "SeqSeqIntLessThan",
    // "SeqSeqIntGreaterThan",
    // "OneOf"
    // "StringEqual",
    // "StringLessThan",
    // "StringGreaterThan",
    // "Modlong_zxy",
    // "UpperBound",
  };

  /**
   * Restrict function binary prints to the specified method. Implementation is in the
   * FunctionBinary specific log functions. If null, there is no restriction (all function binary
   * methods are printed). See Functions.java for a list of function names.
   */
  public static @Nullable String function_binary_method = null
      // "java.lang.Math.max("
      // "java.lang.Math.min("
      // "org.plumelib.util.MathPlume.logicalXor("
      // "org.plumelib.util.MathPlume.gcd("
      ;

  /**
   * List of Ppts for logging. Each name listed is compared to the full program point name. If it
   * matches (shows up anywhere in the ppt name) it will be included in the debug prints. This is
   * not a regular expression match.
   *
   * @see #log(Logger, Class, Ppt, String)
   */
  public static String[] debugTrackPpt = {
    // "DataStructures.DisjSets.unionDisjoint(int, int):::EXIT",
    // "DataStructures.StackAr.StackAr(int):::EXIT",
    // "DataStructures.StackAr.makeEmpty():::EXIT",
    // "DataStructures.StackAr.makeEmpty()V:::ENTER",
    // "DataStructures.StackAr.top():::EXIT74",
    // "GLOBAL",
    // "std.main(int;char **;)int:::EXIT",
  };

  /**
   * List of variable names for logging. Each name listed is compared to each variable in turn. If
   * each matches exactly it will be included in track debug prints. This is not a regular
   * expression match. Note that the number of variables must match the slice exactly.
   *
   * @see #log(Logger, Class, Ppt, String)
   */
  public static String[][] debugTrackVars = {
    // {"::printstats"},
    // {"misc.Fib.STEPS", "orig(misc.Fib.a)"},
    // {"misc.Fib.a", "misc.Fib.STEPS"},
    // {"return"},
  };

  // Ordinarily, a client would have to supply a Class, Ppt, and
  // List<Varinfo> with each call to a log method.  But the client can
  // instead provide those values once (they are cached in these variables)
  // and omit them in subsequent calls.  The subsequent calls can use forms
  // of log() that take fewer arguments.

  /**
   * True if the cached values should be printed --- that is, they match what is currently being
   * debugged.
   */
  public boolean cache_match = true;

  // Note that throughout this file, inv_class is not necessarily a
  // subclass of Invariant -- for instance, it might be a subclass of
  // BinaryDerivationFactory.
  /** cached class: class to use by default when calling variants of log() with few arguments. */
  public @Nullable Class<?> cache_class;

  /** Cached ppt: ppt to use by default when calling variants of log() with few arguments. */
  public @Nullable Ppt cache_ppt;

  /**
   * Cached variables: variables to use by default when calling variants of log() with few
   * arguments.
   */
  public VarInfo @Nullable [] cache_vis;

  /**
   * Ordinarily, a client would have to supply a Class, Ppt, and {@code List<Varinfo>} with each
   * call to a log method. This constructor sets as defaults c, ppt, and whatever variable (if any)
   * from vis that is on the debugTrackVar list. Essentially this creates a debug object that will
   * print if any of the variables in vis are being tracked (and c and ppt match).
   */
  public Debug(Class<?> c, Ppt ppt, VarInfo[] vis) {
    set(c, ppt, vis);
  }

  /**
   * Returns a Debug object if the specified class, ppt, and vis match what is being tracked.
   * Otherwise, return NULL. Preferred over calling the constructor directly, since it doesn't
   * create the object if it doesn't have to.
   */
  public static @Nullable Debug newDebug(Class<?> c, Ppt ppt, VarInfo[] vis) {
    if (logOn() && class_match(c) && ppt_match(ppt) && var_match(vis)) {
      return new Debug(c, ppt, vis);
    } else {
      return null;
    }
  }

  /**
   * Ordinarily, a client would have to supply a Class, Ppt, and {@code List<Varinfo>} with each
   * call to a log method. This constructor sets as defaults c, ppt, and whatever variable (if any)
   * from vis that is on the debugTrackVar list. Essentially this creates a debug object that will
   * print if any of the variables in vis are being tracked (and c and ppt match).
   */
  public Debug(Class<?> c, Ppt ppt, List<VarInfo> vis) {

    VarInfo v = visTracked(vis);
    if (v != null) {
      set(c, ppt, new VarInfo[] {v});
    } else if (vis.size() > 0) {
      set(c, ppt, new VarInfo[] {vis.get(0)});
    } else {
      set(c, ppt, null);
    }
  }

  /**
   * Looks for each of the variables in vis in the DebugTrackVar list. If any match, returns that
   * variable. Returns null if there are no matches.
   */
  public @Nullable VarInfo visTracked(@UnknownInitialization Debug this, List<VarInfo> vis) {

    for (VarInfo v : vis) {
      Set<VarInfo> evars = null;
      if (v.equalitySet != null) {
        evars = v.equalitySet.getVars();
      }
      if (evars != null) {
        for (VarInfo ev : evars) {
          for (int k = 0; k < debugTrackVars.length; k++) {
            if (ev.name().equals(debugTrackVars[k][0])) {
              return v;
            }
          }
        }
      }
    }

    return null;
  }

  private static @Nullable String[] ourvars = new String[3];

  private static final VarInfo[] vis1 = new VarInfo[1];
  private static final VarInfo[] vis2 = new VarInfo[2];
  private static final VarInfo[] vis3 = new VarInfo[3];

  public static VarInfo[] vis(VarInfo v1) {
    vis1[0] = v1;
    return vis1;
  }

  public static VarInfo[] vis(VarInfo v1, VarInfo v2) {
    vis2[0] = v1;
    vis2[1] = v2;
    return vis2;
  }

  public static VarInfo[] vis(VarInfo v1, VarInfo v2, VarInfo v3) {
    vis3[0] = v1;
    vis3[1] = v2;
    vis3[2] = v3;
    return vis3;
  }

  /**
   * Sets the cache for class, ppt, and vis so that future calls to log don't have to set them -- in
   * other words, future calls can use the versions of log with fewer arguments.
   */
  void set(
      @UnknownInitialization Debug this,
      @Nullable Class<?> c,
      @Nullable Ppt ppt,
      VarInfo @Nullable [] vis) {
    cache_class = c;
    cache_ppt = ppt;
    cache_vis = vis;
    if (c == null) {
      System.out.println("Class = null");
    }
    if (ppt == null) {
      System.out.println("ppt = null");
    }
    if (vis == null) {
      System.out.println("vis = null");
    } else {
      for (int i = 0; i < vis.length; i++) {
        if (vis[i] == null) {
          System.out.println("vis[" + i + "] == null");
        }
      }
    }
    cache_match = class_match(c) && ppt_match(ppt) && var_match(vis);
  }

  /**
   * When true, perform detailed internal checking. These are essentially additional, possibly
   * costly assert statements.
   */
  public static boolean dkconfig_internal_check = false;

  /** If true, show stack traces for errors such as file format errors. */
  public static boolean dkconfig_show_stack_trace = false;

  /**
   * Determines whether or not traceback information is printed for each call to log.
   *
   * @see #log(Logger, Class, Ppt, String)
   */
  public static boolean dkconfig_showTraceback = false;

  /**
   * Determines whether or not detailed info (such as from {@code add_modified}) is printed.
   *
   * @see #log(Logger, Class, Ppt, String)
   * @see #logDetail()
   */
  public static boolean dkconfig_logDetail = false;

  /**
   * Returns whether or not detailed logging is on. Note that this check is not performed inside the
   * logging calls themselves, it must be performed by the caller.
   *
   * @see #log(Logger, Class, Ppt, String)
   * @see #logOn()
   */
  public static final boolean logDetail() {
    return dkconfig_logDetail && debugTrack.isLoggable(Level.FINE);
  }

  /**
   * Returns whether or not logging is on.
   *
   * @see #log(Logger, Class, Ppt, String)
   */
  public static final boolean logOn() {
    return debugTrack.isLoggable(Level.FINE);
  }

  /**
   * Logs the cached class, cached ppt, cached variables and the specified msg via the logger as
   * described in {@link #log(Logger, Class, Ppt, VarInfo[], String)}.
   */
  public void log(Logger debug, String msg) {
    if (cache_match) {
      log(debug, cache_class, cache_ppt, cache_vis, msg);
    }
  }

  /**
   * Logs a description of the class, ppt, ppt variables and the specified msg via the logger as
   * described in {@link #log(Logger, Class, Ppt, VarInfo[], String)}.
   */
  public static void log(Logger debug, Class<?> inv_class, @Nullable Ppt ppt, String msg) {
    if (ppt == null) {
      log(debug, inv_class, ppt, null, msg);
    } else {
      log(debug, inv_class, ppt, ppt.var_infos, msg);
    }
  }

  /**
   * Logs a description of the class, ppt, variables and the specified msg via the logger. The
   * class, ppt, and variables are checked against those described in {@link #debugTrackClass},
   * {@link #debugTrackPpt}, and {@link #debugTrackVars}. Only those that match are printed.
   * Variables will match if they are in the same equality set. The information is written as:
   *
   * <p>{@code class: ppt : var1 : var2 : var3 : msg }
   *
   * <p>Note that if {@link #debugTrack} is not enabled then nothing is printed. It is somewhat
   * faster to check {@link #logOn()} directly rather than relying on the check here.
   *
   * <p>Other versions of this method (noted below) work without the Logger parameter and take
   * class, ppt, and vis from the cached values, which were set by the constructor or by the set()
   * method.
   *
   * @param debug a second Logger to query if debug tracking is turned off or does not match. If
   *     this logger is enabled, the same information will be written to it. Note that the
   *     information is never written to both loggers.
   * @param inv_class the class. Can be obtained in a static context by ClassName.class
   * @param ppt program point
   * @param vis variables at the program point. These are sometimes different from the ones in the
   *     ppt itself.
   * @param msg string message to log
   * @see #logOn()
   * @see #logDetail()
   * @see #log(Class, Ppt, VarInfo[], String)
   * @see #log(Class, Ppt, String)
   * @see #log(Logger, String)
   * @see #log(String)
   */
  public static void log(
      Logger debug,
      @Nullable Class<?> inv_class,
      @Nullable Ppt ppt,
      VarInfo @Nullable [] vis,
      String msg) {

    // Try to log via the logger first
    if (log(inv_class, ppt, vis, msg)) {
      return;
    }

    // If debug isn't turned on, there is nothing to do
    if (!debug.isLoggable(Level.FINE)) {
      return;
    }

    // Get the non-qualified class name
    String class_str;
    if (inv_class == null) {
      // when is inv_class null?
      class_str = "null";
    } else {
      @SuppressWarnings("nullness") // getPackage(): invariant class always has a package
      @NonNull String packageName = inv_class.getPackage().getName() + ".";
      class_str = inv_class.getName().replace(packageName, "");
    }

    String vars = "";
    if (vis == null) {
      System.out.println("no var infos");
    } else {

      // Get a string with all of the variable names.  Each is separated by ': '
      // 3 variable slots are always setup for consistency
      for (VarInfo v : vis) {
        vars += v.name() + ": ";
      }
      for (int i = vis.length; i < 3; i++) {
        vars += ": ";
      }
    }

    // Figure out the sample count if possible
    String samp_str = "";
    if (ppt instanceof PptSlice) {
      PptSlice pslice = (PptSlice) ppt;
      samp_str = " s" + pslice.num_samples();
    }

    String line = " line=" + FileIO.get_linenum();

    String name = "ppt is null";
    if (ppt != null) {
      name = ppt.name();
    }

    debug.fine(class_str + ": " + name + samp_str + line + ": " + vars + msg);
    if (dkconfig_showTraceback) {
      Throwable stack = new Throwable("debug traceback");
      stack.fillInStackTrace();
      stack.printStackTrace();
    }
  }

  /**
   * Logs a description of the cached class, ppt, and variables and the specified msg via the logger
   * as described in {@link #log(Logger, Class, Ppt, VarInfo[], String)}
   *
   * @return whether or not it logged anything
   */
  public boolean log(String msg) {
    if (!logOn()) {
      return false;
    }
    return log(cache_class, cache_ppt, cache_vis, msg);
  }

  /**
   * Logs a description of the class, ppt, ppt variables and the specified msg via the logger as
   * described in {@link #log(Logger, Class, Ppt, VarInfo[], String)}.
   *
   * @return whether or not it logged anything
   */
  // 3-argument form
  public static boolean log(
      Class<?> inv_class, @UnknownInitialization(PptTopLevel.class) Ppt ppt, String msg) {

    return log(inv_class, ppt, ppt.var_infos, msg);
  }

  /**
   * Logs a description of the class, ppt, variables and the specified msg via the logger as
   * described in {@link #log(Logger, Class, Ppt, String)}. Accepts vis because sometimes the
   * variables are different from those in the ppt.
   *
   * @param inv_class the class to be logged
   * @param ppt the program point to be logged
   * @param vis the VarInfos for the ppt
   * @param msg the message to be logged
   * @return true if it logged something
   */
  // 4-argument form
  public static boolean log(
      @Nullable Class<?> inv_class,
      @Nullable @UnknownInitialization(PptTopLevel.class) Ppt ppt,
      VarInfo @Nullable [] vis,
      String msg) {

    if (!debugTrack.isLoggable(Level.FINE)) {
      return false;
    }

    // Make sure the class matches
    if (!class_match(inv_class)) {
      return false;
    }

    // Make sure the Ppt matches
    if (!ppt_match(ppt)) {
      return false;
    }

    // Make sure the variables match
    if (!var_match(vis)) {
      return false;
    }

    // Get the non-qualified class name
    String class_str = "null";
    if (inv_class != null) {
      @SuppressWarnings("nullness") // getPackage(): invariant class always has a package
      @NonNull String packageName = inv_class.getPackage().getName() + ".";
      class_str = inv_class.getName().replace(packageName, "");
    }

    // Get a string with all of the variable names.  Each is separated by ': '.
    // 3 variable slots are always setup for consistency.
    String vars = "";
    if (vis != null) {
      int numvars = vis.length;
      for (int i = 0; i < numvars; i++) {
        VarInfo v = vis[i];
        vars += v.name();
        if (ourvars[i] != null) {
          vars += " {" + ourvars[i] + "}";
        }
        vars += ": ";
      }
      for (int i = numvars; i < 3; i++) {
        vars += ": ";
      }
    }

    // Figure out the sample count if possible
    String samp_str = "";
    if (ppt instanceof PptSlice) {
      PptSlice pslice = (PptSlice) ppt;
      samp_str = " s" + pslice.num_samples();
    }

    String line = " line=" + FileIO.get_linenum();

    debugTrack.fine(
        class_str
            + ": "
            + ((ppt == null) ? "null" : ppt.name())
            + samp_str
            + line
            + ": "
            + vars
            + msg);
    if (dkconfig_showTraceback) {
      Throwable stack = new Throwable("debug traceback");
      stack.fillInStackTrace();
      stack.printStackTrace();
    }

    return true;
  }

  /** Returns whether or not the specified class matches the classes being tracked. */
  public static boolean class_match(@Nullable Class<?> inv_class) {

    if ((debugTrackClass.length > 0) && (inv_class != null)) {
      return strContainsElem(inv_class.getName(), debugTrackClass);
    }
    return true;
  }

  /** Returns whether or not the specified ppt matches the ppts being tracked. */
  public static boolean ppt_match(
      @Nullable @UnknownInitialization(daikon.PptTopLevel.class) Ppt ppt) {

    if (debugTrackPpt.length > 0) {
      return (ppt != null) && strContainsElem(ppt.name(), debugTrackPpt);
    }
    return true;
  }

  /**
   * Returns whether or not the specified vars match the ones being tracked. Also, sets
   * Debug.ourvars with the names of the variables matched if they are not the leader of their
   * equality sets.
   */
  public static boolean var_match(VarInfo @Nullable [] vis) {

    if (debugTrackVars.length == 0) {
      return true;
    }
    if (vis == null) {
      return false;
    }

    boolean match = false;

    // Loop through each set of specified debug variables.
    outer:
    for (String[] cv : debugTrackVars) {
      if (cv.length != vis.length) {
        continue;
      }
      for (int j = 0; j < ourvars.length; j++) {
        ourvars[j] = null;
      }

      // Flags to insure that we don't match a variable more than once
      boolean[] used = {false, false, false};

      // Loop through each variable in this set of debug variables
      for (int j = 0; j < cv.length; j++) {
        boolean this_match = false;

        // Loop through each variable at this point
        eachvis:
        for (int k = 0; k < vis.length; k++) {

          // Get the matching equality set
          Set<VarInfo> evars = null;
          if (vis[k].equalitySet != null) {
            evars = vis[k].equalitySet.getVars();
          }

          // If there is an equality set
          if ((evars != null) && vis[k].isCanonical()) {

            // Loop through each variable in the equality set
            for (VarInfo v : evars) {
              if (!used[k] && (cv[j].equals("*") || cv[j].equals(v.name()))) {
                used[k] = true;
                this_match = true;
                if (!cv[j].equals(vis[j].name())) {
                  ourvars[j] = v.name();
                  if (j != k) {
                    ourvars[j] += " (" + j + "/" + k + ")";
                  }
                  if (v.isCanonical()) {
                    ourvars[j] += " (Leader)";
                  }
                }
                break eachvis;
              }
            }
          } else { // sometimes, no equality set
            if (cv[j].equals("*") || cv[j].equals(vis[k].name())) {
              this_match = true;
            }
          }
        }
        if (!this_match) {
          continue outer;
        }
      }
      match = true;
      break outer;
    }

    return match;
  }

  /** Looks for an element in arr that is a substring of str. */
  private static boolean strContainsElem(String str, String[] arr) {

    for (String elt : arr) {
      if (str.indexOf(elt) >= 0) {
        return true;
      }
    }
    return false;
  }

  /**
   * Looks through entire ppt tree and checks for any items we are interested in. If found, prints
   * them out.
   */
  public static void check(PptMap all_ppts, String msg) {

    boolean found = false;

    for (PptTopLevel ppt : all_ppts.ppt_all_iterable()) {
      if (ppt_match(ppt)) {
        debugTrack.fine("Matched ppt '" + ppt.name() + "' at " + msg);
      }
      for (PptSlice slice : ppt.views_iterable()) {
        for (int k = 0; k < slice.invs.size(); k++) {
          Invariant inv = slice.invs.get(k);
          if (inv.log("%s: found #%s=%s in slice %s", msg, k, inv.format(), slice)) {
            found = true;
          }
        }
      }
    }
    if (!found) {
      debugTrack.fine("Found no points at '" + msg + "'");
    }
  }

  /** Returns a string containing the integer variables and their values. */
  public static String int_vars(PptTopLevel ppt, ValueTuple vt) {

    String out = "";

    for (VarInfo v : ppt.var_infos) {
      if (!v.isCanonical()) {
        continue;
      }
      if (v.file_rep_type != ProglangType.INT) {
        continue;
      }
      out += v.name() + "=" + toString(v.getValueOrNull(vt)) + " [" + vt.getModified(v) + "]: ";
    }
    return out;
  }

  /**
   * Returns a string containing the variable values for any variables that are currently being
   * tracked in ppt. The string is of the form 'v1 = val1: v2 = val2, etc.
   */
  public static String related_vars(PptTopLevel ppt, ValueTuple vt) {

    String out = "";

    for (VarInfo v : ppt.var_infos) {
      for (String[] cv : debugTrackVars) {
        for (String cv_elt : cv) {
          if (cv_elt.equals(v.name())) {
            Object val = v.getValue(vt);
            int mod = vt.getModified(v);
            out += v.name() + "=";
            out += toString(val);
            if ((mod == ValueTuple.MISSING_FLOW) || (mod == ValueTuple.MISSING_NONSENSICAL)) {
              out += " (missing)";
            }
            if (v.missingOutOfBounds()) {
              out += " (out of bounds)";
            }
            if (v.equalitySet != null) {
              if (!v.isCanonical()) {
                out += " (leader=" + v.canonicalRep().name() + ")";
              }
            }
            // out += " mod=" + mod;
            out += ": ";
          }
        }
      }
    }

    return out;
  }

  /** Like Object.toString(), but handles null, and has special handling for arrays. */
  public static String toString(@Nullable Object val) {
    if (val == null) {
      return "none";
    }
    if (val instanceof String) {
      return "\"" + val + "\"";
    }
    if (val instanceof VarInfo[]) {
      return Arrays.toString((VarInfo[]) val);
    }
    if (val instanceof String[]) {
      return Arrays.toString((String[]) val);
    }
    if (val instanceof boolean[]) {
      return Arrays.toString((boolean[]) val);
    }
    if (val instanceof byte[]) {
      return Arrays.toString((byte[]) val);
    }
    if (val instanceof char[]) {
      return Arrays.toString((char[]) val);
    }
    if (val instanceof double[]) {
      return Arrays.toString((double[]) val);
    }
    if (val instanceof float[]) {
      return Arrays.toString((float[]) val);
    }
    if (val instanceof int[]) {
      return Arrays.toString((int[]) val);
    }
    if (val instanceof long[]) {
      return Arrays.toString((long[]) val);
    }
    if (val instanceof short[]) {
      return Arrays.toString((short[]) val);
    }
    return val.toString();
  }

  /**
   * Returns a string containing each variable and its value.
   *
   * <p>The string is of the form "v1 = val1: v2 = val2, ...".
   */
  public static String toString(VarInfo[] vis, ValueTuple vt) {

    StringBuilder out = new StringBuilder();

    for (VarInfo v : vis) {
      Object val = v.getValue(vt);
      // int mod = vt.getModified(v);
      out.append(v.name());
      out.append("=");
      out.append(toString(val));
      if (v.isMissing(vt)) {
        out.append(" (missing)");
      }
      if (v.missingOutOfBounds()) {
        out.append(" (out of bounds)");
      }
      if (v.equalitySet != null) {
        if (!v.isCanonical()) {
          out.append(" (leader=" + v.canonicalRep().name() + ")");
        }
      }
      out.append(": ");
    }

    return out.toString();
  }

  /**
   * Parses the specified argument to {@code --track} and sets up the track arrays accordingly. The
   * syntax of the argument is
   *
   * <pre>{@code class|class|...<var,var,var>@ppt}</pre>
   *
   * As shown, multiple class arguments can be specified separated by pipe symbols (|). The
   * variables are specified in angle brackets ({@code <>}) and the program point is preceeded by an
   * at sign (@). Each is optional and can be left out. The add_track routine can be called multiple
   * times. An invariant that matches any of the specifications will be tracked.
   */
  public static @Nullable String add_track(String def) {

    String classes = null;
    String vars = null;
    String ppt = null;

    // Get the classes, vars, and ppt
    int var_start = def.indexOf('<');
    int ppt_start = def.indexOf("@");
    if ((var_start == -1) && (ppt_start == -1)) {
      classes = def;
    } else if (var_start != -1) {
      if (var_start > 0) {
        classes = def.substring(0, var_start);
      }
      if (ppt_start == -1) {
        vars = def.substring(var_start + 1, def.length() - 1);
      } else {
        vars = def.substring(var_start + 1, ppt_start - 1);
        ppt = def.substring(ppt_start + 1, def.length());
      }
    } else {
      if (ppt_start > 0) {
        classes = def.substring(0, ppt_start);
      }
      ppt = def.substring(ppt_start + 1, def.length());
    }

    // If classes were specified, get each class
    if (classes != null) {
      String[] class_arr = classes.split("\\|");
      debugTrackClass = ArraysPlume.concat(debugTrackClass, class_arr);
    }

    // If vars were specified, get each var
    if (vars != null) {
      String[] var_arr = vars.split(", *");
      String[][] new_var = new String[debugTrackVars.length + 1][];
      for (int ii = 0; ii < debugTrackVars.length; ii++) {
        new_var[ii] = debugTrackVars[ii];
      }
      new_var[debugTrackVars.length] = var_arr;
      debugTrackVars = new_var;
    }

    // if a ppt was specified, add it to the array of tracked ppts
    if (ppt != null) {
      String[] newPpt = new String[] {ppt};
      debugTrackPpt = ArraysPlume.concat(debugTrackPpt, newPpt);
    }

    System.out.println();
    debugTrack.fine("After --track: " + def);
    debugTrack.fine("Track Classes: " + ArraysPlume.toString(debugTrackClass, false));
    String vars_out = "";
    for (int ii = 0; ii < debugTrackVars.length; ii++) {
      vars_out += Arrays.toString(debugTrackVars[ii]) + " ";
    }
    debugTrack.fine("Track Vars: " + vars_out);
    debugTrack.fine("Track Ppts: " + ArraysPlume.toString(debugTrackPpt, false));

    return null;
  }
}