#!/usr/bin/perl -w
# Copyright (c) 2005 the World Wide Web Consortium :
#       Keio University,
#       Institut National de Recherche en Informatique et Automatique,
#       Massachusetts Institute of Technology.
# written by Olivier Thereaux <ot@w3.org> for W3C
#
# $Id: $
#########################

use strict;
use XML::SAX;
use Outline;
use XML::SAX::Writer;
use IO::File;

my $file = $ARGV[0] || die "Please pass a file name to process\n";

my $writer = XML::SAX::Writer->new();
my $filter = Outline->new(Handler => $writer);
my $parser = XML::SAX::ParserFactory->parser(Handler => $filter);

my %parser_args = (Source => {SystemId => $file});
$parser->parse(%parser_args);


