Rinchi-Fortran-Preprocessor

 view release on metacpan or  search on metacpan

lib/Rinchi/Fortran/Preprocessor.pm  view on Meta::CPAN

 sub endElementHandler() {
   my ($tag) = @_;
   if ($closed == 0) {
     print "</$tag>\n";
   } else {
     $closed = 0;
   }
 }

 sub characterDataHandler() {
   my ($cdata) = @_;
   print $cdata;
 }

 sub processingInstructionHandler() {
   my ($target,$data) = @_;
   print "<?$target $data?>\n";
 }

 sub commentHandler() {
   my ($string) = @_;
   print "<!-- $string -->\n";

lib/Rinchi/Fortran/Preprocessor.pm  view on Meta::CPAN

=item * End               (tagname)

  my ($tag) = @_;
  print "</$tag>\n";

This event is generated when an XML end tag is recognized. Note that
an XML empty tag (<tagname/>) generates both a start and an end event.

=item * Char              (String)

  my ($cdata) = @_;
  print $cdata;

This event is generated when non-markup is recognized. The non-markup
sequence of characters is in String. A single non-markup sequence of
characters may generate multiple calls to this handler. Whatever the
encoding of the string in the original document, this is given to the
handler in UTF-8.

=item * Proc              (target, data)

  my ($target,$data) = @_;

lib/Rinchi/Fortran/Preprocessor.pm  view on Meta::CPAN

  }
}

=item characterDataHandler()

Default Character Data handler.

=cut

sub characterDataHandler() {
  my ($cdata) = @_;
  print $cdata;
}

=item processingInstructionHandler()

Default Processing Instruction handler.

=cut

sub processingInstructionHandler() {
  my ($target,$data) = @_;

lib/Rinchi/Fortran/Preprocessor.pm  view on Meta::CPAN

sub _endElementHandler() {
  my ($tag) = @_;

  my $delim = Rinchi::Fortran::Preprocessor->delimiter_for_close_tag($tag);
  if (defined($delim)) {
    print "$delim";
  }
}

sub _characterDataHandler() {
  my ($cdata) = @_;
  print $cdata;
}

sub _processingInstructionHandler() {
  my ($target,$data) = @_;
  print "\n";
}

sub _commentHandler() {
  my ($string) = @_;
}