#!/usr/bin/php -qC 
<?php

// $Date: 2004/01/20 06:21:45 $
// $Revision: 1.2 $
// $Author: jcrocholl $

require('ado-read.php');

$adsfilename "$filestem-musicxml.ads";
$adbfilename "$filestem-musicxml.adb";

$ads $adb '-- $'.'Date$
-- $'
.'Revision$
-- $'
.'Author$

'


$ads .= "with XML_Readers; use XML_Readers;
with XML_Writers; use XML_Writers;

package 
$package.MusicXML is

   -- Read 
$object_lower data from an XML reader.
   function Read_
$object
     (XML : in XML_Reader) -- Use this XML reader.
     return 
$object_access; -- The newly created $object_lower.

   -- Write 
$object_lower data to an XML writer.
   procedure Write_
$object
     (XML : in XML_Writer; -- Use this XML writer.
     This : access 
$object); -- Write this $object_lower.

end 
$package.MusicXML;
"
;

$adb .= $body_with "package body $package.MusicXML is

   -- Read 
$object_lower data from an XML reader.
   function Read_
$object
     (XML : in XML_Reader) -- Use this XML reader.
     return 
$object_access -- The newly created $object_lower.
   is
      Result : 
$object_access := Create;
   begin
      return Result;
   end Read_
$object;

   -- Write 
$object_lower data to an XML writer.
   procedure Write_
$object
     (XML : in XML_Writer; -- Use this XML writer.
     This : access 
$object) -- Write this $object_lower.
   is
   begin
      Start_Element(XML, \"
$object_hyphen\");

      Close_Element(XML, \"
$object_hyphen\");
   end Write_
$object;

end 
$package.MusicXML;
"
;

if (
file_exists($adsfilename)) {
    print 
"skipped existing $adsfilename\n";
} else {
    if (!
$adsfilehandle fopen($adsfilename'w'))
        die(
"could not open $adsfilename with write access\n");
    if (!
fwrite($adsfilehandle$ads))
        die(
"could not write $adsfilename\n");
    
fclose($adsfilehandle);
    print 
"wrote $adsfilename\n";
}

if (
file_exists($adbfilename)) {
    print 
"skipped existing $adbfilename\n";
} else {
    if (!
$adbfilehandle fopen($adbfilename'w'))
        die(
"could not open $adbfilename with write access\n");
    if (!
fwrite($adbfilehandle$adb))
        die(
"could not write $adbfilename\n");
    
fclose($adbfilehandle);
    print 
"wrote $adbfilename\n";
}

?>