Home | History | Annotate | Line # | Download | only in sh
syntax.c revision 1.1
      1  1.1  dsl /*	$NetBSD: syntax.c,v 1.1 2004/01/17 17:38:12 dsl Exp $	*/
      2  1.1  dsl 
      3  1.1  dsl #include "shell.h"
      4  1.1  dsl #include "syntax.h"
      5  1.1  dsl #include "parser.h"
      6  1.1  dsl 
      7  1.1  dsl #if CWORD != 0
      8  1.1  dsl #error initialisation assumes 'CWORD' is zero
      9  1.1  dsl #endif
     10  1.1  dsl 
     11  1.1  dsl #define ndx(ch) (ch + 1 - CHAR_MIN)
     12  1.1  dsl #define set(ch, val) [ndx(ch)] = val,
     13  1.1  dsl #define set_range(s, e, val) [ndx(s) ... ndx(e)] = val,
     14  1.1  dsl 
     15  1.1  dsl /* syntax table used when not in quotes */
     16  1.1  dsl const char basesyntax[257] = { CEOF,
     17  1.1  dsl     set_range(CTL_FIRST, CTL_LAST, CCTL)
     18  1.1  dsl     set('\n', CNL)
     19  1.1  dsl     set('\\', CBACK)
     20  1.1  dsl     set('\'', CSQUOTE)
     21  1.1  dsl     set('"', CDQUOTE)
     22  1.1  dsl     set('`', CBQUOTE)
     23  1.1  dsl     set('$', CVAR)
     24  1.1  dsl     set('}', CENDVAR)
     25  1.1  dsl     set('<', CSPCL)
     26  1.1  dsl     set('>', CSPCL)
     27  1.1  dsl     set('(', CSPCL)
     28  1.1  dsl     set(')', CSPCL)
     29  1.1  dsl     set(';', CSPCL)
     30  1.1  dsl     set('&', CSPCL)
     31  1.1  dsl     set('|', CSPCL)
     32  1.1  dsl     set(' ', CSPCL)
     33  1.1  dsl     set('\t', CSPCL)
     34  1.1  dsl };
     35  1.1  dsl 
     36  1.1  dsl /* syntax table used when in double quotes */
     37  1.1  dsl const char dqsyntax[257] = { CEOF,
     38  1.1  dsl     set_range(CTL_FIRST, CTL_LAST, CCTL)
     39  1.1  dsl     set('\n', CNL)
     40  1.1  dsl     set('\\', CBACK)
     41  1.1  dsl     set('"', CDQUOTE)
     42  1.1  dsl     set('`', CBQUOTE)
     43  1.1  dsl     set('$', CVAR)
     44  1.1  dsl     set('}', CENDVAR)
     45  1.1  dsl     /* ':/' for tilde expansion, '-' for [a\-x] pattern ranges */
     46  1.1  dsl     set('!', CCTL)
     47  1.1  dsl     set('*', CCTL)
     48  1.1  dsl     set('?', CCTL)
     49  1.1  dsl     set('[', CCTL)
     50  1.1  dsl     set('=', CCTL)
     51  1.1  dsl     set('~', CCTL)
     52  1.1  dsl     set(':', CCTL)
     53  1.1  dsl     set('/', CCTL)
     54  1.1  dsl     set('-', CCTL)
     55  1.1  dsl };
     56  1.1  dsl 
     57  1.1  dsl /* syntax table used when in single quotes */
     58  1.1  dsl const char sqsyntax[257] = { CEOF,
     59  1.1  dsl     set_range(CTL_FIRST, CTL_LAST, CCTL)
     60  1.1  dsl     set('\n', CNL)
     61  1.1  dsl     set('\'', CSQUOTE)
     62  1.1  dsl     /* ':/' for tilde expansion, '-' for [a\-x] pattern ranges */
     63  1.1  dsl     set('!', CCTL)
     64  1.1  dsl     set('*', CCTL)
     65  1.1  dsl     set('?', CCTL)
     66  1.1  dsl     set('[', CCTL)
     67  1.1  dsl     set('=', CCTL)
     68  1.1  dsl     set('~', CCTL)
     69  1.1  dsl     set(':', CCTL)
     70  1.1  dsl     set('/', CCTL)
     71  1.1  dsl     set('-', CCTL)
     72  1.1  dsl };
     73  1.1  dsl 
     74  1.1  dsl /* syntax table used when in arithmetic */
     75  1.1  dsl const char arisyntax[257] = { CEOF,
     76  1.1  dsl     set_range(CTL_FIRST, CTL_LAST, CCTL)
     77  1.1  dsl     set('\n', CNL)
     78  1.1  dsl     set('\\', CBACK)
     79  1.1  dsl     set('`', CBQUOTE)
     80  1.1  dsl     set('\'', CSQUOTE)
     81  1.1  dsl     set('"', CDQUOTE)
     82  1.1  dsl     set('$', CVAR)
     83  1.1  dsl     set('}', CENDVAR)
     84  1.1  dsl     set('(', CLP)
     85  1.1  dsl     set(')', CRP)
     86  1.1  dsl };
     87  1.1  dsl 
     88  1.1  dsl /* character classification table */
     89  1.1  dsl const char is_type[257] = { 0,
     90  1.1  dsl     set_range('0', '9', ISDIGIT)
     91  1.1  dsl     set_range('a', 'z', ISLOWER)
     92  1.1  dsl     set_range('A', 'Z', ISUPPER)
     93  1.1  dsl     set('_', ISUNDER)
     94  1.1  dsl     set('#', ISSPECL)
     95  1.1  dsl     set('?', ISSPECL)
     96  1.1  dsl     set('$', ISSPECL)
     97  1.1  dsl     set('!', ISSPECL)
     98  1.1  dsl     set('-', ISSPECL)
     99  1.1  dsl     set('*', ISSPECL)
    100  1.1  dsl     set('@', ISSPECL)
    101  1.1  dsl };
    102