#!/usr/bin/env ruby
# encoding: utf-8
#SiSU: copyright (C) 1997 - 2014 Ralph Amissah; License GPL 3, see appended program information
class Orient
  require 'singleton'
  include Singleton
  def initialize #(called_as_,argv)
    super()
    @called_as,@argv=$0,$*
  end
  def version
    def stable
     '5'
    end
    def unstable
     '6'
    end
    def default
     stable
    end
    self
  end
  def sisu_called_from_directory
    @@sisu_called_from_directory ||= Dir.pwd
  end
  def sisu_run_from
    if processing.called_as == processing.file_full_path \
    and File.dirname(processing.file_full_path) != Config::CONFIG['bindir']
      :full_path_to_sisu_bin_in_sisu_dir_tree
    elsif processing.file_full_path =~/\/gems\// \
    and processing.file_full_path \
    =~ /\/sisu-[#{version.stable}#{version.unstable}]\.(?:\d+|[a-z])\.(?:\d+|[a-z])\//
      :gem_install
    else
      :system_install
    end
  end
  def processing
    def called_as
      @called_as
    end
    def argv
      @argv
    end
    def argv_str
      argv.inspect
    end
    def file_full_path
      __FILE__
    end
    def stable
      'v' + version.stable
    end
    def unstable
      'v' + version.unstable
    end
    def default
      'v' + version.default
    end
    def stable_bin_file_regex
      %r{\bsisu#{version.stable}$}
    end
    def unstable_bin_file_regex
      %r{\bsisu#{version.unstable}$}
    end
    def stable_gem_regex
      %r{\/sisu-#{version.stable}\.(?:\d+|[a-z])\.(?:\d+|[a-z])\/}
    end
    def unstable_gem_regex
      %r{\/sisu-#{version.unstable}\.(?:\d+|[a-z])\.(?:\d+|[a-z])\/}
    end
    def stable_modifier_regex
      %r{"(?:--v#{version.stable}|--current|--stable)"}
    end
    def unstable_modifier_regex
      %r{"(?:--v#{version.unstable}|--current|--stable)"}
    end
    self
  end
  def sisu_lib
    "sisu/#{select_version_check}"
  end
  def sisu_path_lib
    if sisu_path_specified_lib \
    && FileTest.file?("#{sisu_path_specified_lib}/#{sisu_lib}/hub.rb")
      "#{sisu_path_specified_lib}/#{sisu_lib}"
    else sisu_lib
    end
  end
  def sisu_version_info_path
    "#{sisu_path_base_system_data}/#{select_version_check}/v/version.yml"
  end
  def select_version_check
    if sisu_run_from == :full_path_to_sisu_bin_in_sisu_dir_tree \
    or sisu_run_from == :system_install
      case processing.called_as
      when processing.stable_bin_file_regex         then processing.stable
      when processing.unstable_bin_file_regex       then processing.unstable
      else
        case processing.argv_str
        when processing.stable_modifier_regex       then processing.stable
        when processing.unstable_modifier_regex     then processing.unstable
        else                                             processing.default
        end
      end
    elsif sisu_run_from == :gem_install
      case processing.file_full_path
      when processing.stable_gem_regex              then processing.stable
      when processing.unstable_gem_regex            then processing.unstable
      else                                               processing.default
      end
    else                                                 processing.default
    end
  end
  def paths_set
    if sisu_run_from == :system_install \
    and processing.called_as \
    =~ /^#{Config::CONFIG['bindir']}\/sisu[#{version.stable}#{version.unstable}]?$/
      :set_path_system
    elsif sisu_run_from == :full_path_to_sisu_bin_in_sisu_dir_tree \
    and processing.called_as \
    !~ /^#{Config::CONFIG['bindir']}\/sisu[#{version.stable}#{version.unstable}]?$/ \
    && File.expand_path(processing.called_as) \
    =~ /bin\/sisu[#{version.stable}#{version.unstable}]?$/ \
    && FileTest.file?(processing.called_as)
      :set_dir_tree_full_path
    elsif sisu_run_from==:gem_install
      :set_gem_path
    else nil
    end
  end
  def sisu_path_base
    case paths_set
    when :set_path_system
      Config::CONFIG['datadir'] + '/sisu'
    when :set_dir_tree_full_path
      File.expand_path(processing.called_as).
        sub(/\/bin\/sisu[#{version.stable}#{version.unstable}]?$/,'')
    when :set_gem_path
      Gem::Specification.find_by_name("sisu").gem_dir
    else nil
    end
  end
  def sisu_path_base_system_data
    case paths_set
    when :set_path_system
      Config::CONFIG['datadir'] + '/sisu'
    when :set_dir_tree_full_path
      File.expand_path(processing.called_as).
        sub(/\/bin\/sisu[#{version.stable}#{version.unstable}]?$/,'/data/sisu')
    when :set_gem_path
      Gem::Specification.find_by_name("sisu").gem_dir + '/data/sisu'
    else nil
    end
  end
  def sisu_path_specified_lib
    if (processing.called_as \
    !~ /^#{Config::CONFIG['bindir']}\/sisu[#{version.stable}#{version.unstable}]?$/)
      File.expand_path(processing.called_as).
        sub(/bin\/sisu[#{version.stable}#{version.unstable}]?$/,'lib')
    else nil
    end
  end
  def language_list
    def codes
      %w[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 nn no oc pl pt pt_BR ro ru sa se sk sl sq sr sv ta te th tk tr uk ur us vi zh]
    end
    def regex
      codes.join('|')
    end
    self
  end
  def sisu_is
    {
      run_from:              sisu_run_from,
      version_dir:           select_version_check,
      path_base:             sisu_path_base,
      path_base_system_data: sisu_path_base_system_data,
      path_lib:              sisu_path_lib,
      version_info_path:     sisu_version_info_path,
      language_list:         language_list.codes,
    }
  end
  def get_processing_info
    def sortout
      unless @clm_pf
        processing_files={}
        command_line_modifiers=[]
        processing.argv.each do |x|
          if x =~/^-+/
            command_line_modifiers << x
          elsif x =~/\.ss[tm]/
            if x =~/\//
              markup_path,markup_file =
                (/(\S+\/)((?:#{language_list.regex})?[^\/]+)/).
                match(x)[1,2]
              if not processing_files[markup_path]
                processing_files[markup_path]=[]
              end
              processing_files[markup_path] << markup_file
            else
              if not processing_files['./']
                processing_files['./']=[]
              end
              processing_files['./'] << x
            end
          end
        end
      end
      @clm_pf ||={
        command_line_modifiers: command_line_modifiers,
        processing_files:       processing_files,
      }
    end
    def command_line_modifiers
      sortout[:command_line_modifiers]
    end
    def processing_files
      sortout[:processing_files]
    end
    self
  end
  def control
    require "#{sisu_is[:path_lib]}/hub"
    sisu_called_from_directory
    if get_processing_info.processing_files.length > 0
      get_processing_info.processing_files.each_pair do |markup_dir,markup_file|
        begin
          $sisu_document_markup_directory=markup_dir.gsub(/\/$/,'')
          argv_sub=get_processing_info.command_line_modifiers + markup_file
          if FileTest.directory?(markup_dir)
            system("cd #{markup_dir}")
            Dir.chdir(markup_dir)
            $sisu_document_markup_directory_base_fixed_path=
              Dir.pwd.gsub(/\/(?:#{language_list.regex})$/,'')
            SiSU::HubMaster.new(argv_sub)
          elsif markup_dir =~/https?:/
            markup_file.each do |mf|
              (FileTest.file?(mf)) \
              ? (puts 'requested remote file already exists in current directory ' \
                + Dir.pwd + ' using ' + mf)
              : (system("wget #{markup_dir}/#{mf}"))
            end
            $sisu_document_markup_directory_base_fixed_path=
              Dir.pwd.gsub(/\/(?:#{language_list.regex})$/,'')
            argv_sub=command_line_modifiers + markup_file
            SiSU::HubMaster.new(argv_sub)
          else p "Error directory specified #{markup_dir} not found"
          end
        ensure
          Dir.chdir(sisu_called_from_directory)
          system("cd #{sisu_called_from_directory}")
        end
      end
    else
      $sisu_document_markup_directory=Dir.pwd.gsub(/\/$/,'')
      $sisu_document_markup_directory_base_fixed_path=
        Dir.pwd.gsub(/(^|\/)(?:#{language_list.regex})$/,'')
      SiSU::HubMaster.new(processing.argv)
    end
  end
end
#% sisu select source & branch, begin
$VERBOSE=nil
require 'rbconfig'
require 'rubygems'
begin
  require 'singleton'
  s=Orient.instance
  SiSU_is=s.sisu_is
  s.control
rescue #% -
  STDERR.puts 'ERROR'
  STDERR.puts $!
  STDERR.puts $@
  puts %{
                   #{%x{ruby -v}.strip.to_s}
                   #{RUBY_VERSION}
    ruby version:  #{Config::CONFIG['RUBY_PROGRAM_VERSION']}p#{Config::CONFIG['PATCHLEVEL']}
    ruby named:    #{Config::CONFIG['ruby_version']}
    rubylib:       #{Config::CONFIG['rubylibdir']}
    rubylib local: #{Config::CONFIG['sitelibdir']}
    gem dir:       #{Gem.dir}
    gem path:      #{Gem.path}
  }
  system(%{echo "
    system RUBYPATH: ${RUBYPATH}
    system RUBYLIB:  ${RUBYLIB}
  "})
end
__END__

 * Name: SiSU

 * Description: a framework for document structuring, publishing and search

 * Author: Ralph Amissah

 * Copyright: (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
   2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Ralph Amissah,
   All Rights Reserved.

 * License: GPL 3 or later:

   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 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 <http://www.gnu.org/licenses/>.

   If you have Internet connection, the latest version of the GPL should be
   available at these locations:
   <http://www.fsf.org/licensing/licenses/gpl.html>
   <http://www.gnu.org/licenses/gpl.html>

   <http://www.sisudoc.org/sisu/en/manifest/gpl.fsf.html>

 * SiSU uses:
   * Standard SiSU markup syntax,
   * Standard SiSU meta-markup syntax, and the
   * Standard SiSU object citation numbering and system

 * Hompages:
   <http://www.jus.uio.no/sisu>
   <http://www.sisudoc.org>

 * Download:
   <http://www.sisudoc.org/sisu/en/SiSU/download.html>

 * Git
   <http://sources.sisudoc.org/gitweb/?p=code/sisu.git;a=summary>
   <http://sources.sisudoc.org/?p=code/sisu.git;a=blob;f=bin/sisu;hb=HEAD>

 * Ralph Amissah
   <ralph@amissah.com>
   <ralph.amissah@gmail.com>