rom/graphics/graphics_init.c

   1 /*
   2     Copyright © 1995-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Graphics library
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10
  11 #include <exec/resident.h>
  12 #include <proto/exec.h>
  13 #include <aros/libcall.h>
  14 #include <aros/symbolsets.h>
  15 #include <aros/config.h>
  16 #include <hardware/intbits.h>
  17 #include <dos/dos.h>
  18 #include <exec/execbase.h>
  19 #include <exec/memory.h>
  20 #include <exec/lists.h>
  21 #include <graphics/gfxbase.h>
  22 #include <graphics/text.h>
  23 #include <graphics/regions.h>
  24 #include <proto/graphics.h>
  25 #include <utility/utility.h>
  26
  27 #include "graphics_intern.h"
  28 #include "default_font.h"
  29 #include "fakegfxhidd.h"
  30
  31 #include LC_LIBDEFS_FILE
  32
  33 #include <stdio.h>
  34
  35 extern int  driver_init (struct GfxBase *);
  36 extern void driver_expunge (struct GfxBase *);
  37
  38 AROS_INTP(TOF_VBlank);
  39
  40 #ifndef SYSFONTNAME
  41 #   define SYSFONTNAME  "topaz.font"
  42 #endif
  43
  44 BOOL InitROMFont(struct GfxBase *);
  45
  46 static int GfxInit(struct GfxBase *LIBBASE)
  47 {
  48     HiddBitMapBase = OOP_GetMethodID(IID_Hidd_BitMap, 0);
  49     HiddColorMapBase = OOP_GetMethodID(IID_Hidd_ColorMap, 0);
  50     HiddGfxBase = OOP_GetMethodID(IID_Hidd_Gfx, 0);
  51     HiddGCBase = OOP_GetMethodID(IID_Hidd_GC, 0);
  52     HiddPlanarBMBase = OOP_GetMethodID(IID_Hidd_PlanarBM, 0);
  53
  54     NEWLIST(&LIBBASE->BlitWaitQ);
  55     NEWLIST(&LIBBASE->TextFonts);
  56     InitSemaphore( &PrivGBase(GfxBase)->hashtab_sema );
  57     InitSemaphore( &PrivGBase(GfxBase)->view_sema );
  58     InitSemaphore( &PrivGBase(GfxBase)->tfe_hashtab_sema );
  59     InitSemaphore( &PrivGBase(GfxBase)->fontsem );
  60
  61     NEWLIST(&LIBBASE->MonitorList);
  62     LIBBASE->MonitorList.lh_Type = MONITOR_SPEC_TYPE;
  63     GfxBase->MonitorListSemaphore = &PrivGBase(GfxBase)->monitors_sema;
  64     InitSemaphore(GfxBase->MonitorListSemaphore);
  65
  66     LIBBASE->hash_table = AllocMem(GFXASSOCIATE_HASHSIZE * sizeof(APTR), MEMF_CLEAR|MEMF_PUBLIC);
  67     if (!LIBBASE->hash_table)
  68         return FALSE;
  69
  70     LIBBASE->HashTableSemaphore = &PrivGBase(GfxBase)->hashtab_sema;
  71     LIBBASE->ActiViewCprSemaphore = &PrivGBase(GfxBase)->view_sema;
  72
  73     LIBBASE->NormalDisplayColumns = AROS_DEFAULT_WBWIDTH;
  74     LIBBASE->NormalDisplayRows = AROS_DEFAULT_WBHEIGHT;
  75     LIBBASE->MaxDisplayColumn = AROS_DEFAULT_WBWIDTH;
  76     LIBBASE->MaxDisplayRow = AROS_DEFAULT_WBHEIGHT;
  77
  78     PrivGBase(LIBBASE)->basebm = OOP_FindClass(CLID_Hidd_BitMap);
  79     bug("[Gfx] BitMap class @ 0x%p\n", PrivGBase(LIBBASE)->basebm);
  80
  81 #if REGIONS_USE_MEMPOOL
  82     InitSemaphore( &PrivGBase(GfxBase)->regionsem );
  83     if (!(PrivGBase(GfxBase)->regionpool = CreatePool(MEMF_PUBLIC | MEMF_CLEAR,
  84                                                       sizeof(struct Region) * 20,
  85                                                       sizeof(struct Region) * 20)))
  86     {
  87         return FALSE;
  88     }
  89
  90     NEWLIST(&PrivGBase(GfxBase)->ChunkPoolList);
  91 #endif
  92
  93     if (!InitROMFont(LIBBASE)) return FALSE;
  94
  95     return driver_init (LIBBASE);
  96 }
  97
  98 static int GfxOpen(struct GfxBase *LIBBASE)
  99 {
 100     struct TextFont * def;
 101
 102     if (!LIBBASE->DefaultFont)
 103     {
 104         struct TextAttr sysTA;
 105         sysTA.ta_Name  = (STRPTR)SYSFONTNAME;
 106         sysTA.ta_YSize = 8;
 107         sysTA.ta_Style = FS_NORMAL;
 108         sysTA.ta_Flags = 0;
 109
 110         def = OpenFont (&sysTA);
 111
 112         if (!def)
 113             return 0;
 114
 115         LIBBASE->DefaultFont = def;
 116         sysTA.ta_YSize = def->tf_YSize;
 117     }
 118
 119     if(! LIBBASE->VBlank)
 120     {
 121         NEWLIST(&LIBBASE->TOF_WaitQ);
 122         LIBBASE->vbsrv.is_Code         = (VOID_FUNC)TOF_VBlank;
 123         LIBBASE->vbsrv.is_Data         = LIBBASE;
 124         LIBBASE->vbsrv.is_Node.ln_Name = "Graphics TOF server";
 125         LIBBASE->vbsrv.is_Node.ln_Pri  = 10;
 126         LIBBASE->vbsrv.is_Node.ln_Type = NT_INTERRUPT;
 127
 128         /* Add a VBLANK server to take care of TOF waiting tasks. */
 129         AddIntServer(INTB_VERTB, &LIBBASE->vbsrv);
 130         LIBBASE->VBlank = 50;
 131     }
 132
 133     return TRUE;
 134 }
 135
 136 ADD2INITLIB(GfxInit, 0);
 137 ADD2OPENLIB(GfxOpen, 0);
 138
 139 #undef SysBase
 140
 141 AROS_INTH1(TOF_VBlank, struct GfxBase *, GfxBase)
 142 {
 143     AROS_INTFUNC_INIT
 144
 145     struct Node *tNode;
 146
 147     GfxBase->VBCounter++;
 148     if(!IsListEmpty(&GfxBase->TOF_WaitQ))
 149     {
 150         ForeachNode(&GfxBase->TOF_WaitQ, tNode)
 151         {
 152             Signal((struct Task *)tNode->ln_Name, SIGF_SINGLE);
 153         }
 154     }
 155
 156     return 0;
 157
 158     AROS_INTFUNC_EXIT
 159 }