Initial script lexer, parser and compiler support.
This commit is contained in:
Loïc Hoguin
parent
71772a58fb
commit
7fadf362b3
@ -18,7 +18,8 @@
|
||||
%% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
-module(egs_files).
|
||||
-export([load_counter_pack/2, load_quest_xnr/1, load_table_rel/1, load_text_bin/1, load_unit_title_table_rel/2, nbl_pack/1, nbl_padded_size/1]).
|
||||
-export([load_counter_pack/2, load_quest_xnr/1, load_script_bin/1, load_table_rel/1,
|
||||
load_text_bin/1, load_unit_title_table_rel/2, nbl_pack/1, nbl_padded_size/1]).
|
||||
|
||||
%% @doc Build a counter's pack file, options and return them along with the background value.
|
||||
load_counter_pack(ConfFilename, CounterNbl) ->
|
||||
@ -208,6 +209,13 @@ load_quest_xnr_zones([Zone|Tail], BasePos, SetsAcc, SetsPtrsAcc, ZonesAcc) ->
|
||||
ZoneBin = << ZoneID:16/little, AreaID:16/little, AreaID:32/little, 0:16, EnemyLevel:8, 16#ff:8, 16#04010000:32, SetPos:32/little, 0:352 >>,
|
||||
load_quest_xnr_zones(Tail, BasePos + byte_size(SetsBin2), [SetsBin2|SetsAcc], [SetPos|SetsPtrsAcc], [ZoneBin|ZonesAcc]).
|
||||
|
||||
%% @doc Load a script file and compile it into the bytecode used by the game.
|
||||
load_script_bin(ScriptFilename) ->
|
||||
{ok, Script} = file:read_file(ScriptFilename),
|
||||
{ok, Tokens, _NbLines} = egs_script_lexer:string(binary_to_list(Script)),
|
||||
{ok, ParseTree} = egs_script_parser:parse(Tokens),
|
||||
egs_script_compiler:compile(ParseTree).
|
||||
|
||||
%% @doc Load a counter configuration file and return a table.rel binary along with its pointers array.
|
||||
load_table_rel(ConfFilename) ->
|
||||
{ok, Settings} = file:consult(ConfFilename),
|
||||
|
||||
59
src/egs_script_compiler.erl
Normal file
59
src/egs_script_compiler.erl
Normal file
@ -0,0 +1,59 @@
|
||||
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||
%% @copyright 2010 Loïc Hoguin.
|
||||
%% @doc EGS script compiler.
|
||||
%%
|
||||
%% This file is part of EGS.
|
||||
%%
|
||||
%% EGS is free software: you can redistribute it and/or modify
|
||||
%% it under the terms of the GNU Affero General Public License as
|
||||
%% published by the Free Software Foundation, either version 3 of the
|
||||
%% License, or (at your option) any later version.
|
||||
%%
|
||||
%% EGS is distributed in the hope that it will be useful,
|
||||
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
%% GNU Affero General Public License for more details.
|
||||
%%
|
||||
%% You should have received a copy of the GNU Affero General Public License
|
||||
%% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
-module(egs_script_compiler).
|
||||
-export([compile/1]).
|
||||
|
||||
%% @doc Compile a script parsed using egs_script_lexer and egs_script_parser.
|
||||
compile(ParseTree) ->
|
||||
RootBin = root(ParseTree),
|
||||
FooterPos = byte_size(RootBin),
|
||||
FooterSize = 0, %% @todo
|
||||
<< $T, $S, $B, $2, FooterPos:32/little, FooterSize:32/little, RootBin/binary >>.
|
||||
|
||||
root(Routines) ->
|
||||
root(Routines, 0, []).
|
||||
root(nil, _Pos, Acc) ->
|
||||
iolist_to_binary(lists:reverse(Acc));
|
||||
root({Routine, Next}, Pos, Acc) ->
|
||||
Bin = routine(Routine),
|
||||
Pos2 = case Next of nil -> 0; _ -> Pos + byte_size(Bin) + 4 end,
|
||||
root(Next, Pos2, [<< Pos2:32/little, Bin/binary >>|Acc]).
|
||||
|
||||
routine({Type, Name, Instructions}) ->
|
||||
TypeBin = case Type of event -> << $E, $V, $E, $N, $T, $. >>; function -> << >> end,
|
||||
NameBin = list_to_binary(Name),
|
||||
Padding = 8 * (32 - byte_size(TypeBin) - byte_size(NameBin)),
|
||||
InstrsBin = instructions(Instructions),
|
||||
InstrsSize = byte_size(InstrsBin) + 4,
|
||||
VarsBin = << 76:32/little, 0:32/little >>, %% @todo 0 vars for now.
|
||||
<< TypeBin/binary, NameBin/binary, 0:Padding,
|
||||
InstrsSize:32/little, VarsBin/binary, InstrsBin/binary, 0:32 >>.
|
||||
|
||||
instructions(Instrs) ->
|
||||
instructions(Instrs, []).
|
||||
instructions(nil, Acc) ->
|
||||
iolist_to_binary(lists:reverse(Acc));
|
||||
instructions({Instr, Next}, Acc) ->
|
||||
instructions(Next, [instruction(Instr)|Acc]).
|
||||
|
||||
instruction({push, N}) when is_integer(N) ->
|
||||
<< 2:32/little, N:32/little >>;
|
||||
instruction({syscall, N}) when is_integer(N) ->
|
||||
<< 97:32/little, N:32/little >>.
|
||||
50
src/egs_script_lexer.xrl
Normal file
50
src/egs_script_lexer.xrl
Normal file
@ -0,0 +1,50 @@
|
||||
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||
%% @copyright 2010 Loïc Hoguin.
|
||||
%% @doc EGS script lexer.
|
||||
%%
|
||||
%% This file is part of EGS.
|
||||
%%
|
||||
%% EGS is free software: you can redistribute it and/or modify
|
||||
%% it under the terms of the GNU Affero General Public License as
|
||||
%% published by the Free Software Foundation, either version 3 of the
|
||||
%% License, or (at your option) any later version.
|
||||
%%
|
||||
%% EGS is distributed in the hope that it will be useful,
|
||||
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
%% GNU Affero General Public License for more details.
|
||||
%%
|
||||
%% You should have received a copy of the GNU Affero General Public License
|
||||
%% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Definitions.
|
||||
|
||||
D = [0-9]
|
||||
L = [a-z]
|
||||
N = ({L}|{D}|_)
|
||||
WS = ([\000-\s]|%.*)
|
||||
|
||||
Rules.
|
||||
|
||||
{D}+ : {token, {integer, TokenLine, list_to_integer(TokenChars)}}.
|
||||
{N}+ : {token, case reserved_word(TokenChars) of
|
||||
false -> case syscall(TokenChars) of
|
||||
false -> {name, TokenLine, TokenChars};
|
||||
Syscall -> {syscall, TokenLine, Syscall}
|
||||
end;
|
||||
KeyWord -> {KeyWord, TokenLine}
|
||||
end}.
|
||||
-> : {token,{'->', TokenLine}}.
|
||||
[}{,] : {token, {list_to_atom(TokenChars), TokenLine}}.
|
||||
\.{WS} : {end_token, {dot, TokenLine}}.
|
||||
{WS}+ : skip_token.
|
||||
|
||||
Erlang code.
|
||||
|
||||
reserved_word("event") -> event;
|
||||
reserved_word("function") -> function;
|
||||
reserved_word("push") -> push;
|
||||
reserved_word(_) -> false.
|
||||
|
||||
syscall("play_music") -> 253;
|
||||
syscall(_) -> false.
|
||||
38
src/egs_script_parser.yrl
Normal file
38
src/egs_script_parser.yrl
Normal file
@ -0,0 +1,38 @@
|
||||
%% @author Loïc Hoguin <essen@dev-extend.eu>
|
||||
%% @copyright 2010 Loïc Hoguin.
|
||||
%% @doc EGS script parser.
|
||||
%%
|
||||
%% This file is part of EGS.
|
||||
%%
|
||||
%% EGS is free software: you can redistribute it and/or modify
|
||||
%% it under the terms of the GNU Affero General Public License as
|
||||
%% published by the Free Software Foundation, either version 3 of the
|
||||
%% License, or (at your option) any later version.
|
||||
%%
|
||||
%% EGS is distributed in the hope that it will be useful,
|
||||
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
%% GNU Affero General Public License for more details.
|
||||
%%
|
||||
%% You should have received a copy of the GNU Affero General Public License
|
||||
%% along with EGS. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Nonterminals declarations declaration instructions instruction.
|
||||
Terminals integer name event function push syscall '->' ',' dot.
|
||||
Rootsymbol declarations.
|
||||
|
||||
declarations -> declaration declarations : {'$1', '$2'}.
|
||||
declarations -> '$empty' : nil.
|
||||
|
||||
declaration -> event name '->' instructions dot : {event, unwrap('$2'), '$4'}.
|
||||
declaration -> function name '->' instructions dot : {function, unwrap('$2'), '$4'}.
|
||||
|
||||
instructions -> instruction ',' instructions : {'$1', '$3'}.
|
||||
instructions -> instruction : {'$1', nil}.
|
||||
|
||||
instruction -> push integer : {push, unwrap('$2')}.
|
||||
instruction -> syscall : {syscall, unwrap('$1')}.
|
||||
|
||||
Erlang code.
|
||||
|
||||
unwrap({_,_,V}) -> V.
|
||||
Loading…
Reference in New Issue
Block a user