literate-programming 1.1.1 → 1.2.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: d716e3eee85691414104767329c0f58c53d328b3
-  data.tar.gz: acb7fcb7599934fe3ab6ac1a3ad09fa2edafbe76
+  metadata.gz: 75f62b03242c7d1b19adbd5d328d430bba322347
+  data.tar.gz: e0477f1d1a7988d864afd190dcb22640f25047fb
 SHA512:
-  metadata.gz: 26abd3ded88bc2b2d6a735d8680be854b2966844695e8b106287901e49d880b201cdfa94493bbbef16a6960b6339668fd014727b28916ce162bfe3832cdf44ab
-  data.tar.gz: 0a987e8c2d0a4baab61d5c4b787bc42837bb53f02dfb3a52fafdaf3fc003b72530c0d21e91a11df5a5704a0a3cd5a16d48373d5ffe43c1ec0f7a72aa2d850e37
+  metadata.gz: 4f17f6e77b5878728d04119e8d9914c4b93fba4ec574f45eae4f807de0030a8031339b93ca0257af42a5a300aca59c4617b7a9cb0e4106f31599f821fb1cd61d
+  data.tar.gz: c118b8b572c5af87b2720d2368ca33bc8d64d4fac041d2ec6b38893810adc6d8cdfa32dfae4a4a22e2c2824e25ddf3f122d0173a24e136b7c684fea9d0c6fe6f

data/bin/rtangle

@@ -1,9 +1,36 @@
 #!/usr/bin/env ruby
 
+require 'getoptlong'
 require 'literate/programming'
 
-raise if ARGV.length < 1
-ifname = ARGV[0]
-ofname = File.dirname(ifname) + '/' + File.basename(ifname, '.wrb') + '.rb'
-inst = Literate::Programming.new File.open(ifname, 'r').read
-File.open(ofname, 'w').write inst.to_ruby
+def usage
+  print <<-EOM
+Usage: rtangle [command]... source.wrb...
+
+ commands:
+  -h -? --help --usage    show this message and exit
+  EOM
+  exit
+end
+
+def main
+  options = {}
+  begin
+    GetoptLong.new.set_options(
+      %w/-h -? --help --usage/ << GetoptLong::NO_ARGUMENT,
+    ).each_option do |name, value|
+      options[name.sub(/^--?/, '').gsub(/-/, '_').to_sym] = value
+    end
+  rescue GetoptLong::Error
+    usage
+  end
+
+  usage if ARGV.length == 0 or options.member? :h
+  ARGV.each do |ifname|
+    inst = Literate::Programming.new File.open(ifname, 'r').read
+    ofname = File.dirname(ifname) + '/' + File.basename(ifname, '.wrb') + '.rb'
+    File.open(ofname, 'w').write inst.to_ruby
+  end
+end
+
+main

data/bin/rweave

@@ -1,9 +1,51 @@
 #!/usr/bin/env ruby
 
+require 'getoptlong'
 require 'literate/programming'
 
-raise if ARGV.length < 1
-ifname = ARGV[0]
-ofname = File.dirname(ifname) + '/' + File.basename(ifname, '.wrb') + '.md'
-inst = Literate::Programming.new File.open(ifname, 'r').read
-File.open(ofname, 'w').write inst.to_md
+def usage
+  print <<-EOM
+Usage: rweave [command]... source.wrb...
+
+ commands:
+  -h, -?, --help, --usage     show this message and exit
+  -fFORMAT, --format=FORMAT   specify output format
+                              default: Markdown
+
+ formats:
+  md    Markdown
+  tex   LaTeX
+  EOM
+  exit
+end
+
+def main
+  options = {}
+  begin
+    GetoptLong.new.set_options(
+      %w/-h -? --help --usage/ << GetoptLong::NO_ARGUMENT,
+      %w/-f --format/ << GetoptLong::REQUIRED_ARGUMENT,
+    ).each_option do |name, value|
+      options[name.sub(/^--?/, '').gsub(/-/, '_').to_sym] = value
+    end
+  rescue GetoptLong::Error
+    usage
+  end
+
+  usage if ARGV.length == 0 or options.member? :h
+  ARGV.each do |ifname|
+    inst = Literate::Programming.new File.open(ifname, 'r').read
+    case options[:f]
+    when 'md', nil
+      ofname = File.dirname(ifname) + '/' + File.basename(ifname, '.wrb') + '.md'
+      File.open(ofname, 'w').write inst.to_md
+    when 'tex'
+      ofname = File.dirname(ifname) + '/' + File.basename(ifname, '.wrb') + '.tex'
+      File.open(ofname, 'w').write inst.to_tex
+    else
+      raise 'unknown format ' + options[:f]
+    end
+  end
+end
+
+main

data/lib/literate/programming.rb

@@ -21,9 +21,19 @@ module Literate
       convert[:md]
     end
 
+    def to_tex
+      convert[:tex]
+    end
+
     def convert
       current_mode = :text
       md = ""
+      tex = <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+      TEX
       table = {}
       current_code = nil
       current_label = nil
@@ -62,17 +72,23 @@ module Literate
                 table[current_label] << $/ << current_code
             end
             md << '```' << $/ << $/
+            tex << '\\end{lstlisting}' << $/ << $/
           else
             md << line << $/
+            tex << line << $/
           end
         when :code
           if old_mode == :code then
             current_code << line << $/
             md << line << $/
+            tex << line << $/
           else
             md << '```ruby:' << current_label
             md << ' append' if operator == :append
             md << $/
+            tex << '\\begin{lstlisting}[frame=lines,caption=' << current_label
+            tex << ' append' if operator == :append
+            tex << ']' << $/
           end
         end
       end
@@ -85,9 +101,13 @@ module Literate
             table[current_label] << $/ << current_code
         end
         md << '```' << $/
+        tex << '\\end{lstlisting}' << $/
       end
       table['*'] ||= ''
-      return {rb: indent_code(expand(table, '*')), md: indent_text(md)}
+      tex << <<-TEX
+\\end{document}
+      TEX
+      return {rb: indent_code(expand(table, '*')), md: indent_markdown(md), tex: indent_tex(tex)}
     end
 
     def expand(table, label)
@@ -152,7 +172,7 @@ module Literate
       return ret
     end
 
-    def indent_text(text)
+    def indent_markdown(text)
       mode = :text
       ret = ''
       indent_level_stack = nil
@@ -173,6 +193,27 @@ module Literate
       return ret
     end
 
+    def indent_tex(text)
+      mode = :text
+      ret = ''
+      indent_level_stack = nil
+      text.split($/).each do |line|
+        if mode == :text and line.match /^\\begin{lstlisting}/ then
+          mode = :code
+          indent_level_stack = [-@tabstop]
+          ret << line << $/
+        elsif mode == :text then
+          ret << line << $/
+        elsif mode == :code and line.match /^\\end{lstlisting}/ then
+          mode = :text
+          ret << line << $/
+        else
+          ret, indent_level_stack = pretty_print_ruby ret, indent_level_stack, line
+        end
+      end
+      return ret
+    end
+
     def pretty_print_ruby(buffer, indent_level_stack, line)
       if line.match /^[ \t]*(else|elsif|ensure|rescue|when)\b/ then
         current_indent_level = indent_level_stack[-1]

data/lib/literate/programming/version.rb

@@ -1,5 +1,5 @@
 module Literate
   class Programming
-    VERSION = "1.1.1"
+    VERSION = "1.2.0"
   end
 end

data/spec/lib/literate/programming_spec.rb

@@ -6,14 +6,35 @@ describe 'literate-programming' do
     inst = Literate::Programming.new
     expect(inst.to_ruby).to eq ""
     expect(inst.to_md).to eq ""
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+\\end{document}
+    TEX
 
     inst = Literate::Programming.new ""
     expect(inst.to_ruby).to eq ""
     expect(inst.to_md).to eq ""
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+\\end{document}
+    TEX
 
     inst = Literate::Programming.new $/
     expect(inst.to_ruby).to eq ""
     expect(inst.to_md).to eq ""
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+\\end{document}
+    TEX
   end
 
   it 'simple case 1' do
@@ -33,6 +54,18 @@ Simple Case 1.
 p 'Hello, world!'
 ```
     EOM
+
+    expect(inst.to_tex).to eq <<-EOM
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+Simple Case 1.
+\\begin{lstlisting}[frame=lines,caption=*]
+p 'Hello, world!'
+\\end{lstlisting}
+\\end{document}
+    EOM
   end
 
   it 'simple case 2' do
@@ -61,6 +94,23 @@ The main program says hello!
 p [[hello-world]]
 ```
     EOM
+
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+Simple Case 2.
+\\begin{lstlisting}[frame=lines,caption=hello-world]
+'Hello, world!'
+\\end{lstlisting}
+
+The main program says hello!
+\\begin{lstlisting}[frame=lines,caption=*]
+p [[hello-world]]
+\\end{lstlisting}
+\\end{document}
+    TEX
   end
 
   it 'simple case 3' do
@@ -115,6 +165,35 @@ Finally, call the main function.
 main
 ```
     EOC
+
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+Simple Case 3.
+\\begin{lstlisting}[frame=lines,caption=*]
+def main
+  [[main-body]]
+end
+\\end{lstlisting}
+
+The main function says hello-world
+\\begin{lstlisting}[frame=lines,caption=main-body]
+p [[hello-world]]
+\\end{lstlisting}
+
+Definition of the hello-world is a 'Hello, world!'
+\\begin{lstlisting}[frame=lines,caption=hello-world]
+'Hello, world!'
+\\end{lstlisting}
+
+Finally, call the main function.
+\\begin{lstlisting}[frame=lines,caption=* append]
+main
+\\end{lstlisting}
+\\end{document}
+    TEX
   end
 
   it 'template case 1' do
@@ -411,6 +490,57 @@ Finally, call the main function.
 main
 ```
     EOC
