Return to syntax.h CVS log

Up to [Apple XNU] / GNUtools / emacs / src

Annotation of GNUtools/emacs/src/syntax.h, revision 1.1.1.1

1.1       root        1: /* Declarations having to do with GNU Emacs syntax tables.
                      2:    Copyright (C) 1985 Free Software Foundation, Inc.
                      3: 
                      4: This file is part of GNU Emacs.
                      5: 
                      6: GNU Emacs 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 1, or (at your option)
                      9: any later version.
                     10: 
                     11: GNU Emacs is distributed in the hope that it will be useful,
                     12: but WITHOUT ANY WARRANTY; without even the implied warranty of
                     13: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     14: GNU General Public License for more details.
                     15: 
                     16: You should have received a copy of the GNU General Public License
                     17: along with GNU Emacs; see the file COPYING.  If not, write to
                     18: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
                     19: 
                     20: 
                     21: extern Lisp_Object Qsyntax_table_p;
                     22: extern Lisp_Object Fsyntax_table_p (), Fsyntax_table (), Fset_syntax_table ();
                     23: 
                     24: /* The standard syntax table is stored where it will automatically
                     25:    be used in all new buffers.  */
                     26: #define Vstandard_syntax_table buffer_defaults.syntax_table
                     27: 
                     28: /* A syntax table is a Lisp vector of length 0400, whose elements are integers.
                     29: 
                     30: The low 8 bits of the integer is a code, as follows:
                     31: */
                     32: 
                     33: enum syntaxcode
                     34:   {
                     35:     Swhitespace, /* for a whitespace character */
                     36:     Spunct,     /* for random punctuation characters */
                     37:     Sword,      /* for a word constituent */
                     38:     Ssymbol,    /* symbol constituent but not word constituent */
                     39:     Sopen,      /* for a beginning delimiter */
                     40:     Sclose,      /* for an ending delimiter */
                     41:     Squote,     /* for a prefix character like Lisp ' */
                     42:     Sstring,    /* for a string-grouping character like Lisp " */
                     43:     Smath,      /* for delimiters like $ in Tex. */
                     44:     Sescape,    /* for a character that begins a C-style escape */
                     45:     Scharquote,  /* for a character that quotes the following character */
                     46:     Scomment,    /* for a comment-starting character */
                     47:     Sendcomment, /* for a comment-ending character */
                     48:     Smax        /* Upper bound on codes that are meaningful */
                     49:   };
                     50: 
                     51: #define SYNTAX(c) \
                     52:   ((enum syntaxcode) (XINT (XVECTOR (current_buffer->syntax_table)->contents[(unsigned char) (c)]) & 0377))
                     53: 
                     54: /* The next 8 bits of the number is a character,
                     55:  the matching delimiter in the case of Sopen or Sclose. */
                     56: 
                     57: #define SYNTAX_MATCH(c) \
                     58:   ((XINT (XVECTOR (current_buffer->syntax_table)->contents[(unsigned char) (c)]) >> 8) & 0377)
                     59: 
                     60: /* Then there are four single-bit flags that have the following meanings:
                     61:   1. This character is the first of a two-character comment-start sequence.
                     62:   2. This character is the second of a two-character comment-start sequence.
                     63:   3. This character is the first of a two-character comment-end sequence.
                     64:   4. This character is the second of a two-character comment-end sequence.
                     65:  Note that any two-character sequence whose first character has flag 1
                     66:   and whose second character has flag 2 will be interpreted as a comment start. */
                     67: 
                     68: #define SYNTAX_COMSTART_FIRST(c) \
                     69:   ((XINT (XVECTOR (current_buffer->syntax_table)->contents[(unsigned char) (c)]) >> 16) & 1)
                     70: 
                     71: #define SYNTAX_COMSTART_SECOND(c) \
                     72:   ((XINT (XVECTOR (current_buffer->syntax_table)->contents[(unsigned char) (c)]) >> 17) & 1)
                     73: 
                     74: #define SYNTAX_COMEND_FIRST(c) \
                     75:   ((XINT (XVECTOR (current_buffer->syntax_table)->contents[(unsigned char) (c)]) >> 18) & 1)
                     76: 
                     77: #define SYNTAX_COMEND_SECOND(c) \
                     78:   ((XINT (XVECTOR (current_buffer->syntax_table)->contents[(unsigned char) (c)]) >> 19) & 1)
                     79: 
                     80: /* This array, indexed by a character, contains the syntax code which that
                     81:  character signifies (as a char).  For example,
                     82:  (enum syntaxcode) syntax_spec_code['w'] is Sword. */
                     83: 
                     84: extern unsigned char syntax_spec_code[0400];

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.