dracoon 1.0.0.beta2

data/lib/dracoon_nodes.rb

@@ -0,0 +1,228 @@
+
+require 'treetop'
+
+module DracoonGrammar
+
+    class Treetop::Runtime::SyntaxNode
+    public
+        attr_accessor :oid
+
+        def cutdown
+            if self.elements.nil? then return end
+            self.elements.each do |e| e.cutdown end
+            if (self.respond_to? :customCutdown)
+                nodes = Array.new
+                self.elements.each do |e| self.customCutdown(e, nodes) end
+                self.elements.clear
+                self.elements.concat nodes
+            end
+        end
+    end
+
+
+    class ModuleNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? HeaderNode or node.is_a? SceneNode or node.is_a? ItemNode
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class HeaderNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? IdentifierNode or node.is_a? StateNode or node.is_a? SummaryNode or node.is_a? ScriptNode
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class SceneNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? HeaderNode or node.is_a? PassageNode or node.is_a? ScriptNode
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class PassageNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? ContentNode or node.is_a? HeaderNode or node.is_a? ActionNode then
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class ItemNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? ContentNode or node.is_a? HeaderNode or node.is_a? ActionNode then
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class SummaryNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+    class EndParagraphNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+    class ContentNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? WordNode or node.is_a? PunctuationNode or node.is_a? EndParagraphNode or node.is_a? NewLineNode or node.is_a? LinkNode or node.is_a? InlineTagNode or node.is_a? IfTagNode or node.is_a? ScriptTagNode then
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class ActionNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? KeywordNode or node.is_a? ScriptNode then
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class NewLineNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+    class LinkNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? WordNode or node.is_a? KeywordNode then
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class IdentifierNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear unless self.elements.nil?
+        end
+    end
+
+    class StateNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear unless self.elements.nil?
+        end
+    end
+
+    class StringNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+    class KeywordNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+    class WordNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear unless self.elements.nil?
+        end
+    end
+
+    class NumberNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear unless self.elements.nil?
+        end
+    end
+
+    class PunctuationNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+
+    class ScriptNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+    class InlineTagNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            body = nil
+            self.elements.each do |e|
+                if e.is_a? ScriptNode then
+                    body = e
+                    break
+                end
+            end
+            self.elements.clear unless self.elements.nil?
+            if not body.nil? then
+                body.cutdown
+                self.elements << body
+            end
+        end
+    end
+
+    class IfTagNode < Treetop::Runtime::SyntaxNode
+    public
+        def customCutdown(node, children)
+            if node.is_a? JSExprNode or node.is_a? ContentNode then
+                children << node
+            elsif node.nonterminal?
+                node.elements.each do |e| self.customCutdown(e, children) end
+            end
+        end
+    end
+
+    class ScriptTagNode < Treetop::Runtime::SyntaxNode
+    end
+
+    class JSExprNode < Treetop::Runtime::SyntaxNode
+    public
+        def cutdown
+            self.elements.clear if not self.elements.nil?
+        end
+    end
+
+end

data/lib/dracoon_sqlite.rb

