synhighlightervrml97.pas

用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码

          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func29 :TtkTokenKind;
begin
  if KeyComp('ON') then
    Result := tkVrmlParameter
  else
    if KeyComp('on') then
      Result := tkVrmlAttribute
    else
      if KeyComp('ccw') then
        Result := tkVrmlAttribute
      else
        if KeyComp('NaN') then
          Result := tkKey
        else
          if KeyComp('Embed') then
            Result := tkNonReservedKey
          else
            if KeyComp('ceil') then
              Result := tkNonReservedKey
            else
              Result := tkIdentifier;
end;

function TSynVrml97Syn.Func30 :TtkTokenKind;
begin
  if KeyComp('Date') then
    Result := tkNonReservedKey
  else
    if KeyComp('char') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func31 :TtkTokenKind;
begin
  if KeyComp('LOD') then
    Result := tkVrmlGrouping
  else
    Result := tkIdentifier;
end;

function TSynVrml97Syn.Func32 :TtkTokenKind;
begin
  if KeyComp('FILE') then
    Result := tkVrmlParameter
  else
    Result := tkIdentifier;
end;

function TSynVrml97Syn.Func33 :TtkTokenKind;
begin
  if KeyComp('BOLD') then
    Result := tkVrmlParameter
  else
    if KeyComp('bold') then
      Result := tkNonReservedKey
    else
      if KeyComp('name') then
        Result := tkNonReservedKey
      else
        if KeyComp('find') then
          Result := tkNonReservedKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func34 :TtkTokenKind;
begin
  if KeyComp('log') then
    Result := tkNonReservedKey
  else
    if KeyComp('java') then
      Result := tkNonReservedKey
    else
      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func35 :TtkTokenKind;
begin
  if KeyComp('TO') then
    Result := tkVrmlProto
  else
    if KeyComp('Image') then
      Result := tkNonReservedKey
    else
      if KeyComp('image') then
        Result := tkVrmlAttribute
      else
        if KeyComp('tan') then
          Result := tkNonReservedKey
        else
          if KeyComp('catch') then
            Result := tkKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func36 :TtkTokenKind;
begin
  if KeyComp('field') then
    Result := tkVrmlEvent
  else
    if KeyComp('min') then
      Result := tkNonReservedKey
    else
      if KeyComp('hash') then
        Result := tkNonReservedKey
      else
        if KeyComp('atan2') then
          Result := tkNonReservedKey
        else
          if KeyComp('atan') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func37 :TtkTokenKind;
begin
  if KeyComp('side') then
    Result := tkVrmlAttribute
  else
    if KeyComp('Cone') then
      Result := tkVrmlShape
    else
      if KeyComp('break') then
        Result := tkKey
      else
        if KeyComp('href') then
          Result := tkNonReservedKey
        else
          if KeyComp('cos') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func38 :TtkTokenKind;
begin
  if KeyComp('click') then
    Result := tkNonReservedKey
  else
    if KeyComp('acos') then
      Result := tkNonReservedKey
    else
      if KeyComp('max') then
        Result := tkNonReservedKey
      else
        if KeyComp('callee') then
          Result := tkKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func39 :TtkTokenKind;
begin
  if KeyComp('meta') then
    Result := tkKey
  else
    if KeyComp('LOG10E') then
      Result := tkNonReservedKey
    else
      if KeyComp('LOG2E') then
        Result := tkNonReservedKey
      else
        if KeyComp('checked') then
          Result := tkNonReservedKey
        else
          if KeyComp('clear') then
            Result := tkNonReservedKey
          else
            if KeyComp('for') then
              Result := tkKey
            else
              Result := tkIdentifier;
end;

function TSynVrml97Syn.Func40 :TtkTokenKind;
begin
  if KeyComp('scale') then
    Result := tkVrmlAttribute
  else
    if KeyComp('eval') then
      Result := tkNonReservedKey
    else
      if KeyComp('src') then
        Result := tkNonReservedKey
      else
        Result := tkIdentifier;
end;

function TSynVrml97Syn.Func41 :TtkTokenKind;
begin
  if KeyComp('key') then
    Result := tkVrmlAttribute
  else
    if KeyComp('Box') then
      Result := tkVrmlShape
    else
      if KeyComp('else') then
        Result := tkKey
      else
        if KeyComp('var') then
          Result := tkKey
        else
          if KeyComp('home') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func42 :TtkTokenKind;
begin
  if KeyComp('self') then
    Result := tkNonReservedKey
  else
    if KeyComp('Math') then
      Result := tkNonReservedKey
    else
      if KeyComp('sin') then
        Result := tkNonReservedKey
      else
        if KeyComp('new') then
          Result := tkKey
        else
          if KeyComp('sub') then
            Result := tkNonReservedKey
          else
            if KeyComp('final') then
              Result := tkKey
            else
              Result := tkIdentifier;
