File Coverage

blib/lib/PerlPoint/Constants.pm

Criterion	Covered	Total	%
statement	204	204	100.0
branch			n/a
condition			n/a
subroutine	67	67	100.0
pod			n/a
total	271	271	100.0

# = HISTORY SECTION =====================================================================

# ---------------------------------------------------------------------------------------
# version | date     | author   | changes
# ---------------------------------------------------------------------------------------
# 0.19    |07.03.2006| JSTENZEL | added DUMMY_TOKEN;
# 0.18    |15.12.2005| JSTENZEL | internal helper routine name now begins with underscore;
# 0.17    |15.06.2003| JSTENZEL | added DIRECTIVE_EVERY constant;
#         |10.09.2003| JSTENZEL | added DIRECTIVE_DPOINT_TEXT constant;
#         |08.07.2004| JSTENZEL | added TEMPLATE_ACTION_... constants;
# 0.16    |< 02.03.02| JSTENZEL | added DIRECTIVE_DSTREAM_ENTRYPOINT constant;
#         |02.03.2002| JSTENZEL | added DSTREAM_... constants;
#         |29.09.2002| JSTENZEL | added STREAM_DOCSTREAMS;
#         |02.01.2003| JSTENZEL | added TRACE_TMPFILES;
# 0.15    |10.08.2001| JSTENZEL | added STREAM_... constants;
#         |          | JSTENZEL | reorganized POD slightly;
#         |14.08.2001| JSTENZEL | added missed doc of TAG_... constants;
#         |29.09.2001| JSTENZEL | removed STREAM_CONTROL;
#         |13.11.2001| JSTENZEL | added PARSING_IGNORE and PARSING_ERASE;
#         |14.11.2001| JSTENZEL | added STREAM_DIR_ index constants;
# 0.14    |28.05.2001| JSTENZEL | added DIRECTIVE_VARRESET;
#         |12.06.2001| JSTENZEL | added PARSING_... constants;
# 0.13    |18.03.2001| JSTENZEL | added tag constants;
# 0.12    |14.03.2001| JSTENZEL | added mailing list hint to POD;
# 0.11    |20.01.2001| JSTENZEL | added new constant DIRECTIVE_VARSET;
# 0.10    |07.12.2000| JSTENZEL | new namespace PerlPoint;
# 0.09    |18.11.2000| JSTENZEL | added new CACHE constants;
# 0.08    |28.10.2000| JSTENZEL | added new constant TRACE_ACTIVE;
# 0.07    |07.10.2000| JSTENZEL | added new constant DIRECTIVE_NEW_LINE;
#         |          | JSTENZEL | sligthly improved POD;
# 0.06    |27.05.2000| JSTENZEL | updated POD;
# 0.05    |11.04.2000| JSTENZEL | added new paragraph constants: xxx_DPOINT;
# 0.04    |07.04.2000| JSTENZEL | added new paragraph constants: xxx_UPOINT, xxx_OPOINT;
#         |08.04.2000| JSTENZEL | added new paragraph constants: xxx_xSHIFT;
#         |09.04.2000| JSTENZEL | START/STOP constants are now in the same range as
#         |          |          | directives to avoid comparison trouble in tests;
#         |14.04.2000| JSTENZEL | new directives: list envelopes;
# 0.03    |13.10.1999| JSTENZEL | updated POD;
# 0.02    |11.10.1999| JSTENZEL | renamed into PP::Constants;
#         |          | JSTENZEL | adapted POD to pod2text (needs more blank lines);
#         |          | JSTENZEL | added backend constants;
# 0.01    |09.10.1999| JSTENZEL | derived from the PP::Parser draft.
# ---------------------------------------------------------------------------------------

# = POD SECTION =========================================================================

=head1 NAME

B - public PerlPoint module constants

=head1 VERSION

This manual describes version B<0.19>.

=head1 DESCRIPTION

The module declares a number of constants shared between other
B modules.

=head1 SYNOPSIS

The I of the provided constants is described in the manuals
of the using modules B and B.

=head1 CONSTANTS

=cut

# declare package
package PerlPoint::Constants;

# declare version
$VERSION=$VERSION=0.19;

