/* -*-C-*- * * * Filename : initscr.c * * Author : Simon J Raybould. (sie@fulcrum.bt.co.uk). * * Date : Friday 23rd August 1991. * * Desc : Initialise curses. * * * THIS CODE IS NOT PUBLIC DOMAIN * ============================== * * This code is copyright Simon J Raybould 1991, all rights are reserved. * All code, ideas, data structures and algorithms remain the property of the * author. Neither the whole nor sections of this code may be used as part * of other code without the authors consent. If you wish to use some of this * code then please email me at (sie@fulcrum.bt.co.uk). * * This source is not public domain, so you do not have any right to alter it * or sell it for personal gain. The source is provided purely for reference * purposes. You may re-compile the source with any compiler you choose. * You must not distribute altered copies without the authors consent. My * intention is that the source will help people isolate any bugs much more * effectivly. * * Disclaimer * ========== * * No implication is made as to this code being fit for any purpose at all. * I (the author) shall not be held responsible for any loss of data or damage * to property that may result from its use or misuse. * * * Revision History * ================ * * $Log: initscr.c,v $ * Revision 1.8 1994/02/21 22:12:00 sie * added call to setupterm. * renamed BreakHandler as _BreakHandler * * Revision 1.7 1993/05/17 23:33:10 sie * Underscores added to names. * Changes for version 2.10 * * Revision 1.6 1992/12/26 00:23:56 sie * Made more amendments to the LINES and COLS calculations. * Now sets them according to the system font and screen mode. * They are over-ridden if the env variables are set up. * In ANSI mode, they are just set to 24 and 80. * * Revision 1.5 92/07/14 20:45:27 sie * fixed screen size problems. * * Revision 1.4 92/06/10 23:44:41 sie * Added serial support. * * Revision 1.3 92/01/25 23:54:31 sie * Now uses fontheight and fontwidth. * Different algorithm for working out LINES and COLS. * * Revision 1.2 91/12/30 10:31:03 sie * Removed LRLine and LRATTRS. * The speed increase caused by them was too insignificant. * * Revision 1.1 91/09/07 11:43:35 sie * Initial revision * * */ static char *rcsid = "$Header: /SRC/lib/curses/src/RCS/initscr.c,v 1.8 1994/02/21 22:12:00 sie Exp $"; /* version strings */ #define VERSION "Amiga curses by Simon J Raybould V2.00+ 30.Jun.92" static char *version = "$VER: Amiga curses (SJR) version 2.00+"; #include #include "acurses.h" #include #include #include #include /* Autoinit won't try to open it, makes things work with Kick 1.3 or less */ struct Library *AslBase; extern struct Library *ConsoleDevice; static struct NewScreen NewScreen = { 0, 0, 0, 0, 4, 0, 1, HIRES, CUSTOMSCREEN, NULL, "Curses screen", NULL, NULL }; static struct NewWindow NewWindow = { 0, 0, 0, 0, -1, -1, RAWKEY, ACTIVATE | BORDERLESS, NULL, NULL, NULL, NULL, NULL, 0,0,0,0, CUSTOMSCREEN }; struct ScreenModeRequester *request = NULL; /* * Make version number appear when right mouse button is pressed. */ static struct Menu _CursesMenu = { NULL, 0, 0, 0, 0, 0, VERSION, NULL, 0, 0, 0, 0 }; static UWORD _ColourTable[] = { 0x000, 0xfff, 0xff0, 0x00f, 0xf0f, 0x0ff, 0xf00, 0x0f0 }; static int _BreakHandler(void) { endwin(); /* tidy up */ fprintf(stderr, "Amiga Curses exiting after receiving interrupt signal\n"); _CleanExit(20); return 0; } initscr(unsigned long flags) { char *Ptr, *getenv(const char *); int Tmp, width, height; ULONG modeid; struct Screen WBScreen; ULONG errorcode = 0; /* * It would be devestating if someone called initscr() twice * so make subsequent calls just return OK. */ if(_CursesFlags & CFLAG_INITSCR) return OK; _CursesFlags |= CFLAG_INITSCR; /* Work out which sort of curses is required */ _CursesType = CUST_CURSES; if(Ptr = getenv("CURSESTYPE")) { if(!strcmp(Ptr, "ansi") || !strcmp(Ptr, "ANSI")) _CursesType = ANSI_CURSES; } if(_CursesType == CUST_CURSES) { if((IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library", 0)) == NULL) { fprintf(stderr, "Failed to open Intuition library"); _CleanExit(10); } /* Open graphics library */ if((GfxBase = (struct GfxBase *) OpenLibrary("graphics.library", 0))==NULL) { fprintf(stderr, "Failed to open Graphics library"); _CleanExit(10); } /* Get WB screen height and Width */ if(!GetScreenData((char *)&WBScreen, sizeof(struct Screen), WBENCHSCREEN, NULL)) { printf("Can't get screen size\n"); exit(10); } height = WBScreen.Height; width = WBScreen.Width; if (IntuitionBase->LibNode.lib_Version >= 36) { if (!(AslBase = OpenLibrary("asl.library", 0))) { fprintf(stderr, "Couldn't open asl.library!\n"); _CleanExit(10); } if (IntuitionBase->LibNode.lib_Version >= 39) { /* Find best ViewMode */ modeid = BestModeID(BIDTAG_NominalWidth, 640, BIDTAG_NominalHeight, 200, BIDTAG_Depth, DEPTH, TAG_DONE); if (modeid == INVALID_ID) modeid = HIRES_KEY; /* First, ask screen mode via neat asl requester */ request = (struct ScreenModeRequester *) AllocAslRequestTags(ASL_ScreenModeRequest, ASLSM_TitleText, "Choose screen mode", ASLSM_PositiveText, "Start Angband", ASLSM_NegativeText, "Nah, quit", ASLSM_DoWidth, TRUE, ASLSM_DoHeight, TRUE, ASLSM_MinWidth, 640, ASLSM_MinHeight, 200, ASLSM_DoDepth, FALSE, ASLSM_DoOverscanType, TRUE, ASLSM_DoAutoScroll, TRUE, ASLSM_InitialDisplayDepth, DEPTH, ASLSM_InitialDisplayID, modeid, ASLSM_InitialDisplayWidth, width, ASLSM_InitialDisplayHeight, height, TAG_DONE); } else /* First, ask screen mode via neat asl requester */ request = (struct ScreenModeRequester *) AllocAslRequestTags(ASL_ScreenModeRequest, ASLSM_TitleText, "Choose screen mode", ASLSM_PositiveText, "Start Angband", ASLSM_NegativeText, "Nah, quit", ASLSM_DoWidth, TRUE, ASLSM_DoHeight, TRUE, ASLSM_MinWidth, 640, ASLSM_MinHeight, 200, ASLSM_DoDepth, FALSE, ASLSM_DoOverscanType, FALSE, ASLSM_DoAutoScroll, TRUE, ASLSM_InitialDisplayID, HIRES_KEY, ASLSM_InitialDisplayDepth, DEPTH, ASLSM_InitialDisplayWidth, width, ASLSM_InitialDisplayHeight, height, TAG_DONE); if (!request) { CloseLibrary(AslBase); _CleanExit(10); } if (!AslRequestTags((APTR)request, TAG_DONE)) { CloseLibrary(AslBase); _CleanExit(10); } CloseLibrary(AslBase); modeid = request->sm_DisplayID; if (modeid == INVALID_ID) modeid = HIRES_KEY; width = request->sm_DisplayWidth; height = request->sm_DisplayHeight; } else { /* Ancient kickstart */ modeid = HIRES_KEY; /* Set interlace if height>=400 */ if (height >= 400) modeid |= LORESLACE_KEY; NewScreen.ViewModes = modeid; } /* Try to have at least 80 columns and 24 lines! */ if (width < 648) width = 648; if (height < 208) height = 208; NewScreen.Height = NewWindow.Height = height; NewScreen.Width = NewWindow.Width = width; NewScreen.Depth = DEPTH; /* * must have the console.device opened to use RawKeyConvert() */ if(OpenDevice("console.device", -1L, (struct IORequest *)&ioreq, 0L)) _CleanExit(10); ConsoleDevice = (struct Library *)ioreq.io_Device; if (IntuitionBase->LibNode.lib_Version >= 36) { _CursesScreen = OpenScreenTags(&NewScreen, SA_ErrorCode, &errorcode, SA_DisplayID, modeid, SA_Width, width, SA_Height, height, SA_Depth, request->sm_DisplayDepth, SA_Overscan, request->sm_OverscanType, SA_AutoScroll, request->sm_AutoScroll, SA_ShowTitle, FALSE, SA_Draggable, TRUE, /* Hmm... */ TAG_DONE); if (!_CursesScreen) { fprintf(stderr, "Failed to open screen!\n"); if (errorcode & OSERR_NOMONITOR) fprintf(stderr, "Monitor for this display mode is not available.\n"); else if (errorcode & OSERR_NOCHIPS) fprintf(stderr, "You need newer custom chips for this display mode.\n"); else if (errorcode & (OSERR_NOMEM || OSERR_NOCHIPMEM)) fprintf(stderr, "Out of memory.\n"); } } else { _CursesScreen = (struct Screen *)OpenScreen(&NewScreen); } if (!_CursesScreen) _CleanExit(10); if (request) FreeAslRequest((APTR)request); _RPort = &(_CursesScreen->RastPort); _VPort = &(_CursesScreen->ViewPort); LoadRGB4(_VPort, _ColourTable, (1<UserPort; SetMenuStrip(_CursesWindow, &_CursesMenu); /* Get font size */ _FontHeight = _CursesWindow->IFont->tf_YSize; _FontWidth = _CursesWindow->IFont->tf_XSize; _FontBase = _CursesWindow->IFont->tf_Baseline; /* Alter the default LINES and COLS for custom curses */ LINES = WBScreen.Height/_FontHeight; COLS = WBScreen.Width/_FontWidth; } else { /* ANSI only */ /* if LINES and/or COLS set as environment variables then use them */ if((Ptr = getenv("LINES"))) { Tmp = atoi(Ptr); if(Tmp>0 && Tmp<=MAXLINES) LINES = Tmp; } if((Ptr = getenv("COLS"))) { Tmp = atoi(Ptr); if(Tmp>0 && Tmp<=MAXCOLS) COLS = Tmp; } } #ifdef DEBUG printf("FontHeight=%d, FontWidth=%d, FontBase=%d\n", _FontHeight, _FontWidth, _FontBase); printf("LINES=%d, COLS=%d\n", LINES, COLS); #endif /* Create stdscr and curscr */ stdscr = newwin(LINES, COLS, 0, 0); curscr = newwin(LINES, COLS, 0, 0); /* used for redraws */ #ifdef LATTICE if(onbreak(_BreakHandler)) { fprintf(stderr, "Failed to set BREAK handler.\n"); _CleanExit(10); } #else /* LATTICE */ if ((int)signal(SIGINT, _BreakHandler) == -1) { perror("Failed to set BREAK handler."); _CleanExit(10); } #endif /* else LATTICE */ if(_CursesType == ANSI_CURSES) { _ifh = Input(); if(_CursesFlags & CFLAG_CBREAK) _RawMode(_ifh); setupterm(); /* get the capability strings ready */ } return OK; }