browse.php

@q parser.web @> 
@q Created by Laurence Finston Do Mai 12 12:34:17 CEST 2005 @>
     
@q * (1) Copyright and License.@>

@q This file is part of GNU 3DLDF, a package for three-dimensional drawing.  @>
@q Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,             @>
@q 2011 The Free Software Foundation                                         @>

@q GNU 3DLDF is free software; you can redistribute it and/or modify @>
@q it under the terms of the GNU General Public License as published by @>
@q the Free Software Foundation; either version 3 of the License, or @>
@q (at your option) any later version.  @>

@q GNU 3DLDF is distributed in the hope that it will be useful, @>
@q but WITHOUT ANY WARRANTY; without even the implied warranty of @>
@q MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the @>
@q GNU General Public License for more details.  @>

@q You should have received a copy of the GNU General Public License @>
@q along with GNU 3DLDF; if not, write to the Free Software @>
@q Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA@>

@q GNU 3DLDF is a GNU package.  @>
@q It is part of the GNU Project of the  @>
@q Free Software Foundation @>
@q and is published under the GNU General Public License. @>
@q See the website http://www.gnu.org @>
@q for more information.   @>
@q GNU 3DLDF is available for downloading from @>
@q http://www.gnu.org/software/3dldf/LDF.html.@>

@q ("@@" stands for a single at-sign in the following paragraph.) @>

@q Please send bug reports to Laurence.Finston@@gmx.de@>
@q The mailing list help-3dldf@@gnu.org is available for people to @>
@q ask other users for help.  @>
@q The mailing list info-3dldf@@gnu.org is for sending @>
@q announcements to users. To subscribe to these mailing lists, send an @>
@q email with ``subscribe <email-address>'' as the subject.  @>

@q The author can be contacted at: @>

@q Laurence D. Finston                 @>
@q c/o Free Software Foundation, Inc.  @>
@q 51 Franklin St, Fifth Floor         @>
@q Boston, MA  02110-1301              @>
@q USA                                 @>

@q Laurence.Finston@@gmx.de (@@ stands for a single "at" sign.)@>


@q $Id: parser.web,v 1.6 2008/01/05 17:57:20 lfinsto1 Exp $ @>

@q * (0) Parsing.  @>
@** Parsing\quad ({\tt parser\PERIOD web}).\hfil

\LOG
\initials{LDF 2005.05.12.}
Created this file.  I've copied code from 
\filename{\char\~/3DLDF/CWEB/parser.w},
\filename{\char\~/3DLDF/CWEB/pbsndecl.w},
and
\filename{\char\~/3DLDF/CWEB/pfuncfin.w} to it.
These files are used for the GNU 3DLDF parser.
This code must be adapted for use with \.{animctrl}, the Animation 
Controller.
\ENDLOG 


@q * (1) Declarations.  @>

@q * (1) Include files.  @>
@* Include files.
\initials{LDF 2005.05.12.}

@<Include files@>=

#include "loader.h"

#include "thrdutls.h"

@q * (1) Using declarations. @>
@* Using declarations.
\initials{LDF 2005.05.12.}

@<Using declarations@>=

using namespace std;
using namespace Scan_Parse;@/


@q * (1) Location type.@>
@* Location type.
\initials{LDF 2005.05.12.}

@<Declare location type@>=

struct 
LDF_LOCATION_TYPE
{
  unsigned int first_line; 
  unsigned int first_column; 
  unsigned int last_line; 
  unsigned int last_column; 
  unsigned int position;
  @<Declare |LDF_LOCATION_TYPE| functions@>@;
};

@q ** (2) |LDF_LOCATION_TYPE| functions.  @>
@*1 {\bf LDF\_LOCATION\_TYPE} functions.
\initials{LDF 2005.05.12.}


@q *** (3) Constructor.@>
@2 Constructor.
\initials{LDF 2005.05.12.}

@<Declare |LDF_LOCATION_TYPE| functions@>=

LDF_LOCATION_TYPE(void);

@
@<Define |LDF_LOCATION_TYPE| functions@>=
LDF_LOCATION_TYPE::LDF_LOCATION_TYPE(void)
{
 first_line = last_line = position = 1;
 first_column = last_column = 0;
 return;
}
 
@q * (1) Preprocessor macros not only for the parser.  @>
@* Preprocessor macros not only for the parser.
\initials{LDF 2005.05.12.}

@<Preprocessor macros not only for the parser@>=

#define YYPARSE_PARAM parameter
#define YYLEX_PARAM parameter
#define YYLTYPE LDF_LOCATION_TYPE
#define YYLOC_DEFAULT(Current, Rhs, N) /* Do nothing.  */

@q * (1) Preprocessor macros for the parser only.  @>
@* Preprocessor macros for the parser only.
@<Preprocessor macros for the parser only@>=

#define YYERROR_VERBOSE


@q * (1) Bison declarations.  @>
@* Bison declarations.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section.
\ENDLOG 

@<Bison declarations@>=
@=%defines@>@/
@=%debug@>@/
@q =%expect 1@>@/
@=%locations@>@/
@=%pure_parser@>@/
@=/* %token_table */@>@/ 
@=%verbose@>

@q * (1) Type declarations.  @>
@* Type declarations.

@q ** (2) Union declaration.  This is the type of |YYSTYPE|.  @>
@*1 Union declaration for |YYSTYPE|.

@<Union declaration for |YYSTYPE|@>=

@=%union@>
{
  char string_value[64];
  double real_value;
  signed int int_value;
  void* pointer_value;
};


@q * (1) Token and precedence declarations.  @>
@* Token and precedence declarations.

