foucault 0.0.0

data/bin/foucault

@@ -0,0 +1,77 @@
+#!/usr/bin/env ruby
+require 'ostruct'
+require 'optparse'
+
+# Set all default options
+options = OpenStruct.new
+options.mirror = false
+options.output_dir = ''
+options.output = ''
+options.debug = false
+
+OptionParser.new do |opts|
+    
+    opts.banner = "Literate programming with Foucault -- taking a narrative turn"
+    opts.separator ""
+    opts.separator "Usage: foucault [options] input files"
+    opts.separator ""
+    opts.separator "Options:"
+
+    opts.on("-o", 
+            "--output [PATH]", 
+            "Path to output collected program text to") do |path|
+        options.output = path
+    end
+
+    opts.on("-d", "--debug", "Generate program texts in debug mode") do |d|
+        options.debug = true
+    end
+
+    opts.on_tail("-h",
+                 "--help",
+                 "Show this message") do
+        puts opts
+    end
+
+end.parse!
+
+
+
+document = []
+ARGV.each do |input_file|
+    document.concat File.readlines input_file
+end
+def program_collector(document, debug = false)
+    program = []
+
+    require 'foucault/code_block_determinator'
+
+    line_determinator = CodeBlockDeterminator.new
+
+    while not document.empty? do
+
+        line = document.shift
+
+        if line_determinator.collect_line? line
+            program.push line
+        elsif debug
+            program.push "\n"
+        else
+            # ignore this line
+        end
+
+    end
+
+    program.join
+end
+program = program_collector document, options.debug
+
+if not options.output.empty? then
+    # try to write collected program text to file specified in options.output
+    File.open(options.output, "w") do |file|
+        file.puts program
+    end
+else
+    # No output file specified: use STDOUT
+    puts program
+end

data/lib/foucault/code_block_determinator.rb

@@ -0,0 +1,71 @@
+# Copyright 2014 Huub de Beer 
+#
+# This file is part of Foobar.
+#
+# Foucault is free software: you can redistribute it and/or modify it under
+# the terms of the GNU General Public License as published by the Free
+# Software Foundation, either version 3 of the License, or (at your option)
+# any later version.  
+#          
+# Foucault is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+# details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Foucault.  If not, see <http://www.gnu.org/licenses/>.
+class CodeBlockDeterminator
+
+    def initialize()
+        to_start_state
+    end
+
+    def collect_line?(line) 
+
+        case @state
+
+        when :fenced_block
+            if is_fence?(line) and fence_size(line) >= @size and fence_type(line) == @type then
+                 # recognized the end of this code block
+                 to_start_state 
+            else
+                # We're still in a code block: collect this line
+                return true
+            end            
+
+        when :start
+            if is_fence?(line)
+                # Start of a new code block
+                @state = :fenced_block
+                @type = fence_type line
+                @size = fence_size line
+            end
+        end
+        
+        # not in a code block: don't collect this line
+        return false
+    end
+
+    private
+
+    def to_start_state()
+        @state = :start
+        @size = 0
+        @type = :none
+    end
+
+    FENCE = /^(?<fence>(?<type>~|`){3,}).*$/
+
+    def is_fence?(line)
+        FENCE.match line
+    end
+
+    def fence_size(line)
+        FENCE.match(line)[:fence].size
+    end
+
+    def fence_type(line)
+        FENCE.match(line)[:type]
+    end
+
+end

metadata

@@ -0,0 +1,49 @@
+--- !ruby/object:Gem::Specification
+name: foucault
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Huub de Beer
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-05-01 00:00:00.000000000 Z
+dependencies: []
+description: ! 'Literate programming for every language: extract code from markdown
+  documents'
+email: H.T.de.Beer@gmail.com
+executables:
+- foucault
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/foucault/code_block_determinator.rb
+- bin/foucault
+homepage: https://github.com/htdebeer/foucault
+licenses:
+- GPL v.3
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: ! 'Taking a narrative turn to programming: literate programming'
+test_files: []