rom/devs/scsi/scsi_init.c

   1 /*
   2     Copyright © 2004-2019, The AROS Development Team. All rights reserved
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <aros/debug.h>
  10
  11 #include <proto/exec.h>
  12
  13 /* We want all other bases obtained from our base */
  14 #define __NOLIBBASE__
  15
  16 #include <proto/timer.h>
  17 #include <proto/bootloader.h>
  18 #include <proto/expansion.h>
  19 #include <proto/oop.h>
  20
  21 #include <aros/bootloader.h>
  22 #include <aros/symbolsets.h>
  23 #include <exec/exec.h>
  24 #include <exec/resident.h>
  25 #include <exec/tasks.h>
  26 #include <exec/memory.h>
  27 #include <exec/nodes.h>
  28 #include <hidd/hidd.h>
  29 #include <hidd/bus.h>
  30 #include <hidd/storage.h>
  31 #include <utility/utility.h>
  32 #include <libraries/expansion.h>
  33 #include <libraries/configvars.h>
  34 #include <dos/bptr.h>
  35 #include <dos/dosextens.h>
  36 #include <dos/filehandler.h>
  37 #include <string.h>
  38
  39 #include "scsi.h"
  40 #include "timer.h"
  41
  42 #include LC_LIBDEFS_FILE
  43
  44 /* Add a bootnode using expansion.library */
  45 BOOL scsi_RegisterVolume(ULONG StartCyl, ULONG EndCyl, struct scsi_Unit *unit)
  46 {
  47     struct ExpansionBase *ExpansionBase;
  48     struct DeviceNode *devnode;
  49     TEXT dosdevname[4] = "HD0";
  50     const ULONG IdDOS = AROS_MAKE_ID('D','O','S','\001');
  51     const ULONG IdCDVD = AROS_MAKE_ID('C','D','V','D');
  52
  53     ExpansionBase = (struct ExpansionBase *)OpenLibrary("expansion.library",
  54                                                         40L);
  55
  56     if (ExpansionBase)
  57     {
  58         IPTR pp[24];
  59
  60         /* This should be dealt with using some sort of volume manager or such. */
  61         switch (unit->su_DevType)
  62         {
  63             case DG_DIRECT_ACCESS:
  64                 break;
  65             case DG_CDROM:
  66                 dosdevname[0] = 'C';
  67                 break;
  68             default:
  69                 D(bug("[SCSI>>]:-scsi_RegisterVolume called on unknown devicetype\n"));
  70         }
  71
  72         if (unit->su_UnitNum < 10)
  73             dosdevname[2] += unit->su_UnitNum % 10;
  74         else
  75             dosdevname[2] = 'A' - 10 + unit->su_UnitNum;
  76
  77         pp[0]               = (IPTR)dosdevname;
  78         pp[1]               = (IPTR)MOD_NAME_STRING;
  79         pp[2]               = unit->su_UnitNum;
  80         pp[DE_TABLESIZE    + 4] = DE_BOOTBLOCKS;
  81         pp[DE_SIZEBLOCK    + 4] = 1 << (unit->su_SectorShift - 2);
  82         pp[DE_NUMHEADS     + 4] = unit->su_Heads;
  83         pp[DE_SECSPERBLOCK + 4] = 1;
  84         pp[DE_BLKSPERTRACK + 4] = unit->su_Sectors;
  85         pp[DE_RESERVEDBLKS + 4] = 2;
  86         pp[DE_LOWCYL       + 4] = StartCyl;
  87         pp[DE_HIGHCYL      + 4] = EndCyl;
  88         pp[DE_NUMBUFFERS   + 4] = 10;
  89         pp[DE_BUFMEMTYPE   + 4] = MEMF_PUBLIC | MEMF_31BIT;
  90         pp[DE_MAXTRANSFER  + 4] = 0x00200000;
  91         pp[DE_MASK         + 4] = 0x7FFFFFFE;
  92         pp[DE_BOOTPRI      + 4] = ((unit->su_DevType == DG_DIRECT_ACCESS) ? 0 : 10);
  93         pp[DE_DOSTYPE      + 4] = ((unit->su_DevType == DG_DIRECT_ACCESS) ? IdDOS : IdCDVD);
  94         pp[DE_CONTROL      + 4] = 0;
  95         pp[DE_BOOTBLOCKS   + 4] = 2;
  96
  97         devnode = MakeDosNode(pp);
  98
  99         if (devnode)
 100         {
 101             D(bug("[SCSI>>]:-scsi_RegisterVolume: '%b', type=0x%08lx with StartCyl=%d, EndCyl=%d .. ",
 102                   devnode->dn_Name, pp[DE_DOSTYPE + 4], StartCyl, EndCyl));
 103
 104             AddBootNode(pp[DE_BOOTPRI + 4], ADNF_STARTPROC, devnode, NULL);
 105             D(bug("done\n"));
 106
 107             return TRUE;
 108         }
 109
 110         CloseLibrary((struct Library *)ExpansionBase);
 111     }
 112
 113     return FALSE;
 114 }
 115
 116 #if defined(__OOP_NOATTRBASES__)
 117 /* Keep order the same as order of IDs in struct scsiBase! */
 118 static CONST_STRPTR const attrBaseIDs[] =
 119 {
 120     IID_Hidd_SCSIUnit,
 121     IID_HW,
 122     IID_Hidd_Bus,
 123     IID_Hidd_SCSIBus,
 124     IID_Hidd_StorageUnit,
 125     NULL
 126 };
 127 #endif
 128
 129 #if defined(__OOP_NOMETHODBASES__)
 130 static CONST_STRPTR const methBaseIDs[] =
 131 {
 132     IID_HW,
 133     IID_Hidd_SCSIBus,
 134     IID_Hidd_StorageController,
 135     NULL
 136 };
 137 #endif
 138
 139 static int SCSI_init(struct scsiBase *SCSIBase)
 140 {
 141     struct BootLoaderBase       *BootLoaderBase;
 142
 143     D(bug("[SCSI--] %s: scsi.device Initialization\n", __PRETTY_FUNCTION__));
 144
 145     /* Prepare the list of detected controllers */
 146     NEWLIST(&SCSIBase->scsi_Controllers);
 147
 148     /* Set default scsi.device config options */
 149     SCSIBase->scsi_32bit   = FALSE;
 150     SCSIBase->scsi_NoMulti = FALSE;
 151     SCSIBase->scsi_NoDMA   = FALSE;
 152     SCSIBase->scsi_Poll    = FALSE;
 153
 154     /*
 155      * start initialization:
 156      * obtain kernel parameters
 157      */
 158     BootLoaderBase = OpenResource("bootloader.resource");
 159     D(bug("[SCSI--] %s: BootloaderBase = %p\n", __PRETTY_FUNCTION__, BootLoaderBase));
 160     if (BootLoaderBase != NULL)
 161     {
 162         struct List *list;
 163         struct Node *node;
 164
 165         list = (struct List *)GetBootInfo(BL_Args);
 166         if (list)
 167         {
 168             ForeachNode(list, node)
 169             {
 170                 if (strncmp(node->ln_Name, "SCSI=", 4) == 0)
 171                 {
 172                     const char *CmdLine = &node->ln_Name[4];
 173
 174                     if (strstr(CmdLine, "disable"))
 175                     {
 176                         D(bug("[SCSI  ] %s: Disabling SCSI support\n", __PRETTY_FUNCTION__));
 177                         return FALSE;
 178                     }
 179                     if (strstr(CmdLine, "32bit"))
 180                     {
 181                         D(bug("[SCSI  ] %s: Using 32-bit IO transfers\n", __PRETTY_FUNCTION__));
 182                         SCSIBase->scsi_32bit = TRUE;
 183                     }
 184                     if (strstr(CmdLine, "nomulti"))
 185                     {
 186                         D(bug("[SCSI  ] %s: Disabled multisector transfers\n", __PRETTY_FUNCTION__));
 187                         SCSIBase->scsi_NoMulti = TRUE;
 188                     }
 189                     if (strstr(CmdLine, "nodma"))
 190                     {
 191                         D(bug("[SCSI  ] %s: Disabled DMA transfers\n", __PRETTY_FUNCTION__));
 192                         SCSIBase->scsi_NoDMA = TRUE;
 193                     }
 194                     if (strstr(CmdLine, "poll"))
 195                     {
 196                         D(bug("[SCSI  ] %s: Using polling to detect end of busy state\n", __PRETTY_FUNCTION__));
 197                         SCSIBase->scsi_Poll = TRUE;
 198                     }
 199                 }
 200             }
 201         }
 202     }
 203
 204     SCSIBase->scsi_UtilityBase = OpenLibrary("utility.library", 36);
 205     if (!SCSIBase->scsi_UtilityBase)
 206     {
 207         bug("[SCSI--] %s: Failed to open utility.library v36\n", __PRETTY_FUNCTION__);
 208         return FALSE;
 209     }
 210     /*
 211      * I've decided to use memory pools again. Alloc everything needed from
 212      * a pool, so that we avoid memory fragmentation.
 213      */
 214     SCSIBase->scsi_MemPool = CreatePool(MEMF_CLEAR | MEMF_PUBLIC | MEMF_SEM_PROTECTED , 8192, 4096);
 215     if (SCSIBase->scsi_MemPool == NULL)
 216     {
 217         bug("[SCSI--] %s: Failed to Allocate MemPool!\n", __PRETTY_FUNCTION__);
 218         return FALSE;
 219     }
 220
 221     D(bug("[SCSI--] %s: MemPool @ %p\n", __PRETTY_FUNCTION__, SCSIBase->scsi_MemPool));
 222
 223 #if defined(__OOP_NOATTRBASES__)
 224     if (OOP_ObtainAttrBasesArray(&SCSIBase->unitAttrBase, attrBaseIDs))
 225     {
 226         bug("[SCSI--] %s: Failed to obtain AttrBases!\n", __PRETTY_FUNCTION__);
 227         return FALSE;
 228     }
 229     D(
 230       bug("[SCSI--] %s: HiddBusAB %x @ 0x%p\n", __func__, HiddBusAB, &HiddBusAB);
 231       bug("[SCSI--] %s: HiddSCSIBusAB %x @ 0x%p\n", __func__, HiddSCSIBusAB, &HiddSCSIBusAB);
 232     )
 233 #endif
 234
 235 #if defined(__OOP_NOMETHODBASES__)
 236     if (OOP_ObtainMethodBasesArray(&SCSIBase->hwMethodBase, methBaseIDs))
 237     {
 238         bug("[SCSI--] %s: Failed to obtain MethodBases!\n", __PRETTY_FUNCTION__);
 239         bug("[SCSI--] %s:     %s = %p\n", __PRETTY_FUNCTION__, methBaseIDs[0], SCSIBase->hwMethodBase);
 240         bug("[SCSI--] %s:     %s = %p\n", __PRETTY_FUNCTION__, methBaseIDs[1], SCSIBase->busMethodBase);
 241         bug("[SCSI--] %s:     %s = %p\n", __PRETTY_FUNCTION__, methBaseIDs[2], SCSIBase->HiddSCMethodBase);
 242 #if defined(__OOP_NOATTRBASES__)
 243          OOP_ReleaseAttrBasesArray(&SCSIBase->unitAttrBase, attrBaseIDs);
 244 #endif
 245         return FALSE;
 246     }
 247 #endif
 248
 249     D(bug("[SCSI  ] %s: Base SCSI Hidd Class @ 0x%p\n", __PRETTY_FUNCTION__, SCSIBase->scsiClass));
 250
 251     /* Try to setup daemon task looking for diskchanges */
 252     NEWLIST(&SCSIBase->Daemon_ios);
 253     InitSemaphore(&SCSIBase->DaemonSem);
 254     InitSemaphore(&SCSIBase->DetectionSem);
 255     SCSIBase->daemonParent = FindTask(NULL);
 256     SetSignal(0, SIGF_SINGLE);
 257
 258     if (!NewCreateTask(TASKTAG_PC, DaemonCode,
 259                        TASKTAG_NAME       , "SCSI.daemon",
 260                        TASKTAG_STACKSIZE  , STACK_SIZE,
 261                        TASKTAG_TASKMSGPORT, &SCSIBase->DaemonPort,
 262                        TASKTAG_PRI        , TASK_PRI - 1,       /* The daemon should have a little bit lower Pri than handler tasks */
 263                        TASKTAG_ARG1       , SCSIBase,
 264                        TAG_DONE))
 265     {
 266         bug("[SCSI  ] %s: Failed to start up daemon!\n", __PRETTY_FUNCTION__);
 267         return FALSE;
 268     }
 269
 270     /* Wait for handshake */
 271     Wait(SIGF_SINGLE);
 272     D(bug("[SCSI  ] %s: Daemon task set to 0x%p\n", __PRETTY_FUNCTION__, SCSIBase->scsi_Daemon));
 273
 274     return SCSIBase->scsi_Daemon ? TRUE : FALSE;
 275 }
 276
 277 static int scsi_expunge(struct scsiBase *SCSIBase)
 278 {
 279     struct scsi_Controller *scsiNode, *tmpNode;
 280     ForeachNodeSafe (&SCSIBase->scsi_Controllers, scsiNode, tmpNode)
 281     {
 282         OOP_Object *storageRoot;
 283         /*
 284          * CLID_Hidd_Storage is a singletone, you can get it as many times as
 285          * you want. Here we save up some space in struct scsiBase by
 286          * obtaining storageRoot object only when we need it. This happens
 287          * rarely, so small performance loss is OK here.
 288          */
 289         storageRoot = OOP_NewObject(NULL, CLID_Hidd_Storage, NULL);
 290         if (!storageRoot)
 291             storageRoot = OOP_NewObject(NULL, CLID_HW_Root, NULL);
 292         if (storageRoot && HW_RemoveDriver(storageRoot, scsiNode->sc_Object))
 293         {
 294             Remove(&scsiNode->sc_Node);
 295             /* Destroy our singletone */
 296             OOP_MethodID disp_msg = OOP_GetMethodID(IID_Root, moRoot_Dispose);
 297
 298             D(bug("[SCSI  ] scsi_expunge: Stopping Daemon...\n"));
 299             SCSIBase->daemonParent = FindTask(NULL);
 300             SetSignal(0, SIGF_SINGLE);
 301             Signal(SCSIBase->scsi_Daemon, SIGBREAKF_CTRL_C);
 302             Wait(SIGF_SINGLE);
 303
 304             D(bug("[SCSI  ] scsi_expunge: Done, destroying subystem object\n"));
 305             OOP_DoSuperMethod(scsiNode->sc_Class, scsiNode->sc_Object, &disp_msg);
 306             FreeMem(scsiNode, sizeof(struct scsi_Controller));
 307         }
 308         else
 309         {
 310             /* Our subsystem is in use, we have some bus driver(s) around. */
 311             D(bug("[SCSI  ] scsi_expunge: SCSI subsystem is in use\n"));
 312             return FALSE;
 313         }
 314     }
 315
 316 #if defined(__OOP_NOATTRBASES__)
 317     D(bug("[SCSI  ] scsi_expunge: Releasing attribute bases\n"));
 318     OOP_ReleaseAttrBasesArray(&SCSIBase->unitAttrBase, attrBaseIDs);
 319 #endif
 320
 321     if (SCSIBase->scsi_UtilityBase)
 322         CloseLibrary(SCSIBase->scsi_UtilityBase);
 323
 324     D(bug("[SCSI  ] scsi_expunge: Exiting\n"));
 325     return TRUE;
 326 }
 327
 328 static int open(struct scsiBase *SCSIBase, struct IORequest *iorq,
 329                 ULONG unitnum, ULONG flags)
 330 {
 331     struct scsi_Controller *scsiNode;
 332     struct Hook searchHook =
 333     {
 334         .h_Entry = Hidd_SCSIBus_Open,
 335         .h_Data  = iorq
 336     };
 337
 338     /* Assume it failed */
 339     iorq->io_Error  = IOERR_OPENFAIL;
 340     iorq->io_Device = &SCSIBase->scsi_Device;
 341     iorq->io_Unit   = (APTR)(IPTR)-1;
 342
 343     /* Try to find the unit */
 344     ForeachNode (&SCSIBase->scsi_Controllers, scsiNode)
 345     {
 346         HIDD_StorageController_EnumBuses(scsiNode->sc_Object, &searchHook, (APTR)(IPTR)unitnum);
 347     }
 348     D(bug("[SCSI%02d] Open result: %d\n", unitnum, iorq->io_Error));
 349
 350     /* If found, io_Error will be reset to zero */
 351     return iorq->io_Error ? FALSE : TRUE;
 352 }
 353
 354 /* Close given device */
 355 static int close
 356 (
 357     LIBBASETYPEPTR LIBBASE,
 358     struct IORequest *iorq
 359 )
 360 {
 361     struct scsi_Unit *unit = (struct scsi_Unit *)iorq->io_Unit;
 362
 363     /* First of all make the important fields of struct IORequest invalid! */
 364     iorq->io_Unit = (struct Unit *)~0;
 365
 366     /* Decrease use counters of unit */
 367     unit->su_Unit.unit_OpenCnt--;
 368
 369     return TRUE;
 370 }
 371
 372 ADD2INITLIB(SCSI_init, 0)
 373 ADD2EXPUNGELIB(scsi_expunge, 0)
 374 ADD2OPENDEV(open, 0)
 375 ADD2CLOSEDEV(close, 0)