From 0ce4abe72db478816cb11fde7adc9cdb72af8c5b Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Thu, 18 Sep 2008 18:02:03 +0200
Subject: [PATCH 1/1] Implement ls

---
 pws | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100755 pws

diff --git a/pws b/pws
new file mode 100755
index 0000000..8cbdf42
--- /dev/null
+++ b/pws
@@ -0,0 +1,57 @@
+#!/usr/bin/ruby
+
+require 'optparse'
+
+$program_name = File.basename($0, '.*')
+
+class Ls
+  def help(parser, code=0, io=STDOUT)
+    io.puts "Usage: #{$program_name} ls [<directory> ...]"
+    io.puts parser.summarize
+    io.puts "Lists the contents of the given directory/directories, or the current"
+    io.puts "directory if none is given.  For each file show whether it is PGP-encrypted"
+    io.puts "file, and if yes whether we can read it."
+    exit(code)
+  end
+
+  def ls_dir(d)
+    begin
+      dir = Dir.open(d)
+    rescue Exception => e
+      STDERR.puts e
+      return
+    end
+    puts "#{d}:"
+    dir.each do |filename|
+      next if (filename =~ /^\./) and not @all
+      stat = File::Stat.new(filename)
+      if stat.symlink?
+        puts "(sym)    #{filename}"
+      elsif stat.directory?
+        puts "(dir)    #{filename}"
+      elsif !stat.file?
+        puts "(other)  #{filename}"
+      else
+        puts "(file)   #{filename}"
+      end
+    end
+  end
+
+  def initialize()
+    ARGV.options do |opts|
+      opts.on_tail("-h", "--help" , "Display this help screen") { help(opts) }
+      opts.on_tail("-a", "--all" , "Show all files") { |@all| }
+      opts.parse!
+    end
+
+    dirs = ARGV
+    dirs.push('.') unless dirs.size > 0
+    dirs.each { |dir| ls_dir(dir) }
+  end
+end
+
+case ARGV.shift
+  when 'ls': Ls.new
+  else
+    STDERR.puts "What!?"
+end
-- 
2.39.5