# startup actions
BEGIN
 {
  # declare startup helper function
  sub _startupGenerateConstants
    {
     # init counter
     my $c=0;

     # and generate constants
     foreach my $constant (@_)
       {eval "use constant $constant => $c"; $c++;}
    }

=pod

=head2 Stream directive constants

These constants are built into I which the parser produces
in its output (that is, the representation format it translates an ASCII
text in to be subsequently processed by a backend).

=over 4

=item DIRECTIVE_BLOCK

flags a block paragraph;

=item DIRECTIVE_COMMENT

flags a comment;

=item DIRECTIVE_COMPLETE

a format entity is completed;

=item DIRECTIVE_DOCUMENT

flags a complete document (made from one ASCII file);

=item DIRECTIVE_DLIST

flags a "definition list";

=item DIRECTIVE_DPOINT

flags a "definition point" paragraph;

=item DIRECTIVE_DPOINT_ITEM

flags a "definition point" item (the stuff to be defined);

=item DIRECTIVE_DPOINT_TEXT

flags a "definition point" text (the definition part);

=item DIRECTIVE_DSTREAM_ENTRYPOINT

flags the switch into another document stream;

=item DIRECTIVE_HEADLINE

flags a headline;

=item DIRECTIVE_LIST_LSHIFT

control directive, shift a list left;

=item DIRECTIVE_LIST_RSHIFT

control directive, shift a list right;

=item DIRECTIVE_NEW_LINE

a backend hint to inform about a new source line;

=item DIRECTIVE_OLIST

flags an "ordered list";

=item DIRECTIVE_OPOINT

flags an "ordered point" paragraph;

=item DIRECTIVE_SIMLPE

a pseudo directive, used to flag simple strings in backends;

=item DIRECTIVE_START

a format entity starts;

=item DIRECTIVE_TAG

flags a tag;

=item DIRECTIVE_TEXT

flags a text paragraph;

=item DIRECTIVE_ULIST

flags an "unordered list";

=item DIRECTIVE_UPOINT

flags an "unordered point" paragraph;

=item DIRECTIVE_VARRESET

a backend hint flagging that I variables are deleted;

=item DIRECTIVE_VARSET

a backend hint propagating a variable setting;

=item DIRECTIVE_VERBATIM

flags a verbatim block paragraph;

=back

=cut

  # directive constants
  _startupGenerateConstants(
                           'DIRECTIVE_EVERY',                  # pseudo_directive used in backend;

                           'DIRECTIVE_START',                  # entity start;
                           'DIRECTIVE_COMPLETE',               # entity complete;

                           'DIRECTIVE_BLOCK',                  # block;
                           'DIRECTIVE_COMMENT',                # comment;
                           'DIRECTIVE_DLIST',                  # definition list;
                           'DIRECTIVE_DOCUMENT',               # document;
                           'DIRECTIVE_DPOINT',                 # definition list point;
                           'DIRECTIVE_DPOINT_ITEM',            # defined item;
                           'DIRECTIVE_DPOINT_TEXT',            # definition text;
                           'DIRECTIVE_HEADLINE',               # headline;
                           'DIRECTIVE_LIST_LSHIFT',            # shift list left;
                           'DIRECTIVE_LIST_RSHIFT',            # shift list right;
                           'DIRECTIVE_NEW_LINE',               # backend line hint;
                           'DIRECTIVE_OLIST',                  # ordered list;
                           'DIRECTIVE_OPOINT',                 # ordered list point;
                           'DIRECTIVE_TAG',                    # tag;
                           'DIRECTIVE_TEXT',                   # text;
                           'DIRECTIVE_ULIST',                  # unordered list;
                           'DIRECTIVE_UPOINT',                 # unordered list point;
                           'DIRECTIVE_VARSET',                 # backend hint: variable setting;
                           'DIRECTIVE_VARRESET',               # backend hint: reset *all* variables;
                           'DIRECTIVE_VERBATIM',               # verbatim;
                           'DIRECTIVE_DSTREAM_ENTRYPOINT',     # document stream entry point;

                           'DIRECTIVE_SIMPLE',                 # a pseudo directive (never used directly - MUST be the last here!);
                          );

=pod

=head2 Parser constants

control how the parser continues processing, usually used by tag hooks.

=over 4

=item PARSING_COMPLETED

We read all we need. Stop parsing successfully.

=item PARSING_ERASE

Ignore the tag I (which means its body).

=item PARSING_ERROR

A semantic error occurred. Parsing will usually be continued
to possibly detect even more errors.

=item PARSING_FAILED

A syntactic error occured. Parsing will be stopped immediately.

=item PARSING_IGNORE

Ignore the tag as if it was not written.

=item PARSING_OK

Input ok, parsing can be continued.

=back

=cut

  # parser constants
  _startupGenerateConstants(
                           'PARSING_OK',             # all right, proceed;
                           'PARSING_COMPLETED',      # we know without further parsing that the input was perfect;
                           'PARSING_ERROR',          # a semantic error occured;
                           'PARSING_FAILED',         # a syntactical error occured;
                           'PARSING_IGNORE',         # ignore the tag;
                           'PARSING_ERASE',          # ignore the tag *and all its content*;
                          );


=pod

=head2 Tag definition constants

flagging mode of tag components.

=over 4

=item TAGS_OPTIONAL

the item can be used but is not required.

=item TAGS_MANDATORY

the item is an essential tag part.

=item TAGS_DISABLED

the item must not be used.

=back

=cut


  # tag constants
  _startupGenerateConstants(
                           'TAGS_OPTIONAL',          # something is optional;
                           'TAGS_MANDATORY',         # something is mandatory;
                           'TAGS_DISABLED',          # something is disabled (not necessary);
                          );



=pod

=head2 Stream data structure part constants

index constants to access parts of the intermediate data structure produced
by the parser and processed by backends. Intended to be used by C
and C.

=over 4

=item STREAM_IDENT

stream data identifier - a string identifying the data structure as a PerlPoint stream.

=item STREAM_DOCSTREAMS

a list of all detected document stream identifiers.

=item STREAM_TOKENS

token stream.

=item STREAM_HEADLINES

headline stream.

=back

=cut


  # stream data structure part constants
  _startupGenerateConstants(
                           'STREAM_IDENT',           # stream data identifier;
                           'STREAM_DOCSTREAMS',      # list of document streams (hash);
                           'STREAM_TOKENS',          # token stream;
                           'STREAM_HEADLINES',       # headline stream;
                          );


=pod

=head2 Stream directive data structure index constants

index constants to access parts of a stream directive.

=over 4

=item STREAM_DIR_HINTS

a hash filled by the parser to control backend behaviour.

=item STREAM_DIR_TYPE

directive type constant (C, C etc.)

=item STREAM_DIR_STATE

start/completion flag (C, C).

=item STREAM_DIR_DATA

beginning of the data part, depends on directive type.


=back

=cut


  # stream directive data structure index constants
  _startupGenerateConstants(
                           'STREAM_DIR_HINTS',       # backend hints stored by the parser;
                           'STREAM_DIR_TYPE',        # directive type;
                           'STREAM_DIR_STATE',       # directive state (starting, complete);
                           'STREAM_DIR_DATA',        # data part (index of first element);
                          );


=pod

=head2 Document stream handling constants

declare how document streams should be handled by the parser.

=over 4

=item DSTREAM_DEFAULT

Document stream entry points are streamed directly - so the backend
can handle them.

=item DSTREAM_IGNORE

Document streams (except of the main stream) are completely ignored.

=item DSTREAM_HEADLINES

Document stream entry points are streamed as headlines.

=back

=cut

  # declare display constants
  _startupGenerateConstants(
                           'DSTREAM_DEFAULT',        # just stream them;
                           'DSTREAM_IGNORE',         # ignore all streams except of "main";
                           'DSTREAM_HEADLINES',      # stream entry points as headlines;
                          );
 }