+
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+Template Case 1.
+\\begin{lstlisting}[frame=lines,caption=*]
+def main
+  [[main-body]]
+end
+\\end{lstlisting}
+
+Sing a song ''99 bottles of beer''
+\\begin{lstlisting}[frame=lines,caption=main-body]
+[[bottles:100]]
+\\end{lstlisting}
+
+General case, sing below
+\\begin{lstlisting}[frame=lines,caption=bottles:@]
+puts '@0 bottles of beer on the wall, @0 bottles of beer.'
+puts 'Take one down and pass it around, @@(@0 - 1) bottles of beer on the wall.'
+[[bottles:@@(@0 - 1)]]
+\\end{lstlisting}
+
+When number of bottles == 2
+\\begin{lstlisting}[frame=lines,caption=bottles:2]
+puts '2 bottles of beer on the wall, 2 bottles of beer.'
+puts 'Take one down and pass it around, 1 bottle of beer on the wall.'
+[[bottles:1]]
+\\end{lstlisting}
+
+When number of bottles == 1
+\\begin{lstlisting}[frame=lines,caption=bottles:1]
+puts '1 bottle of beer on the wall, 1 bottle of beer.'
+puts 'Take one down and pass it around, no more bottles of beer on the wall.'
+[[bottles:0]]
+\\end{lstlisting}
+
+When no rest bottles...
+\\begin{lstlisting}[frame=lines,caption=bottles:0]
+puts 'No more bottles of beer on the wall, no more bottles of beer.'
+puts 'Go to the store and buy some more, 99 bottles of beer on the wall.'
+\\end{lstlisting}
+
+Finally, call the main function.
+\\begin{lstlisting}[frame=lines,caption=* append]
+main
+\\end{lstlisting}
+\\end{document}
+    TEX
   end
 
   it 'template case 2' do
@@ -494,6 +624,46 @@ Finally, instanciate Main and run it!
 Main.new.run
 ```
     EOC
+
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+Template Case 2.
+\\begin{lstlisting}[frame=lines,caption=*]
+class Main
+  [[main-body]]
+end
+\\end{lstlisting}
+
+It is free to use @ unless it is followed by a number.
+It is also free to use @@ unless it is followed by left parent.
+\\begin{lstlisting}[frame=lines,caption=main-body]
+def initialize
+  @x = @@default_x
+end
+\\end{lstlisting}
+
+If @@ is followed by left parent, it will evaluated by the rtangle.
+For example, an rtangled below one will equals to '@@default_x = 10'
+\\begin{lstlisting}[frame=lines,caption=main-body append]
+@@default_x = @@(1 + 2 + 3 + 4)
+\\end{lstlisting}
+
+How Main.new.run works?
+\\begin{lstlisting}[frame=lines,caption=main-body append]
+def run
+  p 'Hello!'
+end
+\\end{lstlisting}
+
+Finally, instanciate Main and run it!
+\\begin{lstlisting}[frame=lines,caption=* append]
+Main.new.run
+\\end{lstlisting}
+\\end{document}
+    TEX
   end
 
   it '*before* label' do
@@ -549,5 +719,34 @@ Finally, call the main function.
 main
 ```
     EOC
+
+    expect(inst.to_tex).to eq <<-TEX
+\\documentclass{report}
+\\usepackage{listings}
+\\begin{document}
+\\lstset{language=Ruby}
+If you want to do something that requires many sentence,
+you can use *before* label;
+It will be expanded and be evaluated by rtangle to help to write.
+\\begin{lstlisting}[frame=lines,caption=*]
+def main
+  @@(helper_function)
+end
+\\end{lstlisting}
+
+For example, *before* label likes below;
+Note: the *before*before* label, the *before*before*before* label, and so on, are also exists.
+\\begin{lstlisting}[frame=lines,caption=*before*]
+def helper_function
+  return "p 'Hello, world!'"
+end
+\\end{lstlisting}
+
+Finally, call the main function.
+\\begin{lstlisting}[frame=lines,caption=* append]
+main
+\\end{lstlisting}
+\\end{document}
+    TEX
   end
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: literate-programming
 version: !ruby/object:Gem::Version
-  version: 1.1.1
+  version: 1.2.0
 platform: ruby
 authors:
 - pixie-grasper
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-11-22 00:00:00.000000000 Z
+date: 2016-11-23 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler