mvinl 0.1.3

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: f891e7bb1683b84d918155e32b06fdf03ae4d00791676e4b1dc467c30d495b90
+  data.tar.gz: c96e8a9930ed532580014843594d70d3fb025089fdd06708e9440b5316c2a772
+SHA512:
+  metadata.gz: febf482245e910fe310efae6a5aaaa115769830475678ba8b0e8b0d65dee6b0b4e22f5a4d9d5e5236f5a8e35e0125f55d406a155c6e2b3e4441ced8f7dfe05de
+  data.tar.gz: fb604a7c640da0406c0d0a1190ba0a684491728cd1b9b666da5e870bd754b50d8ebde6ad5a2e3dfea0aecab98e98fc60e7dfbb3d35f94526d5294e981ef91bb1

data/.gitignore

@@ -0,0 +1,26 @@
+*
+!*/
+!.gitignore
+
+# Package
+!README.md
+!LICENSE
+!.ruby-version
+!Gemfile
+!mvinl.gemspec
+!Rakefile
+!rakelib/[a-z]*.rake
+!edit/mvinl.vim
+
+# Executables
+!bin/imvnl
+
+# Library code
+!lib/mvinl.rb
+!lib/mvinl/[a-z]*.rb
+
+!syntax/mvinl.y
+
+# Spec
+!spec/[a-z]*.mvnl
+!spec/[a-z]*.rb

data/.ruby-version

@@ -0,0 +1 @@
+3.2.2

data/Gemfile

@@ -0,0 +1,8 @@
+source "https://rubygems.org"
+
+git_source(:github) {|repo_name| "https://github.com/#{repo_name}" }
+
+gem 'racc', '~> 1.8.1'
+gem 'rake', '~> 13.2'
+
+gemspec

data/LICENSE

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2024 Daniel Sierpiński
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.md

