Source
xxxxxxxxxx
while ( $othercls =~ s/(?:\W\Q$mtag\E\W|^\Q$mtag\E\W|\W\Q$mtag\E$|\W\Q$class\E\W|^\Q$class\E\W|\W\Q$class\E$|int|float|double|short|char|void|unsigned|static|const|bool|virtual|signed|volatile|new|delete|inline|template|extern|struct|register|operator)/ /g ) {}
#
# This is part of cxx2html Version 1.2 Patchlevel 4
# Created by Darrell Schiebel (drs@nrao.edu)
#
# This utility, cxx2html, is part of AIPS++, a software project
# centered at the National Radio Astronomy Observatory.
#
# Copyright (C) 1995,1997,1999,2000
# Associated Universities, Inc. Washington DC, USA.
#
# This library is free software; you can redistribute it and/or modify it
# under the terms of the GNU Library General Public License as published by
# the Free Software Foundation; either version 2 of the License, or (at your
# option) any later version.
#
# This library is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
# License for more details.
#
# You should have received a copy of the GNU Library General Public License
# along with this library; if not, write to the Free Software Foundation,
# Inc., 675 Massachusetts Ave, Cambridge, MA 02139, USA.
#
# Correspondence concerning AIPS++ should be addressed as follows:
# Internet email: aips2-request@nrao.edu.
# Postal address: AIPS++ Project Office
# National Radio Astronomy Observatory
# 520 Edgemont Road
#
package ;
require 5.000;
use :: ;
use ;
use ;
$_FileSeed="aaaaaaaa";
sub {
"file_" . $_FileSeed++;
}
sub new {
my $type = shift;
my $db = shift;
my $self = {};
bless $self;
$CxxOps='operator\s*(?:new|delete|\+=|\-=|\*=|\/=|%=|^=|&=|\|=|<<|>>|>>=|<<=|==|!=|<=|>=|&&|\|\||\+\+|\-\-|,|->*|->|\(\)|\[\]|\+|\-|\*|\/|%|^|&|\||~|!|=|<|>)';
$self->{'output'} = { => '', # directory for html ($pwd)
=> 1, # preserve hierarchy?
=> 0, # create any needed dirs
=> [], # hierarchy root
=> 1, # use absolute paths for
# non-generated files
# INTERNAL
=> '',
'do note' => 1,
};
$self->{'AIPS++ extensions'} = 1;
$self->{'File Extensions'} = [];
$self->{'HTML Extension'} = 'html';
$self->{'Max Summary Length'} = 80;
$self->{'Copyright Notice'} = [];
$self-> (@_);
$self->{'file ref'} = ();
$self->{'open'} = 0;
$self->{'contents'} = [];
$self->{'section'} = {};
##
## Used to maintain order of the classes (i.e. not hash order)
##
$self->{'section'}{'class order'} = [];
$self->{'class section'} = "";
$self->{'first class section'} = 1;
$self->{'first global function'} = 1;
$self->{'first see also'} = 1;
$self->{'group'}{'comment stack'} = [];
$self->{'group'}{'in group'} = 0;
$self->{'group'}{'started group'} = 0;
$self->{'group'}{'transition'} = 0;
$self->{'group'}{'stack of header stack'} = [];
$self->{'group'}{'last comment glop'} = [];
$self->{'group'}{'last header glop'} = [];
$self->{'group'}{'anchor stack'} = [];
$self->{'group'}{'last anchor'} = [];