livetext 0.9.09 → 0.9.14

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: a5b79c9b4bec7d50d6514a46d2d4b459cb769748316a1aa3c124943292862e2d
-  data.tar.gz: 970dfa9d9838a555619491723c4ddacd62764767bcbe427dd407d2f541c7c887
+  metadata.gz: d9e6ad9c8d933b361da03fadc6cc4d28e0a8b699f8f50e434db9bf41f0b9d66b
+  data.tar.gz: 49e59704162aea72ac92122d69f0006591856b9fe09f2b2fdbf6843b7253b80b
 SHA512:
-  metadata.gz: 7f8402adab86a07e37c3e663de62bc2681c84cfe4bc0fb0791e6a2413c2f94991fe861712183c7e82061cd8134a1d6ae6fbc225d90ed57eb78f3cf09a42e5731
-  data.tar.gz: 4f8a97b146ca5e73c65a01681ee7871e198e0d49fa94866122d06dff35f0266cac54b24ae7d559020210ba49479ed041836d8e3e3a1b150a669e54236d8aeb56
+  metadata.gz: 74b1b06e0bc91d976c0f60a2136ed8bb1c4d2d5ba33359620752b44a51918a89fbba2cec9c542ae12a6368de82bdc4db64b30a4d95146caab4e5a290f9c7fa8b
+  data.tar.gz: ed0c0fa3b4da538ddbd31cd799a84f5647d45a369f0f45d729c223f74c7b0f2445bfc0812aa0c319b9a9f5992efa6af521d550eed38a8e2c551b183e28a16722

data/bin/livetext

@@ -72,7 +72,6 @@ loop do
       @backtrace = true
     when "-m", "--mixin"
       mod = ARGV.shift
-STDERR.puts "Got mod: #{mod}"
       x.mixin(ARGV.shift)
       next
     when "-s", "--stdin"

data/lib/errors.rb

@@ -0,0 +1,15 @@
+
+# More later?
+
+def make_exception(sym, str, target_class = Object)
+  return if target_class.constants.include?(sym)
+  klass = sym   # :"#{sym}_Class"
+  target_class.const_set(klass, StandardError.dup)
+  define_method(sym) do |*args|
+    args = [] unless args.first
+    msg = str.dup
+    args.each.with_index {|arg, i| msg.sub!("%#{i+1}", arg) }
+    target_class.class_eval(klass.to_s).new(msg)
+  end
+end
+

data/lib/formatline.rb

@@ -1,3 +1,6 @@
+# Class FormatLine handles the parsing of comments, dot commands, and 
+# simple formatting characters.
+
 class FormatLine
   SimpleFormats     = {}
   SimpleFormats[:b] = %w[<b> </b>]
@@ -395,11 +398,6 @@ class FormatLine
 
   #####
 
-  def showme(tag)
-    char = @line[@cc]
-    puts "--- #{tag}: ch=#{@ch.inspect} next=#{@next.inspect} (cc=#@cc:#{char.inspect})   out=#{@out.inspect}"
-  end
-
   def embedded?
     ! (['"', "'", " ", nil].include? prev)
   end

data/lib/functions.rb

@@ -1,6 +1,10 @@
-require 'standard'  # FIXME
 
-class Livetext::Functions    # Functions will go here... user-def AND pre-def??
+require_relative 'standard'  # FIXME  umm, why is this necessary??
+
+# Class Functions is where '$$func' functions are stored dynamically... 
+# user-def AND pre-def??
+
+class Livetext::Functions
   Formats = ::Livetext::Standard::SimpleFormats
 
   @param = nil

data/lib/helpers.rb

@@ -0,0 +1,25 @@
+
+module Helpers
+
+  def check_disallowed(name)
+    # raise "Illegal name '#{name}'" if _disallowed?(name)
+    # FIXME use custom exception
+    raise DisallowedName, name if _disallowed?(name)
+  end
+
+  def check_file_exists(file)
+    raise FileNotFound(file) unless File.exist?(file)
+  end
+
+  def set_variables(pairs)
+    pairs.each do |pair|
+      var, value = *pair
+      @parent._setvar(var, value)
+    end
+  end
+
+  def grab_file(fname)
+    File.read(fname)
+  end
+
+end

data/lib/html.rb

