[jarrg-ian.git] / src / net / chiark / yarrg / MarketUploader.java

package net.chiark.yarrg;

import java.awt.*;
import java.awt.event.*;

import javax.accessibility.*;
import javax.swing.*;

import com.sun.java.accessibility.util.*;

import java.util.*;
import java.io.*;
import java.util.*;
import java.net.URL;
import org.w3c.dom.*;
import javax.xml.parsers.DocumentBuilderFactory;
import org.xml.sax.InputSource;
import java.util.zip.GZIPOutputStream;
import net.chiark.yarrg.ClientHttpRequest;
import java.util.regex.*;
import java.util.prefs.Preferences;
import java.beans.*;

/**
*       MarketUploader is a class that handles the uploading of market
*       data from Yohoho! Puzzle Pirates via the Java Accessibility
*       API.
*
*       MarketUploader initializes after the main YPP window has
*       initialized. It provides a simple window with a "Capture
*       Market Data" button displayed.  Upon clicking this button, a
*       progress dialog is displayed, and the data is processed and
*       submitted to the YARRG and PCTB servers. If any errors occur,
*       an error dialog is shown, and processing returns, the button
*       becoming re-enabled.
*/
public class MarketUploader
implements Runnable, TopLevelWindowListener, GUIInitializedListener {
  private JFrame frame = null;
  private Window window = null;
  private JButton findMarket = null;
  private JLabel resultSummary = null;
  private JLabel arbitrageResult = null;
  private int unknownPCTBcommods = 0;
  private long startTime = 0;
  private ProgressMonitor progmon = null;

  private final static String PCTB_LIVE_HOST_URL = "http://pctb.crabdance.com/";
  private final static String PCTB_TEST_HOST_URL = "http://pctb.ilk.org/";
  private String PCTB_HOST_URL;

  // Yarrg protocol parameters
  private final static String YARRG_CLIENTNAME = "jpctb greenend";
  private final static String YARRG_CLIENTVERSION =
            net.chiark.yarrg.Version.version;
  private final static String YARRG_CLIENTFIXES = "bug-094";
  private final static String YARRG_LIVE_URL =
    "http://upload.yarrg.chiark.net/commod-update-receiver";
  private final static String YARRG_TEST_URL =
    "http://upload.yarrg.chiark.net/test/commod-update-receiver";
  private String YARRG_URL;

  private boolean uploadToYarrg;
  private boolean uploadToPCTB;
  private boolean showArbitrage;

  private String islandName = null;
  private String oceanName = null;
  private java.util.concurrent.CountDownLatch latch = null;

  private AccessibleContext sidePanel;
  private HashMap<String,Integer> commodMap;
  public PrintStream dtxt = null;
  private int uploadcounter = 0;

  /*
   * UTILITY METHODS AND SUBCLASSES
   *
   * Useable on any thread.
   *
   */
  private int parseQty(String str) {
    if (str.equals(">1000")) {
      return 1001;
    } else {
      return Integer.parseInt(str);
    }
  }

  private void debuglog(String s) {
    if (dtxt == null) return;
    long now = new Date().getTime();
    dtxt.println("progress "+(now - startTime)+"ms "
                 +Thread.currentThread().getName()+": "+s);
  }

  private void debug_write_stringdata(String what, String data)
  throws FileNotFoundException,IOException {
    if (dtxt==null) return;
    PrintStream strm = new PrintStream(new File("jarrg-debug-"+what));
    strm.print(data);
    strm.close();
  }

  private void debug_write_bytes(String what, byte[] data)
  throws FileNotFoundException,IOException {
    if (dtxt==null) return;
    FileOutputStream strm = new FileOutputStream(new File("jarrg-debug-"+what));
    strm.write(data);
    strm.close();
  }
        
  /**
   *    An abstract market offer, entailing a commodity being bought or sold by
   *    a shoppe, for a certain price in a certain quantity. Not instantiable.
   *
   *    @see Buy
   *    @see Sell
   */
  abstract class Offer {
    public int commodity, price, quantity, shoppe;
    /**
     *  Create an offer from <code>record</code>, determining the shoppe Id from
     *  <code>stallMap</code> and the commodity Id from <code>commodMap</code>.
     *  <code>priceIndex</code> should be the index of the price in the record
     *  (the quantity will be <code>priceIndex + 1</code>).
     *
     *  @param record the record with data to create the offer from
     *  @param stallMap a map containing the ids of the various stalls
     *  @param commodMap a map containing the ids of the various commodities
     *  @param priceIndex the index of the price in the record
     */
    public Offer(ArrayList<String> record, 
                 LinkedHashMap<String,Integer> stallMap, 
                 HashMap<String,Integer> commodMap,
                 int priceIndex) {
      Integer commodId = commodMap.get(record.get(0));
      if(commodId == null) {
        throw new IllegalArgumentException();
      }
      commodity = commodId.intValue();
      price = Integer.parseInt(record.get(priceIndex));
      String qty = record.get(priceIndex+1);
      quantity = parseQty(qty);
      shoppe = stallMap.get(record.get(1)).intValue();
    }
                
    /**
     *  Returns a human-readable version of this offer, useful for debugging
     *  
     *  @return human-readable offer
     */
    public String toString() {
      return "[C:" + commodity + ",$" + price + ",Q:"
        + quantity + ",S:" + shoppe + "]";
    }
  }
        
  /**
   *    An offer from a shoppe or stall to buy a certain quantity of a
   *    commodity for a certain price. If placed in an ordered Set,
   *    sorts by commodity index ascending, then by buy price
   *    descending, and finally by stall id ascending.
   */
  class Buy extends Offer implements Comparable<Buy> {
    /**
     *  Creates a new <code>Buy</code> offer from the given
     *  <code>record</code> using the other parameters to determine
     *  stall id and commodity id of the offer.
     *
     *  @param record the record with data to create the offer from
     *  @param stallMap a map containing the ids of the various stalls
     *  @param commodMap a map containing the ids of the various commodities
     */
    public Buy(ArrayList<String> record,
               LinkedHashMap<String,Integer> stallMap,
               HashMap<String,Integer> commodMap) {
      super(record,stallMap,commodMap,2);
    }
                
    /**
     *  Sorts by commodity index ascending, then price descending,
     *  then stall id ascending.
     */
    public int compareTo(Buy buy) {
      // organize by: commodity index, price, stall index
      if(commodity == buy.commodity) {
        // organize by price, then by stall index
        if(price == buy.price) {
          // organize by stall index
          return shoppe>buy.shoppe ? 1 : -1;
        } else if(price > buy.price) {
          return -1;
        } else {
          return 1;
        }
      } else if(commodity > buy.commodity) {
        return 1;
      } else {
        return -1;
      }
    }
  }
        
  /**
   *    An offer from a shoppe or stall to sell a certain quantity of
   *    a commodity for a certain price. If placed in an ordered Set,
   *    sorts by commodity index ascending, then by sell price
   *    ascending, and finally by stall id ascending.
   */
  class Sell extends Offer implements Comparable<Sell> {
    /**
     *  Creates a new <code>Sell</code> offer from the given
     *  <code>record</code> using the other parameters to determine
     *  stall id and commodity id of the offer.
     *
     *  @param record the record with data to create the offer from
     *  @param stallMap a map containing the ids of the various stalls
     *  @param commodMap a map containing the ids of the various commodities
     */
    public Sell(ArrayList<String> record,
                LinkedHashMap<String,Integer> stallMap,
                HashMap<String,Integer> commodMap) {
      super(record,stallMap,commodMap,4);
    }
                
    /**
     *  Sorts by commodity index ascending, then price ascending, then
     *  stall id ascending.
     */
    public int compareTo(Sell sell) {
      // organize by: commodity index, price, stall index
      if(commodity == sell.commodity) {
        // organize by price, then by stall index
        if(price == sell.price) {
          // organize by stall index
          return shoppe>sell.shoppe ? 1 : -1;
        } else if(price > sell.price) {
          return 1;
        } else {
          return -1;
        }
      } else if(commodity > sell.commodity) {
        return 1;
      } else {
        return -1;
      }
    }
  }

  private void progressNote(final String s_in) throws Exception {
    new UIA() { public void body() {
      String arb = null;
      arb = arbitrageResult.getText();
      String s = s_in;
      if (arb != null && arb.length() != 0)
        s = "<html>" + arb + "<br>" + s;
      progmon.setNote(s);
    }}.exec("progressNote "+s_in);
  }
        
  /*
   * ENTRY POINT AND STARTUP
   *
   * Main thread and/or event thread
   */
  /*
   *    Entry point.  Read our preferences.
   */
  public MarketUploader() {
    Preferences prefs = Preferences.userNodeForPackage(getClass());

    if (prefs.getBoolean("writeDebugFiles", false)) {
      try {
        dtxt = new PrintStream(new File("jarrg-debug-log.txt"));
      } catch (java.io.FileNotFoundException e) {
        System.err.println("JARRG: Error opening debug log: "+e);
      }
    }

    if (prefs.getBoolean("useLiveServers", true)) {
      YARRG_URL = YARRG_LIVE_URL;
      PCTB_HOST_URL = PCTB_LIVE_HOST_URL;
    } else {
      YARRG_URL = YARRG_TEST_URL;
      PCTB_HOST_URL = PCTB_TEST_HOST_URL;
    }
                
    uploadToYarrg=prefs.getBoolean("uploadToYarrg", true);
    uploadToPCTB=prefs.getBoolean("uploadToPCTB", true);
    showArbitrage=prefs.getBoolean("showArbitrage", true);

    debuglog("main on dispatch thread: "+EventQueue.isDispatchThread());
    EventQueue.invokeLater(this);
  }

  /*
   * We arrange to wait for the GUI to be initialised, then look at
   * every top-level window, and if it
   */
  public void run() {
    debuglog("MarketUploader run()...");
    if (EventQueueMonitor.isGUIInitialized()) {
      debuglog("MarketUploader GUI already ready");
      guiInitialized();
    } else {
      debuglog("MarketUploader waiting for GUI");
      EventQueueMonitor.addGUIInitializedListener(this);
    }
  }

  public void guiInitialized() {
    Window ws[]= EventQueueMonitor.getTopLevelWindows();
    EventQueueMonitor.addTopLevelWindowListener(this);
    for (int i=0; i<ws.length; i++) {
      debuglog("MarketUploader existing toplevel "+i);
      topLevelWindowCreated(ws[i]);
    }
  }

  public void topLevelWindowDestroyed(Window w) {
    debuglog("MarketUploader destroyed toplevel");
  }
        
  public void topLevelWindowCreated(Window w) {
    if (frame!=null) 
      // already got it
      return;
    String name = w.getAccessibleContext().getAccessibleName();
    debuglog("MarketUploader checking toplevel "+name);
    if (!name.equals("Puzzle Pirates"))
      return;
    debuglog("MarketUploader found toplevel, creating gui");
    window = w;
    createGUI();
    frame.setVisible(true);
  }
        
  /**
   *    Set up the GUI, with its window and one-button
   *    interface. Only initialize if we're running alongside
   *    a Window named "Puzzle Pirates" though.
   */
  private void createGUI() {
    on_ui_thread();
    frame = new JFrame("Jarrg Uploader");
    frame.setDefaultCloseOperation(JFrame.DISPOSE_ON_CLOSE);
    GridLayout layout = new GridLayout(2,1);
    frame.getContentPane().setLayout(layout);
    //frame.setPreferredSize(new Dimension(200, 60));
                
    findMarket = new JButton("Upload Market Data");
    findMarket.addActionListener(new ActionListener() {
        public void actionPerformed(ActionEvent e) {
          on_ui_thread();
          uploadcounter++;
          findMarket.setEnabled(false);
          resultSummary.setText("");
          arbitrageResult.setText("");
          new Thread("MarketUploader-uploader-"+uploadcounter) {
            public void run() {
              startTime = new Date().getTime();
              unknownPCTBcommods = 0;
              try {
                runUpload(uploadcounter);
              } catch(Exception e) {
                error(e.toString());
                e.printStackTrace();
              }
              try {
                new UIX() { public void body() { 
                  if(sidePanel != null) {
                    sidePanel.removePropertyChangeListener(changeListener);
                  }
                  if (progmon != null) {
                    progmon.close();
                    progmon = null;
                  }
                  findMarket.setEnabled(true);
                }}.exec("tidying");
              } catch (Exception e) {
                System.err.println("exception tidying on UI thread:");
                e.printStackTrace();
              }
            }
          }.start();
        }
      });
    frame.add(findMarket);

    resultSummary = new JLabel("ready");
    frame.add(resultSummary);
                
    arbitrageResult = new JLabel("");

    if (showArbitrage) {
      layout.setRows(layout.getRows() + 1);
      frame.add(arbitrageResult);
    }

    frame.pack();
  }

  /*
   * THREAD HANDLING
   *
   * Special measures are needed because:
   *  - it is not permitted to use any Swing UI classes or objects
   *    other than on the Swing event thread
   *  - we want to run our upload asynchronously
   *  - we want to do some computation asynchronously (eg, the
   *    arbitrage and upload data prep)
   *
   * So what we do is this:
   *  1. When the user asks to upload, we spawn a new thread
   *     to do the upload ("MarketUploader-uploader-*", see
   *     the call to "new Thread" inside createGUI.
   *  2. Whenever that thread needs to touch a UI object it
   *     uses EventQueue.invokeLater or .invokeAndWait to
   *     perform the relevant action.  We wrap these calls up
   *     in three utility classes:
   *        UIA  - runs code on UI thread, asynchronously
   *        UIX  - runs code on UI thread, waits for it to finish
   *        UIXR - as UIX but also returns a value
   *     These hide the details of the EventQueue class and also do
   *     some debugging and argument shuffling; the calling syntax is
   *     still painful, unfortunately, and there is a weird constraint
   *     on variables used inside the inner body.  For a simple
   *     example, see the handling of "summary" and "summary_final"
   *     for the call to UIX at the bottom of runUpload.
   *  3. Try to put everything back when that thread exits.
   *
   * Additionally:
   *  a. There is another thread spawed early to get a timestamp from
   *     YARRG, if we are uploading there.
   *  b. Finding the island name can involve callbacks which run in
   *     the UI event thread.  Basically we do the work there, and use
   *     a CountDownLatch to cause the uploader thread to wait as
   *     appropriate.
   */

  private void on_ui_thread() { assert(EventQueue.isDispatchThread()); }
  private void on_our_thread() { assert(!EventQueue.isDispatchThread()); }

  private abstract class UIA implements Runnable {
    private String what;
    public abstract void body();
    public void run() {
      debuglog("UIA 2 "+what+" begin");
      body();
      debuglog("UIA 3 "+what+" done");
    }
    public void exec(String what_in) {
      what = what_in;
      debuglog("UIA 1 "+what+" request");
      EventQueue.invokeLater(this);
    }
  };
  private abstract class UIXR<ReturnType> implements Runnable {
    public abstract ReturnType bodyr();
    public ReturnType return_value;
    private String what;
    public void run() { 
      debuglog("UIX 2 "+what+" begin");
      return_value = bodyr();
      debuglog("UIX 3 "+what+" done");
    }
    public ReturnType exec(String what_in) throws Exception {
      what = what_in;
      if (EventQueue.isDispatchThread()) {
        debuglog("UIX 1 "+what+" (event thread) entry");
        this.run();
        debuglog("UIX 4 "+what+" (event thread) exit");
      } else {
        debuglog("UIX 1 "+what+" (other thread) entry");
        EventQueue.invokeAndWait(this);
        debuglog("UIX 4 "+what+" (other thread) exit");
      }
      return return_value;
    }
  };
  private abstract class UIX extends UIXR<Object> implements Runnable {
    public abstract void body();
    public Object bodyr() { body(); return null; }
  };

  /*
   * ERROR REPORTING AND GENERAL UTILITIES
   *
   * Synchronous modal dialogues
   * error and error_html may be called from any thread
   */ 

  private void error(final String msg) {
    try {
      new UIX() { public void body() {
        resultSummary.setText("failed");
        JOptionPane.showMessageDialog(frame,msg,"Error",
                                      JOptionPane.ERROR_MESSAGE);
      }}.exec("error()");
    } catch (Exception e) {
      System.err.println("exception reporting to UI thread:");
      e.printStackTrace();
    }
  }
        
  private void error_html(final String msg, String html) {
    Pattern body = Pattern.compile("<body>(.*)</body>",
                                   Pattern.DOTALL | Pattern.CASE_INSENSITIVE);
    Matcher m = body.matcher(html);
    if (m.find()) {
      html = m.group(1);
      Pattern fixup = Pattern.compile("<(\\w+) */>");;
      m = fixup.matcher(html);
      html = m.replaceAll("<$1>");
      m = Pattern.compile("[\\r\\n]+").matcher(html);
      html = m.replaceAll(" ");
    }
    String whole_msg = "<html><h1>Error</h1>"+msg
      +"<h1>PCTB Server said:</h1><blockquote>"+html+"</blockquote>";
    debuglog("###" + whole_msg + "###");
  
    error(whole_msg);
  }

  private void setProgress(final int nv) throws Exception {
    new UIA() { public void body() {
      progmon.setProgress(nv);
    }}.exec("setProgress "+nv);
  }
  private boolean checkCancelled() throws Exception {
    return new UIXR<Boolean>() { public Boolean bodyr() {
      boolean can = progmon.isCanceled();
      if (can) resultSummary.setText("cancelled");
      return new Boolean(can);
    }}.exec("checkCancelled").booleanValue();
  }
        
  /*
   * GUI MANIPULATION CALLBACKS
   */

  private PropertyChangeListener changeListener = new PropertyChangeListener() {
    public void propertyChange(PropertyChangeEvent e) {
      on_ui_thread();
      if(e.getNewValue() != null && 
         e.getPropertyName().equals
         (AccessibleContext.ACCESSIBLE_CHILD_PROPERTY)) {
        Accessible islandInfo =
          descendNodes(window,new int[] {0,1,0,0,2,2,0,0,0,0,1,2});;
        String text = islandInfo.getAccessibleContext().getAccessibleText()
          .getAtIndex(AccessibleText.SENTENCE,0);
        int index = text.indexOf(":");
        String name = text.substring(0,index);
        islandName = name;
        // debuglog(islandName);
        sidePanel.removePropertyChangeListener(this);
        latch.countDown();
      }
    }
  };

  private void getIsland() {
    on_ui_thread();

    // If the league tracker is there, we can skip the faff
    // and ask for its tooltip, since we're on a boat

    Accessible leagueTrackerContainer =
      descendNodes(window,new int[] {0,1,0,0,2,1});
    Accessible leagueTrackerItself =
      descendByClass(leagueTrackerContainer,
                     "com.threerings.yohoho.sea.client.LeagueTracker");
    Accessible leagueTracker = descend(leagueTrackerItself, 1);
    try {
      islandName = ((JLabel)leagueTracker).getToolTipText();
    } catch (NullPointerException e) {
      // evidently we're actually on an island

      islandName = null;
      AccessibleContext chatArea =
        descendNodes(window,new int[] {0,1,0,0,0,2,0,0,2})
        .getAccessibleContext();
      // attach the property change listener to the outer sunshine
      // panel if the "ahoy" tab is not active, otherwise attach it to
      // the scroll panel in the "ahoy" tab.
      if(!"com.threerings.piracy.client.AttentionListPanel".
         equals(descendNodes(window,new int[] {0,1,0,0,2,2,0})
                .getClass().getCanonicalName())) {
        sidePanel = descendNodes(window,new int[] {0,1,0,0,2,2})
          .getAccessibleContext();
      } else {
        sidePanel = descendNodes(window,new int[] {0,1,0,0,2,2,0,0,0})
          .getAccessibleContext();
      }
      sidePanel.addPropertyChangeListener(changeListener);
      latch = new java.util.concurrent.CountDownLatch(1);
      // make the Players Online ("/who") panel appear
      AccessibleEditableText chat = chatArea.getAccessibleEditableText();
      chat.setTextContents("/w");
      int c = chatArea.getAccessibleAction().getAccessibleActionCount();
      for(int i=0;i<c;i++) {
        if("notify-field-accept".equals(chatArea.getAccessibleAction()
                                        .getAccessibleActionDescription(i))) {
          chatArea.getAccessibleAction().doAccessibleAction(i);
        }
      }
    }
  }

  /**
   *      Find the ocean name from the window title, and set global
   *      oceanName variable
   */
  private void getOcean() {
    on_ui_thread();
    oceanName = null;
    AccessibleContext topwindow = window.getAccessibleContext();
    oceanName = topwindow.getAccessibleName()
      .replaceAll(".*on the (\\w+) ocean", "$1");
  }


  /**
   *    Run the data collection process, and upload the results. This
   *    is the method that calls most of the other worker methods for
   *    the process. If an error occurs, the method will call the
   *    error method and return early, freeing up the button to be
   *    clicked again.
   *
   *    @exception Exception if an error we didn't expect occured
   */
  private class YarrgTimestampFetcher extends Thread {
    public YarrgTimestampFetcher(int counter) {
      super("MarketUploader-YarrgTimestampFetcher-"+uploadcounter);
    }
    public String ts = null;
    public void run() {
      try {
        ts = getYarrgTimestamp();
        debuglog("(async) yarrg timestamp ready.");
      } catch(Exception e) {
        error("Error getting YARRG timestamp: "+e);
      }
    }
  };

  private void runUpload(int counter) throws Exception {
    on_our_thread();

    boolean doneyarrg = false, donepctb = false;
    YarrgTimestampFetcher yarrgts_thread = null;

    debuglog("starting");

    if (uploadToYarrg) {
      debuglog("(async) yarrg timestamp...");
      yarrgts_thread = new YarrgTimestampFetcher(counter);
      yarrgts_thread.start();
    }

    final AccessibleTable accesstable = 
    new UIXR<AccessibleTable>() { public AccessibleTable bodyr() {
      progmon = new ProgressMonitor
        (frame,"Processing Market Data","Getting table data",0,100);
      progmon.setMillisToDecideToPopup(0);
      progmon.setMillisToPopup(0);

      AccessibleTable at = findMarketTable();
      if(at == null) {
        error("Market table not found!"+
              " Please open the Buy/Sell Commodities interface.");
        return null;
      }
      if(at.getAccessibleRowCount() == 0) {
        error("No data found, please wait for the table to have data first!");
        return null;
      }
      if(!isDisplayAll()) {
        error("Please select \"All\" from the Display: popup menu.");
        return null;
      }

      debuglog("(async) getisland...");
      getIsland();
      debuglog("getocean...");
      getOcean();
      debuglog("getocean done");

      return at;
    }}.exec("accesstable");
    if (accesstable == null) return;

    if (latch != null) {
      latch.await(2, java.util.concurrent.TimeUnit.SECONDS);
    }
    debuglog("(async) getisland done");

    String yarrgts = null;
    if (yarrgts_thread != null) {
      debuglog("(async) yarrg timestamp join...");
      yarrgts_thread.join();
      debuglog("(async) yarrg timestamp joined.");
      yarrgts = yarrgts_thread.ts;
    }

    if (islandName == null) {
      error("Could not find island name in YPP user interface.");
      return;
    }

    debuglog("table check...");

    final ArrayList<ArrayList<String>> data =
    new UIXR<ArrayList<ArrayList<String>>>
          () { public ArrayList<ArrayList<String>> bodyr() {
      String headings_expected[] = new String[]
        { "Commodity", "Trading outlet", "Buy price",
          "Will buy", "Sell price", "Will sell" };

      ArrayList<ArrayList<String>> headers =
        getData(accesstable.getAccessibleColumnHeader());
      if (headers.size() != 1) {
        error("Table headings not one row! " + headers.toString());
        return null;
      }
      if (headers.get(0).size() < 6 ||
          headers.get(0).size() > 7) {
        error("Table headings not six or seven columns! " + headers.toString());
        return null;
      }
      for (int col=0; col<headings_expected.length; col++) {
        String expd = headings_expected[col];
        String got = headers.get(0).get(col);
        if (expd.compareTo(got) != 0) {
          error("Table heading for column "+col
                +" is not \""+expd+"\" but \""+got+"\".\n\n"
                +"Please do not reorder the table when using this tool.");
          return null;
        }
      }

      debuglog("table read...");

      return getData(accesstable);
    }}.exec("data");
    if (data == null) return;

    if (showArbitrage) {
      debuglog("arbitrage...");
      calculateArbitrage(data);
      debuglog("arbitrage done.");
    }

    if (uploadToYarrg && yarrgts != null) {
      debuglog("yarrg prepare...");
      progressNote("Yarrg: Preparing data");
      setProgress(10);

      StringBuilder yarrgsb = new StringBuilder();
      String yarrgdata; // string containing what we'll feed to yarrg
                
      for (ArrayList<String> row : data) {
        if (row.size() > 6) {
          row.remove(6);
        }
        for (String rowitem : row) {
          yarrgsb.append(rowitem != null ? rowitem : "");
          yarrgsb.append("\t");
        }
        yarrgsb.setLength(yarrgsb.length()-1); // chop
        yarrgsb.append("\n");
      }

      yarrgdata = yarrgsb.toString();

      progressNote("Yarrg: Uploading");
      debuglog("yarrg upload...");

      doneyarrg = runYarrg(yarrgts, oceanName, islandName, yarrgdata);
      debuglog("yarrg done.");
    }

    if (uploadToPCTB) {
      debuglog("pctb prepare...");
      progressNote("PCTB: Getting stall names");
      setProgress(20);
      if(checkCancelled()) {
        return;
      }
      TreeSet<Offer> buys = new TreeSet<Offer>();
      TreeSet<Offer> sells = new TreeSet<Offer>();
      LinkedHashMap<String,Integer> stallMap = getStallMap(data);
      setProgress(40);
      progressNote("PCTB: Sorting offers");
      if(checkCancelled()) {
        return;
      }
      // get commod map
                
      debuglog("pctb commodmap...");
      HashMap<String,Integer> commodMap = getCommodMap();
      if(commodMap == null) {
        return;
      }
      debuglog("pctb commodmap done.");
      int[] offerCount = getBuySellMaps(data,buys,sells,stallMap,commodMap);
      // debuglog(sells);
      // debuglog("\n\n\n"+buys);

      ByteArrayOutputStream outStream = new ByteArrayOutputStream();
      setProgress(60);
      progressNote("PCTB: Sending data");
      if(checkCancelled()) {
        return;
      }
      GZIPOutputStream out = new GZIPOutputStream(outStream);
      DataOutputStream dos = new DataOutputStream(out);
      dos.writeBytes("005y\n");
      dos.writeBytes(stallMap.size()+"\n");
      dos.writeBytes(getAbbrevStallList(stallMap));
      writeBuySellOffers(buys,sells,offerCount,out);
      out.finish();
      debuglog("pctb send...");

      byte[] ba = outStream.toByteArray();
      debug_write_bytes("pctb-marketdata.gz", ba);

      InputStream in = sendInitialData(new ByteArrayInputStream(ba));
      debuglog("pctb sent.");
      if (in == null) return;
      setProgress(80);
      if(checkCancelled()) {
        return;
      }
      progressNote("PCTB: Waiting ...");
      debuglog("pctb finish...");
      donepctb = finishUpload(in);
      debuglog("pctb done.");
    }
    setProgress(99);

    String summary;
    if ((uploadToPCTB && !donepctb) ||
        (uploadToYarrg && !doneyarrg)) {
      summary= "trouble";
    } else if (unknownPCTBcommods != 0) {
      summary= "PCTB lacks "+unknownPCTBcommods+" commod(s)";
    } else if (donepctb || doneyarrg) {
      summary= "Done " + islandName;
    } else {
      summary= "uploaded nowhere!";
    }
    final String summary_final = summary;
    new UIX() { public void body() {
      resultSummary.setText(summary_final);
    }}.exec("resultSummary.setText");

    debuglog("done.");
  }
        
  /**
   *    Get the offer data out of the table and cache it in an
   *    <code>ArrayList</code>.
   *    
   *    @param table the <code>AccessibleTable</code> containing the market data
   *    @return an array of record arrays, each representing a row of the table
   */
  private ArrayList<ArrayList<String>> getData(AccessibleTable table) {
    on_ui_thread();
    ArrayList<ArrayList<String>> data = new ArrayList<ArrayList<String>>();
    for (int i = 0; i < table.getAccessibleRowCount(); i++) {
      ArrayList<String> row = new ArrayList<String>();
      for (int j = 0; j < table.getAccessibleColumnCount(); j++) {
        row.add(table.getAccessibleAt(i, j)
                .getAccessibleContext().getAccessibleName());
      }
      data.add(row);
    }
    return data;
  }
        
  /**
   *    @return the table containing market data if it exists,
   *    otherwise <code>null</code>
   */
  public AccessibleTable findMarketTable() {
    on_ui_thread();
    Accessible node1 = window;
    Accessible node = descendNodes(node1,new int[] {0,1,0,0,0,0,1,0,0,1,0,0}); 
      // commod market
    // commod market: {0,1,0,0,0,0,1,0,0,1,0}  {0,1,0,0,0,0,1,0,1,0,0,1,0,0})
    // debuglog(node);
    if (!(node instanceof JTable)) {
      node = descendNodes(node1,new int[] {0,1,0,0,0,0,1,0,1,0,0,1,0,0});
        // commod market
    }
    if (!(node instanceof JTable)) return null;
    AccessibleTable table = node.getAccessibleContext().getAccessibleTable();
    // debuglog(table);
    return table;
  }
        
  /**
   *    Utility method to descend through several levels of Accessible children
   *    at once.
   *
   *    @param parent the node on which to start the descent
   *    @param path an array of ints, each int being the index of the next
   *    accessible child to descend.
   *    @return the <code>Accessible</code> reached by following the
   *    descent path, or <code>null</code> if the desired path was
   *    invalid.
   */
  private Accessible descendNodes(Accessible parent, int[] path) {
    on_ui_thread();
    for(int i=0;i<path.length;i++) {
      if (null == (parent = descend(parent, path[i]))) return null;
    }
    return parent;
  }
        
  /**
   *    Descends one level to the specified child of the parent
   *    <code>Accessible</code> "node".
   *    
   *    @param parent the node with children
   *    @param childNum the index of the child of <code>parent</code> to return
   *    @return the <code>childNum</code> child of <code>parent</code>
   *    or <code>null</code> if the child is not found.
   */
  private Accessible descend(Accessible parent, int childNum) {
    on_ui_thread();
    if (parent == null) return null;
    int children = parent.getAccessibleContext().getAccessibleChildrenCount();
    if (childNum >= children) {
      debuglog("DESCEND "+childNum+" > "+children+" NOT FOUND");
      return null;
    }
    Accessible child = parent.getAccessibleContext()
      .getAccessibleChild(childNum);
    debuglog("DESCEND "+childNum+" "+child.getClass().getName()+" OK");
    return child;
  }

  /**
   *    Descends one level to the child which has the specified class.
   *    
   *    @param parent the node with children
   *    @param classname the name of the class, as a string
   *    @return the child or <code>null</code> if the child is not found.
   */
  private Accessible descendByClass(Accessible parent, String classname) {
    on_ui_thread();
    if (parent == null) return null;
    AccessibleContext ac = parent.getAccessibleContext();
    int children = ac.getAccessibleChildrenCount();
    for (int i=0; i<children; i++) {
      Accessible child = ac.getAccessibleChild(i);
      if (child.getClass().getName() == classname) {
        debuglog("DESCEND CLASS "+classname+" OK");
        return child;
      }
    }
    debuglog("DESCEND CLASS "+classname+" NOT FOUND");
    return null;
  }

  public static void main(String[] args) {
    new MarketUploader();
  }

  /**
   *    Returns true if the "Display:" menu on the commodities
   *    interface in YPP is set to "All"
   *
   *    @return <code>true</code> if all commodities are displayed,
   *    otherwise <code>false</code>
   */
  private boolean isDisplayAll() {
    on_ui_thread();
    Accessible button = descendNodes(window,new int[] {0,1,0,0,0,0,1,0,0,0,1});
    if(!(button instanceof JButton)) {
      button = descendNodes(window,new int[] {0,1,0,0,0,0,1,0,1,0,0,0,1});
    }
    String display = button.getAccessibleContext().getAccessibleName();
    if(!display.equals("All")) {
      return false;
    }
    return true;
  }
        
  /**
   *    Gets the list of commodities and their associated commodity ids.
   *
   *    @return a map where the key is the commodity and the value is
   *    the commodity id.
   */
  private HashMap<String,Integer> getCommodMap() {
    on_our_thread();
    if(commodMap != null) {
      return commodMap;
    }
    HashMap<String,Integer> map = new HashMap<String,Integer>();
    String xml;
    try {
      URL host = new URL(PCTB_HOST_URL + "commodmap.php");
      BufferedReader br =
        new BufferedReader(new InputStreamReader(host.openStream()));
      StringBuilder sb = new StringBuilder();
      String str;
      while((str = br.readLine()) != null) {
        sb.append(str);
      }
      if (dtxt != null)
        debug_write_stringdata("pctb-commodmap.xmlish", sb.toString());
      int first = sb.indexOf("<pre>") + 5;
      int last = sb.indexOf("</body>");
      xml = sb.substring(first,last);
      Reader reader = new CharArrayReader(xml.toCharArray());
      Document d = DocumentBuilderFactory.newInstance()
        .newDocumentBuilder().parse(new InputSource(reader));
      NodeList maps = d.getElementsByTagName("CommodMap");
      for(int i=0;i<maps.getLength();i++) {
        NodeList content = maps.item(i).getChildNodes();
        Integer num = Integer.parseInt(content.item(1).getTextContent());
        map.put(content.item(0).getTextContent(),num);
      }
    } catch(Exception e) {
      e.printStackTrace();
      error("Unable to load Commodity list from server!");
      return null;
    }
    commodMap = map;
    return map;
  }
        
  /**
   *    Given the list of offers, this method will find all the unique
   *    stall names and return them in a <code>LinkedHashMap</code>
   *    where the key is the stall name and the value is the generated
   *    stall id (position in the list).  <p> The reason this method
   *    returns a LinkedHashMap instead of a simple HashMap is the
   *    need for iterating over the stall names in insertion order for
   *    output to the server.
   *
   *    @param offers the list of records from the commodity buy/sell interface
   *    @return an iterable ordered map of the stall names and
   *    generated stall ids
   */
  private LinkedHashMap<String,Integer> getStallMap
    (ArrayList<ArrayList<String>> offers) {
    int count = 0;
    LinkedHashMap<String,Integer> map = new LinkedHashMap<String,Integer>();
    for(ArrayList<String> offer : offers) {
      String shop = offer.get(1);
      if(!map.containsKey(shop)) {
        count++;
        map.put(shop,count);
      }
    }
    return map;
  }
        
  /**
   *    Gets a sorted list of Buys and Sells from the list of
   *    records. <code>buys</code> and <code>sells</code> should be
   *    pre-initialized and passed into the method to receive the
   *    data.  Returns a 2-length int array with the number of buys
   *    and sells found.
   *    
   *    @param offers the data found from the market table in-game
   *    @param buys an empty initialized <code>TreeSet&lt;Offer&gt;</code> to
   *    hold the Buy offers.
   *    @param sells an empty initialized <code>TreeSet&lt;Offer&gt;</code> to
   *    hold the Sell offers.
   *    @param stalls the map of stalls to their ids
   *    @param commodMap the map of commodities to their ids
   *    @return a 2-length int[] array containing the number of buys
   *    and sells, respectively
   */
  private int[] getBuySellMaps(ArrayList<ArrayList<String>> offers, 
                               TreeSet<Offer> buys, 
                               TreeSet<Offer> sells, 
                               LinkedHashMap<String,Integer> stalls, 
                               HashMap<String,Integer> commodMap) {
    int[] buySellCount = new int[2];
    for(ArrayList<String> offer : offers) {
      try {
        if(offer.get(2) != null) {
          buys.add(new Buy(offer,stalls,commodMap));
          buySellCount[0]++;
        }
        if(offer.get(4) != null) {
          sells.add(new Sell(offer,stalls,commodMap));
          buySellCount[1]++;
        }
      } catch(IllegalArgumentException e) {
        unknownPCTBcommods++;
        debuglog("Error: Unsupported Commodity \"" + offer.get(0) + "\"");
      }
    }
    if (buySellCount[0]==0 && buySellCount[1]==0) {
      error("No (valid) offers for PCTB?!");
      throw new IllegalArgumentException();
    }
    return buySellCount;
  }
        
  /**
   *    Prepares the list of stalls for writing to the output stream.
   *    The <code>String</code> returned by this method is ready to be
   *    written directly to the stream.  <p> All shoppe names are left
   *    as they are. Stall names are abbreviated just before the
   *    apostrophe in the possessive, with an "^" and a letter
   *    matching the stall's type appended. Example: "Burninator's
   *    Ironworking Stall" would become "Burninator^I".
   *
   *    @param stallMap the map of stalls and stall ids in an iterable order
   *    @return a <code>String</code> containing the list of stalls in
   *    format ready to be written to the output stream.
   */
  private String getAbbrevStallList(LinkedHashMap<String,Integer> stallMap) {
    // set up some mapping
    HashMap<String,String> types = new HashMap<String,String>();
    types.put("Apothecary Stall", "A");
    types.put("Distilling Stall", "D");
    types.put("Furnishing Stall", "F");
    types.put("Ironworking Stall", "I");
    types.put("Shipbuilding Stall", "S");
    types.put("Tailoring Stall", "T");
    types.put("Weaving Stall", "W");
                
    StringBuilder sb = new StringBuilder();
    for(String name : stallMap.keySet()) {
      int index = name.indexOf("'s");
      String finalName = name;
      String type = null;
      if (index > 0) {
        finalName = name.substring(0,index);
        if(index + 2 < name.length()) {
          String end = name.substring(index+2,name.length()).trim();
          type = types.get(end);
        }
      }
      if(type==null) {
        sb.append(name+"\n");
      } else {
        sb.append(finalName+"^"+type+"\n");
      }
    }
    return sb.toString();
  }
        
  /**
   *    Writes a list of offers in correct format to the output stream.
   *    <p>
   *    The format is thus: (all numbers are 2-byte integers in
   *    little-endian format) (number of offers of this type, aka
   *    buy/sell) (commodity ID) (number of offers for this commodity)
   *    [shopID price qty][shopID price qty]...
   *
   *    @param out the output stream to write the data to
   *    @param offers the offers to write
   */
  private void writeOffers(OutputStream out, TreeSet<Offer> offers)
  throws IOException {
    ByteArrayOutputStream buffer = new ByteArrayOutputStream();
    if(offers.size() == 0) {
      // nothing to write, and "0" has already been written
      return;
    }
    int commodity = offers.first().commodity;
    int count = 0;
    for(Offer offer : offers) {
      if(commodity != offer.commodity) {
        // write out buffer
        writeBufferedOffers(out,buffer.toByteArray(),commodity,count);
        buffer.reset();
        commodity = offer.commodity;
        count = 0;
      }
      writeLEShort(offer.shoppe,buffer); // stall index
      writeLEShort(offer.price,buffer); // buy price
      writeLEShort(offer.quantity,buffer); // buy qty
      count++;
    }
    writeBufferedOffers(out,buffer.toByteArray(),commodity,count);
  }
        
  /**
   *    Writes the buffered data to the output strea for one commodity.
   *    
   *    @param out the stream to write to
   *    @param buffer the buffered data to write
   *    @param commodity the commmodity id to write before the buffered data
   *    @param count the number of offers for this commodity to write
   *    before the data
   */
  private void writeBufferedOffers(OutputStream out, byte[] buffer, 
                                   int commodity, int count)
  throws IOException {
    writeLEShort(commodity,out); // commod index
    writeLEShort(count,out); // offer count
    out.write(buffer); // the buffered offers
  }
        
  /**
   *    Writes the buy and sell offers to the outputstream by calling
   *    other methods.
   *    
   *    @param buys list of Buy offers to write
   *    @param sells list of Sell offers to write
   *    @param offerCount 2-length int array containing the number of
   *    buys and sells to write out
   *    @param out the stream to write to
   */
  private void writeBuySellOffers(TreeSet<Offer> buys,
                                  TreeSet<Offer> sells,
                                  int[] offerCount, OutputStream out) 
  throws IOException {
    // # buy offers
    writeLEShort(offerCount[0],out);
    writeOffers(out,buys);
    // # sell offers
    writeLEShort(offerCount[1],out);
    writeOffers(out,sells);
  }
        
  private String readstreamstring(InputStream in) throws IOException {
    StringBuilder sb = new StringBuilder();
    BufferedReader br = new BufferedReader(new InputStreamReader(in));
    String str;
    while((str = br.readLine()) != null) {
      sb.append(str+"\n");
    }
    return sb.toString();
  }

  /**
   *    Sends the data to the server via multipart-formdata POST,
   *    with the gzipped data as a file upload.
   *
   *    @param file an InputStream open to the gzipped data we want to send
   */
  private InputStream sendInitialData(InputStream file) throws IOException {
    on_our_thread();
    ClientHttpRequest http =
      new ClientHttpRequest(PCTB_HOST_URL + "upload.php");
    http.setParameter("marketdata","marketdata.gz",file,"application/gzip");
    if (!http.post()) {
      String err = readstreamstring(http.resultstream());
      error("Error sending initial data:\n"+err);
      return null;
    }
    return http.resultstream();
  }
        
  /**
   *    Utility method to write a 2-byte int in little-endian form to
   *    an output stream.
   *
   *    @param num an integer to write
   *    @param out stream to write to
   */
  private void writeLEShort(int num, OutputStream out) throws IOException {
    out.write(num & 0xFF);
    out.write((num >>> 8) & 0xFF);
  }
        
  /**
   *    Reads the response from the server, and selects the correct parameters
   *    which are sent in a GET request to the server asking it to confirm
   *    the upload and accept the data into the database. Notably, the island id
   *    and ocean id are determined, while other parameter such as the filename
   *    are determined from the hidden form fields.
   *
   *    @param in stream of data from the server to read
   */
  private boolean finishUpload(InputStream in) throws IOException {
    on_our_thread();

    String html = readstreamstring(in);
    debug_write_stringdata("pctb-initial.html", html);
    Matcher m;

    Pattern params = Pattern.compile
      ("(?s)<input type=\"hidden\" name=\"action\" value=\"setisland\" />"+
       ".+?<input type=\"hidden\" name=\"forcereload\" value=\"([^\"]+)\" />"+
       ".+?<input type=\"hidden\" name=\"filename\" value=\"([^\"]+)\" />");
    m = params.matcher(html);
    if(!m.find()) {
      error_html("The PCTB server returned unusual data."+
                 " Maybe you're using an old version of the uploader?",
                 html);
      return false;
    }
    String forceReload = m.group(1);
    String filename = m.group(2);
    
    Pattern oceanNumPat =
      Pattern.compile("<option value=\"(\\d+)\">"+oceanName+"</option>");
    m = oceanNumPat.matcher(html);
    if (!m.find()) {
      error_html("Unable to find the ocean in the server's list of oceans!",
                 html);
      return false;
    }
    String oceanNum = m.group(1);

    Pattern oceanIslandNum =
      Pattern.compile("islands\\[" + oceanNum
                      + "\\]\\[\\d+\\]=new Option\\(\"" + islandName
                      + "\",(\\d+)");
    m = oceanIslandNum.matcher(html);
    if(!m.find()) {
      error_html("This does not seem to be a valid island! Unable to upload.",
                 html);
      return false;
    }
    String islandNum = m.group(1);

    URL get = new URL(PCTB_HOST_URL +
                      "upload.php?action=setisland&ocean=" + oceanNum
                      + "&island=" + islandNum
                      + "&forcereload=" + forceReload
                      + "&filename=" + filename);
    String complete = readstreamstring(get.openStream());
    debug_write_stringdata("pctb-final.html", complete);
    Pattern done = Pattern.compile
      ("Your data has been integrated into the database. Thank you!");
    m = done.matcher(complete);
    if(m.find()) {
      return true;
    } else {
      error_html("Something was wrong with the final upload parameters!",
                 complete);
      return false;
    }
  }

  private InputStream post_for_yarrg(ClientHttpRequest http)
  throws IOException {
    on_our_thread();
    if (!http.post()) {
      String err = readstreamstring(http.resultstream());
      error("<html><h1>Error reported by YARRG server</h1>\n" + err);
      return null;
    }
    return http.resultstream();
  }

  private String getYarrgTimestamp() throws IOException {
    ClientHttpRequest http = new ClientHttpRequest (YARRG_URL);
    http.setParameter("clientname", YARRG_CLIENTNAME);
    http.setParameter("clientversion", YARRG_CLIENTVERSION);
    http.setParameter("clientfixes", YARRG_CLIENTFIXES);
    http.setParameter("requesttimestamp", "y");
    InputStream in = post_for_yarrg(http);
    if (in == null) return null;
    BufferedReader br = new BufferedReader(new InputStreamReader(in));
    String tsresult = br.readLine();
    return tsresult.substring(3, tsresult.length()-1);
  }

  private boolean runYarrg(String timestamp, String ocean, String island,
                           String yarrgdata) throws IOException {
    ByteArrayOutputStream bos = new ByteArrayOutputStream();
    BufferedOutputStream bufos =
      new BufferedOutputStream(new GZIPOutputStream(bos));
    bufos.write(yarrgdata.getBytes() );
    bufos.close();
    byte[] compressed = bos.toByteArray();
    debug_write_bytes("yarrg-deduped.tsv.gz", compressed);
    ByteArrayInputStream file = new ByteArrayInputStream(compressed);

    ClientHttpRequest http = new ClientHttpRequest (YARRG_URL);
    http.setParameter("clientname", YARRG_CLIENTNAME);
    http.setParameter("clientversion", YARRG_CLIENTVERSION);
    http.setParameter("clientfixes", YARRG_CLIENTFIXES);
    http.setParameter("timestamp", timestamp);
    http.setParameter("ocean", ocean);
    http.setParameter("island", island);
    http.setParameter("data", "deduped.tsv.gz", file,
                      "application/octet-stream");
    InputStream in = post_for_yarrg(http);
    if (in == null) return false;
    String output = readstreamstring(in);
    if (!output.startsWith("OK")) {
      error("<html><h1>Unexpected output from YARRG server</h1>\n" + output);
      return false;
    }
    debug_write_stringdata("yarrg-result.txt", output);
    return true;
  }

  private int calculateArbitrageCommodity(ArrayList<SortedSet<int[]>> arb_bs) {
    // debuglog("ARBITRAGE?");
    int profit = 0;
    SortedSet<int[]> buys = arb_bs.get(0);
    SortedSet<int[]> sells = arb_bs.get(1);
    while (true) {
      int[] buy, sell;
      try {
        // NB "sell" means they sell, ie we buy
        sell = sells.last();
        buy = buys.first();
      } catch (NoSuchElementException e) {
        break;
      }

      int unitprofit = buy[0] - sell[0];
      int count = buy[1] < sell[1] ? buy[1] : sell[1];
      // debuglog(" sell @"+sell[0]+" x"+sell[1]
      //          +" buy @"+buy[0]+" x"+buy[1]
      //          +" => x"+count+" @"+unitprofit);

      if (unitprofit <= 0)
        break;
            
      profit += count * unitprofit;
      buy[1] -= count;
      sell[1] -= count;
      if (buy[1]==0) buys.remove(buy);
      if (sell[1]==0) sells.remove(sell);
    }
    // debuglog(" PROFIT "+profit);
    return profit;
  }

  private class arbitrageOfferComparator implements Comparator {
    public int compare(Object o1, Object o2) {
      int p1 = ((int[])o1)[0];
      int p2 = ((int[])o2)[0];
      return p2 - p1;
    }
  }

  private @SuppressWarnings("unchecked")
  void calculateArbitrage(ArrayList<ArrayList<String>> data) 
  throws InterruptedException {
    int arbitrage = 0;
    ArrayList<SortedSet<int[]>> arb_bs = null;
    String lastcommod = null;
    Comparator compar = new arbitrageOfferComparator();

    for (ArrayList<String> row : data) {
      String thiscommod = row.get(0);
      // debuglog("ROW "+row.toString());
      if (lastcommod == null || !thiscommod.equals(lastcommod)) {
        if (lastcommod != null)
          arbitrage += calculateArbitrageCommodity(arb_bs);
        // debuglog("ROW rdy");
        arb_bs = new ArrayList<SortedSet<int[]>>(2);
        arb_bs.add(0, new TreeSet<int[]>(compar));
        arb_bs.add(1, new TreeSet<int[]>(compar));
        // debuglog("ROW init");
        lastcommod = thiscommod;
      }
      for (int bs = 0; bs < 2; bs++) {
        String pricestr = row.get(bs*2 + 2);
        if (pricestr == null)
          continue;
        int[] entry = new int[2];
        // debuglog("ROW BS "+bs);
        entry[0] = parseQty(pricestr);
        entry[1] = parseQty(row.get(bs*2 + 3));
        arb_bs.get(bs).add(entry);
      }
    }
    arbitrage += calculateArbitrageCommodity(arb_bs);
    String arb;
    if (arbitrage != 0) {
      arb = "<html><strong>arbitrage: "+arbitrage+" poe</strong>";
    } else {
      arb = "no arbitrage";
    }
    final String arb_final = arb;
    EventQueue.invokeLater(new Runnable() { public void run() {
      arbitrageResult.setText(arb_final);
    }});
  }
    
}