synhighlightervrml97.pas

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

    else
      if KeyComp('hspace') then
        Result := tkNonReservedKey
      else
        if KeyComp('byte') then
          Result := tkKey
        else
          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func53 :TtkTokenKind;
begin
  if KeyComp('Site') then
    Result := tkVrmlNode
  else
    if KeyComp('Shape2D') then
      Result := tkVrmlShape
    else
      if KeyComp('minBack') then
        Result := tkVrmlAttribute
      else
        if KeyComp('blur') then
          Result := tkNonReservedKey
        else
          if KeyComp('enum') then
            Result := tkKey
          else
            if KeyComp('pageX') then
              Result := tkNonReservedKey
            else
              Result := tkIdentifier;
end;

function TSynVrml97Syn.Func54 :TtkTokenKind;
begin
  if KeyComp('Circle2D') then
    Result := tkVrmlShape
  else
    if KeyComp('ITALIC') then
      Result := tkVrmlParameter
    else
      if KeyComp('pow') then
        Result := tkNonReservedKey
      else
        if KeyComp('close') then
          Result := tkNonReservedKey
        else
          if KeyComp('search') then
            Result := tkNonReservedKey
          else
            if KeyComp('images') then
              Result := tkNonReservedKey
            else
              if KeyComp('class') then
                Result := tkKey
              else
                if KeyComp('float') then
                  Result := tkKey
                else
                  if KeyComp('Float') then
                    Result := tkNonReservedKey
                  else
                    if KeyComp('pageY') then
                      Result := tkNonReservedKey
                    else
                      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func55 :TtkTokenKind;
begin
  if KeyComp('MFVec2f') then
    Result := tkVrmlDefinition
  else
    if KeyComp('coord') then
      Result := tkVrmlAttribute
    else
      if KeyComp('maxBack') then
        Result := tkVrmlAttribute
      else
        if KeyComp('MFVec3f') then
          Result := tkVrmlDefinition
        else
          if KeyComp('reload') then
            Result := tkNonReservedKey
          else
            if KeyComp('Object') then
              Result := tkNonReservedKey
            else
              if KeyComp('watch') then
                Result := tkNonReservedKey
              else
                Result := tkIdentifier;
end;

function TSynVrml97Syn.Func56 :TtkTokenKind;
begin
  if KeyComp('SIDES') then
    Result := tkVrmlParameter
  else
    if KeyComp('level') then
      Result := tkVrmlAttribute
    else
      if KeyComp('pitch') then
        Result := tkVrmlAttribute
      else
        if KeyComp('this') then
          Result := tkKey
        else
          if KeyComp('alert') then
            Result := tkNonReservedKey
          else
            if KeyComp('sup') then
              Result := tkNonReservedKey
            else
              if KeyComp('domain') then
                Result := tkNonReservedKey
              else
                if KeyComp('index') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('concat') then
                    Result := tkNonReservedKey
                  else
                    Result := tkIdentifier;
end;

function TSynVrml97Syn.Func57 :TtkTokenKind;
begin
  if KeyComp('beginCap') then
    Result := tkVrmlAttribute
  else
    if KeyComp('height') then
      Result := tkVrmlAttribute
    else
      if KeyComp('MFNode') then
        Result := tkVrmlDefinition
      else
        if KeyComp('AUTO') then
          Result := tkVrmlParameter
        else
          if KeyComp('isNaN') then
            Result := tkNonReservedKey
          else
            if KeyComp('small') then
              Result := tkNonReservedKey
            else
              if KeyComp('while') then
                Result := tkKey
              else
                if KeyComp('height') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('goto') then
                    Result := tkKey
                  else
                    Result := tkIdentifier;
end;

function TSynVrml97Syn.Func58 :TtkTokenKind;
begin
  if KeyComp('GeoLOD') then
    Result := tkVrmlAttribute
  else
    if KeyComp('WRAP') then
      Result := tkVrmlParameter
    else
      if KeyComp('loop') then
        Result := tkVrmlAttribute
      else
        if KeyComp('cookie') then
          Result := tkNonReservedKey
        else
          if KeyComp('closed') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func59 :TtkTokenKind;
begin
  if KeyComp('Anchor') then
    Result := tkVrmlGrouping
  else
    if KeyComp('SOLID') then
      Result := tkVrmlParameter
    else
      if KeyComp('size') then
        Result := tkVrmlAttribute
      else
        if KeyComp('NULL') then
          Result := tkVrmlParameter
        else
          if KeyComp('solid') then
            Result := tkVrmlAttribute
          else
            if KeyComp('NULL') then
              Result := tkVrmlProto
            else
              if KeyComp('parse') then
                Result := tkNonReservedKey
              else
                if KeyComp('anchor') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('double') then
                    Result := tkKey
                  else
                    if KeyComp('Null') then
                      Result := tkNonReservedKey
                    else
                      if KeyComp('null') then
                        Result := tkKey
                      else
                        Result := tkIdentifier;
end;

function TSynVrml97Syn.Func60 :TtkTokenKind;
begin
  if KeyComp('SFImage') then
    Result := tkVrmlDefinition
  else
    if KeyComp('jump') then
      Result := tkVrmlAttribute
    else
      if KeyComp('collide') then
        Result := tkVrmlAttribute
      else
        if KeyComp('with') then
          Result := tkKey
        else
          if KeyComp('replace') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func61 :TtkTokenKind;
