pjl 1.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 6e529424d3227987169bcd9a06cac0f672532d42
+  data.tar.gz: 079f31b129672a1dbf6975a4c63a734cb999a31d
+SHA512:
+  metadata.gz: 02586fd7a02cdd59030f54c04a8a66b31954c445864255696a63c8cee756701be7897148a25cde4b719868a9f799951b5c1afc5c699dd96d2d028b05aaa1a51d
+  data.tar.gz: cb1937fb2bb4cc2f3807e9c2eeac59140570cdfd3b676438dba1afc625ad8b33b014e488ca46b2a8b40f6a1fa093f8bd5698ab5c234294c38d3636b39259de2e

data/LICENSE

@@ -0,0 +1,35 @@
+              _                       _ _ 
+   _ __ _   _| |__  _   _       _ __ (_) |
+  | '__| | | | '_ \| | | |_____| '_ \| | |
+  | |  | |_| | |_) | |_| |_____| |_) | | |
+  |_|   \__,_|_.__/ \__, |     | .__// |_|
+                    |___/      |_| |__/   
+
+
+Copyright (c) 2012, Bertram Scharpf <software@bertram-scharpf.de>.
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in
+      the documentation and/or other materials provided with the
+      distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+

data/README

@@ -0,0 +1,37 @@
+= ruby-pjl 1.1  --  Generating PJL in Ruby
+
+Just write some PJL commands by a Ruby program.
+
+
+== Contents
+
+* class PJL
+
+
+== Functionality
+
+  $ cd example
+
+Get help.
+
+  $ ./ifbrother -H
+
+Pipe a PostScript file to the printer.
+
+  $ cat nikolaus.ps | ./ifbrother | cat >/dev/ulpt0
+
+Set up the filter.
+
+  $ vi printcap
+  $ sudo vi /etc/printcap
+
+
+== Writing Filters
+
+See the files <code>example/if*</code> for how to do it.
+
+
+== TODO
+
+Write some more documentation.
+

data/example/ifbrother

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+
+#
+#  ifbrother  --  Print to Brother MFC7420
+#
+
+require "pjl/appl"
+
+
+class MFC7420Appl < PjlAppl
+
+  NAME      = "ifbrother"
+  VERSION   = "1.0"
+  SUMMARY   = "This is just a template"
+
+  RES = 600
+
+  GS = %W(
+    gs -q -dBATCH -dPARANOIDSAFER -dQUIET -dNOPAUSE
+        -sDEVICE=ljet2p -r#{RES} -sOutputFile=- -
+  )
+
+  def frame
+    job "#@login@#@host-#$$" do
+      set :ras1200mode => :off
+      set :resolution  => RES
+      set :economode   => :off
+      set :sourcetray  => :tray1
+      set :mediatype   => :regular
+      set :orientation => :portrait
+      set :paper       => :a4
+      set :pageprotect => :auto
+      enter :pcl do
+        system *GS
+      end
+    end
+  end
+
+end
+
+exit MFC7420Appl.run
+

data/example/ifcanon

@@ -0,0 +1,63 @@
+#!/usr/local/bin/ruby
+
+#
+#  ifcanon  --  input filter for Canon printer
+#
+
+require "pjl/appl"
+require "socket"
+
+class CanonIRAppl < PjlAppl
+
+  NAME      = "ifcanon"
+  VERSION   = "1.0"
+  SUMMARY   = "Printer driver for Canon IR"
+
+  attr_writer :tray
+
+  define_option "t", :tray=, "NUM", "paper source"
+  alias_option  "t", "tray"
+
+  def run
+    @tray ||= ($0 =~ /-tray(\d+)\z/) && $1.to_i
+    super
+  end
+
+  private
+
+  def job
+    uel
+    pjl "CQue2.0-2"
+    yield
+  ensure
+    uel
+  end
+
+  GS = %w(
+    gs -q -dBATCH -dPARANOIDSAFER -dNOPAUSE -sDEVICE=ljet4 -sOutputFile=- -
+  )
+
+  def frame
+    uh = "#@login@#@host"
+    h, = Socket.gethostname.split "."
+    jn = "#{h}-#$$!#@login@#@host"
+    job do
+      comment :canpjl, :set, :username   => uh
+      comment :canpjl, :set, :docname    => jn
+      comment :canpjl, :set, :sortermode => :genericon
+      comment :canpjl, :set, :staple     => :genericoff
+      comment :canpjl, :set, :punch      => :genericoff
+      comment :canpjl, :set, :booklet    => :genericoff
+      if @tray then
+        set :mediasource => :"tray#@tray"
+      end
+      enter :pcl do
+        system *GS
+      end
+    end
+  end
+
+end
+
+exit CanonIRAppl.run
+