@@ -0,0 +1,60 @@
+# MVinl
+
+A mini stack configuration language.
+
+*Mini Vinl is not Lisp*
+
+## Install
+
+MVinl is packaged as gem. To install it from RubyGems.org go
+
+```
+gem install mvinl
+```
+
+or build and install it from this repo if you have it downloaded
+
+```
+gem build
+gem install ./mvinl-0.1.0.gem
+```
+
+## Usage
+
+Use `MVinl.eval` or `MVinl.eval_from_file` to evaluate mvinl code.
+
+`imvnl` is an interactive shell for mvinl. It's not really how the language
+suppose to be used but it's useful for quckly testing expressions.
+
+Vinl execution returns a hash similar to YAML or JSON. The point is to create a
+configuration structure to initiate objects in an application, like a game
+engine.
+
+The main elements that construct the resulting structure are groups and
+properties. Groups typically sort objects into data categories, such as states.
+Properties can be thought of as object constructors.
+
+**Example:**
+
+``` mvinl
+def (center x (/ x 2))
+
+@start
+  SplashScreen 'path/to/image'.
+
+@second
+  Buttom (center 1920)
+         (center 1080)
+         "Hello, MVinl!"
+        font_size: 21     # END_TAG is optional
+```
+
+## Contribute
+
+I happily accept suggestions and changes. Please leave bug rapports
+[here](https://github.com/513ry/mvinl/issues).
+
+## License
+
+MVinl is a free software distributed under MIT license. Read LICENSE file for
+legal notice.

data/Rakefile

@@ -0,0 +1,5 @@
+task default: %w[spec]
+
+task :spec do
+  rspec
+end

data/bin/imvnl

@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+# frozen-string-literal: true
+
+=begin engine.rb
+Copyright (c) 2018, 2024, Daniel Sierpiński All rights reserved.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+require 'readline'
+require 'pry'
+require 'mvinl/lexer'
+require 'mvinl/parser'
+require 'mvinl/info'
+
+PSL = "mvnl(#{MVinl::Version})".freeze
+PS1 = "#{PSL}>".freeze
+
+module MVinl::REPL
+  LEXER = MVinl::Lexer.new('')
+  PARSER = MVinl::Parser.new(LEXER)
+
+  def self.run
+    while (input = Readline.readline("#{PS1} ", true))
+      Readline::HISTORY.pop if input.strip.empty?
+
+      if input == '^' || input == 'exit'
+        PARSER.finalize!
+        break if PARSER.parsing_done?
+      else
+        LEXER.feed input
+      end
+
+      begin
+        out = PARSER.parse
+        print '=> '
+        pp out
+      rescue MVinl::LexerError => e
+        warn e.message
+      rescue MVinl::ParserError => e
+        warn e.message
+      rescue Racc::ParseError => e
+        warn e.message
+      end
+    end
+  end
+end
+
+MVinl::REPL.run

data/edit/mvinl.vim

@@ -0,0 +1,63 @@
+" Vim syntax file
+" Language:           MVinl
+" Maintainer:         Daniel Sierpinski
+" Last Change:        Dec 04, 2024
+" Version:            1
+"
+" Thanks to the authors of lisp.vim
+" ---------------------------------------------------------------------
+autocmd BufNewFile,BufRead *.mvnl set filetype=mvinl
+
+let s:id = "[a-zA-Z_][a-zA-Z0-9_]*"
+
+syn keyword mvinlKeyword style as def
+execute 'syn match mvinlIdentifier "' . s:id . '"'
+syn match mvinlNumber "[0-9]\+"
+execute 'syn match mvinlSymbol ":' . s:id . '"'
+syn match mvinlString "\"((?:\\.|[^\"\\])*)\""
+execute 'syn match mvinlKeywordArg "' . s:id . ':"'
+execute 'syn match mvinlGroup "@' . s:id . '"'
+syn match mvinlComment "#.*\n"
+syn match mvinlOper "[+\-*/%]" contained
+
+unlet s:id
+
+syn cluster mvinlValue contains=mvnilString,mvinlNumber,mvinlSymbol
+syn cluster mvinlLambda contains=@mvinlValue,mvinlIdentifier,mvinlOper
+
+" ---------------------------------------------------------------------
+" Match polish notation:
+syn region mvinlParen0           matchgroup=hlLevel0 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen1
+syn region mvinlParen1 contained matchgroup=hlLevel1 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen2
+syn region mvinlParen2 contained matchgroup=hlLevel2 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen3
+syn region mvinlParen3 contained matchgroup=hlLevel3 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen4
+syn region mvinlParen4 contained matchgroup=hlLevel4 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen5
+syn region mvinlParen5 contained matchgroup=hlLevel5 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen6
+syn region mvinlParen6 contained matchgroup=hlLevel6 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen7
+syn region mvinlParen7 contained matchgroup=hlLevel7 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen8
+syn region mvinlParen8 contained matchgroup=hlLevel8 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen9
+syn region mvinlParen9 contained matchgroup=hlLevel9 start="`\=(" end=")" skip="|.\{-}|" contains=@mvinlLambda,mvinlParen0
+
+hi mvinlOperType guifg=#970096 ctermfg=95
+
+hi! link mvinlOper mvinlOperType
+hi link mvinlKeyword Keyword
+hi link mvinlIdentifier Type
+hi link mvinlNumber Number
+hi link mvinlSymbol Constant
+hi link mvinlString String
+hi link mvinlKeywordArg Define
+hi link mvinlGroup Identifier
+hi link mvinlComment Comment
+
+hi def hlLevel0 ctermfg=red     guifg=red1
+hi def hlLevel1 ctermfg=yellow  guifg=orange1
+hi def hlLevel2 ctermfg=green   guifg=yellow1
+hi def hlLevel3 ctermfg=cyan    guifg=greenyellow
+hi def hlLevel4 ctermfg=magenta guifg=green1
+hi def hlLevel5 ctermfg=red     guifg=springgreen1
+hi def hlLevel6 ctermfg=yellow  guifg=cyan1
+hi def hlLevel7 ctermfg=green   guifg=slateblue1
+hi def hlLevel8 ctermfg=cyan    guifg=magenta1
+hi def hlLevel9 ctermfg=magenta guifg=purple1
+

data/lib/mvinl/info.rb

@@ -0,0 +1,12 @@
+# frozen-string-literal: true
+
+# engine.rb
+# Copyright (c) 2024, Daniel Sierpiński All rights reserved.
+#
+# See Copyright Notice in mvnil.rb
+
+module MVinl
+  VERSION = '0.1.3'
+  Version = VERSION
+  Copyright = 'Copyright (c) 2024, Daniel Sierpiński'
+end

data/lib/mvinl/lexer.rb

@@ -0,0 +1,155 @@
+# frozen-string-literal: true
+
+=begin engine.rb
+Copyright (c) 2024, Daniel Sierpiński All rights reserved.
+
+See Copyright Notice in mvnil.rb
+=end
+
+require 'strscan'
+
+module MVinl
+  class LexerError < StandardError; end
+  class UnexpectedTokenError < LexerError; end
+
+  class Lexer
+    attr_reader :eos
+
+    ID_REGEX = /[a-zA-Z_][a-zA-Z0-9_]*/
+
+    RESERVED = %w[def as style].freeze
+
+    TOKENS = {
+      KEYWORD: /#{RESERVED[0]}|#{RESERVED[1]}|#{RESERVED[2]}/,
+      OPEN_PAREN: /\(/,
+      CLOSE_PAREN: /\)/,
+      NEW_LINE: /(?:[ \t]*(?:\r?\n)[ \t]*)+/,
+      WHITESPACE: /[ \t]/,
+      KEYWORD_ARG: /(#{ID_REGEX}):/,
+      ID: ID_REGEX,
+      GROUP: /@(#{ID_REGEX})/,
+      NUMBER: /[+-]?\d+/,
+      STRING: /"((?:\\.|[^"\\])*)"/,
+      SYMBOL: /:(#{ID_REGEX})/,
+      COMMENT: /#/,
+      OPER: %r{[+\-*/%]},
+      END_TAG: /\./
+    }.freeze
+
+    def initialize(input)
+      @ss = StringScanner.new(input)
+      @args_n = 0
+      @in_group = false
+      @eos = false
+    end
+
+    def feed(input)
+      @ss = StringScanner.new(input)
+    end
+
+    def next_token
+      return process_eos if @ss.eos?
+
+      TOKENS.each do |type, regex|
+        if @ss.scan regex
+          @last_type = type
+          break
+        end
+      end
+      case @last_type
+      when :NEW_LINE
+        return next_token if continuation_line?
+
+        [:END_TAG, "\n"]
+      when :WHITESPACE
+        # Whitespace (' ' and '\t') does nothing in mvnl 0.1. I handle them
+        # though as indentation plays a role in 0.2 to predict position of elements
+        next_token
+      when :COMMENT
+        skip_to_next_line
+        next_token
+      when :OPEN_PAREN then [:OPEN_PAREN, '(']
+      when :CLOSE_PAREN
+        unless Parser::STATE[:depth].positive?
+          raise UnexpectedTokenError, 'CLOSE_PARAM found winth no matching OPEN_PARAM'
+        end
+
+        [:CLOSE_PAREN, ')']
+      when :OPER
+        unless Parser::STATE[:depth].positive?
+          raise UnexpectedTokenError, 'OPER found with no matching OPEN_PARAM'
+        end
+
+        [:OPER, @ss.matched]
+      when :KEYWORD
+        return [:DEF, @ss.matched] if @ss.matched == 'def'
+
+        [:KEYWORD, @ss.matched]
+      when :KEYWORD_ARG
+        if !Parser::STATE[:in_prop]
+          raise UnexpectedTokenError, 'Looking for identifier but found KEYWORD_ARG'
+        elsif Parser::STATE[:in_keyword_arg]
+          raise UnexpectedTokenError, 'Looking for a keyword argument value but found KEYWORD_ARG'
+        end
+
+        [:KEYWORD_ARG, @ss[1]]
+      when :GROUP
+        # Group gets canceled whenever encountered another group id or a matching end tag
+        if Parser::STATE[:in_keyword_arg]
+          raise UnexpectedTokenError, 'Looking for a keyword argument value but found GROUP'
+        end
+
+        @in_group = true
+        [:GROUP, @ss[1]]
+      when :ID then [:ID, @ss.matched]
+      when :NUMBER, :STRING, :SYMBOL
+        # Values can't be used outside an property or a lambda
+        if !Parser::STATE[:in_prop] && !Parser::STATE[:depth].positive?
+          raise UnexpectedTokenError, "Looking for ID or OPEN_PAREN but found #{@last_type}"
+        elsif !Parser::STATE[:in_keyword_arg] && Parser::STATE[:keyword_arg_depth].positive? &&
+            !Parser::STATE[:depth].positive?
+          raise UnexpectedTokenError, "Looking for END_TAG or KEYWORD_ARG but found #{@last_type}"
+        end
+
+        [@last_type, @ss[1] || @ss.matched]
+      when :END_TAG then [:END_TAG, '.']
+      else
+        raise UnexpectedTokenError, "Unexpected character: '#{@ss.getch}'"
+      end
+    rescue LexerError => e
+      warn "Syntax error at #{@ss.charpos - @ss.matched_size}: #{e}"
+    end
+
+    def tokenize
+      tokens = []
+      while (token = next_token)
+        warn "Tokenize: #{token}"
+        tokens << token
+      end
+      tokens
+    end
+
+    private
+
+    def continuation_line?
+      return true unless @in_group
+
+      # Auto end properties
+      lookahead = @ss.check(/\A(?:#{TOKENS[:GROUP]}|#{TOKENS[:ID]}$|#{TOKENS[:END_TAG]}|#{TOKENS[:NEW_LINE]})/)
+      warn "Continue? in_prop?: #{Parser::STATE[:in_prop].inspect}, lookahead: #{lookahead.inspect}"
+      Parser::STATE[:in_prop] ? !lookahead : true
+    end
+
+    # Move the cursor to the next new line tag
+    def skip_to_next_line
+      @ss.scan_until(/\n/) || @ss.terminate
+    end
+
+    def process_eos
+      return if @eos
+
+      @eos = true
+      [false, '$']
+    end
+  end
+end

data/lib/mvinl/parser.rb

@@ -0,0 +1,43 @@
+# frozen-string-literal: true
+
+=begin engine.rb
+Copyright (c) 2024, Daniel Sierpiński All rights reserved.
+
+See Copyright Notice in mvnil.rb
+=end
+
+require_relative '../../syntax/mvinl.tab'
+
+class MVinl::Parser < MVinl::Program
+  def initialize(lexer, debug: false)
+    @yydebug = debug
+    @lexer = lexer
+    @tokens = []
+    @done = false
+    super()
+  end
+
+  def next_token
+    if @tokens.empty?
+      @lexer.next_token
+    else
+      @tokens.shift
+    end
+  end
+
+  def enqueue_token(token)
+    @tokens << token
+  end
+
+  def finalize!
+    @done = true
+  end
+
+  def parsing_done?
+    @done && @tokens.empty?
+  end
+
+  def parse
+    do_parse
+  end
+end

data/lib/mvinl.rb

@@ -0,0 +1,37 @@
+# frozen-string-literal: true
+
+=begin engine.rb
+Copyright (c) 2018, 2024, Daniel Sierpiński All rights reserved.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+=end
+
+require 'mvinl/parser'
+require 'mvinl/lexer'
+
+module MVinl
+  def self.eval(input)
+    parser = Parser.new(Lexer.new(input))
+    parser.parse
+  end
+
+  def self.eval_from_file(path)
+    self.eval File.read(path)
+  end
+end

data/mvinl.gemspec

@@ -0,0 +1,33 @@
+# frozen-string-literal: true
+
+lib = File.expand_path('lib', __dir__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'mvinl/info'
+
+GRAMMAR_FILE = 'syntax/mvinl.y'
+COMPILED_FILE = 'syntax/mvinl.tab.rb'
+
+Gem::Specification.new do |s|
+  s.name          = 'mvinl'
+  s.version       = MVinl::VERSION
+  s.authors       = ['siery']
+  s.email         = ['siery@comic.com']
+  s.summary       = 'A simple configuration language made with RACC'
+  s.homepage      = 'https://rubygems.org/gems/mvinl'
+  s.license       = 'MIT'
+  s.metadata      = { 'source_code_uri' => 'https://github.com/513ry/mvinl' }
+  s.required_ruby_version = '>= 3.2.0'
+
+  # Sify which files should be added to the gem when it is released.
+  # The `git ls-files -z` loads the files in the RubyGem that have been added into git.
+  s.files = Dir.chdir(File.expand_path(__dir__)) do
+    `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|s|features)/}) }
+  end
+  # Compile syntax file
+  s.files.delete(GRAMMAR_FILE)
+  s.files << COMPILED_FILE
+  s.require_paths = %w[lib bin s rakelib syntax]
+  s.executables << 'imvnl'
+
+  s.add_dependency 'pp', '~> 0.6.2'
+end

data/rakelib/build.rake

@@ -0,0 +1,8 @@
+# frozen-string-literal: true
+
+GRAMMAR_FILE = 'syntax/mvinl.y'
+COMPILED_FILE = 'syntax/mvinl.tab.rb'
+
+task 'build' do
+  system('racc', GRAMMAR_FILE, '-o', COMPILED_FILE)
+end

data/spec/stack.mvnl

@@ -0,0 +1,21 @@
+#
+#
+#
+# MVinl stack configuration
+
+# Definition with a single argument
+def (mins x (% x 60))
+
+# Definition with multiple arguments
+def (perc x n (/ (* x 100) n))
+
+@menu # First group runs as the initial state
+  Menu
+    New_Game: :state_next
+    Exit: :abord
+
+@game
+  Mouse
+  Board 3 (+ 1 (+ 1 (+ 1)))
+  Button "󰮱  Hello Vinl!"
+         line_height: (perc 2 8) padding: (* 2 4)

data/syntax/mvinl.tab.rb

@@ -0,0 +1,519 @@
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by Racc 1.8.1
+# from Racc grammar file "mvinl.y".
+#
+
+require 'racc/parser.rb'
+module MVinl
+  class Program < Racc::Parser
+
+module_eval(<<'...end mvinl.y/module_eval...', 'mvinl.y', 105)
+
+  FUNCTIONS = {}
+  STATE = {
+    in_prop: false,
+    in_keyword_arg: false,
+    keyword_arg_depth: 0,
+    depth: 0
+  }
+
+  class MVinl::ParserError < StandardError; end
+
+  private
+
+  def create_property(id, positional_args = [], keyword_args = {})
+    STATE[:in_prop] = false
+    {id => [positional_args, keyword_args]}
+  end
+
+  def create_group(properties)
+    properties ||  Hash.new
+  end
+
+  def define_function(name, args, body)
+  FUNCTIONS[name.to_sym] = {args: args, body: body}
+    nil
+  end
+
+  def evaluate_pn(operator, operands, context = {})
+    operands.map! do |op|
+      if op.is_a?(Array)
+        evaluate_pn(op[0], op[1..], context) # Nested PN expression
+      elsif context.key?(op)
+        context[op] # Function identifier
+      else
+	op # Literal value (e.g., NUMBER or STRING)
+      end
+    end
+
+    if FUNCTIONS.key?(operator.to_sym)
+      function = FUNCTIONS[operator.to_sym]
+      raise MVinl::ParserError, "Argument mismatch for #{operator}" if operands.size != function[:args].size
+
+      # Map arguments to operands
+      new_context = function[:args].zip(operands).to_h
+      # Replace symbols in body with context values
+      function = replace_symbols(function[:body], new_context)
+      # Recursive evaluation
+      evaluate_pn(function[0], function[1..], new_context)
+    else
+      begin
+        operands.reduce(operator.to_sym)
+      rescue NoMethodError
+        raise MVinl::ParserError, "Unknown operator: #{operator}"
+      end
+    end
+  end
+
+  def replace_symbols(array, replacements)
+    array.map do |element|
+      if element.is_a?(Array)
+        replace_symbols(element, replacements)
+      elsif element.is_a?(Symbol) && replacements.key?(element)
+        replacements[element]
+      else
+        element
+      end
+    end
+  end
+...end mvinl.y/module_eval...
+##### State transition tables begin ###
+
+racc_action_table = [
+     2,     8,     5,     6,    30,    26,    27,    28,    15,     7,
+    11,    11,    15,    15,    26,    27,    28,    15,    17,    11,
+    41,    48,    15,    26,    27,    28,    37,    41,    11,    41,
+    48,    15,    26,    27,    28,    43,   nil,    11,    41,    15,
+    15,    26,    27,    28,   nil,   nil,    11,    41,   nil,    15,
+   -14,   -14,   -14,   -14,   nil,   nil,    11,   -16,    26,    27,
+    28,   nil,   nil,    11,    26,    27,    28,   nil,   nil,    11 ]
+
+racc_action_check = [
+     1,     2,     1,     1,    20,    21,    21,    21,    20,     1,
+    21,     7,     9,    21,    38,    38,    38,    10,    12,    38,
+    38,    38,    38,    39,    39,    39,    22,    31,    39,    39,
+    39,    39,    50,    50,    50,    32,   nil,    50,    50,    32,
+    50,    51,    51,    51,   nil,   nil,    51,    51,   nil,    51,
+    13,    13,    13,    13,   nil,   nil,    13,    18,    18,    18,
+    18,   nil,   nil,    18,    36,    36,    36,   nil,   nil,    36 ]
+
+racc_action_pointer = [
+   nil,     0,     1,   nil,   nil,   nil,   nil,     0,   nil,    -2,
+     3,   nil,    14,    45,   nil,   nil,   nil,   nil,    52,   nil,
+    -6,    -1,    21,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,    15,    25,   nil,   nil,   nil,    58,   nil,     8,    17,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+    26,    35,   nil,   nil,   nil ]
+
+racc_action_default = [
+    -1,   -41,   -41,    -2,    -3,    -4,    -6,   -41,    55,    -5,
+   -41,   -30,    -7,    -9,   -13,   -40,   -32,    -8,   -10,   -12,
+   -41,   -41,   -11,   -15,   -20,   -21,   -22,   -23,   -24,   -36,
+   -36,   -35,   -41,   -33,   -34,   -17,   -41,   -19,   -41,   -41,
+   -25,   -31,   -32,   -32,   -18,   -28,   -37,   -38,   -39,   -29,
+   -41,   -41,   -26,   -35,   -27 ]
+
+racc_goto_table = [
+    10,    14,    16,    34,    23,    38,    39,     1,    21,    40,
+     3,     4,    29,     9,    32,    12,    45,    49,    13,    18,
+    22,    19,    44,    35,    42,    36,    31,   nil,    52,    54,
+    47,    47,    34,    34,    50,    51,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    32,    32 ]
+
+racc_goto_check = [
+    15,    10,    10,    14,    11,    19,    19,     1,    16,    18,
+     2,     3,    10,     4,    15,     5,    18,    18,     6,     7,
+     8,     9,    11,    12,    10,    13,    17,   nil,    18,    18,
+    10,    10,    14,    14,    16,    16,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    15,    15 ]
+
+racc_goto_pointer = [
+   nil,     7,     9,    10,     7,     6,     9,     6,     2,     8,
+    -8,   -14,     1,     3,   -18,    -7,    -8,     5,   -22,   -24 ]
+
+racc_goto_default = [
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    25,
+    33,    46,   nil,   nil,    24,    20,   nil,    53,   nil,   nil ]
+
+racc_reduce_table = [
+  0, 0, :racc_error,
+  0, 16, :_reduce_1,
+  2, 16, :_reduce_2,
+  2, 16, :_reduce_3,
+  2, 16, :_reduce_4,
+  2, 17, :_reduce_5,
+  0, 19, :_reduce_6,
+  2, 19, :_reduce_7,
+  3, 19, :_reduce_8,
+  1, 20, :_reduce_9,
+  2, 20, :_reduce_10,
+  3, 20, :_reduce_11,
+  2, 20, :_reduce_12,
+  1, 21, :_reduce_13,
+  0, 22, :_reduce_14,
+  2, 22, :_reduce_15,
+  0, 23, :_reduce_16,
+  2, 23, :_reduce_17,
+  2, 27, :_reduce_18,
+  1, 28, :_reduce_19,
+  1, 26, :_reduce_20,
+  1, 26, :_reduce_21,
+  1, 29, :_reduce_22,
+  1, 29, :_reduce_23,
+  1, 29, :_reduce_24,
+  6, 18, :_reduce_25,
+  4, 32, :_reduce_26,
+  4, 32, :_reduce_27,
+  4, 24, :_reduce_28,
+  4, 24, :_reduce_29,
+  1, 30, :_reduce_30,
+  1, 33, :_reduce_31,
+  0, 31, :_reduce_32,
+  2, 31, :_reduce_33,
+  2, 31, :_reduce_34,
+  2, 31, :_reduce_35,
+  0, 34, :_reduce_36,
+  2, 34, :_reduce_37,
+  2, 34, :_reduce_38,
+  2, 34, :_reduce_39,
+  1, 25, :_reduce_40 ]
+
+racc_reduce_n = 41
+
+racc_shift_n = 55
+
+racc_token_table = {
+  false => 0,
+  :error => 1,
+  :EOS => 2,
+  :GROUP => 3,
+  :END_TAG => 4,
+  :KEYWORD_ARG => 5,
+  :NUMBER => 6,
+  :STRING => 7,
+  :SYMBOL => 8,
+  :DEF => 9,
+  :OPER => 10,
+  :OPEN_PAREN => 11,
+  :CLOSE_PAREN => 12,
+  :polish_notation => 13,
+  :ID => 14 }
+
+racc_nt_base = 15
+
+racc_use_result_var = false
+
+Racc_arg = [
+  racc_action_table,
+  racc_action_check,
+  racc_action_default,
+  racc_action_pointer,
+  racc_goto_table,
+  racc_goto_check,
+  racc_goto_default,
+  racc_goto_pointer,
+  racc_nt_base,
+  racc_reduce_table,
+  racc_token_table,
+  racc_shift_n,
+  racc_reduce_n,
+  racc_use_result_var ]
+Ractor.make_shareable(Racc_arg) if defined?(Ractor)
+
+Racc_token_to_s_table = [
+  "$end",
+  "error",
+  "EOS",
+  "GROUP",
+  "END_TAG",
+  "KEYWORD_ARG",
+  "NUMBER",
+  "STRING",
+  "SYMBOL",
+  "DEF",
+  "OPER",
+  "OPEN_PAREN",
+  "CLOSE_PAREN",
+  "polish_notation",
+  "ID",
+  "$start",
+  "program",
+  "group",
+  "function_def",
+  "properties",
+  "property",
+  "prop_id",
+  "positional_args",
+  "keyword_args",
+  "lambda",
+  "identifier",
+  "super_value",
+  "keyword_arg",
+  "keyword_arg_id",
+  "value",
+  "open_paren",
+  "args",
+  "polish_notation_def",
+  "close_paren",
+  "params" ]
+Ractor.make_shareable(Racc_token_to_s_table) if defined?(Ractor)
+
+Racc_debug_parser = false
+
+##### State transition tables end #####
+
+# reduce 0 omitted
+
+module_eval(<<'.,.,', 'mvinl.y', 12)
+  def _reduce_1(val, _values)
+     Hash.new
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 13)
+  def _reduce_2(val, _values)
+     val[0].merge(val[1])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 14)
+  def _reduce_3(val, _values)
+     val[0]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 15)
+  def _reduce_4(val, _values)
+     val[0]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 18)
+  def _reduce_5(val, _values)
+     {val[0].to_sym => create_group(val[1])}
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 21)
+  def _reduce_6(val, _values)
+     Hash.new
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 22)
+  def _reduce_7(val, _values)
+     val[0].merge(val[1])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 23)
+  def _reduce_8(val, _values)
+     val[0].merge(val[1])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 26)
+  def _reduce_9(val, _values)
+     create_property(val[0])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 27)
+  def _reduce_10(val, _values)
+     create_property(val[0], val[1])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 28)
+  def _reduce_11(val, _values)
+     create_property(val[0], val[1], val[2])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 29)
+  def _reduce_12(val, _values)
+     create_property(val[0], val[1])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 32)
+  def _reduce_13(val, _values)
+     STATE[:in_prop] = true; val[0]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 35)
+  def _reduce_14(val, _values)
+     Array.new
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 36)
+  def _reduce_15(val, _values)
+     val[0] << val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 39)
+  def _reduce_16(val, _values)
+     Hash.new
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 42)
+  def _reduce_17(val, _values)
+    	STATE[:keyword_arg_depth] = 0
+	val[0].merge(val[1])
+
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 49)
+  def _reduce_18(val, _values)
+    	STATE[:in_keyword_arg] = false
+	STATE[:keyword_arg_depth] += 1
+	{val[0].to_sym => val[1]}
+
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 55)
+  def _reduce_19(val, _values)
+     STATE[:in_keyword_arg] = true; val[0]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 58)
+  def _reduce_20(val, _values)
+     val[0]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 59)
+  def _reduce_21(val, _values)
+     val[0]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 62)
+  def _reduce_22(val, _values)
+     val[0].to_i
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 63)
+  def _reduce_23(val, _values)
+     val[0]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 64)
+  def _reduce_24(val, _values)
+     val[0].to_sym
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 69)
+  def _reduce_25(val, _values)
+    	  define_function(val[2], val[3], val[4])
+
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 73)
+  def _reduce_26(val, _values)
+     [val[1], *val[2]]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 74)
+  def _reduce_27(val, _values)
+     [val[1], *val[2]]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 77)
+  def _reduce_28(val, _values)
+     evaluate_pn(val[1], val[2])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 78)
+  def _reduce_29(val, _values)
+     evaluate_pn(val[1], val[2])
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 81)
+  def _reduce_30(val, _values)
+     STATE[:depth] += 1
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 84)
+  def _reduce_31(val, _values)
+     STATE[:depth] -= 1
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 87)
+  def _reduce_32(val, _values)
+     Array.new
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 88)
+  def _reduce_33(val, _values)
+     val[0] << val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 89)
+  def _reduce_34(val, _values)
+     val[0] << val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 90)
+  def _reduce_35(val, _values)
+     val[0] << val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 93)
+  def _reduce_36(val, _values)
+     Array.new
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 94)
+  def _reduce_37(val, _values)
+     val[0] << val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 95)
+  def _reduce_38(val, _values)
+     val[0] << val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 96)
+  def _reduce_39(val, _values)
+     val[0] << val[1]
+  end
+.,.,
+
+module_eval(<<'.,.,', 'mvinl.y', 99)
+  def _reduce_40(val, _values)
+     val[0].to_sym
+  end
+.,.,
+
+def _reduce_none(val, _values)
+  val[0]
+end
+
+  end   # class Program
+end   # module MVinl

metadata

@@ -0,0 +1,79 @@
+--- !ruby/object:Gem::Specification
+name: mvinl
+version: !ruby/object:Gem::Version
+  version: 0.1.3
+platform: ruby
+authors:
+- siery
+autorequire:
+bindir: bin
+cert_chain: []
+date: 2024-12-06 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: pp
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.6.2
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.6.2
+description:
+email:
+- siery@comic.com
+executables:
+- imvnl
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".ruby-version"
+- Gemfile
+- LICENSE
+- README.md
+- Rakefile
+- bin/imvnl
+- edit/mvinl.vim
+- lib/mvinl.rb
+- lib/mvinl/info.rb
+- lib/mvinl/lexer.rb
+- lib/mvinl/parser.rb
+- mvinl.gemspec
+- rakelib/build.rake
+- spec/stack.mvnl
+- syntax/mvinl.tab.rb
+homepage: https://rubygems.org/gems/mvinl
+licenses:
+- MIT
+metadata:
+  source_code_uri: https://github.com/513ry/mvinl
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+- bin
+- s
+- rakelib
+- syntax
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 3.2.0
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.5.16
+signing_key:
+specification_version: 4
+summary: A simple configuration language made with RACC
+test_files: []