git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_load.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                tgi_load.c                                 */
   4 /*                                                                           */
   5 /*                       Loader module for TGI drivers                       */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 2002      Ullrich von Bassewitz                                       */
  10 /*               Wacholderweg 14                                             */
  11 /*               D-70597 Stuttgart                                           */
  12 /* EMail:        uz@musoftware.de                                            */
  13 /*                                                                           */
  14 /*                                                                           */
  15 /* This software is provided 'as-is', without any expressed or implied       */
  16 /* warranty.  In no event will the authors be held liable for any damages    */
  17 /* arising from the use of this software.                                    */
  18 /*                                                                           */
  19 /* Permission is granted to anyone to use this software for any purpose,     */
  20 /* including commercial applications, and to alter it and redistribute it    */
  21 /* freely, subject to the following restrictions:                            */
  22 /*                                                                           */
  23 /* 1. The origin of this software must not be misrepresented; you must not   */
  24 /*    claim that you wrote the original software. If you use this software   */
  25 /*    in a product, an acknowledgment in the product documentation would be  */
  26 /*    appreciated but is not required.                                       */
  27 /* 2. Altered source versions must be plainly marked as such, and must not   */
  28 /*    be misrepresented as being the original software.                      */
  29 /* 3. This notice may not be removed or altered from any source              */
  30 /*    distribution.                                                          */
  31 /*                                                                           */
  32 /*****************************************************************************/
  33
  34
  35
  36 #include <stdio.h>
  37 #include <string.h>
  38 #include <modload.h>
  39 #include <tgi.h>
  40 #include <tgi/tgi-kernel.h>
  41
  42
  43
  44 static unsigned char ReadInputBlock (struct mod_ctrl* C, void* Buf, unsigned Size)
  45 {
  46     return (fread (Buf, 1, Size, C->callerdata) != Size);
  47 }
  48
  49
  50
  51 void __fastcall__ tgi_load (unsigned char mode)
  52 /* Install the matching driver for the given mode. Will just load the driver
  53  * and check if loading was successul. Will not switch to gaphics mode.
  54  */
  55 {
  56     const char* name = tgi_map_mode (mode);
  57     if (name == 0) {
  58         /* No driver for this mode */
  59         tgi_error = TGI_ERR_NO_DRIVER;
  60     } else {
  61         /* Laod the driver */
  62         tgi_load_driver (name);
  63     }
  64 }
  65
  66
  67
  68 void __fastcall__ tgi_load_driver (const char* name)
  69 /* Install the given driver. This function is identical to tgi_load with the
  70  * only difference that the name of the driver is specified explicitly. You
  71  * should NOT use this function in most cases, use tgi_load() instead.
  72  */
  73 {
  74     static const unsigned char marker[4] = { 0x74, 0x67, 0x69, 0x00 };
  75
  76     static struct mod_ctrl ctrl = {
  77         ReadInputBlock           /* read_block */
  78     };
  79     unsigned Res;
  80
  81     /* Check if we do already have a driver loaded. If so, remove it. */
  82     if (tgi_drv != 0) {
  83         tgi_unload ();
  84     }
  85
  86     /* Now open the file */
  87     ctrl.callerdata = fopen (name, "r");
  88     if (ctrl.callerdata == 0) {
  89         tgi_error = TGI_ERR_CANNOT_LOAD;
  90         return;
  91     }
  92
  93     /* Load the module */
  94     Res = mod_load (&ctrl);
  95
  96     /* Close the input file */
  97     fclose (ctrl.callerdata);
  98
  99     /* Check the return code */
 100     if (Res == MLOAD_OK) {
 101
 102         /* Get a pointer to the loaded driver */
 103         tgi_drv = (tgi_drv_header*) ctrl.module;
 104
 105         /* Check the header */
 106         if (memcmp (tgi_drv, marker, sizeof (marker)) != 0) {
 107             /* Invalid driver */
 108             mod_free (tgi_drv);
 109             tgi_drv = 0;
 110             tgi_error = TGI_ERR_INV_DRIVER;
 111         } else {
 112             /* Driver is ok do setup */
 113             tgi_setup ();
 114         }
 115
 116     } else {
 117
 118         /* Error loading the driver */
 119         tgi_error = TGI_ERR_CANNOT_LOAD;
 120
 121     }
 122 }