data/example/iffile

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+
+#
+#  iffile  --  Print to file
+#
+
+require "supplement"
+require "pjl/appl"
+
+
+class FileAppl < PjlAppl
+
+  NAME      = "iffile"
+  VERSION   = "1.0"
+  SUMMARY   = "Printer driver writing to a file"
+
+  OUTDIR = "/var/tmp/lpd-files"
+
+  def run
+    File.open output_path, "w" do |f|
+      f.puts $stdin.read
+    end
+  end
+
+  private
+
+  def output_path
+    File.directory? OUTDIR or Dir.mkdir! OUTDIR
+    timestamp = Time.now.strftime "%Y%m%d-%H%M%S"
+    File.join OUTDIR, "lpd-job-#@login@#@host-#{timestamp}-#$$"
+  end
+
+end
+
+exit FileAppl.run
+

data/example/ifkyocera

@@ -0,0 +1,46 @@
+#!/usr/local/bin/ruby
+
+#
+#  ifkyocera  --  input filter kyocera printer
+#
+
+require "pjl/appl"
+
+class KyoceraFSAppl < PjlAppl
+
+  NAME      = "ifkyocera"
+  VERSION   = "1.0"
+  SUMMARY   = "Printer driver for Kyocera FS"
+
+  private
+
+  def frame
+    puts <<-EOT
+!R! FRPO N7,1; CMNT Postscripts settumble cannnot do that.; EXIT,E;
+    EOT
+    display = "#@login@#@host"
+    job "#@login@#@host-#$$", :display => display do
+      rdymsg :display => display
+      set :economode => :off
+      enter :postscript do
+        l = $stdin.readline
+        case l
+          when /^%!/, /^%PDF/ then
+            begin
+              print l
+            end while l = readline
+          else
+            Pipe.run %w(a2ps -q) do |p|
+              p.feed l
+              p.feed $stdin
+            end
+        end
+      end
+      rdymsg :display => ""
+    end
+  end
+
+end
+
+exit KyoceraFSAppl.run
+

data/example/nikolaus.ps

@@ -0,0 +1,31 @@
+%!PS-Adobe-3.0
+
+%
+%  nikolaus.ps  --  Das Haus vom Nikolaus
+%
+
+% << /Duplex true >> setpagedevice
+% statusdict begin true setduplexmode true settumble end
+
+/Phi { 5 sqrt 1 sub 2 div } def
+
+newpath
+
+100 100 moveto
+100 200 lineto
+200 200 lineto
+100 100 lineto
+200 100 lineto
+100 200 lineto
+100 100 2 div add 200 100 Phi mul add lineto
+200 200 lineto
+200 100 lineto
+
+stroke
+
+/Courier findfont 10 scalefont setfont
+100 350 moveto
+(Das ist das Haus vom Nikolaus.) show
+
+showpage
+

data/example/printcap

