brotorift 0.1.0

data/lib/generators/unity_client_generator.cs.erb

@@ -0,0 +1,103 @@
+using Brotorift;
+using UnityEngine;
+using System;
+using System.Collections.Generic;
+using System.Text;
+
+namespace <%= node.namespace %>
+{
+	#region Enums
+	<% for e in runtime.enums.values %>
+	/// <summary>
+	/// <%= e.doc %>
+	/// </summary>
+	public enum <%= e.name %>
+	{<% for v in e.elements.values %>
+		/// <summary>
+		/// <%= v.doc %>
+		/// </summary>
+		<%= v.name %> = <%= v.value %>,
+	<% end %>}
+	<% end %>
+	#endregion
+
+	#region Structs
+	<% for s in runtime.structs.values %>
+	/// <summary>
+	/// <%= s.doc %>
+	/// </summary>
+	public struct <%= s.name %> : IStruct
+	{<% for m in s.members %>
+		/// <summary>
+		/// <%= m.doc %>
+		/// </summary>
+		<%= m.unity_def %>
+		<% end %>
+		public <%= s.name %>( <%= s.members.map { |m| m.unity_param } .join ', ' %> )
+		{<% for m in s.members %>
+			this.<%= m.name %> = <%= m.name %>;<% end %>
+		}
+
+		public void ReadFromPacket( InPacket packet )
+		{<% for m in s.members %>
+			this.<%= m.unity_read %><% end %>
+		}
+
+		public void WriteToPacket( OutPacket packet )
+		{<% for m in s.members %>
+			<%= m.unity_write %><% end %>
+		}
+	}
+	<% end %>
+	#endregion
+	<% for node_direction in runtime.get_node_directions node, :client %>
+	public abstract class <%= node_direction.class_name %> : Client
+	{<% for m in node_direction.in_direction.messages.values %>
+		/// <summary>
+		/// <%= m.doc %>
+		/// </summary><% for p in m.members %>
+		/// <param name="<%= p.name %>"><%= p.doc %></param><% end %>
+		protected abstract <%= m.unity %>;<% end %>
+
+		public <%= node_direction.class_name %>()
+		{
+		}
+
+		private enum InMessage
+		{<% for m in node_direction.in_direction.messages.values %>
+			<%= m.name %> = <%= m.id %>,<% end %>
+		}
+
+		private enum OutMessage
+		{<% for m in node_direction.out_direction.messages.values %>
+			<%= m.name %> = <%= m.id %>,<% end %>
+		}
+		<% for m in node_direction.out_direction.messages.values %>
+		/// <summary>
+		/// <%= m.doc %>
+		/// </summary><% for p in m.members %>
+		/// <param name="<%= p.name %>"><%= p.doc %></param><% end %>
+		public <%= m.unity %>
+		{
+			var packet = new OutPacket( (int)OutMessage.<%= m.name %> );
+			<% for p in m.members %><%= p.unity_write %>
+			<% end %>this.SendPacket( packet );
+		}<% end %>
+
+		protected override void ProcessPacket( InPacket packet )
+		{
+			switch( (InMessage)packet.Header )
+			{<% for m in node_direction.in_direction.messages.values %>
+				case InMessage.<%= m.name %>:
+					{<% for p in m.members %>
+						var <%= p.unity_read %><% end %>
+						this.<%= m.name %>( <%= m.unity_param %> );
+					}
+					break;<% end %>
+				default:
+					break;
+			}
+		}
+	}
+	<% end %>
+}

data/lib/generators/unity_client_generator.rb

