workbench/libs/diskfont/diskfont_init.c

   1 /*
   2     Copyright © 1995-2016, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Diskfont initialization code.
   6     Lang: English.
   7 */
   8
   9 #include <exec/types.h>
  10 #include <exec/memory.h>
  11 #include <graphics/text.h>
  12 #include <diskfont/diskfont.h>
  13 #include <aros/symbolsets.h>
  14 #include <proto/exec.h>
  15 #include <proto/dos.h>
  16 #include <proto/graphics.h>
  17
  18 #include LC_LIBDEFS_FILE
  19 #include "diskfont_intern.h"
  20
  21 /****************************************************************************************/
  22
  23 #include <aros/debug.h>
  24
  25 /****************************************************************************************/
  26
  27 AROS_UFP3(int, CleanMem,
  28     AROS_UFPA(struct MemHandlerData *, mhdata, A0),
  29     AROS_UFPA(LIBBASETYPEPTR, LIBBASE, A1),
  30     AROS_UFPA(struct ExecBase *, SysBase, A6)
  31 );
  32
  33 /****************************************************************************************/
  34
  35 static int Init(LIBBASETYPEPTR LIBBASE)
  36 {
  37     /* This function is single-threaded by exec by calling Forbid. */
  38     D(bug("Inside initfunc\n"));
  39
  40     NEWLIST(&LIBBASE->diskfontlist);
  41     NEWLIST(&LIBBASE->fontsdirentrylist);
  42     InitSemaphore(&LIBBASE->fontssemaphore);
  43
  44     /* Insert the fonthooks into the DiskfontBase */
  45
  46     LIBBASE->dsh.h_Entry = (void *)AROS_ASMSYMNAME(dosstreamhook);
  47     LIBBASE->dsh.h_Data = DOSBase;
  48
  49     LIBBASE->memint.is_Data = (APTR) LIBBASE;
  50     LIBBASE->memint.is_Code = (VOID (*)()) CleanMem;
  51     LIBBASE->memint.is_Node.ln_Pri = 1; /* Just above RamLib */
  52     AddMemHandler(&LIBBASE->memint);
  53
  54     D(bug("diskfont.library initialized successfully\n"));
  55
  56     return TRUE;
  57 }
  58
  59 /****************************************************************************************/
  60
  61
  62 static int Expunge(LIBBASETYPEPTR LIBBASE)
  63 {
  64     /*
  65         This function is single-threaded by exec by calling Forbid.
  66         Never break the Forbid() or strange things might happen.
  67     */
  68     D(bug("Inside expungefunc\n"));
  69
  70     RemMemHandler(&LIBBASE->memint);
  71
  72     CleanUpFontsDirEntryList(LIBBASE);
  73
  74     D(bug("diskfont.library expunged\n"));
  75
  76     return TRUE;
  77 }
  78
  79 /****************************************************************************************/
  80
  81 AROS_UFH3(int, CleanMem,
  82     AROS_UFHA(struct MemHandlerData *, mhdata, A0),
  83     AROS_UFHA(LIBBASETYPEPTR, LIBBASE, A1),
  84     AROS_UFHA(struct ExecBase *, SysBase, A6)
  85 )
  86 {
  87     AROS_USERFUNC_INIT
  88
  89     struct DiskFontHeader *dfh, *dfh2;
  90
  91     D(bug("Inside CleanMem\n"));
  92
  93     ForeachNodeSafe(&LIBBASE->diskfontlist, dfh, dfh2)
  94     {
  95         if (dfh->dfh_TF.tf_Accessors < 1)
  96         {
  97             /* Possible paranoia check */
  98             if (!(dfh->dfh_TF.tf_Flags & FPF_REMOVED))
  99             {
 100                 /* Unlink from GfxBase->TextFonts */
 101                 REMOVE(&dfh->dfh_TF.tf_Message.mn_Node);
 102
 103                 StripFont(&dfh->dfh_TF);
 104
 105                 /* Unlink from DiskfontBase->diskfontlist */
 106
 107                 REMOVE(&dfh->dfh_DF);
 108
 109                 UnLoadSeg(dfh->dfh_Segment);
 110             }
 111         }
 112     }
 113
 114     D(bug("CleanMem Finished\n"));
 115
 116     return MEM_ALL_DONE;
 117
 118     AROS_USERFUNC_EXIT
 119 }
 120
 121 /****************************************************************************************/
 122
 123 ADD2INITLIB(Init, 0);
 124 ADD2EXPUNGELIB(Expunge, 0);