summaryrefslogtreecommitdiff
path: root/bin/info2doc.awk
diff options
context:
space:
mode:
Diffstat (limited to 'bin/info2doc.awk')
-rwxr-xr-xbin/info2doc.awk2182
1 files changed, 0 insertions, 2182 deletions
diff --git a/bin/info2doc.awk b/bin/info2doc.awk
deleted file mode 100755
index 6e0451fef3f..00000000000
--- a/bin/info2doc.awk
+++ /dev/null
@@ -1,2182 +0,0 @@
-# =============================================================================
-#
-# = DESCRIPTION
-# Awk script which performs the actual conversion from classinfo file
-# to various types of documentation.
-#
-# = AUTHOR(S)
-# Graham Dumpleton
-# K.Dorn
-#
-# = COPYRIGHT
-# Copyright 1991 OTC LIMITED
-# Copyright 1994 DUMPLETON SOFTWARE CONSULTING PTY LIMITED
-#
-# =============================================================================
-
-BEGIN {
- #
- # Set some defaults.
- #
- #device = "text"
-# access["public"] = "on"
-# access["protected"] = "on"
-# access["private"] = "on"
- access["public"] = publ
- access["protected"] = prot
- access["private"] = priv
-
- lower["CLASS"] = "class"
- lower["STRUCT"] = "struct"
- lower["UNION"] = "union"
- lower["class"] = "class"
- lower["struct"] = "struct"
- lower["union"] = "union"
- upper["public"] = "PUBLIC"
- upper["protected"] = "PROTECTED"
- upper["private"] = "PRIVATE"
-
- classfunc = ""
- rettyp = ""
- classname=""
- classtitle=""
- filedate=""
- filename=""
- filename1=""
- origfile=""
- author=""
- classdescription=""
- firsttime = "first"
- nesting_level = 0
-
-# csaprintheader=1
-
- #
- # Check that info file, class have been specified.
- #
- # if ( infile ~ /^$/ || class ~ /^$/ )
- # exit
-
- #
- # Read in info file.
- #
- # FS="\n"; RS=""
- # while ( getline < infile > 0 )
- # lines[++num] = $0
-
- #
- # Prepare for format file.
- #
- FS=" "; RS="\n"
-
- #
- # Find some defaults in info file.
- #
- # findLibrary()
- # findFilename()
-}
-# end of Begin section!!!!!
-
-
-#
-#
-#
-function csa_print_compilation_header_alt()
-{
- if (csaprintheader == "on")
- {
- if ( length( firsttime ) > 3 )
- {
-
- csa_compilation_header=sprintf("\n/*[ Compilation unit "\
- "----------------------------------------------------------\n"\
- "\n"\
- " Component\ \ \ \ \ \ \ : CSA - OSC\n"\
- "\n"\
- " Name\ \ \ \ \ \ \ \ \ \ \ \ : %s.h\n"\
- "\n"\
- " Author : %s\n"\
- "\n"\
- " Language : C++\n"\
- "\n"\
- " Creation Date : %s\n"\
- "\n"\
- " Test State : %%Q%%\n"\
- "\n"\
- " Description : %s\n"\
- " %s\n"\
- "\n"\
- "\n"\
- " Copyright (C) Siemens AG 1995 All Rights Reserved\n"\
- "\n"\
- "--------------------------------------"\
- "---------------------------------------*/\n"\
- "/*] END */\n"\
- "#pragma ident \"%%Z%% %%M%% %%I%% (%%G%%), %%Y%% %%Q%%:"\
- " implementation file for class \n"\
- "%s\"\n"\
- "\n"\
- "#undef __STDC__\n"\
- "#undef __GNUG__\n"\
- "\n",filename1,author,filedate,classtitle,classdescription,classname);
- printf("%s",csa_compilation_header);
- firsttime = ""
- }
- }
-}
-#
-#
-#
-function csa_print_compilation_header()
-{
- if ((csaprintheader == "on" && merge != "on") || (merge == "on" && loop == "1"))
- {
- if ( length( firsttime ) > 3 )
- {
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
- if (line[1] == "INCLUDE" && line[2] !~ /^.*\.\i/)
- printf( "#include %s\n", line[2])
- }
-
-
- csa_compilation_header=sprintf(vcohxx,filename1,author,filedate,classtitle,classdescription,classname);
- printf("%s",csa_compilation_header);
- firsttime = ""
- }
- }
-}
-
-#
-#
-#
-function csa_print_class_header_alt()
-{
- if (csaprintheader == "on")
- {
- csa_class_header=sprintf("\n/*[ Class ---------------------"\
- "-------------------------------------------\n"\
- "\n"\
- " Name : %s\n"\
- "\n"\
- " Description : %s\n"\
- " %s\n"\
- "\n"\
- "--------------------------------------------"\
- "------------------------------*/\n\n",class,classtitle,classdescription)
-
- if ( device != "text" )
- print( ".nf\n" )
- printf("%s",csa_class_header);
- }
-}
-#
-#
-#
-function csa_print_class_header()
-{
- if (csaprintheader == "on")
- {
- csa_class_header=sprintf(vclhxx,class,classtitle,classdescription)
-
- if ( device != "text" )
- print( ".nf\n" )
- printf("%s",csa_class_header);
- }
-}
-
-#
-#
-#
-function csa_print_class_end()
-{
- if (csaprintheader == "on")
- {
- csa_class_end=sprintf("\n/*] END Class */\n\n")
-
- if ( device != "text" )
- print( ".nf\n" )
- printf("%s",csa_class_end);
- }
-}
-
-#
-#
-#
-function csa_collect_info()
-{
- classdescription = ""
- classtitle = ""
- found = 0
- for ( i=0; i<=num; i++ )
- {
-
- n = split( lines[i], line, "\n" )
-
- csa_get_filedate_and_name()
- csa_get_class_name_and_title(n)
- csa_get_library()
- csa_get_author()
-
-
-
- if ( line[1] == "INFO" &&
- line[2] == "HDR" &&
- line[3] == "DESCRIPTION" &&
- line[4] == class )
- {
- found = 1
- break
- }
-
- }
- if ( found == 1 )
- {
- for ( i=5; i<=n; i++ )
- {
- len = length(line[i])
- comm = substr(line[i],4,len)
- classdescription = classdescription comm "\n "
- }
- }
-
- found = 0
-
- csa_get_origfile_name()
-}
-
-#
-#
-#
-function csa_get_origfile_name()
-{
- len=length(infile)
- origfile=substr(infile,1,len-2)
- origfile = origfile "h"
-}
-
-#
-#
-#
-function csa_get_author()
-{
- if ( line[1] == "INFO" &&
- line[2] == "GLOBAL" &&
- line[3] == "AUTHOR" )
- {
- len=length(line[4])
- author=substr(line[4],4,len)
- }
-}
-
-#
-#
-#
-function csa_get_library()
-{
- if ( line[1] == "INFO" &&
- line[2] == "GLOBAL" &&
- line[3] == "LIBRARY" )
- {
- #library=line[4]
- }
-}
-
-#
-#
-#
-function csa_get_class_name_and_title(n)
-{
- if ( line[1] == "INFO" &&
- line[2] == "HDR" &&
- line[3] == "TITLE" &&
- line[4] == class )
- {
- classname=line[4]
-# classtitle=line[5]
-# len = length(line[5])
-# classtitle = substr(line[5],4,len)
- for ( j=5; j<=n; j++ )
- {
- len = length(line[j])
- comm = substr(line[j],4,len)
- classtitle = classtitle comm "\n "
- }
- }
-}
-
-#
-#
-#
-function csa_get_filedate_and_name()
-{
- if ( line[1] == "CLASS2INFO" )
- {
- filedate=line[2]
- filename=line[3]
- len=length(line[3])
- filename1=substr(line[3],1,(len-2))
- }
-}
-
-#
-#
-#
-function csa_get_()
-{
- ;
-}
-
-#
-#
-#
-function read_ci_file()
-{
- while ( getline < infile > 0 )
- lines[++num] = $0
-}
-
-function read_fvclhxx_file()
-{
- vclhxx1 = "\n"
- while ( getline < fvclhxx > 0 )
- vclhxx1 = vclhxx1 $0 "\n"
- vclhxx = vclhxx1
-}
-
-function read_fvcohxx_file()
-{
- vcohxx1 = "\n"
- while ( getline < fvcohxx > 0 )
- vcohxx1 = vcohxx1 $0 "\n"
- vcohxx = vcohxx1
-}
-
-#
-# currently not used because not necessary (in recursion properly handled!)
-#
-function read_ci_file_and_modify()
-{
- while ( getline < infile > 0 )
- {
- if ($1 ~ "^(CLASS|STRUCT|UNION)$" && $2 ~ "(::|<)")
- {
-#printf("\n----old=|%s|-----\n",$2)
- n = split( $0, line, "\n" )
- len = length($2)
- match( $2, "(::|<).*$")
- $2 = substr( $2,RSTART+2,RLENGTH)
-#printf("\n----new=|%s|-----\n",$2)
-
- line[1] = $1 "\n"
- line[2] = $2
- new = ""
- for (i=1; i<=(n+1) ;i++)
- new = new line[i]
- lines[++num] = new "\n"
- }
- else
- lines[++num] = $0 "\n"
-
- }
-
-# for (i=1; i<=num ;i++)
-# print lines[i]
-}
-
-#
-# Start next pass.
-#
-$1 == "start" {
-
- if ( pass == 0)
- {
- #
- # Check that info file, class have been specified.
- #
- if ( infile ~ /^$/ || class ~ /^$/ )
- exit
-
- #
- # Read in info file.
- #
- FS="\n"; RS=""
-
- read_ci_file()
- FS=" "; RS="\n"
- if (csaprintheader == "on")
- {
- read_fvclhxx_file()
- read_fvcohxx_file()
- }
- #
- # Prepare for format file.
- #
- FS=" "; RS="\n"
-
- #
- # Find some defaults in info file.
- #
- findLibrary()
- findFilename()
- }
-
- pass++
-}
-
-#
-# Sets the output device to use.
-#
-# $1 == "set" && $2 == "device" {
-# device = $3
-# }
-
-#
-# Prevents a section from being printed.
-#
-$1 == "hide" && $2 == "section" {
- section = $3
- for ( i=4; i<=NF; i++ )
- section = " " section
- sections[section] = ""
-}
-
-#
-# Prevents a contract from being printed.
-#
-# Note: a contract will not be displayed if it occurs in a part of the class
-# which has been disabled. For instance, if anything occuring in the private
-# section of a class is being hidden, the no contracts from that section will
-# be displayed either.
-#
-$1 == "hide" && $2 == "contract" {
- contract = $3
- for ( i=4; i<=NF; i++ )
- contract = " " contract
- contracts[contract] = ""
-}
-
-#
-# Specification of whether a part of a class is hidden or not.
-#
-$1 == "set" && $2 in access {
- access[$2] = $3
-}
-
-#
-# Print a prelude. This should produce any stuff necessary to initialise
-# the document.
-#
-pass == "2" && $1 == "print" && $2 == "prelude" {
- "date" | getline date
- split ( date, d, " " )
- date = d[2] " " d[3] ", " d[6]
- if ( device == "text" )
- {
- }
- else if ( device == "troff" )
- {
- print( ".\\\" troff -man %" )
- print( ".\\\"" )
- print( ".\\\" DO NOT EDIT" )
- print( ".\\\"" )
- print( ".\\\" This manual page is automatically generated by class2man." )
- print( ".\\\"" )
- print( ".ds sL " library )
- print( ".ds sV " date )
- print( ".ds sC " class )
- print( ".ds sS 3" )
- print( ".TH \"\\*(sC\" \"\\*(sS\" \"\\*(sV\" \"\\*(sL Library\" \"\\*(sL Reference Manual\"" )
- }
- else if ( device == "mml" )
- {
- print( "<MML>" )
- print( "<Comment *** This file is automatically generated by class2mml.>" )
- print( "<!DefineTag Body>" )
- print( "<!DefineTag Heading1>" )
- print( "<!DefineTag Heading2>" )
- print( "" )
- }
-}
-
-#
-# Print out a title.
-# The title should be generated from the class name and any information
-# in the section labelled 'TITLE" which occurs in the hdr of a class.
-# On pass 1 we simply note that we intend using the 'TITLE' section so
-# that it doesn't get printed out as a seperate section.
-#
-pass == "1" && $1 == "print" && $2 == "title" {
- sections["TITLE"] = ""
-}
-
-#
-# On pass 2 we actually print the title.
-# Note: even if a 'TITLE' section is not found for the class, then the class
-# name at least should be output.
-#
-pass == "2" && $1 == "print" && $2 == "title" {
- found = 0
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
- if ( line[1] == "INFO" &&
- line[2] == "HDR" &&
- line[3] == "TITLE" &&
- line[4] == class )
- {
- found = 1
- break
- }
- }
- if ( device == "text" )
- {
- if ( found == 1 )
- {
- print( class " " )
- for ( i=5; i<=n; i++ )
- outputLine( line[i] )
- }
- else
- print( class )
- }
- else if ( device == "troff" )
- {
- print( ".PP" )
- print( ".SH \"NAME\"" )
- if ( found == 1 )
- {
- print( class " \\- " )
- for ( i=5; i<=n; i++ )
- outputLine( line[i] )
- }
- else
- print( class )
- }
- else if ( device == "mml" )
- {
- print( "<Heading1>" )
- print( class )
- if ( found == 1 )
- {
- print( "<Body>" )
- for ( i=5; i<=n; i++ )
- outputLine( line[i] )
- }
- }
-}
-
-#
-# On pass 1 we actually store the class description for csa.
-#
-pass == "1" {
- if (csaprintheader == "on")
- csa_collect_info()
-}
-
-#
-# Print a synopsis.
-# This should include a line indicating which header file needs to be included
-# and a description of the members variables and functions in the class.
-# A section of the class should not be output if access["section"] == "off".
-# e.g.: Don't print private stuff if access["private"] == "off".
-#
-#
-# das ist die standard ausgabe! (nur hier!)
-#
-pass == 2 && $1 == "print" && $2 == "synopsis" {
-
-
- if (csaprintheader == "on")
- csa_print_compilation_header()
-
- if ( device == "text" )
- {
- print( "\ "SYNOPSIS"\ " )
- print( "\n" )
- }
- else if ( device == "troff" )
- {
- print( ".PP" )
- print( ".SH \"SYNOPSIS\"" )
- print( ".nf\n" )
- }
- else if ( device == "mml" )
- {
- print( "" )
- print( "<Heading2>")
- print( "SYNOPSIS" )
- printf( "<Body>" )
- printf( "<Plain>" )
- printf( "<LeftIndent 0.1in>" )
- printf( "<FirstIndent 0.1in>" )
- printf( "<Alignment l>" )
- }
-
- #
- # check for includes
- #
- if ( filename != "" && library != "C++" )
- {
- if ( device == "text" )
- {
- if ( merge != "on")
- {
-# printf( "\n#include <%s/%s>\n", library,filename)
-# printf( "\n#include <%s/%s>\n", library,origfile)
-# print( "\n" )
- }
- else
- {
- if ( loop == "1")
- {
-# printf( "\n#include <%s/%s>\n", library,filename)
-# printf( "\n#include <%s/%s>\n", library,origfile)
-# print( "\n" )
- }
- }
- }
- else if ( device == "troff" )
- {
- print( "\\f(CO#include <" library "/" filename ">" )
- print( "" )
- }
- else if ( device == "mml" )
- {
- print( "<Family Courier>#include \\<" library "/" filename "\\>" )
- print( "<HardReturn>" )
- }
-
- if (csaprintheader == "on")
- csa_print_class_header()
-
- }
-
- bases = ""
- baseindex = 0
- numfields = 0
-
- #
- # start searching for loop for output 1 ADTs
- #
- for ( i=0; i<=num; i++ )
- {
- numfields = split( lines[i], line, "\n" )
- if ( line[1] ~ /(CLASS|UNION|STRUCT)/ && line[2] == class )
- {
- type = lower[line[1]]
- baseindex = 3
- #
- #
- # break heisst, jetzt ist richtige klasse gefunden, die von aussen mitgegeben wurde!!!!!!
- #
-
- break
- }
- else if ( \
- line[1] == "TEMPLATE" && \
- line[2] ~ /(class|union|struct)/ && \
- line[3] == class \
- )
- {
- baseindex = 5
- type = "template"
- break
- }
- }
-
- #
- # end of searching for loop for output 1 ADTs
- # ab hier function eingesetzt!
- #
-
-#printf("\nvor parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- class = parse_and_print_adt(class,class,class,baseindex,type)
-#printf("\nafter parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
-
-
-#
-# bis hier geht parse function
-#
-
-#till end csa_print_class_end()
-
- if (csaprintheader == "on")
- csa_print_class_end()
-
-}
-
-#
-# Print copyright holders. This must break the line before each copyright
-# holder.
-#
-# wird im moment nicht gerufen
-#
-pass == "2" && $1 == "print" && $2 == "copyright" {
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
- if ( line[1] == "INFO" &&
- line[2] == "GLOBAL" &&
- line[3] == "COPYRIGHT" )
- {
- if ( device == "text" )
- {
- print( "COPYRIGHT" )
- }
- else if ( device == "troff" )
- {
- print( ".PP" )
- print( ".SH COPYRIGHT" )
- }
- else if ( device == "mml" )
- {
- print( "" )
- print( "<Heading2>" )
- print( "COPYRIGHT" )
- printf( "<Body>" )
- printf( "<Plain>" )
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- printf( "<SpaceAfter 8pt>" )
- }
- start = 4
- for ( k=start; k<=n; k++ )
- {
- if ( k != start && line[k] ~ "[\t ]*Copyright" )
- {
- if ( device == "text" )
- print( "\n" )
- else if ( device == "troff" )
- print( ".br" )
- else if ( device == "mml" )
- printf( "<HardReturn>" )
- }
- outputLine( line[k] )
- }
- break
- }
- }
-}
-
-#
-# Print out any sections which have not been previously printed out and
-# which are not hidden.
-#
-pass == "1" && $1 == "print" && $2 == "section" && $3 == "*" {
- next
-}
-
-pass == "2" && $1 == "print" && $2 == "section" && $3 == "*" {
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
- if ( line[1] == "INFO" &&
- ( line[2] == "GLOBAL" ||
- ( line[2] == "HDR" && line[4] == class ) ) )
- {
- if ( line[3] in sections )
- continue
- else
- {
- section = line[3]
- sections[section] = ""
-#printf("\noutputSection() - 1 - called!!!!!!!!!!!!");
- outputSection()
- }
- }
- }
-}
-
-#
-# Print out a section.
-# On pass 1 only record the fact that this section will be printed.
-#
-pass == "1" && $1 == "print" && $2 == "section" {
- section = $3
- for ( i=4; i<=NF; i++ )
- section = section " " $i
- sections[section] = ""
-}
-
-#
-# Print out a section.
-# On pass 2 actually print it out.
-#
-pass == "2" && $1 == "print" && $2 == "section" {
- section = $3
- for ( i=4; i<=NF; i++ )
- section = section " " $i
- found = 0
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
- if ( line[1] == "INFO" &&
- ( line[2] == "GLOBAL" ||
- ( line[2] == "HDR" && line[4] == class ) ) &&
- line[3] == section )
- {
- found = 1
- break
- }
- }
- if ( found == 1 )
- {
-#printf("\noutputSection() - 2 - called!!!!!!!!!!!!");
- outputSection()
- }
-}
-
-#
-# Print out any contracts which have not previously been printed, and
-# which are not hidden.
-#
-# If there are no contracts in the class, then print out sections for the
-# private, protected and public members; thats if they are not being hidden.
-#
-pass == "1" && $1 == "print" && $2 == "contract" && $3 == "\*" {
- next
-}
-
-pass == "2" && $1 == "print" && $2 == "contract" && $3 == "\*" {
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
-
- if ( line[1] == "INFO" &&
- line[2] == "BODY" &&
- line[4] == class )
- {
- if ( line[3] in contracts )
- continue
- else if ( access[line[5]] == "on" )
- {
- contract = line[3]
- contracts[contract] = ""
-
-#printf("\noutputContract() called!!!!!");
- outputContract()
- }
- }
- }
- i = 0
- for ( j in contracts )
- i++
- if ( i == 0 )
- {
-#printf("\noutputClassSection() -2- called!!!!!!!\n");
- if ( access["public"] == "on" )
- outputClassSection( "public" )
- if ( access["protected"] == "on" )
- outputClassSection( "protected" )
- if ( access["private"] == "on" )
- outputClassSection( "private" )
- }
-}
-
-#
-# Print out a particular contract, regardless of whether it is hidden or
-# not.
-# On pass 1 we only note that the contract will be printed.
-#
-pass == "1" && $1 == "print" && $2 == "contract" {
- contract = $3
- for ( i=4; i<=NF; i++ )
- contract = contract " " $i
- contracts[contract] = ""
-}
-
-pass == "2" && $1 == "print" && $2 == "contract" {
- contract = $3
- for ( i=4; i<=NF; i++ )
- contract = contract " " $i
- found = 0
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
- if ( line[1] == "INFO" &&
- line[2] == "BODY" &&
- line[4] == class &&
- line[3] == section )
- {
- found = 1
- break
- }
- }
- if ( found == 1 )
- {
-#printf("\noutputContract() called!!!!!");
- outputContract()
- }
-}
-
-#
-# Output a particular section of a class.
-# This ignores whether that part is hidden.
-#
-pass == "2" && $1 == "print" && $3 in access {
-#printf("\noutputClassSection() -1- called!!!!!!!\n");
- outputClassSection( $3 )
-}
-
-#
-# Actually prints out a particular section of a class.
-#
-#
-# wird nie gerufen
-#
-function outputClassSection( part )
-{
- start = 0
- for ( i=0; i<=num; i++ )
- {
- n = split( lines[i], line, "\n" )
- if ( ( line[1] == "FUNC" ||
- line[1] == "MEMBER" ||
- line[1] == "TYPEDEF" ||
- line[1] == "FRIEND" ) &&
- line[2] == class &&
- line[3] == part )
- {
- if ( start == 0 )
- {
- start = 1
- if ( device == "text" )
- {
- printf( "\n %s MEMBERS\n" ,upper[line[3]])
- }
- else if ( device == "troff" )
- {
- print( ".PP" )
- print( ".SH \"" upper[line[3]] " MEMBERS\"" )
- }
- else if ( device == "mml" )
- {
- print( "" )
- print( "<Heading2>" )
- print( upper[line[3]] " MEMBERS" )
- printf( "<Body>" )
- printf( "<Plain>" )
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- printf( "<SpaceAfter 8pt>" )
- }
- }
- if ( device == "text" )
- {
- print( "\n" )
- }
- else if ( device == "troff" )
- {
- print( ".nf" )
- }
- else if ( device == "mml" )
- {
- printf( "<Alignment l>" )
- }
- outputPrototype( line[4] )
- if ( device == "text" )
- {
- }
- else if ( device == "troff" )
- {
- print( ".fi" )
- print( ".RS 0.25i" )
- }
- else if ( device == "mml" )
- {
- printf( "<Alignment lr>" )
- printf( "<LeftIndent 0.1in>" )
- printf( "<FirstIndent 0.1in>" )
- }
- for ( l=5; l<=n; l++ )
- outputLine( line[l] )
- if ( device == "text" )
- {
- print( "" )
- }
- else if ( device == "troff" )
- {
- print( ".RE" )
- print( "" )
- }
- else if ( device == "mml" )
- {
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- }
- }
- }
-}
-
-#
-# Once a contract has been found, this prints it out.
-#
-#
-# wird nie gerufen
-#
-function outputContract() {
- if ( device == "text" )
- {
- print( "\ " contract "\ " )
- }
- else if ( device == "troff" )
- {
- print( ".PP" )
- print( ".SH \"" contract "\"" )
- }
- else if ( device == "mml" )
- {
- print( "" )
- print( "<Heading2>" )
- print( contract )
- printf( "<Body>" )
- printf( "<Plain>" )
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- printf( "<SpaceAfter 8pt>" )
- }
-
- for ( k=6; k<=n; k++ )
- outputLine( line[k] )
-
- # print( "" )
- for ( k=i+1; k<=num; k++ )
- {
- n = split( lines[k], line, "\n" )
- if ( ( line[1] == "INFO" &&
- line[2] == "BODY" &&
- line[4] == class ) ||
- ( line[1] == "END" &&
- line[2] == class ) ||
- ( line[1] == "ACCESS" &&
- line[2] == class ) )
- {
- break
- }
- else
- if ( ( line[1] == "FUNC" ||
- line[1] == "MEMBER" ||
- line[1] == "TYPEDEF" ||
- line[1] == "FRIEND" ) &&
- line[2] == class )
- {
- if ( device == "text" )
- {
- print( "\n" )
- }
- else if ( device == "troff" )
- {
- print( ".nf" )
- }
- else if ( device == "mml" )
- {
- printf( "<Alignment l>" )
- }
- outputPrototype( line[4] )
- if ( device == "text" )
- {
- }
- else if ( device == "troff" )
- {
- print( ".fi" )
- print( ".RS 0.25i" )
- }
- else if ( device == "mml" )
- {
- printf( "<Alignment lr>" )
- printf( "<LeftIndent 0.1in>" )
- printf( "<FirstIndent 0.1in>" )
- }
- for ( l=5; l<=n; l++ )
- outputLine( line[l] )
- if ( device == "text" )
- {
- print( "" )
- }
- else if ( device == "troff" )
- {
- print( ".RE" )
- print( "" )
- }
- else if ( device == "mml" )
- {
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- }
- }
- else if ( line[1] == "COMMENT" &&
- line[2] == "BODY" &&
- line[3] == class )
- {
- for ( l=5; l<=n; l++ )
- outputLine( line[l] )
- # print( "" )
- }
- }
-}
-
-#
-# Once a section has been found, this prints it out.
-#
-#
-# wird nie gerufen
-#
-function outputSection()
-{
-
- if ( line[2] == "GLOBAL" )
- start = 4
- else
- start = 5
-
- if ( device == "text" )
- {
- print( "\ " section "\ " )
- }
- else if ( device == "troff" )
- {
- print( ".PP" )
- print( ".SH \"" section "\"" )
- }
- else if ( device == "mml" )
- {
- print( "" )
- print( "<Heading2>" )
- print( section )
- if ( line[start] != "" )
- {
- printf( "<Body>" )
- printf( "<Plain>" )
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- printf( "<Alignment lr>" )
- printf( "<SpaceAfter 8pt>" )
- printf( "<Family Times>" )
- }
- }
-
- blankLine = 0
- for ( k=start; k<=n; k++ )
- outputLine( line[k] )
-}
-
-#
-# Removes comment delimiter from start of line.
-#
-function removeComment( line )
-{
- sub( "^// ?", "", line )
- return line
-}
-
-#
-# Output a line. This checks for various formatting requests and will
-# appropriately expand them.
-#
-function outputLine( line )
-{
- line = removeComment( line )
- if ( inComment == 0 )
- {
- if ( line ~ "^= BEGIN<CODE>" )
- {
- inCode = 1
- if ( device == "text" )
- {
- print( "\n" )
- }
- else if ( device == "troff" )
- {
- print( ".RS 0.25i" )
- print( ".nf\n\\f(CO" )
- }
- else if ( device == "mml" )
- {
- printf( "<Plain>" )
- printf( "<LeftIndent 0.2in>" )
- printf( "<FirstIndent 0.2in>" )
- printf( "<Alignment l>" )
- printf( "<Family Courier>" )
- }
- }
- else if ( line ~ "^= END<CODE>" )
- {
- inCode = -1
- if ( device == "text" )
- {
- print( "\n" )
- }
- else if ( device == "troff" )
- {
- print( "\\fP\n.fi" )
- print( ".RE" )
- }
- else if ( device == "mml" )
- {
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- printf( "<Alignment lr>" )
- printf( "<Family Times>")
- }
- }
- else if ( line ~ "^= BEGIN<COMMENT>" )
- inComment = 1
- else if ( line ~ "^= BEGIN<INDENT>" )
- {
- if ( device == "text" )
- {
- }
- else if ( device == "troff" )
- print( ".RS 0.25i" )
- else if ( device == "mml" )
- {
- printf( "<LeftIndent 0.2in>" )
- printf( "<FirstIndent 0.2in>" )
- }
- }
- else if ( line ~ "^= END<INDENT>" )
- {
- if ( device == "text" )
- {
- }
- else if ( device == "troff" )
- print( ".RE" )
- else if ( device == "mml" )
- {
- printf( "<LeftIndent 0in>" )
- printf( "<FirstIndent 0in>" )
- }
- }
- else if ( line ~ "^= BEGIN<NOFILL>" )
- {
- inNoFill = 1
- if ( device == "text" )
- {
- }
- else if ( device == "troff" )
- print( ".nf" )
- else if ( device == "mml" )
- printf( "<Alignment l>" )
- }
- else if ( line ~ "^= END<NOFILL>" )
- {
- inNoFill = 0
- if ( device == "text" )
- {
- }
- else if ( device == "troff" )
- print( ".fi" )
- else if ( device == "mml" )
- printf( "<Alignment lr>" )
- }
- else
- {
- if ( inCode > 0 )
- {
- if ( device == "mml" )
- {
- gsub( " ", "\\ ", line )
- gsub( "<", "\\<", line )
- gsub( ">", "\\>", line )
- if ( inCode > 1 )
- line = "<HardReturn>" line
- }
- print( line )
- inCode = inCode + 1
- }
- else
- {
- gsub( "\\\\]>", "]\\fP", line )
- gsub( "\\\\}>", "]\\fP", line )
- gsub( "([^\\\\]|^)<\\[", "&<\\fB", line )
- gsub( "[^\\\\]\\]>", "&>\\fP", line )
- gsub( "<\\[<", "", line )
- gsub( "\\]>>", "", line )
- gsub( "([^\\\\]|^)<\{", "&<\\fI", line )
- gsub( "[^\\\\]}>", "&>\\fP", line )
- gsub( "<\{<", "", line )
- gsub( "}>>", "", line )
- gsub( "([^\\\\]|^)<", "&<\\f(CO", line )
- gsub( "[^\\\\]>", "&>\\fP", line )
- gsub( "<<", "", line )
- gsub( ">>", "", line )
- gsub( "\\\\<", "<", line )
- gsub( "\\\\>", ">", line )
- gsub( "\\\\", "\\\\", line )
- gsub( "\\\\fB", "fB", line )
- gsub( "\\\\fI", "fI", line )
- gsub( "\\\\fP", "fP", line )
- gsub( "\\\\f\\(CO", "f(CO", line )
-
- if ( device == "mml" )
- {
- if ( inNoFill > 0 )
- gsub( " ", "\\ ", line )
-
- gsub( "<", "\\<", line )
- gsub( ">", "\\>", line )
- gsub( "\\\\fP", "<Family Times><Plain>", line )
- gsub( "\\\\fB", "<Bold>", line )
- gsub( "\\\\fI", "<Italic>", line )
- gsub( "\\\\f\\(CO", "<Family Courier>", line )
-
- if ( inNoFill > 0 )
- {
- if ( inNoFill > 1 )
- line = "<HardReturn>" line
- inNoFill = inNoFill + 1
- }
- }
-
- if ( line == "" )
- {
- blankLine = 1
- }
- else
- {
- if ( blankLine == 1 )
- {
- if ( inCode == 0 )
- print( "" )
- blankLine = 0
- if ( inCode == -1 )
- inCode = 0
- }
- print( line )
- }
- }
- }
- }
- else
- {
- if ( line ~ "^= END<COMMENT>" )
- inComment = 0
- }
-}
-
-#
-# Searches for the 'LIBRARY' section and sets 'library' to the value found.
-#
-function findLibrary()
-{
- for ( i=0; i<=num; i++ )
- {
- split( lines[i], line, "\n" )
- if ( line[1] == "INFO" &&
- line[2] == "GLOBAL" &&
- line[3] == "LIBRARY" )
- {
- len=length(line[4])
- libr = substr(line[4],4,len)
- library = removeComment( libr )
- break
- }
- }
- if ( library == "" )
- library = "C++"
-}
-
-#
-# Searches for the 'FILENAME' section and sets 'filename' to the value found.
-#
-function findFilename()
-{
- for ( i=0; i<=num; i++ )
- {
- split( lines[i], line, "\n" )
- if ( line[1] == "INFO" &&
- line[2] == "GLOBAL" &&
- ( line[3] == "FILENAME" ||
- line[3] == "RCSID" ||
- line[3] == "SCCSID" ) )
- {
- filename = removeComment( line[4] )
- if ( line[3] == "RCSID" )
- {
- sub( "^.*\\$Id:[\t ]*", "", filename )
- sub( ",v.*$", "", filename )
- }
- else if ( line[3] == "SCCSID" )
- {
- sub( "^.*@\\(#\\)", "", filename )
- sub( "[\t ]+.*$", "", filename )
- }
- break
- }
- }
-}
-
-#
-# Outputs a prototype, wrapping it if required.
-#
-function outputPrototype( prototype )
-{
- sub( "[\t ]*$", "", prototype )
- if ( prototype !~ "^.*;$" )
- prototype = prototype ";"
-
- if ( device == "text" )
- width = 70
- else if ( device == "troff" )
- width = 70
- else if ( device == "mml" )
- width = 60
-
- if ( length(prototype) > width )
- {
- # multiline enums,functions have no spaces at the beginning, insert it!
- if ( device == "mml" )
- {
- gsub( ">", "\\>", prototype )
- gsub( "<", "\\<", prototype )
- }
- if ( ( funcptr = match( prototype, "^[^(]*\\([^)]*\\)\\(" ) ) !~ "0" )
- match( prototype, "^[^(]*\\([^)]*\\)" )
- else
- match( prototype, "^[^(]*\\(" )
- funcname = substr( prototype, RSTART, RLENGTH )
- if ( prototype ~ "^[^(]*\\(\\)[\t ]*\\(" )
- {
- funcname = funcname ")("
- sub( "^[^(]*\\(\\)[\t ]*\\(", "", prototype )
- }
- else
- {
- if ( funcptr ~ "0" )
- sub( "^[^(]*\\(", "", prototype )
- else
- sub( "^[^(]*\\([^)]*\\)\\(", "", prototype )
- }
- match( prototype, "\\)([\t ]*)?(=[\t ]*0|const[\t ]*(=[\t ]*0)?)?;[\t ]*" )
- functail = substr( prototype, RSTART, RLENGTH )
- sub( "\\)([\t ]*)?(=[\t ]*0|const[\t ]*(=[\t ]*0)?)?;.*$", "", prototype )
- sub( "\\($", "", funcname )
- match( funcname, "^[\t ]*" )
- space = substr( funcname, RSTART, RLENGTH )
- if (funcname != "")
- {
- # multiline enums or long typedefs have no funcname, so do not print it!
- if ( device == "text" )
- {
- printf( funcname )
- printf( "(\n" )
-#printf("\n---funcname=|%s|----\n",funcname);
- }
- else if ( device == "troff" )
- {
- printf( "\\f(CO" funcname )
- printf( "(\n" )
- }
- else if ( device = "mml" )
- {
- gsub( " ", "\\ ", space )
- gsub( " ", "\\ ", funcname )
- printf( "<Family Courier>%s(\n<HardReturn>", funcname )
- }
- }
- narg = 0
- while ( match( prototype, "[^<>,#]*<[^<>]*>" ) )
- {
- # collect the multiple line arguments
- narg++
- arg = substr( prototype, RSTART, RLENGTH )
- sub( "[^<>,#]*<[^<>]*>", "#" narg, prototype )
- fargs["#" narg] = arg
- # Need the following to stop resubstitution of the pattern matched
- # back into the string.
- gsub( "&", "\\\\&", fargs["#" narg] )
- }
- numargs = split( prototype, args, "," )
-#------
- space = ""
- for (z=1; z<=(nesting_level+1); z++)
- space = space " "
-# printf( "%s",outspace)
-#------
-
- for ( m=1; m<=numargs; m++ )
- {
- while ( match( args[m], "#[0-9]+" ) )
- {
- arg = substr( args[m], RSTART, RLENGTH )
- sub( arg, fargs[arg], args[m] )
- }
- sub( "[\t ]*", "", args[m] )
-
- # print one argument
-
-# printf( "%s %s", space, args[m] )
- printf( "%s%s", space, args[m] )
- if ( m == numargs )
- {
- # print after the last argument
-
- if ( device == "text" )
- print( "" )
- else if ( device == "troff" )
- print( "" )
- else if ( device == "mml" )
- printf( "\n<HardReturn>" )
- }
- else
- {
- # print after each argument of a line
-
- if ( device == "text" )
- print( "," )
- else if ( device == "troff" )
- print( "," )
- else if ( device == "mml" )
- printf( ",\n<HardReturn>" )
- }
- }
- # print after all arguments of a multiline are printed
-
- if ( device == "text" )
- print( space functail "\ " )
- else if ( device == "troff" )
- print( space functail "\\fP" )
- else if ( device == "mml" )
- print( space functail "<Family Times>" )
-
- }
- else # prototype < width
- {
- # not multiline enums,functions have spaces at the beginning already!
- if ( device == "mml" )
- {
- gsub( ">", "\\>", prototype )
- gsub( "<", "\\<", prototype )
- }
- if ( device == "text" )
- print( prototype "\ " )
- else if ( device == "troff" )
- print( "\\f(CO" prototype "\\fP" )
- else if ( device == "mml" )
- {
- gsub( " ", "\\ ", prototype )
- print( "<Family Courier>" prototype "<Family Times>" )
- }
- }
-}
-
-#=============================================================
-# neue rkursive parse function fuer nested ADTs
-#=============================================================
-function parse_and_print_adt (baseandsubclass, class, oldclass, baseindex, type)
-{
- # 3.11.95
- bases = ""
-
- nesting_level++
- printf( "\n")
-# printf("\nclass=%s oldclass=%s nesting_level=%s\n",class,oldclass,nesting_level);
- if ( baseindex != 0 )
- {
- for ( i=baseindex; i<=numfields; i++ )
- {
- if ( bases == "" )
- bases = line[i]
- else
- bases = bases ", " line[i]
- }
- }
-
- outspace = ""
- for (z=1; z<nesting_level; z++)
- outspace = outspace " "
- printf( "%s",outspace)
-
- if ( type == "template" )
- {
- #
- # ADT == template
- #
- for ( i=0; i<=num; i++ )
- {
- split( lines[i], line, "\n" )
-
-# if ( line[1] == "TEMPLATE" && line[3] == class )
- if ( line[1] == "TEMPLATE" && (line[3] == class || line[3] == baseandsubclass) )
- break
- }
- if ( device == "text" )
- printf( "template%s\n",line[4] )
- else if ( device == "troff" )
- printf( "template%s\n",line[4] )
- else if ( device == "mml" )
- {
- sub( "<", "\\<", line[4] )
- sub( ">", "\\>", line[4] )
- printf( "<HardReturn>template%s\n",line[4] )
- }
-# typestat = line[2] " " line[3]
- typestat = line[2] " " class
-
- outspace = ""
- for (z=1; z<nesting_level; z++)
- outspace = outspace " "
- printf( "%s",outspace)
-
- if ( device == "text" )
- printf( "%s", typestat )
- else if ( device == "troff" )
- printf( "%s", typestat )
- else if ( device == "mml" )
- printf( "<HardReturn>%s", typestat )
- }
- else
- {
- #
- # ADT != template
- #
- typestat = type " " class
- if ( device == "mml" )
- printf( "<HardReturn>" )
- printf( "%s", typestat )
- }
-
- if ( bases != "" )
- {
- #
- # analyse if ADT has base classes
- #
- typestat = typestat " : "
- printf( " : " )
- if ( length(typestat) + length(bases) > 70 )
- {
- print( "" )
- if ( device == "mml" )
- printf( "<HardReturn>" )
- narg = 0
- while ( match( bases, "[^<>,# ]*<[^<>]*>" ) )
- {
- narg++
- arg = substr( bases, RSTART, RLENGTH )
- sub( "[^<>,# ]*<[^<>]*>", "#" narg, bases )
- bargs["#" narg] = arg
- # Need the following to stop resubstitution of the pattern matched
- # back into the string.
- gsub( "&", "\\\\&", bargs["#" narg] )
- }
- numbases = split( bases, base, "," )
- for ( m=1; m<=numbases; m++ )
- {
- while ( match( base[m], "#[0-9]+" ) )
- {
- arg = substr( base[m], RSTART, RLENGTH )
- sub( arg, bargs[arg], base[m] )
- }
- sub( "^[\t ]*", "", base[m] )
- if ( device == "mml" )
- {
- gsub( "<", "\\<", base[m] )
- gsub( ">", "\\>", base[m] )
- }
- if ( device == "text" )
- printf( " %s", base[m] )
- else if ( device == "troff" )
- printf( " %s", base[m] )
- else
- printf( "\\ \\ %s", base[m] )
- if ( m == numbases )
- print( "" )
- else
- {
- print( "," )
- if ( device == "mml" )
- printf( "<HardReturn>" )
- }
- }
- }
- else
- {
- if ( device == "mml" )
- {
- gsub( "<", "\\<", bases )
- gsub( ">", "\\>", bases )
- }
- print( bases )
- }
- }
- else
- {
- #
- # ADT has no base classes
- #
- printf( "\n" )
- }
-
-#till start if (csaprintheader == "on") csa_print_class_end()
-
- outspace = ""
- for (z=1; z<nesting_level; z++)
- outspace = outspace " "
- if ( device == "text" )
- print( outspace "{\ " )
- else if ( device == "troff" )
- print( outspace "{\\fP" )
- else if ( device == "mml" )
- print( outspace "<HardReturn>{<Family Times>")
- if ( access["public"] == "on" )
- {
- #
- # collecting loop over the public lines of 1 ADT
- #
- start = 0
- for ( i=0; i<=num; i++ )
- {
- split( lines[i], line, "\n" )
-
- #
- # 3.11.95 check outermost access
- #
- if ( line[1] == "ACCESS")
- {
- outeraccess = line[3]
- #printf("\n----- outeraccess = |%s| --------\n",outeraccess)
- }
-
- #
- # start for nesting ADT
- #
- if ( line[1] == "CLASS" || line[1] == "STRUCT" || line[1] == "UNION" )
- {
- #
- # check for a normal nested ADT
- #
- if ( line[2] ~ "(::|<)" && lastaccess == "public" && outeraccess == "public")
- {
- if (line[2] ~ "::")
- {
- len = length(line[2])
- match( line[2], "(::|<).*$")
- newclass = substr( line[2],RSTART+2,RLENGTH)
- thisclass = substr( line[2],1,RSTART-1)
- if (class == thisclass)
- {
- #
- # hier is a nested class, struct, or union found!!!!!!!
- #
-
- basesubclass = line[2]
- #printf("\n----basesubclass=|%s|-----\n",basesubclass)
- #printf("\n----thisclass=|%s|---------newclass=|%s|-----\n",thisclass,newclass)
- #printf("\n----RECURSION--class=|%s|--line[1]=|%s|--line[2]=|%s|---\n", \
- #class,line[1],line[2]);
-
- nesttype = lower[line[1]]
- nestbaseindex = 3
- #printf("\nvor parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- save_i = i
- class = parse_and_print_adt(basesubclass,newclass,thisclass,nestbaseindex,nesttype)
- i = save_i
- #printf("\nafter parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- start = 1
- continue
- }
- }
- }
- }
- else
- {
- #
- # check for a TEMPLATE nested ADT
- #
- if ( line[1] == "TEMPLATE" && line[2] ~ /(class|union|struct)/ && lastaccess == "public" && outeraccess == "public")
- {
- len = length(line[3])
- match( line[3], "(::|<).*$")
- newclass = substr( line[3],RSTART+2,RLENGTH)
- thisclass = substr( line[3],1,RSTART-1)
- if (class == thisclass)
- {
- #
- # hier is a nested class, struct, or union found!!!!!!!
- #
-
- basesubclass = line[3]
- #printf("\n----basesubclass=|%s|-----\n",basesubclass)
- #printf("\n----thisclass=|%s|---------newclass=|%s|-----\n",thisclass,newclass)
- #printf("\n---RECURSION--class=|%s|--line[1]=|%s|--line[2]=|%s|--line[3]=|%s|---\n", \
- #class,line[1],line[2],line[3]);
-
- nesttype = "template"
- nestbaseindex = 5
- #printf("\nvor parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- save_i = i
- class = parse_and_print_adt(basesubclass,newclass,thisclass,nestbaseindex,nesttype)
- i = save_i
- #printf("\nafter parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- start = 1
- continue
- }
- }
- }
- #
- # end for nesting ADT
- #
- #
- # now print the protoypes of the public ADT
- #
- if ( ( line[1] == "MEMBER" ||
- line[1] == "FUNC" ||
- line[1] == "TYPEDEF" ||
- line[1] == "ENUM" ||
- line[1] == "FRIEND" ) &&
- line[2] == class &&
- line[3] == "public" )
- {
- outspace = ""
- for (z=1; z<nesting_level; z++)
- outspace = outspace " "
- lastaccess = "public"
- if ( start == 0 )
- {
- start = 1
- if ( device == "text" )
- print( outspace "\ \n" outspace "public:\n")
- else if ( device == "troff" )
- print( outspace " \\f(COpublic:\\fP")
- else if ( device == "mml" )
- print( outspace "<HardReturn><Family Courier>\\ \\ public:<Family Times>" )
- }
- outspace = ""
- for (z=1; z<=nesting_level; z++)
- outspace = outspace " "
- if ( device == "text" )
- {
- outputPrototype( outspace line[4] )
- }
- else if ( device == "troff" )
- outputPrototype( outspace line[4] )
- else
- {
- printf( "<HardReturn>" )
- outputPrototype( outspace line[4] )
- }
- }
- }
- }
- if ( access["protected"] == "on" )
- {
- #
- # collecting loop over the protected lines of 1 ADT
- #
- start = 0
- for ( i=0; i<=num; i++ )
- {
- split( lines[i], line, "\n" )
-
- #
- # 3.11.95 check outermost access
- #
- if ( line[1] == "ACCESS")
- {
- outeraccess = line[3]
- #printf("\n----- outeraccess = |%s| --------\n",outeraccess)
- }
-
- #
- # start for nesting ADT
- #
- if ( line[1] == "CLASS" || line[1] == "STRUCT" || line[1] == "UNION" )
- {
- #
- # check for a normal nested ADT
- #
- if ( line[2] ~ "(::|<)" && lastaccess == "protected" && outeraccess == "protected")
- {
- if (line[2] ~ "::")
- {
- len = length(line[2])
- match( line[2], "(::|<).*$")
- newclass = substr( line[2],RSTART+2,RLENGTH)
- thisclass = substr( line[2],1,RSTART-1)
- if (class == thisclass)
- {
- #
- # hier is a nested class, struct, or union found!!!!!!!
- #
-
- basesubclass = line[2]
- #printf("\n----basesubclass=|%s|-----\n",basesubclass)
- #printf("\n----thisclass=|%s|---------newclass=|%s|-----\n",thisclass,newclass)
- #printf("\n----RECURSION--class=|%s|--line[1]=|%s|--line[2]=|%s|---\n", \
- #class,line[1],line[2]);
-
- nesttype = lower[line[1]]
- nestbaseindex = 3
- #printf("\nvor parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- save_i = i
- class = parse_and_print_adt(basesubclass,newclass,thisclass,nestbaseindex,nesttype)
- i = save_i
- #printf("\nafter parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- start = 1
- continue
- }
- }
- }
- }
- else
- {
- #
- # check for a TEMPLATE nested ADT
- #
- if ( line[1] == "TEMPLATE" && line[2] ~ /(class|union|struct)/ && lastaccess == "protected" && outeraccess == "protected")
- {
- len = length(line[3])
- match( line[3], "(::|<).*$")
- newclass = substr( line[3],RSTART+2,RLENGTH)
- thisclass = substr( line[3],1,RSTART-1)
- if (class == thisclass)
- {
- #
- # hier is a nested class, struct, or union found!!!!!!!
- #
-
- basesubclass = line[3]
- #printf("\n----basesubclass=|%s|-----\n",basesubclass)
- #printf("\n----thisclass=|%s|---------newclass=|%s|-----\n",thisclass,newclass)
- #printf("\n---RECURSION--class=|%s|--line[1]=|%s|--line[2]=|%s|--line[3]=|%s|---\n", \
- #class,line[1],line[2],line[3]);
-
- nesttype = "template"
- nestbaseindex = 5
- #printf("\nvor parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- save_i = i
- class = parse_and_print_adt(basesubclass,newclass,thisclass,nestbaseindex,nesttype)
- i = save_i
- #printf("\nafter parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- start = 1
- continue
- }
- }
- }
- #
- # end for nesting ADT
- #
- #
- # now print the protoypes of the public ADT
- #
- if ( ( line[1] == "MEMBER" ||
- line[1] == "FUNC" ||
- line[1] == "TYPEDEF" ||
- line[1] == "ENUM" ||
- line[1] == "FRIEND" ) &&
- line[2] == class &&
- line[3] == "protected" )
- {
- outspace = ""
- for (z=1; z<nesting_level; z++)
- outspace = outspace " "
- lastaccess = "protected"
- if ( start == 0 )
- {
- start = 1
- if ( device == "text" )
- print( outspace "\ \n" outspace "protected:\n")
- else if ( device == "troff" )
- print( outspace " \\f(COprotected:\\fP")
- else if ( device == "mml" )
- print(outspace "<HardReturn><Family Courier>\\ \\ protected:<Family Times>" )
- }
- outspace = ""
- for (z=1; z<=nesting_level; z++)
- outspace = outspace " "
- if ( device == "text" )
- outputPrototype( outspace line[4] )
- else if ( device == "troff" )
- outputPrototype( outspace line[4] )
- else
- {
- printf( "<HardReturn>" )
- outputPrototype( outspace line[4] )
- }
- }
- }
- }
- if ( access["private"] == "on" )
- {
- #
- # collecting loop over the private lines of 1 ADT
- #
- start = 0
- for ( i=0; i<=num; i++ )
- {
- split( lines[i], line, "\n" )
-
- #
- # 3.11.95 check outermost access
- #
- if ( line[1] == "ACCESS")
- {
- outeraccess = line[3]
- #printf("\n----- outeraccess = |%s| --------\n",outeraccess)
- }
-
- #
- # start for nesting ADT
- #
- if ( line[1] == "CLASS" || line[1] == "STRUCT" || line[1] == "UNION" )
- {
- #
- # check for a normal nested ADT
- #
- if ( line[2] ~ "(::|<)" && lastaccess == "private" && outeraccess == "private")
- {
- if (line[2] ~ "::")
- {
- len = length(line[2])
- match( line[2], "(::|<).*$")
- newclass = substr( line[2],RSTART+2,RLENGTH)
- thisclass = substr( line[2],1,RSTART-1)
- if (class == thisclass)
- {
- #
- # hier is a nested class, struct, or union found!!!!!!!
- #
-
- basesubclass = line[2]
- #printf("\n----basesubclass=|%s|-----\n",basesubclass)
- #printf("\n----thisclass=|%s|---------newclass=|%s|-----\n",thisclass,newclass)
- #printf("\n----RECURSION--class=|%s|--line[1]=|%s|--line[2]=|%s|---\n", \
- #class,line[1],line[2]);
-
- nesttype = lower[line[1]]
- nestbaseindex = 3
- #printf("\nvor parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- save_i = i
- class = parse_and_print_adt(basesubclass,newclass,thisclass,nestbaseindex,nesttype)
- i = save_i
- #printf("\nafter parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- start = 1
- continue
- }
- }
- }
- }
- else
- {
- #
- # check for a TEMPLATE nested ADT
- #
- if ( line[1] == "TEMPLATE" && line[2] ~ /(class|union|struct)/ && lastaccess == "private" && outeraccess == "private")
- {
- len = length(line[3])
- match( line[3], "(::|<).*$")
- newclass = substr( line[3],RSTART+2,RLENGTH)
- thisclass = substr( line[3],1,RSTART-1)
- if (class == thisclass)
- {
- #
- # hier is a nested class, struct, or union found!!!!!!!
- #
-
- basesubclass = line[3]
- #printf("\n----basesubclass=|%s|-----\n",basesubclass)
- #printf("\n----thisclass=|%s|---------newclass=|%s|-----\n",thisclass,newclass)
- #printf("\n---RECURSION--class=|%s|--line[1]=|%s|--line[2]=|%s|--line[3]=|%s|---\n", \
- #class,line[1],line[2],line[3]);
-
- nesttype = "template"
- nestbaseindex = 5
- #printf("\nvor parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- save_i = i
- class = parse_and_print_adt(basesubclass,newclass,thisclass,nestbaseindex,nesttype)
- i = save_i
- #printf("\nafter parse_and_print_adt: class=%s nesting_level=%s",class,nesting_level);
- #printf("\ni=%s num=%s line[1]=|%s| line[2]=|%s| line[3]=|%s|\n", \
- #i,num,line[1],line[2],line[3]);
- start = 1
- continue
- }
- }
- }
- #
- # end for nesting ADT
- #
- #
- # now print the protoypes of the public ADT
- #
- if ( ( line[1] == "MEMBER" ||
- line[1] == "FUNC" ||
- line[1] == "TYPEDEF" ||
- line[1] == "ENUM" ||
- line[1] == "FRIEND" ) &&
- line[2] == class &&
- line[3] == "private" )
- {
- outspace = ""
- for (z=1; z<nesting_level; z++)
- outspace = outspace " "
- lastaccess = "private"
- if ( start == 0 )
- {
- start = 1
- if ( device == "text" )
- print( outspace "\ \n" outspace "private:\n")
- else if ( device == "troff" )
- print( outspace " \\f(COprivate:\\fP")
- else if ( device == "mml" )
- print(outspace "<HardReturn><Family Courier>\\ \\ private:<Family Times>" )
- }
- outspace = ""
- for (z=1; z<=nesting_level; z++)
- outspace = outspace " "
- if ( device == "text" )
- outputPrototype( outspace line[4] )
- else if ( device == "troff" )
- outputPrototype( outspace line[4] )
- else
- {
- printf( "<HardReturn>" )
- outputPrototype( outspace line[4] )
- }
- }
- }
- }
- outspace = ""
- for (z=1; z<nesting_level; z++)
- outspace = outspace " "
- if ( device == "text" )
- {
- print( outspace "};" )
- print( "\n" )
- }
- else if ( device == "troff" )
- {
- print( outspace "\\f(CO};" )
- print( "\\fP\n.fi" )
- }
- else if ( device == "mml" )
- {
- print( outspace "<HardReturn><Family Courier>};<Family Times>" )
- }
- nesting_level--
- return oldclass
-}
View Lorry Controller Status