mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-28 15:43:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

new syntax for function declarations: "function a.x () ... "

Browse Source 
new semantics for function declarations: function f () is valid only
at run-time.
This commit is contained in:
Roberto Ierusalimschy 1995-10-25 12:33:25 -02:00
parent 9efc257d9d
commit 39b071f7b1
1 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lua.stx
View File

@ -1,6 +1,6 @@
%{
char *rcs_luastx = "$Id: lua.stx,v 3.21 1995/10/17 11:58:41 roberto Exp roberto $";
char *rcs_luastx = "$Id: lua.stx,v 3.22 1995/10/25 13:05:51 roberto Exp roberto $";
#include <stdio.h>
#include <stdlib.h>
@ -447,10 +447,10 @@ globalstat : stat sc
function : functiontoken NAME body
{
Word func = luaI_findsymbol($2);
luaI_insertfunction($3); /* may take part in GC */
s_tag(func) = LUA_T_FUNCTION;
lua_table[func].object.value.tf = $3;
code_byte(PUSHFUNCTION);
code_code($3);
code_byte(STOREGLOBAL);
code_word(luaI_findsymbol($2));
$3->lineDefined = $1;
$3->name1 = $2->ts.str;
$3->name2 = NULL;
@ -458,23 +458,19 @@ function : functiontoken NAME body
}
;
method : functiontoken NAME ':' NAME
{
add_localvar(luaI_findsymbolbyname("self"));
}
body
method : functiontoken NAME methkind NAME body
{
/* assign function to table field */
lua_pushvar(luaI_findsymbol($2)+1);
code_byte(PUSHSTRING);
code_word(luaI_findconstant($4));
code_byte(PUSHFUNCTION);
code_code($6);
code_code($5);
code_byte(STOREINDEXED0);
$6->lineDefined = $1;
$6->name1 = $4->ts.str;
$6->name2 = $2->ts.str;
$6->fileName = lua_parsedfile;
$5->lineDefined = $1;
$5->name1 = $4->ts.str;
$5->name2 = $2->ts.str;
$5->fileName = lua_parsedfile;
}
;
@ -493,6 +489,10 @@ functiontoken : FUNCTION
}
;
methkind : ':' { add_localvar(luaI_findsymbolbyname("self")); }
| '.' /* no self */
;
body : '(' parlist ')' block END
{
codereturn();
@ -581,10 +581,7 @@ PrepJump : /* empty */
code_word (0);
}
expr1 : expr
{
adjust_functioncall($1, 1);
}
expr1 : expr { adjust_functioncall($1, 1); }
;
expr : '(' expr ')' { $$ = $2; }