soltools/cpp/_mcrvalid.c

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include <string.h>
   5
   6 #include "cpp.h"
   7
   8 void
   9 mvl_init(MacroValidatorList * out_pValidators)
  10 {
  11     out_pValidators->pFirst = 0;
  12     out_pValidators->nextFreeIdentifier = 1;
  13 }
  14
  15 void
  16 mvl_destruct(MacroValidatorList * out_pValidators)
  17 {
  18     MacroValidator * pV = out_pValidators->pFirst;
  19     MacroValidator * pDel;
  20     for ( pDel = out_pValidators->pFirst;
  21           pDel != 0;
  22           pDel = pV )
  23     {
  24         pV = pV->pNext;
  25
  26         pDel->pMacro->flag &= (~ISACTIVE);
  27         dofree(pDel);
  28     }
  29 }
  30
  31
  32 #define INVALID_TILL_ENDOFROW 32000
  33
  34 /*  If in_pTokenWhereMacroBecomesValid == 0, the macro is at row end
  35     and therefore there does not exist any token, where the macro becomes
  36     valid again. It is revalidated, when the row was processed complete.
  37 */
  38 void
  39 mvl_add( MacroValidatorList *   inout_pValidators,
  40          Nlist *                in_pMacro,
  41          Token *                in_pTokenWhereMacroBecomesValid )
  42 {
  43
  44     MacroValidator * pNew = new(MacroValidator);
  45     pNew->pMacro = in_pMacro;
  46
  47     if (in_pTokenWhereMacroBecomesValid == 0)
  48     {
  49         pNew->nTokenWhereMacroBecomesValid = INVALID_TILL_ENDOFROW;
  50     }
  51     else if (in_pTokenWhereMacroBecomesValid->identifier > 0)
  52     {
  53         pNew->nTokenWhereMacroBecomesValid = in_pTokenWhereMacroBecomesValid->identifier;
  54     }
  55     else
  56     {
  57         pNew->nTokenWhereMacroBecomesValid = inout_pValidators->nextFreeIdentifier;
  58         in_pTokenWhereMacroBecomesValid->identifier = inout_pValidators->nextFreeIdentifier;
  59         inout_pValidators->nextFreeIdentifier++;
  60     }
  61
  62     pNew->pNext = inout_pValidators->pFirst;
  63     inout_pValidators->pFirst = pNew;
  64 }
  65
  66 void
  67 mvl_check(  MacroValidatorList * inout_pValidators,
  68             Token *              inout_pTokenToCheck)
  69 {
  70     MacroValidator * pV;            /* Running pointer */
  71     MacroValidator * pCheckedOnes;  /* Here new list is built.  */
  72     pCheckedOnes = 0;
  73
  74     for ( pV = inout_pValidators->pFirst;
  75           pV != 0;
  76           pV = inout_pValidators->pFirst )
  77     {
  78         inout_pValidators->pFirst = pV->pNext;
  79
  80         if (pV->nTokenWhereMacroBecomesValid == inout_pTokenToCheck->identifier)
  81         {
  82             pV->pMacro->flag &= (~ISACTIVE);
  83             dofree(pV);
  84         }
  85         else
  86         {
  87             pV->pNext = pCheckedOnes;
  88             pCheckedOnes = pV;
  89         }
  90     }   /* end for  */
  91
  92     /* Assign new built list (too old ones were removed) to
  93        original list:
  94     */
  95     inout_pValidators->pFirst = pCheckedOnes;
  96 }
  97
  98
  99 void
 100 tokenrow_zeroTokenIdentifiers(Tokenrow* trp)
 101 {
 102     Token * tp;
 103     for (tp = trp->bp; tp < trp->lp; tp++)
 104     {
 105         tp->identifier = 0;
 106     }
 107 }
 108
 109 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */