Add CLI to_sxp option to patch command.

Author: gkellogg

bin/ldpatch

@@ -22,9 +22,9 @@ def run(graph, options = {})
 
   patch =  LD::Patch.parse(options[:patch], options)
 
-  puts ("\nSSE:\n" + patch.to_sse) if options[:debug] || options[:to_sse]
+  puts ("\nSXP:\n" + patch.to_sse) if options[:debug] || options[:to_sxp]
 
-  unless options[:to_sse]
+  unless options[:to_sxp]
     res = patch.execute(graph, options)
     puts res.dump(:ttl, base_uri: patch.base_uri, prefixes: patch.prefixes, standard_prefixes: true)
   end
@@ -35,7 +35,7 @@ opts = GetoptLong.new(
   ["--execute", "-e", GetoptLong::REQUIRED_ARGUMENT],
   ["--patch", GetoptLong::REQUIRED_ARGUMENT],
   ["--progress", GetoptLong::NO_ARGUMENT],
-  ["--to-sse", GetoptLong::NO_ARGUMENT],
+  ["--to-sxp", GetoptLong::NO_ARGUMENT],
   ["--validate", GetoptLong::NO_ARGUMENT],
   ["--verbose", GetoptLong::NO_ARGUMENT],
   ["--help", "-?", GetoptLong::NO_ARGUMENT]
@@ -50,7 +50,7 @@ opts.each do |opt, arg|
   when '--execute'      then options[:patch] = arg
   when '--patch'        then options[:patch] = RDF::Util::File.open_file(arg).read
   when '--progress'     then options[:debug] ||= 2
-  when '--to-sse'       then options[:to_sse] = true
+  when '--to-sxp'       then options[:to_sxp] = true
   when '--validate'     then options[:validate] = true
   when '--verbose'      then options[:verbose] = true
   when "--help"
@@ -61,7 +61,7 @@ opts.each do |opt, arg|
     puts "      --execute,-e: Use option argument as the patch input"
     puts "      --patch:      Location of patch document"
     puts "      --progress    Display parse tree"
-    puts "      --to-sse:     Generate SSE for patch instead of running query"
+    puts "      --to-sxp:     Generate S-Expression for patch instead of running query"
     puts "      --validate:   Validate patch document"
     puts "      --verbose:    Display details of processing"
     puts "      --help,-?:    This message"

lib/ld/patch/format.rb

@@ -32,6 +32,7 @@ def self.cli_commands
             raise ArgumentError, "Patching requires a URI encoded patch or reference to patch resource" unless opts[:patch]
             opts[:logger].info "Patch"
             patch = LD::Patch.parse(opts[:patch], base_uri: opts.fetch(:patch_file, "http://rubygems.org/gems/ld-patch"))
+            opts[:messages][:"S-Expression"] = [patch.to_sse]
             RDF::CLI.repository.query(patch)
           end,
           options: [
@@ -49,6 +50,13 @@ def self.cli_commands
               on: ["--patch-file URI"],
               description: "Patch file"
             ) {|v| RDF::URI(v)},
+            RDF::CLI::Option.new(
+              symbol: :to_sxp,
+              datatype: String,
+              control: :checkbox,
+              on: ["--to-sxp"],
+              description: "Instead of patching repository, display parsed patch as an S-Expression"
+            ) {|v| RDF::URI(v)},
           ]
         }
       }