synhighlightervrml97.pas

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

  else
    if KeyComp('onChange') then
      Result := tkEvent
    else
      if KeyComp('reset') then
        Result := tkNonReservedKey
      else
        if KeyComp('Reset') then
          Result := tkNonReservedKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func68 :TtkTokenKind;
begin
  if KeyComp('Joint') then
    Result := tkVrmlNode
  else
    if KeyComp('backUrl') then
      Result := tkVrmlAttribute
    else
      if KeyComp('SFInt32') then
        Result := tkVrmlDefinition
      else
        if KeyComp('language') then
          Result := tkVrmlAttribute
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func69 :TtkTokenKind;
begin
  if KeyComp('SFBool') then
    Result := tkVrmlDefinition
  else
    if KeyComp('fieldName') then
      Result := tkVrmlAttribute
    else
      if KeyComp('Text') then
        Result := tkVrmlShape
      else
        if KeyComp('spacing') then
          Result := tkVrmlAttribute
        else
          if KeyComp('DEFAULT') then
            Result := tkVrmlParameter
          else
            if KeyComp('port') then
              Result := tkNonReservedKey
            else
              if KeyComp('Text') then
                Result := tkNonReservedKey
              else
                if KeyComp('text') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('default') then
                    Result := tkKey
                  else
                    if KeyComp('debugger') then
                      Result := tkKey
                    else
                      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func70 :TtkTokenKind;
begin
  if KeyComp('Applet') then
    Result := tkNonReservedKey
  else
    if KeyComp('stop') then
      Result := tkNonReservedKey
    else
      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func71 :TtkTokenKind;
begin
  if KeyComp('Sphere') then
    Result := tkVrmlShape
  else
    if KeyComp('offset') then
      Result := tkVrmlAttribute
    else
      if KeyComp('target') then
        Result := tkNonReservedKey
      else
        if KeyComp('Checkbox') then
          Result := tkNonReservedKey
        else
          if KeyComp('encoding') then
            Result := tkNonReservedKey
          else
            if KeyComp('forms') then
              Result := tkNonReservedKey
            else
              if KeyComp('const') then
                Result := tkKey
              else
                if KeyComp('native') then
                  Result := tkKey
                else
                  Result := tkIdentifier;
end;

function TSynVrml97Syn.Func72 :TtkTokenKind;
begin
  if KeyComp('SFTime') then
    Result := tkVrmlDefinition
  else
    if KeyComp('radius') then
      Result := tkVrmlAttribute
    else
      if KeyComp('ENUMS') then
        Result := tkVrmlParameter
      else
        if KeyComp('round') then
          Result := tkNonReservedKey
        else
          if KeyComp('sort') then
            Result := tkNonReservedKey
          else
            if KeyComp('bgColor') then
              Result := tkNonReservedKey
            else
              if KeyComp('static') then
                Result := tkKey
              else
                Result := tkIdentifier;
end;

function TSynVrml97Syn.Func73 :TtkTokenKind;
begin
  if KeyComp('children') then
    Result := tkVrmlAttribute
  else
    if KeyComp('Sound') then
      Result := tkVrmlNode
    else
      if KeyComp('MFFloat') then
        Result := tkVrmlDefinition
      else
        if KeyComp('FORMAT') then
          Result := tkVrmlParameter
        else
          if KeyComp('normal') then
            Result := tkVrmlAttribute
          else
            if KeyComp('Normal') then
              Result := tkVrmlNode
            else
              if KeyComp('italics') then
                Result := tkNonReservedKey
              else
                if KeyComp('Number') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('opener') then
                    Result := tkNonReservedKey
                  else
                    if KeyComp('selected') then
                      Result := tkNonReservedKey
                    else
                      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func74 :TtkTokenKind;
begin
  if KeyComp('PARTS') then
    Result := tkVrmlParameter
  else
    if KeyComp('headlight') then
      Result := tkVrmlAttribute
    else
      if KeyComp('point') then
        Result := tkVrmlAttribute
      else
        if KeyComp('sqrt') then
          Result := tkNonReservedKey
        else
          if KeyComp('SQRT2') then
            Result := tkNonReservedKey
          else
            if KeyComp('parent') then
              Result := tkNonReservedKey
            else
              if KeyComp('setDate') then
                Result := tkNonReservedKey
              else
                if KeyComp('menubar') then
                  Result := tkNonReservedKey
                else
                  Result := tkIdentifier;
end;

function TSynVrml97Syn.Func75 :TtkTokenKind;
begin
  if KeyComp('minAngle') then
    Result := tkVrmlAttribute
  else
    if KeyComp('Billboard') then
      Result := tkVrmlGrouping
    else
      if KeyComp('write') then
        Result := tkNonReservedKey
      else
        if KeyComp('RegExp') then
          Result := tkNonReservedKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func76 :TtkTokenKind;
begin
  if KeyComp('bindTime') then
    Result := tkVrmlAttribute
  else
    if KeyComp('fgColor') then
      Result := tkNonReservedKey
    else
      if KeyComp('split') then
        Result := tkNonReservedKey
      else
        Result := tkIdentifier;
end;

function TSynVrml97Syn.Func77 :TtkTokenKind;
begin
  if KeyComp('Group') then
    Result := tkVrmlGrouping
  else
    if KeyComp('maxAngle') then
      Result := tkVrmlAttribute
    else
      if KeyComp('javaEnabled') then
        Result := tkNonReservedKey
      else
        if KeyComp('indexOf') then
          Result := tkNonReservedKey
        else
          if KeyComp('print') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func78 :TtkTokenKind;
begin
  if KeyComp('BINDINGS') then
    Result := tkVrmlParameter
  else
    if KeyComp('CULLING') then
      Result := tkVrmlParameter
    else
      if KeyComp('anchors') then
        Result := tkNonReservedKey
      else
        if KeyComp('confirm') then
          Result := tkNonReservedKey
        else
          if KeyComp('pathname') then
            Result := tkNonReservedKey
          else
            if KeyComp('start') then
              Result := tkKey
            else
              if KeyComp('charCodeAt') then
                Result := tkNonReservedKey
              else
                Result := tkIdentifier;
end;

function TSynVrml97Syn.Func79 :TtkTokenKind;
begin
  if KeyComp('Material') then
    Result := tkVrmlAppearance
  else
    if KeyComp('material') then
      Result := tkVrmlAttribute
    else
      if KeyComp('SFFloat') then
        Result := tkVrmlDefinition
      else
        if KeyComp('ROUTE') then
          Result := tkVrmlProto
        else
          if KeyComp('Plugin') then
            Result := tkNonReservedKey
          else
            if KeyComp('getTime') then
              Result := tkNonReservedKey
            else
              if KeyComp('refresh') then
                Result := tkNonReservedKey
              else
                if KeyComp('scroll') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('finally') then
                    Result := tkKey
                  else
                    if KeyComp('super') then
                      Result := tkKey
                    else
                      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func80 :TtkTokenKind;
begin
  if KeyComp('appearance') then
    Result := tkVrmlAttribute
  else
    if KeyComp('Appearance') then
      Result := tkVrmlAppearance
    else
      if KeyComp('short') then
        Result := tkKey
      else
        if KeyComp('layers') then
          Result := tkNonReservedKey
        else
          if KeyComp('input') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func81 :TtkTokenKind;
begin
  if KeyComp('ArcClose2D') then
    Result := tkVrmlShape
  else
    if KeyComp('source') then
      Result := tkVrmlAttribute
    else
      if KeyComp('style') then
        Result := tkVrmlAttribute
      else
        if KeyComp('STYLE') then
          Result := tkVrmlParameter
        else
          if KeyComp('getYear') then
            Result := tkNonReservedKey
          else
            if KeyComp('interface') then
              Result := tkKey
            else
              if KeyComp('style') then
                Result := tkNonReservedKey
              else
                Result := tkIdentifier;
end;

function TSynVrml97Syn.Func82 :TtkTokenKind;
begin
  if KeyComp('diskAngle') then
    Result := tkVrmlAttribute
  else
    if KeyComp('Switch') then
      Result := tkVrmlGrouping
    else
      if KeyComp('MFColor') then
        Result := tkVrmlDefinition
      else
        if KeyComp('addChildren') then
          Result := tkVrmlAttribute
        else
          if KeyComp('onBlur') then
            Result := tkEvent
          else
            if KeyComp('strike') then
              Result := tkNonReservedKey
            else
              if KeyComp('valueOf') then
                Result := tkNonReservedKey
              else
                if KeyComp('moveBy') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('switch') then
                    Result := tkKey
                  else
                    if KeyComp('zIndex') then
                      Result := tkNonReservedKey
                    else
                      if KeyComp('Undefined') then
                        Result := tkNonReservedKey
                      else
                        if KeyComp('undefined') then
                          Result := tkNonReservedKey
                        else
                          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func83 :TtkTokenKind;
begin
  if KeyComp('Segment') then
    Result := tkVrmlShape
  else
    if KeyComp('CONVEX') then
      Result := tkVrmlParameter
    else
      if KeyComp('vector') then
        Result := tkVrmlAttribute
      else
        if KeyComp('convex') then
          Result := tkVrmlAttribute
        else
          if KeyComp('netscape') then
            Result := tkNonReservedKey
          else
            if KeyComp('toolbar') then
              Result := tkNonReservedKey
            else
              Result := tkIdentifier;
end;

function TSynVrml97Syn.Func84 :TtkTokenKind;
begin
  if KeyComp('repeatS') then
    Result := tkVrmlAttribute
  else
    if KeyComp('PROTO') then
      Result := tkVrmlProto
    else
      if KeyComp('isBound') then
        Result := tkVrmlAttribute
      else
        if KeyComp('Submit') then
          Result := tkNonReservedKey
        else
          if KeyComp('submit') then
            Result := tkNonReservedKey
          else
            if KeyComp('unescape') then
              Result := tkNonReservedKey
            else
              if KeyComp('throw') then
                Result := tkKey