@@ -0,0 +1,32 @@
+module HTMLHelper
+
+  def wrapped(str, *tags)   # helper
+    open, close = open_close_tags(*tags)
+    open + str + close
+  end
+
+  def wrapped!(str, tag, **extras)    # helper
+    open, close = open_close_tags(tag)
+    extras.each_pair do |name, value|
+      open.sub!(">", " #{name}='#{value}'>")
+    end
+    open + str + close
+  end
+
+  def wrap(*tags)     # helper
+    open, close = open_close_tags(*tags)
+    _out open
+    yield
+    _out close
+  end
+
+  def open_close_tags(*tags)
+    open, close = "", ""
+    tags.each do |tag|
+      open << "<#{tag}>"
+      close.prepend("</#{tag}>")
+    end
+    [open, close]
+  end
+
+end

data/lib/livetext/importable.rb

@@ -0,0 +1,2 @@
+class LiveText::Importable
+end

data/lib/livetext.rb

@@ -1,34 +1,53 @@
+# Class Livetext skeleton (top level).
+
 class Livetext
-  VERSION = "0.9.09"
+  VERSION = "0.9.14"
   Path  = File.expand_path(File.join(File.dirname(__FILE__)))
 end
 
-require 'fileutils'
+# $LOAD_PATH << Livetext::Path
 
-$: << Livetext::Path
+require 'fileutils'
 
-require 'functions'
-require 'userapi'
-require 'standard'
-require 'formatline'
-require 'processor'
+require 'helpers'
+require_relative 'errors'
+require_relative 'functions'
+require_relative 'userapi'
+require_relative 'standard'
+require_relative 'formatline'
+require_relative 'processor'
 
 Plugins = File.expand_path(File.join(File.dirname(__FILE__), "../plugin"))
 
 TTY = ::File.open("/dev/tty", "w")
 
+make_exception(:EndWithoutOpening, "Error: found .end with no opening command")
+
+# Class Livetext reopened (top level).
+
 class Livetext
+
+  include Helpers
+
   Vars = {}
 
+  Space = " "
+  Sigil = "." # Can't change yet
+
+  def self.rx(str, space=nil)
+    Regexp.compile("^" + Regexp.escape(str) + "#{space}")
+  end
+
+  Comment  = rx(Sigil, Livetext::Space)
+  Dotcmd   = rx(Sigil)
+  Ddotcmd  = /^ *\$\.[A-Za-z]/
+
   attr_reader :main
   attr_accessor :no_puts
   attr_accessor :body, :indentation
 
-  # FIXME - phase out stupid 'parameters' method
-
   class << self
-    attr_accessor :parameters  # from outside world (process_text)
-    attr_accessor :output      # both bad solutions?
+    attr_accessor :output      # bad solution?
   end
 
   def vars
@@ -54,17 +73,6 @@ class Livetext
     self
   end
 
-  Space = " "
-  Sigil = "." # Can't change yet
-
-  def self.rx(str, space=nil)
-    Regexp.compile("^" + Regexp.escape(str) + "#{space}")
-  end
-
-  Comment  = rx(Sigil, Livetext::Space)
-  Dotcmd   = rx(Sigil)
-  Ddotcmd  = /^ *\$\.[A-Za-z]/
-
   def initialize(output = ::STDOUT)
     @source = nil
     @_mixins = []
@@ -74,6 +82,10 @@ class Livetext
     @main = Processor.new(self, output)
     @indentation = [0]
     @_vars = Livetext::Vars
+   
+    # Other predefined variables (see also _setfile)
+    _setvar(:User, `whoami`.chomp)
+    _setvar(:Version, Livetext::VERSION)
   end
 
   def _parse_colon_args(args, hash)  # really belongs in livetext
@@ -111,9 +123,14 @@ class Livetext
   end
 
   def _setfile(file)
-    _setvar(:File, file)
-    dir = File.dirname(File.expand_path(file))
-    _setvar(:FileDir, dir)
+    if file
+      _setvar(:File, file)
+      dir = File.dirname(File.expand_path(file))
+      _setvar(:FileDir, dir)
+    else
+      _setvar(:File,    "[no file]")
+      _setvar(:FileDir, "[no dir]")
+    end
   end
 
   def _setfile!(file)
@@ -126,7 +143,6 @@ class Livetext
       when Comment
         handle_scomment(line)
       when Dotcmd
-        STDERR.puts "line = #{line.inspect}"
         handle_dotcmd(line)
       when Ddotcmd
         indent = line.index("$") + 1
@@ -170,7 +186,7 @@ class Livetext
     self.body
   end
 
-  def xform_file(file)  # , vars: {})
+  def xform_file(file, vars: nil)
     Livetext::Vars.replace(vars) unless vars.nil?
     @_vars.replace(vars) unless vars.nil?
     self.process_file(file)
@@ -193,28 +209,23 @@ class Livetext
     end
     val = @main.finalize if @main.respond_to? :finalize
     @body