begin
  if KeyComp('SFVec3f') then
    Result := tkVrmlDefinition
  else
    if KeyComp('SFVec2f') then
      Result := tkVrmlDefinition
    else
      if KeyComp('onLoad') then
        Result := tkEvent
      else
        if KeyComp('value') then
          Result := tkNonReservedKey
        else
          if KeyComp('Layer') then
            Result := tkNonReservedKey
          else
            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func62 :TtkTokenKind;
begin
  if KeyComp('MFInt32') then
    Result := tkVrmlDefinition
  else
    if KeyComp('RIGHT') then
      Result := tkVrmlParameter
    else
      if KeyComp('action') then
        Result := tkNonReservedKey
      else
        if KeyComp('getDate') then
          Result := tkNonReservedKey
        else
          if KeyComp('getDay') then
            Result := tkNonReservedKey
          else
            if KeyComp('border') then
              Result := tkNonReservedKey
            else
              if KeyComp('host') then
                Result := tkNonReservedKey
              else
                if KeyComp('frames') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('right') then
                    Result := tkNonReservedKey
                  else
                    Result := tkIdentifier;
end;

function TSynVrml97Syn.Func63 :TtkTokenKind;
begin
  if KeyComp('PUBLIC') then
    Result := tkKey
  else
    if KeyComp('color') then
      Result := tkVrmlAttribute
    else
      if KeyComp('Inline') then
        Result := tkVrmlGrouping
      else
        if KeyComp('SFNode') then
          Result := tkVrmlDefinition
        else
          if KeyComp('spine') then
            Result := tkVrmlAttribute
          else
            if KeyComp('Color') then
              Result := tkVrmlNode
            else
              if KeyComp('Array') then
                Result := tkNonReservedKey
              else
                if KeyComp('next') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('try') then
                    Result := tkKey
                  else
                    if KeyComp('public') then
                      Result := tkKey
                    else
                      if KeyComp('Packages') then
                        Result := tkNonReservedKey
                      else
                        if KeyComp('logon') then
                          Result := tkNonReservedKey
                        else
                          Result := tkIdentifier;
end;

function TSynVrml97Syn.Func64 :TtkTokenKind;
begin
  if KeyComp('Boolean') then
    Result := tkNonReservedKey
  else
    if KeyComp('Select') then
      Result := tkNonReservedKey
    else
      if KeyComp('select') then
        Result := tkNonReservedKey
      else
        if KeyComp('taint') then
          Result := tkNonReservedKey
        else
          if KeyComp('focus') then
            Result := tkNonReservedKey
          else
            if KeyComp('boolean') then
              Result := tkKey
            else
              if KeyComp('width') then
                Result := tkNonReservedKey
              else
                if KeyComp('TRUE') then
                  Result := tkVrmlParameter
                else
                  if KeyComp('true') then
                    Result := tkKey
                  else
                    if KeyComp('screen') then
                      Result := tkNonReservedKey
                    else
                      Result := tkIdentifier;
end;

function TSynVrml97Syn.Func65 :TtkTokenKind;
begin
  if KeyComp('CENTER') then
    Result := tkVrmlParameter
  else
    if KeyComp('REPEAT') then
      Result := tkVrmlParameter
    else
      if KeyComp('VRML') then
        Result := tkVrmlProto
      else
        if KeyComp('center') then
          Result := tkVrmlAttribute
        else
          if KeyComp('filename') then
            Result := tkNonReservedKey
          else
            if KeyComp('links') then
              Result := tkNonReservedKey
            else
              if KeyComp('method') then
                Result := tkNonReservedKey
              else
                if KeyComp('random') then
                  Result := tkNonReservedKey
                else
                  Result := tkIdentifier;
end;

function TSynVrml97Syn.Func66 :TtkTokenKind;
begin
  if KeyComp('X3DNode') then
    Result := tkVrmlProto
  else
    if KeyComp('FAMILY') then
      Result := tkVrmlParameter
    else
      if KeyComp('length') then
        Result := tkVrmlAttribute
      else
        if KeyComp('family') then
          Result := tkVrmlAttribute
        else
          if KeyComp('TYPE') then
            Result := tkVrmlParameter
          else
            if KeyComp('type') then
              Result := tkVrmlAttribute
            else
              if KeyComp('MFTime') then
                Result := tkVrmlDefinition
              else
                if KeyComp('vspace') then
                  Result := tkNonReservedKey
                else
                  if KeyComp('title') then
                    Result := tkNonReservedKey
                  else
                    if KeyComp('type') then
                      Result := tkNonReservedKey
                    else
                      if KeyComp('appName') then
                        Result := tkNonReservedKey
                      else
                        if KeyComp('floor') then
                          Result := tkNonReservedKey
                        else
                          if KeyComp('event') then
                            Result := tkNonReservedKey
                          else
                            Result := tkIdentifier;
end;

function TSynVrml97Syn.Func67 :TtkTokenKind;
begin
  if KeyComp('onClick') then
    Result := tkEvent