lisp-interpreter 0.3.1 → 0.3.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 6a32a4cd97461f14188bf1b027ad55b064ed893a
-  data.tar.gz: 80ead2abacc84ff413669a5805716e814284da36
+  metadata.gz: 2e3026ff75a77f9f9f3d0b0a6a82021bd3b08f47
+  data.tar.gz: da8f9e91a5af019a8a6c564b530bf99534318611
 SHA512:
-  metadata.gz: 79a95a9317b805b2c45f7620b4327b03bd6a49cb64b803191851610558e76b96c4bb3a81503d9b3771527c05aaad5ab3e6ae3866b2b5eb0be4f9d89aeebf49af
-  data.tar.gz: 4240e236f9eddfc406f00fee48ce2d2efc45b1054c06854a7cea9298f828f2c14ec440f5ed69503a96a99235a751480c61d8295ffce8638e03032b95c9481eee
+  metadata.gz: faa24cfec02e0a84a25af4d3580a2d2965ee1c7a6524bbadab0cb5bfc1aebad8430e78c3ec152b922396445c847c95cfdedd74ef26767eec84fa7a4a09e21507
+  data.tar.gz: 4e7b97e227764fb61e022eeea697c3cec1d119cf59683a44d5ce4ebe4d9c7eeeb36c720da01cbba35542e6cc1e2d472348d3798e4c88e86a4ce3dac04da79f6c

data/README.md

@@ -1,4 +1,4 @@
-# Lisp::Interpreter
+# Lisp::Interpreter
 Lisp interpreter implemented in Ruby.
 
 ## Installation
@@ -156,7 +156,9 @@ other:
     
 ## Development
 
-After checking out the repo, run `bin/setup` to install dependencies. Then, run `rake spec` to run the tests. You can also run `bin/zakichan` for an interactive prompt that will allow you to experiment.
+After checking out the repo, run `bin/setup` to install dependencies. Then, run `rake spec` to run the tests. You can also run `bin/console` for an interactive prompt that will allow you to experiment.
+
+To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
 
 ## Contributing
 

data/bin/zakichan.bat

@@ -1 +1,2 @@
+@echo off
 start cmd /C "title lisp-interpreter & ruby start.rb"

data/lib/lisp/interpreter/boolean.rb

@@ -23,20 +23,20 @@ end
 module SchemeBooleans
   include SchemeBooleansHelper
   def equal?(other)
