workbench/c/AROSMonDrvs.c

   1 /*
   2     Copyright © 1995-2012, 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)", 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 {
 164     struct MonitorNode *node;
 165
 166     D(bug("[LoadMonDrvs] Loading monitor drivers...\n"));
 167     D(bug(" Pri Name\n"));
 168
 169     ForeachNode(monitorsList, node)
 170     {
 171         D(bug("%4d %s\n", node->n.ln_Pri, node->Name));
 172         Execute(node->Name, BNULL, BNULL);
 173     }
 174
 175     D(bug("--------------------------\n"));
 176 }
 177
 178 AROS_SH2H(AROSMonDrvs, 1.0, "Load AROS Monitor and Compositor drivers",
 179         AROS_SHAH(BOOL, , NOCOMPOSITION,/S,FALSE, "Only load Monitors"),
 180         AROS_SHAH(BOOL, , ONLYCOMPOSITION,/S,FALSE, "Only load Compositor"))
 181 {
 182     AROS_SHCOMMAND_INIT
 183
 184     APTR pool;
 185     struct Library *IconBase;
 186     BPTR dir, olddir;
 187     BOOL res = TRUE;
 188
 189     dir = Lock(MONITORS_DIR, SHARED_LOCK);
 190     D(bug("[LoadMonDrvs] Monitors directory 0x%p\n", dir));
 191     if (dir)
 192     {
 193         olddir = CurrentDir(dir);
 194
 195         if (!SHArg(NOCOMPOSITION))
 196         {
 197             /* Software composition driver is ran first */
 198             D(bug("[LoadMonDrvs] Loading composition driver...\n"));
 199             Execute(COMPOSITING_NAME, BNULL, BNULL);
 200         }
 201
 202         if (!SHArg(ONLYCOMPOSITION))
 203         {
 204             pool = CreatePool(MEMF_ANY, sizeof(struct MonitorNode) * 10, sizeof(struct MonitorNode) * 5);
 205             DB2(bug("[LoadMonDrvs] Created pool 0x%p\n", pool));
 206             if (pool)
 207             {
 208                 struct List MonitorsList;
 209
 210                 NewList(&MonitorsList);
 211                 IconBase = OpenLibrary("icon.library", 0);
 212                 if (IconBase)
 213                 {
 214                     findMonitors(&MonitorsList, DOSBase, IconBase, SysBase, pool);
 215                     loadMonitors(&MonitorsList, DOSBase);
 216                     CloseLibrary(IconBase);
 217                 }
 218                 DeletePool(pool);
 219             }
 220             else
 221                 res = FALSE;
 222         }
 223
 224         CurrentDir(olddir);
 225         UnLock(dir);
 226     }
 227
 228     return res;
 229
 230     AROS_SHCOMMAND_EXIT
 231 }