I don't believe it's necessary to specify the precedence of operators, because
this is implicit in the structure of the rules, with ``the four-fold 
`primary, secondary, tertiary, expression' hierarchy $[\ldots]$''%
%
\fnote{Knuth, {\it The METAFONTbook}, p.~209.}.
%
However, it may be necessary to specify their associativity, and the ordering of
the |@=%left@>|, |@=%right@>|, and |@=%nonassoc@>| declarations automatically
specify their precedence.
\initials{LDF 2005.05.12.}

\TODO
@q { @>
@:TO DO}{{\bf TO DO}@>
@q } @> 
@q !! TO DO:@>  
Add formatting commands.  
\initials{LDF 2005.05.12.}

\initials{LDF 2005.05.12.}
Make sure these declarations work properly.
\ENDTODO 
 

@f terminal_symbol int
@f non_terminal_symbol terminal_symbol 

@q ** (2) Basic types.  @>
@*1 Basic types.

\LOG
\initials{LDF 2005.05.12.}
Added token declarations for
|AMPERSAND|, |CYCLE|, |PERIOD_PAIR|, |PERIOD_TRIPLE|, |HYPHEN_PAIR|, and  
|HYPHEN_TRIPLE|,

\initials{LDF 2005.05.12.}
Added token declarations for |REVERSE|, |SUBPATH|, and |OF|.  

\initials{LDF 2005.05.12.}
Changed |DASH_PATTERN| to |DASH_PATTERN_DECLARATOR|
in token declaration.

\initials{LDF 2005.05.12.}
Added token declaration for |COLON|.

\initials{LDF 2005.05.12.}
Replaced token declaration for |CURLY_BRACES| with  
ones for |LEFT_BRACE| and |RIGHT_BRACE|.
\ENDLOG 

@f END terminal_symbol
@f numeric_token non_terminal_symbol

@<Token and precedence declarations@>=


@=%token <int_value> NULL_VALUE@>@/
@=%token <int_value> TERMINATE@>@/      
@=%token <int_value> INVALID_CATCODE@>@/
@=%token <int_value> INVALID_CHAR@>@/

@=%token <string_value> SPACE@>@/

@=%token <string_value> AMPERSAND@>@/
@=%token <string_value> PERIOD@>@/
@=%token <string_value> PERIOD_PAIR@>@/
@=%token <string_value> PERIOD_TRIPLE@>@/
@=%token <string_value> HYPHEN@>@/
@=%token <string_value> HYPHEN_PAIR@>@/
@=%token <string_value> HYPHEN_TRIPLE@>@/

@=%token <int_value>    CYCLE@>@/
@=%token <int_value>    REVERSE@>@/
@=%token <int_value>    SUBPATH@>@/
@=%token <int_value>    OF@>@/

@=%token <string_value> COMMA@>@/
@=%token <string_value> COLON@>@/ 
@=%token <string_value> SEMI_COLON@>@/ 
@=%token <string_value> LEFT_PARENTHESIS@>@/
@=%token <string_value> RIGHT_PARENTHESIS@>@/
@=%token <string_value> DOUBLE_QUOTE@>@/
@=%token <string_value> LEFT_BRACKET@>@/
@=%token <string_value> RIGHT_BRACKET@>@/
@=%token <string_value> LEFT_BRACE@>@/
@=%token <string_value> RIGHT_BRACE@>@/
@=%token <string_value> DIGIT@>@/
@=%token <int_value>    INTEGER@>@/        
@=%token <real_value>   REAL@>@/          
@=%token <string_value> PERCENT@>@/
@=%token <string_value> SYMBOL_0@>@/
@=%token <string_value> SYMBOL_1@>@/
@=%token <string_value> SYMBOL_2@>@/
@=%token <string_value> SYMBOL_3@>@/
@=%token <string_value> SYMBOL_4@>@/
@=%token <string_value> SYMBOL_5@>@/
@=%token <string_value> SYMBOL_6@>@/
@=%token <string_value> SYMBOL_7@>@/

@q ** (2)  Object types defined in 3DLDF and |UNDECLARED|.@>  

@*1 Object types defined in 3DLDF and |UNDECLARED|.  
I plan to use the latter in 
{\bf save} commands. 
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section.

\initials{LDF 2005.05.12.}
Added |UNKNOWN_TYPE|.

\initials{LDF 2005.05.12.}
Changed |UNKNOWN_TYPE| to |UNDECLARED| and 
values of the types in this section from |string_value| to |pointer_value|.
|NUMERIC| was already a |pointer_value|.

\initials{LDF 2005.05.12.}
Added token declaration for |BOOLEAN|.

\initials{LDF 2005.05.12.}
Added token declarations for |PEN|, |COLOR|,
|FOCUS|, and |PICTURE|.

\initials{LDF 2005.05.12.}
Added token declaration for |SYNONYM|.

\initials{LDF 2005.05.12.}
Added token declaration for |COLOR_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |POINT_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |BOOL_POINT| and |BOOL_POINT_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |PATH_VECTOR|, 
|TRIANGLE_VECTOR|, |REG_POLYGON_VECTOR|, 
|RECTANGLE_VECTOR|, |SQUARE_VECTOR|, 
|ELLIPSE_VECTOR|, |CIRCLE_VECTOR|,  |CUBOID_VECTOR|, 
|TETRAHEDRON_VECTOR|, |OCTAHEDRON_VECTOR|, |DODECAHEDRON_VECTOR|, 
|ICOSAHEDRON_VECTOR|, and |TRUNC_OCTAHEDRON_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for 
|BOOLEAN_VECTOR|, 
|STRING_VECTOR|, 
|NUMERIC_VECTOR|, 
|PEN_VECTOR|, 
|DASH_PATTERN_VECTOR|, 
|PICTURE_VECTOR|, 
|TRANSFORM_VECTOR|, and
|FOCUS_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |NURB| and |NURB_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |ORIGAMI_FIGURE| and 
|ORIGAMI_FIGURE_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |POLYGON| and 
|POLYGON_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for 
|ELLIPSE_SLICE|, |CIRCLE_SLICE|, |POLYHEDRON_SLICE|,
|ELLIPSE_SLICE_VECTOR|, |CIRCLE_SLICE_VECTOR|, and 
|POLYHEDRON_SLICE_VECTOR|.
\ENDLOG 

@q ** (2) Code.@> 

@<Token and precedence declarations@>=

@=%token <pointer_value> SYNONYM@>@/
@=%token <pointer_value> UNDECLARED@>@/

@=%token <pointer_value> BOOLEAN@>@/
@=%token <pointer_value> STRING@>@/
@=%token <pointer_value> NUMERIC@>@/
@=%token <pointer_value> PEN@>@/
@=%token <pointer_value> DASH_PATTERN@>@/
@=%token <pointer_value> COLOR@>@/
@=%token <pointer_value> PICTURE@>@/
@=%token <pointer_value> TRANSFORM@>@/
@=%token <pointer_value> FOCUS@>@/

@=%token <pointer_value> POINT@>@/
@=%token <pointer_value> BOOL_POINT@>@/
@=%token <pointer_value> NURB@>@/
@=%token <pointer_value> PATH@>@/
@=%token <pointer_value> TRIANGLE@>@/
@=%token <pointer_value> POLYGON@>@/
@=%token <pointer_value> REG_POLYGON@>@/
@=%token <pointer_value> RECTANGLE@>@/
@=%token <pointer_value> SQUARE@>@/
@=%token <pointer_value> ELLIPSE@>@/
@=%token <pointer_value> CIRCLE@>@/
@=%token <pointer_value> CUBOID@>@/
@=%token <pointer_value> TETRAHEDRON@>@/
@=%token <pointer_value> OCTAHEDRON@>@/
@=%token <pointer_value> DODECAHEDRON@>@/
@=%token <pointer_value> ICOSAHEDRON@>@/
@=%token <pointer_value> TRUNC_OCTAHEDRON@>@/

@=%token <pointer_value> ELLIPSE_SLICE@>@/
@=%token <pointer_value> CIRCLE_SLICE@>@/
@=%token <pointer_value> POLYHEDRON_SLICE@>@/

@=%token <pointer_value> ELLIPSE_SLICE_VECTOR@>@/
@=%token <pointer_value> CIRCLE_SLICE_VECTOR@>@/
@=%token <pointer_value> POLYHEDRON_SLICE_VECTOR@>@/

@=%token <pointer_value> BOOLEAN_VECTOR@>@/ 
@=%token <pointer_value> STRING_VECTOR@>@/ 
@=%token <pointer_value> NUMERIC_VECTOR@>@/ 
@=%token <pointer_value> COLOR_VECTOR@>@/
@=%token <pointer_value> PEN_VECTOR@>@/ 
@=%token <pointer_value> DASH_PATTERN_VECTOR@>@/ 
@=%token <pointer_value> PICTURE_VECTOR@>@/ 
@=%token <pointer_value> TRANSFORM_VECTOR@>@/ 
@=%token <pointer_value> FOCUS_VECTOR@>@/ 


@=%token <pointer_value> POINT_VECTOR@>@/
@=%token <pointer_value> BOOL_POINT_VECTOR@>@/
@=%token <pointer_value> NURB_VECTOR@>@/
@=%token <pointer_value> PATH_VECTOR@>@/
@=%token <pointer_value> TRIANGLE_VECTOR@>@/
@=%token <pointer_value> POLYGON_VECTOR@>@/
@=%token <pointer_value> REG_POLYGON_VECTOR@>@/
@=%token <pointer_value> RECTANGLE_VECTOR@>@/
@=%token <pointer_value> SQUARE_VECTOR@>@/
@=%token <pointer_value> ELLIPSE_VECTOR@>@/
@=%token <pointer_value> CIRCLE_VECTOR@>@/
@=%token <pointer_value> CUBOID_VECTOR@>@/
@=%token <pointer_value> TETRAHEDRON_VECTOR@>@/
@=%token <pointer_value> OCTAHEDRON_VECTOR@>@/
@=%token <pointer_value> DODECAHEDRON_VECTOR@>@/
@=%token <pointer_value> ICOSAHEDRON_VECTOR@>@/
@=%token <pointer_value> TRUNC_OCTAHEDRON_VECTOR@>@/

@=%token <pointer_value> ORIGAMI_FIGURE@>@/
@=%token <pointer_value> ORIGAMI_FIGURE_VECTOR@>@/


@q ** (2)  Declarators for object types defined in 3DLDF.@>
@*1 Declarators for object types defined in 3DLDF.

\LOG
\initials{LDF 2005.05.12.}
Added this section.

\initials{LDF 2005.05.12.}
Added token declaration for |BOOLEAN_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |STRING_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |COLOR_DECLARATOR|,
|PEN_DECLARATOR|, |FOCUS_DECLARATOR|, and |PICTURE_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |COLOR_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |POINT_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |BOOL_POINT_DECLARATOR|
and |BOOL_POINT_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |PATH_VECTOR_DECLARATOR|, 
|TRIANGLE_VECTOR_DECLARATOR|, |REG_POLYGON_VECTOR_DECLARATOR|, 
|RECTANGLE_VECTOR_DECLARATOR|, |SQUARE_VECTOR_DECLARATOR|, 
|ELLIPSE_VECTOR_DECLARATOR|, |CIRCLE_VECTOR_DECLARATOR|,  
|CUBOID_VECTOR_DECLARATOR|, |TETRAHEDRON_VECTOR_DECLARATOR|, 
|OCTAHEDRON_VECTOR_DECLARATOR|, |DODECAHEDRON_VECTOR_DECLARATOR|, 
|ICOSAHEDRON_VECTOR_DECLARATOR|, and 
|TRUNC_OCTAHEDRON_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Moved tokens declarations for vector-type declarators to their 
own section, below. 

\initials{LDF 2005.05.12.}
Added token declaration for |NURB_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |ORIGAMI_FIGURE_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |POLYGON__DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |ELLIPSE_SLICE_DECLARATOR|,
|CIRCLE_SLICE_DECLARATOR|, |POLYHEDRON_SLICE_DECLARATOR|,
|ELLIPSE_SLICE_VECTOR_DECLARATOR|,
|CIRCLE_SLICE_VECTOR_DECLARATOR|, |POLYHEDRON_SLICE_VECTOR_DECLARATOR|.
\ENDLOG 

@q *** (3) Code.@> 

@<Token and precedence declarations@>=

@=%token <string_value> BOOLEAN_DECLARATOR@>@/
@=%token <string_value> STRING_DECLARATOR@>@/
@=%token <string_value> NUMERIC_DECLARATOR@>@/
@=%token <string_value> TRANSFORM_DECLARATOR@>@/
@=%token <string_value> COLOR_DECLARATOR@>@/
@=%token <string_value> PEN_DECLARATOR@>@/
@=%token <string_value> DASH_PATTERN_DECLARATOR@>@/
@=%token <string_value> FOCUS_DECLARATOR@>@/
@=%token <string_value> PICTURE_DECLARATOR@>@/
@=%token <string_value> POINT_DECLARATOR@>@/
@=%token <string_value> BOOL_POINT_DECLARATOR@>@/
@=%token <string_value> NURB_DECLARATOR@>@/
@=%token <string_value> PATH_DECLARATOR@>@/
@=%token <string_value> TRIANGLE_DECLARATOR@>@/
@=%token <string_value> POLYGON_DECLARATOR@>@/
@=%token <string_value> REG_POLYGON_DECLARATOR@>@/
@=%token <string_value> RECTANGLE_DECLARATOR@>@/
@=%token <string_value> SQUARE_DECLARATOR@>@/
@=%token <string_value> ELLIPSE_DECLARATOR@>@/
@=%token <string_value> CIRCLE_DECLARATOR@>@/
@=%token <string_value> CUBOID_DECLARATOR@>@/
@=%token <string_value> TETRAHEDRON_DECLARATOR@>@/
@=%token <string_value> OCTAHEDRON_DECLARATOR@>@/
@=%token <string_value> DODECAHEDRON_DECLARATOR@>@/
@=%token <string_value> ICOSAHEDRON_DECLARATOR@>@/
@=%token <string_value> TRUNC_OCTAHEDRON_DECLARATOR@>@/

@=%token <string_value> ORIGAMI_FIGURE_DECLARATOR@>@/

@=%token <string_value> ELLIPSE_SLICE_DECLARATOR@>@/
@=%token <string_value> CIRCLE_SLICE_DECLARATOR@>@/
@=%token <string_value> POLYHEDRON_SLICE_DECLARATOR@>@/

@=%token <string_value> ELLIPSE_SLICE_VECTOR_DECLARATOR@>@/
@=%token <string_value> CIRCLE_SLICE_VECTOR_DECLARATOR@>@/
@=%token <string_value> POLYHEDRON_SLICE_VECTOR_DECLARATOR@>@/


@q ** (2)  Declarators for object types defined in 3DLDF.@>
@*1 Declarators for object types defined in 3DLDF.

\LOG
\initials{LDF 2005.05.12.}
Added this section.  Moved tokens declarations for vector-type 
declarators here.

\initials{LDF 2005.05.12.}
Added token declarations for 
|BOOLEAN_VECTOR_DECLARATOR|, 
|STRING_VECTOR_DECLARATOR|, 
|NUMERIC_VECTOR_DECLARATOR|, 
|TRANSFORM_VECTOR_DECLARATOR|, 
|PEN_VECTOR_DECLARATOR|, 
|DASH_PATTERN_VECTOR_DECLARATOR|, 
|FOCUS_VECTOR_DECLARATOR|, and
|PICTURE_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |NURB_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |ORIGAMI_FIGURE_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |POLYGON_VECTOR_DECLARATOR|.
\ENDLOG

@q *** (3).@> 

@<Token and precedence declarations@>=

@=%token <string_value> BOOLEAN_VECTOR_DECLARATOR@>@/
@=%token <string_value> STRING_VECTOR_DECLARATOR@>@/
@=%token <string_value> NUMERIC_VECTOR_DECLARATOR@>@/
@=%token <string_value> TRANSFORM_VECTOR_DECLARATOR@>@/
@=%token <string_value> COLOR_VECTOR_DECLARATOR@>@/
@=%token <string_value> PEN_VECTOR_DECLARATOR@>@/
@=%token <string_value> DASH_PATTERN_VECTOR_DECLARATOR@>@/
@=%token <string_value> FOCUS_VECTOR_DECLARATOR@>@/
@=%token <string_value> PICTURE_VECTOR_DECLARATOR@>@/
@=%token <string_value> POINT_VECTOR_DECLARATOR@>@/
@=%token <string_value> BOOL_POINT_VECTOR_DECLARATOR@>@/
@=%token <string_value> NURB_VECTOR_DECLARATOR@>@/
@=%token <string_value> PATH_VECTOR_DECLARATOR@>@/
@=%token <string_value> TRIANGLE_VECTOR_DECLARATOR@>@/
@=%token <string_value> POLYGON_VECTOR_DECLARATOR@>@/
@=%token <string_value> REG_POLYGON_VECTOR_DECLARATOR@>@/
@=%token <string_value> RECTANGLE_VECTOR_DECLARATOR@>@/
@=%token <string_value> SQUARE_VECTOR_DECLARATOR@>@/
@=%token <string_value> ELLIPSE_VECTOR_DECLARATOR@>@/
@=%token <string_value> CIRCLE_VECTOR_DECLARATOR@>@/
@=%token <string_value> CUBOID_VECTOR_DECLARATOR@>@/
@=%token <string_value> TETRAHEDRON_VECTOR_DECLARATOR@>@/
@=%token <string_value> OCTAHEDRON_VECTOR_DECLARATOR@>@/
@=%token <string_value> DODECAHEDRON_VECTOR_DECLARATOR@>@/
@=%token <string_value> ICOSAHEDRON_VECTOR_DECLARATOR@>@/
@=%token <string_value> TRUNC_OCTAHEDRON_VECTOR_DECLARATOR@>@/

@=%token <string_value> ORIGAMI_FIGURE_VECTOR_DECLARATOR@>@/

@q *** (3) General-Purpose Words and ``Syntactic Sugar''.@>
@*2 General-Purpose Words and ``Syntactic Sugar''.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for 
|IN|, |BY|, and |AROUND|.

\initials{LDF 2005.05.12.}
Added token declaration for |OFF|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> IN@>@/
@=%token <int_value> OFF@>@/
@=%token <int_value> BY@>@/
@=%token <int_value> AROUND@>@/


@q *** (3) System information.@>
@*2 System information.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for 
|IS_BIG_ENDIAN| and |IS_LITTLE_ENDIAN|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> IS_BIG_ENDIAN@>@/
@=%token <int_value> IS_LITTLE_ENDIAN@>@/


@q *** (3) Transformers and Transform Commands.  @>
@*2 Transformers and Transform Commands.

\LOG
\initials{LDF 2005.05.12.}
Added this section.

\initials{LDF 2005.05.12.}
Added token declarations for the transform commands.

\initials{LDF 2005.05.12.}
Changed |REFLECTED_IN| to |REFLECTED|.

\initials{LDF 2005.05.12.}
Added token declaration for |ROTATE_AROUND|.  This was necessary, 
because using the token |ROTATE| for both rotation about the main axes 
and rotation around an arbitrary axis didn't work.  The parser rule for the
first kind of rotation was never reduced.

\initials{LDF 2005.05.12.}
Replaced |REFLECTED| with |REFLECTED_IN| and |REFLECTED_OFF|.
\ENDLOG 


@<Token and precedence declarations@>=

@=%token <pointer_value> REFLECTED_IN@>@/
@=%token <pointer_value> REFLECTED_OFF@>@/
@=%token <pointer_value> ROTATED@>@/
@=%token <pointer_value> ROTATED_AROUND@>@/
@=%token <pointer_value> SCALED@>@/
@=%token <pointer_value> SHEARED@>@/
@=%token <pointer_value> SHIFTED@>@/
@=%token <pointer_value> TRANSFORMED@>@/
@=%token <pointer_value> XSCALED@>@/
@=%token <pointer_value> YSCALED@>@/
@=%token <pointer_value> ZSCALED@>@/

@=%token <int_value> REFLECT@>@/
@=%token <int_value> ROTATE@>@/
@=%token <int_value> ROTATE_AROUND@>@/
@=%token <int_value> SCALE@>@/
@=%token <int_value> SHEAR@>@/
@=%token <int_value> SHIFT@>@/
@=%token <int_value> TRANSFORM_BY@>@/
@=%token <int_value> XSCALE@>@/
@=%token <int_value> YSCALE@>@/
@=%token <int_value> ZSCALE@>@/


@q *** (3) Operators.  @>
@*2 Operators.

Please note that in each declaration where multiple tokens are declared, the
tokens that appear earlier in the declaration are assigned {\it higher\/} values
than the tokens that appear later.  However, the values assigned to the tokens
ascend from declaration to declaration.  For example, |MINUS < PLUS < TIMES|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added declaration for |EQUALS|.

\initials{LDF 2005.05.12.}
Raised the priority of |LENGTH| and
|UNARY_PLUS_OR_MINUS|.  Added |%left|
declarations for |XPART|, |YPART|, |ZPART|, and |WPART|.

\initials{LDF 2005.05.12.}
Changed the order of the declarations of 
|XPART|, |YPART|, |ZPART|, and |WPART|.  They are now in reverse alphabetical
order, so that |ZPART == YPART + 1 == XPART + 2 == WPART + 3|.
The rule ``\�numeric primary> $\longrightarrow$ \�point part> \�point primary>'' in 
\filename{pnumexpr.w} depends on this.  

\initials{LDF 2005.05.12.}
Added declaration of |MAGNITUDE|.

\initials{LDF 2005.05.12.}
Added declaration of |ANGLE|.

\initials{LDF 2005.05.12.}
Added declarations for 
|OR|, |AND|, |EQUAL|, |NOT_EQUAL|, |LESS|, 
|LESS_OR_EQUAL|, |GREATER|, |GREATER_OR_EQUAL|, 
|NOT|, and |EQUATE|.  Removed the declaration for |EQUALS|.  

\initials{LDF 2005.05.12.}
Added |%right| declaration of |PLUS_ASSIGN|, |MINUS_ASSIGN|, 
|TIMES_ASSIGN|, and |DIVIDE_ASSIGN|.

\initials{LDF 2005.05.12.}
Added |%left| declarations of |DOT_PRODUCT| and |CROSS_PRODUCT|.


\initials{LDF 2005.05.12.}
Added |%left| declarations of |NORMAL| and |UNIT_VECTOR|.

\initials{LDF 2005.05.12.}
Added |%left| declarations for |XXPART|, |XYPART|, |XZPART|, 
|YXPART|, |YYPART|, |YZPART|, |ZXPART|, |ZYPART|, 
|ZZPART|, and |WXPART|, |WYPART|, |WZPART|. 

\initials{LDF 2005.05.12.}
@:BUG FIX@> BUG FIX: 
Added |WXPART|, |WYPART|, and |WZPART|.  
I'd forgotten to before.

\initials{LDF 2005.05.12.}
Added |left| declaration of |SIZE|.

\initials{LDF 2005.05.12.}
Added |%left| declarations for |RED_PART|, 
|GREEN_PART|, |BLUE_PART|, |YELLOW_PART|, |MAGENTA_PART|,
|CYAN_PART|, |BLACK_PART|, |WHITE_PART|, |BLUE_VIOLET_PART|, and
|RED_ORANGE_PART|.
\ENDLOG 


@q **** (4) Declarations.@> 

@<Token and precedence declarations@>=

@=%right <int_value> ASSIGN EQUATE PLUS_ASSIGN MINUS_ASSIGN @>
@=TIMES_ASSIGN DIVIDE_ASSIGN@>
@=%left <int_value> OR@>
@=%left <int_value> AND@>
@=%left <int_value> EQUAL NOT_EQUAL@>
@=%left <int_value> LESS LESS_OR_EQUAL GREATER GREATER_OR_EQUAL@>
@=%left <int_value> PLUS MINUS PYTHAGOREAN_PLUS PYTHAGOREAN_MINUS@>
@=%left <int_value> TIMES OVER ANGLE DOT_PRODUCT CROSS_PRODUCT @>@/
@=NORMAL UNIT_VECTOR@>
@=%left <int_value> LENGTH MAGNITUDE SIZE SQRT SIND COSD MLOG MEXP @>
@=UNIFORMDEVIATE FLOOR ZPART YPART XPART WPART @>
@=XXPART XYPART XZPART YXPART YYPART YZPART ZXPART ZYPART ZZPART @>
@=WXPART WYPART WZPART @>
@=RED_PART GREEN_PART BLUE_PART YELLOW_PART @>
@=MAGENTA_PART CYAN_PART BLACK_PART WHITE_PART @>
@=BLUE_VIOLET_PART RED_ORANGE_PART @>
@=%right <int_value> UNARY_PLUS_OR_MINUS NOT@>

@q *** (3) Boolean values and predicates.  @>
@*2 Boolean values and predicates.

\LOG
\initials{LDF 2005.05.12.}
Added this section with 
token declarations for |TRUE|, |FALSE|, 
|IS_ODD|, |IS_EVEN|, |IS_CYCLE|, |IS_KNOWN|, |IS_UNKNOWN|, 
and |CHAREXISTS|. 

\initials{LDF 2005.05.12.}
Added token declarations for the following type predicates:\hfil\break
|IS_SYNONYM|, |IS_UNDECLARED|,
|IS_BOOLEAN|, |IS_BOOL_POINT|, |IS_BOOL_POINT_VECTOR|, |IS_STRING|,
|IS_NUMERIC|, |IS_PEN|, |IS_DASH_PATTERN|, |IS_COLOR|, |IS_COLOR_VECTOR|,
|IS_PICTURE|, |IS_TRANSFORM|, |IS_POINT|, |IS_POINT_VECTOR|, |IS_FOCUS|,
|IS_PATH|, |IS_TRIANGLE|, |IS_REG_POLYGON|, |IS_RECTANGLE|, |IS_SQUARE|,
|IS_ELLIPSE|, |IS_CIRCLE|, |IS_CUBOID|, |IS_TETRAHEDRON|, |IS_OCTAHEDRON|,
|IS_DODECAHEDRON|, |IS_ICOSAHEDRON|, and |IS_TRUNC_OCTAHEDRON|.


\initials{LDF 2005.05.12.}
Added token declarations for 
|IS_ELLIPTICAL|,
|IS_CIRCULAR|,
|IS_REG_POLYGONAL|,
|IS_TRIANGULAR|,
|IS_QUADRATICAL|,
|IS_PENTAGONAL|,
|IS_HEXAGONAL|,
|IS_HEPTAGONAL|,
|IS_OCTAGONAL|,
|IS_NONAGONAL|,
|IS_DECAGONAL|,
|IS_ONDECAGONAL|,
|IS_DODECAGONAL|,
|IS_RECTANGULAR|,
|IS_CONVEX|,
|IS_CONICAL|,
|IS_PARABOLIC|,
|IS_HYPERBOLIC|,
|IS_TRAPEZOIDAL|,
|IS_PRISMOIDAL|,
|IS_CUBOIDAL|,
|IS_ELLIPSOIDAL|,
|IS_SPHEROIDAL|, and
|IS_SPHERICAL|.         

\initials{LDF 2005.05.12.}
Added token declarations for |IS_ON_SEGMENT|, |IS_ON_LINE|, 
|IS_IN_TRIANGLE|, |IS_IN_RECTANGLE|, and |LOCATION|.

\initials{LDF 2005.05.12.}
Added token declarations for 
|IS_PARALLEL|, 
|IS_COPLANAR|, 
|IS_SKEW|.


\initials{LDF 2005.05.12.}
Added token declaration for |DISTANCE|.

\initials{LDF 2005.05.12.}
Changed |DISTANCE| to |DISTANCE_TO_PLANE|.

\initials{LDF 2005.05.12.}
Added token declarations for |IS_PLANAR| and |DISTANCE_ALONG_LINE|.

\initials{LDF 2005.05.12.}
Added token declaration for |IS_LINEAR|.

\initials{LDF 2005.05.12.}
Removed the token declarations for |IS_NON_PARALLEL|, 
|IS_NON_COPLANAR|, and |IS_NON_SKEW|.

\initials{LDF 2005.05.12.}
Added token declaration for |IS_COLINEAR|.

\initials{LDF 2005.05.12.}
Added token declarations for |IS_PATH_VECTOR|, 
|IS_TRIANGLE_VECTOR|, |IS_REG_POLYGON_VECTOR|, 
|IS_RECTANGLE_VECTOR|, |IS_SQUARE_VECTOR|, 
|IS_ELLIPSE_VECTOR|, |IS_CIRCLE_VECTOR|,  |IS_CUBOID_VECTOR|, 
|IS_TETRAHEDRON_VECTOR|, |IS_OCTAHEDRON_VECTOR|, |IS_DODECAHEDRON_VECTOR|, 
|IS_ICOSAHEDRON_VECTOR|, and |IS_TRUNC_OCTAHEDRON_VECTOR|.


\initials{LDF 2005.05.12.}
Added token declarations for 
|IS_BOOLEAN_VECTOR|, 
|IS_STRING_VECTOR|, 
|IS_NUMERIC_VECTOR|, 
|IS_TRANSFORM_VECTOR|, 
|IS_PEN_VECTOR|, 
|IS_DASH_PATTERN_VECTOR|, 
|IS_FOCUS_VECTOR|, and
|IS_PICTURE_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |IS_QUADRILATERAL|.

\initials{LDF 2005.05.12.}
Added token declarations for |IS_NURB| and |IS_NURB_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |IS_ORIGAMI_FIGURE| and 
|IS_ORIGAMI_FIGURE_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |IS_CONVEX_POLYGONAL|.

\initials{LDF 2005.05.12.}
Added token declarations for |IS_POLYGON|,
|IS_POLYGON_VECTOR|, and |IS_POLYGONAL|.

\initials{LDF 2005.05.12.}
Added token declarations for |IS_ELLIPSE_SLICE|, 
|IS_CIRCLE_SLICE|, |IS_POLYHEDRON_SLICE|,
|IS_ELLIPSE_SLICE_VECTOR|, 
|IS_CIRCLE_SLICE_VECTOR|, and |IS_POLYHEDRON_SLICE_VECTOR|.
\ENDLOG

@q **** (4) Code.@>   

@<Token and precedence declarations@>=

@=%token <int_value> TRUE@>@/
@=%token <int_value> FALSE@>@/
@=%token <int_value> IS_ODD@>@/
@=%token <int_value> IS_EVEN@>@/
@=%token <int_value> IS_CYCLE@>@/
@=%token <int_value> IS_KNOWN@>@/
@=%token <int_value> IS_UNKNOWN@>@/
@=%token <int_value> CHAREXISTS@>@/

@=%token <int_value> IS_SYNONYM@>@/
@=%token <int_value> IS_UNDECLARED@>@/
@=%token <int_value> IS_BOOLEAN@>@/
@=%token <int_value> IS_BOOL_POINT@>@/
@=%token <int_value> IS_BOOL_POINT_VECTOR@>@/
@=%token <int_value> IS_STRING@>@/
@=%token <int_value> IS_NUMERIC@>@/
@=%token <int_value> IS_PEN@>@/
@=%token <int_value> IS_DASH_PATTERN@>@/
@=%token <int_value> IS_COLOR@>@/
@=%token <int_value> IS_COLOR_VECTOR@>@/
@=%token <int_value> IS_PICTURE@>@/
@=%token <int_value> IS_TRANSFORM@>@/
@=%token <int_value> IS_POINT@>@/
@=%token <int_value> IS_POINT_VECTOR@>@/
@=%token <int_value> IS_FOCUS@>@/
@=%token <int_value> IS_NURB@>@/
@=%token <int_value> IS_PATH@>@/
@=%token <int_value> IS_TRIANGLE@>@/
@=%token <int_value> IS_POLYGON@>@/
@=%token <int_value> IS_REG_POLYGON@>@/
@=%token <int_value> IS_RECTANGLE@>@/
@=%token <int_value> IS_ELLIPSE@>@/
@=%token <int_value> IS_CIRCLE@>@/
@=%token <int_value> IS_CUBOID@>@/
@=%token <int_value> IS_TETRAHEDRON@>@/
@=%token <int_value> IS_OCTAHEDRON@>@/
@=%token <int_value> IS_DODECAHEDRON@>@/
@=%token <int_value> IS_ICOSAHEDRON@>@/
@=%token <int_value> IS_TRUNC_OCTAHEDRON@>@/

@=%token <int_value> IS_ELLIPSE_SLICE@>@/
@=%token <int_value> IS_CIRCLE_SLICE@>@/
@=%token <int_value> IS_POLYHEDRON_SLICE@>@/

@=%token <int_value> IS_ELLIPSE_SLICE_VECTOR@>@/
@=%token <int_value> IS_CIRCLE_SLICE_VECTOR@>@/
@=%token <int_value> IS_POLYHEDRON_SLICE_VECTOR@>@/


@=%token <int_value> IS_ORIGAMI_FIGURE@>@/

@=%token <int_value> IS_LINEAR@>@/
@=%token <int_value> IS_PLANAR@>@/
@=%token <int_value> IS_SQUARE@>@/
@=%token <int_value> IS_ELLIPTICAL@>@/
@=%token <int_value> IS_CIRCULAR@>@/
@=%token <int_value> IS_POLYGONAL@>@/
@=%token <int_value> IS_REG_POLYGONAL@>@/
@=%token <int_value> IS_TRIANGULAR@>@/
@=%token <int_value> IS_QUADRATICAL@>@/
@=%token <int_value> IS_PENTAGONAL@>@/
@=%token <int_value> IS_HEXAGONAL@>@/
@=%token <int_value> IS_HEPTAGONAL@>@/
@=%token <int_value> IS_OCTAGONAL@>@/
@=%token <int_value> IS_NONAGONAL@>@/
@=%token <int_value> IS_DECAGONAL@>@/
@=%token <int_value> IS_ONDECAGONAL@>@/
@=%token <int_value> IS_DODECAGONAL@>@/
@=%token <int_value> IS_RECTANGULAR@>@/
@=%token <int_value> IS_QUADRILATERAL@>@/
@=%token <int_value> IS_CONVEX@>@/
@=%token <int_value> IS_CONVEX_POLYGONAL@>@/
@=%token <int_value> IS_CONICAL@>@/
@=%token <int_value> IS_PARABOLIC@>@/
@=%token <int_value> IS_HYPERBOLIC@>@/
@=%token <int_value> IS_TRAPEZOIDAL@>@/
@=%token <int_value> IS_PRISMOIDAL@>@/
@=%token <int_value> IS_CUBOIDAL@>@/
@=%token <int_value> IS_ELLIPSOIDAL@>@/
@=%token <int_value> IS_SPHEROIDAL@>@/ 
@=%token <int_value> IS_SPHERICAL@>@/         

@=%token <int_value> IS_ON_SEGMENT@>@/          
@=%token <int_value> IS_ON_LINE@>@/         
@=%token <int_value> IS_IN_TRIANGLE@>@/         
@=%token <int_value> IS_IN_RECTANGLE@>@/         
@=%token <int_value> LOCATION@>@/         

@=%token <int_value> IS_PARALLEL@>@/ 
@=%token <int_value> IS_COLINEAR@>@/ 
@=%token <int_value> IS_COPLANAR@>@/ 
@=%token <int_value> IS_SKEW@>@/ 

@=%token <int_value> DISTANCE_TO_PLANE@>@/
@=%token <int_value> DISTANCE_ALONG_LINE@>@/

@=%token <int_value> IS_NURB_VECTOR@>@/
@=%token <int_value> IS_PATH_VECTOR@>@/
@=%token <int_value> IS_TRIANGLE_VECTOR@>@/
@=%token <int_value> IS_POLYGON_VECTOR@>@/
@=%token <int_value> IS_REG_POLYGON_VECTOR@>@/
@=%token <int_value> IS_RECTANGLE_VECTOR@>@/
@=%token <int_value> IS_SQUARE_VECTOR@>@/
@=%token <int_value> IS_ELLIPSE_VECTOR@>@/
@=%token <int_value> IS_CIRCLE_VECTOR@>@/
@=%token <int_value> IS_CUBOID_VECTOR@>@/
@=%token <int_value> IS_TETRAHEDRON_VECTOR@>@/
@=%token <int_value> IS_OCTAHEDRON_VECTOR@>@/
@=%token <int_value> IS_DODECAHEDRON_VECTOR@>@/
@=%token <int_value> IS_ICOSAHEDRON_VECTOR@>@/
@=%token <int_value> IS_TRUNC_OCTAHEDRON_VECTOR@>@/

@=%token <int_value> IS_ORIGAMI_FIGURE_VECTOR@>@/

@=%token <int_value> IS_BOOLEAN_VECTOR@>@/
@=%token <int_value> IS_STRING_VECTOR@>@/
@=%token <int_value> IS_NUMERIC_VECTOR@>@/
@=%token <int_value> IS_TRANSFORM_VECTOR@>@/
@=%token <int_value> IS_PEN_VECTOR@>@/
@=%token <int_value> IS_DASH_PATTERN_VECTOR@>@/
@=%token <int_value> IS_FOCUS_VECTOR@>@/
@=%token <int_value> IS_PICTURE_VECTOR@>@/

@q *** (3) Types for drawing.  @>
@*2 Types for drawing.

\LOG
\initials{LDF 2005.05.12.}
Added this section.

\initials{LDF 2005.05.12.}
Removed the token declaration for |WITH_DOTS|.
|with_dots| is now a predefined variable defined in |Scanner_Type::create()| in 
\filename{scan.web}.

\initials{LDF 2005.05.12.}
Changed the name of the token |DASH_PATTERN| to 
|DASH_PATTERN_DECLARATOR| and moved the token declaration to where 
the types are declared, since |dash_pattern| is now a type.

\initials{LDF 2005.05.12.}
Added token declarations for 
|WITH_COLOR_VECTOR|, |WITH_DRAW_COLOR_VECTOR|, and 
|WITH_FILL_COLOR_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |DRAWDOT_IF|, |DRAWDOT_UNLESS|, 
|UNDRAWDOT_IF|, and |UNDRAWDOT_UNLESS|.

\initials{LDF 2005.05.12.}
Added token declarations for |DRAWDBLARROW| and |UNDRAWDBLARROW|.

\initials{LDF 2005.05.12.}
Added token declarations for 
|PICKUP|, |DROP_COLOR|, |DROP_DASH_PATTERN|, and 
|DROP_PEN|.

\initials{LDF 2005.05.12.}
Added token declarations for |PICKUP_DRAW_COLOR|, 
|PICKUP_FILL_COLOR|, |DROP_DRAW_COLOR|, and |DROP_FILL_COLOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |DROP_ALL|.

\initials{LDF 2005.05.12.}
Added token declarations for
|WITH_TEXT_COLOR| and |WITH_DOT_COLOR|.

\initials{LDF 2005.05.12.}
Added token declarations for
|WITH_PEN_VECTOR| and |WITH_DASH_PATTERN_VECTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for |CMY|, |CMYK|, and |RGB|.
\ENDLOG 

@q **** (4) Declarations.  @>

@<Token and precedence declarations@>=

@=%token <int_value> DRAWDOT@>@/
@=%token <int_value> DRAWDOT_IF@>@/
@=%token <int_value> DRAWDOT_UNLESS@>@/
@=%token <int_value> DRAW@>@/
@=%token <int_value> FILL@>@/
@=%token <int_value> FILLDRAW@>@/
@=%token <int_value> DRAWARROW@>@/
@=%token <int_value> DRAWDBLARROW@>@/
@=%token <int_value> UNDRAWDOT@>@/
@=%token <int_value> UNDRAWDOT_IF@>@/
@=%token <int_value> UNDRAWDOT_UNLESS@>@/
@=%token <int_value> UNDRAW@>@/
@=%token <int_value> UNFILL@>@/
@=%token <int_value> UNFILLDRAW@>@/
@=%token <int_value> UNDRAWARROW@>@/
@=%token <int_value> UNDRAWDBLARROW@>@/
@=%token <int_value> WITH_PEN@>@/
@=%token <int_value> WITH_PEN_VECTOR@>@/
@=%token <int_value> PENCIRCLE@>@/
@=%token <int_value> PENRAZOR@>@/
@=%token <int_value> PENSPECK@>@/
@=%token <int_value> PENSQUARE@>@/
@=%token <int_value> WITH_COLOR@>@/
@=%token <int_value> WITH_DRAW_COLOR@>@/
@=%token <int_value> WITH_FILL_COLOR@>@/
@=%token <int_value> WITH_TEXT_COLOR@>@/
@=%token <int_value> WITH_DOT_COLOR@>@/
@=%token <int_value> WITH_COLOR_VECTOR@>@/
@=%token <int_value> WITH_DRAW_COLOR_VECTOR@>@/
@=%token <int_value> WITH_FILL_COLOR_VECTOR@>@/
@=%token <int_value> WITH_WEIGHT@>@/
@=%token <int_value> DASHED@>@/
@=%token <int_value> WITH_DASH_PATTERN_VECTOR@>@/
@=%token <int_value> ON_PICTURE@>@/

@=%token <int_value> PICKUP@>@/
@=%token <int_value> DROP_COLOR@>@/
@=%token <int_value> DROP_DASH_PATTERN@>@/
@=%token <int_value> DROP_PEN@>@/

@=%token <int_value> PICKUP_DRAW_COLOR@>@/ 
@=%token <int_value> PICKUP_FILL_COLOR@>@/
@=%token <int_value> DROP_DRAW_COLOR@>@/
@=%token <int_value> DROP_FILL_COLOR@>@/

@=%token <int_value> CMY@>@/
@=%token <int_value> CMYK@>@/
@=%token <int_value> RGB@>@/


@=%token <int_value> DROP_ALL@>@/


@q *** (3) Types for |Focuses|.  @>
@*2 Types for |Focuses|.

\LOG
\initials{LDF 2005.05.12.}
Added this section, with token declarations for 
|WITH_POSITION|, |WITH_DIRECTION|, |WITH_DISTANCE|, |WITH_ANGLE|, 
|WITH_AXIS|, |X_AXIS|, |Y_AXIS|, and |Z_AXIS|.

\initials{LDF 2005.05.12.}
Added token declarations for |PERSPECTIVE|
|PARALLEL_X_Y|, |PARALLEL_X_Z|, |PARALLEL_Z_Y|, |AXONOMETRIC|, 
|ISOMETRIC|, and |SUPPRESS|.
\ENDLOG 

@q **** (4) Declarations.  @>

@<Token and precedence declarations@>=

@=%token <int_value> WITH_POSITION@>@/
@=%token <int_value> WITH_DIRECTION@>@/
@=%token <int_value> WITH_DISTANCE@>@/
@=%token <int_value> WITH_ANGLE@>@/
@=%token <int_value> WITH_AXIS@>@/
@=%token <int_value> X_AXIS@>@/
@=%token <int_value> Y_AXIS@>@/
@=%token <int_value> Z_AXIS@>@/

@=%token <int_value> PERSPECTIVE@>@/
@=%token <int_value> PARALLEL_X_Y@>@/
@=%token <int_value> PARALLEL_X_Z@>@/
@=%token <int_value> PARALLEL_Z_Y@>@/
@=%token <int_value> AXONOMETRIC@>@/
@=%token <int_value> ISOMETRIC@>@/
@=%token <int_value> SUPPRESS@>@/


@q *** (4) Types for outputting |Pictures|.  @>
@*3 Types for outputting |Pictures|.

\LOG
\initials{LDF 2005.05.12.}
Added this section.

\initials{LDF 2005.05.12.}
Added token declaration for |WITH_PROJECTION|.

\initials{LDF 2005.05.12.}
Added token declaration for |WITH_FACTOR|.

\initials{LDF 2005.05.12.}
Added token declarations for 
|NO_SORT|, |MAX_Z_SORT|, |MIN_Z_SORT|, |MEAN_Z_SORT|, 
|WITH_MIN_X_PROJ|, |WITH_MAX_X_PROJ|, 
|WITH_MIN_Y_PROJ|, |WITH_MAX_Y_PROJ|, 
|WITH_MIN_Z_PROJ|, and |WITH_MAX_Z_PROJ|. 


\initials{LDF 2005.05.12.}
Changed |WITH_MIN_X_PROJ| to |MIN_Y_PROJ|.  Did the same for
|MAX_X_PROJ|, |MIN_Y_PROJ|, etc.
\ENDLOG 

@q **** (4) Declarations.  @>

@<Token and precedence declarations@>=

@=%token <int_value> WITH_FOCUS@>@/
@=%token <int_value> WITH_PROJECTION@>@/
@=%token <real_value> WITH_FACTOR@>@/
@=%token <int_value> NO_SORT@>@/ 

@=%token <int_value> MAX_Z_SORT@>@/ 
@=%token <int_value> MIN_Z_SORT@>@/ 
@=%token <int_value> MEAN_Z_SORT@>@/ 

@=%token <int_value> MIN_X_PROJ@>@/ 
@=%token <int_value> MAX_X_PROJ@>@/ 
@=%token <int_value> MIN_Y_PROJ@>@/ 
@=%token <int_value> MAX_Y_PROJ@>@/ 
@=%token <int_value> MIN_Z_PROJ@>@/ 
@=%token <int_value> MAX_Z_PROJ@>@/ 

@q *** (3) Types for projections.@> 
@*2 Types for projections.
LDF 2005.04.15.

\LOG
\initials{LDF 2005.05.12.}
Added this section with the token declaration for |PROJECT|.

\initials{LDF 2005.05.12.}
Added the token declaration for |PROJECTED|.

\initials{LDF 2005.05.12.}
Added the token declaration for |WITH_Z|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> PROJECT@>@/ 
@=%token <int_value> PROJECTED@>@/ 
@=%token <int_value> WITH_Z@>@/ 

@q *** (3) Commands.  @>
@*2 Commands.

\LOG
\initials{LDF 2005.05.12.}
Added token declaration for |SET|.

\initials{LDF 2005.05.12.}
Added token declarations for |LABEL|,
|RT|, |LFT|, |TOP|, |BOT|, |URT|, |ULFT|, |LRT|, and |LLFT|.

\initials{LDF 2005.05.12.}
Added token declaration for |DOTLABEL|.

\initials{LDF 2005.05.12.}
Added token declarations for |MESSAGE| and |ERRMESSAGE|.

\initials{LDF 2005.05.12.}
Added token declaration for |PAUSE|.

\initials{LDF 2005.05.12.}
Added token declaration for |END_INPUT|.
Changed value type of |INPUT| and |END| from |string_value| 
to |int_value|. 


\initials{LDF 2005.05.12.}
Added token declaration for |MEDIATE|.

\initials{LDF 2005.05.12.}
Added token declarations for |SUPPRESS_LABELS| and 
|UNSUPPRESS_LABELS|.

\initials{LDF 2005.05.12.}
Added token declaration for |KILL_LABELS|.

\initials{LDF 2005.05.12.}
Added token declarations for |LABEL_IF|, |LABEL_UNLESS|,
|DOTLABEL_IF|, and |DOTLABEL_UNLESS|.

\initials{LDF 2005.05.12.}
Added token declaration for |LABELS|, 
|DOTLABELS|, |LABELS_IF|, |DOTLABELS_IF|, |LABELS_UNLESS|, and 
|DOTLABELS_UNLESS|.

\initials{LDF 2005.05.12.}
Added token declaration for |SCANTOKENS|. 

\initials{LDF 2005.05.12.}
Added token declaration for |VERBATIM_METAPOST|. 
\ENDLOG 

@q **** (4) Declarations.@>   

\LOG
\initials{LDF 2005.05.12.}
Added token declaration for |LET|.
\ENDLOG 

@<Token and precedence declarations@>=

@=%token <int_value> INPUT@>@/
@=%token <int_value> END@>@/
@=%token <int_value> END_INPUT@>@/
@=%token <int_value> SET@>@/
@=%token <int_value> LABEL@>@/
@=%token <int_value> DOTLABEL@>@/
@=%token <int_value> RT@>@/
@=%token <int_value> LFT@>@/
@=%token <int_value> TOP@>@/
@=%token <int_value> BOT@>@/
@=%token <int_value> URT@>@/
@=%token <int_value> ULFT@>@/
@=%token <int_value> LRT@>@/
@=%token <int_value> LLFT@>@/
@=%token <int_value> MESSAGE@>@/
@=%token <int_value> ERRMESSAGE@>@/
@=%token <int_value> PAUSE@>@/
@=%token <int_value> MEDIATE@>@/
@=%token <int_value> SUPPRESS_LABELS@>@/
@=%token <int_value> UNSUPPRESS_LABELS@>@/
@=%token <int_value> KILL_LABELS@>@/

@=%token <int_value> LABEL_IF@>@/
@=%token <int_value> LABEL_UNLESS@>@/
@=%token <int_value> DOTLABEL_IF@>@/
@=%token <int_value> DOTLABEL_UNLESS@>@/


@=%token <int_value> LABELS@>@/
@=%token <int_value> LABELS_IF@>@/
@=%token <int_value> LABELS_UNLESS@>@/
@=%token <int_value> DOTLABELS@>@/
@=%token <int_value> DOTLABELS_IF@>@/
@=%token <int_value> DOTLABELS_UNLESS@>@/

@=%token <int_value> SCANTOKENS@>@/

@=%token <int_value> VERBATIM_METAPOST@>@/

@=%token <int_value> LET@>@/

@q *** (3) Types for setting |Shapes|.@>
@ Types for setting |Shapes|.

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations 
for |WITH_CENTER|, |WITH_POINT_COUNT|, and |WITH_NORMAL|.

\initials{LDF 2005.05.12.}
Added token declarations for 
|WITH_AXIS_H|, |WITH_AXIS_V|, and |WITH_DIAMETER|.

\initials{LDF 2005.05.12.}
Added token declaration for |WITH_SIDES|. 
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> WITH_CENTER@>@/
@=%token <int_value> WITH_POINT_COUNT@>@/
@=%token <int_value> WITH_NORMAL@>@/
@=%token <int_value> WITH_AXIS_H@>@/
@=%token <int_value> WITH_AXIS_V@>@/
@=%token <int_value> WITH_DIAMETER@>@/
@=%token <int_value> WITH_SIDES@>@/

@q *** (3) Types for modifying |Shapes|.@>
@ Types for modifying |Shapes|.

\LOG
\initials{LDF 2005.05.12.}
Added this section with a token declaration 
for |CLEAR_CONNECTORS|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> CLEAR_CONNECTORS@>@/


@q *** (3) Types for outputting |Pictures|.  @>
@*2 Types for outputting |Pictures|.

\LOG
\initials{LDF 2005.05.12.}
Added token declaration for |OUTPUT|.

\initials{LDF 2005.05.12.}
Added token declaration for |SHOW|.

\initials{LDF 2005.05.12.}
Added token declarations for |BEGINFIG| and
|ENDFIG|. 

\initials{LDF 2005.05.12.}
Added token declaration for |CLEAR|.

\initials{LDF 2005.05.12.}
Added token declarations for |WITH_SURFACE_HIDING| 
and |WITHOUT_SURFACE_HIDING|.
\ENDLOG 

@<Token and precedence declarations@>=

@=%token <int_value> OUTPUT@>@/
@=%token <int_value> CLEAR@>@/
@=%token <int_value> BEGINFIG@>@/
@=%token <int_value> ENDFIG@>@/
@=%token <int_value> SHOW@>@/

@=%token <int_value> WITH_SURFACE_HIDING@>@/
@=%token <int_value> WITHOUT_SURFACE_HIDING@>@/


@q *** (3) Types for intersections.  @>
@*2 Types for intersections.

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for 
|INTERSECTION_POINT| and |INTERSECTION_POINTS|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> INTERSECTION_POINT@>@/
@=%token <int_value> INTERSECTION_POINTS@>@/

@q *** (3) Types for conditionals.  @>
@ Types for conditionals.

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for 
|IF|, |ELSE|, |ELSEIF|, and |FI|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> IF@>@/
@=%token <int_value> ELSE@>@/
@=%token <int_value> ELSEIF@>@/
@=%token <int_value> FI@>@/

@q *** (3) Types for loops.  @>
@ Types for loops.

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for 
|FOR|, |FORSUFFIXES|, |FOREVER|, |EXITIF|, |STEP|, |UNTIL|, 
and |ENDFOR|. 

\initials{LDF 2005.05.12.}
Added token declaration for |END_LOOP_PREFIX|.

\initials{LDF 2005.05.12.}
Removed token declaration for |END_LOOP_PREFIX|.

\initials{LDF 2005.05.12.}
Changed |EXITIF| to |EXIT_IF| and added |EXIT_UNLESS|.

\initials{LDF 2005.05.12.}
Changed |FORSUFFIXES| to |FOR_SUFFIXES| and |ENDFOR| to |END_FOR|. 

\initials{LDF 2005.05.12.}
Added token declarations for |UPTO|, |DOWNTO|, 
and |FOR_SUFFIXES_INTERNAL|.

\initials{LDF 2005.05.12.}
Added token declaration for |FOR_SUFFIXES_INTERNAL_START|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> FOR@>@/
@=%token <int_value> FOR_SUFFIXES@>@/
@=%token <int_value> FOR_SUFFIXES_INTERNAL@>@/
@=%token <int_value> FOR_SUFFIXES_INTERNAL_START@>@/
@=%token <int_value> FOREVER@>@/
@=%token <int_value> EXIT_IF@>@/
@=%token <int_value> EXIT_UNLESS@>@/
@=%token <int_value> STEP@>@/
@=%token <int_value> UNTIL@>@/
@=%token <int_value> END_FOR@>@/
@=%token <int_value> UPTO@>@/
@=%token <int_value> DOWNTO@>@/

@q *** (3) Types for groups.  @>
@ Types for groups.

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for 
|BEGIN_GROUP|, |END_GROUP|, and |SAVE|.

\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> BEGIN_GROUP@>@/
@=%token <int_value> END_GROUP@>@/
@=%token <int_value> SAVE@>@/

@q *** (3) Types for transformations.@>
@*2 Types for transformations.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with the token declarations for |INVERSE| 
and |INVERT|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> INVERSE@>@/
@=%token <int_value> INVERT@>@/


@q *** (3) Types for extracting sub-objects.@>
@*2 Types for extracting sub-objects.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for 
|GET_TRANSFORM|,
|GET_POINT|,
|GET_POINTS|,
|GET_CONNECTOR|,
|GET_CONNECTORS|,
|GET_PEN|,
|GET_DASH_PATTERN|,
|GET_DRAWDOT_COLOR|,
|GET_DRAW_COLOR|,
|GET_FILL_COLOR|,
|GET_COLORS|,
|GET_CIRCLE|,
|GET_ELLIPSE|,
|GET_PATH|,
|GET_RECTANGLE|, and
|GET_REG_POLYGON|.

\initials{LDF 2005.05.12.}
Added token declaration for |GET_CENTER|.

\initials{LDF 2005.05.12.}
Added token declarations for |HALF|, |QUARTER|, 
and |SEGMENT|.

\initials{LDF 2005.05.12.}
Added token declarations for |WITH_START|, |WITH_END|, |WITH_SIZE|, 
and |WITH_FRACTION|.

\initials{LDF 2005.05.12.}
Added token declarations for |WITH_CLOSED|.

\initials{LDF 2005.05.12.}
Removed the token declaration for |GET_DRAWDOT_COLOR|.
\ENDLOG

@<Token and precedence declarations@>=

@=%token <int_value> GET_TRANSFORM@>@/
@=%token <int_value> GET_POINT@>@/
@=%token <int_value> GET_POINTS@>@/
@=%token <int_value> GET_CONNECTOR@>@/
@=%token <int_value> GET_CONNECTORS@>@/
@=%token <int_value> GET_PEN@>@/
@=%token <int_value> GET_DASH_PATTERN@>@/
@=%token <int_value> GET_DRAW_COLOR@>@/
@=%token <int_value> GET_FILL_COLOR@>@/
@=%token <int_value> GET_COLORS@>@/
@=%token <int_value> GET_CENTER@>@/
@=%token <int_value> GET_CIRCLE@>@/
@=%token <int_value> GET_ELLIPSE@>@/
@=%token <int_value> GET_PATH@>@/
@=%token <int_value> GET_RECTANGLE@>@/
@=%token <int_value> GET_REG_POLYGON@>@/

@=%token <int_value> HALF@>@/
@=%token <int_value> QUARTER@>@/
@=%token <int_value> SEGMENT@>@/

@=%token <int_value> WITH_START@>@/
@=%token <int_value> WITH_END@>@/
@=%token <int_value> WITH_SIZE@>@/
@=%token <int_value> WITH_FRACTION@>@/
@=%token <int_value> WITH_CLOSED@>@/

@q *** (3) Types for enclosed and enclosing figures.@>
@*2 Types for enclosed and enclosing figures.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for
|IN_CIRCLE|, 
|OUT_CIRCLE|, 
|IN_ELLIPSE|, 
|OUT_ELLIPSE|, 
|IN_RECTANGLE|, 
|OUT_RECTANGLE|, 
|IN_SPHERE|, 
|OUT_SPHERE|, 
|IN_ELLIPSOID|, 
|OUT_ELLIPSOID|, 
|IN_CUBOID|, and
|OUT_CUBOID|.
\ENDLOG

@q **** (4) Code.@>   

@<Token and precedence declarations@>=

@=%token <int_value> IN_CIRCLE@>@/ 
@=%token <int_value> OUT_CIRCLE@>@/ 

@=%token <int_value> IN_ELLIPSE@>@/ 
@=%token <int_value> OUT_ELLIPSE@>@/ 

@=%token <int_value> IN_RECTANGLE@>@/ 
@=%token <int_value> OUT_RECTANGLE@>@/ 

@=%token <int_value> IN_SPHERE@>@/ 
@=%token <int_value> OUT_SPHERE@>@/ 

@=%token <int_value> IN_ELLIPSOID@>@/ 
@=%token <int_value> OUT_ELLIPSOID@>@/ 

@=%token <int_value> IN_CUBOID@>@/
@=%token <int_value> OUT_CUBOID@>@/

@q *** (3) Types for macros.@>
@*2 Types for macros.

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for
|MACRO_TYPE|,
|VARDEF_TYPE|,
|PRIMARYDEF_TYPE|,
|SECONDARYDEF_TYPE|,
|TERTIARYDEF_TYPE|,
|DEFMACRO|,
|VARDEF|,
|PRIMARYDEF|, 
|SECONDARYDEF|, 
|TERTIARYDEF|, 
|ENDDEF|, 
|SUFFIX|, 
|TEXT|, and
|EXPR|.

\initials{LDF 2005.05.12.}
Changed |DEFMACRO| to |DEF|.

\initials{LDF 2005.05.12.}
Added token declaration for |DEFUN|.

\initials{LDF 2005.05.12.}
Changed the type of |DEFUN| from |int_value| to |pointer_value|.

\initials{LDF 2005.05.12.}
Removed the declarations for 
|MACRO_TYPE|, 
|VARDEF_TYPE|, 
|PRIMARYDEF_TYPE|, 
|SECONDARYDEF_TYPE|, 
|TERTIARYDEF_TYPE|, 
|DEF|, 
|VARDEF|, 
|SUFFIX|, 
|TEXT|, and
|EXPR|.
%
Changed the type of 
|PRIMARYDEF|, |SECONDARYDEF|, and |TERTIARYDEF|
from |int_value| to |pointer_value|.
%
Added declarations for 
||MACRO|, 
|MACRO_DECLARATOR|, 
|PRIMARYDEF_DECLARATOR|,
|SECONDARYDEF_DECLARATOR|, and
|TERTIARYDEF_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added declarations for 
|MACRO_VECTOR|, 
|PRIMARYDEF_VECTOR|, 
|SECONDARYDEF_VECTOR|, 
|TERTIARYDEF_VECTOR|, 
|MACRO_VECTOR_DECLARATOR|, 
|PRIMARYDEF_VECTOR_DECLARATOR|,
|SECONDARYDEF_VECTOR_DECLARATOR|,
and 
|TERTIARYDEF_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added token declaration for |DEF| again.
\ENDLOG

@q **** (4) Code.@>   

@<Token and precedence declarations@>=

@=%token <pointer_value> MACRO@>@/ 
@=%token <pointer_value> PRIMARYDEF@>@/ 
@=%token <pointer_value> SECONDARYDEF@>@/ 
@=%token <pointer_value> TERTIARYDEF@>@/ 

@=%token <string_value> MACRO_DECLARATOR@>@/ 
@=%token <string_value> PRIMARYDEF_DECLARATOR@>@/
@=%token <string_value> SECONDARYDEF_DECLARATOR@>@/
@=%token <string_value> TERTIARYDEF_DECLARATOR@>@/

@=%token <pointer_value> MACRO_VECTOR@>@/ 
@=%token <pointer_value> PRIMARYDEF_VECTOR@>@/ 
@=%token <pointer_value> SECONDARYDEF_VECTOR@>@/ 
@=%token <pointer_value> TERTIARYDEF_VECTOR@>@/ 

@=%token <string_value> MACRO_VECTOR_DECLARATOR@>@/ 
@=%token <string_value> PRIMARYDEF_VECTOR_DECLARATOR@>@/
@=%token <string_value> SECONDARYDEF_VECTOR_DECLARATOR@>@/
@=%token <string_value> TERTIARYDEF_VECTOR_DECLARATOR@>@/

@=%token <int_value> DEF@>@/ 
@=%token <int_value> ENDDEF@>@/ 

@=%token <pointer_value> DEFUN@>@/ 

@q *** (3) Types for vector-type objects.@>
@*2 Types for vector-type objects.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for
|PUSH_BACK| and |POP_BACK|.

\initials{LDF 2005.05.12.}
Added token declaration for |LAST|.
\ENDLOG

@q **** (4) Code.@>   

@<Token and precedence declarations@>=

@=%token <int_value> PUSH_BACK@>@/ 
@=%token <int_value> POP_BACK@>@/ 
@=%token <int_value> LAST@>@/ 


@q *** (3) Types for |triangles|.@>
@*2 Types for |triangles|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for
|WITH_SSS|, |WITH_SAS|, |WITH_SAA|, |WITH_ASA|, 
|WITH_SSA_B|, |WITH_SSA_L|, and |WITH_SSA_S|. 

\initials{LDF 2005.05.12.}
Added token declaration for |WITH_SSA_A|.  
I'd forgotten it before.

\initials{LDF 2005.05.12.}
Removed the token declarations for |WITH_SSA_A| and 
|WITH_SSA_B|.

\initials{LDF 2005.05.12.}
Added token declaration for |WITH_POINTS|.
\ENDLOG

@q **** (4) Code.@>   

@<Token and precedence declarations@>=

@=%token <int_value> WITH_SSS@>@/ 
@=%token <int_value> WITH_SAS@>@/ 
@=%token <int_value> WITH_SAA@>@/ 
@=%token <int_value> WITH_ASA@>@/ 
@=%token <int_value> WITH_SSA_L@>@/ 
@=%token <int_value> WITH_SSA_S@>@/ 

@=%token <int_value> WITH_POINTS@>@/ 


@q *** (3) Types for surface hiding.@>
@*2 Types for surface hiding.
\initials{LDF 2005.05.12.}


\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations 
for |DECOMPOSE| and |WITH_LEVEL|.

\initials{LDF 2005.05.12.}
Added the token declaration for |WITH_RECTANGLES|.
\ENDLOG 

@q **** (4) Declarations.  @>

@<Token and precedence declarations@>=

@=%token <int_value> DECOMPOSE@>@/
@=%token <int_value> WITH_LEVEL@>@/
@=%token <int_value> WITH_RECTANGLES@>@/

@q *** (3) Types for |nurbs|.@>
@*2 Types for |nurbs|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with token declarations for
|KNOT|, |WEIGHT|, |WITH_KNOTS|, and |WITH_WEIGHTS|.

\initials{LDF 2005.05.12.}
Added token declarations for |WITH_TIME_PARAMETER|,
|WITH_ORDER|, and |GENERATE|.

\initials{LDF 2005.05.12.}
Changed |WITH_ORDER| to |WITH_POWER|.
\ENDLOG

@q **** (4) Code.@>   

@<Token and precedence declarations@>=

@=%token <int_value> KNOT@>@/ 
@=%token <int_value> WEIGHT@>@/ 
@=%token <int_value> WITH_KNOTS@>@/ 
@=%token <int_value> WITH_WEIGHTS@>@/ 
@=%token <int_value> WITH_TIME_PARAMETER@>@/ 
@=%token <int_value> WITH_POWER@>@/ 

@=%token <int_value> GENERATE@>@/ 


@q *** (3) Types for |origami_figures|.@>
@*2 Types for |nurbs|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section.  It's currently empty.
\ENDLOG

@q **** (4) Code.@>   

@<Token and precedence declarations@>=


@q ** (2) Constants in |namespace Scan_Parse|. @>
@*1 Constants in {\bf namespace Scan\_Parse}. 
It is safe to assume that |TRANSFORM == MIN_SHAPE - 1|.  This can be useful
for testing whether a particular operation can be performed on objects in an
expression.  Some operations can be performed on {\bf numerics}, |Transforms|,
and/or |Shapes|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}

\initials{LDF 2005.05.12.}
Added |MIN_INTERNAL_QUANTITY| and |MAX_INTERNAL_QUANTITY|.

\initials{LDF 2005.05.12.}
Removed |MIN_INTERNAL_QUANTITY| and |MAX_INTERNAL_QUANTITY|.
\ENDLOG 

@<Constants in |namespace Scan_Parse|@>=
namespace
Scan_Parse
{
  extern const unsigned int MIN_SHAPE = POINT; 
  extern const unsigned int MAX_SHAPE = TRUNC_OCTAHEDRON;

};

@
@<|extern| declarations in |namespace Scan_Parse|@>=
namespace
Scan_Parse
{
  extern const unsigned int MIN_SHAPE; 
  extern const unsigned int MAX_SHAPE;
};


@q ** (2) |name_map| and |type_name_map|. @>
@*1 {\bf name\_map} and {\bf type\_name\_map}. 
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Changed |int| to |const int|.  Changing 
|string| to |const string| causes errors.  

\initials{LDF 2005.05.12.}
Added declaration of |type_name_map|.
\ENDLOG 

@q *** (3) Declaration .@> 

@<Declare |name_map| and |type_name_map|@>=
map <const int, string> name_map;
map <const int, string> type_name_map;

@q *** (3) |extern| declaration.@> 

@
@<|extern| declaration of |name_map| and |type_name_map|@>=
extern 
map <const int, string> name_map;

extern 
map <const int, string> type_name_map;

@q *** (3) Initialize |name_map| and |type_name_map|. @>
@*2 Initialize {\bf name\_map} and {\bf type\_name\_map}. 

\LOG
\initials{LDF 2005.05.12.}
Added entry for |EQUALS|.

\initials{LDF 2005.05.12.}
Added entries for |BOOLEAN|,
|BOOLEAN_DECLARATOR|, |OR|, |AND|, |EQUAL|, |NOT_EQUAL|, |LESS|,  
|LESS_OR_EQUAL|, |GREATER|, |GREATER_OR_EQUAL|, 
|NOT|, |TRUE|, |FALSE|, |IS_ODD|, |IS_EVEN|, |IS_CYCLE|, |IS_KNOWN|, 
|IS_UNKNOWN|, and |CHAREXISTS|.
Removed the entry for |EQUALS|.  

\initials{LDF 2005.05.12.}
Added entry for |BOOLEAN_DECLARATOR|.

\initials{LDF 2005.05.12.}
Removed entries for the internal quantities.
\ENDLOG 

@q **** (4) Declaration. @>

@<Declare functions@>=
int
initialize_name_map(void);

@q **** (4) Definition. @>

@
@<Define functions@>=
int
initialize_name_map(void)
{

  name_map[NULL_VALUE] = "NULL_VALUE";

@q **** (4) Predefined sparks. @>
@ Predefined sparks.

\LOG
\initials{LDF 2005.05.12.}
Now adding entries in |name_map| for
|AMPERSAND|, |CYCLE|, |PERIOD_PAIR|, |PERIOD_TRIPLE|, |HYPHEN|, |HYPHEN_PAIR|, 
and |HYPHEN_TRIPLE|.

\initials{LDF 2005.05.12.}
Now adding entries in |name_map| for
|REVERSE|, |SUBPATH|, and |OF|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |COLON|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |END_INPUT|.

\initials{LDF 2005.05.12.}
Replaced the entry for |CURLY_BRACES| with ones for |LEFT_BRACE| and 
|RIGHT_BRACE|.
\ENDLOG 

@<Define functions@>=
  name_map[END] = "END";
  name_map[INPUT] = "INPUT";
  name_map[END_INPUT] = "END_INPUT";
  name_map[TERMINATE] = "TERMINATE";
  name_map[INVALID_CATCODE] = "INVALID_CATCODE";
  name_map[INVALID_CHAR] = "INVALID_CHAR";
  name_map[SPACE] = "SPACE";

  name_map[AMPERSAND] = "AMPERSAND";

  name_map[CYCLE] = "CYCLE";

  name_map[REVERSE] = "REVERSE";

  name_map[SUBPATH] = "SUBPATH";

  name_map[OF] = "OF";

  name_map[PERIOD] = "PERIOD";
  name_map[PERIOD_PAIR] = "PERIOD_PAIR";
  name_map[PERIOD_TRIPLE] = "PERIOD_TRIPLE";

  name_map[HYPHEN] = "HYPHEN";
  name_map[HYPHEN_PAIR] = "HYPHEN_PAIR";
  name_map[HYPHEN_TRIPLE] = "HYPHEN_TRIPLE";

  name_map[COMMA] = "COMMA";
  name_map[COLON] = "COLON";
  name_map[SEMI_COLON] = "SEMI_COLON";
  name_map[LEFT_PARENTHESIS] = "LEFT_PARENTHESIS";
  name_map[RIGHT_PARENTHESIS] = "RIGHT_PARENTHESIS";
  name_map[DOUBLE_QUOTE] = "DOUBLE_QUOTE";
  name_map[LEFT_BRACKET] = "LEFT_BRACKET";
  name_map[RIGHT_BRACKET] = "RIGHT_BRACKET";
  name_map[LEFT_BRACE]    = "LEFT_BRACE";
  name_map[RIGHT_BRACE]   = "RIGHT_BRACE";
  name_map[DIGIT] = "DIGIT";
  name_map[INTEGER] = "INTEGER";
  name_map[REAL] = "REAL";
  name_map[PERCENT] = "PERCENT";

@q **** (4) Basic symbolic tokens.  @>
@ Basic symbolic tokens.
@<Define functions@>=

  name_map[SYMBOL_0] = "SYMBOL_0";
  name_map[SYMBOL_1] = "SYMBOL_1";
  name_map[SYMBOL_2] = "SYMBOL_2";
  name_map[SYMBOL_3] = "SYMBOL_3";
  name_map[SYMBOL_4] = "SYMBOL_4";
  name_map[SYMBOL_5] = "SYMBOL_5";
  name_map[SYMBOL_6] = "SYMBOL_6";
  name_map[SYMBOL_7] = "SYMBOL_7";


@q *** (3) General-Purpose Words and ``Syntactic Sugar''.@>
@*2 General-Purpose Words and ``Syntactic Sugar''.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entries for 
|IN|, |BY|, and |AROUND|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |OFF|.
\ENDLOG

@<Define functions@>=

  name_map[IN]     = "IN";
  name_map[OFF]    = "OFF";
  name_map[BY]     = "BY";
  name_map[AROUND] = "AROUND";

@q **** (4) Object types defined in 3DLDF (and |UNDECLARED|).  @>
@*3 Object types defined in 3DLDF (and |UNDECLARED|).

\LOG
\initials{LDF 2005.05.12.}

\initials{LDF 2005.05.12.}
Added entry for |SYNONYM|.

\initials{LDF 2005.05.12.}
Added entry for |COLOR_VECTOR|.

\initials{LDF 2005.05.12.}
Added entry for |POINT_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for |BOOL_POINT| and |BOOL_POINT_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for |PATH_VECTOR|, 
|TRIANGLE_VECTOR|, |REG_POLYGON_VECTOR|, 
|RECTANGLE_VECTOR|, |SQUARE_VECTOR|, 
|ELLIPSE_VECTOR|, |CIRCLE_VECTOR|,  |CUBOID_VECTOR|, 
|TETRAHEDRON_VECTOR|, |OCTAHEDRON_VECTOR|, |DODECAHEDRON_VECTOR|, 
|ICOSAHEDRON_VECTOR|, and |TRUNC_OCTAHEDRON_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for 
|BOOLEAN_VECTOR_DECLARATOR|, 
|STRING_VECTOR_DECLARATOR|, 
|NUMERIC_VECTOR_DECLARATOR|, 
|TRANSFORM_VECTOR_DECLARATOR|, 
|PEN_VECTOR_DECLARATOR|, 
|DASH_PATTERN_VECTOR_DECLARATOR|, 
|FOCUS_VECTOR_DECLARATOR|, and
|PICTURE_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entries for 
|BOOLEAN_VECTOR|, 
|STRING_VECTOR|, 
|NUMERIC_VECTOR|, 
|PEN_VECTOR|, 
|DASH_PATTERN_VECTOR|, 
|PICTURE_VECTOR|, 
|TRANSFORM_VECTOR|, and
|FOCUS_VECTOR|.

\initials{LDF 2005.05.12.}
Added |type_name_map| entries for 
|BOOLEAN_VECTOR_DECLARATOR|,
|STRING_VECTOR_DECLARATOR|, 
|NUMERIC_VECTOR_DECLARATOR|,
|TRANSFORM_VECTOR_DECLARATOR|,
|PEN_VECTOR_DECLARATOR|, 
|DASH_PATTERN_VECTOR_DECLARATOR|,
|FOCUS_VECTOR_DECLARATOR|, 
and 
|PICTURE_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entries for |NURB| and |NURB_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for |ORIGAMI_FIGURE| and |ORIGAMI_FIGURE_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for |POLYGON| and |POLYGON_VECTOR|.
\ENDLOG 

@q ***** (5) Code.@> 

@<Define functions@>=

   name_map[SYNONYM] = "SYNONYM";
   name_map[UNDECLARED] = "UNDECLARED";
   name_map[BOOLEAN] = "BOOLEAN";
   name_map[BOOL_POINT] = "BOOL_POINT";
   name_map[NUMERIC] = "NUMERIC";
   name_map[STRING] = "STRING";
   name_map[PEN] = "PEN";
   name_map[DASH_PATTERN] = "DASH_PATTERN";
   name_map[COLOR] = "COLOR";
   name_map[PICTURE] = "PICTURE";
   name_map[TRANSFORM] = "TRANSFORM";
   name_map[POINT] = "POINT";
   name_map[FOCUS] = "FOCUS";
   name_map[NURB] = "NURB";
   name_map[PATH] = "PATH";
   name_map[TRIANGLE] = "TRIANGLE";
   name_map[POLYGON] = "POLYGON";
   name_map[REG_POLYGON] = "REG_POLYGON";
   name_map[RECTANGLE] = "RECTANGLE";
   name_map[SQUARE] = "SQUARE";
   name_map[ELLIPSE] = "ELLIPSE";
   name_map[CIRCLE] = "CIRCLE";
   name_map[CUBOID] = "CUBOID";
   name_map[TETRAHEDRON] = "TETRAHEDRON";
   name_map[OCTAHEDRON] = "OCTAHEDRON";
   name_map[DODECAHEDRON]
     = "DODECAHEDRON";
   name_map[ICOSAHEDRON]
     = "ICOSAHEDRON";
   name_map[TRUNC_OCTAHEDRON]
     = "TRUNC_OCTAHEDRON";

   name_map[ORIGAMI_FIGURE]
     = "ORIGAMI_FIGURE";


   name_map[ELLIPSE_SLICE] = "ELLIPSE_SLICE";
   name_map[CIRCLE_SLICE] = "CIRCLE_SLICE";
   name_map[POLYHEDRON_SLICE] = "POLYHEDRON_SLICE";

   name_map[ELLIPSE_SLICE_VECTOR] = "ELLIPSE_SLICE_VECTOR";
   name_map[CIRCLE_SLICE_VECTOR] = "CIRCLE_SLICE_VECTOR";
   name_map[POLYHEDRON_SLICE_VECTOR] = "POLYHEDRON_SLICE_VECTOR";


   name_map[BOOLEAN_VECTOR] = "BOOLEAN_VECTOR";
   name_map[STRING_VECTOR] = "STRING_VECTOR";
   name_map[NUMERIC_VECTOR] = "NUMERIC_VECTOR";
   name_map[COLOR_VECTOR] = "COLOR_VECTOR";
   name_map[PEN_VECTOR] = "PEN_VECTOR";
   name_map[DASH_PATTERN_VECTOR] = "DASH_PATTERN_VECTOR";
   name_map[PICTURE_VECTOR] = "PICTURE_VECTOR";
   name_map[TRANSFORM_VECTOR] = "TRANSFORM_VECTOR";
   name_map[FOCUS_VECTOR] = "FOCUS_VECTOR";

   name_map[POINT_VECTOR] = "POINT_VECTOR";
   name_map[BOOL_POINT_VECTOR] = "BOOL_POINT_VECTOR";
   name_map[NURB_VECTOR] = "NURB_VECTOR";
   name_map[PATH_VECTOR] = "PATH_VECTOR";
   name_map[TRIANGLE_VECTOR] = "TRIANGLE_VECTOR";
   name_map[POLYGON_VECTOR] = "POLYGON_VECTOR";
   name_map[REG_POLYGON_VECTOR] = "REG_POLYGON_VECTOR";
   name_map[RECTANGLE_VECTOR] = "RECTANGLE_VECTOR";
   name_map[SQUARE_VECTOR] = "SQUARE_VECTOR";
   name_map[ELLIPSE_VECTOR] = "ELLIPSE_VECTOR";
   name_map[CIRCLE_VECTOR] = "CIRCLE_VECTOR";
   name_map[CUBOID_VECTOR] = "CUBOID_VECTOR";
   name_map[TETRAHEDRON_VECTOR] = "TETRAHEDRON_VECTOR";
   name_map[OCTAHEDRON_VECTOR] = "OCTAHEDRON_VECTOR";
   name_map[DODECAHEDRON_VECTOR] = "DODECAHEDRON_VECTOR";
   name_map[ICOSAHEDRON_VECTOR] = "ICOSAHEDRON_VECTOR";
   name_map[TRUNC_OCTAHEDRON_VECTOR] = "TRUNC_OCTAHEDRON_VECTOR";

   name_map[ORIGAMI_FIGURE_VECTOR] = "ORIGAMI_FIGURE_VECTOR";

   name_map[BOOLEAN_VECTOR_DECLARATOR] = "BOOLEAN_VECTOR_DECLARATOR";
   name_map[STRING_VECTOR_DECLARATOR] = "STRING_VECTOR_DECLARATOR";
   name_map[NUMERIC_VECTOR_DECLARATOR] = "NUMERIC_VECTOR_DECLARATOR";
   name_map[TRANSFORM_VECTOR_DECLARATOR] = "TRANSFORM_VECTOR_DECLARATOR";
   name_map[PEN_VECTOR_DECLARATOR] = "PEN_VECTOR_DECLARATOR";
   name_map[DASH_PATTERN_VECTOR_DECLARATOR] = "DASH_PATTERN_VECTOR_DECLARATOR";
   name_map[FOCUS_VECTOR_DECLARATOR] = "FOCUS_VECTOR_DECLARATOR";
   name_map[PICTURE_VECTOR_DECLARATOR] = "PICTURE_VECTOR_DECLARATOR";

   type_name_map[BOOLEAN_VECTOR_DECLARATOR] = "boolean_vector";
   type_name_map[STRING_VECTOR_DECLARATOR] = "string_vector";
   type_name_map[NUMERIC_VECTOR_DECLARATOR] = "numeric_vector";
   type_name_map[TRANSFORM_VECTOR_DECLARATOR] = "transform_vector";
   type_name_map[PEN_VECTOR_DECLARATOR] = "pen_vector";
   type_name_map[DASH_PATTERN_VECTOR_DECLARATOR] = "dash_pattern_vector";
   type_name_map[FOCUS_VECTOR_DECLARATOR] = "focus_vector";
   type_name_map[PICTURE_VECTOR_DECLARATOR] = "picture_vector";


@q **** (4) Declarators for object types defined in 3DLDF.  @>
@*3 Declarators for object types defined in 3DLDF.

\LOG
\initials{LDF 2005.05.12.}
Added entries for |COLOR_DECLARATOR| (which was missing) 
and |COLOR_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entry for |POINT_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entries for |BOOL_POINT_DECLARATOR| and 
|BOOL_POINT_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entries for |PATH_VECTOR_DECLARATOR|, 
|TRIANGLE_VECTOR_DECLARATOR|, |REG_POLYGON_VECTOR_DECLARATOR|, 
|RECTANGLE_VECTOR_DECLARATOR|, |SQUARE_VECTOR_DECLARATOR|, 
|ELLIPSE_VECTOR_DECLARATOR|, |CIRCLE_VECTOR_DECLARATOR|,  
|CUBOID_VECTOR_DECLARATOR|, |TETRAHEDRON_VECTOR_DECLARATOR|, 
|OCTAHEDRON_VECTOR_DECLARATOR|, |DODECAHEDRON_VECTOR_DECLARATOR|, 
|ICOSAHEDRON_VECTOR_DECLARATOR|, 
and |TRUNC_OCTAHEDRON_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entries in |name_map| and |type_name_map|
for |NURB_DECLARATOR| and |NURB_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entries in |name_map| and |type_name_map|
for |ORIGAMI_FIGURE_DECLARATOR| and |ORIGAMI_FIGURE_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entries in |name_map| and |type_name_map|
for |POLYGON_DECLARATOR| and |POLYGON_VECTOR_DECLARATOR|.
\ENDLOG 

@q ***** (5) Code.@>

@<Define functions@>=

  name_map[BOOLEAN_DECLARATOR] = "BOOLEAN_DECLARATOR";

  name_map[STRING_DECLARATOR] = "STRING_DECLARATOR";
  name_map[COLOR_DECLARATOR] = "COLOR_DECLARATOR";
  name_map[NUMERIC_DECLARATOR] = "NUMERIC_DECLARATOR";
  name_map[TRANSFORM_DECLARATOR] = "TRANSFORM_DECLARATOR";
  name_map[POINT_DECLARATOR] = "POINT_DECLARATOR";
  name_map[BOOL_POINT_DECLARATOR] = "BOOL_POINT_DECLARATOR";
  name_map[FOCUS_DECLARATOR] = "FOCUS_DECLARATOR";
  name_map[NURB_DECLARATOR] = "NURB_DECLARATOR";
  name_map[PATH_DECLARATOR] = "PATH_DECLARATOR";
  name_map[TRIANGLE_DECLARATOR] = "TRIANGLE_DECLARATOR";
  name_map[POLYGON_DECLARATOR] = "POLYGON_DECLARATOR";
  name_map[REG_POLYGON_DECLARATOR] = "REG_POLYGON_DECLARATOR";
  name_map[RECTANGLE_DECLARATOR] = "RECTANGLE_DECLARATOR";
  name_map[SQUARE_DECLARATOR] = "SQUARE_DECLARATOR";
  name_map[ELLIPSE_DECLARATOR] = "ELLIPSE_DECLARATOR";
  name_map[CIRCLE_DECLARATOR] = "CIRCLE_DECLARATOR";
  name_map[CUBOID_DECLARATOR] = "CUBOID_DECLARATOR";
  name_map[TETRAHEDRON_DECLARATOR] = "TETRAHEDRON_DECLARATOR";
  name_map[OCTAHEDRON_DECLARATOR] = "OCTAHEDRON_DECLARATOR";
  name_map[DODECAHEDRON_DECLARATOR]
    = "DODECAHEDRON_DECLARATOR";
  name_map[ICOSAHEDRON_DECLARATOR]
    = "ICOSAHEDRON_DECLARATOR";
  name_map[TRUNC_OCTAHEDRON_DECLARATOR]
    = "TRUNC_OCTAHEDRON_DECLARATOR";

  name_map[ELLIPSE_SLICE_DECLARATOR] = "ELLIPSE_SLICE_DECLARATOR";
  name_map[CIRCLE_SLICE_DECLARATOR] = "CIRCLE_SLICE_DECLARATOR";
  name_map[POLYHEDRON_SLICE_DECLARATOR] = "POLYHEDRON_SLICE_DECLARATOR";

  name_map[ELLIPSE_SLICE_VECTOR_DECLARATOR] 
     = "ELLIPSE_SLICE_VECTOR_DECLARATOR";

  name_map[CIRCLE_SLICE_VECTOR_DECLARATOR] 
     = "CIRCLE_SLICE_VECTOR_DECLARATOR";

  name_map[POLYHEDRON_SLICE_VECTOR_DECLARATOR] 
     = "POLYHEDRON_SLICE_VECTOR_DECLARATOR";

  name_map[ORIGAMI_FIGURE_DECLARATOR]
    = "ORIGAMI_FIGURE_DECLARATOR";


  name_map[COLOR_VECTOR_DECLARATOR] = "COLOR_VECTOR_DECLARATOR";
  name_map[POINT_VECTOR_DECLARATOR] = "POINT_VECTOR_DECLARATOR";
  name_map[BOOL_POINT_VECTOR_DECLARATOR] = "BOOL_POINT_VECTOR_DECLARATOR";
  name_map[NURB_VECTOR_DECLARATOR] = "NURB_VECTOR_DECLARATOR";
  name_map[PATH_VECTOR_DECLARATOR] = "PATH_VECTOR_DECLARATOR";
  name_map[TRIANGLE_VECTOR_DECLARATOR] = "TRIANGLE_VECTOR_DECLARATOR";
  name_map[POLYGON_VECTOR_DECLARATOR] = "POLYGON_VECTOR_DECLARATOR";
  name_map[REG_POLYGON_VECTOR_DECLARATOR] = "REG_POLYGON_VECTOR_DECLARATOR";
  name_map[RECTANGLE_VECTOR_DECLARATOR] = "RECTANGLE_VECTOR_DECLARATOR";
  name_map[SQUARE_VECTOR_DECLARATOR] = "SQUARE_VECTOR_DECLARATOR";
  name_map[ELLIPSE_VECTOR_DECLARATOR] = "ELLIPSE_VECTOR_DECLARATOR";
  name_map[CIRCLE_VECTOR_DECLARATOR] = "CIRCLE_VECTOR_DECLARATOR";
  name_map[CUBOID_VECTOR_DECLARATOR] = "CUBOID_VECTOR_DECLARATOR";
  name_map[TETRAHEDRON_VECTOR_DECLARATOR] = "TETRAHEDRON_VECTOR_DECLARATOR";
  name_map[OCTAHEDRON_VECTOR_DECLARATOR] = "OCTAHEDRON_VECTOR_DECLARATOR";
  name_map[DODECAHEDRON_VECTOR_DECLARATOR] = "DODECAHEDRON_VECTOR_DECLARATOR";
  name_map[ICOSAHEDRON_VECTOR_DECLARATOR] = "ICOSAHEDRON_VECTOR_DECLARATOR";
  name_map[TRUNC_OCTAHEDRON_VECTOR_DECLARATOR]
     = "TRUNC_OCTAHEDRON_VECTOR_DECLARATOR";

  name_map[ORIGAMI_FIGURE_VECTOR_DECLARATOR]
     = "ORIGAMI_FIGURE_VECTOR_DECLARATOR";

  type_name_map[BOOLEAN_DECLARATOR] = "boolean";

  type_name_map[STRING_DECLARATOR] = "string";
  type_name_map[COLOR_DECLARATOR] = "color";
  type_name_map[NUMERIC_DECLARATOR] = "numeric";
  type_name_map[TRANSFORM_DECLARATOR] = "transform";
  type_name_map[POINT_DECLARATOR] = "point";
  type_name_map[BOOL_POINT_DECLARATOR] = "bool_point";
  type_name_map[FOCUS_DECLARATOR] = "focus";
  type_name_map[NURB_DECLARATOR] = "nurb";
  type_name_map[PATH_DECLARATOR] = "path";
  type_name_map[TRIANGLE_DECLARATOR] = "triangle";
  type_name_map[POLYGON_DECLARATOR] = "polygon";
  type_name_map[REG_POLYGON_DECLARATOR] = "reg_polygon";
  type_name_map[RECTANGLE_DECLARATOR] = "rectangle";
  type_name_map[SQUARE_DECLARATOR] = "square";
  type_name_map[ELLIPSE_DECLARATOR] = "ellipse";
  type_name_map[CIRCLE_DECLARATOR] = "circle";
  type_name_map[CUBOID_DECLARATOR] = "cuboid";
  type_name_map[TETRAHEDRON_DECLARATOR] = "tetrahedron";
  type_name_map[OCTAHEDRON_DECLARATOR] = "octahedron";
  type_name_map[DODECAHEDRON_DECLARATOR]
    = "dodecahedron";
  type_name_map[ICOSAHEDRON_DECLARATOR]
    = "icosahedron";
  type_name_map[TRUNC_OCTAHEDRON_DECLARATOR]
    = "trunc_octahedron";


  type_name_map[ELLIPSE_SLICE_DECLARATOR] = "ellipse_slice";
  type_name_map[CIRCLE_SLICE_DECLARATOR] = "circle_slice";
  type_name_map[POLYHEDRON_SLICE_DECLARATOR] = "polyhedron_slice";

  type_name_map[ELLIPSE_SLICE_VECTOR_DECLARATOR] 
     = "ellipse_slice_vector";

  type_name_map[CIRCLE_SLICE_VECTOR_DECLARATOR] 
     = "circle_slice_vector";

  type_name_map[POLYHEDRON_SLICE_VECTOR_DECLARATOR] 
     = "polyhedron_slice_vector";

  type_name_map[ORIGAMI_FIGURE_DECLARATOR] = "origami_figure";


  type_name_map[COLOR_VECTOR_DECLARATOR] = "color_vector";
  type_name_map[POINT_VECTOR_DECLARATOR] = "point_vector";
  type_name_map[BOOL_POINT_VECTOR_DECLARATOR] = "bool_point_vector";
  type_name_map[NURB_VECTOR_DECLARATOR] = "nurb_vector";
  type_name_map[PATH_VECTOR_DECLARATOR] = "path_vector";
  type_name_map[TRIANGLE_VECTOR_DECLARATOR] = "triangle_vector";
  type_name_map[POLYGON_VECTOR_DECLARATOR] = "polygon_vector";
  type_name_map[REG_POLYGON_VECTOR_DECLARATOR] = "reg_polygon_vector";
  type_name_map[RECTANGLE_VECTOR_DECLARATOR] = "rectangle_vector";
  type_name_map[SQUARE_VECTOR_DECLARATOR] = "square_vector";
  type_name_map[ELLIPSE_VECTOR_DECLARATOR] = "ellipse_vector";
  type_name_map[CIRCLE_VECTOR_DECLARATOR] = "circle_vector";
  type_name_map[CUBOID_VECTOR_DECLARATOR] = "cuboid_vector";
  type_name_map[TETRAHEDRON_VECTOR_DECLARATOR] = "tetrahedron_vector";
  type_name_map[OCTAHEDRON_VECTOR_DECLARATOR] = "octahedron_vector";
  type_name_map[DODECAHEDRON_VECTOR_DECLARATOR] = "dodecahedron_vector";
  type_name_map[ICOSAHEDRON_VECTOR_DECLARATOR] = "icosahedron_vector";
  type_name_map[TRUNC_OCTAHEDRON_VECTOR_DECLARATOR]
     = "trunc_octahedron_vector";

  type_name_map[ORIGAMI_FIGURE_VECTOR_DECLARATOR] = "origami_figure_vector";

@q **** (4) System information.@>
@*3 System information.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entries for
|IS_BIG_ENDIAN| and |IS_LITTLE_ENDIAN|.
\ENDLOG

@<Define functions@>=


   name_map[IS_BIG_ENDIAN]    = "IS_BIG_ENDIAN";
   name_map[IS_LITTLE_ENDIAN] = "IS_LITTLE_ENDIAN"; 


@q **** (4) Transformers and Transform Commands.  @>
@*3 Transformers and Transform Commands.

\LOG
\initials{LDF 2005.05.12.}
Added this section.

\initials{LDF 2005.05.12.}
Added |name_map| entries for the transform commands.

\initials{LDF 2005.05.12.}
Changed |REFLECTED_IN| to |REFLECTED|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |ROTATE_AROUND|.

\initials{LDF 2005.05.12.}
Replaced |REFLECTED| with |REFLECTED_IN| and |REFLECTED_OFF|.
\ENDLOG 

@q ***** (5) Code.@> 

@<Define functions@>=

  name_map[REFLECTED_IN] = "REFLECTED_IN";
  name_map[REFLECTED_OFF] = "REFLECTED_OFF";
  name_map[ROTATED] = "ROTATED";
  name_map[ROTATED_AROUND] = "ROTATED_AROUND";
  name_map[SCALED] = "SCALED";
  name_map[SHEARED] = "SHEARED";
  name_map[SHIFTED] = "SHIFTED";
  name_map[TRANSFORMED] = "TRANSFORMED";
  name_map[XSCALED] = "XSCALED";
  name_map[YSCALED] = "YSCALED";
  name_map[ZSCALED] = "ZSCALED";

  name_map[REFLECT] = "REFLECT";
  name_map[ROTATE] = "ROTATE";
  name_map[ROTATE_AROUND] = "ROTATE_AROUND";
  name_map[SCALE] = "SCALE";
  name_map[SHEAR] = "SHEAR";
  name_map[SHIFT] = "SHIFT";
  name_map[TRANSFORM_BY] = "TRANSFORM_BY";
  name_map[XSCALE] = "XSCALE";
  name_map[YSCALE] = "YSCALE";
  name_map[ZSCALE] = "ZSCALE";


@q **** (4) Operators.  @>
@ Operators.

\LOG
\initials{LDF 2005.05.12.}
Added |name_map| entries for |XPART|, |YPART|,
|ZPART|, and |WPART|. 

\initials{LDF 2005.05.12.}
Added |name_map| entry for |MAGNITUDE|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |ANGLE|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |OR|, |AND|, |EQUAL|,
|NOT_EQUAL|, |LESS|, |LESS_OR_EQUAL|, |GREATER|, |GREATER_OR_EQUAL|, 
|NOT|, and |EQUATE|.  Removed the entry for |EQUALS|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for 
|TRUE|, |FALSE|, |IS_ODD|, |IS_EVEN|, |IS_CYCLE|, |IS_KNOWN|, 
|IS_UNKNOWN|, and |CHAREXISTS|.


\initials{LDF 2005.05.12.}
Removed the entry in |name_map| for |WITH_DOTS|.  
|with_dots| is now a predefined variable defined in |Scanner_Type::create()| in 
\filename{scan.web}.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |PLUS_ASSIGN|, |MINUS_ASSIGN|, |TIMES_ASSIGN|,  
and |DIVIDE_ASSIGN|.

\initials{LDF 2005.05.12.}
Added entries for the following type predicates:\hfil\break
|IS_SYNONYM|, |IS_UNDECLARED|,
|IS_BOOLEAN|, |IS_BOOL_POINT|, |IS_BOOL_POINT_VECTOR|, |IS_STRING|,
|IS_NUMERIC|, |IS_PEN|, |IS_DASH_PATTERN|, |IS_COLOR|, |IS_COLOR_VECTOR|,
|IS_PICTURE|, |IS_TRANSFORM|, |IS_POINT|, |IS_POINT_VECTOR|, |IS_FOCUS|,
|IS_PATH|, |IS_TRIANGLE|, |IS_REG_POLYGON|, |IS_RECTANGLE|, |IS_SQUARE|,
|IS_ELLIPSE|, |IS_CIRCLE|, |IS_CUBOID|, |IS_TETRAHEDRON|, |IS_OCTAHEDRON|,
|IS_DODECAHEDRON|, |IS_ICOSAHEDRON|, and |IS_TRUNC_OCTAHEDRON|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |DOT_PRODUCT| and |CROSS_PRODUCT|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |NORMAL| and |UNIT_VECTOR|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |XXPART|, |XYPART|, |XZPART|, 
|YXPART|, |YYPART|, |YZPART|, and |ZXPART|, |ZYPART|, 
and |ZZPART|.

\initials{LDF 2005.05.12.}
@:BUG FIX@> BUG FIX: 
Added |name_map| entries for |WXPART|, |WYPART|, and |WZPART|. 

\initials{LDF 2005.05.12.}
Added |name_map| entries for 
|IS_ELLIPTICAL|,
|IS_CIRCULAR|,
|IS_REG_POLYGONAL|,
|IS_TRIANGULAR|,
|IS_QUADRATICAL|,
|IS_PENTAGONAL|,
|IS_HEXAGONAL|,
|IS_HEPTAGONAL|,
|IS_OCTAGONAL|,
|IS_NONAGONAL|,
|IS_DECAGONAL|,
|IS_ONDECAGONAL|,
|IS_DODECAGONAL|,
|IS_RECTANGULAR|,
|IS_CONVEX|,
|IS_CONICAL|,
|IS_PARABOLIC|,
|IS_HYPERBOLIC|,
|IS_TRAPEZOIDAL|,
|IS_PRISMOIDAL|,
|IS_CUBOIDAL|,
|IS_ELLIPSOIDAL|,
|IS_SPHEROIDAL|, and
|IS_SPHERICAL|.         

\initials{LDF 2005.05.12.}
Added |name_map| entries for 
|IS_ON_SEGMENT|, |IS_ON_LINE|, 
|IS_IN_TRIANGLE|, |IS_IN_RECTANGLE|, and |LOCATION|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for 
|IS_PARALLEL|, 
|IS_COPLANAR|, 
|IS_SKEW|, 
|IS_NON_PARALLEL|, 
|IS_NON_COPLANAR|, and 
|IS_NON_SKEW|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |DISTANCE|.

\initials{LDF 2005.05.12.}
Changed |DISTANCE| to |DISTANCE_TO_PLANE|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |IS_PLANAR| and |DISTANCE_ALONG_LINE|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |IS_LINEAR|.

\initials{LDF 2005.05.12.}
Removed the |name_map| entries for |IS_NON_PARALLEL|, 
|IS_NON_COPLANAR|, and |IS_NON_SKEW|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |IS_COLINEAR|.

\initials{LDF 2005.05.12.}
Added entries for |IS_PATH_VECTOR|, 
|IS_TRIANGLE_VECTOR|, |IS_REG_POLYGON_VECTOR|, 
|IS_RECTANGLE_VECTOR|, |IS_SQUARE_VECTOR|, 
|IS_ELLIPSE_VECTOR|, |IS_CIRCLE_VECTOR|,  |IS_CUBOID_VECTOR|, 
|IS_TETRAHEDRON_VECTOR|, |IS_OCTAHEDRON_VECTOR|, |IS_DODECAHEDRON_VECTOR|, 
|IS_ICOSAHEDRON_VECTOR|, and |IS_TRUNC_OCTAHEDRON_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for 
|IS_BOOLEAN_VECTOR|, 
|IS_STRING_VECTOR|, 
|IS_NUMERIC_VECTOR|, 
|IS_TRANSFORM_VECTOR|, 
|IS_PEN_VECTOR|, 
|IS_DASH_PATTERN_VECTOR|, 
|IS_FOCUS_VECTOR|, and
|IS_PICTURE_VECTOR|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |RED_PART|, 
|GREEN_PART|, |BLUE_PART|, |YELLOW_PART|, |MAGENTA_PART|,
|CYAN_PART|, |BLACK_PART|, |WHITE_PART|, |BLUE_VIOLET_PART|, and
|RED_ORANGE_PART|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |IS_QUADRILATERAL|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |IS_NURB| and |IS_NURB_VECTOR|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |IS_ORIGAMI_FIGURE| and 
|IS_ORIGAMI_FIGURE_VECTOR|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |IS_CONVEX_POLYGONAL|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |IS_POLYGON|, 
|IS_POLYGON_VECTOR|, and |IS_POLYGONAL|.
\ENDLOG 

@q ***** (5) Definition.@> 

@<Define functions@>=

   name_map[TIMES] = "TIMES";
   name_map[OVER] = "OVER";
   name_map[ANGLE] = "ANGLE";

   name_map[DOT_PRODUCT]   = "DOT_PRODUCT";
   name_map[CROSS_PRODUCT] = "CROSS_PRODUCT";

   name_map[NORMAL] = "NORMAL";
   name_map[UNIT_VECTOR] = "UNIT_VECTOR";


   name_map[PLUS] = "PLUS";
   name_map[MINUS] = "MINUS";

   name_map[SQRT] = "SQRT";  
   name_map[SIND] = "SIND";  
   name_map[COSD] = "COSD";  
   name_map[MLOG] = "MLOG";  
   name_map[MEXP] = "MEXP";
   name_map[FLOOR] = "FLOOR";  
   name_map[UNIFORMDEVIATE] = "UNIFORMDEVIATE";

   name_map[PYTHAGOREAN_PLUS] = "PYTHAGOREAN_PLUS"; 
   name_map[PYTHAGOREAN_MINUS] = "PYTHAGOREAN_MINUS"; 

   name_map[OR] = "OR";
   name_map[AND] = "AND";
   name_map[EQUAL] = "EQUAL";
   name_map[NOT_EQUAL] = "NOT_EQUAL";
   name_map[LESS] = "LESS";
   name_map[LESS_OR_EQUAL] = "LESS_OR_EQUAL";
   name_map[GREATER]  = "GREATER";
   name_map[GREATER_OR_EQUAL] = "GREATER_OR_EQUAL";
   name_map[NOT] = "NOT";

   name_map[ASSIGN] = "ASSIGN";
   name_map[EQUATE] = "EQUATE";

   name_map[PLUS_ASSIGN] = "PLUS_ASSIGN";
   name_map[MINUS_ASSIGN] = "MINUS_ASSIGN";
   name_map[TIMES_ASSIGN] = "TIMES_ASSIGN";
   name_map[DIVIDE_ASSIGN] = "DIVIDE_ASSIGN";


   name_map[TRUE]                 = "TRUE";
   name_map[FALSE]                = "FALSE";
   name_map[IS_ODD]               = "IS_ODD";   
   name_map[IS_EVEN]              = "IS_EVEN";
   name_map[IS_CYCLE]             = "IS_CYCLE";
   name_map[IS_KNOWN]             = "IS_KNOWN";
   name_map[IS_UNKNOWN]           = "IS_UNKNOWN";
   name_map[CHAREXISTS]           = "CHAREXISTS";

   name_map[IS_SYNONYM]           = "IS_SYNONYM";
   name_map[IS_UNDECLARED]        = "IS_UNDECLARED";
   name_map[IS_BOOLEAN]           = "IS_BOOLEAN";
   name_map[IS_BOOL_POINT]        = "IS_BOOL_POINT";
   name_map[IS_BOOL_POINT_VECTOR] = "IS_BOOL_POINT_VECTOR";
   name_map[IS_STRING]            = "IS_STRING";
   name_map[IS_NUMERIC]           = "IS_NUMERIC";
   name_map[IS_PEN]               = "IS_PEN";
   name_map[IS_DASH_PATTERN]      = "IS_DASH_PATTERN";
   name_map[IS_COLOR]             = "IS_COLOR";
   name_map[IS_COLOR_VECTOR]      = "IS_COLOR_VECTOR";
   name_map[IS_PICTURE]           = "IS_PICTURE";
   name_map[IS_TRANSFORM]         = "IS_TRANSFORM";
   name_map[IS_POINT]             = "IS_POINT";
   name_map[IS_POINT_VECTOR]      = "IS_POINT_VECTOR";
   name_map[IS_FOCUS]             = "IS_FOCUS";
   name_map[IS_NURB]              = "IS_NURB";
   name_map[IS_PATH]              = "IS_PATH";
   name_map[IS_TRIANGLE]          = "IS_TRIANGLE";
   name_map[REG_POLYGON]          = "IS_POLYGON";
   name_map[IS_REG_POLYGON]       = "IS_REG_POLYGON";
   name_map[IS_RECTANGLE]         = "IS_RECTANGLE";
   name_map[IS_ELLIPSE]           = "IS_ELLIPSE";
   name_map[IS_CIRCLE]            = "IS_CIRCLE";
   name_map[IS_CUBOID]            = "IS_CUBOID";
   name_map[IS_TETRAHEDRON]       = "IS_TETRAHEDRON";
   name_map[IS_OCTAHEDRON]        = "IS_OCTAHEDRON";
   name_map[IS_DODECAHEDRON]      = "IS_DODECAHEDRON";
   name_map[IS_ICOSAHEDRON]       = "IS_ICOSAHEDRON";
   name_map[IS_TRUNC_OCTAHEDRON]  = "IS_TRUNC_OCTAHEDRON";


   name_map[IS_ELLIPSE_SLICE]           = "IS_ELLIPSE_SLICE";
   name_map[IS_CIRCLE_SLICE]            = "IS_CIRCLE_SLICE";
   name_map[IS_POLYHEDRON_SLICE]        = "IS_POLYHEDRON_SLICE";

   name_map[IS_ELLIPSE_SLICE_VECTOR]    = "IS_ELLIPSE_SLICE_VECTOR";
   name_map[IS_CIRCLE_SLICE_VECTOR]     = "IS_CIRCLE_SLICE_VECTOR";
   name_map[IS_POLYHEDRON_SLICE_VECTOR] = "IS_POLYHEDRON_SLICE_VECTOR";

   name_map[IS_ORIGAMI_FIGURE]    = "IS_ORIGAMI_FIGURE";

   name_map[IS_LINEAR]            = "IS_LINEAR";
   name_map[IS_PLANAR]            = "IS_PLANAR";

   name_map[IS_ELLIPTICAL]        = "IS_ELLIPTICAL";
   name_map[IS_CIRCULAR]          = "IS_CIRCULAR";

   name_map[IS_POLYGONAL]         = "IS_POLYGONAL";
   name_map[IS_REG_POLYGONAL]     = "IS_REG_POLYGONAL";

   name_map[IS_TRIANGULAR]        = "IS_TRIANGULAR";
   name_map[IS_QUADRATICAL]       = "IS_QUADRATICAL";
   name_map[IS_PENTAGONAL]        = "IS_PENTAGONAL";
   name_map[IS_HEXAGONAL]         = "IS_HEXAGONAL";
   name_map[IS_HEPTAGONAL]        = "IS_HEPTAGONAL";
   name_map[IS_OCTAGONAL]         = "IS_OCTAGONAL";
   name_map[IS_NONAGONAL]         = "IS_NONAGONAL";
   name_map[IS_DECAGONAL]         = "IS_DECAGONAL";
   name_map[IS_ONDECAGONAL]       = "IS_ONDECAGONAL";
   name_map[IS_DODECAGONAL]       = "IS_DODECAGONAL";

   name_map[IS_RECTANGULAR]       = "IS_RECTANGULAR";
   name_map[IS_QUADRILATERAL]     = "IS_QUADRILATERAL";
   name_map[IS_CONVEX_POLYGONAL]  = "IS_CONVEX_POLYGONAL";
   name_map[IS_SQUARE]            = "IS_SQUARE";
   name_map[IS_CONVEX]            = "IS_CONVEX";
   name_map[IS_CONICAL]           = "IS_CONICAL";
   name_map[IS_PARABOLIC]         = "IS_PARABOLIC";
   name_map[IS_HYPERBOLIC]        = "IS_HYPERBOLIC";
   name_map[IS_TRAPEZOIDAL]       = "IS_TRAPEZOIDAL";
   name_map[IS_PRISMOIDAL]        = "IS_PRISMOIDAL";

   name_map[IS_CUBOIDAL]           = "IS_CUBOIDAL";
   name_map[IS_ELLIPSOIDAL]        = "IS_ELLIPSOIDAL";
   name_map[IS_SPHEROIDAL]         = "IS_SPHEROIDAL";
   name_map[IS_SPHERICAL]          = "IS_SPHERICAL";


   name_map[IS_ON_SEGMENT] = "IS_ON_SEGMENT";
   name_map[IS_ON_LINE] = "IS_ON_LINE ";
   name_map[IS_IN_TRIANGLE] = "IS_IN_TRIANGLE";
   name_map[IS_IN_RECTANGLE] = "IS_IN_RECTANGLE";
   name_map[LOCATION] = "LOCATION";

   name_map[DISTANCE_TO_PLANE] = "DISTANCE_TO_PLANE";

   name_map[DISTANCE_ALONG_LINE] = "DISTANCE_ALONG_LINE";

   name_map[IS_PARALLEL] = "IS_PARALLEL";
   name_map[IS_COLINEAR] = "IS_COLINEAR";
   name_map[IS_COPLANAR] = "IS_COPLANAR";
   name_map[IS_SKEW] = "IS_SKEW";

   name_map[LENGTH] = "LENGTH";
   name_map[MAGNITUDE] = "MAGNITUDE";

   name_map[SIZE] = "SIZE";

   name_map[XPART] = "XPART";
   name_map[YPART] = "YPART";
   name_map[ZPART] = "ZPART";
   name_map[WPART] = "WPART";

   name_map[XXPART] = "XXPART";
   name_map[XYPART] = "XYPART";
   name_map[XZPART] = "XZPART";

   name_map[YXPART] = "YXPART";
   name_map[YYPART] = "YYPART";
   name_map[YZPART] = "YZPART";

   name_map[ZXPART] = "ZXPART";
   name_map[ZYPART] = "ZYPART";
   name_map[ZZPART] = "ZZPART";

   name_map[WXPART] = "WXPART";
   name_map[WYPART] = "WYPART";
   name_map[WZPART] = "WZPART";

   name_map[RED_PART] = "RED_PART";
   name_map[GREEN_PART] = "GREEN_PART";
   name_map[BLUE_PART] = "BLUE_PART";
   name_map[YELLOW_PART] = "YELLOW_PART";
   name_map[MAGENTA_PART] = "MAGENTA_PART";
   name_map[CYAN_PART] = "CYAN_PART";
   name_map[BLACK_PART] = "BLACK_PART";
   name_map[WHITE_PART] = "WHITE_PART";
   name_map[BLUE_VIOLET_PART] = "BLUE_VIOLET_PART";
   name_map[RED_ORANGE_PART] = "RED_ORANGE_PART";

   name_map[IS_NURB_VECTOR] = "IS_NURB_VECTOR";
   name_map[IS_PATH_VECTOR] = "IS_PATH_VECTOR";
   name_map[IS_TRIANGLE_VECTOR] = "IS_TRIANGLE_VECTOR";
   name_map[IS_POLYGON_VECTOR] = "IS_POLYGON_VECTOR";
   name_map[IS_REG_POLYGON_VECTOR] = "IS_REG_POLYGON_VECTOR";
   name_map[IS_RECTANGLE_VECTOR] = "IS_RECTANGLE_VECTOR";
   name_map[IS_SQUARE_VECTOR] = "IS_SQUARE_VECTOR";
   name_map[IS_ELLIPSE_VECTOR] = "IS_ELLIPSE_VECTOR";
   name_map[IS_CIRCLE_VECTOR] = "IS_CIRCLE_VECTOR";
   name_map[IS_CUBOID_VECTOR] = "IS_CUBOID_VECTOR";
   name_map[IS_TETRAHEDRON_VECTOR] = "IS_TETRAHEDRON_VECTOR";
   name_map[IS_OCTAHEDRON_VECTOR] = "IS_OCTAHEDRON_VECTOR";
   name_map[IS_DODECAHEDRON_VECTOR] = "IS_DODECAHEDRON_VECTOR";
   name_map[IS_ICOSAHEDRON_VECTOR] = "IS_ICOSAHEDRON_VECTOR";
   name_map[IS_TRUNC_OCTAHEDRON_VECTOR]
     = "IS_TRUNC_OCTAHEDRON_VECTOR";

   name_map[IS_ORIGAMI_FIGURE_VECTOR] = "IS_ORIGAMI_FIGURE_VECTOR";

   name_map[IS_BOOLEAN_VECTOR] = "IS_BOOLEAN_VECTOR";
   name_map[IS_STRING_VECTOR] = "IS_STRING_VECTOR";
   name_map[IS_NUMERIC_VECTOR] = "IS_NUMERIC_VECTOR";
   name_map[IS_TRANSFORM_VECTOR] = "IS_TRANSFORM_VECTOR";
   name_map[IS_PEN_VECTOR] = "IS_PEN_VECTOR";
   name_map[IS_DASH_PATTERN_VECTOR] = "IS_DASH_PATTERN_VECTOR";
   name_map[IS_FOCUS_VECTOR] = "IS_FOCUS_VECTOR";
   name_map[IS_PICTURE_VECTOR] = "IS_PICTURE_VECTOR";

@q **** (4) Types for drawing.@>
@*3 Types for drawing.

\LOG
\initials{LDF 2005.05.12.}
Added entries for |WITH_COLOR_VECTOR|, |WITH_DRAW_COLOR_VECTOR|, 
and |WITH_FILL_COLOR_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for |DRAWDOT_IF|, |DRAWDOT_UNLESS|, 
|UNDRAWDOT_IF|, and |UNDRAWDOT_UNLESS|.

\initials{LDF 2005.05.12.}
Added entries for |DRAWDBLARROW| and |UNDRAWDBLARROW|.

\initials{LDF 2005.05.12.}
Added entries for |PICKUP|, |DROP_COLOR|, |DROP_DASH_PATTERN|, and 
|DROP_PEN|.

\initials{LDF 2005.05.12.}
Added entries for |PICKUP_DRAW_COLOR|, 
|PICKUP_FILL_COLOR|, |DROP_DRAW_COLOR|, and 
|DROP_FILL_COLOR|.

\initials{LDF 2005.05.12.}
Added entry for |DROP_ALL|.

\initials{LDF 2005.05.12.}
Added entries for |WITH_PEN_VECTOR| and 
|WITH_DASH_PATTERN_VECTOR|.

\initials{LDF 2005.05.12.}
Added entries for |CMY|, |CMYK|, and |RGB|.
\ENDLOG 

@<Define functions@>=

  name_map[PENCIRCLE] = "PENCIRCLE";
  name_map[PENRAZOR] = "PENRAZOR";
  name_map[PENSPECK] = "PENSPECK";
  name_map[PENSQUARE] = "PENSQUARE";

  name_map[WITH_PEN] = "WITH_PEN";

  name_map[WITH_PEN_VECTOR] = "WITH_PEN_VECTOR";

  name_map[DASHED] = "DASHED";

  name_map[WITH_DASH_PATTERN_VECTOR] = "WITH_DASH_PATTERN_VECTOR";


  name_map[WITH_WEIGHT] = "WITH_WEIGHT";
  name_map[WITH_COLOR] = "WITH_COLOR";
  name_map[WITH_DRAW_COLOR] = "WITH_DRAW_COLOR";
  name_map[WITH_FILL_COLOR] = "WITH_FILL_COLOR";

  name_map[WITH_COLOR_VECTOR] = "WITH_COLOR_VECTOR";
  name_map[WITH_DRAW_COLOR_VECTOR] = "WITH_DRAW_COLOR_VECTOR";
  name_map[WITH_FILL_COLOR_VECTOR] = "WITH_FILL_COLOR_VECTOR";


  name_map[ON_PICTURE] = "ON_PICTURE";
  name_map[DRAWDOT] = "DRAWDOT";

  name_map[DRAWDOT_IF] = "DRAWDOT_IF";
  name_map[DRAWDOT_UNLESS] = "DRAWDOT_UNLESS";
  name_map[UNDRAWDOT_IF] = "UNDRAWDOT_IF";
  name_map[UNDRAWDOT_UNLESS] = "UNDRAWDOT_UNLESS";

  name_map[DRAW] = "DRAW";
  name_map[FILL] = "FILL";
  name_map[FILLDRAW] = "FILLDRAW";
  name_map[DRAWARROW] = "DRAWARROW";
  name_map[DRAWDBLARROW] = "DRAWDBLARROW";

  name_map[UNDRAWDOT] = "UNDRAWDOT";
  name_map[UNDRAW] = "UNDRAW";
  name_map[UNFILL] = "UNFILL";
  name_map[UNFILLDRAW] = "UNFILLDRAW";
  name_map[UNDRAWARROW] = "UNDRAWARROW";
  name_map[UNDRAWDBLARROW] = "UNDRAWDBLARROW";

  name_map[PICKUP]            = "PICKUP";
  name_map[DROP_COLOR]        = "DROP_COLOR";
  name_map[DROP_DASH_PATTERN] = "DROP_DASH_PATTERN";
  name_map[DROP_PEN]          = "DROP_PEN";

  name_map[PICKUP_DRAW_COLOR] = "PICKUP_DRAW_COLOR";
  name_map[PICKUP_FILL_COLOR] = "PICKUP_FILL_COLOR";
  name_map[DROP_DRAW_COLOR]   = "DROP_DRAW_COLOR";
  name_map[DROP_FILL_COLOR]   = "DROP_FILL_COLOR";

  name_map[CMY] = "CMY";
  name_map[CMYK] = "CMYK";
  name_map[RGB] = "RGB";

  name_map[DROP_ALL]   = "DROP_ALL";

@q **** (4) Types for setting.  @>
@*3 Types for setting.

\LOG
\initials{LDF 2005.05.12.}
Added this section, with a |name_map| entry for |SET|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |WITH_CENTER|, |WITH_POINT_COUNT|, 
and |WITH_NORMAL|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for 
|WITH_AXIS_H|, |WITH_AXIS_V|, and |WITH_DIAMETER|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |WITH_SIDES|.
\ENDLOG 

@<Define functions@>=


  name_map[SET] = "SET";

  name_map[WITH_CENTER] = "WITH_CENTER";
  name_map[WITH_POINT_COUNT] = "WITH_POINT_COUNT";
  name_map[WITH_NORMAL] = "WITH_NORMAL";

  name_map[WITH_AXIS_H] = "WITH_AXIS_H";
  name_map[WITH_AXIS_V] = "WITH_AXIS_V";
  name_map[WITH_DIAMETER] = "WITH_DIAMETER";

  name_map[WITH_SIDES] = "WITH_SIDES";

@q **** (4) Types for labels.  @>
@ Types for labels.

\LOG
\initials{LDF 2005.05.12.}
Added this section, with |name_map| entries for
|LABEL|, |RT|, |LFT|, |TOP|, |BOT|, |URT|, |ULFT|, |LRT|, and |LLFT|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |DOTLABEL|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |SUPPRESS_LABELS| and 
|UNSUPPRESS_LABELS|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |KILL_LABELS|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for
|LABEL_IF|, |LABEL_UNLESS|, |DOTLABEL_IF|, and |DOTLABEL_UNLESS|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for
|LABELS_IF|, |LABELS_UNLESS|, |DOTLABELS_IF|, and |DOTLABELS_UNLESS|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |SCANTOKENS|. 

\initials{LDF 2005.05.12.}
Added |name_map| entry for |VERBATIM_METAPOST|. 

\LOG
\initials{LDF 2005.05.12.}
Added |name_map| entry for |LET|.
\ENDLOG 

\ENDLOG 

@q ***** (5) Code.@> 

@<Define functions@>=

  name_map[LABEL] = "LABEL";
  name_map[DOTLABEL] = "DOTLABEL";
  name_map[RT]    = "RT";
  name_map[LFT]   = "LFT";
  name_map[TOP]   = "TOP";
  name_map[BOT]   = "BOT";
  name_map[URT]   = "URT";
  name_map[ULFT]  = "ULFT";
  name_map[LRT]   = "LRT";
  name_map[LLFT]  = "LLFT";

  name_map[SUPPRESS_LABELS]    = "SUPPRESS_LABELS";
  name_map[UNSUPPRESS_LABELS]  = "UNSUPPRESS_LABELS";


  name_map[LABEL_IF]        = "LABEL_IF"; 
  name_map[LABEL_UNLESS]    = "LABEL_UNLESS"; 
  name_map[DOTLABEL_IF]     = "DOTLABEL_IF"; 
  name_map[DOTLABEL_UNLESS] = "DOTLABEL_UNLESS"; 


  name_map[LABELS]           = "LABELS"; 
  name_map[LABELS_IF]        = "LABELS_IF"; 
  name_map[LABELS_UNLESS]    = "LABELS_UNLESS"; 
  name_map[DOTLABELS]        = "DOTLABELS"; 
  name_map[DOTLABELS_IF]     = "DOTLABELS_IF"; 
  name_map[DOTLABELS_UNLESS] = "DOTLABELS_UNLESS"; 

  name_map[SCANTOKENS] = "SCANTOKENS"; 

  name_map[VERBATIM_METAPOST] = "VERBATIM_METAPOST"; 

  name_map[LET] = "LET"; 

@q **** (4) Types for messages.  @>
@ Types for messages.

\LOG
\initials{LDF 2005.05.12.}
Added this section, with |name_map| entries for |MESSAGE| and |ERRMESSAGE|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |MEDIATE|.
\ENDLOG 

@<Define functions@>=

  name_map[MESSAGE]  = "MESSAGE";
  name_map[ERRMESSAGE]  = "ERRMESSAGE";
  name_map[PAUSE]  = "PAUSE";
  name_map[MEDIATE]  = "MEDIATE";


@q **** (4) Types for |Focuses|.  @>
@ Types for |Focuses|.

\LOG
\initials{LDF 2005.05.12.}
|WITH_POSITION|, |WITH_DIRECTION|, |WITH_DISTANCE|, |WITH_ANGLE|, 
|WITH_AXIS|, |X_AXIS|, |Y_AXIS|, and |Z_AXIS|.

\initials{LDF 2005.05.12.}
|PARALLEL_X_Y|, |PARALLEL_X_Z|, |PARALLEL_Z_Y|, |AXONOMETRIC|, 
|ISOMETRIC|, and |SUPPRESS|.
\ENDLOG 


\ENDLOG 

@<Define functions@>=
  name_map[WITH_POSITION] = "WITH_POSITION";
  name_map[WITH_DIRECTION] = "WITH_DIRECTION";
  name_map[WITH_DISTANCE] = "WITH_DISTANCE";
  name_map[WITH_ANGLE] = "WITH_ANGLE";
  name_map[WITH_AXIS] = "WITH_AXIS";
  name_map[X_AXIS] = "X_AXIS";
  name_map[Y_AXIS] = "Y_AXIS";
  name_map[Z_AXIS] = "Z_AXIS";


@q **** (4) Types for modifying |Shapes|.@>
@ Types for modifying |Shapes|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with a 
|name_map| entry for |CLEAR_CONNECTORS|.
\ENDLOG

@<Define functions@>=

   name_map[CLEAR_CONNECTORS] = "CLEAR_CONNECTORS";

@q **** (4) Types for figures.  @>
@ Types for figures.

\LOG
\initials{LDF 2005.05.12.}
Added this section, with |name_map| entries for |BEGINFIG| 
and |ENDFIG|. 
\ENDLOG

@<Define functions@>=

  name_map[BEGINFIG]          = "BEGINFIG";
  name_map[ENDFIG]            = "ENDFIG";

@q **** (4) Types for outputting |Pictures|.  @>
@*3 Types for outputting |Pictures|.

\LOG
\initials{LDF 2005.05.12.}

\initials{LDF 2005.05.12.}
|NO_SORT|, |MAX_Z_SORT|, |MIN_Z_SORT|, |MEAN_Z_SORT|, 
|WITH_MIN_X_PROJ|, |WITH_MAX_X_PROJ|, 
|WITH_MIN_Y_PROJ|, |WITH_MAX_Y_PROJ|, 
|WITH_MIN_Z_PROJ|, and |WITH_MAX_Z_PROJ|. 

\initials{LDF 2005.05.12.}
Changed |WITH_MIN_X_PROJ| to |MIN_Y_PROJ|.  Did the same for
|MAX_X_PROJ|, |MIN_Y_PROJ|, etc.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |CLEAR|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |WITH_SURFACE_HIDING| 
and |WITHOUT_SURFACE_HIDING|.
\ENDLOG 


@<Define functions@>=

  name_map[OUTPUT]           = "OUTPUT";
  name_map[CLEAR]            = "CLEAR";

  name_map[WITH_FOCUS]       = "WITH_FOCUS";
  name_map[WITH_PROJECTION]  = "WITH_PROJECTION";
  name_map[WITH_FACTOR]      = "WITH_FACTOR";

  name_map[PERSPECTIVE]      = "PERSPECTIVE";
  name_map[PARALLEL_X_Y]     = "PARALLEL_X_Y";
  name_map[PARALLEL_X_Z]     = "PARALLEL_X_Z";
  name_map[PARALLEL_Z_Y]     = "PARALLEL_Z_Y";
  name_map[AXONOMETRIC]      = "AXONOMETRIC";
  name_map[ISOMETRIC]        = "ISOMETRIC";
  name_map[SUPPRESS]         = "SUPPRESS";


  name_map[NO_SORT]         = "NO_SORT";
  name_map[MAX_Z_SORT]      = "MAX_Z_SORT";
  name_map[MIN_Z_SORT]      = "MIN_Z_SORT";
  name_map[MEAN_Z_SORT]     = "MEAN_Z_SORT";
  name_map[MIN_X_PROJ]      = "MIN_X_PROJ";
  name_map[MAX_X_PROJ]      = "MAX_X_PROJ";
  name_map[MIN_Y_PROJ]      = "MIN_Y_PROJ";
  name_map[MAX_Y_PROJ]      = "MAX_Y_PROJ";
  name_map[MIN_Z_PROJ]      = "MIN_Z_PROJ";
  name_map[MAX_Z_PROJ]      = "MAX_Z_PROJ";

  name_map[WITH_SURFACE_HIDING] = "WITH_SURFACE_HIDING";

  name_map[WITHOUT_SURFACE_HIDING] = "WITHOUT_SURFACE_HIDING";

@q **** (4) Types for projections.@>   
@*3 Types for projections.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with the entry for |PROJECT|.

\initials{LDF 2005.05.12.}
Added the entry for |PROJECTED|.

\initials{LDF 2005.05.12.}
Added the entry for |WITH_Z|.
\ENDLOG

@<Define functions@>=

  name_map[PROJECT] = "PROJECT";
  name_map[PROJECTED] = "PROJECTED";
  name_map[WITH_Z] = "WITH_Z";

@q **** (4) Types for showing objects referenced by variables.  @>
@ Types for showing objects referenced by variables.

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entry for |SHOW|. 


\ENDLOG 

@<Define functions@>=

  name_map[SHOW]          = "SHOW";


@q **** (4) Types for intersections.  @>
@ Types for intersections.

\LOG
\initials{LDF 2005.05.12.}
Added this section.  Creating |name_map| entries for 
|INTERSECTION_POINT| and |INTERSECTION_POINTS|.
\ENDLOG


@<Define functions@>=

   name_map[INTERSECTION_POINT]          = "INTERSECTION_POINT";
   name_map[INTERSECTION_POINTS]          = "INTERSECTION_POINTS";

@q **** (4) Types for conditionals.  @>
@ Types for conditionals.

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entries for 
|IF|, |ELSE|, |ELSEIF|, and |FI|.
\ENDLOG

@<Define functions@>=

  name_map[IF] = "IF";
  name_map[ELSE] = "ELSE";
  name_map[ELSEIF] = "ELSEIF";
  name_map[FI] = "FI";


@q **** (4) Types for loops.  @>
@ Types for loops.

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entries for 
|FOR|, |FORSUFFIXES|, |FOREVER|, |EXITIF|, |STEP|, |UNTIL|, 
and |ENDFOR|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |END_LOOP_PREFIX|.

\initials{LDF 2005.05.12.}
Removed |name_map| entry for |END_LOOP_PREFIX|.

\initials{LDF 2005.05.12.}
Changed |EXITIF| to |EXIT_IF| and added |EXIT_UNLESS|.

\initials{LDF 2005.05.12.}
Changed |FORSUFFIXES| to |FOR_SUFFIXES| and |ENDFOR| to |END_FOR|. 

\initials{LDF 2005.05.12.}
Added |name_map| entries for |UPTO|, |DOWNTO|, 
and |FOR_SUFFIXES_INTERNAL|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |FOR_SUFFIXES_INTERNAL_START|.
\ENDLOG

@<Define functions@>=

  name_map[FOR] = "FOR";
  name_map[FOR_SUFFIXES] = "FOR_SUFFIXES";
  name_map[FOR_SUFFIXES_INTERNAL] = "FOR_SUFFIXES_INTERNAL";
  name_map[FOREVER] = "FOREVER";
  name_map[EXIT_IF] = "EXIT_IF";
  name_map[EXIT_UNLESS] = "EXIT_UNLESS";
  name_map[STEP] = "STEP";
  name_map[UNTIL] = "UNTIL";
  name_map[END_FOR] = "END_FOR";
  name_map[UPTO] = "UPTO";
  name_map[DOWNTO] = "DOWNTO";


@q **** (4) Types for groups.  @>
@*3 Types for groups.

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entries for 
|BEGIN_GROUP|, |END_GROUP|,  and |SAVE|.
\ENDLOG

@<Define functions@>=

  name_map[BEGIN_GROUP] = "BEGIN_GROUP";
  name_map[END_GROUP] = "END_GROUP";
  name_map[SAVE] = "SAVE";

@q **** (4) Types for transformations.@>
@*3 Types for transformations.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entries for |INVERSE| 
and |INVERT|.
\ENDLOG

@<Define functions@>=

  name_map[INVERSE] = "INVERSE";
  name_map[INVERT]  = "INVERT";

@q **** (4) Types for extracting sub-objects.@>
@*3 Types for extracting sub-objects.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with |name_map| entries for 
|GET_TRANSFORM|,
|GET_POINT|,
|GET_POINTS|,
|GET_CONNECTOR|,
|GET_CONNECTORS|,
|GET_PEN|,
|GET_DASH_PATTERN|,
|GET_DASH_PATTERN|,
|GET_DRAWDOT_COLOR|,
|GET_DRAW_COLOR|,
|GET_FILL_COLOR|,
|GET_COLORS|,
|GET_CIRCLE|,
|GET_ELLIPSE|,
|GET_PATH|,
|GET_RECTANGLE|, and
|GET_REG_POLYGON|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |GET_CENTER|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |HALF|, |QUARTER|, and |SEGMENT|.

\initials{LDF 2005.05.12.}
Added |name_map| entries for |WITH_START|, |WITH_END|, |WITH_SIZE|, 
and |WITH_FRACTION|.

\initials{LDF 2005.05.12.}
Added |name_map| entry for |WITH_CLOSED|.

\initials{LDF 2005.05.12.}
Removed the |name_map| entry for |GET_DRAWDOT_COLOR|.
\ENDLOG

@q ***** (5) Code.@> 

@<Define functions@>=

  name_map[GET_TRANSFORM] = "GET_TRANSFORM";
  name_map[GET_POINT] = "GET_POINT";
  name_map[GET_POINTS] = "GET_POINTS";
  name_map[GET_CONNECTOR] = "GET_CONNECTOR";
  name_map[GET_CONNECTORS] = "GET_CONNECTORS";
  name_map[GET_PEN] = "GET_PEN";
  name_map[GET_DASH_PATTERN] = "GET_DASH_PATTERN";
  name_map[GET_DASH_PATTERN] = "GET_DASH_PATTERN";
  name_map[GET_DRAW_COLOR] = "GET_DRAW_COLOR";
  name_map[GET_FILL_COLOR] = "GET_FILL_COLOR";
  name_map[GET_COLORS] = "GET_COLORS";
  name_map[GET_CENTER] = "GET_CENTER";
  name_map[GET_CIRCLE] = "GET_CIRCLE";
  name_map[GET_ELLIPSE] = "GET_ELLIPSE";
  name_map[GET_PATH] = "GET_PATH";
  name_map[GET_RECTANGLE] = "GET_RECTANGLE";
  name_map[GET_REG_POLYGON] = "GET_REG_POLYGON";

  name_map[HALF] = "HALF";
  name_map[QUARTER] = "QUARTER";
  name_map[SEGMENT] = "SEGMENT";

  name_map[WITH_START]    = "WITH_START";
  name_map[WITH_END]      = "WITH_END";
  name_map[WITH_SIZE]     = "WITH_SIZE";
  name_map[WITH_FRACTION] = "WITH_FRACTION";
  name_map[WITH_CLOSED]   = "WITH_CLOSED";


@q **** (4) Types for macros.@>
@*3 Types for macros.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with entries for
|MACRO_TYPE|,
|VARDEF_TYPE|,
|PRIMARYDEF_TYPE|,
|SECONDARYDEF_TYPE|,
|TERTIARYDEF_TYPE|,
|DEFMACRO|,
|VARDEF|,
|PRIMARYDEF|, 
|SECONDARYDEF|, 
|TERTIARYDEF|, 
|ENDDEF|, 
|SUFFIX|, 
|TEXT|, and
|EXPR|.

\initials{LDF 2005.05.12.}
Changed |DEFMACRO| to |DEF|.

\initials{LDF 2005.05.12.}
Added entry for |DEFUN|.

\initials{LDF 2005.05.12.}
Added entries for 
|MACRO_VECTOR|,
|PRIMARYDEF_VECTOR|,
|SECONDARYDEF_VECTOR|,
|TERTIARYDEF_VECTOR|,
|MACRO_DECLARATOR|,
|PRIMARYDEF_DECLARATOR|,
|SECONDARYDEF_DECLARATOR|,
|TERTIARYDEF_DECLARATOR|,
|MACRO_VECTOR_DECLARATOR|,
|PRIMARYDEF_VECTOR_DECLARATOR|,
|SECONDARYDEF_VECTOR_DECLARATOR|,
and
|TERTIARYDEF_VECTOR_DECLARATOR|.

\initials{LDF 2005.05.12.}
Added entry for |DEF| again.
\ENDLOG

@q ***** (5) Code.@> 

@<Define functions@>=

   name_map[MACRO] = "MACRO";
   name_map[PRIMARYDEF] = "PRIMARYDEF";
   name_map[SECONDARYDEF] = "SECONDARYDEF";
   name_map[TERTIARYDEF] = "TERTIARYDEF";


   name_map[MACRO_VECTOR] = "MACRO_VECTOR";
   name_map[PRIMARYDEF_VECTOR] = "PRIMARYDEF_VECTOR";
   name_map[SECONDARYDEF_VECTOR] = "SECONDARYDEF_VECTOR";
   name_map[TERTIARYDEF_VECTOR] = "TERTIARYDEF_VECTOR";


   name_map[MACRO_DECLARATOR] = "MACRO_DECLARATOR";
   name_map[PRIMARYDEF_DECLARATOR] = "PRIMARYDEF_DECLARATOR";
   name_map[SECONDARYDEF_DECLARATOR] = "SECONDARYDEF_DECLARATOR";
   name_map[TERTIARYDEF_DECLARATOR] = "TERTIARYDEF_DECLARATOR";


   name_map[MACRO_VECTOR_DECLARATOR] = "MACRO_VECTOR_DECLARATOR";
   name_map[PRIMARYDEF_VECTOR_DECLARATOR] = "PRIMARYDEF_VECTOR_DECLARATOR";
   name_map[SECONDARYDEF_VECTOR_DECLARATOR] = "SECONDARYDEF_VECTOR_DECLARATOR";
   name_map[TERTIARYDEF_VECTOR_DECLARATOR] = "TERTIARYDEF_VECTOR_DECLARATOR";


   name_map[DEF] = "DEF";
   name_map[ENDDEF] = "ENDDEF";

   name_map[DEFUN] = "DEFUN";

@q **** (4) Types for enclosed and enclosing figures.@>
@*3 Types for enclosed and enclosing figures.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with entries for
|IN_CIRCLE|, 
|OUT_CIRCLE|, 
|IN_ELLIPSE|, 
|OUT_ELLIPSE|, 
|IN_RECTANGLE|, 
|OUT_RECTANGLE|, 
|IN_SPHERE|, 
|OUT_SPHERE|, 
|IN_ELLIPSOID|, 
|OUT_ELLIPSOID|, 
|IN_CUBOID|, and
|OUT_CUBOID|.
\ENDLOG

@<Define functions@>=

   name_map[IN_CIRCLE] = "IN_CIRCLE";
   name_map[OUT_CIRCLE] = "OUT_CIRCLE";
   name_map[IN_ELLIPSE] = "IN_ELLIPSE";
   name_map[OUT_ELLIPSE] = "OUT_ELLIPSE";
   name_map[IN_RECTANGLE] = "IN_RECTANGLE";
   name_map[OUT_RECTANGLE] = "OUT_RECTANGLE";
   name_map[IN_SPHERE] = "IN_SPHERE";
   name_map[OUT_SPHERE] = "OUT_SPHERE";
   name_map[IN_ELLIPSOID] = "IN_ELLIPSOID";
   name_map[OUT_ELLIPSOID] = "OUT_ELLIPSOID";
   name_map[IN_CUBOID] = "IN_CUBOID";
   name_map[OUT_CUBOID] = "OUT_CUBOID";


@q **** (4) Types for vector-type objects.@>
@*3 Types for vector-type objects.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with entries for
|PUSH_BACK| and |POP_BACK|.

\initials{LDF 2005.05.12.}
Added entry for |LAST|.
\ENDLOG

@<Define functions@>=


   name_map[PUSH_BACK]  = "PUSH_BACK";
   name_map[POP_BACK]   = "POP_BACK";

   name_map[LAST]       = "LAST";

@q **** (4) Types for |triangles|.@>
@*3 Types for {\bf triangles}.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with entries for
|WITH_SSS|, |WITH_SAS|, |WITH_SAA|, |WITH_ASA|, 
|WITH_SSA_B|, |WITH_SSA_L|, and |WITH_SSA_S|. 

\initials{LDF 2005.05.12.}
Added entry for |WITH_SSA_A|.  
I'd forgotten it before.

\initials{LDF 2005.05.12.}
Removed the entries for |WITH_SSA_A| and |WITH_SSA_B|.

\initials{LDF 2005.05.12.}
Added entry for |WITH_POINTS|.
\ENDLOG

@<Define functions@>=

   name_map[WITH_SSS]   = "WITH_SSS";
   name_map[WITH_SAS]   = "WITH_SAS";
   name_map[WITH_SAA]   = "WITH_SAA";
   name_map[WITH_ASA]   = "WITH_ASA";
   name_map[WITH_SSA_L] = "WITH_SSA_L";
   name_map[WITH_SSA_S] = "WITH_SSA_S";

   name_map[WITH_POINTS] = "WITH_POINTS";

@q **** (4) Types for surface hiding.@>
@*3 Types for surface hiding.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with entries for |DECOMPOSE| 
and |WITH_LEVEL|.

\initials{LDF 2005.05.12.}
Added the entry for |WITH_RECTANGLES|.
\ENDLOG

@q **** (4).@> 

@<Define functions@>=

   name_map[DECOMPOSE]        = "DECOMPOSE";
   name_map[WITH_LEVEL]       = "WITH_LEVEL";
   name_map[WITH_RECTANGLES]  = "WITH_RECTANGLES";


@q **** (4) Types for |nurbs|.@>
@*3 Types for |nurbs|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section with entries for
|KNOT|, |WEIGHT|, |WITH_KNOTS|, and |WITH_WEIGHTS|.

\initials{LDF 2005.05.12.}
Added entries for |WITH_TIME_PARAMETER|,
|WITH_ORDER|, and |GENERATE|.

\initials{LDF 2005.05.12.}
Changed |WITH_ORDER| to |WITH_POWER|.
\ENDLOG

@q **** (4) Code.@>   

@<Define functions@>=

   name_map[KNOT] = "KNOT";
   name_map[WEIGHT] = "WEIGHT";
   name_map[WITH_KNOTS] = "WITH_KNOTS";
   name_map[WITH_WEIGHTS] = "WITH_WEIGHTS";

   name_map[WITH_TIME_PARAMETER] = "WITH_TIME_PARAMETER";
   name_map[WITH_POWER]          = "WITH_POWER";

   name_map[GENERATE]            = "GENERATE";

@q **** (4) Types for |origami_figures|.@>
@*3 Types for |origami_figures|.
\initials{LDF 2005.05.12.}

\LOG
\initials{LDF 2005.05.12.}
Added this section.  It's currently empty.
\ENDLOG

@q **** (4) Code.@>   

@<Define functions@>=


@q **** (4).@> 
@
@<Define functions@>=
  

   return 0;

}  /* End of |initialize_name_map()| definition.  */


@q * (1) Additional C++ code. @>
@* Additional \CPLUSPLUS/ code.

@q ** (2) yylex() declaration.@>
@*1 {\it yylex\/}() declaration.
\initials{LDF 2005.05.12.}

This function is a layer between the low-level 
scanning performed by |sub_yylex()| and |yyparse()|.  
It's defined in \filename{scan.web}.
\initials{LDF 2005.05.12.}

\LOG
Added this function.
\initials{LDF 2005.05.12.}
\ENDLOG 

@q *** Declaration. @>

@<Declare functions@>=
int
yylex(YYSTYPE* value,
      YYLTYPE* location,
      void* parameter);  


@q ** yyerror() @>
@ {\it yyerror\/}().
@<Declare functions@>=
int
yyerror(char* message);@/

@
@<Define functions@>=
int
yyerror(char* message)
{
  cerr << "ERROR! In yyparse(): " << message << endl << flush;
  return 0;
}

@q ** Set |yydebug|.  @>
@ Set {\bf yydebug}.

\LOG
\initials{LDF 2005.05.12.}
\ENDLOG 

@<Declare functions@>=
void
set_yydebug(int i = 1);

@
@<Define functions@>=
void
set_yydebug(int i)
{
  yydebug = i;
  return;
}


@q ** Unset |yydebug|.  @>
@ Unset {\bf yydebug}.

\LOG
\initials{LDF 2005.05.12.}
\ENDLOG 

@<Declare functions@>=
inline
void
unset_yydebug(void)
{
  return set_yydebug(0);
}


@q ** Garbage. @>
@ Garbage.  Just in case it's not used anywhere else.
\initials{LDF 2005.05.12.}

@<Garbage@>=


@q * (1) Putting the parser together.@>
@* Putting the parser together.

@q ** (2) This is what's compiled.@>

@ This is what's compiled.
\initials{LDF 2005.05.12.}

@c
@=%{@>
@<Include files@>@;
@<Using declarations@>@;
@<Declare location type@>@;
@<Preprocessor macros not only for the parser@>@;
@<Preprocessor macros for the parser only@>@;
@<Declare |name_map| and |type_name_map|@>@;
@=%}@>
@<Bison declarations@>@;
@<Union declaration for |YYSTYPE|@>@;
@<Token and precedence declarations@>@;
@<Type declarations for non-terminal symbols@>@;

@=%{@>
@<Constants in |namespace Scan_Parse|@>@;
@<Declare functions@>@;
@=%}@>

\initials{LDF 2005.05.12.}
@<Define rules@>@;
@=%%@> /* Introduces ``Additional C++ code'' section.  
\initials{LDF 2005.05.12.}
@<Define |LDF_LOCATION_TYPE| functions@>@;
@<Define functions@>@;

#if 0 
@<Garbage@>@;
#endif 

@q ** (2) This is what's written to `parser.h'.@>
@ This is what's written to \filename{parser.h}.
update_list