@@ -0,0 +1,188 @@
+require 'erb'
+require_relative '../case_helper'
+
+
+class BuiltinTypeDef
+	def unity
+		case @name
+		when 'UShort'
+			return 'ushort'
+		when 'UInt'
+			return 'uint'
+		when 'ULong'
+			return 'ulong'
+		when 'DateTime'
+			return 'DateTime'
+		when 'ByteBuffer'
+			return 'byte[]'
+		when 'List'
+			return 'List'
+		when 'Set'
+			return 'HashSet'
+		when 'Map'
+			return 'Dictionary'
+		when 'Vector2', 'Vector3', 'Color'
+			return @name
+		when 'Matrix4'
+			return 'Matrix4x4'
+		else
+			return @name.decapitalize
+		end
+	end
+end
+
+
+class EnumTypeDef
+	def unity
+		@name
+	end
+end
+
+
+class StructTypeDef
+	def unity
+		@name
+	end
+end
+
+
+class TypeInstanceDef
+	@@lambda_index = 0
+
+	def unity
+		if @params.empty?
+			return @type.unity
+		else
+			return "#{@type.unity}#{unity_type_param}"
+		end
+	end
+
+	def unity_read is_top_scope
+		str = ''
+		if @type.is_a? StructTypeDef
+			str = "packet.ReadStruct( new #{@type.name}() )"
+		elsif @type.is_a? EnumTypeDef
+			str = "(#{@type.name})packet.ReadInt()"
+		else
+			str = "packet.Read#{unity_read_write}"
+			if @params.empty?
+				str += '()'
+			else
+				param_str = @params.map { |p| p.unity_read false } .join ', '
+				str += '( ' + param_str + ' )'
+			end
+		end
+
+		if is_top_scope == false
+			str = '() => ' + str
+		end
+
+		str
+	end
+
+	def unity_write member_name, is_top_scope
+		str = ''
+		if @type.is_a? StructTypeDef
+			str = "packet.WriteStruct( #{member_name} )"
+		elsif @type.is_a? EnumTypeDef
+			str = "packet.WriteInt( (int)#{member_name} )"
+		else
+			str = "packet.Write#{unity_read_write}"
+			if @params.empty?
+				str += "( #{member_name} )"
+			else
+				params_str = @params.map do |p|
+					@@lambda_index += 1
+					arg_name = '_' + @@lambda_index.to_s
+					p.unity_write arg_name, false
+				end
+				param_str = params_str.join ', '
+				str += "( #{member_name}, #{param_str} )"
+			end
+		end
+
+		if is_top_scope == false
+			str = "( #{member_name} ) => " + str
+		end
+
+		str
+	end
+
+	def unity_read_write
+		if @params.empty?
+			return @type.name
+		else
+			return "#{@type.name}#{unity_type_param}"
+		end
+	end
+
+	def unity_type_param
+		return '' if @params.empty?
+		param_str = @params.map { |p| p.unity } .join ', '
+		'<' + param_str + '>'
+	end
+end
+
+
+class MemberDef
+	def unity_def
+		"public #{unity_param};"
+	end
+
+	def unity_param
+		"#{@type.unity} #{@name}"
+	end
+
+	def unity_read
+		"#{@name} = #{@type.unity_read true};"
+	end
+
+	def unity_write
+		"#{@type.unity_write @name, true};"
+	end
+end
+
+
+class DirectionDef
+	def unity_name
+		"#{@client}#{@server}Connector"
+	end
+end
+
+
+class MessageDef
+	def unity
+		param_str = members.map { |m| m.unity_param } .join ', '
+		"void #{@name}( #{param_str} )"
+	end
+
+	def unity_param
+		members.map { |m| m.name } .join ', '
+	end
+end
+
+
+class NodeDirection
+	def class_name
+		"#{@remote.name}ConnectorBase"
+	end
+end
+
+
+class UnityClientGenerator < Generator
+	def initialize
+		super 'unity', :client
+	end
+
+	def generate node, runtime
+		folder = File.expand_path File.dirname __FILE__
+		erb_file = folder + '/unity_client_generator.cs.erb'
+		template = File.read erb_file
+		erb = ERB.new template
+		content = erb.result binding
+		File.write "#{node.name}.cs", content
+	end
+end
+
+
+Generator.add UnityClientGenerator.new

data/lib/lexer.rb