@@ -0,0 +1,44 @@
+#
+#  printcap  --  Example FreeBSD printer configuration
+#
+
+# (C) 2016 Bertram Scharpf <software@bertram-scharpf.de>
+
+# WARNING! The filter-path capability "fp" below is an extension
+# written by me and filed in December 2015
+# (<https://bugs.freebsd.org/bugzilla/show_bug.cgi?id=205604>).
+# The FreeBSD community is ignoring my proposal as diligently as possible.
+#
+# The problem: After lpd was started by the "service" command (not
+# /etc/rc.d/lpd from the command line!) the PATH environment variable
+# is set as in /etc/login.conf. If the filter is a Ruby script containing
+# a shebang line calling "env", the interpreter maybe will not be found.
+#
+#   #!/usr/bin/env ruby
+#
+# Possible solutions:
+#
+#   - Patch your base system and "make buildworld" etc. again.
+#
+#   - Replace the shebang line using an explicit path:
+#
+#       #!/usr/local/bin/ruby
+#
+#   - Set an extended PATH variable for the lpd daemon in /etc/rc.conf:
+#
+#       lpd_enable="YES"
+#       lpd_env="PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin"
+#
+#   - Check the path capability in /etc/login.conf.
+#
+# Good luck!
+#
+
+mfc7420|brother|lp:\
+        :mx=0:\
+        :sd=/var/spool/lpd/mfc7420:\
+        :sh:\
+        :lp=/dev/ulpt0:\
+        :fp=/sbin /bin /usr/sbin /usr/bin /usr/games /usr/local/sbin /usr/local/bin:\
+        :if=/usr/libexec/lpr/ifbrother:
+

data/lib/pjl.rb

@@ -0,0 +1,125 @@
+#
+#  pjl.rb  --  PJL generation
+#
+
+=begin rdoc
+
+:section: Classes definied here
+
+PJL generates PJL code.
+
+=end
+
+
+class Object
+  def to_pjlkey ; to_s ; end
+end
+class String
+  def to_pjlkey ; v = gsub '"', "''" ; %Q("#{v}") ; end
+end
+class Symbol
+  def to_pjlkey ; r = to_s; r.upcase! ; r ; end
+end
+class Array
+  def to_pjlkey ; map { |x| x.to_pjlkey }.join ; end
+end
+
+
+# PJL generation
+#
+# = Example
+#
+#   class MyPrinter
+#     include PJL
+#     def run
+#       job "job-#$$" do
+#         rdymsg :display => "wait..."
+#         enter :postscript do
+#           puts "%!PS"
+#           ...
+#         end
+#       end
+#     end
+#   end
+#   MyPrinter.new.run
+#
+module PJL
+
+  def job name, *args
+    print "\0"*32
+    uel
+    pjl
+    j = { :name => name.to_s }
+    args.push j
+    pjl :job, *args
+    yield
+  ensure
+    pjl :eoj, j
+    uel
+  end
+
+  def lparm p
+    m = @m
+    @m = { :lparm => p.to_sym }
+    yield
+  ensure
+    @m = m
+  end
+
+  def iparm p
+    m = @m
+    @m = { :iparm => p.to_sym }
+    yield
+  ensure
+    @m = m
+  end
+
+  def noop
+    pjl
+  end
+  alias nop noop
+
+  def method_missing name, *args, &block
+    if block then
+      super
+    else
+      args.each { |a|
+        case a
+          when String, Symbol, Hash then next
+          else                           super
+        end
+      }
+      if name.to_s =~ /\Apjl_/ then name = $'.to_sym end
+      pjl name, *args
+    end
+  end
+
+  def enter language
+    pjl :enter, :language => language.to_sym
+    yield
+  ensure
+    uel
+    pjl
+  end
+
+  private
+
+  def uel
+    print "\e%-12345X"
+  end
+
+  def pjl *args
+    opt = {}
+    opt.update args.pop while args.last.is_a? Hash
+    l = []
+    args.flatten!
+    args.each { |a| l.push a }
+    @m and @m.each { |k,v| l.push [ k, :":", v] }
+    opt      .each { |k,v| l.push [ k, :"=", v] }
+    cmd = "@PJL"
+    l.each { |x| cmd << " " << x.to_pjlkey }
+    puts cmd
+  end
+
+end
+

