cfglex.l 3.6 KB
Newer Older
1
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; fill-column: 100 -*- */
2
/*
Michael Meeks's avatar
Michael Meeks committed
3 4 5 6 7
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8
 *
Michael Meeks's avatar
Michael Meeks committed
9 10 11 12 13 14 15 16 17 18 19
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you under the Apache
 *   License, Version 2.0 (the "License"); you may not use this file
 *   except in compliance with the License. You may obtain a copy of
 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
 */

20 21
%{

Michael Meeks's avatar
Michael Meeks committed
22 23
/*
 * lexer for parsing cfg source files
24 25
 */

Stephan Bergmann's avatar
Stephan Bergmann committed
26
#include <sal/config.h>
27

28 29 30 31 32
/* enlarge token buffer to tokenize whole strings */
#undef YYLMAX
#define YYLMAX 64000

/* to enable debug output define LEXDEBUG */
33
#define LEXDEBUG        1
34
#ifdef LEXDEBUG
35
#define OUTPUT  fprintf
36 37 38 39 40
#else
#define OUTPUT(Par1,Par2);
#endif

/* table of possible token ids */
Stephan Bergmann's avatar
Stephan Bergmann committed
41
#include <tokens.h>
42 43 44
#include <stdlib.h>
#include <stdio.h>

Stephan Bergmann's avatar
Stephan Bergmann committed
45
#include <sal/main.h>
46

Stephan Bergmann's avatar
Stephan Bergmann committed
47
#include <cfglex.hxx>
48

49
#define YY_NO_UNISTD_H
50

Stephan Bergmann's avatar
Stephan Bergmann committed
51
static int yycolumn = 1;
52 53
#define YY_USER_ACTION yycolumn += yyleng;

Stephan Bergmann's avatar
Stephan Bergmann committed
54
static int bText=0;
55 56
%}

57
%option yylineno
58 59
%option never-interactive

60 61 62 63 64 65
%p 24000
%e 1200
%n 500

%%

66 67 68
\<[^\>]*"xml:lang="\""x-no-translate"\"[^\<]*\/\>   {
    bText = 0;
    workOnTokenSet( CFG_TOKEN_NO_TRANSLATE, yytext );
69 70
}

71
\<.*\/\> {
72 73
    bText = 0;
    workOnTokenSet( ANYTOKEN, yytext );
74 75
}

76 77 78
\<[^\>]*"xml:lang="\".*\"[^\<]*\>   {
    bText = 1;
    workOnTokenSet( CFG_TEXT_START, yytext );
79 80
}

81

82 83 84
\<[^\/\!][^\>]*\>   {
    bText = 0;
    workOnTokenSet( CFG_TAG, yytext );
85 86
}

87 88 89
"<!"DOCTYPE[^\>]*\> {
    bText = 0;
    workOnTokenSet( CFG_TAG, yytext );
90 91
}

92

93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114
\<\!\-\-    {
    char c1 = 0, c2 = 0;
    int c3 = yyinput();
    char pChar[2];
    pChar[1] = 0x00;
    pChar[0] = c3;

    workOnTokenSet( COMMENT, yytext );
    workOnTokenSet( COMMENT, pChar );

    for(;;) {
        if ( c3 == EOF )
            break;
        if ( c1 == '-' && c2 == '-' && c3 == '>' )
            break;
        c1 = c2;
        c2 = c3;
        c3 = yyinput();

        pChar[0] = c3;
        workOnTokenSet( COMMENT, pChar );
    }
115 116 117
}

\<\/[^\>]*\> {
118 119
    bText = 0;
    workOnTokenSet( CFG_CLOSETAG, yytext );
120 121
}

122
\<[^\>\!]*\> {
123 124 125 126 127
    bText = 0;
    if ( yytext[ 1 ] == '!' && yytext[ 2 ] == '-' && yytext[ 3 ] == '-' )
        workOnTokenSet( COMMENT, yytext );
    else
        workOnTokenSet( CFG_UNKNOWNTAG, yytext );
128 129 130
}

.|\n {
131
    yycolumn = 1;
132 133 134 135
    if ( bText == 1 )
        workOnTokenSet( CFG_TEXTCHAR, yytext );
    else
        workOnTokenSet( UNKNOWNCHAR, yytext );
136 137 138 139 140 141
}


%%

/*****************************************************************************/
142
int yywrap(void)
143 144
/*****************************************************************************/
{
145
    return 1;
146 147 148
}

/*****************************************************************************/
149
void yyerror ( const char *s )
150 151
/*****************************************************************************/
{
152 153 154 155
    /* write error to stderr */
    fprintf( stderr,
        "Error: \"%s\" in line %d, column %d: \"%s\"\n", s, yylineno, yycolumn, yytext  );
    exit(EXIT_FAILURE);
156 157
}

158
SAL_IMPLEMENT_MAIN_WITH_ARGS(argc, argv) {
159 160 161
    yyin = init(argc, argv);
    yylex();
    return EXIT_SUCCESS;
162
}
163 164

/* vim:set shiftwidth=4 softtabstop=4 expandtab cinoptions=b1,g0,N-s cinkeys+=0=break: */