=pod

=head2 Trace constants

They activate trace code.

=over 4

=item TRACE_ACTIVE

activates the traces of active contents evaluation.

=item TRACE_BACKEND

activates backend traces;

=item TRACE_LEXER

activates the traces of the lexical analysis.

=item TRACE_NOTHING

deactivates all trace codes. (In fact, it I any trace.
If you decide to combine it with other trace constants, it will cause nothing.)

=item TRACE_PARAGRAPHS

activates traces which show the paragraphs recognized when they are entered
or completed.

=item TRACE_PARSER

activates the traces of the syntactical analysis.

=item TRACE_SEMANTIC

activates the traces of the semantic analysis.

=item TRACE_TMPFILES

deactivates the removal of temporary files.

=back

=cut

  # declare trace constants (take care of correct values)
  use constant 'TRACE_NOTHING'    =>  0;            # MUST be 0!
  use constant 'TRACE_PARAGRAPHS' =>  1;
  use constant 'TRACE_LEXER'      =>  2;
  use constant 'TRACE_PARSER'     =>  4;
  use constant 'TRACE_SEMANTIC'   =>  8;
  use constant 'TRACE_ACTIVE'     => 16;
  use constant 'TRACE_BACKEND'    => 32;
  use constant 'TRACE_TMPFILES'   => 64;

