ppr 0.0.2

data/lib/ppr/test_ppr.txt

@@ -0,0 +1,62 @@
+.assign F :< "File"
+.do
+    :< "# #{@F} for testing Ppr"
+.end
+
+
+.if :< true
+.def HW
+    :<"#{@hello} world!"
+.end
+.endif
+
+.if :<false
+:< "Should not happen!"
+.else
+.def He
+    :<"Hello "
+.end
+.endif
+
+.def Wo
+    :<"world!"
+.end
+
+.def Surprise
+   :<"!"
+.end
+
+.doR
+:< "HW in different programming languages\n"
+.end
+.require :< "bar.inc"
+.require :< "bar.inc"
+
+* In BASIC:
+PRINT "HW":
+
+* In Scheme:
+(write 'He##world!)
+
+* In OCaml:
+print_string "Hello world##Surprise";;
+
+
+.def rep(word,num)
+   :< word \
+   * num.to_i
+.end
+.def repp(word,num) :< word + word + word
+.load :< "test_ppr.inc"
+
+Multiple times He##Wo in different programming languages
+###############################################################
+
+* In BASIC:
+rep(PRINT "Hello world!": ,3)
+
+* In Scheme:
+repp((write 'HW\) ,3)
+
+* In OCaml:
+repr(print_string "HW";; ,3)

data/lib/ppr/test_ppr2.txt

@@ -0,0 +1,61 @@
+ASSIGN F ~> "File"
+RUBY
+    ~>"# #{@F} for testing Ppr"
+ENDM
+
+
+MACRO HW
+    ~>"#{@hello} world!"
+ENDM
+
+MACRO He
+    ~>"Hello "
+ENDM
+
+MACRO Wo
+    ~>"world!"
+ENDM
+
+MACRO Surprise
+   ~>"!"
+ENDM
+
+RUBYR
+    ~>"HW in different programming languages\n"
+ENDM
+###############################################################
+
+* In BASIC:
+PRINT "HW":
+
+* In Scheme:
+(write 'He@@world!)
+
+* In OCaml:
+print_string "Hello world@@Surprise";;
+
+
+MACRO rep(word,num)
+   ~> word \
+   * num.to_i
+ENDM
+MACRO repp(word,num) ~> word + word + word
+MACRO_R repr(word,num)
+   ~> word
+   num = num.to_i - 1
+   if num > 0 then
+      ~> "repr(#{word},#{num})"
+   end
+ENDM
+
+Multiple times He@@Wo in different programming languages
+###############################################################
+
+* In BASIC:
+rep(PRINT "Hello world!": ,3)
+
+* In Scheme:
+repp((write 'HW\) ,3)
+
+* In OCaml:
+repr(print_string "HW";; ,3)

data/lib/ppr/test_ppr_exp.txt

@@ -0,0 +1,31 @@
+# File for testing Ppr
+
+
+
+
+
+Hello world! in different programming languages
+###############################################################
+
+* In BASIC:
+PRINT "Hello world!":
+
+* In Scheme:
+(write 'Hello world!)
+
+* In OCaml:
+print_string "Hello world!";;
+
+
+
+Multiple times Hello world! in different programming languages
+###############################################################
+
+* In BASIC:
+PRINT "Hello world!": PRINT "Hello world!": PRINT "Hello world!": 
+
+* In Scheme:
+(write 'Hello world!) (write 'Hello world!) (write 'Hello world!) 
+
+* In OCaml:
+print_string "Hello world!";; print_string "Hello world!";; print_string "Hello world!";; 

data/lib/ppr/test_safer_generator.rb

@@ -0,0 +1,140 @@
+######################################################################
+##                   Program testing SaferGenerator                 ##
+######################################################################
+
+require "ppr.rb"
+
+# Create the generator
+puts "Creating the generator..."
+$generator = SaferGenerator.new
+
+puts "Creating the procs to test..."
+# Create the safe proc to test.
+$safe = proc { |stream| stream << 10.times.to_a.join(", ") }
+# Create the unsafes proc to test.
+$unsafes = []
+$unsafes << proc { |stream| File.open("bad.bad","w") {|file| file << "Bad\n" } }
+$unsafes << proc { |stream| stream << "Going to dir..." << Dir["./*"] }
+$unsafes << proc { |stream| stream << IO.binread(__FILE__) }
+$unsafes << proc { |stream| stream << system("ls") }
+$unsafes << proc { |stream| stream << `ls` }
+$unsafes << proc { |stream| open("bad.bad","w") { |file| file << "Bad\n" } }
+# Create the expected raised exceptions with the unsafe procs.
+$exceptions = [ NameError, NameError, NameError, NoMethodError, NoMethodError,
+                NoMethodError ]
+
+ok = true # Test result, true if not any trouble.
+
+# Test the execution of safe code for generating text.
+$expected = StringIO.new("")
+$safe.call($expected)
+$expected = $expected.string
+$result = ""
+print "Executing safe code..."
+begin
+    $result = $generator.run(&$safe)
+rescue Exception => e
+    puts "\nError: got exception #{e}"
+    ok = false
+end
+if ok then
+    if $expected == $result then
+        ok = true
+    else
+        ok = false
+        puts "\nError: unexpected execution result."
+        puts "Got #{$result} but expecting #{expected}."
+    end
+end
+puts " ok.\n" if ok
+
+# Test the execution of the unsafe code.
+$unsafes.each.with_index do |unsafe,i|
+    print "Executing unsafe proc #{i}..."
+    begin
+        $result = $generator.run(&unsafe)
+        # Should not execute the following.
+        puts " Danger: the unsafe code should not have been executed."
+        ok = false
+    rescue Exception => e
+        if e.cause.class != $exceptions[i] then
+            puts " Danger: unexpected exception: #{e.cause.inspect}"
+            ok = false
+        end
+        puts " Safe: got exception #{e.cause.inspect} as expected."
+    end
+end
+
+
+# Now check the black list.
+
+# Create a new safer generator with a blacked list methods or constants.
+$blacks = [ :print, :Float ]
+# Create the procs using black lists methods or constants.
+$unsafes = []
+$unsafes << proc { |stream| print "Should not work..." }
+$unsafes << proc { |stream| Float.name }
+# Create the expected exceptions.
+$exceptions = [ NoMethodError, NameError ]
+
+# Check each black listed element.
+$blacks.each.with_index do |black,i|
+    puts "Creating a safer generator where '#{black}' is blacked list..."
+    $generator = SaferGenerator.new(black)
+    puts "Executing safe code..."
+    begin
+        $result = $generator.run(&$safe)
+    rescue Exception => e
+        puts "\nError: got exception #{e}"
+        ok = false
+    end
+    puts "Executing code with #{black}..."
+    begin
+        $result = $generator.run(&$unsafes[i])
+        # The following should not be executed.
+        puts " Danger: '#{black}' should not have been executed."
+        ok = false
+    rescue Exception => e
+        if e.cause.class == $exceptions[i] then
+            puts " Safe: got exception #{e.cause.inspect} as expected."
+        else
+            puts " Danger: unexpected exception #{e.cause.inspect}."
+            ok = false
+        end
+    end
+end
+
+# Check with all the black list elements.
+puts "Creating a safer generator where '#{$blacks}' are blacked list..."
+$generator = SaferGenerator.new(*$blacks)
+puts "Executing safe code..."
+begin
+    $result = $generator.run(&$safe)
+rescue Exception => e
+    puts "\nError: got exception #{e}"
+    ok = false
+end
+# Check each unsafe proc.
+$unsafes.each.with_index do |unsafe,i|
+    puts "Executing code #{i}..."
+    begin
+        $result = $generator.run(&unsafe)
+        # The following should not be executed.
+        puts " Danger: the proc should not have been executed."
+        ok = false
+    rescue Exception => e
+        if e.cause.class == $exceptions[i] then
+            puts " Safe: got exception #{e.cause.inspect} as expected."
+        else
+            puts " Danger: unexpected exception #{e.cause.inspect}."
+            ok = false
+        end
+    end
+end
+
+
+if ok then
+    puts "Success." 
+else
+    puts "Failure." 
+end

data/lib/ppr/version.rb

@@ -0,0 +1,3 @@
+module Ppr
+  VERSION = "0.0.2"
+end

data/ppr.gemspec

@@ -0,0 +1,39 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'ppr/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "ppr"
+  spec.version       = Ppr::VERSION
+  spec.authors       = ["Lovic Gauthier"]
+  spec.email         = ["lovic@ariake-nct.ac.jp"]
+
+  spec.summary       = %q{Preprocessor in Ruby: text preprocessor where macros are specified in Ruby language.}
+  spec.description   = %q{Preprocessor in Ruby: provides a Ruby class named Rpp which implements a text preprocessor where macros are specified in Ruby language.
+ Usage:
+ ppr = Ppr::Preprocessor.new(<configuration options if any>) ;
+ ppr.preprocess(<input stream to preprocess>, <output stream where to write the preprocessing result>)}
+  spec.homepage      = "https://github.com/civol"
+  spec.license       = "MIT"
+
+  # Prevent pushing this gem to RubyGems.org. To allow pushes either set the 'allowed_push_host'
+  # to allow pushing to a single host or delete this section to allow pushing to any host.
+  # if spec.respond_to?(:metadata)
+  #   spec.metadata['allowed_push_host'] = "TODO: Set to 'http://mygemserver.com'"
+  # else
+  #   raise "RubyGems 2.0 or newer is required to protect against " \
+  #     "public gem pushes."
+  # end
+
+  spec.files         = `git ls-files -z`.split("\x0").reject do |f|
+    f.match(%r{^(test|spec|features)/})
+  end
+  spec.bindir        = "exe"
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.14"
+  spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency "minitest", "~> 5.0"
+end

metadata

@@ -0,0 +1,114 @@
+--- !ruby/object:Gem::Specification
+name: ppr
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+platform: ruby
+authors:
+- Lovic Gauthier
+autorequire: 
+bindir: exe
+cert_chain: []
+date: 2017-04-30 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.14'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.14'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.0'
+description: |-
+  Preprocessor in Ruby: provides a Ruby class named Rpp which implements a text preprocessor where macros are specified in Ruby language.
+   Usage:
+   ppr = Ppr::Preprocessor.new(<configuration options if any>) ;
+   ppr.preprocess(<input stream to preprocess>, <output stream where to write the preprocessing result>)
+email:
+- lovic@ariake-nct.ac.jp
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".travis.yml"
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/console
+- bin/setup
+- lib/ppr.rb
+- lib/ppr/bar.inc
+- lib/ppr/foo.inc
+- lib/ppr/keyword_searcher.rb
+- lib/ppr/ppr_core.rb
+- lib/ppr/safer_generator.rb
+- lib/ppr/test_keyword_searcher.rb
+- lib/ppr/test_ppr.inc
+- lib/ppr/test_ppr.rb
+- lib/ppr/test_ppr.txt
+- lib/ppr/test_ppr2.txt
+- lib/ppr/test_ppr_exp.txt
+- lib/ppr/test_safer_generator.rb
+- lib/ppr/version.rb
+- ppr.gemspec
+homepage: https://github.com/civol
+licenses:
+- MIT
+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: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.6.8
+signing_key: 
+specification_version: 4
+summary: 'Preprocessor in Ruby: text preprocessor where macros are specified in Ruby
+  language.'
+test_files: []