l2l_scanner: Print "Abbildung|Listing" in bold font in figure captions.

[lm2latex.git] / src / l2l_scanner.l

diff --git a/src/l2l_scanner.l b/src/l2l_scanner.l
index 251b93b3685f683febbaec9b4b7a886cd42ab01d..cf7000c567cf1bdc2925b8a136fe2d53f89937fc 100644 (file)
--- a/src/l2l_scanner.l
+++ b/src/l2l_scanner.l
@@ -236,6 +236,11 @@ ANY_COMMAND @(R|SW|D|T|V|A|L|ZT|LI|B|Bi|IT|IL|IE|KT|KL|KE|TT|TH|TL|TE):
                        l2l_sub = 1;
                }
        }
+
+       \[[0-9]+\] {
+               L2L_YY_APPEND_OR_ECHO(l2l_buf_ptr,
+                               "{\\bfseries\\textcolor{DarkBlue}{%s}}", yytext);
+       }
 }
 
 \<[uU]> {
@@ -252,6 +257,10 @@ ANY_COMMAND @(R|SW|D|T|V|A|L|ZT|LI|B|Bi|IT|IL|IE|KT|KL|KE|TT|TH|TL|TE):
        L2L_YY_APPEND_OR_ECHO(l2l_buf_ptr, "%s", yytext);
 }
 
+(Abbildung|Listing)({WHITESPACE}|\n)+[0-9]+ {
+       L2L_YY_APPEND_OR_ECHO(l2l_buf_ptr, "\\textcolor{DarkBlue}{%s}", yytext);
+}
+
        /*
         * header
         */
@@ -427,10 +436,12 @@ ANY_COMMAND @(R|SW|D|T|V|A|L|ZT|LI|B|Bi|IT|IL|IE|KT|KL|KE|TT|TH|TL|TE):
         * images/boxes
         */
 
-@(B|KT):{WHITESPACE}* {
+@(B|KT):{WHITESPACE}*((Abbildung|Listing)({WHITESPACE}|\n)+[0-9]+:)? {
        _Bool is_image = 0;
        _Bool is_box   = 0;
 
+       char *label    = NULL;
+
        if (! strncmp(yytext, "@B:", 3))
                is_image = 1;
        else if (! strncmp(yytext, "@KT:", 4))
@@ -447,6 +458,14 @@ ANY_COMMAND @(R|SW|D|T|V|A|L|ZT|LI|B|Bi|IT|IL|IE|KT|KL|KE|TT|TH|TL|TE):
                l2l_scanner_state = L2L_BODY;
        }
 
+       label = strstr(yytext, "Abbildung");
+       if (! label)
+               label = strstr(yytext, "Listing");
+
+       if (label)
+               if (l2l_strbuf_append(&l2l_caption, "{\\bfseries %s}", label))
+                       YY_FATAL_ERROR("ERROR: internal error");
+
        l2l_buf_ptr = &l2l_caption;
        if (is_image)
                BEGIN(caption);