=pod

=head2 Display constants

determine if information messages should be suppressed.

=over 4

=item DISPLAY_ALL

all messages are displayed. (More correctly, no message is suppressed.
If you combine this constant with other display constants, it will take
no effect.)

=item DISPLAY_NOINFO

suppresses information messages;

=item DISPLAY_NOWARN

suppresses warnings;

=back

=cut

  # declare display constants
  use constant 'DISPLAY_ALL'      => 0;            # MUST be 0!
  use constant 'DISPLAY_NOINFO'   => 1;            # suppress informations;
  use constant 'DISPLAY_NOWARN'   => 2;            # suppress warnings;


=pod

=head2 Cache constants

specify how presentation files shall be cached.

=over 4

=item CACHE_OFF

Files are reparsed completely regardless of cache data. Existing cache data
remain untouched.

=item CACHE_ON

While reading the presentation descriptions, cached and unchanged paragraphs
are reloaded from the cache if possible. New or modified paragraphs are stored
to accelerate repeated reading.

Please note that this will not overwrite or remove previously stored cache data for modified
or deleted paragraphs. Old cache data remains in the cache, while new data is added - the
cache size continously grows.

=item CACHE_CLEANUP

Cleans up an existing cache before the parser starts (and possibly rebuilds it).

=back

=cut

  # declare cache constants
  use constant 'CACHE_OFF'        => 0;            # MUST be 0! Deactivates the cache.
  use constant 'CACHE_ON'         => 1;            # activates the cache;
  use constant 'CACHE_CLEANUP'    => 2;            # cache cleanup;


=pod

=head2 Template action constants

flag which way a template engine should perform an action.

=over 4

=item TEMPLATE_ACTION_DOC

Produce files which are needed I (per document).

=item TEMPLATE_ACTION_INDEX

Processes the index page.

=item TEMPLATE_ACTION_PAGE

Produce a page.

=item TEMPLATE_ACTION_PAGE_SUPPLEMENTS

Produce additional files belonging to a page.

=item TEMPLATE_ACTION_TOC

Processes the table of contents page.

=back

=cut

  # template action constants
  _startupGenerateConstants(
                           'TEMPLATE_ACTION_DOC',               # process doc data;
                           'TEMPLATE_ACTION_INDEX',             # process index;
                           'TEMPLATE_ACTION_PAGE',              # process page data;
                           'TEMPLATE_ACTION_PAGE_SUPPLEMENTS',  # process page supplement files;
                           'TEMPLATE_ACTION_TOC',               # process TOC template;
                          );


=pod

=head2 String constants

used for various purposes.

=over 4

=item DUMMY_TOKEN

a pseudo token added for reasons of parsing, which the backend can delete from the stream.

=back

=cut

    use constant DUMMY_TOKEN => '__DUMMY__TOKEN__';

# release memory
undef &_startupGenerateConstants;


# modules
use Exporter;
@ISA=qw(Exporter);

