#! /usr/bin/perl # # Class name: Typedef # Synopsis: Holds typedef info parsed by headerDoc # # Last Updated: $Date: 2011/02/18 19:02:59 $ # # Copyright (c) 1999-2004 Apple Computer, Inc. All rights reserved. # # @APPLE_LICENSE_HEADER_START@ # # This file contains Original Code and/or Modifications of Original Code # as defined in and that are subject to the Apple Public Source License # Version 2.0 (the 'License'). You may not use this file except in # compliance with the License. Please obtain a copy of the License at # http://www.opensource.apple.com/apsl/ and read it before using this # file. # # The Original Code and all software distributed under the License are # distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER # EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, # INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. # Please see the License for the specific language governing rights and # limitations under the License. # # @APPLE_LICENSE_HEADER_END@ # ###################################################################### # /*! @header # @abstract # Deprecated <code>Regen</code> class package file. # @discussion # This file contains the <code>Regen</code> class. This class # is vestigial code, part of a long-abandoned # project to provide conversion of XML markup # back into HeaderDoc comments. # # See the class documentation below for more details. # @indexgroup HeaderDoc Miscellaneous Helpers # */ # /*! # @abstract # Deprecated # @discussion # Vestigial code, part of a long-abandoned # project to provide conversion of XML markup # back into HeaderDoc comments. # */ package HeaderDoc::Regen; use HeaderDoc::Utilities qw(findRelativePath safeName printArray printHash); use HeaderDoc::HeaderElement; use HeaderDoc::MinorAPIElement; use HeaderDoc::APIOwner; use XML::Twig; use strict; use vars qw($VERSION @ISA); # /*! # @abstract # The revision control revision number for this module. # @discussion # In the git repository, contains the number of seconds since # January 1, 1970. # */ $HeaderDoc::Regen::VERSION = '$Revision: 1298084579 $'; # /*! # @abstract # Vestigial code. # */ sub regenerate { my $self = shift; my $inpath = shift; my $outpath = shift; print STDERR "Would regenerate $inpath->$outpath if this did something.\n"; my $xmlfile = $inpath; $xmlfile =~ s/^(.*)\..*?$/$1.xml/o; if (!-f $xmlfile) { print STDERR "No XML file found for $inpath. Skipping.\n"; # } else { # print STDERR "found $xmlfile\n"; } my $temp = $/; $/ = undef; open(XMLFILE, "<$xmlfile"); my $xml_string = <XMLFILE>; close(XMLFILE); $/ = $temp; # print STDERR "XS: $xml_string\n"; my $twig = XML::Twig->new(keep_encoding => 1, keep_spaces => 1); $twig->parse($xml_string); # Twig::New(); } 1;