# encoding: utf-8 # - Name: SiSU # # - Description: documents, structuring, processing, publishing, search # src # # - Author: Ralph Amissah # # # - Copyright: (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, # 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2019, # 2020, 2021, 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 # # - Homepages: # # # - Git # # # module SiSU_KdiSource require_relative 'se' # se.rb include SiSU_Env class Source begin require 'fileutils' include FileUtils rescue LoadError SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). error('fileutils NOT FOUND (LoadError)') end def initialize(opt) @opt=opt @env=SiSU_Env::InfoEnv.new(@opt.fns) @output_path="#{@env.path.output}/#{@opt.fnb}" end def read SiSU_Screen::Ansi.new( @opt.act[:color_state][:set], 'Share Kdissert Source Document!', @opt.fnb ).green_hi_blue unless @opt.act[:quiet][:set]==:on SiSU_Screen::Ansi.new( @opt.act[:color_state][:set], "Copy kdissert file to output directory", "#{@opt.fnb} -> #{@output_path}" ).warn unless @opt.act[:quiet][:set]==:on FileUtils::mkdir_p(@env.path.output) unless FileTest.directory?(@env.path.output) FileUtils::mkdir_p(@output_path) unless FileTest.directory?(@output_path) if FileTest.directory?(@output_path) if @opt.fns =~/\.kdi\._sst$/ \ and FileTest.file?(@opt.fnb) FileUtils::cp(@opt.fnb,@output_path) end else SiSU_Screen::Ansi.new( @opt.act[:color_state][:set], "Output directory does not exist", "#{@opt.fnb} -> #{@output_path}" ).warn unless @opt.act[:quiet][:set]==:on exit end end end end __END__