# declare exports
@EXPORT=qw(
           DIRECTIVE_START
           DIRECTIVE_COMPLETE

           DIRECTIVE_BLOCK
           DIRECTIVE_COMMENT
           DIRECTIVE_DLIST
           DIRECTIVE_DOCUMENT
           DIRECTIVE_DPOINT
           DIRECTIVE_DPOINT_ITEM
           DIRECTIVE_DPOINT_TEXT
           DIRECTIVE_DSTREAM_ENTRYPOINT
           DIRECTIVE_HEADLINE
           DIRECTIVE_LIST_LSHIFT
           DIRECTIVE_LIST_RSHIFT
           DIRECTIVE_NEW_LINE
           DIRECTIVE_OLIST
           DIRECTIVE_OPOINT
           DIRECTIVE_VARRESET
           DIRECTIVE_TAG
           DIRECTIVE_TEXT
           DIRECTIVE_ULIST
           DIRECTIVE_UPOINT
           DIRECTIVE_VARSET
           DIRECTIVE_VERBATIM

           DIRECTIVE_SIMPLE

           DIRECTIVE_EVERY

           TRACE_ACTIVE
           TRACE_BACKEND
           TRACE_LEXER
           TRACE_NOTHING
           TRACE_PARAGRAPHS
           TRACE_PARSER
           TRACE_SEMANTIC
           TRACE_TMPFILES

           DISPLAY_ALL
           DISPLAY_NOINFO
           DISPLAY_NOWARN

           CACHE_OFF
           CACHE_ON
           CACHE_CLEANUP

           DSTREAM_DEFAULT
           DSTREAM_IGNORE
           DSTREAM_HEADLINES

           DUMMY_TOKEN
          );

%EXPORT_TAGS=(
              parsing   => [qw(PARSING_OK PARSING_COMPLETED PARSING_ERROR PARSING_FAILED PARSING_IGNORE PARSING_ERASE)],
              stream    => [qw(
                               STREAM_IDENT STREAM_DOCSTREAMS STREAM_TOKENS STREAM_HEADLINES
                               STREAM_DIR_HINTS STREAM_DIR_TYPE STREAM_DIR_STATE STREAM_DIR_DATA
                              )],
              tags      => [qw(TAGS_OPTIONAL TAGS_MANDATORY TAGS_DISABLED)],
              templates => [qw(
                               TEMPLATE_ACTION_DOC
                               TEMPLATE_ACTION_INDEX
                               TEMPLATE_ACTION_PAGE
                               TEMPLATE_ACTION_PAGE_SUPPLEMENTS
                               TEMPLATE_ACTION_TOC
                              )],
             );

Exporter::export_ok_tags(
                         qw(
                            parsing
                            stream
                            tags
                            templates
                           )
                        );

1;


# = POD TRAILER SECTION =================================================================

=pod

=head1 SEE ALSO

=over 4

=item B

A parser for Perl Point ASCII texts.

=item B

A frame class to write Perl Point backends.

=back


=head1 SUPPORT

A PerlPoint mailing list is set up to discuss usage, ideas,
bugs, suggestions and translator development. To subscribe,
please send an empty message to [e-mail].

If you prefer, you can contact me via [e-mail]
as well.


=head1 AUTHOR

Copyright (c) Jochen Stenzel ([e-mail]), 1999-2004.
All rights reserved.

This module is free software, you can redistribute it and/or modify it
under the terms of the Artistic License distributed with Perl version
5.003 or (at your option) any later version. Please refer to the
Artistic License that came with your Perl distribution for more
details.

The Artistic License should have been included in your distribution of
Perl. It resides in the file named "Artistic" at the top-level of the
Perl source tree (where Perl was downloaded/unpacked - ask your
system administrator if you dont know where this is).  Alternatively,
the current version of the Artistic License distributed with Perl can
be viewed on-line on the World-Wide Web (WWW) from the following URL:
http://www.perl.com/perl/misc/Artistic.html


=head1 DISCLAIMER

This software is distributed in the hope that it will be useful, but
is provided "AS IS" WITHOUT WARRANTY OF ANY KIND, either expressed or
implied, INCLUDING, without limitation, the implied warranties of
MERCHANTABILITY and FITNESS FOR A PARTICULAR PURPOSE.

The ENTIRE RISK as to the quality and performance of the software
IS WITH YOU (the holder of the software).  Should the software prove
defective, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
CORRECTION.

IN NO EVENT WILL ANY COPYRIGHT HOLDER OR ANY OTHER PARTY WHO MAY CREATE,
MODIFY, OR DISTRIBUTE THE SOFTWARE BE LIABLE OR RESPONSIBLE TO YOU OR TO
ANY OTHER ENTITY FOR ANY KIND OF DAMAGES (no matter how awful - not even
if they arise from known or unknown flaws in the software).

Please refer to the Artistic License that came with your Perl
distribution for more details.

=cut