One Hat Cyber Team

Your IP : 216.73.217.15

Server IP : 157.15.65.100

Server : Linux 157-15-65-100.cprapid.com 5.14.0-362.24.2.el9_3.x86_64 #1 SMP PREEMPT_DYNAMIC Sat Mar 30 14:11:54 EDT 2024 x86_64

Server Software : Apache

PHP Version : 8.2.28

Buat File | Buat Folder

Dir : ~/usr/share/enscript/hl/

Edit File: objc.st

/**
 * Name: objc
 * Description: Objective-C programming language.
 * Author: Markku Rossi <mtr@iki.fi> with help of Emacs' `font-lock.el'.
 */

objc_type_re =
/* Types.
   (build-re '(auto extern register static typedef struct union enum
   signed unsigned short long int char float double void volatile
   const id oneway in out inout bycopy byref))
 */
  /\b(auto|by(copy|ref)|c(har|onst)|double|e(num|xtern)|float\
|i(d|n(|out|t))|long|o(neway|ut)|register|s(hort|igned|t(atic|ruct))\
|typedef|un(ion|signed)|vo(id|latile))\b/;

state objc_method_line extends CHighlight
{
  /* Argument declarations after the method.
   $1      $2                       $3       $4 $5           $6      $7 */
  /([ \t]*)([A-Za-z_][A-Za-z_0-9]*)?(:[ \t]*)($([^)\n]+)$)?([ \t]*)([A-Za-z_][A-Za-z_0-9]*)/ {
    language_print ($1);

if (length ($2) > 0)
      {
	function_name_face (true);
	language_print ($2);
	function_name_face (false);
      }

language_print ($3);

if (length ($4) > 0)
      {
	language_print ("(");
	type_face (true);
	language_print ($5);
	type_face (false);
	language_print (")");
      }

language_print ($6);

variable_name_face (true);
    language_print ($7);
    variable_name_face (false);
  }

/\n/ {
    language_print ($0);
    return;
  }
}

/* This is *not* inherited from CHighlight. */
state objc_method_continuation_line
{
  /* Method names and arguments on lines following the function declaration.
    $1      $2                       $3       $4 $5           $6      $7 */
  /^([ \t]*)([A-Za-z_][A-Za-z_0-9]*)?(:[ \t]*)($([^)\n]+)$)?([ \t]*)\
([A-Za-z_][A-Za-z_0-9]*)/ {
    language_print ($1);

if (length ($2) > 0)
      {
        function_name_face (true);
        language_print ($2);
        function_name_face (false);
      }

language_print ($3);

if (length ($4) > 0)
      {
        language_print ("(");
        type_face (true);
        language_print ($5);
        type_face (false);
        language_print (")");
      }

language_print ($6);

variable_name_face (true);
    language_print ($7);
    variable_name_face (false);

/* Highlight all remaining arguments on this line. */
    call (objc_method_line);
  }

/*
   * If the previous one didn't match, we'r done with this method
   * declaration.
   */
  /()/ {
    return;
  }
}

/* This is *not* inherited from CHighlight. */
state objc_compiler_directive_line
{
  /([ \t:<(,]*)([A-Za-z_][A-Za-z_0-9]*)/ {
    language_print ($1);

function_name_face (true);
    language_print ($2);
    function_name_face (false);
  }

/*
   * If the previous one didn't match, we'r done with this directive.
   * Yes, that should match an empty string.
   */
  /()/ {
    return;
  }
}

/*
 * We inherit the Objective-C state from the C state.  This gives us
 * all the defaults, etc.  All we have to do here is to overwrite
 * things that are not implemented, or are broken.
 */
state objc extends c
{
  BEGIN {
    /* See `c.st' for the comments on this one. */
    type_re = objc_type_re;
  }

/* One line comments. */
  /\/\// {
    comment_face (true);
    language_print ($0);
    call (eat_one_line);
    comment_face (false);
  }

/* Compiler directives. */
  /(@)([A-Za-z][A-Za-z0-9]*)\>/ {
    /* Leading garbage. */
    language_print ($1);

/* The directive. */
    keyword_face (true);
    language_print ($2);
    keyword_face (false);

/* And all the remaining stuff on this line. */
    call (objc_compiler_directive_line);
  }

/* Keywords.  Basicly what's missing from C *but* not goto or case.
     (build-re '(self super _cmd id Class SEL IMP BOOL YES NO nil Nil))
   */
  /\b(BOOL|Class|IMP|N(O|il)|SEL|YES|_cmd|id|nil|s(elf|uper))\b/ {
    keyword_face (true);
    language_print ($0);
    keyword_face (false);
  }

/* Types. */
 objc_type_re {
    type_face (true);
    language_print ($0);
    type_face (false);
  }

/* Method names.  First, on the same line as the function declaration.
   $1           $2        $3      $4 $5           $6      $7 */
  /(^[+-][ \t]*)(PRIVATE)?([ \t]*)($([^)\n]+)$)?([ \t]*)([A-Za-z_]\
[A-Za-z_0-9]*)/ {
    language_print ($1);

if (length ($2) > 0)
      {
	type_face (true);
	language_print ($2);
	type_face (false);
      }

language_print ($3);

if (length ($4) > 0)
      {
	language_print ("(");
	type_face (true);
	language_print ($5);
	type_face (false);
	language_print (")");
      }

language_print ($6);

function_name_face (true);
    language_print ($7);
    function_name_face (false);

/* Highlight arguments from the same line. */
    call (objc_method_line);

/*
     * Method names and arguments on lines following the function declaration.
     */
    call (objc_method_continuation_line);
  }

/*
   * Labels and case tags.  These must remain as a sole statement on a line,
   * otherwise we detect selectors.  Emacs accepts also bare numbers.
   */
  /^([ \t]*)([a-zA-Z0-9_]+)(:[ \t]*)$/ {
    language_print ($1);

reference_face (true);
    language_print ($2);
    reference_face (false);

language_print ($3);
  }
}

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