Open-ILS/web/js/ui/default/staff/test/data/idl2js.pl

   1 #!/usr/bin/perl
   2 use strict; use warnings;
   3 use XML::LibXML;
   4 use XML::LibXSLT;
   5 my $out_file = 'IDL2js.js';
   6 my $idl_file = '../../../../../../../examples/fm_IDL.xml';
   7 my $xsl_file = '../../../../../../../xsl/fm_IDL2js.xsl';
   8
   9 my $xslt = XML::LibXSLT->new();
  10 my $style_doc = XML::LibXML->load_xml(location => $xsl_file, no_cdata=>1);
  11 my $stylesheet = $xslt->parse_stylesheet($style_doc);
  12 my $idl_doc = XML::LibXML->load_xml(location => $idl_file);
  13 my $results = $stylesheet->transform($idl_doc);
  14 my $output = $stylesheet->output_as_bytes($results);
  15
  16 open(IDL, ">$out_file") or die "Cannot open IDL2js file $out_file : $!\n";
  17
  18 print IDL $output;
  19
  20 close(IDL);
  21
  22