externalmethod

This commit is contained in:
miks1965 2015-10-10 20:38:09 +03:00
parent 4d22afd2aa
commit 711e4aad55
10 changed files with 1232 additions and 1211 deletions

View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "0";
public const string Build = "0";
public const string Revision = "1050";
public const string Revision = "1052";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

View file

@ -1,4 +1,4 @@
%MINOR%=0
%REVISION%=1050
%REVISION%=1052
%MAJOR%=3
%COREVERSION%=0

View file

@ -2,7 +2,7 @@
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: SSM
// DateTime: 26.08.2015 21:42:03
// DateTime: 10.10.2015 20:28:41
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>
@ -1975,6 +1975,11 @@ string cur_yytext = yytext;
yylval.id = new procedure_attribute(proc_attribute.attr_override,currentLexLocation);
yylval.id.name = cur_yytext;
break;
case (int)Tokens.tkExternalMethod:
yylval = new Union();
yylval.id = new procedure_attribute(proc_attribute.attr_override,currentLexLocation);
yylval.id.name = cur_yytext;
break;
case (int)Tokens.tkVirtual:
yylval = new Union();
yylval.id = new procedure_attribute(proc_attribute.attr_virtual,currentLexLocation);
@ -2421,6 +2426,7 @@ public static class Keywords
keywords.Add("reintroduce",(int)Tokens.tkReintroduce);
keywords.Add("override",(int)Tokens.tkOverride);
keywords.Add("virtual",(int)Tokens.tkVirtual);
keywords.Add("externalmethod",(int)Tokens.tkExternalMethod);
keywords.Add("new",(int)Tokens.tkNew);
keywords.Add("auto",(int)Tokens.tkAuto);
keywords.Add("sequence",(int)Tokens.tkSequence);

View file

@ -392,6 +392,11 @@ ALPHABET [^ a-zA-Z_0-9\r\n\t\'$#&,:.;@\+\-\*/=<>\^()\[\]\x01]
yylval.id = new procedure_attribute(proc_attribute.attr_override,currentLexLocation);
yylval.id.name = cur_yytext;
break;
case (int)Tokens.tkExternalMethod:
yylval = new Union();
yylval.id = new procedure_attribute(proc_attribute.attr_override,currentLexLocation);
yylval.id.name = cur_yytext;
break;
case (int)Tokens.tkVirtual:
yylval = new Union();
yylval.id = new procedure_attribute(proc_attribute.attr_virtual,currentLexLocation);
@ -604,6 +609,7 @@ public static class Keywords
keywords.Add("reintroduce",(int)Tokens.tkReintroduce);
keywords.Add("override",(int)Tokens.tkOverride);
keywords.Add("virtual",(int)Tokens.tkVirtual);
keywords.Add("externalmethod",(int)Tokens.tkExternalMethod);
keywords.Add("new",(int)Tokens.tkNew);
keywords.Add("auto",(int)Tokens.tkAuto);
keywords.Add("sequence",(int)Tokens.tkSequence);

View file

@ -44,7 +44,7 @@
%token <op> tkNotEqual tkCSharpStyleOr tkArrow tkOr tkXor tkAnd tkDiv tkMod tkShl tkShr tkNot tkAs tkIn tkIs tkImplicit tkExplicit tkAddressOf tkDeref
%token <id> tkDirectiveName tkIdentifier
%token <stn> tkStringLiteral tkAsciiChar
%token <id> tkAbstract tkForward tkOverload tkReintroduce tkOverride tkVirtual
%token <id> tkAbstract tkForward tkOverload tkReintroduce tkOverride tkVirtual tkExternalMethod
%token <ex> tkInteger tkFloat tkHex
%type <ti> unit_key_word
@ -3125,6 +3125,8 @@ meth_modificator
{ $$ = $1; }
| tkOverride
{ $$ = $1; }
| tkExternalMethod
{ $$ = $1; }
| tkVirtual
{ $$ = $1; }
;

File diff suppressed because it is too large Load diff

View file

@ -79,5 +79,6 @@ script=

View file

@ -1 +1 @@
!define VERSION '3.0.0.1050'
!define VERSION '3.0.0.1052'

View file

@ -234,6 +234,7 @@
<Key word = "overload" />
<Key word = "reintroduce" />
<Key word = "override" />
<Key word = "externalmethod" />
<Key word = "virtual" />
<Key word = "default" />
<Key word = "forward" />

Binary file not shown.