home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spiele Shareware / os2games.iso / os2games / addons / pmics / src / wcomm.cc < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-17  |  33.1 KB  |  1,059 lines
  1. /*
  2.     PMICS -- PM interface for playing chess on internet chess server
  3.     Copyright (C) 1994  Kevin Nomura
  4.  
  5.     This program is free software; you can redistribute it and/or modify
  6.     it under the terms of the GNU General Public License as published by
  7.     the Free Software Foundation; either version 2 of the License, or
  8.     (at your option) any later version.
  9.  
  10.     This program is distributed in the hope that it will be useful,
  11.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.     GNU General Public License for more details.
  14.  
  15.     You should have received a copy of the GNU General Public License
  16.     along with this program; if not, write to the Free Software
  17.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  
  19.     Author can be reached at email: chow@netcom.com
  20. */
  21. #include "wcomm.hh"
  22. #include "game.hh"
  23. #include "pmics.hh"
  24. #include <stdio.h>
  25. #include <stdlib.h>
  26. #include <ithread.hpp>
  27. #include <icolor.hpp>
  28. #include <ievtdata.hpp>
  29. #include <imsgbox.hpp>
  30. #include <ifont.hpp>        // for font dialog
  31. #include <ifontdlg.hpp>
  32. #include <ireslib.hpp>
  33. //#define INCL_WINMESSAGEMGR
  34. #define INCL_WIN
  35. #include <os2.h>
  36. #include <strstrea.h>
  37. #include "session.hh"
  38. #include "engcom.hh"
  39. #include "dlgmatch.h"
  40.  
  41. #define ICS_PROMPT "aics% "
  42.  
  43. extern EngineComm *engineComm;
  44. extern ASession *aSession;
  45. extern int getIntOption(IString s, int def);
  46. extern IString getStringOption(IString s, IString def);
  47. void icshook(IString &);
  48. IWindowHandle hComm;
  49. strstream commStream;
  50.  
  51. static void cancelBackspaces (IString &);
  52.  
  53. void debugmsg(char *s, IWindow *w)
  54. {
  55.   IMessageBox mb(w);
  56.   mb.setTitle("debug msg");
  57.     mb.show(s, IMessageBox::informationIcon |
  58.         IMessageBox::yesNoCancelButton |
  59.         IMessageBox::applicationModal |
  60.         IMessageBox::moveable);
  61. }
  62.  
  63. /**************************************************************************
  64.  * FUNCTION:    constructor (class CommWindow)
  65.  *
  66.  * DESCRIPTION: Build comm window.  Uses IComboBox to simulate a
  67.  *   scrollable terminal window.
  68.  *               
  69.  **************************************************************************/
  70. CommWindow::CommWindow(unsigned long windowId, //Constructor for this class
  71.                IWindow *parent) :
  72.              IListBox (windowId, parent, parent, IRectangle(),
  73.             (IListBox::classDefaultStyle |
  74.              IControl::tabStop) &
  75.             ~(IListBox::horizontalScroll |
  76.               IListBox::extendedSelect |
  77.               IListBox::multipleSelect))
  78. {
  79.   IFUNCTRACE_DEVELOP();
  80.   hComm = handle();        // export commWindow handle
  81.  
  82.   /******************************************
  83.    * attach IKeyboardHandler for keypresses
  84.    ******************************************/
  85.   handleEventsFor(this);
  86.  
  87.   /*****************************************
  88.    * attach IEditHandler to see what it does
  89.    ****************************************/
  90. /*  editHandler = new CommEditHandler;
  91.   editHandler->handleEventsFor(this);*/
  92.  
  93.   /**************************************
  94.    * attach IHandler for general events
  95.    **************************************/
  96.   msgHandler = new CommMsgHandler(this);
  97.   msgHandler->handleEventsFor(this);
  98.  
  99.   commFilter = new ACommFilterStyle12;
  100.  
  101.   localecho = getIntOption("localecho", 0) != 0;
  102.  
  103. //  setColor(IEntryField::background, IColor(0xff,0xff,0xcc));
  104.   setFont(IFont(getStringOption("commfont", "System VIO"),
  105.         getIntOption("commfontsize", 14)));
  106.  
  107.   show();
  108. } /* end PmicsWindow :: PmicsWindow(...) */
  109.  
  110.  
  111. Boolean CommWindow::key (IKeyboardEvent &evt)
  112. {
  113.   char c,s[2];
  114.   int  i;
  115.  
  116.   if (evt.isUpTransition()) {
  117.     return false;
  118.   }
  119.   IFUNCTRACE_DEVELOP();        // bypassed on up transition
  120.  
  121.   /********************************************************************
  122.    * keyhandler screws up for control chars.  they don't show up
  123.    * as character events, but only as scancode events: and who wants
  124.    * to fool with scancodes?  we hafta drop down to PM and dig the char
  125.    * out of the event data, sigh.
  126.    ********************************************************************/
  127.   if (evt.isCtrlDown()) {
  128.     ITRACE_DEVELOP("control is down");
  129.     if (evt.isVirtual() && evt.virtualKey() == IKeyboardEvent::ctrl)
  130.       return false;        // the ctrl key itself
  131.     c = IEventData(evt.parameter2()).char1();
  132.     ITRACE_DEVELOP("control pressed, data is: " + IString(c)+IString((int)c));
  133.     if (c>='a' && c<='z')
  134.       c = c - 'a' + 1;
  135.     else if (c == '-') c = 31;
  136.     else if (c == ']') c = 29;
  137.     else if (c == '[') c = 27;
  138.     else c = 127;
  139.     s[0] = c;
  140.     s[1] = 0;
  141.     for (i = evt.isRepeat() ? evt.repeatCount() : 1; i; i--)
  142.       aSession->write(s);
  143.   }
  144.  
  145.   if (evt.isVirtual()) {
  146.     ITRACE_DEVELOP("vkey: " + IString((unsigned short)(evt.virtualKey())) +
  147.            " *" + IString(evt.repeatCount()));
  148.     switch(evt.virtualKey()) {
  149.     case IKeyboardEvent::backSpace:
  150.       c = (bs2del) ? 127 : 8;
  151.       ITRACE_DEVELOP("BS: deleting last character with " + IString((int)c));
  152.       s[0] = c;
  153.       s[1] = 0;
  154.       for (i = evt.isRepeat() ? evt.repeatCount() : 1; i; i--)
  155.     aSession->write(s);
  156.       return true;
  157.  
  158.     case IKeyboardEvent::newLine:
  159.       c = (cr2lf) ? 10 : 13;
  160.       ITRACE_DEVELOP("CR: newLine maps to " + IString((int)c));
  161.       s[0] = c;
  162.       s[1] = 0;
  163.       for (i = evt.isRepeat() ? evt.repeatCount() : 1; i; i--)
  164.     aSession->write(s);
  165.       return true;
  166.     }
  167.     //return false;        // use default semantics for arrow keys, etc.
  168.     // need fall thru for chars
  169.   }
  170.  
  171.   if (evt.isCharacter()) {
  172.     ITRACE_DEVELOP("key: " + IString((unsigned short)(evt.character())));
  173.     if (evt.isRepeat() || evt.repeatCount() > 0)
  174.       ITRACE_DEVELOP("repeatCount = "+IString(evt.repeatCount())+
  175.              "isRepeat = "+IString(evt.repeatCount()));
  176.     c = evt.character();
  177.     if (evt.isCtrlDown()) {
  178.       ITRACE_DEVELOP("   control: " + IString(c) + "=" + IString((int)c));
  179.       if (c>='a' && c<='z')
  180.     c = c - 'a' + 1;
  181.     }
  182.     
  183.     /*if (c == '\r') {
  184.       c = '\n';
  185.       ITRACE_DEVELOP("<CR> -> <LF>");
  186.       }*/
  187.     
  188.     s[0] = c;
  189.     s[1] = 0;
  190.     for (i = evt.isRepeat() ? evt.repeatCount() : 1; i; i--)
  191.       aSession->write(s);
  192.     timerTick(0);       // reset idle counter
  193.     
  194.     /********************************************************
  195.      * implement local echo
  196.      ********************************************************/
  197.     if (localecho) {
  198.       int  i = count() - 1;
  199.       setItemText(i, itemText(i) + IString(c));
  200.     }
  201.  
  202.     return true;   // suppress listbox jump to line with first letter
  203.   }
  204.   return false;
  205. }
  206.  
  207.  
  208. /**************************************************************************
  209.  * FUNCTION:    lookForChallenge (class CommWindow)
  210.  *
  211.  * DESCRIPTION: Recognize a match request from another ICS player, and
  212.  *   pop up a requester that notifies the user and lets them accept,
  213.  *   reject or ignore the match request.  Example challenge line:
  214.  *
  215.  *   Challenge: DaveS (2068) [white] woof (1813) [un]rated blitz|wild(n)|standard 3 12 [5 0]
  216.  *
  217.  **************************************************************************/
  218. void CommWindow::lookForChallenge (IString &line)
  219. {
  220.   int    i, oppName, wildType, firstClock, secondClock;
  221.   extern IWindow *mainWin;
  222.   Boolean isRated, isWhite, isBlack;
  223.  
  224.   if (line.subString(1,10) != "Challenge:")
  225.     return;
  226.  
  227.   // parse as blank-separated tokens, starting after "Challenge:"
  228.   i = 2;
  229.   isWhite = isBlack = isRated = false;
  230.   wildType = 0;
  231.  
  232.   oppName = i;
  233.   i++; i++;            // consume opponent name and rating
  234.   if (line.word(i)[1] == '[') {    // color specification
  235.     if (line.word(i) == "[white]") 
  236.       isWhite = true;
  237.     else if (line.word(i) == "[black]")
  238.       isBlack = true;
  239.     i++;            // consume color specification
  240.   }
  241.   i++; i++;            // consume my name and rating
  242.   isRated = (line.word(i) == "rated");
  243.   i++;                // consume rated specification
  244.   if (line.word(i).subString(1,4) == "wild") {
  245.     sscanf(line.word(i), "wild(%d)", &wildType);
  246.   }
  247.   i++;                // consume blitz/standard/wild specification
  248.   firstClock = i;
  249.   i++; i++;            // consume 1st time specification
  250.   secondClock = 0;
  251.   if (line.numWords() >= i+1) {
  252.     secondClock = i;
  253.     i++; i++;            // consume odds time specification
  254.   }
  255.   
  256.   ITRACE_DEVELOP("challenge: <"+line+">");
  257.   AMatchDialog  *dw = new AMatchDialog(IWindow::desktopWindow(),
  258.                        mainWin,
  259.                        this,
  260.                        line.words(oppName,2),
  261.                        isRated,
  262.                        isWhite,
  263.                        isBlack,
  264.                        wildType,
  265.                        line.words(firstClock,2),
  266.                        secondClock ? line.words(secondClock,2) : IString(""));
  267. }
  268.  
  269. /**************************************************************************
  270.  * FUNCTION:    fontDialog (class CommWindow)
  271.  *
  272.  * DESCRIPTION: Let the user select a new text font for the comm window.
  273.  *
  274.  **************************************************************************/
  275. void CommWindow::fontDialog()
  276. {
  277.   if (0)
  278.   {
  279.     // rated blitz
  280.     IString s = "Challenge: caesar (1669) woof (1680) rated blitz 3 12";
  281.     lookForChallenge(s);
  282.  
  283.     // unrated wild
  284.     s = "Challenge: caesar (1669) woof (1680) unrated wild(5) 3 12";
  285.     lookForChallenge(s);
  286.  
  287.     // rated wild 14, white, with time odds
  288.     s = "Challenge: caesar (1669) [black] woof (1680) rated wild(14) 3 12 1 0";
  289.     lookForChallenge(s);
  290.   }
  291.  
  292.   IFont curfont(this);
  293.   IFontDialog::Settings fsettings(&curfont);
  294.   IFontDialog fd(IWindow::desktopWindow(),IWindow::desktopWindow(), fsettings);
  295.  
  296.   if (fd.pressedOK())
  297.     setFont(curfont);
  298. }
  299.  
  300.  
  301. /**************************************************************************
  302.  * FUNCTION:    timerTick (class CommWindow)
  303.  *
  304.  * DESCRIPTION:  Send a key to the UNIX host every 3 minutes to prevent 
  305.  *   idle detection.  Driven by 1-second interval timer tick (we share
  306.  *   the timer in PmicsWindow).
  307.  *
  308.  * ================ MAKE CONFIGURABLE =======================
  309.  *
  310.  **************************************************************************/
  311. void CommWindow::timerTick(int setCount)
  312. {
  313.   static int count = 0;
  314.   if (setCount >= 0)
  315.     count = setCount;
  316.   else
  317.     count++;
  318.   if ((count > 0) && (count % 360 == 0)) {
  319.     ITRACE_DEVELOP("CommWindow::timerTick send keepalive char, count="+
  320.            IString(count));
  321.     aSession->write(" ");
  322.   }
  323. }
  324.  
  325.  
  326. /**************************************************************************
  327.  * FUNCTION:    edit (class CommEditHandler)
  328.  *
  329.  * DESCRIPTION: This handler is supposed to intercept editing keys
  330.  *   inside the IComboBox.
  331.  *               
  332.  **************************************************************************/
  333. Boolean CommEditHandler :: edit (IControlEvent &evt)
  334. {
  335.   IFUNCTRACE_DEVELOP();
  336.   char s[2], c;
  337.       
  338.   ITRACE_DEVELOP(IString("char1: ") +
  339.          IString((unsigned short)(evt.parameter1().char1())) +
  340.          IString(" char2: ") +
  341.          IString((unsigned short)(evt.parameter1().char2())) +
  342.          IString(" char3: ") +
  343.          IString((unsigned short)(evt.parameter1().char3())) +
  344.          IString(" char4: ") +
  345.          IString((unsigned short)(evt.parameter1().char4())));
  346.   ITRACE_DEVELOP(IString("char1: ") +
  347.          IString((unsigned short)(evt.parameter2().char1())) +
  348.          IString(" char2: ") +
  349.          IString((unsigned short)(evt.parameter2().char2())) +
  350.          IString(" char3: ") +
  351.          IString((unsigned short)(evt.parameter2().char3())) +
  352.          IString(" char4: ") +
  353.          IString((unsigned short)(evt.parameter2().char4())) +
  354.          IString(" *") + 
  355.          IString((unsigned short)(evt.parameter1().char3())));
  356.   if (!(evt.parameter1() & KC_KEYUP)) {
  357.     ITRACE_DEVELOP("keydown event");
  358.   }
  359.   if ((evt.parameter1() & KC_CTRL)) {
  360.     ITRACE_DEVELOP("ctrl event");
  361.   }
  362.  
  363.   return false;
  364. }
  365.  
  366.  
  367.  
  368. /**************************************************************************
  369.  * FUNCTION:    dispatchHandlerEvent (class CommMsgHandler)
  370.  *
  371.  * DESCRIPTION: handler for general window messages
  372.  *
  373.  * MESSAGES:    MSG_COM_IN - arbitrary-sized block of incoming data
  374.  *              MSG_COM_FONT - user requested to change comm window font
  375.  *               
  376.  **************************************************************************/
  377. Boolean CommMsgHandler::dispatchHandlerEvent (IEvent &evt)
  378. {
  379. //  IFUNCTRACE_DEVELOP();
  380.   CommWindow      *cwin = (CommWindow *)evt.window();
  381.  
  382.   switch (evt.eventId()) {
  383.   case MSG_COM_IN:
  384.     /**************************************************************************
  385.      * Blocks of incoming data are relayed here from the session object for
  386.      * processing.  (1) Display the data in the comm window.  The comm window
  387.      * works in terms of lines so we must break the data apart at line
  388.      * boundaries, and also know when the last line of the previous block
  389.      * is unfinished and needs to be continued.  (2) Build a line stream.
  390.      * Run the resulting complete lines through a filter which looks for
  391.      * challenges.
  392.      *************************************************************************/
  393.     {
  394.       char           buf[4000];
  395.       static IString line,prevline;
  396.       static Boolean continued = false;    // if last line not terminated
  397.       static Boolean filterNextPrompt = false; // cosmetics
  398.       int            linelen, peekc;
  399.  
  400.       while(1) {
  401.  
  402.     commStream.get(buf, sizeof(buf));
  403.     if (commStream.fail()) break;
  404.     line = IString(buf);
  405.     if ((peekc = commStream.peek()) == '\n')
  406.       commStream.get();
  407.  
  408.     // strip trailing CR (getline broke at LF of CRLF pair)
  409.     line.strip("\n\r");
  410. //    line.strip("\r");
  411.  
  412.     ITRACE_DEVELOP("MSG_COM_IN <"+line+">");
  413.  
  414.     /********************************************************
  415.      * if last line was not terminated, append this line to it
  416.      ********************************************************/
  417. //    cwin->setCursorAt(cwin->textLength());
  418.     if (continued) {
  419.       CommWindow::Cursor cur(*commWindow, CommWindow::Cursor::allItems);
  420.       cur.setToLast();
  421.       line = prevline + line;
  422.       ITRACE_DEVELOP("Continuing previous line: now <"+line+">");
  423.       continued = (commStream.peek() == EOF && peekc != '\n');
  424.       cancelBackspaces(line);
  425.       if (line.subString(1,4) != "<12>")
  426.         cwin->replaceAt(line, cur);
  427.     }
  428.     else {
  429.       /**************************************************
  430.        * otherwise add this line as a new line at the end
  431.        **************************************************/
  432.       if (line.subString(1,4) != "<12>")
  433.         cwin->addAsLast(line);
  434.     }
  435.  
  436.     if (filterNextPrompt) {
  437.       // if hit, delete the line.  else, clear the bit if line is not
  438.       // a prefix of the prompt, meaning prompt did not follow the move
  439.       // string for some reason.
  440.       if (line == ICS_PROMPT) {
  441.         cwin->remove(cwin->count() - 1);
  442.         filterNextPrompt = false;
  443.       }
  444.       else if (IString(ICS_PROMPT).indexOf(line) != 1)
  445.         filterNextPrompt = false;
  446.     }
  447.  
  448.     /**************************************************************
  449.      * predict if this line is continued, and if not, run through
  450.      * move capture filter
  451.      **************************************************************/
  452.     if (! ((commStream.peek() == EOF && peekc != '\n'))) {
  453.       if (cwin->commFilter->filter(line)) {
  454. /*        cwin->remove(cwin->count() - 1);*/
  455.         filterNextPrompt = true;
  456.       }
  457.       else
  458.         cwin->lookForChallenge(line);
  459.     }
  460.     // could add a hook here to login to a dialup system
  461.     //icshook(line);
  462.     prevline = line;
  463.       }
  464.       continued = (commStream.peek() == EOF && peekc != '\n');
  465.       
  466.       /***************************************************************
  467.        * manage number of lines in listbox and the cursor position 
  468.        ***************************************************************/
  469.       if (cwin->count() > 300) {
  470.     // first get down to 300 for sure
  471.     while (cwin->remove(0) > 300) ;
  472.     // now delete 10% more (to prevent thrashing on continuous input)
  473.     for (int i=0; i<30; i++)
  474.       cwin->remove(0);
  475.       }
  476.  
  477.       /**************************************************************
  478.        * scroll listbox to bottom by setting 'top' to the last line
  479.        **************************************************************/
  480.       cwin->setTop(cwin->count());
  481.  
  482.       evt.setResult(0);
  483.       return true;
  484.     }
  485.     break;
  486.  
  487.   case MSG_COM_FONT:
  488.     ITRACE_DEVELOP("comm window: font message has arrived");
  489.     cwin->fontDialog();
  490.     return true;
  491.   }
  492.   return false;
  493. }
  494.  
  495.  
  496.  
  497. /**************************************************************************
  498.  * FUNCTION:    filter (class ACommFilterStyle12)
  499.  *
  500.  * DESCRIPTION: parse style 12 move messages from ICS
  501.  *   This notifies us that a move has been made in the game, and new
  502.  *   status information is available (clocks, etc).  The information
  503.  *   is digested and posted to the stat and board windows for display.
  504.  *
  505.  *   ics% help style12
  506.  *   A new style 12 now exists.  It has all the advantages of style 8 and
  507.  *   style 10.  Furthermore, style 12 inhibits the messages "OBSERVATION
  508.  *   REPORT" and "Game 7 (Quimbee vs.  Darooha)".  (Actually, I may make
  509.  *   this a feature of terse mode.  In any event, don't depend on those
  510.  *   messages.)
  511.  *   
  512.  *   The data is all on one line:  Here is an example:
  513.  *   
  514.  *   <12> rnbqkb-r pppppppp -----n-- -------- ----P--- -------- PPPPKPPP RNBQ-BNR B -
  515.  *   1 0 0 1 1 0 7 Quimbee Darooha 1 2 12 39 39 119 122 2 K/e1-e2 (0:06) Ke2
  516.  *   
  517.  *   This always begins on a new line, and there are always exactly 30
  518.  *   non-empty fields separated by blanks. They are:
  519.  *   
  520.  *   - The string "<12>" to identify this line.
  521.  *   - eight fields representing the board position.  The first one is file 8,
  522.  *     then file 7, etc, regardless of who's move it is.
  523.  *   - color whose turn it is to move ("B" or "W")
  524.  *   - -1 if the previous move was NOT a double pawn push,
  525.  *     otherwise the file (numbered 0--7 for a--h) in which
  526.  *     the double push was made
  527.  *   - can white still castle short? (0=no, 1=yes)
  528.  *   - can white still castle long?
  529.  *   - can black still castle short?
  530.  *   - can black still castle long?
  531.  *   - the number of moves made since the last irreversible move.
  532.  *     (0 if last move was irreversible.  If this is >= 100, the game
  533.  *     can be declared a draw due to the 50 move rule.)
  534.  *   - The game number
  535.  *   - White's name
  536.  *   - Black's name
  537.  *   - is it my turn to move in this game? (1=yes, -1=opponent's move, 
  538.  *     0=observing)
  539.  *   - initial time (in seconds) of the match
  540.  *   - increment of the match
  541.  *   - white strength
  542.  *   - black strength
  543.  *   - white's remaining time
  544.  *   - black's remaining time
  545.  *   - the number of the move about to be made
  546.  *     (standard chess numbering -- White's and Black's first moves
  547.  *     are both 1, etc.)
  548.  *   - verbose coordinate notation for the previous move ("none" if 
  549.  *     there were none)
  550.  *   - time taken to make previous move "(min:sec)".
  551.  *   - pretty notation for the previous move ("none" if there is none)
  552.  *   
  553.  *   New fields may be added to the end in the future, so programs should
  554.  *   parse from left to right.
  555.  **************************************************************************/
  556. Boolean ACommFilterStyle12::filter(IString &line)
  557. {
  558.   int gameNum, moveNum, timeW, timeB, lastMoveTime, clockRun;
  559.   char playerW[17], playerB[17];
  560.   IString  moveAlg, engMove;
  561.  
  562.   struct statData {
  563.     char    onMove;
  564.     int     wClock, bClock, gameNum;
  565.     char    wName[32], bName[32], move[32];
  566.   } *p;
  567.  
  568.   char       *pfld[30], *token;
  569.   int        min, sec, whosemove;
  570.   enum       {S12_ID=0, S12_RANK1, S12_RANK2, S12_RANK3, S12_RANK4, S12_RANK5,
  571.         S12_RANK6, S12_RANK7, S12_RANK8, S12_ONMOVE, S12_ENPASSANT,
  572.         S12_W00, S12_W000, S12_B00, S12_B000, S12_DRAWCTR, S12_GAMENUM,
  573.         S12_WNAME, S12_BNAME, S12_WHOSEMOVE, S12_INITCLOCK, S12_INCR,
  574.         S12_WMATERIAL, S12_BMATERIAL, S12_WTIME, S12_BTIME,
  575.         S12_MOVENUM, S12_MOVERAW, S12_MOVETIME, S12_MOVEALG};
  576.   AGame     *currentGame;
  577.   static int  failCount = 0;
  578.  
  579.   IFUNCTRACE_DEVELOP();
  580.  
  581.   if (line.subString(1,4) != "<12>")
  582.     return false;
  583.  
  584.   ITRACE_DEVELOP(line);
  585.  
  586.   /************************************************************************
  587.    * tokenize line into blank-separated fields; verify they're all present
  588.    ************************************************************************/
  589.   token = strtok((char *)line, " ");
  590.   for (int i = 0; i < 30; i++) {
  591.     if (token == NULL) {
  592.       // this has been happening lately so we'll recover by issuing
  593.       // a refresh command.
  594.       ITRACE_DEVELOP("error in style12: line ends too soon i=" + IString(i));
  595.       if (++failCount < 3)
  596.     aSession->write("refresh\nrefresh\n");
  597.       return false;       // error!  recovery: ignore  (should warn user)
  598.     }
  599.     pfld[i] = token;
  600.     token = strtok((char *)NULL, " ");   // dont care about tokens after 30th
  601.   }
  602.  
  603.   sscanf(pfld[S12_GAMENUM], "%3d", &gameNum);
  604.   sscanf(pfld[S12_WNAME], "%16s", &playerW);
  605.   sscanf(pfld[S12_BNAME], "%16s", &playerB);
  606.   sscanf(pfld[S12_MOVENUM], "%3d", &moveNum);
  607.   sscanf(pfld[S12_WTIME], "%5d", &timeW);
  608.   sscanf(pfld[S12_BTIME], "%5d", &timeB);
  609.   sscanf(pfld[S12_MOVETIME], "(%d:%d)", &min, &sec);
  610.   sscanf(pfld[S12_WHOSEMOVE], "%d", &whosemove);
  611.   lastMoveTime = min*60+sec;
  612.   clockRun = TRUE;
  613.   moveAlg = IString(pfld[S12_MOVEALG]);
  614.  
  615.   /**********************************
  616.    * post stat window with new info 
  617.    **********************************/
  618.   p = new struct statData;
  619.   p->wClock = timeW;
  620.   p->bClock = timeB;
  621.   p->onMove = pfld[S12_ONMOVE][0];
  622.   strcpy(p->wName, playerW);
  623.   strcpy(p->bName, playerB);
  624.   p->gameNum = gameNum;
  625.   if (pfld[S12_ONMOVE][0] == 'B')
  626.     strcpy(p->move, IString(moveNum) + ". " + moveAlg);
  627.   else
  628.     strcpy(p->move, IString(moveNum-1) + "... " + moveAlg);
  629.  
  630.   hMain.postEvent(MSG_STAT_UPDATE, (void *)p);
  631.  
  632.   hMain.postEvent(pfld[S12_ONMOVE][0] == 'W' ?
  633.           MSG_STAT_WHITE_ONMOVE :
  634.           MSG_STAT_BLACK_ONMOVE,
  635.           (ULONG) whosemove);
  636.   
  637.   /*************************************************************************
  638.    * send moves of active game to engine
  639.    * reformat as coordinate notation with promotion piece at end, e.g. a7b8q
  640.    *************************************************************************/
  641.   engMove = IString(pfld[S12_MOVERAW]);
  642.   if (whosemove == 1) {
  643.     if (engMove[2] == '/') { // P/e2-e4=Q (castling is sent verbatim)
  644.       int   eqpos;
  645.       engMove.remove(1,2);
  646.       engMove.remove(3,1);
  647.       engMove.remove(5);
  648.       if (eqpos = moveAlg.indexOf('=')) { // promotion indicator
  649.     engMove += moveAlg.subString(eqpos+1,1).lowerCase();
  650.       }
  651.     }
  652.     engineComm->sendCommand(engMove);
  653.   }
  654.  
  655.   currentGame = AGame::current();
  656.   for (int rank=0; rank<8; rank++) {
  657.     for (int file=0; file<8; file++) {
  658.       currentGame->setPiece(file, rank, 
  659.                 AGame::toPiece(pfld[S12_RANK8 - rank][file]));
  660.     }
  661.   }
  662.  
  663.   /********************************************************
  664.    * if initial position, initialize some state objects
  665.    ********************************************************/
  666.   if (moveNum==1 && strcmp("W", pfld[S12_ONMOVE]) == 0) {
  667.     ITRACE_DEVELOP("New game starting.  whosemove=" + IString(whosemove));
  668.     if (whosemove == 1)        // my move so put white at bottom
  669.       hBoard.postEvent(MSG_BOARD_WHITE_AT_BOTTOM);
  670.     else if (whosemove == -1)     // my opponent's move so put black at bottom
  671.       hBoard.postEvent(MSG_BOARD_WHITE_AT_TOP);
  672.     else            // observing only.  put white at bottom.
  673.       hBoard.postEvent(MSG_BOARD_WHITE_AT_BOTTOM);
  674.  
  675.     engineComm->sendCommand("new");
  676.   }
  677.  
  678.   else
  679.     hBoard.postEvent(MSG_BOARD_UPDATE);
  680.  
  681.   failCount = 0;
  682.   return true;
  683. }
  684.  
  685.  
  686. static void cancelBackspaces (IString &s)
  687. {
  688.   int i;
  689.  
  690.   while ((i = s.indexOf('\b')) > 1) {
  691.     s.remove(i-1,2);        // cancel BS and previous char
  692.   }
  693. }
  694.  
  695.  
  696. void icshook (IString &s)
  697. {
  698.   static int next = 0;
  699.   static char *script[] = {
  700.     "help abort",
  701.     "help abuse",
  702.     "help abusers",
  703.     "help accept",
  704.     "help ACM",
  705.     "help addresses",
  706.     "help adjourn",
  707.     "help adjudicate",
  708.     "help admins",
  709.     "help alias",
  710.     "help allobservers",
  711.     "help assess",
  712.     "help atmosphere",
  713.     "help backward",
  714.     "help bell",
  715.     "help best",
  716.     "help bugs",
  717.     "help channel",
  718.     "help clearmessages",
  719.     "help cls",
  720.     "help computers",
  721.     "help courtesyabort",
  722.     "help credits",
  723.     "help date",
  724.     "help decline",
  725.     "help definitions",
  726.     "help doah",
  727.     "help draw",
  728.     "help eco",
  729.     "help examine",
  730.     "help exit",
  731.     "help filters",
  732.     "help finger",
  733.     "help flag",
  734.     "help flip",
  735.     "help formula",
  736.     "help fortune",
  737.     "help forward",
  738.     "help ftp-hints",
  739.     "help games",
  740.     "help GIICS",
  741.     "help GMs",
  742.     "help gnusurf",
  743.     "help goodpasswd",
  744.     "help handle",
  745.     "help help",
  746.     "help history",
  747.     "help i",
  748.     "help ICS",
  749.     "help ICS-InTheNews",
  750.     "help inchannel",
  751.     "help index",
  752.     "help InetChessLibrary",
  753.     "help interfaces",
  754.     "help intro1",
  755.     "help intro10",
  756.     "help intro11",
  757.     "help intro2",
  758.     "help intro3",
  759.     "help intro4",
  760.     "help intro5",
  761.     "help intro6",
  762.     "help intro7",
  763.     "help intro8",
  764.     "help intro9",
  765.     "help Isbjoern",
  766.     "help kibitz",
  767.     "help lag",
  768.     "help lagflag",
  769.     "help lhistory",
  770.     "help LinaresRoundup",
  771.     "help lists",
  772.     "help llogons",
  773.     "help logons",
  774.     "help mailhelp",
  775.     "help mailoldmoves",
  776.     "help mailstored",
  777.     "help match",
  778.     "help messages",
  779.     "help mexamine",
  780.     "help minus",
  781.     "help mood",
  782.     "help moretime",
  783.     "help motd",
  784.     "help moves",
  785.     "help muzzle",
  786.     "help new",
  787.     "help notation",
  788.     "help notify",
  789.     "help nuke",
  790.     "help observe",
  791.     "help odds-games",
  792.     "help oldmoves",
  793.     "help open",
  794.     "help password",
  795.     "help PCA-candidates",
  796.     "help pending",
  797.     "help people",
  798.     "help players",
  799.     "help plus",
  800.     "help programmers",
  801.     "help promote",
  802.     "help quit",
  803.     "help quota",
  804.     "help rank",
  805.     "help rated",
  806.     "help ratings",
  807.     "help records",
  808.     "help refresh",
  809.     "help refresh",
  810.     "help registration",
  811.     "help registration",
  812.     "help resign",
  813.     "help revert",
  814.     "help rules",
  815.     "help say",
  816.     "help server",
  817.     "help set",
  818.     "help shout",
  819.     "help smoves",
  820.     "help splay-tree",
  821.     "help sposition",
  822.     "help sshout",
  823.     "help statistics",
  824.     "help stored",
  825.     "help style",
  826.     "help style",
  827.     "help style10",
  828.     "help style12",
  829.     "help suggestions",
  830.     "help takeback",
  831.     "help team-games",
  832.     "help tell",
  833.     "help terse-mode",
  834.     "help time",
  835.     "help tournaments",
  836.     "help Tourny-Rishi",
  837.     "help TournyWC",
  838.     "help unexamine",
  839.     "help upstatistics",
  840.     "help vars",
  841.     "help vars",
  842.     "help whisper",
  843.     "help who",
  844.     "help who1",
  845.     "help who2",
  846.     "help wild",
  847.     "help wild10",
  848.     "help wild11",
  849.     "help wild12",
  850.     "help wild13",
  851.     "help wild14",
  852.     "help wild5",
  853.     "help wild6",
  854.     "help wild7",
  855.     "help wild8",
  856.     "help wild9",
  857.     "help xtell",
  858.     "help znotl",
  859.     ""};
  860.   if (next == -1) return;
  861.   if (script[next][0] == 0) {next = -1; return;}
  862.   if (s == "aics% ") {
  863.     aSession->write(IString(script[next]) + "\n");
  864.     next++;
  865.   }
  866.   return;
  867. }
  868.  
  869. /**************************************************************************
  870.  * FUNCTION:    constructor (class AMatchDialog)
  871.  *
  872.  * DESCRIPTION: 
  873.  *
  874.  **************************************************************************/
  875. AMatchDialog:: AMatchDialog(IWindow *parent,       // ctor for this class
  876.                 IWindow *owner,
  877.                 IWindow *commWin,
  878.                 IString cName,
  879.                 int     cIsRated,
  880.                 int     cWildType,
  881.                 int     cIsWhite,
  882.                 int     cIsBlack,
  883.                 IString cClock,
  884.                 IString cOddsClock) :
  885.                 IFrameWindow (DID_MATCH, parent, owner)
  886. {
  887.   handleEventsFor(this);    // set self as command event handler
  888.  
  889.   /**********************************************
  890.    * save comm window to restore focus by
  891.    * setFocus call when dialog is dismissed
  892.    *********************************************/
  893.   commWind = commWin;
  894.  
  895.   /*******************************************
  896.    * set opponent and time control text values
  897.    *******************************************/
  898.   clock = new IEntryField(DID_MATCH_CLOCK, this);
  899.   clock->setText(cClock);
  900.  
  901.   oddsClock = new IEntryField(DID_MATCH_ODDSCLOCK, this);
  902.   if (cOddsClock != "") {
  903.     oddsClock->setText(cOddsClock);
  904.   }
  905.  
  906.   opponent = new IStaticText(DID_MATCH_OPPONENT, this);
  907.   opponent->setText(cName);
  908.  
  909.   /*******************************************
  910.    * set rated, wild, colour buttons
  911.    *******************************************/
  912.   rated = new ICheckBox(DID_MATCH_RATED, this);
  913.   if (cIsRated)
  914.     rated->select();
  915.  
  916.   wild = new ICheckBox(DID_MATCH_WILD, this);
  917.   wildType = new IEntryField(DID_MATCH_WILDTYPE, this);
  918.   if (cWildType) {
  919.     wild->select();
  920.     wildType->setText(IString(cWildType));
  921.   }
  922.  
  923.   white = new IRadioButton(DID_MATCH_WHITE, this);
  924.   black = new IRadioButton(DID_MATCH_BLACK, this);
  925.   neutral = new IRadioButton(DID_MATCH_NEUTRAL, this);
  926.   if (cIsWhite)
  927.     white->select();
  928.   else if (cIsBlack)
  929.     black->select();
  930.   else
  931.     neutral->select();
  932.  
  933.   /******************************************************************
  934.    * attach a handler to process check/radio box selections
  935.    ******************************************************************/
  936.   selectHdr = new AMatchSelectHandler();
  937.   selectHdr->handleEventsFor(this);
  938.  
  939.   /******************************************************************
  940.    * save initial parameters: if final parameters are the same,
  941.    * issue Accept instead of Match, because ics may reject a Match
  942.    * on the basis of Formulae.
  943.    ******************************************************************/
  944.   initialClock = cClock;
  945.   initialOddsClock = cOddsClock;
  946.   initialRated = cIsRated;
  947.   initialWhite = cIsWhite;
  948.   initialBlack = cIsBlack;
  949.   initialWildType = cWildType;
  950.   show();
  951. }
  952.  
  953. /**************************************************************************
  954.  * FUNCTION:    command (class AMatchDialog)
  955.  *
  956.  * DESCRIPTION: event handler for dialog Accept/Ignore/Decline pushbuttons
  957.  *
  958.  **************************************************************************/
  959. Boolean AMatchDialog:: command(ICommandEvent &cmdevt)
  960. {
  961.   IFUNCTRACE_DEVELOP();
  962.   switch(cmdevt.commandId()) {
  963.   case  DID_MATCH_ACCEPT:
  964.     {
  965.       IString  s;
  966.       ITRACE_DEVELOP("match accepted");
  967.       /******************************************************************
  968.        * figure out if any parameters changed.  if identical to the
  969.        * original challenge issue "accept", else issue "match" with
  970.        * all parameters specified explicitly.  this distinction is
  971.        * because the opponent can issue a challenge that does not
  972.        * satisfy his own formula (e.g. he issues a rated challenge
  973.        * and his formula says unrated only) and if we echo back the match
  974.        * command ics will reject it.
  975.        ******************************************************************/
  976.       if (clock->text() == initialClock &&
  977.       oddsClock->text() == initialOddsClock &&
  978.  
  979.       wild->isSelected() == (initialWildType != 0) &&
  980.       wildType->text() == IString(initialWildType) &&
  981.  
  982.       rated->isSelected() == initialRated &&
  983.       
  984.       white->isSelected() == initialWhite &&
  985.       black->isSelected() == initialBlack) {
  986.     s = "\naccept "+ opponent->text().word(1) + "\n";
  987.       }
  988.       else {
  989. //match <name> <time> <increment> <time2> <increment2> <r> <u> <wk> <color>
  990.     s = "\nmatch "+ opponent->text().word(1)+" "+ clock->text()+" ";
  991.     if (oddsClock->text() != IString(""))  
  992.       s += oddsClock->text()+" ";
  993.     s += (rated->isSelected()) ? "r " : "u ";
  994.     if (wild->isSelected() && wildType->text() != IString(""))   
  995.       s += "w"+wildType->text()+" ";
  996.     if (white->isSelected())  
  997.       s += "white ";
  998.     if (black->isSelected())  
  999.       s += "black ";
  1000.     s += "\n";
  1001.       }
  1002.       aSession->write(s);
  1003.       dismiss();
  1004.       commWind->setFocus();
  1005.       break;
  1006.     }
  1007.   case  DID_MATCH_IGNORE:
  1008.     ITRACE_DEVELOP("match ignored");
  1009.     dismiss();
  1010.     commWind->setFocus();
  1011.     break;
  1012.   case  DID_MATCH_DECLINE:
  1013.     ITRACE_DEVELOP("match declined");
  1014.     aSession->write(IString("\ndecline ")+opponent->text().word(1)+"\n");
  1015.     dismiss();
  1016.     commWind->setFocus();
  1017.     break;
  1018.   }
  1019.   return false;            // pass to default processing
  1020. }
  1021.  
  1022.  
  1023. /**************************************************************************
  1024.  * FUNCTION:    command (class AMatchSelectHandler)
  1025.  *
  1026.  * DESCRIPTION: event handler for dialog radiobuttons and checkboxes
  1027.  *
  1028.  **************************************************************************/
  1029. Boolean AMatchSelectHandler:: selected(IControlEvent &evt)
  1030. {
  1031.   AMatchDialog   *dlg = (AMatchDialog *)evt.window();
  1032.  
  1033.   IFUNCTRACE_DEVELOP();
  1034.   switch(evt.controlId()) {
  1035.   case  DID_MATCH_RATED:
  1036.     ITRACE_DEVELOP("match rated checked");
  1037.     break;
  1038.   case  DID_MATCH_WILD:
  1039.     ITRACE_DEVELOP("match wild checked");
  1040.     break;
  1041.   case DID_MATCH_WHITE:
  1042.     ITRACE_DEVELOP("match white checked");
  1043.     dlg->black->deselect();
  1044.     dlg->neutral->deselect();
  1045.     break;
  1046.   case DID_MATCH_BLACK:
  1047.     ITRACE_DEVELOP("match black checked");
  1048.     dlg->white->deselect();
  1049.     dlg->neutral->deselect();
  1050.     break;
  1051.   case DID_MATCH_NEUTRAL:
  1052.     ITRACE_DEVELOP("match neutral checked");
  1053.     dlg->white->deselect();
  1054.     dlg->black->deselect();
  1055.     break;
  1056.   }
  1057.   return false;            // pass to default processing
  1058. }
  1059.