-    raise 'Incorrect number of arguments' if other.size != 2
+    raise arg_err_build 2, other.size if other.size != 2
     other[0].to_s == other[1].to_s ? '#t' : '#f'
   end
 
   def not(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     raise 'Invalid data type' unless check_for_bool other[0]
     other[0] == '#t' ? '#f' : '#t'
   end
 
   def if(other)
-    raise 'Incorrect number of arguments' if other.empty?
+    raise arg_err_build 3, 0 if other.empty?
     expr, other = find_next_value other
-    raise 'Incorrect number of arguments' if other.empty?
+    raise 3, 1 if other.empty?
     if_helper expr, other
   end
 end

data/lib/lisp/interpreter/checker.rb

@@ -24,7 +24,7 @@ module SchemeChecker
   def check_for_quote(token)
     return true if token[0].quote?
     is_instance_var = check_instance_var token
-    return true if is_instance_var && (check_for_quote get_var token)
+    return true if is_instance_var && (check_for_number get_var token)
     false
   end
 
@@ -39,7 +39,7 @@ module SchemeChecker
     return true if var == '#\space'
     return true if var.character?
     is_instance_var = check_instance_var var
-    return true if is_instance_var && (check_for_symbol get_var var)
+    return true if is_instance_var && (check_for_character get_var var)
     false
   end
 end

data/lib/lisp/interpreter/errors.rb

@@ -7,6 +7,10 @@ module ErrorMessages
   def unbalanced_quotes_error
     'error signaled: unbalanced quotes'
   end
+
+  def arg_err_build(exp, got)
+    'Incorrect number of arguments, expected ' + exp.to_s + ' got ' + got.to_s
+  end
 end
 
 class SchemeException < RuntimeError

data/lib/lisp/interpreter/functional.rb

@@ -7,7 +7,7 @@ module Optimize
 
   def get_fold_values(other)
     values = find_all_values other
-    raise 'Incorrect number of arguments' if values.empty?
+    raise arg_err_build 'at least 2', 0 if values.empty?
     x = values[0]
     y = fold_values_helper values[1..-1]
     [x, y]
@@ -49,23 +49,27 @@ module Optimize
   end
 
   def apply_helper(func, values)
-    return func.call(*values) if func.is_a? Proc
-    send func, values
+    *vs, lst = values
+    raise 'Incorrect data type' unless lst.list?
+    (find_list_function_value [lst]).each { |t| vs << t }
+    return func.call(*vs) if func.is_a? Proc
+    send func, vs
   end
 
   def call_compose_helper(other)
     tmp = ['(', *other[1..-1]]
     idx = find_bracket_idx tmp, 0
     funcs = find_all_values tmp[1..idx - 1]
-    raise '' if tmp[idx + 1..-1].empty?
+    return '' if tmp[idx + 1..-1].nil? && funcs.empty?
     [funcs, idx, tmp]
   end
 
   def call_compose(other)
     funcs, idx, tmp = call_compose_helper other
-    value, = find_next_value tmp[idx + 1..-1]
+    value = find_all_values tmp[idx + 1..-1]
     funcs.reverse.each do |t|
-      value = calc_input_val ['(', t, value.to_s, ')']
+      value = value.to_s unless value.is_a? Array
+      value = calc_input_val ['(', t, *value, ')']
     end
     value
   end
@@ -131,7 +135,7 @@ module FunctionalSchemeHelper
 
   def proc_lambda_helper(other, params, args)
     args = arg_finder args
-    raise 'Incorrect number of arguments' unless params.size == args.size
+    raise arg_err_build params.size, args.size unless params.size == args.size
     define_func_helper other.dup, params.dup, args
   end
 
@@ -155,7 +159,7 @@ module FunctionalSchemeHelper
   end
 
   def define_var(var, values)
-    raise 'Incorrect number of arguments' if values.size != 1
+    raise arg_err_build 1, values.size if values.size != 1
     raise 'Invalid variable name' unless valid_var_name var
     set_var_helper var, values[0]
   end
@@ -207,30 +211,30 @@ end
 module FunctionalScheme
   include FunctionalSchemeHelper
   def foldl(other)
-    raise 'Incorrect number of parameters' if other.size < 2
+    raise arg_err_build 'at least 2', other.size if other.size < 2
     func, other = valid_function other
     val_one, val_two = get_fold_values other
     foldl_helper func, val_one, val_two
   end
 
   def foldr(other)
-    raise 'Incorrect number of parameters' if other.size < 2
+    raise arg_err_build 'at least 2', other.size if other.size < 2
     func, other = valid_function other
     val_one, val_two = get_fold_values other
     foldr_helper func, val_one, val_two
   end
 
   def filter(other)
-    raise 'Incorrect number of parameters' if other.size < 2
+    raise arg_err_build 2, other.size if other.size < 2
     func, other = valid_function other
-    raise 'Incorrect number of parameters' if other.empty?
+    raise arg_err_build 2, 1 if other.empty?
     values = find_all_values other
     values = find_list_function_value [values[0]]
     filter_helper func, values
   end
 
   def member(other)
-    raise 'Incorrect number of arguments' unless other.size == 2
+    raise arg_err_build 2, other.size unless other.size == 2
     to_check = other[0]
     split_val = split_list_string other[1]
     raise 'Invalid argument' unless split_val.pair? || split_val.list?
@@ -239,7 +243,7 @@ module FunctionalScheme
   end
 
   def remove(other)
-    raise 'Incorrect number of arguments' unless other.size == 2
+    raise arg_err_build 2, other.size unless other.size == 2
     to_remove = other[0]
     values = find_list_function_value [other[1]]
     values.delete_at(values.index(to_remove) || values.length)
@@ -247,13 +251,11 @@ module FunctionalScheme
   end
 
   def apply(other)
-    raise 'Incorrect number of arguments' if other.nil? || other.empty?
+    raise arg_err_build 'at least 2', 0 if other.nil? || other.empty?
     func, other = valid_function other
+    raise arg_err_build 'at least 2', 1 if other.empty?
     values = find_all_values other
-    *vs, lst = values
-    raise 'Incorrect data type' unless lst.list?
-    (find_list_function_value [lst]).each { |t| vs << t }
-    apply_helper func, vs
+    apply_helper func, values
   end
 
   def compose(other)
@@ -273,7 +275,7 @@ module FunctionalScheme
   end
 
   def define(other)
-    raise 'Incorrect number of arguments' if other.size < 2
+    raise arg_err_build 2, other.size if other.size < 2
     fetch_define other
   end
 end

data/lib/lisp/interpreter/list.rb

@@ -64,7 +64,7 @@ module SchemeListsHelper
 
   def get_cons_values(tokens)
     result = get_k_arguments tokens, false, 2
-    raise 'Too little arguments' if result.size != 2
+    raise arg_err_build 2, result.size if result.size != 2
     result
   end
 
@@ -75,7 +75,7 @@ module SchemeListsHelper
   end
 
   def find_list_function_value(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     raise 'Invalid data type' unless other[0].list?
     split_list_as_string other[0].to_s
   end
@@ -86,7 +86,7 @@ module SchemeListsHelper
   end
 
   def car_cdr_values(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     return find_list_function_value other if other[0].list?
     (split_list_string other[0].to_s)[2..-2] if other[0].pair?
   end
@@ -95,13 +95,20 @@ module SchemeListsHelper
     return lst.map { |t| func.call(*t) } if func.is_a? Proc
     lst.map { |t| send func, t }
   end
+
+  def map_validate_helper(other)
+    raise arg_err_build 'at least 2', 0 if other.empty?
+    func, other = valid_function other
+    raise arg_err_build 'at least 2', 1 if other.empty?
+    [func, other]
+  end
 end
 
 # Scheme lists module
 module SchemeLists
   include SchemeListsHelper
   def cons(other)
-    raise 'Incorrect number of arguments' if other.size != 2
+    raise arg_err_build 2, other.size if other.size != 2
     cons_helper other
   end
 
@@ -123,17 +130,17 @@ module SchemeLists
   end
 
   def list?(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     other[0].to_s.list? ? '#t' : '#f'
   end
 
   def pair?(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     other[0].to_s.pair? ? '#t' : '#f'
   end
 
   def null?(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     return '#f' unless other[0].to_s.list?
     other[0].to_s.size == 3 ? '#t' : '#f'
   end
@@ -148,9 +155,7 @@ module SchemeLists
   end
 
   def map(other)
-    raise 'Incorrect number of arguments' if other.empty?
-    func, other = valid_function other
-    raise 'Incorrect number of arguments' if other.empty?
+    func, other = map_validate_helper other
     lst = find_all_values other
     lst = lst.map { |t| find_list_function_value [t] }
     lst = (equalize_lists lst).transpose

data/lib/lisp/interpreter/numbers.rb

@@ -1,7 +1,7 @@
 # Helper functions for SchemeNumbers
 module SchemeNumbersHelper
   def get_one_arg_function(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     raise 'Invalid data type' unless check_for_number other[0]
     other[0].to_num
   end
@@ -11,12 +11,11 @@ module SchemeNumbersHelper
   end
 
   def num_denom_helper(other)
-    raise 'Incorrect number of arguments' if other.empty?
     if other.size == 1
       other = other[0].split('/')
     else
       _, temp = find_next_value other
-      raise 'Incorrect number of arguments' unless temp[0] == '/' || temp.empty?
+      raise arg_err_build 1, 0 unless temp[0] == '/' || temp.empty?
       i = find_idx_numerators other
       other.delete_at(i)
     end
@@ -28,12 +27,12 @@ module SchemeNumbersHelper
     raise 'Invalid data type' unless check_for_number num
     return [num, 1] if other.empty?
     denom, other = find_next_value other
-    raise 'Incorrect number of arguments' unless other.empty?
+    raise arg_err_build 1, other.size unless other.empty?
     [num, denom]
   end
 
   def compare_value_arithmetic(other, oper)
-    raise 'Incorrect number of arguments' if other.size < 2
+    raise arg_err_build 'at least 2', other.size if other.size < 2
     other = convert_to_num other
     result = other.each_cons(2).all? { |x, y| x.public_send oper, y }
     result ? '#t' : '#f'
@@ -96,32 +95,33 @@ module SchemeNumbers
   end
 
   def /(other)
-    raise 'Incorrect number of arguments' if other.empty?
+    raise arg_err_build 'at least 1', 0 if other.empty?
     other = divide_special_convert other
     return (divide_number 1, other[0].to_num) if other.size == 1
     other[1..-1].inject(other[0]) { |res, t| divide_number res, t }
   end
 
   def quotient(other)
-    raise 'Incorrect number of arguments' if other.size != 2
+    raise arg_err_build 2, other.size if other.size != 2
     x, y = convert_to_num other
     result = divide_number x, y
     result < 0 ? result.ceil : result.floor
   end
 
   def remainder(other)
-    raise 'Incorrect number of arguments' if other.size != 2
+    raise arg_err_build 2, other.size if other.size != 2
     x, y = convert_to_num other
     (x.abs % y.abs) * (x / x.abs)
   end
 
   def modulo(other)
-    raise 'Incorrect number of arguments' if other.size != 2
+    raise arg_err_build 2, other.size if other.size != 2
     x, y = convert_to_num other
     x.modulo y
   end
 
   def numerator(other)
+    raise arg_err_build 1, 0 if other.empty?
     other = num_denom_helper other
     result = (get_num_denom other)[0]
     raise 'Invalid data type' unless check_for_number result
@@ -129,6 +129,7 @@ module SchemeNumbers
   end
 
   def denominator(other)
+    raise arg_err_build 1, 0 if other.empty?
     other = num_denom_helper other
     result = (get_num_denom other)[1]
     raise 'Invalid data type' unless check_for_number result
@@ -148,13 +149,13 @@ module SchemeNumbers
   end
 
   def min(other)
-    raise 'Incorrect number of arguments' if other.empty?
+    raise arg_err_build 'at least 1', 0 if other.empty?
     other = convert_to_num other
     other.min
   end
 
   def max(other)
-    raise 'Incorrect number of arguments' if other.empty?
+    raise arg_err_build 'at least 1', 0 if other.empty?
     other = convert_to_num other
     other.max
   end

data/lib/lisp/interpreter/parser.rb

@@ -51,12 +51,11 @@ class Parser
       token = token[5..-1].nil? ? token[4..-1] : token[5..-1]
       msg = 'File with name "' + token + '" is not valid scheme file'
       return msg
-      return false
     end
     true
   end
 
-  def read_file_reader(f, value, expr)
+  def read_file_reader(f, expr)
     while (c = f.read(1))
       expr << c
       if (validate_token expr).nil? && expr != ''
@@ -70,28 +69,19 @@ class Parser
   def read_file_executor(file)
     f = File.open(file)
     expr = ''
-    last_value = ''
-    read_file_reader f, last_value, expr
+    read_file_reader f, expr
   end
 
-  def read_file(token) 
+  def read_file(token)
     res = read_file_helper token
     return res if res.is_a? String
     filename = token[5..-1]
-    if !File.exist? filename
-      'File with name "' + filename + '" does not exist!'
-    else
-      read_file_executor filename
-    end
-  end
-
-  def fetch_file_read(token)
-    res = read_file token
-    print_result res unless res.to_s.empty?
+    return read_file_executor filename if File.exist? filename
+    'File with name "' + filename + '" does not exist!'
   end
 
   def parse(token)
-    return fetch_file_read token if token.start_with? 'ghci'
+    return read_file token if token.start_with? 'ghci'
     token_error = validate_token token
     result =
       if token_error.nil?

data/lib/lisp/interpreter/strings.rb

@@ -37,7 +37,7 @@ module SchemeStringsHelper
   end
 
   def arg_function_validator(other, vars = 1)
-    raise 'Incorrect number of arguments' if other.size != vars
+    raise arg_err_build other.size, vars if other.size != vars
     result = other[0..vars - 1].all? { |v| check_for_string v }
     raise 'Invalid data type' unless result
     result
@@ -48,13 +48,18 @@ module SchemeStringsHelper
     delim_result = find_delimeter dilimeter
     '"' + (values.join delim_result) + '"'
   end
+
+  def strjoin_validate(other)
+    raise arg_err_build '[1, 2]', other.size unless other.size.between? 1, 2
+    raise 'Invalid data type' unless other[0].to_s.list?
+  end
 end
 
 # Scheme numbers module
 module SchemeStrings
   include SchemeStringsHelper
   def substring(other)
-    raise 'Incorrect number of arguments' unless other.size.between? 2, 3
+    raise arg_err_build '[2, 3]', other.size unless other.size.between? 2, 3
     str, from, to = other
     arg_function_validator [str]
     valid = (check_for_number from) && (to.nil? || (check_for_number to))
@@ -63,7 +68,7 @@ module SchemeStrings
   end
 
   def string?(other)
-    raise 'Incorrect number of arguments' if other.size != 1
+    raise arg_err_build 1, other.size if other.size != 1
     result = check_for_string other[0].to_s
     result ? '#t' : '#f'
   end
@@ -123,8 +128,7 @@ module SchemeStrings
   end
 
   def strjoin(other)
-    raise 'Incorrect number of arguments' unless other.size.between? 1, 2
-    raise 'Invalid data type' unless other[0].to_s.list?
+    strjoin_validate other
     arg_function_validator [other[1]] if other.size == 2
     string_join_helper other[0], other[1]
   end

data/lib/lisp/interpreter/tokenizer.rb

@@ -39,8 +39,7 @@ module TokenizerHelper
       'string-contains?' => 'strcontains', 'string-length'  => 'strlen',
       'string->list'     => 'strlist',     'string-split'   => 'strsplit',
       'string-sufix?'    => 'strsufix',    'string-prefix?' => 'strprefix',
-      'string-replace'   => 'strreplace',  'string-join'    => 'strjoin',
-      'list-ref'         => 'listref',     'list-tail'      => 'listtail'
+      'string-replace'   => 'strreplace',  'string-join'    => 'strjoin'
     }
   end
 
@@ -89,12 +88,13 @@ module TokenizerHelper
     val = (predefined_method_caller [var])
     return val unless val.nil?
     valid = valid_var var
-    valid ? var : (raise 'Invalid data type')
+    valid ? var : (raise 'Unbound symbol "' + var + '"')
   end
 end
 
 # Tokenizer class
 class Tokenizer
+  include ErrorMessages
   include TokenizerHelper
   include ValueFinder
   include SchemeChecker

data/lib/lisp/interpreter/version.rb

@@ -1,5 +1,5 @@
 module Lisp
   module Interpreter
-    VERSION = '0.3.1'.freeze
+    VERSION = '0.3.2'.freeze
   end
 end

data/spec/lisp/interpreter_spec.rb

@@ -7,7 +7,6 @@ RSpec.describe Lisp::Interpreter do
     @p.parse('(define y 0.999)')
     @msg =
       {
-        'inc_number' => 'Incorrect number of arguments',
         'zero_div' => 'divided by 0',
         'inv_type' => 'Invalid data type'
       }
@@ -20,6 +19,14 @@ RSpec.describe Lisp::Interpreter do
       '(' + arr.join(' ') + ')'
     end
 
+    def arg_err_build(e, g)
+      'Incorrect number of arguments, expected ' + e.to_s + ' got ' + g.to_s
+    end
+
+    def unbound_symbol(sym)
+      'Unbound symbol "' + sym.to_s + '"'
+    end
+
     @p.parse('(define xl (lambda (x) (* 2 x)))')
     @p.parse('(define yl (lambda () 5))')
     @p.parse('(define zl (lambda ()))')
@@ -28,15 +35,15 @@ RSpec.describe Lisp::Interpreter do
   describe 'exceptions' do
     context 'wrong number of arguments' do
       it 'throws error when less arguments are provided' do
-        expect(@p.parse('(cons 1)')).to eq @msg['inc_number']
+        expect(@p.parse('(cons 1)')).to eq arg_err_build 2, 1
       end
 
       it 'throws error when more arguments are provided' do
-        expect(@p.parse('(xl 6 6)')).to eq @msg['inc_number']
+        expect(@p.parse('(xl 6 6)')).to eq arg_err_build 1, 2
       end
 
       it 'throws error when no arguments are expected' do
-        expect(@p.parse('(yl 5)')).to eq @msg['inc_number']
+        expect(@p.parse('(yl 5)')).to eq arg_err_build 0, 1
       end
     end
 
@@ -61,7 +68,7 @@ RSpec.describe Lisp::Interpreter do
 
   describe 'literals' do
     it 'throws invalid variable error when the data is invalid' do
-      expect(@p.parse('#\invalid')).to eq @msg['inv_type']
+      expect(@p.parse('#\invalid')).to eq unbound_symbol '#\invalid'
     end
 
     it 'can parse integers' do
@@ -981,18 +988,19 @@ RSpec.describe Lisp::Interpreter do
       expr1 = '(define prodfive (lambda (x)(define yy 5)(* x yy)))'
       expect(@p.parse(expr1)).to be_instance_of(Proc)
       expect(@p.parse('(prodfive 6)')).to eq 30
-      expect(@p.parse('yy')).to eq @msg['inv_type']
+      expect(@p.parse('yy')).to eq unbound_symbol 'yy'
     end
   end
 
-  # You must provide fullpath of the file or place it in the directory where you run the script
   describe 'file read' do
     it 'reads from .ss file' do
-      expect(@p.parse('ghci D:\Github\b\Ruby-Project\lisp-interpreter\spec\lisp\test.ss')).to be_instance_of(Proc)
+      expr1 = 'ghci D:/Github/Ruby-Project/lisp-interpreter/spec/lisp/test.ss'
+      expect(@p.parse(expr1)).to be_instance_of(Proc)
     end
-	
+
     it 'reads from .scm file' do
-      expect(@p.parse('ghci D:\Github\b\Ruby-Project\lisp-interpreter\spec\lisp\test.scm')).to eq 3
+      expr1 = 'ghci D:/Github/Ruby-Project/lisp-interpreter/spec/lisp/test.scm'
+      expect(@p.parse(expr1)).to eq 3
     end
 
     it 'returns error if the file is missing or not valid scheme file' do

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: lisp-interpreter
 version: !ruby/object:Gem::Version
-  version: 0.3.1
+  version: 0.3.2
 platform: ruby
 authors:
 - Zaki Petrov
@@ -67,7 +67,6 @@ files:
 - LICENSE.txt
 - README.md
 - Rakefile
-- bin/converter.bat
 - bin/setup
 - bin/start.rb
 - bin/zakichan.bat
@@ -112,7 +111,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 2.5.2
+rubygems_version: 2.6.12
 signing_key: 
 specification_version: 4
 summary: Lisp interpreter gem

data/bin/converter.bat

@@ -1,58 +0,0 @@
-;@echo off
-; rem https://github.com/npocmaka/batch.scripts/edit/master/hybrids/iexpress/bat2exeIEXP.bat
-;if "%~2" equ "" (
-; echo usage: %~nx0 batFile.bat target.Exe
-;)
-;set "target.exe=%__cd__%%~2"
-;set "batch_file=%~f1"
-;set "bat_name=%~nx1"
-;set "bat_dir=%~dp1"
-
-;copy /y "%~f0" "%temp%\2exe.sed" >nul
-
-;(echo()>>"%temp%\2exe.sed"
-;(echo(AppLaunched=cmd.exe /c "%bat_name%")>>"%temp%\2exe.sed"
-;(echo(TargetName=%target.exe%)>>"%temp%\2exe.sed"
-;(echo(FILE0="%bat_name%")>>"%temp%\2exe.sed"
-;(echo([SourceFiles])>>"%temp%\2exe.sed"
-;(echo(SourceFiles0=%bat_dir%)>>"%temp%\2exe.sed"
-;(echo([SourceFiles0])>>"%temp%\2exe.sed"
-;(echo(%%FILE0%%=)>>"%temp%\2exe.sed"
-
-
-;iexpress /n /q /m %temp%\2exe.sed
-
-;del /q /f "%temp%\2exe.sed"
-;exit /b 0
-
-[Version]
-Class=IEXPRESS
-SEDVersion=3
-[Options]
-PackagePurpose=InstallApp
-ShowInstallProgramWindow=0
-HideExtractAnimation=1
-UseLongFileName=1
-InsideCompressed=0
-CAB_FixedSize=0
-CAB_ResvCodeSigning=0
-RebootMode=N
-InstallPrompt=%InstallPrompt%
-DisplayLicense=%DisplayLicense%
-FinishMessage=%FinishMessage%
-TargetName=%TargetName%
-FriendlyName=%FriendlyName%
-AppLaunched=%AppLaunched%
-PostInstallCmd=%PostInstallCmd%
-AdminQuietInstCmd=%AdminQuietInstCmd%
-UserQuietInstCmd=%UserQuietInstCmd%
-SourceFiles=SourceFiles
-
-[Strings]
-InstallPrompt=
-DisplayLicense=
-FinishMessage=
-FriendlyName=-
-PostInstallCmd=<None>
-AdminQuietInstCmd=
-UserQuietInstCmd=