#!/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"
if get_processing_info.processing_files. length > 0
get_processing_info.processing_files.each_pair do |markup_dir,markup_file|
$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
Dir.chdir(sisu_called_from_directory)
system("cd #{sisu_called_from_directory}")
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 .
If you have Internet connection, the latest version of the GPL should be
available at these locations:
* SiSU uses:
* Standard SiSU markup syntax,
* Standard SiSU meta-markup syntax, and the
* Standard SiSU object citation numbering and system
* Hompages:
* Download:
* Git
* Ralph Amissah