ruby.st

/**
* Name: ruby
* Description: Ruby programming language.
* Author: Mike Wilson <m.v.wilson at home.com>
*/

state ruby_comment
{
/\*\\\// {
language_print ($0);
return;
}
LANGUAGE_SPECIALS {
language_print ($0);
}
}

state ruby_dquot_string
{
/\\\\./ {
language_print ($0);
}
/\"/ {
language_print ($0);
return;
}
LANGUAGE_SPECIALS {
language_print ($0);
}
}

state ruby_quot_string
{
/\\\\./ {
language_print ($0);
}
/[\']/ {
language_print ($0);
return;
}
LANGUAGE_SPECIALS {
language_print ($0);
}
}

state ruby_bquot_string
{
/\\\\./ {
language_print ($0);
}
/`/ {
language_print ($0);
return;
}
LANGUAGE_SPECIALS {
language_print ($0);
}
}

state ruby
{
BEGIN {
header ();
}
END {
trailer ();
}

/* Comments. */
/#[^{].*$/ {
comment_face (true);
language_print ($0);
comment_face (false);
}

/* Ignore escaped quote marks */
/\\\"/ {
language_print ($0);
}
/\\\'/ {
language_print ($0);
}
/\\\`/ {
language_print ($0);
}

/* In cgi files, JavaScript might be imbedded, so we need to look out
* for the JavaScript comments, because they might contain something
* we don't like, like a contraction (don't, won't, etc.)
* We won't put them in comment face, because they are not ruby
* comments.
*/
/\/\// {
language_print ($0);
call (eat_one_line);
}

/* String constants. */
/\"/ {
string_face (true);
language_print ($0);
call (ruby_dquot_string);
string_face (false);
}
/[\']/ {
string_face (true);
language_print ($0);
call (ruby_quot_string);
string_face (false);
}

/* Backquoted command string */
/`/ {
string_face (true);
language_print ($0);
call (ruby_bquot_string);
string_face (false);
}

/* Variables globals and instance */
/[$@]\w+/ {
variable_name_face (true);
language_print ($0);
variable_name_face (false);
}

/* Variables class variable */
/@@\w+/ {
variable_name_face (true);
language_print ($0);
variable_name_face (false);
}

/([ \t]*)(def)([ \t]+)([^(]*)/ {
/* indentation */
language_print ($1);

/* def */
keyword_face (true);
language_print ($2);
keyword_face (false);

/* middle */
language_print ($3);

/* Function name. */
function_name_face (true);
language_print ($4);
function_name_face (false);
}

/\$[!@&`'+~=3D\/\\,;.<>_*$?:"]/ {
variable_name_face (true);
language_print ($0);
variable_name_face (false);
}

/* Highlighting
=09--Type face
=09private protected public

=09--Builtin face (I consider these to be somewhat special)
=09alias alias_method attr attr_accessor attr_reader attr_writer=20
=09module_alias module_function self super

=09--Reference face
=09require include

=09--Keyword face
=09and begin break case class def defined? do else elsif end=20
=09ensure eval extend false for if in method module next nil not=20
=09or redo rescue retry return then true undef unless until when
=09while yield
*/
/\\b(private|protected|public)\\b/ {
type_face (true);
language_print ($0);
type_face (false);
}

/\\b(alias|alias_method|attr|attr_accessor|attr_rea der|attr_writer\\
|module_alias|module_function|self|super)\\b/ {
builtin_face (true);
language_print ($0);
builtin_face (false);
}

/\\b(include|require)\\b/ {
reference_face (true);
language_print ($0);
reference_face (false);
}

/\\b(and|begin|break|case|class|def|defined?|do|els e|elsif|end|ensure|eval\=
\
|extend|false|for|if|in|method|module|next|nil|not |or|raise|redo|rescue|ret=
ry\\
|return|then|true|undef|unless|until|when|while|yi eld)\\b/ {
keyword_face (true);
language_print ($0);
keyword_face (false);
}

LANGUAGE_SPECIALS {
language_print ($0);
}
}


/*
Local variables:
mode: c
End:
*/