summaryrefslogtreecommitdiff
path: root/scan.c
blob: 3b00554d8f597cb68dc95576ba7c6b0fca6be977 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
/*
 * scan.c: A plugin for the Video Disk Recorder
 *
 * See the README file for copyright information and how to reach the author.
 *  (c) 2007-2013 Jörg Wendel
 *
 * This code is distributed under the terms and conditions of the
 * GNU GENERAL PUBLIC LICENSE. See the file COPYING for details.
 *
 */

//***************************************************************************
// Includes
//***************************************************************************

#include <scan.h>

//***************************************************************************
// Scanner
//***************************************************************************

const char* Scan::delimiters = " ;,(){}[]\"";
const char* Scan::operators  = " +-*:<>!=";
const char* Scan::whitespace = " ()";
const char* Scan::logicalOps = "|&";
const char* Scan::numprefix = "+-";

//***************************************************************************
// Scanner
//***************************************************************************

int Scan::eat(int aANP)
{ 
   int i = 0;
   int anp = aANP != na ? aANP : allowNumPrefix;

   _last[0] = 0;
   isStr = no;

   skipWs();

   while (p && *p && i < 1000)
   {
      if (*p == '"')
      {
         if (isStr)
         {
            p++;
            break;
         }

         isStr = yes;
         p++;

         continue;
      }

      if (!isStr && isDelimiter(*p))
         break;

      if (isStr && *p == '"')
         break;

      if (i)
      {
         if (isOperator(*_last) && !isOperator(*p) && !isStr)
         {
            if (!isNum(*p))
               break;
            if (!anp || !isNumPrefix(*_last))
               break;
         }

         if (!isOperator(*_last) && isOperator(*p) && !isStr)
            break;

         if (isNum(*_last) && !isNum(*p) && !isStr)
            break;
      }

      if (*p != '"')
         _last[i++] = *p;

      p++;
   }

   _last[i] = 0;

   return i == 0 ? fail : success;
}