4 ; Allow options for library units to be declared
6 ; © 1994-1998 Straylight
9 ;----- Licensing note -------------------------------------------------------
11 ; This file is part of Straylight's Sapphire library.
13 ; Sapphire is free software; you can redistribute it and/or modify
14 ; it under the terms of the GNU General Public License as published by
15 ; the Free Software Foundation; either version 2, or (at your option)
18 ; Sapphire is distributed in the hope that it will be useful,
19 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ; GNU General Public License for more details.
23 ; You should have received a copy of the GNU General Public License
24 ; along with Sapphire. If not, write to the Free Software Foundation,
25 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 ;----- Overview -------------------------------------------------------------
39 [ :LNOT::DEF:libOpts__dfn
42 ;+ LIB sapphire:^.bsh.libOpts
44 ; --- libOpts_register ---
46 ; On entry: R0 == address of an options block
50 ; Use: Adds the block given to the library options.
52 IMPORT libOpts_register
54 ; --- libOpts_find ---
56 ; On entry: R0 == magic marker word
58 ; On exit: CS if found, and
59 ; R0 == address of options block
63 ; Use: Tries to find an option with the given marker, which will
64 ; normally be a four-character text string. The first match
65 ; found will be returned. The options blocks are searched in
66 ; reverse order of registration (i.e. blocks registered later
67 ; will override blocks registered reviously).
71 ;----- Macros ---------------------------------------------------------------
78 ; --- Macro: LIBOPT ---
80 ; Arguments: name == name of this options subblock (4 characters)
82 ; Use: Sets up an options subblock with the given name.
89 lo__sz$lo__c EQU {PC}-lo__a$lo__c
101 ; --- Macro: LOEND ---
105 ; Use: Terminates a library options block.
112 lo__sz$lo__c EQU {PC}-lo__a$lo__c
123 ;----- That's all, folks ----------------------------------------------------