end;

function TSynVrml97Syn.Func43 :TtkTokenKind;
begin
  if KeyComp('LEFT') then
    Result := tkVrmlParameter
  else
    if KeyComp('choice') then
      Result := tkVrmlAttribute
    else
      if KeyComp('endCap') then
        Result := tkVrmlAttribute
      else
        if KeyComp('FALSE') then
          Result := tkVrmlParameter
        else
          if KeyComp('FALSE') then
            Result := tkVrmlProto
          else
            if KeyComp('enabled') then
              Result := tkVrmlAttribute
            else
              if KeyComp('asin') then
                Result := tkNonReservedKey
              else
                if KeyComp('Frame') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('false') then
                    Result := tkKey
                  else
                    if KeyComp('int') then
                      Result := tkKey
                    else
                      if KeyComp('left') then
                        Result := tkNonReservedKey
                      else
                        if KeyComp('align') then
                          Result := tkNonReservedKey
                        else
                          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func44 :TtkTokenKind;
begin
  if KeyComp('info') then
    Result := tkVrmlAttribute
  else
    if KeyComp('Hidden') then
      Result := tkNonReservedKey
    else
      if KeyComp('UTC') then
        Result := tkNonReservedKey
      else
        if KeyComp('package') then
          Result := tkKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func45 :TtkTokenKind;
begin
  if KeyComp('range') then
    Result := tkVrmlAttribute
  else
    if KeyComp('USE') then
      Result := tkVrmlProto
    else
      if KeyComp('CLAMP') then
        Result := tkVrmlParameter
      else
        if KeyComp('exp') then
          Result := tkNonReservedKey
        else
          if KeyComp('match') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func46 :TtkTokenKind;
begin
  if KeyComp('Scene') then
    Result := tkVrmlProto
  else
    if KeyComp('Link') then
      Result := tkNonReservedKey
    else
      if KeyComp('link') then
        Result := tkNonReservedKey
      else
        if KeyComp('body') then
          Result := tkNonReservedKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func47 :TtkTokenKind;
begin
  if KeyComp('Disk2D') then
    Result := tkVrmlShape
  else
    if KeyComp('time') then
      Result := tkVrmlAttribute
    else
      if KeyComp('Radio') then
        Result := tkNonReservedKey
      else
        if KeyComp('tags') then
          Result := tkNonReservedKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func48 :TtkTokenKind;
begin
  if KeyComp('NONE') then
    Result := tkVrmlParameter
  else
    if KeyComp('join') then
      Result := tkNonReservedKey
    else
      if KeyComp('embeds') then
        Result := tkNonReservedKey
      else
        if KeyComp('blink') then
          Result := tkNonReservedKey
        else
          if KeyComp('fixed') then
            Result := tkNonReservedKey
          else
            if KeyComp('slice') then
              Result := tkNonReservedKey
            else
              if KeyComp('long') then
                Result := tkKey
              else
                Result := tkIdentifier;
end;

function TSynVrml97Syn.Func49 :TtkTokenKind;
begin
  if KeyComp('xml') then
    Result := tkKey
  else
    if KeyComp('Shape') then
      Result := tkVrmlShape
    else
      if KeyComp('speed') then
        Result := tkVrmlAttribute
      else
        if KeyComp('SHAPE') then
          Result := tkVrmlParameter
        else
          if KeyComp('escape') then
            Result := tkNonReservedKey
          else
            if KeyComp('Global') then
              Result := tkNonReservedKey
            else
              Result := tkIdentifier;
end;

function TSynVrml97Syn.Func50 :TtkTokenKind;
begin
  if KeyComp('open') then
    Result := tkNonReservedKey
  else
    if KeyComp('void') then
      Result := tkKey
    else
      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func51 :TtkTokenKind;
begin
  if KeyComp('top') then
    Result := tkVrmlAttribute
  else
    if KeyComp('url') then
      Result := tkVrmlAttribute
    else
      if KeyComp('charAt') then
        Result := tkNonReservedKey
      else
        if KeyComp('URL') then
          Result := tkNonReservedKey
        else
          if KeyComp('caller') then
            Result := tkNonReservedKey
          else
            if KeyComp('delete') then
              Result := tkKey
            else
              Result := tkIdentifier;
end;

function TSynVrml97Syn.Func52 :TtkTokenKind;
begin
  if KeyComp('Form') then
    Result := tkNonReservedKey
  else
    if KeyComp('form') then
      Result := tkNonReservedKey