package modules::beautifier::HFile::HFile_awk;

###############################
#
# Beautifier Perl HFile
# Language: AWK Script
#
###############################

use modules::beautifier::Beautifier::HFile;
@ISA = qw(HFile);
sub new {
  my( $class ) = @_;
  my $self = {};
  bless $self, $class;

  # Flags:
  $self->{nocase}           = "0";
  $self->{notrim}           = "1";
  $self->{perl}             = "0";
  $self->{indent}           = ["{"];
  $self->{unindent}         = ["}"];
  $self->{stringchars}      = ["\"", "'"];
  $self->{delimiters}       = ["~", "!", "@", "%", "^", "&", "*", "(", ")", "-", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", ",", "	", ".", "?"];
  $self->{escchar}          = "";
  $self->{linecommenton}    = ["#"];
  $self->{blockcommenton}   = [];
  $self->{blockcommentoff}  = [];
  $self->{keywords}         = {
      "atan2" => "1", 
      "break" => "1", 
      "BEGIN" => "1", 
      "close" => "1", 
      "continue" => "1", 
      "cos" => "1", 
      "delete" => "1", 
      "do" => "1", 
      "else" => "1", 
      "exp" => "1", 
      "exit" => "1", 
      "END" => "1", 
      "for" => "1", 
      "function" => "1", 
      "getline" => "1", 
      "gsub" => "1", 
      "if" => "1", 
      "index" => "1", 
      "int" => "1", 
      "length" => "1", 
      "local" => "1", 
      "log" => "1", 
      "match" => "1", 
      "next" => "1", 
      "print" => "1", 
      "printf" => "1", 
      "rand" => "1", 
      "return" => "1", 
      "sin" => "1", 
      "split" => "1", 
      "sprintf" => "1", 
      "sqrt" => "1", 
      "srand" => "1", 
      "sub" => "1", 
      "substr" => "1", 
      "system" => "1", 
      "tolower" => "1", 
      "toupper" => "1", 
      "while" => "1", 
      "ARGC" => "2", 
      "ARGV" => "2", 
      "CONVFMT" => "2", 
      "ENVIRON" => "2", 
      "FILENAME" => "2", 
      "FNR" => "2", 
      "FS" => "2", 
      "NF" => "2", 
      "NR" => "2", 
      "OFMT" => "2", 
      "OFS" => "2", 
      "ORS" => "2", 
      "RLENGTH" => "2", 
      "RS" => "2", 
      "RSTART" => "2", 
      "SUBSEP" => "2", 
      "+" => "4", 
      "-" => "4", 
      "=" => "4", 
      "//" => "4", 
      "/" => "4", 
      "%" => "4", 
      "&" => "4", 
      ">" => "4", 
      "<" => "4", 
      "^" => "4", 
      "!" => "4", 
      "|" => "4", 
      '$' => "4", 
      "*" => "4"};

  # Each category can specify a Perl function that takes in the function name, and returns a string
  # to put in its place. This can be used to generate links, images, etc.

  $self->{linkscripts} = {
      "1"  => "donothing", 
      "2"  => "donothing",
      "3"  => "donothing",
      "4"  => "donothing"};
  return $self;
}

# DoNothing link function

sub donothing {
  my ( $self ) = @_;
  return;
}

1;