rom/dos/addsegment.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Add a segment to the resident list.
   6     Lang: english
   7 */
   8 #include "dos_intern.h"
   9 #include <string.h>
  10 #include <proto/exec.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <dos/dosextens.h>
  16 #include <proto/dos.h>
  17
  18         AROS_LH3(BOOL, AddSegment,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(CONST_STRPTR, name, D1),
  22         AROS_LHA(BPTR  , seg, D2),
  23         AROS_LHA(LONG  , type, D3),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 129, Dos)
  27
  28 /*  FUNCTION
  29         Adds a program segment to the system resident list. You can later
  30         use these segments to run programs.
  31
  32         The name field should refer to a NULL terminated strings, which
  33         will be copied. The type field determines the type of resident
  34         program. Normal programs should have type >= 0, system segments
  35         should have type == CMD_SYSTEM.
  36
  37         Note that all other values of type are reserved.
  38
  39     INPUTS
  40         name            - Name of the segment. This is used by FindSegment().
  41         seg             - Segment to add.
  42         type            - What type of segment (initial use count).
  43
  44     RESULT
  45         Segment will have been added to the DOS resident list.
  46
  47         != 0    success
  48         == 0    failure
  49
  50     NOTES
  51
  52     EXAMPLE
  53
  54     BUGS
  55         Uses Forbid() based locking.
  56
  57     SEE ALSO
  58         FindSegment(), RemSegment()
  59
  60     INTERNALS
  61
  62 *****************************************************************************/
  63 {
  64     AROS_LIBFUNC_INIT
  65
  66     struct Segment *sptr;
  67     struct DosInfo *dinf;
  68     int namelen = strlen(name) + 1;
  69
  70     Forbid();
  71
  72     if (FindSegment(name, NULL, type)) {
  73         Permit();
  74         return FALSE;
  75     }
  76
  77     sptr = AllocVec(sizeof(struct Segment) + namelen - 4 + 1,
  78                     MEMF_CLEAR | MEMF_PUBLIC);
  79
  80     if( sptr == NULL ) {
  81         Permit();
  82         return FALSE;
  83     }
  84
  85     dinf = BADDR(DOSBase->dl_Root->rn_Info);
  86
  87     sptr->seg_UC = type;
  88     sptr->seg_Seg = seg;
  89
  90 #ifdef AROS_FAST_BPTR
  91     CopyMem(name, sptr->seg_Name, namelen);
  92 #else
  93     CopyMem(name, &sptr->seg_Name[1], namelen);
  94     sptr->seg_Name[0] = namelen - 1;
  95 #endif
  96
  97     /* Sigh, we just add the segment to the start of the list */
  98     sptr->seg_Next = dinf->di_ResList;
  99     dinf->di_ResList = MKBADDR(sptr);
 100
 101     Permit();
 102     return TRUE;
 103
 104     AROS_LIBFUNC_EXIT
 105 } /* AddSegment */