root/trunk/xml/lgt2txt.sh

#!/bin/sh

## ================================================================
## Logtalk - Open source object-oriented logic programming language
## Release 2.35.0
## 
## Copyright (c) 1998-2009 Paulo Moura.        All Rights Reserved.
## Logtalk is free software.  You can redistribute it and/or modify
## it under the terms of the "Artistic License 2.0" as published by 
## The Perl Foundation. Consult the "LICENSE.txt" file for details.
## ================================================================

if ! [ "$LOGTALKHOME" ]; then
    echo "The environment variable LOGTALKHOME should be defined first, pointing"
    echo "to your Logtalk installation directory!"
    echo "Trying the default locations for the Logtalk installation..."
    if [ -d "/usr/local/share/logtalk" ]; then
        LOGTALKHOME=/usr/local/share/logtalk
        echo "... using Logtalk installation found at /usr/local/share/logtalk"
    elif [ -d "/usr/share/logtalk" ]; then
        LOGTALKHOME=/usr/share/logtalk
        echo "... using Logtalk installation found at /usr/share/logtalk"
    elif [ -d "/opt/local/share/logtalk" ]; then
        LOGTALKHOME=/opt/local/share/logtalk
        echo "... using Logtalk installation found at /opt/local/share/logtalk"
    elif [ -d "/opt/share/logtalk" ]; then
        LOGTALKHOME=/opt/share/logtalk
        echo "... using Logtalk installation found at /opt/share/logtalk"
    else
        echo "... unable to locate Logtalk installation directory!"
        echo
        exit 1
    fi
    echo
elif ! [ -d "$LOGTALKHOME" ]; then
    echo "The environment variable LOGTALKHOME points to a non-existing directory!"
    echo "Its current value is: $LOGTALKHOME"
    echo "The variable must be set to your Logtalk installation directory!"
    echo
    exit 1
fi
export LOGTALKHOME

if ! [ "$LOGTALKUSER" ]; then
    echo "The environment variable LOGTALKUSER should be defined first, pointing"
    echo "to your Logtalk user directory!"
    echo "Trying the default location for the Logtalk user directory..."
    export LOGTALKUSER=$HOME/logtalk
    if [ -d "$LOGTALKUSER" ]; then      
        echo "... using Logtalk user directory found at $LOGTALKUSER"
    else
        echo "... Logtalk user directory not found at default location. Creating a"
        echo "new Logtalk user directory by running the \"cplgtdirs\" shell script:"
        cplgtdirs
    fi
elif ! [ -d "$LOGTALKUSER" ]; then
    echo "Cannot find \$LOGTALKUSER directory! Creating a new Logtalk user directory"
    echo "by running the \"cplgtdirs\" shell script:"
    cplgtdirs
fi
echo

xslt="$LOGTALKUSER/xml/lgttxt.xsl"

processor=xsltproc
# processor=xalan
# processor=sabcmd

directory="."

usage_help()
{
    echo 
    echo "This script converts all Logtalk XML documenting files in the"
    echo "current directory to text files"
    echo
    echo "Usage:"
    echo "  $0 -d directory -p processor"
    echo "  $0 -h"
    echo
    echo "Optional arguments:"
    echo "  -d output directory for the text files (default is $directory)"
    echo "  -p XSLT processor (xsltproc, xalan, or sabcmd; default is $processor)"
    echo "  -h help"
    echo
    exit 1
}

while getopts "d:p:h" Option
do
    case $Option in
        d) d_arg="$OPTARG";;
        p) p_arg="$OPTARG";;
        h) usage_help;;
        *) usage_help;;
    esac
done

if [ "$d_arg" != "" ] && [ ! -d "$d_arg" ] ; then
    echo "Error! directory does not exists: $d_arg"
    usage_help
    exit 1
elif [ "$d_arg" != "" ] ; then
    directory=$d_arg
fi

if [ "$p_arg" != "" ] && [ "$p_arg" != "fop" ] && [ "$p_arg" != "xep" ] && [ "$p_arg" != "xinc" ] ; then
    echo "Error! Unsupported XSL-FO processor: $p_arg"
    usage_help
    exit 1
elif [ "$p_arg" != "" ] ; then
    processor=$p_arg
fi

if ! [ -e "./logtalk.dtd" ] ; then
    cp "$LOGTALKHOME"/xml/logtalk.dtd .
fi

if ! [ -e "./custom.ent" ] ; then
    cp "$LOGTALKUSER"/xml/custom.ent .
fi

if ! [ -e "./logtalk.xsd" ] ; then
    cp "$LOGTALKHOME"/xml/logtalk.xsd .
fi

if [ `(ls *.xml | wc -l) 2> /dev/null` -gt 0 ] ; then
    echo
    echo "converting XML files to text files..."
    for file in *.xml; do
        echo "  converting $file"
        name="`expr "$file" : '\(.*\)\.[^./]*$' \| "$file"`"
        case "$processor" in
            xsltproc)   eval xsltproc -o \"$directory\"/\"$name.txt\" \"$xslt\" \"$file\";;
            xalan)      eval xalan -o \"$directory\"/\"$name.txt\" \"$file\" \"$xslt\";;
            sabcmd)     eval sabcmd \"$xslt\" \"$file\" \"$directory\"/\"$name.txt\";;
        esac
    done
    echo "conversion done"
    echo
else
    echo
    echo "No XML files exist in the current directory!"
    echo
fi

rm -f logtalk.dtd
rm -f logtalk.xsd

exit 0