From 4d5ee2ead874c7a436faa8754eb99215927ea94d Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph.amissah@gmail.com>
Date: Sun, 27 Jun 2021 16:59:44 -0400
Subject: dir rename ./sundry (from ./misc)

---
 sundry/misc/util/rb/tex/dr_tex.rb | 120 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100755 sundry/misc/util/rb/tex/dr_tex.rb

(limited to 'sundry/misc/util/rb/tex/dr_tex.rb')

diff --git a/sundry/misc/util/rb/tex/dr_tex.rb b/sundry/misc/util/rb/tex/dr_tex.rb
new file mode 100755
index 0000000..b71d8c1
--- /dev/null
+++ b/sundry/misc/util/rb/tex/dr_tex.rb
@@ -0,0 +1,120 @@
+#!/usr/bin/env ruby
+# /+
+# - Name: Spine, Doc Reform [a part of]
+#   - Description: documents, structuring, processing, publishing, search
+#     - static content generator
+#
+#   - Author: Ralph Amissah
+#     [ralph.amissah@gmail.com]
+#
+#   - Copyright: (C) 2015 - 2021 Ralph Amissah, All Rights
+#     Reserved.
+#
+#   - License: AGPL 3 or later:
+#
+#     Spine (SiSU), a framework for document structuring, publishing and
+#     search
+#
+#     Copyright (C) Ralph Amissah
+#
+#     This program is free software: you can redistribute it and/or modify it
+#     under the terms of the GNU AFERO General Public License as published by the
+#     Free Software Foundation, either version 3 of the License, or (at your
+#     option) any later version.
+#
+#     This program 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
+#     this program. If not, see [https://www.gnu.org/licenses/].
+#
+#     If you have Internet connection, the latest version of the AGPL should be
+#     available at these locations:
+#     [https://www.fsf.org/licensing/licenses/agpl.html]
+#     [https://www.gnu.org/licenses/agpl.html]
+#
+#   - Spine (by Doc Reform, related to SiSU) uses standard:
+#     - docReform markup syntax
+#       - standard SiSU markup syntax with modified headers and minor modifications
+#     - docReform object numbering
+#       - standard SiSU object citation numbering & system
+#
+#   - Hompages:
+#     [https://www.doc_reform.org]
+#     [https://www.sisudoc.org]
+#
+#   - Git
+#     [https://git.sisudoc.org/projects/?p=software/spine.git;a=summary]
+#
+# +/
+require 'fileutils'
+pwd = Dir.pwd
+argv,texfiles_with_path,flags=[],[],[]
+lngs = %{(am|bg|bn|br|ca|cs|cy|da|de|el|en|eo|es|et|eu|fi|fr|ga|gl|he|hi|hr|hy|ia|is|it|ja|ko|la|lo|lt|lv|ml|mr|nl|no|nn|oc|pl|pt|pt_BR|ro|ru|sa|se|sk|sl|sq|sr|sv|ta|te|th|tk|tr|uk|ur|vi|zh)}
+Regexp.new(lngs, Regexp::IGNORECASE)
+argv=$*
+argv.sort.each{|y| (y =~/^--\S+$/i) ? (flags << y) : (texfiles_with_path << y) }
+if flags.length==0 \
+|| flags.inspect =~/"--help"/
+  cmd=(/([^\/]+)$/).match($0)[1]
+  puts <<WOK
+#{cmd} --help
+#{cmd} --out=[output path]
+#{cmd} --paper-size=a5 --out=~/test
+WOK
+end
+// paper_size_orientation = (flags.inspect.match(/"--paper-size=(a4|a5|b5|letter|legal)"/)) ? $1 : "a4"
+out_path = Dir.pwd
+if (flags.inspect.match(/"--out=\S+"/))
+  out_path = flags.inspect.match(/"--out=(\S+)"/)[1]
+  unless (FileTest.directory?(out_path))
+    puts "Creating output directory: --out=#{out_path}"
+    FileUtils::mkdir_p(out_path)
+    unless (FileTest.directory?(out_path))
+      puts "FAILS unable to create directory: #{out_path}"
+      exit
+    end
+  end
+end
+if texfiles_with_path.length == 0
+  texfiles_with_path=Dir.glob('*.tex')
+end
+if texfiles_with_path.length > 0
+  texfiles_with_path.each do |texfile_with_path|
+    if texfile_with_path =~/.+\.tex/
+      #puts texfile_with_path
+      if FileTest.file?(texfile_with_path)
+        file_basename_with_path = texfile_with_path.sub(/\.tex$/,'')
+        file_basename = file_basename_with_path.sub(/.*?([^\/]+)$/,'\1')
+        _out_path = out_path
+        if file_basename =~ /\.#{lngs}$/
+          lng = file_basename.match(/\.#{lngs}$/)[1]
+          puts file_basename
+          puts lng
+          puts _out_path
+          unless _out_path.match(/\/#{lng}\/pdf$/)
+            _out_path = "#{out_path}/#{lng}/pdf"
+            FileUtils::mkdir_p(_out_path)
+          end
+        end
+        texpdf_cmd = %{xetex -interaction=batchmode -fmt=xelatex #{texfile_with_path}\n}
+        puts texpdf_cmd
+        2.times { |i| system(texpdf_cmd) }
+        if (FileTest.file?(%{#{pwd}/#{file_basename}.pdf})) && (FileTest.directory?(_out_path))
+          FileUtils::Verbose::mv(%{#{pwd}/#{file_basename}.pdf}, %{#{_out_path}/#{file_basename}.pdf})
+          puts (%{#{_out_path}/#{file_basename}.pdf})
+        else
+          puts "issue with pdf file or output directory"
+          puts "pdf file:   #{pwd}/#{file_basename}.pdf}"
+          puts "output dir: #{_out_path}/"
+        end
+        suffix = ['log', 'out', 'toc', 'aux']
+        suffix.each { |s| FileUtils::rm_f(%{#{pwd}/#{file_basename}.#{s}})}
+      end
+    end
+  end
+end
+Dir.chdir(pwd)
+__END__
-- 
cgit v1.2.3