home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / rclesrc.10 / ircle sources / IRCInit.p < prev    next >
Encoding:
Text File  |  1992-09-06  |  2.0 KB  |  72 lines
  1. {    ircle - Internet Relay Chat client    }
  2. {    File: IRCInit    }
  3. {    Copyright ⌐ 1992 Olaf Titz (s_titz@iravcl.ira.uka.de)    }
  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. unit IRCInit;
  20. { Startup code. }
  21.  
  22. interface
  23. uses
  24.     TCPTypes, TCPStuff, TCPConnections, Coroutines, ApplBase, MsgWindows, InputLine, {}
  25.     IRCGlobals, IRCaux, IRCPreferences, IRCInput, {}
  26.     IRCIgnore, DCC, IRCCommands, IRCChannels, IRCSComm, IRCHelp;
  27.  
  28. procedure IRCInitAll;
  29. { This will call ALL module startups and init ALL global variables. }
  30.  
  31. implementation
  32.  
  33. { Putting this module of 190+ bytes of code into an extra segment }
  34. { is a typical instance of memory management paranoia :-) }
  35.  
  36. procedure IRCInitAll;
  37.     begin
  38.         InitCoroutines;
  39.         ApplInit;
  40.         InitMsgWindows;
  41.         InitInputLine;
  42.         InitIRCPreferences;
  43.         InitDCC;
  44.         InitIRCChannels;
  45.         InitIRCInput;
  46.         InitIRCHelp;
  47.         InitIRCIgnore;
  48.         ISOEncode := TableHndl(GetResource('Tabl', 256));
  49.         ISODecode := TableHndl(GetResource('Tabl', 257));
  50.         CmdChar := '/';
  51.         CurrentServer := '';
  52.         CurrentTarget := '';
  53.         lastInvite := '';
  54.         lastMSG := '';
  55.         currentNick := '';
  56.         flushing := false;
  57.         logging := false;
  58.         readTimeout := 10;
  59.         GetDateTime(idleTime);
  60.         InitCursor;
  61.         QuitRequest := false;
  62.         inBackground := false;
  63.         notified := false;
  64.         lastWindow := nil;
  65.         NFT := 0;
  66.         Watch := GetCursor(WatchCursor);
  67.         validPrefs := GetPrefs(false);
  68.         if validPrefs then
  69.             OpenConnection;
  70.     end;
  71.  
  72. end.