From 960c3088bc88f2db879154053280b06c160d4d70 Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Tue, 21 Apr 2015 14:45:52 -0400 Subject: lib/sisu/*, single libs directory (c&d gone) (7) * removed lib/sisu/{current,develop} dir branches v7 (v5 & v6 retired) * simplify dir structure, offer single version per snapshot * have enjoyed carrying stable and development versions v5 & v6 in a single tarball, may return to this structure --- lib/sisu/current/utils_response.rb | 114 ------------------------------------- 1 file changed, 114 deletions(-) delete mode 100644 lib/sisu/current/utils_response.rb (limited to 'lib/sisu/current/utils_response.rb') diff --git a/lib/sisu/current/utils_response.rb b/lib/sisu/current/utils_response.rb deleted file mode 100644 index 2343dad6..00000000 --- a/lib/sisu/current/utils_response.rb +++ /dev/null @@ -1,114 +0,0 @@ -# encoding: utf-8 -=begin - -* Name: SiSU - -** Description: documents, structuring, processing, publishing, search -*** Request response - -** Author: Ralph Amissah - - - -** Copyright: (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, - 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015 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: - - - -** Git - - - -=end -module SiSU_Response - def available_selections_ - %{'yes', 'no', 'quit' or 'exit'; [ynqx]} - end - def response?(ask) - response='redo' - print ask + %{ [#{available_selections_}]: } - response=File.new('/dev/tty').gets.strip - case response - when /^(?:y|yes)$/ then true - when /^(?:n|no)$/ then false - when /^(?:[qx]|quit|exit)$/ then exit - else puts %{[please type: #{available_selections_}]} - response?(ask) - end - end - def query - def selections_available_(selections=:strict) - short_options=(selections == :strict) ? '' : '; [ynqx]' - %{'yes', 'no', 'quit' or 'exit'#{short_options}} - end - def selection_options - def response_strict(resp) - case resp - when /^(?:yes)$/ then true - when /^(?:no)$/ then false - when /^(?:quit|exit)$/ then exit - else - puts %{response was: #{resp}} - puts %{[please type to select: #{selections_available_(:strict)}]} - answer?('',:strict) - end - end - def response_short(resp) - case resp - when /^(?:y|yes)$/ then true - when /^(?:n|no)$/ then false - when /^(?:[qx]|quit|exit)$/ then exit - else - puts %{response was: #{resp}} - puts %{[please type to select: #{selections_available_(:short)}]} - answer?('',:short) - end - end - self - end - def answer?(ask,selections=:strict) - resp='redo' - print ask + %{PROCEED? [#{selections_available_(selections)}]: } - resp=File.new('/dev/tty').gets.strip - (selections==:strict) \ - ? selection_options.response_strict(resp) - : selection_options.response_short(resp) - end - self - end -end -__END__ -- cgit v1.2.3