Menu
▾
▴
[Docutils-checkins] r6281 - in trunk/prest/t/70_plugins/code_block.init: Dir.smak code15.dom code15.rst mkfile.st
|
From: <mn...@us...> - 2010-03-23 19:51:54
|
Author: mnodine
Date: 2010-03-23 20:04:54 +0100 (Tue, 23 Mar 2010)
New Revision: 6281
Added:
trunk/prest/t/70_plugins/code_block.init/code15.dom
trunk/prest/t/70_plugins/code_block.init/code15.rst
trunk/prest/t/70_plugins/code_block.init/mkfile.st
Modified:
trunk/prest/t/70_plugins/code_block.init/Dir.smak
Log:
Added test of "-D code-block-states-flags"
Modified: trunk/prest/t/70_plugins/code_block.init/Dir.smak
===================================================================
--- trunk/prest/t/70_plugins/code_block.init/Dir.smak 2010-03-23 19:03:21 UTC (rev 6280)
+++ trunk/prest/t/70_plugins/code_block.init/Dir.smak 2010-03-23 19:04:54 UTC (rev 6281)
@@ -7,5 +7,7 @@
code10 => q(-D code-block-states-file=nosuchfile.rst),
code11 => q(-D code-block-states-file=nosuchfile.rst),
code14 => q(-D code-block-states-file=nosuchfile.rst),
+ code15 => q(-D code-block-states-file=mkfile.st \
+ -D code-block-states-flags='-D specials="BIN_[A-Z]+"'),
);
}
Added: trunk/prest/t/70_plugins/code_block.init/code15.dom
===================================================================
--- trunk/prest/t/70_plugins/code_block.init/code15.dom 2010-03-23 19:03:21 UTC (rev 6280)
+++ trunk/prest/t/70_plugins/code_block.init/code15.dom 2010-03-23 19:04:54 UTC (rev 6281)
@@ -0,0 +1,50 @@
+<document source="test data">
+ <paragraph>
+ Tests a code block with custom flags to states.
+ <system_message level="1" line="5" source="test data" type="INFO">
+ <paragraph>
+ No directive entry for "code_block" in module "Text::Restructured::Directive".
+ Trying "code_block" as canonical directive name.
+ <parsed_literal xml:space="preserve">
+ <inline classes="comment">
+ # A make file
+
+ <inline classes="special">
+ BIN_DIR
+ = ../bin
+ <inline classes="special">
+ BIN_TARGETS
+ = $(
+ <inline classes="reference-name">
+ notdir $(PRL_FILES:.prl=) $(PM_FILES) $(WRT_FILES)
+ )
+ DIREC_PM_FILES := $(
+ <inline classes="reference-name">
+ filter-out %~,$(wildcard directives/*)
+ )
+ DIREC_TARGETS = $(
+ <inline classes="reference-name">
+ subst directives,Directive,$(DIREC_PM_FILES)
+ )
+ BINS = $(
+ <inline classes="reference-name">
+ addprefix $(BIN_DIR)/,$(BIN_TARGETS) $(DIREC_TARGETS)
+ )
+ \n\
+ <inline classes="keyword">
+ default:
+ $(
+ <inline classes="reference-name">
+ BIN_DIR
+ ) $(
+ <inline classes="reference-name">
+ BIN_DIR
+ )/Directive $(
+ <inline classes="reference-name">
+ BINS
+ )
+ \n\
+ <inline classes="keyword">
+ $(BIN_DIR):
+
+ mkdir $@
Added: trunk/prest/t/70_plugins/code_block.init/code15.rst
===================================================================
--- trunk/prest/t/70_plugins/code_block.init/code15.rst 2010-03-23 19:03:21 UTC (rev 6280)
+++ trunk/prest/t/70_plugins/code_block.init/code15.rst 2010-03-23 19:04:54 UTC (rev 6281)
@@ -0,0 +1,18 @@
+Tests a code block with custom flags to states.
+
+.. role:: special
+
+.. code_block:: makefile
+ :color:
+
+ # A make file
+ BIN_DIR = ../bin
+ BIN_TARGETS = $(notdir $(PRL_FILES:.prl=) $(PM_FILES) $(WRT_FILES))
+ DIREC_PM_FILES := $(filter-out %~,$(wildcard directives/*))
+ DIREC_TARGETS = $(subst directives,Directive,$(DIREC_PM_FILES))
+ BINS = $(addprefix $(BIN_DIR)/,$(BIN_TARGETS) $(DIREC_TARGETS))
+
+ default: $(BIN_DIR) $(BIN_DIR)/Directive $(BINS)
+
+ $(BIN_DIR):
+ mkdir $@
Added: trunk/prest/t/70_plugins/code_block.init/mkfile.st
===================================================================
--- trunk/prest/t/70_plugins/code_block.init/mkfile.st 2010-03-23 19:03:21 UTC (rev 6280)
+++ trunk/prest/t/70_plugins/code_block.init/mkfile.st 2010-03-23 19:04:54 UTC (rev 6281)
@@ -0,0 +1,855 @@
+/*
+ $Id: rst.st 768 2006-01-28 03:33:28Z marknodine $
+ Copyright (C) 2002-2005 Freescale Semiconductor, Inc.
+ Distributed under terms of the Perl license, which is the disjunction of
+ the GNU General Public License (GPL) and the Artistic License.
+*/
+parsed_literal = 0;
+
+sub custom_face (on, face) {
+}
+
+sub rst_faces ()
+{
+ final_whitespace = "";
+ in_markup = false;
+
+ /* RGB -> PostScript color mapper function. */
+ sub map_color (r, g, b)
+ {
+ return sprintf ("%f %f %f", r div 255.0, g div 255.0, b div 255.0);
+ }
+
+ /* Language special characters. */
+ LANGUAGE_SPECIALS = /[_`*\|\\\\\n]/;
+
+ sub language_print (str)
+ {
+ str = regsuball (str, /[_*`|\\\\]/, "\\$0");
+
+ if (in_markup) {
+ old_final_whitespace = final_whitespace;
+ final_whitespace = regsub (str, /([ \n]*[^ \n]+)*([ \n]*)$/, "$2");
+ str = regsub (str, /[ \n]*$/, "");
+ str = concat(old_final_whitespace, str);
+ }
+ if (parsed_literal)
+ str = regsuball (str, /\n/, "\n ");
+
+ /*print ("<");/* */
+ print (str);
+ /*print (">");/* */
+ }
+
+ sub header ()
+ {
+ if (parsed_literal)
+ print (".. parsed-literal::\n\n ");
+ /* Nothing here. */
+ }
+
+ sub trailer ()
+ {
+ /* Nothing here. */
+ }
+
+ sub font (name)
+ {
+ print ("\0font{", name, "@", ptsize, "}");
+ }
+
+ sub color (name)
+ {
+ print ("\0color{", name, "}");
+ }
+
+ sub default ()
+ {
+ print ("\0font{default}");
+ if (color)
+ print ("\0color{default}");
+ }
+
+ sub bold (on)
+ {
+ if (on)
+ {
+ font (bold_font);
+ if (color)
+ color (bold_color);
+ }
+ else
+ default ();
+ }
+
+ sub italic (on)
+ {
+ if (on)
+ {
+ font (italic_font);
+ if (color)
+ color (italic_color);
+ }
+ else
+ default ();
+ }
+
+ sub bold_italic (on)
+ {
+ if (on)
+ {
+ font (bold_italic_font);
+ if (color)
+ color (bold_italic_color);
+ }
+ else
+ default ();
+ }
+
+ sub start_markup (fontname)
+ {
+ if (color)
+ print("\\ `\\ ");
+ else {
+ markup_tag = strcmp(fontname, bold_font) ? "**" :
+ strcmp(fontname, italic_font) ? "*" :
+ strcmp(fontname, bold_italic_font) ? "***" : "";
+ print ("\\ ", markup_tag, "\\ ");
+ }
+ final_whitespace = "";
+ in_markup = true;
+ LANGUAGE_SPECIALS = /./;
+ }
+
+ sub end_markup (class)
+ {
+ if (color)
+ print ("`:", class, ":");
+ else
+ print (markup_tag, "\\ ");
+ in_markup = false;
+ LANGUAGE_SPECIALS = /[_`*\|\\\\\n]/;
+ language_print(final_whitespace);
+ }
+
+ sub comment_face (on)
+ {
+ if (on)
+ start_markup(comment_face_font);
+ else
+ end_markup("comment");
+
+ }
+
+ sub function_name_face (on)
+ {
+ if (on) {
+ start_markup(function_name_face_font);
+ }
+ else
+ end_markup("function-name");
+ }
+
+ sub variable_name_face (on)
+ {
+ if (on)
+ start_markup(variable_name_face_font);
+ else
+ end_markup("variable-name");
+ }
+
+ sub keyword_face (on)
+ {
+ if (on)
+ start_markup(keyword_face_font);
+ else
+ end_markup("keyword");
+ }
+
+ sub reference_face (on)
+ {
+ if (on)
+ start_markup(reference_face_font);
+ else
+ end_markup("reference-name");
+ }
+
+ sub string_face (on)
+ {
+ if (on)
+ start_markup(string_face_font);
+ else
+ end_markup("string");
+ }
+
+ sub builtin_face (on)
+ {
+ if (on)
+ start_markup(builtin_face_font);
+ else
+ end_markup("builtin");
+ }
+
+ sub type_face (on)
+ {
+ if (on)
+ start_markup(type_face_font);
+ else
+ end_markup("type-name");
+ }
+ sub custom_face (on, class)
+ {
+ if (on)
+ start_markup(font);
+ else
+ end_markup(class);
+ }
+}
+
+/*
+ * States definitions file for GNU Enscript.
+ * Copyright (c) 1997-1998 Markku Rossi.
+ * Author: Markku Rossi <mt...@ik...>
+ *
+ * The latest version of this file can be downloaded from URL:
+ *
+ * http://www.iki.fi/~mtr/genscript/enscript.st
+ */
+
+/*
+ * This file is part of GNU enscript.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; see the file COPYING. If not, write to
+ * the Free Software Foundation, 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+/*
+ * $Id: enscript.st,v 1.1.1.1 1999/04/20 23:26:45 wsanchez Exp $
+ */
+
+/*
+ * Guildelines for writing new highlighting rules for the GNU Enscript.
+ *
+ * - all pretty-printing states should have a document comment like this:
+ *
+ * /**
+ * * Name: c
+ * * Description: C programming language.
+ * * Author: Author Name <au...@em...dress>
+ * * ...
+ *
+ * It is used by enscript's --help-pretty-print option to print
+ * description about supported pretty-printing modes.
+ *
+ * - BEGIN and END rules must call header() and trailer() subroutines:
+ *
+ * state c
+ * {
+ * BEGIN {
+ * header ();
+ * }
+ * END {
+ * trailer ();
+ * }
+ *
+ * - each state and possible help-states should have LANGUAGE_SPECIALS rule:
+ *
+ * LANGUAGE_SPECIALS {
+ * language_print ($0);
+ * }
+ *
+ * - all printing should be done with the language_print() procedure
+ * instead of the print() primitive.
+ *
+ * These rules ensures that enscript's --help-pretty-print option works
+ * and that the many2html utility script can convert all the
+ * --pretty-print supported languages to HTML.
+ */
+
+/* This script needs at least this version of the States program. */
+prereq ("1.5.0");
+
+/*
+ * Constants, fonts, etc.
+ */
+
+debug = "0";
+
+/* Boolean values. */
+true = 1;
+false = 0;
+
+font_spec = "Courier@10";
+
+/* These components are resolved from <font_spec>. */
+font = "";
+ptsize = "";
+
+/*
+ * Highlight levels. Possible values are:
+ * - none no highlighting
+ * - light light highlighting (comments and highlights)
+ * - heavy give all
+ */
+hl_level = "heavy";
+
+/*
+ * Colormodel. Possible values are:
+ * - blackwhite no colors, just black and white
+ * - emacs similar to emacs' font lock highlighting
+ */
+colormodel = "blackwhite";
+
+/*
+ * Target language. Possible values are:
+ * - enscript generate enscript special escapes
+ * - html generate HTML
+ * - overstrike generate overstrike (line printers, less)
+ * - texinfo generate Texinfo
+ * - rtf generate Rich Text Format (rtf - MS Word, WordPerfect)
+ * This code can be suched into MS Word or PowerPoint
+ * for a pretty version of the code
+ * - rst generate reStructuredText
+ */
+language = "enscript";
+
+/*
+ * How many input files we have.
+ */
+num_input_files = "1";
+current_input_file = 0;
+
+/*
+ * Document title.
+ */
+document_title = "Enscript Output";
+
+
+/*
+ * Color definitions.
+ */
+
+cindex = 0;
+rgb_values = list ();
+
+sub define_color (name, r, g, b)
+{
+ rgb_values[cindex] = list (name, r, g, b);
+ cindex = cindex + 1;
+}
+
+sub color_index (name)
+{
+ local i;
+
+ for (i = 0; i < length (rgb_values); i = i + 1)
+ if (strcmp (rgb_values[i][0], name) == 0)
+ return i;
+
+ return -1;
+}
+
+sub language_color (name)
+{
+ local idx;
+
+ idx = color_index (name);
+ if (idx < 0)
+ panic ("unknown color `", name, "'");
+
+ /*
+ * The map_color() subroutine is language specific and defined in
+ * *_faces() subroutine.
+ */
+ map_color (rgb_values[idx][1], rgb_values[idx][2], rgb_values[idx][3]);
+}
+
+/* RGB definitions for colors. These are borrowed from X's rgb.txt file. */
+
+define_color ("black", 0, 0, 0);
+define_color ("blue", 0, 0, 255);
+define_color ("cadet blue", 95, 158, 160);
+define_color ("dark goldenrod", 184, 134, 11);
+define_color ("dark olive green", 85, 107, 47);
+define_color ("firebrick", 178, 34, 34);
+define_color ("forest green", 34, 139, 34);
+define_color ("orchid", 218, 112, 214);
+define_color ("purple", 160, 32, 240);
+define_color ("rosy brown", 188, 143, 143);
+
+define_color ("DarkSeaGreen", 139, 179, 129);
+define_color ("Goldenrod", 237, 218, 116);
+define_color ("Aquamarine", 67, 183, 186);
+define_color ("SeaGreen2", 100, 233, 134);
+define_color ("Coral", 247, 101, 65);
+define_color ("DarkSlateGray1", 154, 254, 255);
+
+
+/*
+ * General helpers.
+ */
+
+sub debug (msg)
+{
+ if (debug_level)
+ print ("DEBUG: ", msg, "\n");
+}
+
+sub is_prefix (prefix, string)
+{
+ return strncmp (prefix, string, length (prefix)) == 0;
+}
+
+sub strchr (string, ch)
+{
+ local len = length (string), i;
+
+ for (i = 0; i < len; i = i + 1)
+ if (string[i] == ch)
+ return i;
+
+ return -1;
+}
+
+sub need_version (major, minor, beta)
+{
+ local r, v, i;
+
+ regmatch (version, (/([0-9]+)\.([0-9]+)\.([0-9]+)/));
+ v = list (int ($1), int ($2), int ($3));
+ r = list (major, minor, beta);
+
+ for (i = 0; i < 3; i = i + 1)
+ if (v[i] > r[i])
+ return 1;
+ else if (v[i] < r[i])
+ return 0;
+
+ /* Exact match. */
+ return 1;
+}
+
+/* Highlight types which match expression <re> from string <data>. */
+sub highlight_types (data, re)
+{
+ local match_len;
+
+ while (regmatch (data, re))
+ {
+ language_print ($B);
+ type_face (true);
+ language_print ($0);
+ type_face (false);
+
+ match_len = length ($B, $0);
+
+ data = substring (data, match_len, length (data));
+ }
+
+ language_print (data);
+}
+
+
+
+sub define_faces ()
+{
+ rst_faces ();
+}
+
+sub match_balanced_block (starter, ender)
+{
+ match_balanced_block_count = 1;
+ match_balanced_block_start = starter;
+ match_balanced_block_end = ender;
+ return call (match_balanced_block);
+}
+
+
+/*
+ * Initializations.
+ */
+
+start
+{
+ /* Set debug level. */
+ debug_level = int (debug);
+
+ /* Increment input file count. */
+ current_input_file = current_input_file + 1;
+
+ /* Resolve fonts. */
+ idx = strchr (font_spec, '@');
+ if (idx < 0)
+ panic ("malformed font spec: `", font_spec, "'");
+
+ font = substring (font_spec, 0, idx);
+ ptsize = substring (font_spec, idx + 1, length (font_spec));
+
+ debug (concat ("start: ", font, "@", ptsize));
+
+ /* Construct bold, italic, etc. fonts for our current body font. */
+ if (is_prefix ("AvantGarde", font))
+ {
+ bold_font = "AvantGarde-Demi";
+ italic_font = "AvantGarde-BookOblique";
+ bold_italic_font = "AvantGarde-DemiOblique";
+ }
+ else if (regmatch (font, /^Bookman|Souvenir/))
+ {
+ bold_font = concat ($0, "-Demi");
+ italic_font = concat ($0, "-LightItalic");
+ bold_italic_font = concat ($0, "-DemiItalic");
+ }
+ else if (regmatch (font, /^(.*)-Roman$/))
+ {
+ bold_font = concat ($1, "-Bold");
+ italic_font = concat ($1, "-Italic");
+ bold_italic_font = concat ($1, "-BoldItalic");
+ }
+ else if (regmatch (font, /^LucidaSans-/))
+ {
+ bold_font = concat (font, "Bold");
+ italic_font = concat (font, "Oblique");
+ bold_italic_font = concat (font, "BoldOblique");
+ }
+ else
+ {
+ bold_font = concat (font, "-Bold");
+ italic_font = concat (font, "-Oblique");
+ bold_italic_font = concat (font, "-BoldOblique");
+ }
+
+ /* Define output faces. */
+ define_faces ();
+
+ /* Select colormodel. */
+ if (strcmp (colormodel, "blackwhite") == 0)
+ {
+ color = 0;
+ }
+ else if (strcmp (colormodel, "emacs") == 0)
+ {
+ color = 1;
+ bold_color = language_color ("black");
+ italic_color = language_color ("black");
+ bold_italic_color = language_color ("black");
+ comment_face_color = language_color ("firebrick");
+ function_name_face_color = language_color ("blue");
+ variable_name_face_color = language_color ("dark goldenrod");
+ keyword_face_color = language_color ("purple");
+ reference_face_color = language_color ("cadet blue");
+ string_face_color = language_color ("rosy brown");
+ builtin_face_color = language_color ("orchid");
+ type_face_color = language_color ("forest green");
+ }
+ else if (strcmp (colormodel, "ifh") == 0)
+ {
+ color = 1;
+ bold_color = language_color ("black");
+ italic_color = language_color ("black");
+ bold_italic_color = language_color ("black");
+ comment_face_color = language_color ("DarkSeaGreen");
+ function_name_face_color = language_color ("Coral");
+ variable_name_face_color = language_color ("dark goldenrod");
+ keyword_face_color = language_color ("SeaGreen2");
+ reference_face_color = language_color ("forest green");
+ string_face_color = language_color ("Goldenrod");
+ reference_face_color = language_color ("Aquamarine");
+ builtin_face_color = language_color ("purple");
+ type_face_color = language_color ("DarkSlateGray1");
+ }
+ else
+ panic ("unknown color model `", colormodel, "'");
+
+ /* Select highlight level. */
+ if (strcmp (hl_level, "none") == 0)
+ {
+ comment_face_font = font;
+ function_name_face_font = font;
+ variable_name_face_font = font;
+ keyword_face_font = font;
+ reference_face_font = font;
+ string_face_font = font;
+ builtin_face_font = font;
+ type_face_font = font;
+ }
+ else if (strcmp (hl_level, "light") == 0)
+ {
+ comment_face_font = italic_font;
+ function_name_face_font = bold_font;
+
+ if (color)
+ variable_name_face_font = font;
+ else
+ variable_name_face_font = bold_font;
+
+ keyword_face_font = bold_font;
+ reference_face_font = bold_font;
+ string_face_font = font;
+ builtin_face_font = font;
+ type_face_font = font;
+ }
+ else if (strcmp (hl_level, "heavy") == 0)
+ {
+ comment_face_font = italic_font;
+ function_name_face_font = bold_font;
+
+ if (color)
+ variable_name_face_font = font;
+ else
+ variable_name_face_font = bold_font;
+
+ keyword_face_font = bold_font;
+ reference_face_font = bold_font;
+ string_face_font = bold_font;
+ builtin_face_font = bold_font;
+ type_face_font = bold_font;
+ }
+ else
+ panic ("unknown highlight level `", hl_level, "'");
+
+ /* Resolve start state. */
+ if (check_startrules ())
+ debug ("startstate from startrules");
+ if (check_namerules ())
+ debug ("startstate from namerules");
+}
+
+namerules
+{
+ /\.(c|h)$/ c;
+ /\.(c++|C|H|cpp|cc|cxx)$/ cpp;
+ /\.m$/ objc;
+ /\.(scm|scheme)$/ scheme;
+ /\b\.emacs$|\.el$/ elisp;
+ /\.ad(s|b|a)$/ ada;
+ /\.[Ss]$/ asm;
+ /\.st$/ states;
+ /(M|m)akefile.*/ makefile;
+ /\.tcl$/ tcl;
+ /\.(v|vh)$/ verilog;
+ /\.html?$/ html;
+ /\bChangeLog$/ changelog;
+ /\.(vhd|vhdl)$/ vhdl;
+ /\.(scr|.syn|.synth)$/ synopsys;
+ /\.idl$/ idl;
+ /\.(hs|lhs|gs|lgs)$/ haskell;
+ /\.(pm|pl|prl)$/ perl;
+ /\.(eps|EPS|ps|PS)$/ postscript;
+ /\.py$/ python;
+ /\.js$/ javascript;
+ /\.java$/ java;
+ /\.([Pp][Aa][Ss]|[Pp][Pp]|[Pp])$/ pascal;
+ /\.[fF]$/ fortran;
+ /\.awk$/ awk;
+ /\.sh$/ sh;
+ /\.vba$/ vba;
+ /\.php$/ php;
+ /^.*$/ passthrough;
+}
+
+startrules
+{
+ /.\010.\010.\010./ nroff;
+ /-\*- [Cc] -\*-/ c;
+ /-\*- [Cc]\+\+ -\*-/ cpp;
+ /-\*- [Aa][Dd][Aa] -\*-/ ada;
+ /-\*- [Aa][Ss][Mm] -\*-/ asm;
+ /-\*- [Oo][Bb][Jj][Cc] -\*-/ objc;
+ /-\*- [Ss][Cc][Hh][Ee][Mm][Ee] -\*-/ scheme;
+ /-\*- [Ee][Mm][Aa][Cc][Ss] [Ll][Ii][Ss][Pp] -\*-/ elisp;
+ /-\*- [Tt][Cc][Ll] -\*-/ tcl;
+ /-\*- [Vv][Hh][Dd][Ll] -\*-/ vhdl;
+ /-\*- [Hh][Aa][Ss][Kk][Ee][Ll][Ll] -\*-/ haskell;
+ /-\*- [Ii][Dd][Ll] -\*-/ idl;
+ /-\*- [Pp][Ee][Rr][Ll] -\*-/ perl;
+ /^#![ \t]*(\/usr)?\/bin\/(ba|t?c)?sh/ sh;
+ /^#![ \t]*\/[^\n]*\/perl/ perl;
+ /^\04?%!/ postscript;
+ /^From:/ mail;
+ /^#![ \t]*(\/usr)?\/bin\/[ngmt]?awk/ awk;
+}
+
+
+/*
+ * Helper subroutines and states.
+ */
+
+state match_balanced_block
+{
+ match_balanced_block_start {
+ language_print ($0);
+ match_balanced_block_count = match_balanced_block_count + 1;
+ }
+
+ match_balanced_block_end {
+ match_balanced_block_count = match_balanced_block_count - 1;
+ if (match_balanced_block_count == 0)
+ return $0;
+
+ language_print ($0);
+ }
+
+ LANGUAGE_SPECIALS {
+ language_print ($0);
+ }
+}
+
+sub match_balanced_block (starter, ender)
+{
+ match_balanced_block_count = 1;
+ match_balanced_block_start = starter;
+ match_balanced_block_end = ender;
+ return call (match_balanced_block);
+}
+
+state eat_one_line
+{
+ /.*\n/ {
+ language_print ($0);
+ return;
+ }
+}
+
+state c_string
+{
+ /\\\\./ {
+ language_print ($0);
+ }
+ /\"/ {
+ language_print ($0);
+ return;
+ }
+ LANGUAGE_SPECIALS {
+ language_print ($0);
+ }
+}
+
+/**
+ * Name: makefile
+ * Description: Make program's definition files.
+ * Author: Markku Rossi <mt...@ik...>
+ */
+
+state sh_eat_to_apostrophe
+{
+ /[\']/ {
+ language_print ($0);
+ return;
+ }
+ LANGUAGE_SPECIALS {
+ language_print ($0);
+ }
+}
+
+state sh_eat_to_grave
+{
+ /`/ {
+ language_print ($0);
+ return;
+ }
+ LANGUAGE_SPECIALS {
+ language_print ($0);
+ }
+}
+
+state makefile
+{
+ BEGIN {
+ debug ("makefile");
+ specials_re = regexp(specials);
+ header ();
+ }
+ END {
+ trailer ();
+ }
+
+ /* Comments. */
+ /#/ {
+ comment_face (true);
+ language_print ($0);
+ call (eat_one_line);
+ comment_face (false);
+ }
+ /* An escaped double quote, this doesn't start a string constant. */
+ /\\\"/ {
+ language_print ($0);
+ }
+
+ /* String constants. */
+ /\"/ {
+ string_face (true);
+ language_print ($0);
+ call (c_string);
+ string_face (false);
+ }
+
+ /* Shell apostrophe quote. */
+ /[\']/ {
+ string_face (true);
+ language_print ($0);
+ call (sh_eat_to_apostrophe);
+ string_face (false);
+ }
+
+ /* Shell grave quote. */
+ /`/ {
+ string_face (true);
+ language_print ($0);
+ call (sh_eat_to_grave);
+ string_face (false);
+ }
+
+ /* Variable references. */
+
+ /\$\(/ {
+ language_print ($0);
+ reference_face (true);
+ str = match_balanced_block (/\(/, /\)/);
+ reference_face (false);
+ language_print (str);
+ }
+
+ /\${/ {
+ language_print ($0);
+ reference_face (true);
+ str = match_balanced_block (/{/, /}/);
+ reference_face (false);
+ language_print (str);
+ }
+
+ /* Targets. */
+ /^[^ \t\r\n]+:/ {
+ keyword_face (true);
+ language_print ($0);
+ keyword_face (false);
+ }
+
+ specials_re {
+ custom_face (true, "special");
+ language_print ($0);
+ custom_face (false, "special");
+ }
+
+ LANGUAGE_SPECIALS {
+ language_print ($0);
+ }
+}
+
+/*
+Local variables:
+mode: c
+End:
+*/
|