mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-24 22:40:51 -08:00
126 lines
3.7 KiB
C
126 lines
3.7 KiB
C
/* arg.c: ARGUMENT LISTS
|
|
*
|
|
* $Id: //info.ravenbrook.com/project/mps/custom/cet/main/code/bt.c#1 $
|
|
* Copyright (c) 2013 Ravenbrook Limited. See end of file for license.
|
|
*/
|
|
|
|
#include "config.h"
|
|
#include "check.h"
|
|
#include "mpm.h"
|
|
|
|
SRCID(arg, "$Id$");
|
|
|
|
#define KeySig ((Sig)0x519CE333) /* SIGnature KEYyy */
|
|
typedef struct mps_key_s {
|
|
Sig sig;
|
|
const char *name;
|
|
Bool (*check)(Arg arg);
|
|
} KeyStruct;
|
|
|
|
|
|
static Bool ArgCheckCant(Arg arg) {
|
|
UNUSED(arg);
|
|
return TRUE;
|
|
}
|
|
|
|
const KeyStruct _mps_key_varargs = {KeySig, "VARARGS", ArgCheckCant};
|
|
|
|
|
|
/* KeyCheck -- check the validity of an argument key */
|
|
|
|
Bool KeyCheck(Key key)
|
|
{
|
|
CHECKS(Key, key);
|
|
CHECKL(key->name != NULL);
|
|
CHECKL(FUNCHECK(key->check));
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
Bool ArgCheck(Arg arg)
|
|
{
|
|
CHECKL(arg != NULL);
|
|
CHECKD(Key, arg->key);
|
|
CHECKL(arg->key->check(arg));
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/* ArgCheck -- check the validity of an argument list */
|
|
|
|
Bool ArgListCheck(ArgList args)
|
|
{
|
|
Index i;
|
|
CHECKL(args != NULL);
|
|
/* FIXME: Maximum plausible length? */
|
|
for (i = 0; args[i].key != MPS_KEY_ARGS_END; ++i)
|
|
CHECKL(ArgCheck(&args[i]));
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
Bool ArgPick(mps_arg_s *argOut, mps_arg_s args[], Key key) {
|
|
Index i;
|
|
|
|
AVER(argOut != NULL);
|
|
AVERT(Arg, args);
|
|
AVERT(Key, key);
|
|
|
|
for (i = 0; args[i].key != MPS_KEY_ARGS_END; ++i)
|
|
if (args[i].key == key)
|
|
goto found;
|
|
return FALSE;
|
|
|
|
found:
|
|
*argOut = args[i];
|
|
for(;;) {
|
|
args[i] = args[i + 1];
|
|
if (args[i].key == MPS_KEY_ARGS_END)
|
|
break;
|
|
++i;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/* C. COPYRIGHT AND LICENSE
|
|
*
|
|
* Copyright (C) 2001-2002 Ravenbrook Limited <http://www.ravenbrook.com/>.
|
|
* All rights reserved. This is an open source license. Contact
|
|
* Ravenbrook for commercial licensing options.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions are
|
|
* met:
|
|
*
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
*
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* 3. Redistributions in any form must be accompanied by information on how
|
|
* to obtain complete source code for this software and any accompanying
|
|
* software that uses this software. The source code must either be
|
|
* included in the distribution or be available for no more than the cost
|
|
* of distribution plus a nominal fee, and must be freely redistributable
|
|
* under reasonable conditions. For an executable file, complete source
|
|
* code means the source code for all modules it contains. It does not
|
|
* include source code for modules or files that typically accompany the
|
|
* major components of the operating system on which the executable file
|
|
* runs.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
|
|
* IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
|
|
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
|
|
* PURPOSE, OR NON-INFRINGEMENT, ARE DISCLAIMED. IN NO EVENT SHALL THE
|
|
* COPYRIGHT HOLDERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
|
|
* USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
|
|
* ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|