@@ -0,0 +1,222 @@
+
+require 'sqlite3'
+require 'uglifier'
+
+load 'dracoon_nodes.rb'
+
+
+module Dracoon
+
+    class SQLiteWriter
+        include DracoonGrammar
+
+        TYPE_ROOT         =  1
+        TYPE_MODULE       =  2
+        TYPE_SCENE        =  3
+        TYPE_PASSAGE      =  4
+        TYPE_ITEM         =  5
+        TYPE_HEADER       =  6
+        TYPE_STATE        =  7
+        TYPE_SUMMARY      =  8
+        TYPE_CONTENT      =  9
+        TYPE_ACTION       = 10
+        TYPE_NEWLINE      = 11
+        TYPE_ENDPARAGRAPH = 12
+        TYPE_LINK         = 13
+        TYPE_IDENTIFIER   = 14
+        TYPE_STRING       = 15
+        TYPE_KEYWORD      = 16
+        TYPE_WORD         = 17
+        TYPE_NUMBER       = 18
+        TYPE_PUNCTUATION  = 19
+        TYPE_SCRIPT       = 20
+        TYPE_JSEXPR       = 21
+        TYPE_INLINETAG    = 22
+        TYPE_IFTAG        = 23
+        TYPE_SCRIPTTAG    = 24
+
+
+        @db = nil
+        @currentModule  = nil
+        @currentItem    = nil
+        @currentScene   = nil
+        @currentPassage = nil
+
+
+        def initialize
+            File::delete('gamebook.db') if File::exist? 'gamebook.db'
+            @db = SQLite3::Database.new('gamebook.db')
+            self.createTables
+        end
+
+        def writeAST(node, parent)
+            type = nil
+            content = node.text_value
+            if    node.is_a? ModuleNode       then self.writeModule(node, parent)
+            elsif node.is_a? ItemNode         then self.writeItem(node, parent)
+            elsif node.is_a? SceneNode        then self.writeScene(node, parent)
+            elsif node.is_a? PassageNode      then self.writePassage(node, parent)
+            elsif node.is_a? HeaderNode       then self.writeNode(node, parent, TYPE_HEADER)
+            elsif node.is_a? SummaryNode      then self.writeNode(node, parent, TYPE_SUMMARY, content)
+            elsif node.is_a? EndParagraphNode then self.writeNode(node, parent, TYPE_ENDPARAGRAPH)
+            elsif node.is_a? ContentNode      then self.writeNode(node, parent, TYPE_CONTENT)
+            elsif node.is_a? ActionNode       then self.writeNode(node, parent, TYPE_ACTION)
+            elsif node.is_a? NewLineNode      then self.writeNode(node, parent, TYPE_NEWLINE)
+            elsif node.is_a? LinkNode         then self.writeNode(node, parent, TYPE_LINK)
+            elsif node.is_a? IdentifierNode   then self.writeNode(node, parent, TYPE_IDENTIFIER, content)
+            elsif node.is_a? StateNode        then self.writeNode(node, parent, TYPE_STATE, content)
+            elsif node.is_a? StringNode       then self.writeNode(node, parent, TYPE_STRING, content)
+            elsif node.is_a? KeywordNode      then self.writeNode(node, parent, TYPE_KEYWORD, content)
+            elsif node.is_a? WordNode         then self.writeNode(node, parent, TYPE_WORD, content)
+            elsif node.is_a? NumberNode       then self.writeNode(node, parent, TYPE_NUMBER, content)
+            elsif node.is_a? PunctuationNode  then self.writeNode(node, parent, TYPE_PUNCTUATION, content)
+            elsif node.is_a? ScriptNode       then self.writeScript(node, parent)
+            elsif node.is_a? InlineTagNode    then self.writeNode(node, parent, TYPE_INLINETAG)
+            elsif node.is_a? IfTagNode        then self.writeNode(node, parent, TYPE_IFTAG)
+            elsif node.is_a? ScriptTagNode    then self.writeNode(node, parent, TYPE_SCRIPTTAG)
+            elsif node.is_a? JSExprNode       then self.writeNode(node, parent, TYPE_JSEXPR, content)
+            end
+
+            node.elements.each { |e|
+                self.writeAST(e, node)
+            } unless node.elements.nil?
+
+            # Updating all modules to point to root node
+            @db.execute("update Nodes set idParent = 1 where type = ? and idParent is NULL", TYPE_MODULE)
+        end
+
+        def writeNode(node, parent, type, content=nil)
+            if parent.nil?
+                if content.nil?
+                    @db.execute("insert into Nodes (type) values (?)", type)
+                else
+                    @db.execute("insert into Nodes (type, content) values (?, ?)", type, content)
+                end
+            else
+                if content.nil?
+                    @db.execute("insert into Nodes (idParent, type) values (?, ?)", parent.oid, type)
+                else
+                    @db.execute("insert into Nodes (idParent, type, content) values (?, ?, ?)", parent.oid, type, content)
+                end
+            end
+            node.oid = @db.last_insert_row_id
+        end
+
+        def writeModule(node, parent)
+            moduleName = self.getHeaderNameOfNode(node)
+            idNode = @db.get_first_row("select idNode from Modules where name = ?", moduleName)
+            if idNode.nil?
+                self.writeNode(node, parent, TYPE_MODULE)
+                node.oid = @db.last_insert_row_id
+                @db.execute("insert into Modules (idNode, name) values (?, ?)", node.oid, moduleName)
+            else
+                removeHeaderOfNode(node)
+                node.oid = idNode
+            end
+
+            @currentModule = node
+            @currentItem = nil
+            @currentScene = nil
+            @currentPassage = nil
+        end
+
+        def writeItem(node, parent)
+            itemName = self.getHeaderNameOfNode(node)
+            idNode = @db.get_first_row("select idNode from Items where idModule = ? and name = ?", @currentModule.oid, itemName)
+            if idNode.nil?
+                self.writeNode(node, parent, TYPE_ITEM)
+                node.oid = @db.last_insert_row_id
+                @db.execute("insert into Items (idNode, idModule, name) values (?, ?, ?)", node.oid, @currentModule.oid, itemName)
+            else
+                removeHeaderOfNode(node)
+                node.oid = idNode
+            end
+
+            @currentItem = node
+            @currentScene = nil
+            @currentPassage = nil
+        end
+
+        def writeScene(node, parent)
+            sceneName = self.getHeaderNameOfNode(node)
+            idNode = @db.get_first_row("select idNode from Scenes where idModule = ? and name = ?", @currentModule.oid, sceneName)
+            if idNode.nil?
+                self.writeNode(node, parent, TYPE_SCENE)
+                node.oid = @db.last_insert_row_id
+                @db.execute("insert into Scenes (idNode, idModule, name) values (?, ?, ?)", node.oid, @currentModule.oid, sceneName)
+            else
+                removeHeaderOfNode(node)
+                node.oid = idNode
+            end
+
+            @currentScene = node
+            @currentPassage = nil
+            @currentItem = nil
+        end
+
+        def writePassage(node, parent)
+            passageName = self.getHeaderNameOfNode(node)
+            idNode = @db.get_first_row("select idNode from Passages where idScene = ? and name = ?", @currentScene.oid, passageName)
+            if idNode.nil?
+                self.writeNode(node, parent, TYPE_PASSAGE)
+                node.oid = @db.last_insert_row_id
+                @db.execute("insert into Passages (idNode, idScene, name) values (?, ?, ?)", node.oid, @currentScene.oid, passageName)
+            else
+                removeHeaderOfNode(node)
+                node.oid = idNode
+            end
+
+            @currentPassage = node
+        end
+
+        def writeScript(node, parent)
+            jscode = node.text_value
+            self.writeNode(node, parent, TYPE_SCRIPT)
+            jscode = "var o#{node.oid} = {#{jscode}} ;"
+            jscode = Uglifier.compile(jscode, :mangle => false)
+            @db.execute("update Nodes set content = ? where oid = ?", jscode, node.oid)
+        end
+
+
+        def getHeaderNameOfNode(node)
+            name = nil
+            node.elements.each do |e|
+                if e.is_a? HeaderNode
+                    e.elements.each do |he|
+                        if he.is_a? IdentifierNode
+                            name = he.text_value
+                            break;
+                        end
+                    end
+                    break;
+                end
+            end
+            return name;
+        end
+
+        def removeHeaderOfNode(node)
+            header = nil
+            node.elements.each do |e|
+                if e.is_a? HeaderNode
+                    header = e
+                    break
+                end
+            end
+            node.elements.delete(header) unless header.nil?
+        end
+
+
+        def createTables
+            # Create a database
+            @db.execute("create table Nodes    ( idParent integer, type integer, content text )")
+            @db.execute("create table Passages ( idNode integer, idScene integer, name text )")
+            @db.execute("create table Scenes   ( idNode integer, idModule integer, name text )")
+            @db.execute("create table Items    ( idNode integer, idModule integer, name text )")
+            @db.execute("create table Modules  ( idNode integer, name text )")
+            # Inserting root node
+            @db.execute("insert into Nodes (type) values (?)", TYPE_ROOT)
+        end
+
+    end
+
+end

metadata

@@ -0,0 +1,96 @@
+--- !ruby/object:Gem::Specification
+name: dracoon
+version: !ruby/object:Gem::Version
+  version: 1.0.0.beta2
+platform: ruby
+authors:
+- Pedro L. Morales
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-03-30 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: treetop
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.5'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.5'
+- !ruby/object:Gem::Dependency
+  name: uglifier
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.5'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.5'
+- !ruby/object:Gem::Dependency
+  name: sqlite3
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+description: Dracoon is a language and compiler to write interactive fiction books.
+email: piterlouis@gmail.com
+executables:
+- dracoon
+extensions: []
+extra_rdoc_files:
+- LICENSE
+- README.md
+files:
+- LICENSE
+- README.md
+- bin/dracoon
+- dracoon.gemspec
+- lib/dracoon.rb
+- lib/dracoon_core.rb
+- lib/dracoon_nodes.rb
+- lib/dracoon_sqlite.rb
+homepage: https://github.com/piterlouis/dracoon
+licenses:
+- GPL-2
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>'
+    - !ruby/object:Gem::Version
+      version: 1.3.1
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.1
+signing_key: 
+specification_version: 4
+summary: Dracoon, the amaizing tool to compile interactive fiction books.
+test_files: []