@@ -0,0 +1,42 @@
+require 'rltk'
+
+
+class Lexer < RLTK::Lexer
+	# Whitespace
+	rule(/\s/)
+
+	# Keyword
+	rule(/namespace/)				{ :NAMESPACE }
+	rule(/include/)					{ :INCLUDE }
+	rule(/node/)					{ :NODE }
+	rule(/as/)						{ :AS }
+	rule(/struct/)					{ :STRUCT }
+	rule(/enum/)					{ :ENUM }
+	rule(/direction/)				{ :DIRECTION }
+	rule(/message/)					{ :MESSAGE }
+	rule(/sequence/)				{ :SEQUENCE }
+	rule(/end/)						{ :END }
+
+	# Operator
+	rule(/\./)						{ :DOT }
+	rule(/\=/)						{ :ASSIGN }
+	rule(/<-/)						{ :LARROW }
+	rule(/->/)						{ :RARROW }
+	rule(/:/)						{ :COLON }
+	rule(/</)						{ :LANGLE }
+	rule(/>/)						{ :RANGLE }
+	rule(/,/)						{ :COMMA }
+
+	# Number
+	rule(/(\+|-)?\d+/)				{ |t| [:NUMBER, t.to_i] }
+	rule(/0[xX][0-9a-fA-F]+/)		{ |t| [:NUMBER, t.hex] }
+
+	# String
+	rule(/'.+'/)					{ |t| [:STRING, t[1..-2]] }
+
+	# Identifier
+	rule(/[A-Za-z_][A-Za-z0-9_]*/)	{ |t| [:IDENT, t] }
+
+	# Document
+	rule(/#.*/)						{ |t| [:DOCUMENT, t[1..-1].strip] }
+end

data/lib/parser.rb

@@ -0,0 +1,105 @@
+require 'rltk'
+require_relative 'ast'
+
+
+module RLTK
+	class Parser
+		class Environment
+			def position
+				Position.new @positions.first, @positions.last
+			end
+		end
+	end
+end
+
+
+class Parser < RLTK::Parser
+	@@enum_value = 0
+
+	list(:decl_list, :decl)
+
+	production(:decl) do
+		clause('include_decl')										{ |d| d }
+		clause('node_decl')											{ |d| d }
+		clause('struct_decl')										{ |d| d }
+		clause('enum_decl')											{ |d| d }
+		clause('direction_decl')									{ |d| d }
+		clause('sequence_decl')										{ |d| d }
+	end
+
+	production(:include_decl) do
+		clause('INCLUDE STRING')									{ |_, filename| IncludeDecl.new self.position, filename }
+	end
+
+	production(:node_decl) do
+		clause('NODE IDENT IDENT doc')								{ |_, language, name, doc| NodeDecl.new self.position, name, language, name, '', doc }
+		clause('NODE IDENT IDENT AS IDENT doc')						{ |_, language, name, _, nickname, doc| NodeDecl.new self.position, name, language, nickname, '', doc }
+		clause('NODE IDENT IDENT NAMESPACE namespace doc')			{ |_, language, name, _, namespace, doc| NodeDecl.new self.position, name, language, name, namespace, doc }
+		clause('NODE IDENT IDENT AS IDENT NAMESPACE namespace doc')	{ |_, language, name, _, nickname, _, namespace, doc| NodeDecl.new self.position, name, language, nickname, namespace, doc }
+	end
+
+	production(:namespace) do
+		clause('IDENT')												{ |name| name }
+		clause('IDENT DOT namespace')								{ |name, _, rest| name + '.' + rest }
+	end
+
+	production(:doc) do
+		clause('')													{ || '' }
+		clause('DOCUMENT')											{ |doc| doc }
+	end
+
+	production(:struct_decl) do
+		clause('STRUCT IDENT doc member_list END')					{ |_, name, doc, members, _| StructDecl.new self.position, name, doc, members }
+	end
+
+	list(:member_list, :member)
+
+	production(:member) do
+		clause('type IDENT doc')									{ |type, name, doc| MemberDecl.new self.position, type, name, doc }
+	end
+
+	production(:type) do
+		clause('IDENT')												{ |name| TypeDecl.new self.position, name, [] }
+		clause('IDENT LANGLE type_param_list RANGLE')				{ |name, _, params, _| TypeDecl.new self.position, name, params }
+	end
+
+	nonempty_list(:type_param_list, :type, :COMMA)
+
+	production(:enum_decl) do
+		clause('ENUM IDENT doc element_list END')					{ |_, name, doc, elements, _| @@enum_value = 0; EnumDecl.new self.position, name, doc, elements }
+	end
+
+	list(:element_list, :element)
+
+	production(:element) do
+		clause('IDENT doc')											{ |name, doc| @@enum_value += 1; EnumElementDecl.new self.position, name, @@enum_value - 1, doc }
+		clause('IDENT ASSIGN NUMBER doc')							{ |name, _, value, doc| @@enum_value = value + 1; EnumElementDecl.new self.position, name, @@enum_value - 1, doc }
+	end
+
+	production(:direction_decl) do
+		clause('DIRECTION IDENT arrow IDENT doc message_list END')	{ |_, client, direction, server, doc, messages, _| DirectionDecl.new self.position, client, direction, server, doc, messages }
+	end
+
+	production(:arrow) do
+		clause('LARROW')											{ |_| :left }
+		clause('RARROW')											{ |_| :right }
+	end
+
+	list(:message_list, :message)
+
+	production(:message) do
+		clause('MESSAGE IDENT doc member_list END')					{ |_, name, doc, members, _| MessageDecl.new self.position, name, doc, members }
+	end
+
+	production(:sequence_decl) do
+		clause('SEQUENCE IDENT doc step_list END')					{ |_, name, doc, steps, _| SequenceDecl.new self.position, name, doc, steps }
+	end
+
+	list(:step_list, :step)
+
+	production(:step) do
+		clause('IDENT arrow IDENT COLON IDENT doc')					{ |client, direction, server, _, message, doc| StepDecl.new self.position, client, direction, server, message, doc }
+	end
+
+	finalize
+end