-  rescue => err
-    STDERR.puts "[process_file] fname = #{fname.inspect}\n    line = #{line.inspect}"
-    STDERR.puts "ERROR #{err} in process_file"
-    err.backtrace.each {|x| STDERR.puts "   " + x }
-    @body = ""
+ rescue => err
+   STDERR.puts "[process_file] fname = #{fname.inspect}\n    line = #{line.inspect}"
+   STDERR.puts "ERROR #{err} in process_file"
+   err.backtrace.each {|x| STDERR.puts "   " + x }
+   # @body = ""
   end
 
   def handle_scomment(line)
   end
 
-  def _check_name(name)
-    @main._error! "Name '#{name}' is not permitted" if @main._disallowed?(name)
-    @main._error! "Mismatched 'end'" if name == "end"
-    name = "_" + name if %w[def include].include?(name)
-    name
-  end
-
   def _get_name(line)
     name, data = line.split(" ", 2)
     name = name[1..-1]  # chop off sigil
+    name = "_" + name if %w[include def].include?(name)
     @main.data = data
-    name = _check_name(name)
+    @main.check_disallowed(name)
+    name
   end
 
   def handle_dotcmd(line, indent = 0)
@@ -222,20 +233,21 @@ class Livetext
     line = line.sub(/# .*$/, "")
     name = _get_name(line).to_sym
     result = nil
-    if @main.respond_to?(name)
-      result = @main.send(name)
+    case
+      when name == :end   # special case
+        puts @body
+        raise EndWithoutOpening()
+      when @main.respond_to?(name)
+        result = @main.send(name)
     else
       @main._error! "Name '#{name}' is unknown"
       return
     end
     result
   rescue => err
-    STDERR.puts "Error was: #{err.inspect} (calling @main._error!)"
+    puts @body  # earlier correct output, not flushed yet
+    STDERR.puts "Error: #{err.inspect}"
     STDERR.puts err.backtrace
-    @main._error!(err)
-    # puts @body
-    @body = ""
-    return @body
   end
 
 end

data/lib/parser/general.rb

@@ -0,0 +1,38 @@
+
+require_relative '../livetext'
+require_relative 'string'
+
+make_exception(:MismatchedQuotes, "Error: mismatched quotes")
+make_exception(:NilValue,         "Error: nil value")
+make_exception(:NullString,       "Error: null string")
+make_exception(:ExpectedString,   "Error: expected a string")
+
+class Livetext::ParseGeneral < StringParser
+
+  def initialize(str)
+    super
+  end
+
+  def strip_quotes
+    raise NullString if @line.empty?
+    start, stop = @line[0], @line[-1]
+    return @line unless %['"].include?(start)
+    raise MismatchedQuotes if start != stop
+    @line[1..-2]
+  end
+
+  def self.parse_vars(lines, prefix: nil)
+    lines.map! {|line| line.sub(/# .*/, "").strip }  # strip comments
+    pairs = []
+    lines.each do |line|
+      next if line.strip.empty?
+      var, value = line.split(" ", 2)
+      val = FormatLine.var_func_parse(value)
+      var = prefix + "." + var if prefix
+      pairs << [var, value]
+    end
+    pairs
+  end
+
+end
+

data/lib/parser/import.rb

@@ -0,0 +1,17 @@
+
+require '../livetext/importable'
+
+make_exception(:BadVariableName, "Error: invalid variable name")
+make_exception(:NoEqualSign,     "Error: no equal sign found")
+
+# FIXME probably belongs elsewhere?
+
+class Livetext::ParseImport
+  def use_import(name)
+    require name
+    include name
+    init = "init_#{name}"
+    self.send(init) if self.respond_to? init
+  end
+end
+

data/lib/parser/mixin.rb

@@ -0,0 +1,40 @@
+require_relative '../livetext'
+require_relative 'string'
+
+make_exception(:BadVariableName, "Error: invalid variable name")
+make_exception(:NoEqualSign,     "Error: no equal sign found")
+
+# FIXME probably belongs elsewhere?
+
+class Livetext::ParseMixin   # < StringParser
+
+  include Helpers
+
+  def cwd_root?
+    File.dirname(File.expand_path(".")) == "/"
+  end
+
+  def find_mixin(name)
+    file = "#{Plugins}/" + name.downcase + ".rb"
+    return file if File.exist?(file)
+
+    file = "./#{name}.rb"
+    return file if File.exist?(file)
+
+    raise "No such mixin '#{name}'" if cwd_root?
+    Dir.chdir("..") { find_mixin(name) }
+  end
+
+  def use_mixin(name, file)
+    modname = name.gsub("/","_").capitalize
+    meths = grab_file(file)
+    string = "module ::#{modname}; #{meths}\nend"
+    eval(string)
+    newmod = Object.const_get("::" + modname)
+    self.extend(newmod)
+    init = "init_#{name}"
+    self.send(init) if self.respond_to? init
+  end
+
+end
+

data/lib/parser/set.rb

@@ -0,0 +1,136 @@
+
+require_relative '../livetext'
+require_relative 'string'
+
+make_exception(:BadVariableName, "Error: invalid variable name")
+make_exception(:NoEqualSign,     "Error: no equal sign found")
+
+class Livetext::ParseSet < StringParser
+
+  attr_reader :line, :eos, :i, :len
+
+  def self.parse(str)
+    self.new(str).parse
+  end
+
+  def initialize(line)
+    super
+  end
+
+  def parse
+    pairs = []
+
+    loop do
+      skip_spaces
+      char = self.peek
+      break if eos?   # end of string
+      raise "Expected alpha to start var name" unless char =~ /[a-z]/i
+      pairs << assignment
+      skip_spaces
+      char = self.peek
+      break if eos?   # end of string
+      case char
+        when nil  # end of string
+        when ","
+          self.next  # skip comma
+      else
+        raise "Expected comma or end of string (found #{char.inspect})"
+      end
+    end
+    pairs
+  end
+
+  def assignment   # one single var=value
+    pair = nil
+    var = value = nil
+    return if eos?
+    var = get_var
+    skip_equal
+    value = get_value
+    value = FormatLine.var_func_parse(value)
+    pair = [var, value]
+    pair
+  end
+
+  def get_var
+    name = ""
+    loop do
+      char = self.peek
+      break if eos?   # end of string
+      case char
+        when /[a-zA-Z_\.0-9]/
+          name << self.next
+          next
+        when /[ =]/
+          return name
+      else
+        raise BadVariableName, char, name
+      end
+    end
+    raise NoEqualSign
+  end
+
+  def skip_equal
+    found = false
+    skip_spaces
+    raise NoEqualSign unless self.peek == "="
+    found = true
+    self.next  # skip =... spaces too
+    self.skip_spaces
+    peek = self.peek
+    return peek  # just for testing
+  rescue StopIteration
+    raise NoEqualSign unless found
+    return nil
+  end
+
+  def escaped
+    self.next   # skip backslash
+    self.next   # return following char
+  end
+
+  make_exception(:BadQuotedString, "Bad quoted string: %1")
+
+  def quoted_value
+    quote = self.next   # opening quote...
+    value = ""
+    char = nil
+    loop do
+      char = self.peek
+      break if self.eos?
+      break if char == quote
+      char = escaped if char == "\\"
+      value << char
+      char = self.next
+    end
+    if char == quote
+      char = self.next
+      return value
+    end
+    raise BadQuotedString, quote + value
+  end
+
+  def unquoted_value
+# puts "#{__method__}: #{@line.inspect}  i = #@i   peek = #{self.peek.inspect}"
+    value = ""
+    loop do
+      char = self.peek
+      break if self.eos?
+      break if char == " " || char == ","
+      value << char
+      char = self.next
+    end
+    value
+  end
+
+  def quote?(char)
+    char == ?" || char == ?'
+  end
+
+  def get_value
+    char = self.peek
+    value = quote?(char) ?  quoted_value : unquoted_value
+    value
+  end
+end
+

data/lib/parser/string.rb

@@ -0,0 +1,55 @@
+class StringParser
+
+  attr_reader :line, :eos, :i, :len
+
+  def initialize(line)
+    raise NilValue if line.nil?
+    raise ExpectedString unless String === line
+#   raise NullString if line.empty?
+    @line = line
+    @len = @line.length
+    @eos = @len == 0 ? true : false
+    @i = 0
+  end
+
+  def next
+    return nil if @eos
+    char = @line[@i]
+    @i += 1
+    @eos = true if @i > @len
+    char
+  end
+
+  def last?
+    @i > @len - 1
+  end
+
+  def eos?
+    @eos = true if last? # duh?
+    @eos
+  end
+
+  def peek
+    return nil if @eos
+    @line[@i]
+  end
+
+  def skip_spaces
+    loop do
+      break if peek != " "
+      break if eos?
+      self.next
+    end
+  end
+
+end
+
+=begin
+  skip
+  next! skip! peek!(?)
+  expect_alpha
+  expect_number
+  skip_spaces
+  expect_eos
+=end
+

data/lib/parser.rb

@@ -0,0 +1,5 @@
+
+require_relative 'parser/string'
+require_relative 'parser/general'
+require_relative 'parser/set'
+require_relative 'parser/mixin'