It's necessary to write the declaration of |LDF_LOCATION_TYPE| to
\filename{parser.h}, because Bison does not write it to 
\filename{parser.h++}.
\initials{LDF 2005.05.12.}

@(parser.h@>=

#undef YYLTYPE
@<Declare location type@>@;
@<Preprocessor macros not only for the parser@>@;
@<|extern| declarations in |namespace Scan_Parse|@>@;
@<|extern| declaration of |name_map| and |type_name_map|@>@;
@<Declare functions@>@;

  
@q * Emacs-Lisp code for use in indirect buffers when using the          @>
@q   GNU Emacs editor.  The local variable list is not evaluated when an @>
@q   indirect buffer is visited, so it's necessary to evaluate the       @>
@q   following s-expression in order to use the facilities normally      @>
@q   accessed via the local variables list.                              @>
@q   \initials{LDF 2004.02.12}.                                          @>
@q   (progn (cweb-mode) (outline-minor-mode t) (setq fill-column 80))    @>


@q Local Variables: @>
@q mode:CWEB  @>
@q eval:(outline-minor-mode t)  @>
@q abbrev-file-name:"~/.abbrev_defs" @>
@q eval:(read-abbrev-file)  @>
@q fill-column:80 @>
@q run-cweave-on-file:"3DLDFprg.web"  @>
@q End: @>
savannah-hackers-public@gnu.org	ViewVC Help
Powered by ViewVC 1.1.26