G'day All,

I use a scripting language, called NWScript, for some CRPG development that I do from time to time.

I wrote the following Perl script to syntax-highlight NWScript code for HTML rendering:

#!/usr/bin/env perl

use 5.014;
use warnings;

{
    my %entity_for = qw{& &amp; < &lt; > &gt;};
    sub chars_to_ents { $_[0] =~ s/([&<>])/$entity_for{$1}/gr }
}

my @plain_captures = qw{white_space remainder};
my @highlight_captures = qw{operator variable function constant statem
+ent
                            datatype comment string integer float prag
+ma};

my $re = qr{
    (?>
        (?<white_space>
            \s+
        )
    |
        (?<comment>
            (?>
                \/\* (?: . (?! \*\/ ) )*+ (?: . (?= \*\/ ) )?+ \*\/
            |
                \/\/ [^\n]* $
            )
        )
    |
        (?<pragma>
            (?>
                [#]include \s+ " \w+ " \s* $
            |
                [#]define \s+ \w+ \s+ \w+ \s* $
            )
        )
    |
        (?<string>
            " (?: [^"\\]++ | \\. )*+ "
        )
    |
        (?<float>
            \b \d+ \. \d+ f? \b
        )
    |
        (?<integer>
            \b \d+ \b
        )
    |
        (?<constant>
            \b [A-Z0-9_]+ \b
        )
    |
        (?<datatype>
            \b (?>
                action | const | effect | event | float | int
                | itemproperty | location | object | string
                | struct \s+ \w+ | talent | vector | void
            ) \b
        )
    |
        (?<statement>
            \b (?>
                break | continue | do | for | if | else
                | return | switch | case | default | while
            ) \b
        )
    |
        (?<function>
            \b [A-Za-z_] \w* (?= \s*\( )
        )
    |
        (?<variable>
            \b [A-Za-z_] \w* \b
        )
    |
        (?<operator>
            (?>
                \>\>\>\= | \>\>\> | \>\>\= | \<\<\= | \>\> | \<\< | \+
+\+ | \-\-
                | \&\= | \|\= | \^\= | \*\= | \/\= | \%\= | \+\= | \-\
+=
                | \=\= | \!\= | \<\= | \>\= | \&\& | \|\|
                | \< | \> | \! | \& | \| | \^ | \~ | \* | \/ | \% | \+
+ | \- | \=
                | \? | \: | \; | \. | \{ | \} | \( | \) | \, | \@
            )
        )
    |
        (?<remainder>
            .*?
        )
    )
}msx;

my $init_code = do { local $/; <> };

say '<pre class="syntax-highlight">';

MATCH:
while ($init_code =~ /$re/g) {
    for my $plain_capture (@plain_captures) {
        if (exists $+{$plain_capture}) {
            print $+{$plain_capture};
            next MATCH;
        }
    }

    for my $highlight_capture (@highlight_captures) {
        if (exists $+{$highlight_capture}) {
            print '<span class="', $highlight_capture, '">',
                    chars_to_ents($+{$highlight_capture}), '</span>';
            next MATCH;
        }
    }
}

say '</pre>';

exit;
[download]

NWScript uses a C-like syntax. I'm aware that a few monks use NWScript; however, I'd guess most don't and have probably never heard of it. So, purely to provide an example that's looks a little more familiar to most, here's a slightly fudged (just the #include pragma) hello.c:

/* hello.c */

#include "stdio"

main()
{
    printf("hello, world\n");
}
[download]

And here's the output after running that through my script:

<pre class="syntax-highlight">
<span class="comment">/* hello.c */</span>

<span class="pragma">#include "stdio"
</span>
<span class="function">main</span><span class="operator">(</span><span
+ class="operator">)</span>
<span class="operator">{</span>
    <span class="function">printf</span><span class="operator">(</span
+><span class="string">"hello, world\n"</span><span class="operator">)
+</span><span class="operator">;</span>
<span class="operator">}</span>
</pre>
[download]

For anyone wishing to use this script, here's the CSS I use (in the Spoiler):

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.