#!/bin/sh
# simple ls that outputs XML

ARGS="$@"
set -- `getopt "l" "$@"`
for i
do
        case $i in
        -l)
                long=1
                shift
                ;;
        --)
                shift
                break
                ;;
        *)
                echo help
                exit
                ;;
        esac
done

files="$@"
[ "x$files" = x ] && files='.'

# Prologue
echo '<?xml version="1.0"?>'
echo '<!DOCTYPE FILELIST SYSTEM "ls.dtd">'
echo '<?xml-stylesheet href="ls.xsl" type="text/xsl"?>'
echo '<FILELIST>'

for f in $files
do
        [ -d $f ] && echo -n " <directory"
        [ -f $f ] && echo -n " <file"
        [ -p $f ] && echo -n " <pipe"
        [ -b $f ] && echo -n " <block"
        [ -c $f ] && echo -n " <char"
        echo -n " name=\"$f\""
        [ "x$long" = x1 ] && {
                mode=`stat $f|sed -n 's/  Mode: (\([0-9][0-9]*\).*/\1/p'`
                echo -n " mode=\"$mode\""
                links=`stat $f|sed -n 's/.*Links: \([0-9][0-9]*\).*/\1/p'`
                echo -n " links=\"$links\""
                size=`stat $f|sed -n 's/.*Size: \([0-9][0-9]*\).*/\1/p'`
                echo -n " size=\"$size\""
        }
        echo "/>"
done

# Epilogue
echo '</FILELIST>'