HFile_turbopascal.php

Go to the documentation of this file.

<?php
 
$BEAUT_PATH = realpath(".") . "/Services/COPage/syntax_highlight/php";
if (!isset($BEAUT_PATH)) {
    return;
}
require_once("$BEAUT_PATH/Beautifier/HFile.php");
  class HFile_turbopascal extends HFile
  {
      public function HFile_turbopascal()
      {
          $this->HFile();
     
          /*************************************/
          // Beautifier Highlighting Configuration File
          // Turbo Pascal
          /*************************************/
          // Flags
 
          $this->nocase                 = "1";
          $this->notrim                 = "0";
          $this->perl                   = "0";
 
          // Colours
 
          $this->colours                = array("blue", "purple", "gray", "brown", "blue");
          $this->quotecolour            = "blue";
          $this->blockcommentcolour     = "green";
          $this->linecommentcolour      = "green";
 
          // Indent Strings
 
          $this->indent                 = array("begin", "type");
          $this->unindent               = array("end");
 
          // String characters and delimiters
 
          $this->stringchars            = array("\"", "'");
          $this->delimiters             = array("~", "!", "@", "%", "^", "&", "*", "(", ")", "-", "+", "|", "\\", "/", "{", "}", "[", "]", ";", "\"", "'", "<", ">", " ", ",", "        ", ".", "?");
          $this->escchar                = "";
 
          // Comment settings
 
          $this->linecommenton          = array("//");
          $this->blockcommenton         = array("{");
          $this->blockcommentoff        = array("}");
 
          // Keywords (keyword mapping to colour number)
 
          $this->keywords               = array(
            "begin" => "1",
            "const" => "1",
            "else" => "1",
            "end" => "1",
            "function" => "1",
            "goto" => "1",
            "if" => "1",
            "label" => "1",
            "procedure" => "1",
            "program" => "1",
            "readln" => "1",
            "repeat" => "1",
            "uses" => "1",
            "var" => "1",
            "write" => "1",
            "writeln" => "1",
            "and" => "2",
            "array" => "2",
            "asm" => "2",
            "case" => "2",
            "destructor" => "2",
            "div" => "2",
            "do" => "2",
            "downto" => "2",
            "exports" => "2",
            "file" => "2",
            "for" => "2",
            "implementation" => "2",
            "in" => "2",
            ":=" => "3",
            "inhertited" => "3",
            "inline" => "3",
            "interface" => "3",
            "library" => "3",
            "mod" => "3",
            "nil" => "3",
            "not" => "3",
            "object" => "3",
            "of" => "3",
            "or" => "3",
            ";" => "4",
            "+" => "4",
            "-" => "4",
            "=" => "4",
            "//" => "4",
            "/" => "4",
            "%" => "4",
            "&" => "4",
            ">" => "4",
            "<" => "4",
            "^" => "4",
            "!" => "4",
            "|" => "4",
            "packed" => "5",
            "private" => "5",
            "public" => "5",
            "record" => "5",
            "set" => "5",
            "shl" => "5",
            "shr" => "5",
            "string" => "5",
            "then" => "5",
            "to" => "5",
            "type" => "5",
            "unit" => "5",
            "until" => "5",
            "with" => "5",
            "xor" => "5");
 
          // Special extensions
 
 
          // Each category can specify a PHP function that returns an altered
          // version of the keyword.
 
 
 
 
 
          $this->linkscripts            = array(
            "1" => "donothing",
            "2" => "donothing",
            "3" => "donothing",
            "4" => "donothing",
            "5" => "donothing");
      }
 
 
 
      public function donothing($keywordin)
      {
          return $keywordin;
      }
  }