workbench/c/AROSMonDrvs.c

   1 /*
   2     Copyright © 1995-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Code that loads and initializes necessary HIDDs.
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         AROSMonDrvs
  15
  16     SYNOPSIS
  17
  18         NOCOMPOSITION/S,ONLYCOMPOSITION/S
  19
  20     LOCATION
  21
  22         C:
  23
  24     FUNCTION
  25
  26         This command does almost the same thing as C:LoadMonDrvs does on
  27         other systems. However, additionally we support priority-based
  28         sorting for display drivers. This is needed in order to make monitor
  29         ID assignment more predictable.
  30
  31     INPUTS
  32
  33         NOCOMPOSITION   -- Only load Monitors
  34         ONLYCOMPOSITION -- Only load Compositor
  35
  36     RESULT
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48     HISTORY
  49
  50 ******************************************************************************/
  51
  52 #define DEBUG 0
  53
  54 #include <aros/debug.h>
  55 #include <dos/dosextens.h>
  56 #include <workbench/icon.h>
  57 #include <proto/alib.h>
  58 #include <proto/exec.h>
  59 #include <proto/dos.h>
  60 #include <proto/icon.h>
  61
  62 #include <aros/shcommands.h>
  63
  64 #include <stdlib.h>
  65 #include <string.h>
  66
  67 #define MONITORS_DIR     "DEVS:Monitors"
  68 #define COMPOSITING_NAME "Compositor"
  69
  70 /************************************************************************/
  71
  72 struct MonitorNode
  73 {
  74     struct Node n;
  75     char        Name[1];
  76 };
  77
  78 static BYTE checkIcon(STRPTR name, struct Library *IconBase)
  79 {
  80     LONG pri = 0;
  81     struct DiskObject *dobj = GetDiskObject(name);
  82
  83     if (dobj == NULL)
  84         return 0;
  85
  86     if ((dobj->do_Type == WBTOOL) || (dobj->do_Type == WBPROJECT))
  87     {
  88         const STRPTR *toolarray = (const STRPTR *)dobj->do_ToolTypes;
  89         STRPTR s;
  90
  91         if ((s = FindToolType(toolarray, "STARTPRI")))
  92         {
  93             pri = atol(s);
  94             if (pri < -128)
  95                 pri = -128;
  96             else if (pri > 127)
  97                 pri = 127;
  98         }
  99         FreeDiskObject(dobj);
 100     }
 101     return pri;
 102 }
 103
 104 static BOOL findMonitors(struct List *monitorsList, struct DosLibrary *DOSBase, struct Library *IconBase, struct ExecBase *SysBase, APTR poolmem)
 105 {
 106     BOOL retvalue = TRUE;
 107     LONG error;
 108     struct AnchorPath *ap = AllocPooled(poolmem, sizeof(struct AnchorPath));
 109
 110     DB2(bug("[LoadMonDrvs] AnchorPath 0x%p\n", ap));
 111     if (ap)
 112     {
 113         /* Initialize important fields in AnchorPath, especially
 114            ap_Strlen (prevents memory trashing) */
 115         ap->ap_Flags     = 0;
 116         ap->ap_Strlen    = 0;
 117         ap->ap_BreakBits = 0;
 118
 119         error = MatchFirst("~((#?.info)|(#?.dbg))", ap);
 120         while (!error)
 121         {
 122             struct MonitorNode *newnode;
 123
 124             DB2(bug("[LoadMonDrvs] Found monitor name %s\n", ap->ap_Info.fib_FileName));
 125
 126             /* Software composition driver was loaded before */
 127             if (strcmp(ap->ap_Info.fib_FileName, COMPOSITING_NAME))
 128             {
 129                 newnode = AllocPooled(poolmem, sizeof(struct MonitorNode) + strlen(ap->ap_Info.fib_FileName));
 130                 DB2(bug("[LoadMonDrvs] Monitor node 0x%p\n", newnode));
 131                 if (newnode == NULL)
 132                 {
 133                     retvalue = FALSE;
 134                     break;
 135                 }
 136
 137                 strcpy(newnode->Name, ap->ap_Info.fib_FileName);
 138                 if (IconBase)
 139                     newnode->n.ln_Pri = checkIcon(ap->ap_Info.fib_FileName, IconBase);
 140                 else
 141                     newnode->n.ln_Pri = 0;
 142                 Enqueue(monitorsList, &newnode->n);
 143             }
 144
 145             error = MatchNext(ap);
 146         }
 147
 148         if (error != ERROR_NO_MORE_ENTRIES)
 149         {
 150             retvalue = FALSE;
 151 /*          FIXME: Why no MatchEnd() in this case?
 152             goto exit; */
 153         }
 154         MatchEnd(ap);
 155     }
 156     else
 157         retvalue = FALSE;
 158
 159     return retvalue;
 160 }
 161
 162 static void loadMonitors(struct List *monitorsList, struct DosLibrary *DOSBase,
 163     struct ExecBase *SysBase)
 164 {
 165     struct MonitorNode *node;
 166
 167     D(bug("[LoadMonDrvs] Loading monitor drivers...\n"));
 168     D(bug(" Pri Name\n"));
 169
 170     ForeachNode(monitorsList, node)
 171     {
 172         D(bug("%4d %s\n", node->n.ln_Pri, node->Name));
 173         Execute(node->Name, BNULL, BNULL);
 174     }
 175
 176     D(bug("--------------------------\n"));
 177 }
 178
 179 AROS_SH2H(AROSMonDrvs, 1.0, "Load AROS Monitor and Compositor drivers",
 180         AROS_SHAH(BOOL, , NOCOMPOSITION,/S,FALSE, "Only load Monitors"),
 181         AROS_SHAH(BOOL, , ONLYCOMPOSITION,/S,FALSE, "Only load Compositor"))
 182 {
 183     AROS_SHCOMMAND_INIT
 184
 185     APTR pool;
 186     struct Library *IconBase;
 187     BPTR dir, olddir;
 188     BOOL res = TRUE;
 189
 190     dir = Lock(MONITORS_DIR, SHARED_LOCK);
 191     D(bug("[LoadMonDrvs] Monitors directory 0x%p\n", dir));
 192     if (dir)
 193     {
 194         olddir = CurrentDir(dir);
 195
 196         if (!SHArg(NOCOMPOSITION))
 197         {
 198             /* Software composition driver is run first */
 199             D(bug("[LoadMonDrvs] Loading composition driver...\n"));
 200             Execute(COMPOSITING_NAME, BNULL, BNULL);
 201         }
 202
 203         if (!SHArg(ONLYCOMPOSITION))
 204         {
 205             pool = CreatePool(MEMF_ANY, sizeof(struct MonitorNode) * 10, sizeof(struct MonitorNode) * 5);
 206             DB2(bug("[LoadMonDrvs] Created pool 0x%p\n", pool));
 207             if (pool)
 208             {
 209                 struct List MonitorsList;
 210
 211                 NewList(&MonitorsList);
 212                 IconBase = OpenLibrary("icon.library", 0);
 213                 if (IconBase)
 214                 {
 215                     findMonitors(&MonitorsList, DOSBase, IconBase, SysBase, pool);
 216                     loadMonitors(&MonitorsList, DOSBase, SysBase);
 217                     CloseLibrary(IconBase);
 218                 }
 219                 DeletePool(pool);
 220             }
 221             else
 222                 res = FALSE;
 223         }
 224
 225         CurrentDir(olddir);
 226         UnLock(dir);
 227     }
 228
 229     return res;
 230
 231     AROS_SHCOMMAND_EXIT
 232 }