data/lib/pjl/appl.rb

@@ -0,0 +1,64 @@
+#
+#  pjl/appl.rb  --  Application
+#
+
+require "appl"
+require "pjl"
+
+class PjlAppl < Application
+
+  NAME      = "pjlappl"
+  VERSION   = "0.0"
+  SUMMARY   = "This is just a template"
+
+  DESCRIPTION = "Call this as an input filter from printcap."
+
+  attr_writer :width, :length, :indent, :login, :host
+  attr_bang :plain, :debug
+
+  define_option "c", :plain!,              "pass through control characters"
+  alias_option  "c", "passctrl"
+  define_option "w", :width=,  "NUM",                                "width"
+  alias_option  "w", "width"
+  define_option "l", :length=, "NUM",                               "length"
+  alias_option  "l", "length"
+  define_option "i", :indent=, "NUM",                               "indent"
+  alias_option  "i", "indent"
+  define_option "n", :login=,  "STR",                           "login name"
+  alias_option  "n", "login"
+  define_option "h", :host=,   "STR",                            "host name"
+  alias_option  "h", "host"
+
+  define_option "g", :debug!,           "lots of ugly debugging information"
+  alias_option  "g", "debug"
+
+  define_option "H", :help,                         "show this options list"
+  alias_option  "H", "help"
+  define_option "V", :version,                    "show version information"
+  alias_option  "V", "version"
+
+  def run
+    @host ||= gethostname
+    @host, = @host.split "."
+    @acct_file = @args.shift
+    if @plain then
+      while (l = readline) do
+        print l
+      end
+    else
+      frame
+    end
+  rescue EOFError
+  end
+
+  include PJL
+
+  private
+
+  def gethostname
+    require "socket"
+    Socket.gethostname
+  end
+
+end
+

data/lib/pjl/version.rb

@@ -0,0 +1,23 @@
+#
+#  pjl/version.rb  --  Name and version number
+#
+
+module PJL
+
+  NAME        = "pjl"
+  VERSION     = "1.1".freeze
+
+  SUMMARY     = "PJL generation"
+
+  DESCRIPTION = <<EOT
+Write PJL (Printer Job Language) commands from a Ruby program.
+EOT
+
+  COPYRIGHT   = "(C) 2013-2016 Bertram Scharpf"
+  LICENSE     = "BSD-2-Clause"
+  AUTHOR      = "Bertram Scharpf <software@bertram-scharpf.de>"
+  TEAM        = [ "Bertram Scharpf"]
+  HOMEPAGE    = "http://www.bertram-scharpf.de/software/pjl"
+
+end
+

metadata

@@ -0,0 +1,76 @@
+--- !ruby/object:Gem::Specification
+name: pjl
+version: !ruby/object:Gem::Version
+  version: '1.1'
+platform: ruby
+authors:
+- Bertram Scharpf
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-12-09 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: appl
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.0'
+description: |
+  Write PJL (Printer Job Language) commands from a Ruby program.
+email: Bertram Scharpf <software@bertram-scharpf.de>
+executables: []
+extensions: []
+extra_rdoc_files:
+- README
+- LICENSE
+files:
+- LICENSE
+- README
+- example/ifbrother
+- example/ifcanon
+- example/iffile
+- example/ifkyocera
+- example/nikolaus.ps
+- example/printcap
+- lib/pjl.rb
+- lib/pjl/appl.rb
+- lib/pjl/version.rb
+homepage: http://www.bertram-scharpf.de/software/pjl
+licenses:
+- BSD-2-Clause
+metadata: {}
+post_install_message: 
+rdoc_options:
+- "--charset"
+- utf-8
+- "--main"
+- lib/pjl.rb
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements:
+- Some other tools from the same author
+rubyforge_project: NONE
+rubygems_version: 2.6.4
+signing_key: 
+specification_version: 4
+summary: PJL generation
+test_files: []