chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/sail/_sh/strBucket

   1 ;
   2 ; strBucket.sh
   3 ;
   4 ; String bucket handling
   5 ;
   6 ; © 1995 Straylight
   7 ;
   8
   9 ;----- Overview -------------------------------------------------------------
  10 ;
  11 ; Functions provided:
  12 ;
  13 ;  strBucket_init
  14 ;  strBucket_alloc
  15 ;  strBucket_free
  16
  17                 [       :LNOT::DEF:strBucket__dfn
  18                 GBLL    strBucket__dfn
  19
  20 ; --- strBucket_init ---
  21 ;
  22 ; On entry:     --
  23 ;
  24 ; On exit:      --
  25 ;
  26 ; Use:          Initialises the string bucket.
  27
  28                 IMPORT  strBucket_init
  29
  30 ; --- strBucket_alloc ---
  31 ;
  32 ; On entry:     R0 == size of string to allocate
  33 ;
  34 ; On exit:      R0 == pointer to area to use (length at [R0,#-1])
  35 ;               R1 == offset to that (for storing)
  36 ;
  37 ; Use:          Allocates space for a string of the given size.
  38
  39                 IMPORT  strBucket_alloc
  40
  41 ; --- strBucket_free ---
  42 ;
  43 ; On entry:     R0 == offset of string to free
  44 ;
  45 ; On exit:      --
  46 ;
  47 ; Use:          Frees the memory the string took up.
  48
  49                 IMPORT  strBucket_free
  50
  51                 ]
  52
  53 ;----- That's all, folks ----------------------------------------------------
  54
  55                 END