/* Main program initialization */

#include "includes.prl"

#include "common.h"
#include "protos.h"

/***** Static function declarations *****/

static void init_conerr(UBYTE *str);

/***** External variables *****/

/* Library pointers */
extern struct ExecBase *SysBase;
extern struct DosLibrary *DOSBase;
struct GfxBase *GfxBase;
struct IntuitionBase *IntuitionBase;
struct Library *DiskfontBase;
struct Library *PTReplayBase;

PLANEPTR theRaster, theRaster2;
struct RastPort theRP;
struct RastPort theRP_3bpl;
struct RastPort theRP_2bpl;
struct RastPort theRP_1bpl;
struct BitMap theBitMap;
struct BitMap theBitMap_3bpl;
struct BitMap theBitMap_2bpl;
struct BitMap theBitMap_1bpl;
struct NewScreen theScreen =
{
  0, 0, 320, 256, 4, 0, 1, 0,
  CUSTOMSCREEN | CUSTOMBITMAP | SCREENQUIET, NULL, NULL, NULL, &theBitMap
};
struct Screen *mainScreen;
struct ViewPort *mainVP;
struct TextFont *writerFont;
struct TextAttr writerAttr =
{ (STRPTR)"courier.font", 15, 0, 0 };

/***** Global functions *****/

/* Open all needed global resources */
BOOL init_open_all(void)
{
  PLANEPTR temp;
  UWORD i;

  /* Check for at least release 3.0 */
  if (SysBase->LibNode.lib_Version < 33)
  {
    init_conerr((UBYTE *)"This program requires Amiga Kickstart Release 1.2 +\n");
    return (FALSE);
  }

  /* Open needed libraries */
  if (!(IntuitionBase = (struct IntuitionBase *)
  OpenLibrary((UBYTE *)"intuition.library", _LIB_VERSION)))
  {
    init_conerr((UBYTE *)"Unable to open intuition.library version 33\n");
    return (FALSE);
  }
  if (!(GfxBase = (struct GfxBase *)
  OpenLibrary((UBYTE *)"graphics.library", _LIB_VERSION)))
  {
    init_conerr((UBYTE *)"Unable to open graphics.library version 33\n");
    return (FALSE);
  }
  if (!(DiskfontBase = OpenLibrary((UBYTE *)"diskfont.library", _LIB_VERSION)))
  {
    init_conerr((UBYTE *)"Unable to open diskfont.library version 33\n");
    return (FALSE);
  }
  if (!(PTReplayBase = OpenLibrary((UBYTE *)"ptreplay.library", 0)))
  {
    init_conerr((UBYTE *)"Unable to open ptreplay.library\n");
    return (FALSE);
  }

  InitBitMap(&theBitMap, 4, 384, 256);
  InitBitMap(&theBitMap_3bpl, 3, 384, 256);
  InitBitMap(&theBitMap_2bpl, 2, 384, 256);
  InitBitMap(&theBitMap_1bpl, 1, 384, 256);

  if (!(theRaster = AllocRaster(384 * 4, 256)))
  {
    init_conerr((UBYTE *)"Unable to allocate screen memory\n");
    return (FALSE);
  }
  if (!(theRaster2 = AllocRaster(384 * 4, 256)))
  {
    init_conerr((UBYTE *)"Unable to allocate screen memory\n");
    return (FALSE);
  }
  temp = theRaster;
  for (i = 0; i < 4; i ++)
  {
    theBitMap.Planes[i] = temp;
    theBitMap_3bpl.Planes[i] = temp;
    theBitMap_2bpl.Planes[i] = temp;
    theBitMap_1bpl.Planes[i] = temp;
    temp += (48 * 256);
  }

  InitRastPort(&theRP);
  InitRastPort(&theRP_3bpl);
  InitRastPort(&theRP_2bpl);
  InitRastPort(&theRP_1bpl);

  theRP.BitMap = &theBitMap;
  theRP_3bpl.BitMap = &theBitMap_3bpl;
  theRP_2bpl.BitMap = &theBitMap_2bpl;
  theRP_1bpl.BitMap = &theBitMap_1bpl;
  SetRast(&theRP, 0);

  if (!(mainScreen = OpenScreen(&theScreen)))
  {
    init_conerr((UBYTE *)"Unable to open main screen\n");
    return (FALSE);
  }
  mainVP = &mainScreen->ViewPort;
  for (i = 0; i < 16; i ++)
    SetRGB4(&mainScreen->ViewPort, i, 0, 0, 0);

  if (!(writerFont = OpenDiskFont(&writerAttr)))
  {
    init_conerr((UBYTE *)"Unable to open writer font\n");
    return (FALSE);
  }

  SetFont(&theRP, writerFont);
  SetFont(&theRP_3bpl, writerFont);
  SetFont(&theRP_2bpl, writerFont);
  SetFont(&theRP_1bpl, writerFont);

  return (TRUE);
}

/* Close all global resources opened */
void init_close_all(void)
{
  if (writerFont) CloseFont(writerFont);

  if (mainScreen) CloseScreen(mainScreen);
  if (theRaster2) FreeRaster(theRaster2, 4 * 384, 256);
  if (theRaster) FreeRaster(theRaster, 4 * 384, 256);

  /* Close opened libraries */
  if (PTReplayBase) CloseLibrary(PTReplayBase);
  if (DiskfontBase) CloseLibrary(DiskfontBase);
  if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
}

/***** Static functions *****/

/* Display an error message in a small console window */
static void init_conerr(UBYTE *str)
{
  BPTR fileHandle;		/* Console window filehandle */

  /* Open small console window */
  if (!(fileHandle = Open((UBYTE *)"CON:50/50/500/100/Picnic Editor error",
  MODE_OLDFILE)))
    return;
  /* Write message in window */
  Write(fileHandle, str, strlen((char *)str));
  /* Wait for 3 seconds */
  Delay(150);
  /* Close window */
  Close(fileHandle);
}