Return to syntax.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / src

Annotation of 43BSD/contrib/emacs/src/syntax.h, revision 1.1

1.1     ! root        1: /* Declarations having to do with GNU Emacs syntax tables.
        !             2:    Copyright (C) 1985 Richard M. Stallman.
        !             3: 
        !             4: This file is part of GNU Emacs.
        !             5: 
        !             6: GNU Emacs is distributed in the hope that it will be useful,
        !             7: but WITHOUT ANY WARRANTY.  No author or distributor
        !             8: accepts responsibility to anyone for the consequences of using it
        !             9: or for whether it serves any particular purpose or works at all,
        !            10: unless he says so in writing.  Refer to the GNU Emacs General Public
        !            11: License for full details.
        !            12: 
        !            13: Everyone is granted permission to copy, modify and redistribute
        !            14: GNU Emacs, but only under the conditions described in the
        !            15: GNU Emacs General Public License.   A copy of this license is
        !            16: supposed to have been given to you along with GNU Emacs so you
        !            17: can know your rights and responsibilities.  It should be in a
        !            18: file named COPYING.  Among other things, the copyright notice
        !            19: and this notice must be preserved on all copies.  */
        !            20: 
        !            21: 
        !            22: extern Lisp_Object Qsyntax_table_p;
        !            23: extern Lisp_Object Fsyntax_table_p (), Fsyntax_table (), Fset_syntax_table ();
        !            24: 
        !            25: extern Lisp_Object Vstandard_syntax_table;
        !            26: 
        !            27: /* A syntax table is a Lisp vector of length 0400, whose elements are integers.
        !            28: 
        !            29: The low 8 bits of the integer is a code, as follows:
        !            30: */
        !            31: 
        !            32: enum syntaxcode
        !            33:   {
        !            34:     Swhitespace, /* for a whitespace character */
        !            35:     Spunct,     /* for random punctuation characters */
        !            36:     Sword,      /* for a word constituent */
        !            37:     Ssymbol,    /* symbol constituent but not word constituent */
        !            38:     Sopen,      /* for a beginning delimiter */
        !            39:     Sclose,      /* for an ending delimiter */
        !            40:     Squote,     /* for a prefix character like Lisp ' */
        !            41:     Sstring,    /* for a string-grouping character like Lisp " */
        !            42:     Smath,      /* for delimiters like $ in Tex. */
        !            43:     Sescape,    /* for a character that begins a C-style escape */
        !            44:     Scharquote,  /* for a character that quotes the following character */
        !            45:     Scomment,    /* for a comment-starting character */
        !            46:     Sendcomment, /* for a comment-ending character */
        !            47:     Smax        /* Upper bound on codes that are meaningful */
        !            48:   };
        !            49: 
        !            50: #define SYNTAX(c) \
        !            51:   ((enum syntaxcode) (XINT (bf_cur->syntax_table_v->contents[c]) & 0377))
        !            52: 
        !            53: /* The next 8 bits of the number is a character,
        !            54:  the matching delimiter in the case of Sopen or Sclose. */
        !            55: 
        !            56: #define SYNTAX_MATCH(c) \
        !            57:   ((XINT (bf_cur->syntax_table_v->contents[c]) >> 8) & 0377)
        !            58: 
        !            59: /* Then there are four single-bit flags that have the following meanings:
        !            60:   1. This character is the first of a two-character comment-start sequence.
        !            61:   2. This character is the second of a two-character comment-start sequence.
        !            62:   3. This character is the first of a two-character comment-end sequence.
        !            63:   4. This character is the second of a two-character comment-end sequence.
        !            64:  Note that any two-character sequence whose first character has flag 1
        !            65:   and whose second character has flag 2 will be interpreted as a comment start. */
        !            66: 
        !            67: #define SYNTAX_COMSTART_FIRST(c) \
        !            68:   ((XINT (bf_cur->syntax_table_v->contents[c]) >> 16) & 1)
        !            69: 
        !            70: #define SYNTAX_COMSTART_SECOND(c) \
        !            71:   ((XINT (bf_cur->syntax_table_v->contents[c]) >> 17) & 1)
        !            72: 
        !            73: #define SYNTAX_COMEND_FIRST(c) \
        !            74:   ((XINT (bf_cur->syntax_table_v->contents[c]) >> 18) & 1)
        !            75: 
        !            76: #define SYNTAX_COMEND_SECOND(c) \
        !            77:   ((XINT (bf_cur->syntax_table_v->contents[c]) >> 19) & 1)
        !            78: 
        !            79: /* This array, indexed by a character, contains the syntax code which that
        !            80:  character signifies (as a char).  For example,
        !            81:  (enum syntaxcode) syntax_spec_code['w'] is Sword. */
        !            82: 
        !            83: extern char syntax_spec_code[0400];

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