local-lib5/lib/perl5/Syntax/Highlight/Engine/Kate/Asm6502.pm

   1 # Copyright (c) 2005 - 2006 Hans Jeuken. All rights reserved.
   2 # This program is free software; you can redistribute it and/or
   3 # modify it under the same terms as Perl itself.
   4
   5 # This file was generated from the 'asm6502.xml' file of the syntax highlight
   6 # engine of the kate text editor (http://www.kate-editor.org
   7
   8 #kate xml version 1.04
   9 #kate version 2.1
  10 #generated: Sun Feb  3 22:02:04 2008, localtime
  11
  12 package Syntax::Highlight::Engine::Kate::Asm6502;
  13
  14 our $VERSION = '0.06';
  15
  16 use strict;
  17 use warnings;
  18 use base('Syntax::Highlight::Engine::Kate::Template');
  19
  20 sub new {
  21    my $proto = shift;
  22    my $class = ref($proto) || $proto;
  23    my $self = $class->SUPER::new(@_);
  24    $self->attributes({
  25       'Command' => 'Normal',
  26       'Comment' => 'Comment',
  27       'Data Type' => 'DataType',
  28       'Decimal' => 'DecVal',
  29       'Hex' => 'BaseN',
  30       'Keyword' => 'Keyword',
  31       'Normal Text' => 'Normal',
  32       'Operator' => 'Others',
  33       'Parameter' => 'Others',
  34       'Preprocessor' => 'Others',
  35       'String' => 'String',
  36       'Substitution' => 'Others',
  37    });
  38    $self->contextdata({
  39       'Base' => {
  40          callback => \&parseBase,
  41          attribute => 'Normal Text',
  42       },
  43       'Commentar 2' => {
  44          callback => \&parseCommentar2,
  45          attribute => 'Comment',
  46       },
  47    });
  48    $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
  49    $self->basecontext('Base');
  50    $self->keywordscase(0);
  51    $self->initialize;
  52    bless ($self, $class);
  53    return $self;
  54 }
  55
  56 sub language {
  57    return 'Asm6502';
  58 }
  59
  60 sub parseBase {
  61    my ($self, $text) = @_;
  62    # String => '#define.*$'
  63    # attribute => 'Preprocessor'
  64    # context => '#stay'
  65    # type => 'RegExpr'
  66    if ($self->testRegExpr($text, '#define.*$', 0, 0, 0, undef, 0, '#stay', 'Preprocessor')) {
  67       return 1
  68    }
  69    # String => '#include .*$'
  70    # attribute => 'Preprocessor'
  71    # context => '#stay'
  72    # type => 'RegExpr'
  73    if ($self->testRegExpr($text, '#include .*$', 0, 0, 0, undef, 0, '#stay', 'Preprocessor')) {
  74       return 1
  75    }
  76    # String => ';.*$'
  77    # attribute => 'Comment'
  78    # context => '#stay'
  79    # type => 'RegExpr'
  80    if ($self->testRegExpr($text, ';.*$', 0, 0, 0, undef, 0, '#stay', 'Comment')) {
  81       return 1
  82    }
  83    # String => '\.byte'
  84    # attribute => 'Data Type'
  85    # context => '#stay'
  86    # type => 'RegExpr'
  87    if ($self->testRegExpr($text, '\\.byte', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
  88       return 1
  89    }
  90    # String => '\.byt'
  91    # attribute => 'Data Type'
  92    # context => '#stay'
  93    # type => 'RegExpr'
  94    if ($self->testRegExpr($text, '\\.byt', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
  95       return 1
  96    }
  97    # String => '\.word'
  98    # attribute => 'Data Type'
  99    # context => '#stay'
 100    # type => 'RegExpr'
 101    if ($self->testRegExpr($text, '\\.word', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 102       return 1
 103    }
 104    # String => '\.asc'
 105    # attribute => 'Data Type'
 106    # context => '#stay'
 107    # type => 'RegExpr'
 108    if ($self->testRegExpr($text, '\\.asc', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 109       return 1
 110    }
 111    # String => '\.dsb'
 112    # attribute => 'Data Type'
 113    # context => '#stay'
 114    # type => 'RegExpr'
 115    if ($self->testRegExpr($text, '\\.dsb', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 116       return 1
 117    }
 118    # String => '\.fopt'
 119    # attribute => 'Data Type'
 120    # context => '#stay'
 121    # type => 'RegExpr'
 122    if ($self->testRegExpr($text, '\\.fopt', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 123       return 1
 124    }
 125    # String => '\.text'
 126    # attribute => 'Data Type'
 127    # context => '#stay'
 128    # type => 'RegExpr'
 129    if ($self->testRegExpr($text, '\\.text', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 130       return 1
 131    }
 132    # String => '\.data'
 133    # attribute => 'Data Type'
 134    # context => '#stay'
 135    # type => 'RegExpr'
 136    if ($self->testRegExpr($text, '\\.data', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 137       return 1
 138    }
 139    # String => '\.bss'
 140    # attribute => 'Data Type'
 141    # context => '#stay'
 142    # type => 'RegExpr'
 143    if ($self->testRegExpr($text, '\\.bss', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 144       return 1
 145    }
 146    # String => '\.zero'
 147    # attribute => 'Data Type'
 148    # context => '#stay'
 149    # type => 'RegExpr'
 150    if ($self->testRegExpr($text, '\\.zero', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 151       return 1
 152    }
 153    # String => '\.align'
 154    # attribute => 'Data Type'
 155    # context => '#stay'
 156    # type => 'RegExpr'
 157    if ($self->testRegExpr($text, '\\.align', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
 158       return 1
 159    }
 160    # String => '\$[A-Za-z0-9]*'
 161    # attribute => 'Hex'
 162    # context => '#stay'
 163    # type => 'RegExpr'
 164    if ($self->testRegExpr($text, '\\$[A-Za-z0-9]*', 0, 0, 0, undef, 0, '#stay', 'Hex')) {
 165       return 1
 166    }
 167    # String => ',x$'
 168    # attribute => 'Keyword'
 169    # context => '#stay'
 170    # insensitive => 'TRUE'
 171    # type => 'RegExpr'
 172    if ($self->testRegExpr($text, ',x$', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 173       return 1
 174    }
 175    # String => ',y$'
 176    # attribute => 'Keyword'
 177    # context => '#stay'
 178    # insensitive => 'TRUE'
 179    # type => 'RegExpr'
 180    if ($self->testRegExpr($text, ',y$', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 181       return 1
 182    }
 183    # String => '#'
 184    # attribute => 'Keyword'
 185    # context => '#stay'
 186    # insensitive => 'TRUE'
 187    # type => 'RegExpr'
 188    if ($self->testRegExpr($text, '#', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 189       return 1
 190    }
 191    # String => 'TAX'
 192    # attribute => 'Keyword'
 193    # context => '#stay'
 194    # insensitive => 'TRUE'
 195    # type => 'StringDetect'
 196    if ($self->testStringDetect($text, 'TAX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 197       return 1
 198    }
 199    # String => 'ADC'
 200    # attribute => 'Keyword'
 201    # context => '#stay'
 202    # insensitive => 'TRUE'
 203    # type => 'StringDetect'
 204    if ($self->testStringDetect($text, 'ADC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 205       return 1
 206    }
 207    # String => 'AND'
 208    # attribute => 'Keyword'
 209    # context => '#stay'
 210    # insensitive => 'TRUE'
 211    # type => 'StringDetect'
 212    if ($self->testStringDetect($text, 'AND', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 213       return 1
 214    }
 215    # String => 'ASL'
 216    # attribute => 'Keyword'
 217    # context => '#stay'
 218    # insensitive => 'TRUE'
 219    # type => 'StringDetect'
 220    if ($self->testStringDetect($text, 'ASL', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 221       return 1
 222    }
 223    # String => 'BCC'
 224    # attribute => 'Keyword'
 225    # context => '#stay'
 226    # insensitive => 'TRUE'
 227    # type => 'StringDetect'
 228    if ($self->testStringDetect($text, 'BCC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 229       return 1
 230    }
 231    # String => 'BCS'
 232    # attribute => 'Keyword'
 233    # context => '#stay'
 234    # insensitive => 'TRUE'
 235    # type => 'StringDetect'
 236    if ($self->testStringDetect($text, 'BCS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 237       return 1
 238    }
 239    # String => 'BEQ'
 240    # attribute => 'Keyword'
 241    # context => '#stay'
 242    # insensitive => 'TRUE'
 243    # type => 'StringDetect'
 244    if ($self->testStringDetect($text, 'BEQ', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 245       return 1
 246    }
 247    # String => 'BIT'
 248    # attribute => 'Keyword'
 249    # context => '#stay'
 250    # insensitive => 'TRUE'
 251    # type => 'StringDetect'
 252    if ($self->testStringDetect($text, 'BIT', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 253       return 1
 254    }
 255    # String => 'BMI'
 256    # attribute => 'Keyword'
 257    # context => '#stay'
 258    # insensitive => 'TRUE'
 259    # type => 'StringDetect'
 260    if ($self->testStringDetect($text, 'BMI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 261       return 1
 262    }
 263    # String => 'BNE'
 264    # attribute => 'Keyword'
 265    # context => '#stay'
 266    # insensitive => 'TRUE'
 267    # type => 'StringDetect'
 268    if ($self->testStringDetect($text, 'BNE', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 269       return 1
 270    }
 271    # String => 'BPL'
 272    # attribute => 'Keyword'
 273    # context => '#stay'
 274    # insensitive => 'TRUE'
 275    # type => 'StringDetect'
 276    if ($self->testStringDetect($text, 'BPL', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 277       return 1
 278    }
 279    # String => 'BRK'
 280    # attribute => 'Keyword'
 281    # context => '#stay'
 282    # insensitive => 'TRUE'
 283    # type => 'StringDetect'
 284    if ($self->testStringDetect($text, 'BRK', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 285       return 1
 286    }
 287    # String => 'BVC'
 288    # attribute => 'Keyword'
 289    # context => '#stay'
 290    # insensitive => 'TRUE'
 291    # type => 'StringDetect'
 292    if ($self->testStringDetect($text, 'BVC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 293       return 1
 294    }
 295    # String => 'BVS'
 296    # attribute => 'Keyword'
 297    # context => '#stay'
 298    # insensitive => 'TRUE'
 299    # type => 'StringDetect'
 300    if ($self->testStringDetect($text, 'BVS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 301       return 1
 302    }
 303    # String => 'CLC'
 304    # attribute => 'Keyword'
 305    # context => '#stay'
 306    # insensitive => 'TRUE'
 307    # type => 'StringDetect'
 308    if ($self->testStringDetect($text, 'CLC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 309       return 1
 310    }
 311    # String => 'CLD'
 312    # attribute => 'Keyword'
 313    # context => '#stay'
 314    # insensitive => 'TRUE'
 315    # type => 'StringDetect'
 316    if ($self->testStringDetect($text, 'CLD', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 317       return 1
 318    }
 319    # String => 'CLI'
 320    # attribute => 'Keyword'
 321    # context => '#stay'
 322    # insensitive => 'TRUE'
 323    # type => 'StringDetect'
 324    if ($self->testStringDetect($text, 'CLI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 325       return 1
 326    }
 327    # String => 'CLV'
 328    # attribute => 'Keyword'
 329    # context => '#stay'
 330    # insensitive => 'TRUE'
 331    # type => 'StringDetect'
 332    if ($self->testStringDetect($text, 'CLV', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 333       return 1
 334    }
 335    # String => 'CMP'
 336    # attribute => 'Keyword'
 337    # context => '#stay'
 338    # insensitive => 'TRUE'
 339    # type => 'StringDetect'
 340    if ($self->testStringDetect($text, 'CMP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 341       return 1
 342    }
 343    # String => 'CPX'
 344    # attribute => 'Keyword'
 345    # context => '#stay'
 346    # insensitive => 'TRUE'
 347    # type => 'StringDetect'
 348    if ($self->testStringDetect($text, 'CPX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 349       return 1
 350    }
 351    # String => 'CPY'
 352    # attribute => 'Keyword'
 353    # context => '#stay'
 354    # insensitive => 'TRUE'
 355    # type => 'StringDetect'
 356    if ($self->testStringDetect($text, 'CPY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 357       return 1
 358    }
 359    # String => 'DEC'
 360    # attribute => 'Keyword'
 361    # context => '#stay'
 362    # insensitive => 'TRUE'
 363    # type => 'StringDetect'
 364    if ($self->testStringDetect($text, 'DEC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 365       return 1
 366    }
 367    # String => 'DEX'
 368    # attribute => 'Keyword'
 369    # context => '#stay'
 370    # insensitive => 'TRUE'
 371    # type => 'StringDetect'
 372    if ($self->testStringDetect($text, 'DEX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 373       return 1
 374    }
 375    # String => 'DEY'
 376    # attribute => 'Keyword'
 377    # context => '#stay'
 378    # insensitive => 'TRUE'
 379    # type => 'StringDetect'
 380    if ($self->testStringDetect($text, 'DEY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 381       return 1
 382    }
 383    # String => 'EOR'
 384    # attribute => 'Keyword'
 385    # context => '#stay'
 386    # insensitive => 'TRUE'
 387    # type => 'StringDetect'
 388    if ($self->testStringDetect($text, 'EOR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 389       return 1
 390    }
 391    # String => 'INC'
 392    # attribute => 'Keyword'
 393    # context => '#stay'
 394    # insensitive => 'TRUE'
 395    # type => 'StringDetect'
 396    if ($self->testStringDetect($text, 'INC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 397       return 1
 398    }
 399    # String => 'INX'
 400    # attribute => 'Keyword'
 401    # context => '#stay'
 402    # insensitive => 'TRUE'
 403    # type => 'StringDetect'
 404    if ($self->testStringDetect($text, 'INX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 405       return 1
 406    }
 407    # String => 'INY'
 408    # attribute => 'Keyword'
 409    # context => '#stay'
 410    # insensitive => 'TRUE'
 411    # type => 'StringDetect'
 412    if ($self->testStringDetect($text, 'INY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 413       return 1
 414    }
 415    # String => 'JMP'
 416    # attribute => 'Keyword'
 417    # context => '#stay'
 418    # insensitive => 'TRUE'
 419    # type => 'StringDetect'
 420    if ($self->testStringDetect($text, 'JMP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 421       return 1
 422    }
 423    # String => 'JSR'
 424    # attribute => 'Keyword'
 425    # context => '#stay'
 426    # insensitive => 'TRUE'
 427    # type => 'StringDetect'
 428    if ($self->testStringDetect($text, 'JSR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 429       return 1
 430    }
 431    # String => 'LDA'
 432    # attribute => 'Keyword'
 433    # context => '#stay'
 434    # insensitive => 'TRUE'
 435    # type => 'StringDetect'
 436    if ($self->testStringDetect($text, 'LDA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 437       return 1
 438    }
 439    # String => 'LDX'
 440    # attribute => 'Keyword'
 441    # context => '#stay'
 442    # insensitive => 'TRUE'
 443    # type => 'StringDetect'
 444    if ($self->testStringDetect($text, 'LDX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 445       return 1
 446    }
 447    # String => 'LDY'
 448    # attribute => 'Keyword'
 449    # context => '#stay'
 450    # insensitive => 'TRUE'
 451    # type => 'StringDetect'
 452    if ($self->testStringDetect($text, 'LDY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 453       return 1
 454    }
 455    # String => 'LSR'
 456    # attribute => 'Keyword'
 457    # context => '#stay'
 458    # insensitive => 'TRUE'
 459    # type => 'StringDetect'
 460    if ($self->testStringDetect($text, 'LSR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 461       return 1
 462    }
 463    # String => 'NOP'
 464    # attribute => 'Keyword'
 465    # context => '#stay'
 466    # insensitive => 'TRUE'
 467    # type => 'StringDetect'
 468    if ($self->testStringDetect($text, 'NOP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 469       return 1
 470    }
 471    # String => 'ORA'
 472    # attribute => 'Keyword'
 473    # context => '#stay'
 474    # insensitive => 'TRUE'
 475    # type => 'StringDetect'
 476    if ($self->testStringDetect($text, 'ORA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 477       return 1
 478    }
 479    # String => 'PHA'
 480    # attribute => 'Keyword'
 481    # context => '#stay'
 482    # insensitive => 'TRUE'
 483    # type => 'StringDetect'
 484    if ($self->testStringDetect($text, 'PHA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 485       return 1
 486    }
 487    # String => 'PHP'
 488    # attribute => 'Keyword'
 489    # context => '#stay'
 490    # insensitive => 'TRUE'
 491    # type => 'StringDetect'
 492    if ($self->testStringDetect($text, 'PHP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 493       return 1
 494    }
 495    # String => 'PLA'
 496    # attribute => 'Keyword'
 497    # context => '#stay'
 498    # insensitive => 'TRUE'
 499    # type => 'StringDetect'
 500    if ($self->testStringDetect($text, 'PLA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 501       return 1
 502    }
 503    # String => 'PLP'
 504    # attribute => 'Keyword'
 505    # context => '#stay'
 506    # insensitive => 'TRUE'
 507    # type => 'StringDetect'
 508    if ($self->testStringDetect($text, 'PLP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 509       return 1
 510    }
 511    # String => 'ROL'
 512    # attribute => 'Keyword'
 513    # context => '#stay'
 514    # insensitive => 'TRUE'
 515    # type => 'StringDetect'
 516    if ($self->testStringDetect($text, 'ROL', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 517       return 1
 518    }
 519    # String => 'ROR'
 520    # attribute => 'Keyword'
 521    # context => '#stay'
 522    # insensitive => 'TRUE'
 523    # type => 'StringDetect'
 524    if ($self->testStringDetect($text, 'ROR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 525       return 1
 526    }
 527    # String => 'RTI'
 528    # attribute => 'Keyword'
 529    # context => '#stay'
 530    # insensitive => 'TRUE'
 531    # type => 'StringDetect'
 532    if ($self->testStringDetect($text, 'RTI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 533       return 1
 534    }
 535    # String => 'RTS'
 536    # attribute => 'Keyword'
 537    # context => '#stay'
 538    # insensitive => 'TRUE'
 539    # type => 'StringDetect'
 540    if ($self->testStringDetect($text, 'RTS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 541       return 1
 542    }
 543    # String => 'SBC'
 544    # attribute => 'Keyword'
 545    # context => '#stay'
 546    # insensitive => 'TRUE'
 547    # type => 'StringDetect'
 548    if ($self->testStringDetect($text, 'SBC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 549       return 1
 550    }
 551    # String => 'SEC'
 552    # attribute => 'Keyword'
 553    # context => '#stay'
 554    # insensitive => 'TRUE'
 555    # type => 'StringDetect'
 556    if ($self->testStringDetect($text, 'SEC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 557       return 1
 558    }
 559    # String => 'SED'
 560    # attribute => 'Keyword'
 561    # context => '#stay'
 562    # insensitive => 'TRUE'
 563    # type => 'StringDetect'
 564    if ($self->testStringDetect($text, 'SED', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 565       return 1
 566    }
 567    # String => 'SEI'
 568    # attribute => 'Keyword'
 569    # context => '#stay'
 570    # insensitive => 'TRUE'
 571    # type => 'StringDetect'
 572    if ($self->testStringDetect($text, 'SEI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 573       return 1
 574    }
 575    # String => 'STA'
 576    # attribute => 'Keyword'
 577    # context => '#stay'
 578    # insensitive => 'TRUE'
 579    # type => 'StringDetect'
 580    if ($self->testStringDetect($text, 'STA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 581       return 1
 582    }
 583    # String => 'STX'
 584    # attribute => 'Keyword'
 585    # context => '#stay'
 586    # insensitive => 'TRUE'
 587    # type => 'StringDetect'
 588    if ($self->testStringDetect($text, 'STX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 589       return 1
 590    }
 591    # String => 'STY'
 592    # attribute => 'Keyword'
 593    # context => '#stay'
 594    # insensitive => 'TRUE'
 595    # type => 'StringDetect'
 596    if ($self->testStringDetect($text, 'STY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 597       return 1
 598    }
 599    # String => 'TAY'
 600    # attribute => 'Keyword'
 601    # context => '#stay'
 602    # insensitive => 'TRUE'
 603    # type => 'StringDetect'
 604    if ($self->testStringDetect($text, 'TAY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 605       return 1
 606    }
 607    # String => 'TSX'
 608    # attribute => 'Keyword'
 609    # context => '#stay'
 610    # insensitive => 'TRUE'
 611    # type => 'StringDetect'
 612    if ($self->testStringDetect($text, 'TSX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 613       return 1
 614    }
 615    # String => 'TXA'
 616    # attribute => 'Keyword'
 617    # context => '#stay'
 618    # insensitive => 'TRUE'
 619    # type => 'StringDetect'
 620    if ($self->testStringDetect($text, 'TXA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 621       return 1
 622    }
 623    # String => 'TXS'
 624    # attribute => 'Keyword'
 625    # context => '#stay'
 626    # insensitive => 'TRUE'
 627    # type => 'StringDetect'
 628    if ($self->testStringDetect($text, 'TXS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 629       return 1
 630    }
 631    # String => 'TYA'
 632    # attribute => 'Keyword'
 633    # context => '#stay'
 634    # insensitive => 'TRUE'
 635    # type => 'StringDetect'
 636    if ($self->testStringDetect($text, 'TYA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
 637       return 1
 638    }
 639    # String => '\*='
 640    # attribute => 'Decimal'
 641    # context => '#stay'
 642    # type => 'RegExpr'
 643    if ($self->testRegExpr($text, '\\*=', 0, 0, 0, undef, 0, '#stay', 'Decimal')) {
 644       return 1
 645    }
 646    # attribute => 'String'
 647    # char => '"'
 648    # char1 => '"'
 649    # context => '#stay'
 650    # type => 'RangeDetect'
 651    if ($self->testRangeDetect($text, '"', '"', 0, 0, undef, 0, '#stay', 'String')) {
 652       return 1
 653    }
 654    # String => '-+<>=;'
 655    # attribute => 'Operator'
 656    # context => '#stay'
 657    # type => 'AnyChar'
 658    if ($self->testAnyChar($text, '-+<>=;', 0, 0, undef, 0, '#stay', 'Operator')) {
 659       return 1
 660    }
 661    # attribute => 'Comment'
 662    # beginRegion => 'Comment'
 663    # char => '/'
 664    # char1 => '*'
 665    # context => 'Commentar 2'
 666    # type => 'Detect2Chars'
 667    if ($self->testDetect2Chars($text, '/', '*', 0, 0, 0, undef, 0, 'Commentar 2', 'Comment')) {
 668       return 1
 669    }
 670    return 0;
 671 };
 672
 673 sub parseCommentar2 {
 674    my ($self, $text) = @_;
 675    # attribute => 'Comment'
 676    # char => '*'
 677    # char1 => '/'
 678    # context => '#pop'
 679    # endRegion => 'Comment'
 680    # type => 'Detect2Chars'
 681    if ($self->testDetect2Chars($text, '*', '/', 0, 0, 0, undef, 0, '#pop', 'Comment')) {
 682       return 1
 683    }
 684    return 0;
 685 };
 686
 687
 688 1;
 689
 690 __END__
 691
 692 =head1 NAME
 693
 694 Syntax::Highlight::Engine::Kate::Asm6502 - a Plugin for Asm6502 syntax highlighting
 695
 696 =head1 SYNOPSIS
 697
 698  require Syntax::Highlight::Engine::Kate::Asm6502;
 699  my $sh = new Syntax::Highlight::Engine::Kate::Asm6502([
 700  ]);
 701
 702 =head1 DESCRIPTION
 703
 704 Syntax::Highlight::Engine::Kate::Asm6502 is a  plugin module that provides syntax highlighting
 705 for Asm6502 to the Syntax::Haghlight::Engine::Kate highlighting engine.
 706
 707 This code is generated from the syntax definition files used
 708 by the Kate project.
 709 It works quite fine, but can use refinement and optimization.
 710
 711 It inherits Syntax::Higlight::Engine::Kate::Template. See also there.
 712
 713 =cut
 714
 715 =head1 AUTHOR
 716
 717 Hans Jeuken (haje <at> toneel <dot> demon <dot> nl)
 718
 719 =cut
 720
 721 =head1 BUGS
 722
 723 Unknown. If you find any, please contact the author
 724
 725 =cut
 726