SecuritySNACCRuntime/compiler/core/meta.c

   1 /*
   2  * file: compiler/core/meta.c
   3  *
   4  * Copyright © 1994 1995 Robert Joop <rj@rainbow.in-berlin.de>
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program and the associated libraries are distributed in the hope
  12  * that they will be useful, but WITHOUT ANY WARRANTY; without even the
  13  * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14  * PURPOSE.  See the GNU General Public License and GNU Library General
  15  * Public License for more details.
  16  *
  17  * $Header: /cvs/Darwin/Security/SecuritySNACCRuntime/compiler/core/meta.c,v 1.1 2001/06/20 21:27:57 dmitch Exp $
  18  * $Log: meta.c,v $
  19  * Revision 1.1  2001/06/20 21:27:57  dmitch
  20  * Adding missing snacc compiler files.
  21  *
  22  * Revision 1.1.1.1  1999/03/16 18:06:50  aram
  23  * Originals from SMIME Free Library.
  24  *
  25  * Revision 1.2  1995/08/17 15:00:11  rj
  26  * the PDU flag belongs to the metacode, not only to the tcl interface. (type and variable named adjusted)
  27  *
  28  * Revision 1.1  1995/07/27  10:54:11  rj
  29  * new file
  30  *
  31  */
  32
  33 #include <stdio.h>
  34
  35 #include "snacc.h"
  36 #include "meta.h"
  37
  38 #if META
  39
  40 int isMetaPDU PARAMS ((module, type, pdus),
  41   const char *module _AND_
  42   const char *type _AND_
  43   MetaPDU *pdus)
  44 {
  45   MetaPDU *pdu;
  46
  47   for (pdu=pdus; pdu; pdu=pdu->next)
  48     if (!strcmp (pdu->module, module) && !strcmp (pdu->type, type))
  49     {
  50       pdu->used = TRUE;
  51       return TRUE;
  52     }
  53
  54   return FALSE;
  55 }
  56
  57 #endif /* META */