Menu
▾
▴
net-script-commits — All CVS commits will be posted to this list.
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(13) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
(11) |
Feb
(12) |
Mar
(8) |
Apr
(16) |
May
(56) |
Jun
(20) |
Jul
(16) |
Aug
(13) |
Sep
(12) |
Oct
(15) |
Nov
|
Dec
(2) |
| 2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(36) |
Jun
(14) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Jan T. <de...@us...> - 2002-04-08 17:35:48
|
Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory usw-pr-cvs1:/tmp/cvs-serv7282
Modified Files:
Statement.pm
Log Message:
* removed block and copy statements
Index: Statement.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Statement.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Statement.pm 1 Apr 2002 20:30:56 -0000 1.1
--- Statement.pm 8 Apr 2002 17:35:41 -0000 1.2
***************
*** 37,39 ****
--- 37,58 ----
+ #/**
+ # Initialises the statement. The parameters depend
+ # on the type of the statement.
+ # @abstract
+ #*/
+ sub init {
+ undef;
+ }
+
+ #/**
+ # Executes the statement and returns the value of the
+ # statement. The value can be void (undef)
+ # @return the value of the statement
+ # @abstract
+ #*/
+ sub evaluate {
+ undef;
+ }
+
1; # make "require" happy
|
|
From: Jan T. <de...@us...> - 2002-04-01 20:59:15
|
Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory usw-pr-cvs1:/tmp/cvs-serv28061
Modified Files:
Event.pm EventRelay.pm State.pm
Added Files:
Class.pm Statement.pm
Log Message:
* began interpreter model
--- NEW FILE: Class.pm ---
#--------------------------------------------------------
# $Id: Class.pm,v 1.1 2002/04/01 20:30:56 derkork Exp $
#
# Class Event
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
#/**
# This class represents a Class.
#*/
package NetScript::Engine::Class;
use vars qw($VERSION);
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#/**
# Ctor.
#*/
sub new {
my ($proto, $argsRef) = @_;
my $proto = shift; # get Prototype
my $class = ref( $proto ) || $proto;# get the Classname
my $this = {};
bless( $this, $class ); # create Object
my %functions = ();
my %members = ();
$this -> { m_Name } = ""; # Classname
$this -> { m_Functions } = \@functions; # Functions
$this -> { m_Members } = \@members; # members
return $this; # return Object
}
#/**
# Returns the given function, or sets it.
# @param function name
# @optional an instance of Netscript::Engine::Function
# @return an instance of NetScript::Engine::Function
#*/
sub function {
my ($this, $name, $function ) = @_;
if ( defined( $function ) ) {
$this -> { m_Functions } -> { $name } = $function;
}
$this -> { m_Functions } -> { $name };
}
#/**
# Returns the given member or sets it.
# @param member name
# @optional an instance if Netscript::Engine::Variable
# @return an instance of Netscript::Engine::Variable
#*/
sub member {
my ($this, $name, $member) = @_;
if ( defined( $member ) ) {
$this -> { m_Members } -> { $name } = $member;
}
$this -> { m_Functions } -> { $name };
}
1; # make "require" happy
--- NEW FILE: Statement.pm ---
#--------------------------------------------------------
# $Id: Statement.pm,v 1.1 2002/04/01 20:30:56 derkork Exp $
#
# Class Event
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
#/**
# This class represents a Statement. Everything within the interpreter
# is a statement. A statement has a value. The value can be void.
# @abstract
#*/
package NetScript::Engine::Statement;
use vars qw($VERSION);
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#/**
# Ctor.
#*/
sub new {
my ($proto, $argsRef) = @_;
my $proto = shift; # get Prototype
my $class = ref( $proto ) || $proto;# get the Classname
my $this = {};
bless( $this, $class ); # create Object
return $this; # return Object
}
1; # make "require" happy
Index: Event.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Event.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Event.pm 29 Nov 2001 22:15:45 -0000 1.2
--- Event.pm 1 Apr 2002 20:30:56 -0000 1.3
***************
*** 9,13 ****
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 9,13 ----
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 23,27 ****
#/**
# The constructor. Constructs a new event.
! # @param a hash containing the following key-value-pairs
# EventType - a string defining the type of an event
# EventMessage - a string holding a message
--- 23,27 ----
#/**
# The constructor. Constructs a new event.
! # @param a hash reference containing the following key-value-pairs
# EventType - a string defining the type of an event
# EventMessage - a string holding a message
***************
*** 51,55 ****
# Returns the event type.
# @return a string holding the event Type.
! #+/
sub getEventType {
my ($this) = @_;
--- 51,55 ----
# Returns the event type.
# @return a string holding the event Type.
! #*/
sub getEventType {
my ($this) = @_;
Index: EventRelay.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/EventRelay.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** EventRelay.pm 29 Nov 2001 22:15:45 -0000 1.3
--- EventRelay.pm 1 Apr 2002 20:30:56 -0000 1.4
***************
*** 14,18 ****
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 14,18 ----
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 57,61 ****
# listeners.
# @param an object reference to the listener.
! # @param a hash containing event-sub pairs.
# The keys are strings, describing the events which is listened to,
# the values are strings which describe the functions to be called
--- 57,61 ----
# listeners.
# @param an object reference to the listener.
! # @param a hash reference containing event-sub pairs.
# The keys are strings, describing the events which is listened to,
# the values are strings which describe the functions to be called
Index: State.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/State.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** State.pm 4 Jul 2001 10:25:14 -0000 1.1
--- State.pm 1 Apr 2002 20:30:56 -0000 1.2
***************
*** 7,11 ****
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 7,11 ----
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 155,158 ****
--- 155,159 ----
# @return a scalar holding the value of the variable or undef, if the
# variable is not defined.
+ #*/
sub getVariableValue {
my ( $this, $variable ) = @_;
***************
*** 205,208 ****
--- 206,210 ----
# @return a scalar holding the value of the variable or undef, if the
# variable is not defined.
+ #*/
sub getVariableValue {
my ( $this, $array, $index ) = @_;
|
|
From: Jan T. <de...@us...> - 2002-03-17 19:44:25
|
Update of /cvsroot/net-script/netscript2/src/perl In directory usw-pr-cvs1:/tmp/cvs-serv6673 Added Files: netscript.pl Log Message: * initial checkin --- NEW FILE: netscript.pl --- #!/usr/bin/perl #-------------------------------------------------------- # CGI-Script which will launch the interpreter. # $Id: netscript.pl,v 1.1 2002/03/17 19:44:22 derkork Exp $ # # NetScript and all related materials, such as documentation, # are protected under the terms and conditions of the Artistic License. # (C) 2000-2001 by Jan Thomä, insOMnia # mailto: ko...@in... #-------------------------------------------------------- use NetScript::Interpreter; use strict; my $interpreter = NetScript::Interpreter -> new(); $interpreter -> run (); |
|
From: Jan T. <de...@us...> - 2002-03-17 19:44:17
|
Update of /cvsroot/net-script/netscript2/src/perl In directory usw-pr-cvs1:/tmp/cvs-serv6645 Modified Files: wipeout.project Log Message: * initial checkin Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/wipeout.project,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** wipeout.project 2 Aug 2001 22:01:35 -0000 1.2 --- wipeout.project 17 Mar 2002 19:44:14 -0000 1.3 *************** *** 1,173 **** b ! C DmDictionary 0 b8c3 8 ! c 0 b8d5 9 ! C Category 1 2883 ! c 0 b909 4 ! C DmString 2 b910 2 e3 ! c 2 b90f a defaultExe ! C DmSet 3 b912 1 ! c 2 2892 2 e3 ! L 2892 ! c 2 b911 b executables ! c 3 b90d 3 ! c 2 2899 3 *.C ! L 2899 ! c 2 289c 4 *.cc ! L 289c ! c 2 289f 5 *.cpp ! L 289f ! c 2 b90c a extensions ! c 2 b90b a CPP_source ! c 2 b90a 4 name ! c 2 b8d7 a CPP_source ! c 1 28b4 ! c 0 b94f 4 ! c 2 b956 2 e3 ! c 2 b955 a defaultExe ! c 3 b958 1 ! c 2 28c1 2 e3 ! L 28c1 ! c 2 b957 b executables ! c 3 b953 1 ! c 2 28c8 3 *.c ! L 28c8 ! c 2 b952 a extensions ! c 2 b951 8 C_source ! c 2 b950 4 name ! c 2 b8d8 8 C_source ! c 1 28dd ! c 0 b989 4 ! c 2 b990 2 e3 ! c 2 b98f a defaultExe ! c 3 b992 1 ! c 2 28ea 2 e3 ! L 28ea ! c 2 b991 b executables ! c 3 b98d 1 ! c 2 28f1 3 *.e ! L 28f1 ! c 2 b98c a extensions ! c 2 b98b 6 Eiffel ! c 2 b98a 4 name ! c 2 b8d9 6 Eiffel ! c 1 2906 ! c 0 b9c3 4 ! c 2 b9ca 2 e3 ! c 2 b9c9 a defaultExe ! c 3 b9cc 1 ! c 2 2913 2 e3 ! L 2913 ! c 2 b9cb b executables ! c 3 b9c7 4 ! c 2 291a 3 *.F ! L 291a ! c 2 291d 3 *.f ! L 291d ! c 2 2920 5 *.for ! L 2920 ! c 2 2923 5 *.fpp ! L 2923 ! c 2 b9c6 a extensions ! c 2 b9c5 7 Fortran ! c 2 b9c4 4 name ! c 2 b8da 7 Fortran ! c 1 2938 ! c 0 ba09 4 ! c 2 ba10 2 e3 ! c 2 ba0f a defaultExe ! c 3 ba12 1 ! c 2 2945 2 e3 ! L 2945 ! c 2 ba11 b executables ! c 3 ba0d 2 ! c 2 294c 3 *.H ! L 294c ! c 2 294f 3 *.h ! L 294f ! c 2 ba0c a extensions ! c 2 ba0b 6 Header ! c 2 ba0a 4 name ! c 2 b8db 6 Header ! c 1 2964 ! c 0 ba47 4 ! c 2 ba4e 9 surfboard ! c 2 ba4d a defaultExe ! c 3 ba50 2 ! c 2 2971 2 e3 ! L 2971 ! c 2 2974 9 surfboard ! L 2974 ! c 2 ba4f b executables ! c 3 ba4b 2 ! c 2 297b 5 *.htm ! L 297b ! c 2 297e 6 *.html ! L 297e ! c 2 ba4a a extensions ! c 2 ba49 4 Html ! c 2 ba48 4 name ! c 2 b8dc 4 Html ! c 1 2993 ! c 0 ba89 4 ! c 2 ba90 2 e3 ! c 2 ba8f a defaultExe ! c 3 ba92 1 ! c 2 29a0 2 e3 ! L 29a0 ! c 2 ba91 b executables ! c 3 ba8d 1 ! c 2 29a7 6 *.java ! L 29a7 ! c 2 ba8c a extensions ! c 2 ba8b 4 Java ! c 2 ba8a 4 name ! c 2 b8dd 4 Java ! c 1 29bc ! c 0 bac3 4 ! c 2 baca 2 e3 ! c 2 bac9 a defaultExe ! c 3 bacc 1 ! c 2 29c9 2 e3 ! L 29c9 ! c 2 bacb b executables ! c 3 bac7 1 ! c 2 29d0 5 *.tex ! L 29d0 ! c 2 bac6 a extensions ! c 2 bac5 5 Latex ! c 2 bac4 4 name ! c 2 b8de 5 Latex ! c 1 29e5 ! c 0 bafd 4 ! c 2 bb04 2 e3 ! c 2 bb03 a defaultExe ! c 3 bb06 1 ! c 2 29f2 2 e3 ! L 29f2 ! c 2 bb05 b executables ! c 3 bb01 0 ! c 2 bb00 a extensions ! c 2 baff 5 Other ! c 2 bafe 4 name ! c 2 b8df 5 Other ! c 2 b8d4 a categories ! c 0 b8e1 1 ! C ProjectDir 4 2a0f ! c 2 2a10 14 netscript2/src/perl/ 11 81 ! c 2 2a11 0 0 ! c 2 b8e3 14 netscript2/src/perl/ ! c 2 b8e0 b directories ! C DmBag 5 b8d1 0 ! c 2 b8d3 5 files ! c 2 b8cb 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 b8ca 6 launch ! c 2 b8c7 4 make ! c 2 b8c6 4 make ! c 2 b8c9 0 ! c 2 b8c8 8 makeFile ! c 5 b8cc 2 ! c 2 b8ce 9 NetScript ! c 2 b8cf 3 XML ! c 2 b8d0 7 modules ! c 2 b8c5 4 perl ! c 2 b8c4 4 name --- 1,184 ---- b ! C DmDictionary 0 19d7e 8 ! c 0 19dc5 9 ! C Category 1 2c8e ! c 0 19df9 4 ! C DmString 2 19e00 2 e3 ! c 2 19dff a defaultExe ! C DmSet 3 19e02 1 ! c 2 2c9d 2 e3 ! L 2c9d ! c 2 19e01 b executables ! c 3 19dfd 3 ! c 2 2ca4 3 *.C ! L 2ca4 ! c 2 2ca7 4 *.cc ! L 2ca7 ! c 2 2caa 5 *.cpp ! L 2caa ! c 2 19dfc a extensions ! c 2 19dfb a CPP_source ! c 2 19dfa 4 name ! c 2 19dc7 a CPP_source ! c 1 2cbf ! c 0 19e3f 4 ! c 2 19e46 2 e3 ! c 2 19e45 a defaultExe ! c 3 19e48 1 ! c 2 2ccc 2 e3 ! L 2ccc ! c 2 19e47 b executables ! c 3 19e43 1 ! c 2 2cd3 3 *.c ! L 2cd3 ! c 2 19e42 a extensions ! c 2 19e41 8 C_source ! c 2 19e40 4 name ! c 2 19dc8 8 C_source ! c 1 2ce8 ! c 0 19e79 4 ! c 2 19e80 2 e3 ! c 2 19e7f a defaultExe ! c 3 19e82 1 ! c 2 2cf5 2 e3 ! L 2cf5 ! c 2 19e81 b executables ! c 3 19e7d 1 ! c 2 2cfc 3 *.e ! L 2cfc ! c 2 19e7c a extensions ! c 2 19e7b 6 Eiffel ! c 2 19e7a 4 name ! c 2 19dc9 6 Eiffel ! c 1 2d11 ! c 0 19eb3 4 ! c 2 19eba 2 e3 ! c 2 19eb9 a defaultExe ! c 3 19ebc 1 ! c 2 2d1e 2 e3 ! L 2d1e ! c 2 19ebb b executables ! c 3 19eb7 4 ! c 2 2d25 3 *.F ! L 2d25 ! c 2 2d28 3 *.f ! L 2d28 ! c 2 2d2b 5 *.for ! L 2d2b ! c 2 2d2e 5 *.fpp ! L 2d2e ! c 2 19eb6 a extensions ! c 2 19eb5 7 Fortran ! c 2 19eb4 4 name ! c 2 19dca 7 Fortran ! c 1 2d43 ! c 0 19ef9 4 ! c 2 19f00 2 e3 ! c 2 19eff a defaultExe ! c 3 19f02 1 ! c 2 2d50 2 e3 ! L 2d50 ! c 2 19f01 b executables ! c 3 19efd 2 ! c 2 2d57 3 *.H ! L 2d57 ! c 2 2d5a 3 *.h ! L 2d5a ! c 2 19efc a extensions ! c 2 19efb 6 Header ! c 2 19efa 4 name ! c 2 19dcb 6 Header ! c 1 2d6f ! c 0 19f37 4 ! c 2 19f3e 9 surfboard ! c 2 19f3d a defaultExe ! c 3 19f40 2 ! c 2 2d7c 2 e3 ! L 2d7c ! c 2 2d7f 9 surfboard ! L 2d7f ! c 2 19f3f b executables ! c 3 19f3b 2 ! c 2 2d86 5 *.htm ! L 2d86 ! c 2 2d89 6 *.html ! L 2d89 ! c 2 19f3a a extensions ! c 2 19f39 4 Html ! c 2 19f38 4 name ! c 2 19dcc 4 Html ! c 1 2d9e ! c 0 19f79 4 ! c 2 19f80 2 e3 ! c 2 19f7f a defaultExe ! c 3 19f82 1 ! c 2 2dab 2 e3 ! L 2dab ! c 2 19f81 b executables ! c 3 19f7d 1 ! c 2 2db2 6 *.java ! L 2db2 ! c 2 19f7c a extensions ! c 2 19f7b 4 Java ! c 2 19f7a 4 name ! c 2 19dcd 4 Java ! c 1 2dc7 ! c 0 19fb3 4 ! c 2 19fba 2 e3 ! c 2 19fb9 a defaultExe ! c 3 19fbc 1 ! c 2 2dd4 2 e3 ! L 2dd4 ! c 2 19fbb b executables ! c 3 19fb7 1 ! c 2 2ddb 5 *.tex ! L 2ddb ! c 2 19fb6 a extensions ! c 2 19fb5 5 Latex ! c 2 19fb4 4 name ! c 2 19dce 5 Latex ! c 1 2df0 ! c 0 19fed 4 ! c 2 19ff4 2 e3 ! c 2 19ff3 a defaultExe ! c 3 19ff6 1 ! c 2 2dfd 2 e3 ! L 2dfd ! c 2 19ff5 b executables ! c 3 19ff1 0 ! c 2 19ff0 a extensions ! c 2 19fef 5 Other ! c 2 19fee 4 name ! c 2 19dcf 5 Other ! c 2 19dc4 a categories ! c 0 19dd1 1 ! C ProjectDir 4 2e1a ! c 2 2e1b 14 netscript2/src/perl/ 11 81 ! c 2 2e1c 0 0 ! c 2 19dd3 14 netscript2/src/perl/ ! c 2 19dd0 b directories ! C DmBag 5 19d8c 1 ! c 2 19dc2 de b ! C DmDictionary 0 19d8e 3 ! C DmString 1 19da0 39 b ! C DmSet 0 19c19 1 ! C DmString 1 19d73 5 Other ! L 19d73 ! c 1 19d9f a categories ! c 1 19d90 c netscript.pl ! c 1 19d8f 4 name ! C DmInteger 2 19da2 1 ! c 1 19da1 9 substMode ! c 2 19dc3 5 files ! c 2 19d86 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 19d85 6 launch ! c 2 19d82 4 make ! c 2 19d81 4 make ! c 2 19d84 0 ! c 2 19d83 8 makeFile ! c 5 19d87 2 ! c 2 19d89 9 NetScript ! c 2 19d8a 3 XML ! c 2 19d8b 7 modules ! c 2 19d80 4 perl ! c 2 19d7f 4 name |
|
From: Jan T. <de...@us...> - 2002-03-17 19:28:00
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv3372
Modified Files:
XMLDOMWriterStyle.pm
Log Message:
* beautified output
Index: XMLDOMWriterStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/XMLDOMWriterStyle.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** XMLDOMWriterStyle.pm 17 Mar 2002 19:26:15 -0000 1.1
--- XMLDOMWriterStyle.pm 17 Mar 2002 19:27:57 -0000 1.2
***************
*** 98,110 ****
if ( $prefix ne "" && $namespaceURI ne "" ) {
if ( $this -> isURIBound( $prefix, $namespaceURI ) ) {
! $this -> appendText( " $nodeName=\"$nodeValue\" " );
}
else {
$this -> bindURI( $prefix, $namespaceURI );
! $this -> appendText( " $nodeName=\"$nodeValue\" xmlns:$prefix=\"$namespaceURI\" ");
}
}
else {
! $this -> appendText( " $nodeName=\"$nodeValue\" " );
}
}
--- 98,110 ----
if ( $prefix ne "" && $namespaceURI ne "" ) {
if ( $this -> isURIBound( $prefix, $namespaceURI ) ) {
! $this -> appendText( " $nodeName=\"$nodeValue\"" );
}
else {
$this -> bindURI( $prefix, $namespaceURI );
! $this -> appendText( " $nodeName=\"$nodeValue\" xmlns:$prefix=\"$namespaceURI\"");
}
}
else {
! $this -> appendText( " $nodeName=\"$nodeValue\"" );
}
}
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv2765
Modified Files:
Attr.pm CDATASection.pm CHANGELOG CharacterData.pm Comment.pm
DOMException.pm DOMImplementation.pm DOMParser.pm
DOMParserStyle.pm Document.pm DocumentFragment.pm
DocumentType.pm Element.pm Entity.pm EntityReference.pm
NamedNodeMap.pm Node.pm NodeList.pm Notation.pm
ProcessingInstruction.pm Text.pm notes.txt
Added Files:
DOMWriter.pm DOMWriterStyle.pm XMLDOMWriterStyle.pm
Log Message:
* bugfixes in Attr and Element
* added DOMWriter
* bugfixes in DOMParser
--- NEW FILE: DOMWriter.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMWriter
# $Id: DOMWriter.pm,v 1.1 2002/03/17 19:26:14 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::DOMWriter;
use vars qw($VERSION);
use XML::DOM2::Node;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new DOM Writer. A DOMWriter rewrites a DOM to a
# textual representation.
# @return an instance of XML::DOM2::DOMWriter
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
return $this;
}
#/**
# Writes the given DOM to a string, using the given DOMWriterStyle
# @param a hash reference containing the following key-value-pairs:
# document - instance of XML::DOM2::Document
# style - an instance of XML::DOM2::DOMWriterStyle or a subclass of it
# @return the document as a string represenation.
#*/
sub writeDOMToString {
my ($this, $paramRef ) = @_;
my $document = $paramRef -> { document };
my $style = $paramRef -> { style };
my @childrenList = ( $document -> documentElement() );
my @elements = ();
my $child = shift(@childrenList);
$style -> init();
while( defined($child) ) {
# test if an element is to be finished
if ( $child eq "ELEMENT" ) {
$child = pop( @elements );
$style -> finishElement( $child );
$child = shift( @childrenList );
next;
}
#check node type
my $nodeType = $child -> nodeType();
$style -> processElement( $child )
if ($nodeType == XML::DOM2::Node -> ELEMENT_NODE() );
$style -> processText( $child )
if ($nodeType == XML::DOM2::Node -> TEXT_NODE() );
$style -> processPI( $child )
if ($nodeType == XML::DOM2::Node -> PROCESSING_INSTRUCTION_NODE());
$style -> processCDATASection( $child )
if ($nodeType == XML::DOM2::Node -> CDATA_SECTION_NODE());
$style -> processComment( $child )
if ($nodeType == XML::DOM2::Node -> COMMENT_NODE());
#if the node type is an element we have to finish it later
if ($nodeType == XML::DOM2::Node -> ELEMENT_NODE()) {
push ( @elements, $child );
unshift( @childrenList, "ELEMENT" );
}
my $childNodes = $child -> childNodes();
my $length = $childNodes -> length() - 1;
for( 0..$length ){
unshift( @childrenList, $childNodes -> item( {index => $length - $_} ) );
}
$child = shift( @childrenList );
}
return $style -> result();
}
#/**
# Writes the given DOM to a file, using the given DOMWriterStyle
# @param a hash reference containing the following key-value-pairs:
# document - instance of XML::DOM2::Document
# style - an instance of XML::DOM2::DOMWriterStyle or a subclass of it
# file - the file to write the converted DOM to. (local file system,only)
#*/
sub writeDOMToFile {
my ($this, $paramRef ) = @_;
my $result = $this -> writeDOMToString( $paramRef );
my $filename = $paramRef -> { file };
open( AFILE, ">$filename" );
print AFILE $result;
close( AFILE );
}
--- NEW FILE: DOMWriterStyle.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMWriterStyle
# $Id: DOMWriterStyle.pm,v 1.1 2002/03/17 19:26:14 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::DOMWriterStyle;
use vars qw($VERSION);
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new DOM WriterStyle. The style is responsible for how
# a Node will be converted to text.
# This is an abstract implementation. Use a subclass.
# @return an instance of XML::DOM2::DOMWriter
# @abstract
#*/
sub new {
undef;
}
#/**
# Initialises the DOMWriterStyle.
# @abstract
#*/
sub init {
undef;
}
#/**
# Tells the DOMWriterStyle to add an Element to its internal textual
# representation.
# @param an instance of XML::DOM2::Element
# @abstract
#*/
sub processElement {
undef;
}
#/**
# Tells the DOMWriterStyle to finish the given element.
# @param an instance of XML::DOM2::Element
# @abstract
#*/
sub finishElement {
undef;
}
#/**
# Tells the DOMWriterStyle to add a text node to its internal textual
# represenation.
# @param an instance of XML::DOM2::Text
# @abstract
#*/
sub processText {
undef;
}
#/**
# Tells the DOMWriterStyle to add a processing instruction to its interal
# textual representation.
# @param an instance of XML::DOM2::ProcessingInstruction
# @abstract
#*/
sub processPI {
undef;
}
#/**
# Tells the DOMWriterStyle to add a CDATA section to its internal
# textual representation.
# @param an instance of XML::DOM2::CDATASection
# @abstract
#*/
sub processCDATASection {
undef;
}
#/**
# Tells the DOMWriterStyle to add a comment to its internal
# textual represenation.
# @param an instance of XML::DOM2::Comment
# @abstract
#*/
sub processComment {
undef;
}
#/**
# Returns the textual representation of the given nodes.
# @return a string
# @abstract
#*/
sub result {
undef;
}
--- NEW FILE: XMLDOMWriterStyle.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMWriterStyle
# $Id: XMLDOMWriterStyle.pm,v 1.1 2002/03/17 19:26:15 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::XMLDOMWriterStyle;
use base qw(XML::DOM2::DOMWriterStyle);
use vars qw($VERSION);
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new XMLDOMWriterStyle. This style produces XML for each Node.
# @return an instance of XML::DOM2::DOMWriter
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
$this -> { m_representation } = "";
my %boundURIs = ();
$this -> { m_boundURIs } = \%boundURIs;
return $this;
}
#/**
# Initialises the DOMWriterStyle.
# @public
#*/
sub init {
my ($this) = @_;
$this -> appendText( "<?xml version=\"1.0\"?>\n" );
}
#/**
# Tells the DOMWriterStyle to add an Element to its internal textual
# representation.
# @param an instance of XML::DOM2::Element
# @abstract
#*/
sub processElement {
my ($this, $element) = @_;
my $prefix = $element -> prefix();
my $nodeName = $element -> nodeName();
my $namespaceURI = $element -> namespaceURI();
if ( $prefix ne "" && $namespaceURI ne "" ) {
if ( $this -> isURIBound( $prefix, $namespaceURI ) ) {
$this -> appendText( "<$nodeName" );
}
else {
$this -> bindURI( $prefix, $namespaceURI );
$this -> appendText( "<$nodeName xmlns:$prefix=\"$namespaceURI\"");
}
}
else {
$this -> appendText( "<$nodeName")
}
my $attributes = $element -> attributes();
for ( 0..$attributes -> length() - 1 ) {
$this -> processAttribute( $attributes -> item( { index => $_ } ) );
}
$this -> appendText( ">" );
}
#/**
# Processes an Attribute node.
# @param an instance of XML::DOM2::Attr
# @protected
#*/
sub processAttribute {
my ($this, $attr ) = @_;
my $nodeName = $attr -> nodeName();
my $prefix = $attr -> prefix();
my $namespaceURI = $attr -> namespaceURI();
my $nodeValue = $attr -> nodeValue();
if ( $prefix ne "" && $namespaceURI ne "" ) {
if ( $this -> isURIBound( $prefix, $namespaceURI ) ) {
$this -> appendText( " $nodeName=\"$nodeValue\" " );
}
else {
$this -> bindURI( $prefix, $namespaceURI );
$this -> appendText( " $nodeName=\"$nodeValue\" xmlns:$prefix=\"$namespaceURI\" ");
}
}
else {
$this -> appendText( " $nodeName=\"$nodeValue\" " );
}
}
#/**
# Finishes the given Element.
# @param an instance of XML::DOM2::Element
# @public
#*/
sub finishElement {
my ($this, $element) = @_;
my $nodeName = $element -> nodeName();
$this -> appendText( "</$nodeName>" );
}
#/**
# Tells the DOMWriterStyle to add a text node to its internal textual
# represenation.
# @param an instance of XML::DOM2::Text
# @abstract
#*/
sub processText {
my ($this, $text) = @_;
$this -> appendText( $text -> data() );
}
#/**
# Tells the DOMWriterStyle to add a processing instruction to its interal
# textual representation.
# @param an instance of XML::DOM2::ProcessingInstruction
# @abstract
#*/
sub processPI {
my ($this, $pi) = @_;
$this -> appendText( "<?".$pi -> target()." ".$pi -> data()."?>" );
}
#/**
# Tells the DOMWriterStyle to add a CDATA section to its internal
# textual representation.
# @param an instance of XML::DOM2::CDATASection
# @abstract
#*/
sub processCDATASection {
my ($this, $cdata ) = @_;
$this -> appendText( "<![CDATA[".$cdata -> data()."]]>" );
undef;
}
#/**
# Tells the DOMWriterStyle to add a comment to its internal
# textual represenation.
# @param an instance of XML::DOM2::Comment
# @abstract
#*/
sub processComment {
my ($this, $comment ) = @_;
$this -> appendText( "<!--".$comment -> data()."-->" );
}
#/**
# Returns the textual representation of the given nodes.
# @return a string
# @abstract
#*/
sub result {
my ($this) = @_;
$this -> { m_representation };
}
#/**
# Appends text to the internal representation.
# @param a string
# @private
#*/
sub appendText {
my ($this, $text ) = @_;
$this -> { m_representation } .= $text;
}
#/**
# Returns if the given namespace URI is bound to the given prefix.
# @param the prefix
# @param the namespace URI
# @return nonzero if the namespace URI is bound, zero if it is not bound
# @private
#*/
sub isURIBound {
my ($this, $prefix, $uri ) = @_;
if ( $this -> { m_boundURIs } -> { $prefix } eq $uri ) {
return 1;
}
return 0;
}
#/**
# Binds the given URI to the given prefix
# @param the prefix
# @param the namespace URI
# @private
#*/
sub bindURI {
my ($this , $prefix, $uri ) = @_;
$this -> { m_boundURIs } -> { $prefix } = $uri ;
}
Index: Attr.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Attr.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Attr.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Attr.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 160,163 ****
--- 160,168 ----
return $localname;
}
+ }
+
+ sub namespaceURI {
+ my ($this) = @_;
+ $this -> { m_namespaceURI };
}
Index: CDATASection.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CDATASection.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** CDATASection.pm 3 Feb 2002 22:39:42 -0000 1.4
--- CDATASection.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: CHANGELOG
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CHANGELOG,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CHANGELOG 3 Feb 2002 22:39:42 -0000 1.1
--- CHANGELOG 17 Mar 2002 19:26:14 -0000 1.2
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: CharacterData.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CharacterData.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** CharacterData.pm 3 Feb 2002 22:39:42 -0000 1.3
--- CharacterData.pm 17 Mar 2002 19:26:14 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Comment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Comment.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Comment.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Comment.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DOMException.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMException.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DOMException.pm 3 Feb 2002 22:39:42 -0000 1.6
--- DOMException.pm 17 Mar 2002 19:26:14 -0000 1.7
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DOMImplementation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMImplementation.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DOMImplementation.pm 3 Feb 2002 22:39:42 -0000 1.3
--- DOMImplementation.pm 17 Mar 2002 19:26:14 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 71,74 ****
--- 71,75 ----
# systemId - the external subset system identifier.
# @return an instance of XML::DOM2::DocumentType
+ #*/
sub createDocumentType {
my ($this, $paramRef) = @_;
***************
*** 91,94 ****
--- 92,96 ----
# doctype - the type of document to be created or undef.
# @return an instance of XML::DOM2::Document
+ #*/
sub createDocument {
my ($this, $paramRef) = @_;
Index: DOMParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParser.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DOMParser.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DOMParser.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 156,160 ****
my $value = shift @attrList;
my $aNamespaceURI = $expat -> namespace($name);
! my $aPrefix = $prefixMap{$namespaceURI};
$elementNode -> setAttributeNS({
--- 156,160 ----
my $value = shift @attrList;
my $aNamespaceURI = $expat -> namespace($name);
! my $aPrefix = $prefixMap{$aNamespaceURI};
$elementNode -> setAttributeNS({
***************
*** 191,195 ****
sub Char {
my ($this, $expat, $string) = @_;
-
# first, create a text node
my $textNode = $this -> { m_document } -> createTextNode( {
--- 191,194 ----
***************
*** 208,212 ****
sub Proc {
my ($this, $expat, $target, $data) = @_;
-
# first, create a processing instruction node
my $procNode = $this -> { m_document } -> createProcessingInstruction( {
--- 207,210 ----
***************
*** 226,230 ****
sub Comment {
my ($this, $expat, $data) = @_;
-
# first, create a text node
my $commentNode = $this -> { m_document } -> createComment( {
--- 224,227 ----
Index: DOMParserStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParserStyle.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DOMParserStyle.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DOMParserStyle.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Document.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Document.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Document.pm 3 Feb 2002 22:39:42 -0000 1.3
--- Document.pm 17 Mar 2002 19:26:14 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DocumentFragment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentFragment.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DocumentFragment.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DocumentFragment.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: DocumentType.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentType.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DocumentType.pm 3 Feb 2002 22:39:42 -0000 1.2
--- DocumentType.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Element.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Element.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Element.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Element.pm 17 Mar 2002 19:26:14 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
***************
*** 533,536 ****
--- 533,541 ----
return $localname;
}
+ }
+
+ sub namespaceURI {
+ my ($this) = @_;
+ $this -> { m_namespaceURI };
}
Index: Entity.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Entity.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Entity.pm 3 Feb 2002 22:39:42 -0000 1.2
--- Entity.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: EntityReference.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/EntityReference.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EntityReference.pm 3 Feb 2002 22:39:42 -0000 1.2
--- EntityReference.pm 17 Mar 2002 19:26:14 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: NamedNodeMap.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NamedNodeMap.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** NamedNodeMap.pm 3 Feb 2002 22:39:42 -0000 1.6
--- NamedNodeMap.pm 17 Mar 2002 19:26:14 -0000 1.7
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Node.pm 3 Feb 2002 22:39:42 -0000 1.12
--- Node.pm 17 Mar 2002 19:26:14 -0000 1.13
***************
*** 6,12 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::Node;
--- 6,17 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
+ #/**
+ # This class implements a DOM Node. Its the base class of most DOM
+ # Interfaces.
+ # @author <a href="mailto:kork at insomnia-hq.de">Jan Thomä</a>
+ #*/
use strict;
package XML::DOM2::Node;
***************
*** 74,78 ****
# Node is not of type ELEMENT_NODE.
# @public
! # Implementation is left to the subclass. This implementation
# returns undef.
#*/
--- 79,83 ----
# Node is not of type ELEMENT_NODE.
# @public
! # @note Implementation is left to the subclass. This implementation
# returns undef.
#*/
Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** NodeList.pm 3 Feb 2002 22:39:42 -0000 1.8
--- NodeList.pm 17 Mar 2002 19:26:15 -0000 1.9
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Notation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Notation.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Notation.pm 3 Feb 2002 22:39:42 -0000 1.2
--- Notation.pm 17 Mar 2002 19:26:15 -0000 1.3
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: ProcessingInstruction.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/ProcessingInstruction.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ProcessingInstruction.pm 3 Feb 2002 22:39:42 -0000 1.3
--- ProcessingInstruction.pm 17 Mar 2002 19:26:15 -0000 1.4
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: Text.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Text.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Text.pm 3 Feb 2002 22:39:42 -0000 1.4
--- Text.pm 17 Mar 2002 19:26:15 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
Index: notes.txt
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/notes.txt,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** notes.txt 3 Feb 2002 22:39:42 -0000 1.4
--- notes.txt 17 Mar 2002 19:26:15 -0000 1.5
***************
*** 6,10 ****
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
--- 6,10 ----
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
|
|
From: Jan T. <de...@us...> - 2002-03-17 19:26:08
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2 In directory usw-pr-cvs1:/tmp/cvs-serv2726 Modified Files: wipeout.project Log Message: * bugfixes in Attr and Element * added DOMWriter * bugfixes in DOMParser Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/wipeout.project,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** wipeout.project 3 Feb 2002 22:39:33 -0000 1.7 --- wipeout.project 17 Mar 2002 19:26:04 -0000 1.8 *************** *** 1,413 **** b ! C DmDictionary 0 9529 8 ! c 0 99c7 9 ! C Category 1 5cfa ! c 0 9a07 4 ! C DmString 2 9a0e 2 e3 ! c 2 9a0d a defaultExe ! C DmSet 3 9a10 1 ! c 2 5d09 2 e3 ! L 5d09 ! c 2 9a0f b executables ! c 3 9a0b 3 ! c 2 5d10 3 *.C ! L 5d10 ! c 2 5d13 4 *.cc ! L 5d13 ! c 2 5d16 5 *.cpp ! L 5d16 ! c 2 9a0a a extensions ! c 2 9a09 a CPP_source ! c 2 9a08 4 name ! c 2 99c9 a CPP_source ! c 1 5d2b ! c 0 9a4d 4 ! c 2 9a54 2 e3 ! c 2 9a53 a defaultExe ! c 3 9a56 1 ! c 2 5d38 2 e3 ! L 5d38 ! c 2 9a55 b executables ! c 3 9a51 1 ! c 2 5d3f 3 *.c ! L 5d3f ! c 2 9a50 a extensions ! c 2 9a4f 8 C_source ! c 2 9a4e 4 name ! c 2 99ca 8 C_source ! c 1 5d54 ! c 0 9a87 4 ! c 2 9a8e 2 e3 ! c 2 9a8d a defaultExe ! c 3 9a90 1 ! c 2 5d61 2 e3 ! L 5d61 ! c 2 9a8f b executables ! c 3 9a8b 1 ! c 2 5d68 3 *.e ! L 5d68 ! c 2 9a8a a extensions ! c 2 9a89 6 Eiffel ! c 2 9a88 4 name ! c 2 99cb 6 Eiffel ! c 1 5d7d ! c 0 9ac1 4 ! c 2 9ac8 2 e3 ! c 2 9ac7 a defaultExe ! c 3 9aca 1 ! c 2 5d8a 2 e3 ! L 5d8a ! c 2 9ac9 b executables ! c 3 9ac5 4 ! c 2 5d91 3 *.F ! L 5d91 ! c 2 5d94 3 *.f ! L 5d94 ! c 2 5d97 5 *.for ! L 5d97 ! c 2 5d9a 5 *.fpp ! L 5d9a ! c 2 9ac4 a extensions ! c 2 9ac3 7 Fortran ! c 2 9ac2 4 name ! c 2 99cc 7 Fortran ! c 1 5daf ! c 0 9b07 4 ! c 2 9b0e 2 e3 ! c 2 9b0d a defaultExe ! c 3 9b10 1 ! c 2 5dbc 2 e3 ! L 5dbc ! c 2 9b0f b executables ! c 3 9b0b 2 ! c 2 5dc3 3 *.H ! L 5dc3 ! c 2 5dc6 3 *.h ! L 5dc6 ! c 2 9b0a a extensions ! c 2 9b09 6 Header ! c 2 9b08 4 name ! c 2 99cd 6 Header ! c 1 5ddb ! c 0 9b45 4 ! c 2 9b4c 9 surfboard ! c 2 9b4b a defaultExe ! c 3 9b4e 2 ! c 2 5de8 2 e3 ! L 5de8 ! c 2 5deb 9 surfboard ! L 5deb ! c 2 9b4d b executables ! c 3 9b49 2 ! c 2 5df2 5 *.htm ! L 5df2 ! c 2 5df5 6 *.html ! L 5df5 ! c 2 9b48 a extensions ! c 2 9b47 4 Html ! c 2 9b46 4 name ! c 2 99ce 4 Html ! c 1 5e0a ! c 0 9b87 4 ! c 2 9b8e 2 e3 ! c 2 9b8d a defaultExe ! c 3 9b90 1 ! c 2 5e17 2 e3 ! L 5e17 ! c 2 9b8f b executables ! c 3 9b8b 1 ! c 2 5e1e 6 *.java ! L 5e1e ! c 2 9b8a a extensions ! c 2 9b89 4 Java ! c 2 9b88 4 name ! c 2 99cf 4 Java ! c 1 5e33 ! c 0 9bc1 4 ! c 2 9bc8 2 e3 ! c 2 9bc7 a defaultExe ! c 3 9bca 1 ! c 2 5e40 2 e3 ! L 5e40 ! c 2 9bc9 b executables ! c 3 9bc5 1 ! c 2 5e47 5 *.tex ! L 5e47 ! c 2 9bc4 a extensions ! c 2 9bc3 5 Latex ! c 2 9bc2 4 name ! c 2 99d0 5 Latex ! c 1 5e5c ! c 0 9bfb 4 ! c 2 9c02 2 e3 ! c 2 9c01 a defaultExe ! c 3 9c04 1 ! c 2 5e69 2 e3 ! L 5e69 ! c 2 9c03 b executables ! c 3 9bff 0 ! c 2 9bfe a extensions ! c 2 9bfd 5 Other ! c 2 9bfc 4 name ! c 2 99d1 5 Other ! c 2 99c6 a categories ! c 0 99d3 1 ! C ProjectDir 4 5e86 ! c 2 5e87 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 5e88 0 0 ! c 2 99d5 1d netscript2/src/perl/XML/DOM2/ ! c 2 99d2 b directories ! C DmBag 5 9535 16 ! c 2 956b cf b ! C DmDictionary 0 9537 3 ! C DmString 1 9549 36 b ! C DmSet 0 5ee4 1 ! C DmString 1 5f12 5 Other ! L 5f12 ! c 1 9548 a categories ! c 1 9539 7 Attr.pm ! c 1 9538 4 name ! C DmInteger 2 954b 1 ! c 1 954a 9 substMode ! c 2 95a0 d7 b ! C DmDictionary 0 956c 3 ! C DmString 1 957e 36 b ! C DmSet 0 5f23 1 ! C DmString 1 5f51 5 Other ! L 5f51 ! c 1 957d a categories ! c 1 956e f CDATASection.pm ! c 1 956d 4 name ! C DmInteger 2 9580 1 ! c 1 957f 9 substMode ! c 2 95d5 d1 b ! C DmDictionary 0 95a1 3 ! C DmString 1 95b3 36 b ! C DmSet 0 93a4 1 ! C DmString 1 951e 5 Other ! L 951e ! c 1 95b2 a categories ! c 1 95a3 9 CHANGELOG ! c 1 95a2 4 name ! C DmInteger 2 95b5 1 ! c 1 95b4 9 substMode ! c 2 960a d9 b ! C DmDictionary 0 95d6 3 ! C DmString 1 95e8 36 b ! C DmSet 0 5f62 1 ! C DmString 1 5f90 5 Other ! L 5f90 ! c 1 95e7 a categories ! c 1 95d8 10 CharacterData.pm ! c 1 95d7 4 name ! C DmInteger 2 95ea 1 ! c 1 95e9 9 substMode ! c 2 963f d2 b ! C DmDictionary 0 960b 3 ! C DmString 1 961d 36 b ! C DmSet 0 5fa1 1 ! C DmString 1 5fcf 5 Other ! L 5fcf ! c 1 961c a categories ! c 1 960d a Comment.pm ! c 1 960c 4 name ! C DmInteger 2 961f 1 ! c 1 961e 9 substMode ! c 2 9674 d7 b ! C DmDictionary 0 9640 3 ! C DmString 1 9652 36 b ! C DmSet 0 5fe0 1 ! C DmString 1 600e 5 Other ! L 600e ! c 1 9651 a categories ! c 1 9642 f DOMException.pm ! c 1 9641 4 name ! C DmInteger 2 9654 1 ! c 1 9653 9 substMode ! c 2 96a9 dd b ! C DmDictionary 0 9675 3 ! C DmString 1 9687 36 b ! C DmSet 0 601f 1 ! C DmString 1 604d 5 Other ! L 604d ! c 1 9686 a categories ! c 1 9677 14 DOMImplementation.pm ! c 1 9676 4 name ! C DmInteger 2 9689 1 ! c 1 9688 9 substMode ! c 2 96de d4 b ! C DmDictionary 0 96aa 3 ! C DmString 1 96bc 36 b ! C DmSet 0 605e 1 ! C DmString 1 608c 5 Other ! L 608c ! c 1 96bb a categories ! c 1 96ac c DOMParser.pm ! c 1 96ab 4 name ! C DmInteger 2 96be 1 ! c 1 96bd 9 substMode ! c 2 9713 da b ! C DmDictionary 0 96df 3 ! C DmString 1 96f1 36 b ! C DmSet 0 609d 1 ! C DmString 1 60cb 5 Other ! L 60cb ! c 1 96f0 a categories ! c 1 96e1 11 DOMParserStyle.pm ! c 1 96e0 4 name ! C DmInteger 2 96f3 1 ! c 1 96f2 9 substMode ! c 2 9748 d3 b ! C DmDictionary 0 9714 3 ! C DmString 1 9726 36 b ! C DmSet 0 60dc 1 ! C DmString 1 610a 5 Other ! L 610a ! c 1 9725 a categories ! c 1 9716 b Document.pm ! c 1 9715 4 name ! C DmInteger 2 9728 1 ! c 1 9727 9 substMode ! c 2 977d dc b ! C DmDictionary 0 9749 3 ! C DmString 1 975b 36 b ! C DmSet 0 611b 1 ! C DmString 1 6149 5 Other ! L 6149 ! c 1 975a a categories ! c 1 974b 13 DocumentFragment.pm ! c 1 974a 4 name ! C DmInteger 2 975d 1 ! c 1 975c 9 substMode ! c 2 97b2 d7 b ! C DmDictionary 0 977e 3 ! C DmString 1 9790 36 b ! C DmSet 0 615a 1 ! C DmString 1 6188 5 Other ! L 6188 ! c 1 978f a categories ! c 1 9780 f DocumentType.pm ! c 1 977f 4 name ! C DmInteger 2 9792 1 ! c 1 9791 9 substMode ! c 2 97e7 d2 b ! C DmDictionary 0 97b3 3 ! C DmString 1 97c5 36 b ! C DmSet 0 6199 1 ! C DmString 1 61c7 5 Other ! L 61c7 ! c 1 97c4 a categories ! c 1 97b5 a Element.pm ! c 1 97b4 4 name ! C DmInteger 2 97c7 1 ! c 1 97c6 9 substMode ! c 2 981c d1 b ! C DmDictionary 0 97e8 3 ! C DmString 1 97fa 36 b ! C DmSet 0 61d8 1 ! C DmString 1 6206 5 Other ! L 6206 ! c 1 97f9 a categories ! c 1 97ea 9 Entity.pm ! c 1 97e9 4 name ! C DmInteger 2 97fc 1 ! c 1 97fb 9 substMode ! c 2 9851 db b ! C DmDictionary 0 981d 3 ! C DmString 1 982f 36 b ! C DmSet 0 6217 1 ! C DmString 1 6245 5 Other ! L 6245 ! c 1 982e a categories ! c 1 981f 12 EntityReference.pm ! c 1 981e 4 name ! C DmInteger 2 9831 1 ! c 1 9830 9 substMode ! c 2 9886 d7 b ! C DmDictionary 0 9852 3 ! C DmString 1 9864 36 b ! C DmSet 0 6256 1 ! C DmString 1 6284 5 Other ! L 6284 ! c 1 9863 a categories ! c 1 9854 f NamedNodeMap.pm ! c 1 9853 4 name ! C DmInteger 2 9866 1 ! c 1 9865 9 substMode ! c 2 98bb cf b ! C DmDictionary 0 9887 3 ! C DmString 1 9899 36 b ! C DmSet 0 6295 1 ! C DmString 1 62c3 5 Other ! L 62c3 ! c 1 9898 a categories ! c 1 9889 7 Node.pm ! c 1 9888 4 name ! C DmInteger 2 989b 1 ! c 1 989a 9 substMode ! c 2 98f0 d3 b ! C DmDictionary 0 98bc 3 ! C DmString 1 98ce 36 b ! C DmSet 0 62d4 1 ! C DmString 1 6302 5 Other ! L 6302 ! c 1 98cd a categories ! c 1 98be b NodeList.pm ! c 1 98bd 4 name ! C DmInteger 2 98d0 1 ! c 1 98cf 9 substMode ! c 2 9925 d3 b ! C DmDictionary 0 98f1 3 ! C DmString 1 9903 36 b ! C DmSet 0 6313 1 ! C DmString 1 6341 5 Other ! L 6341 ! c 1 9902 a categories ! c 1 98f3 b Notation.pm ! c 1 98f2 4 name ! C DmInteger 2 9905 1 ! c 1 9904 9 substMode ! c 2 995a e1 b ! C DmDictionary 0 9926 3 ! C DmString 1 9938 36 b ! C DmSet 0 6352 1 ! C DmString 1 6380 5 Other ! L 6380 ! c 1 9937 a categories ! c 1 9928 18 ProcessingInstruction.pm ! c 1 9927 4 name ! C DmInteger 2 993a 1 ! c 1 9939 9 substMode ! c 2 998f cf b ! C DmDictionary 0 995b 3 ! C DmString 1 996d 36 b ! C DmSet 0 6391 1 ! C DmString 1 63bf 5 Other ! L 63bf ! c 1 996c a categories ! c 1 995d 7 Text.pm ! c 1 995c 4 name ! C DmInteger 2 996f 1 ! c 1 996e 9 substMode ! c 2 99c4 d1 b ! C DmDictionary 0 9990 3 ! C DmString 1 99a2 36 b ! C DmSet 0 63d0 1 ! C DmString 1 63fe 5 Other ! L 63fe ! c 1 99a1 a categories ! c 1 9992 9 notes.txt ! c 1 9991 4 name ! C DmInteger 2 99a4 1 ! c 1 99a3 9 substMode ! c 2 99c5 5 files ! c 2 9531 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 9530 6 launch ! c 2 952d 4 make ! c 2 952c 4 make ! c 2 952f 0 ! c 2 952e 8 makeFile ! c 5 9532 0 ! c 2 9534 7 modules ! c 2 952b 4 DOM2 ! c 2 952a 4 name --- 1,446 ---- b ! C DmDictionary 0 a6e1 8 ! c 0 ac1e 9 ! C Category 1 6234 ! c 0 ac5e 4 ! C DmString 2 ac65 2 e3 ! c 2 ac64 a defaultExe ! C DmSet 3 ac67 1 ! c 2 6243 2 e3 ! L 6243 ! c 2 ac66 b executables ! c 3 ac62 3 ! c 2 624a 3 *.C ! L 624a ! c 2 624d 4 *.cc ! L 624d ! c 2 6250 5 *.cpp ! L 6250 ! c 2 ac61 a extensions ! c 2 ac60 a CPP_source ! c 2 ac5f 4 name ! c 2 ac20 a CPP_source ! c 1 6265 ! c 0 aca4 4 ! c 2 acab 2 e3 ! c 2 acaa a defaultExe ! c 3 acad 1 ! c 2 6272 2 e3 ! L 6272 ! c 2 acac b executables ! c 3 aca8 1 ! c 2 6279 3 *.c ! L 6279 ! c 2 aca7 a extensions ! c 2 aca6 8 C_source ! c 2 aca5 4 name ! c 2 ac21 8 C_source ! c 1 628e ! c 0 acde 4 ! c 2 ace5 2 e3 ! c 2 ace4 a defaultExe ! c 3 ace7 1 ! c 2 629b 2 e3 ! L 629b ! c 2 ace6 b executables ! c 3 ace2 1 ! c 2 62a2 3 *.e ! L 62a2 ! c 2 ace1 a extensions ! c 2 ace0 6 Eiffel ! c 2 acdf 4 name ! c 2 ac22 6 Eiffel ! c 1 62b7 ! c 0 ad18 4 ! c 2 ad1f 2 e3 ! c 2 ad1e a defaultExe ! c 3 ad21 1 ! c 2 62c4 2 e3 ! L 62c4 ! c 2 ad20 b executables ! c 3 ad1c 4 ! c 2 62cb 3 *.F ! L 62cb ! c 2 62ce 3 *.f ! L 62ce ! c 2 62d1 5 *.for ! L 62d1 ! c 2 62d4 5 *.fpp ! L 62d4 ! c 2 ad1b a extensions ! c 2 ad1a 7 Fortran ! c 2 ad19 4 name ! c 2 ac23 7 Fortran ! c 1 62e9 ! c 0 ad5e 4 ! c 2 ad65 2 e3 ! c 2 ad64 a defaultExe ! c 3 ad67 1 ! c 2 62f6 2 e3 ! L 62f6 ! c 2 ad66 b executables ! c 3 ad62 2 ! c 2 62fd 3 *.H ! L 62fd ! c 2 6300 3 *.h ! L 6300 ! c 2 ad61 a extensions ! c 2 ad60 6 Header ! c 2 ad5f 4 name ! c 2 ac24 6 Header ! c 1 6315 ! c 0 ad9c 4 ! c 2 ada3 9 surfboard ! c 2 ada2 a defaultExe ! c 3 ada5 2 ! c 2 6322 2 e3 ! L 6322 ! c 2 6325 9 surfboard ! L 6325 ! c 2 ada4 b executables ! c 3 ada0 2 ! c 2 632c 5 *.htm ! L 632c ! c 2 632f 6 *.html ! L 632f ! c 2 ad9f a extensions ! c 2 ad9e 4 Html ! c 2 ad9d 4 name ! c 2 ac25 4 Html ! c 1 6344 ! c 0 adde 4 ! c 2 ade5 2 e3 ! c 2 ade4 a defaultExe ! c 3 ade7 1 ! c 2 6351 2 e3 ! L 6351 ! c 2 ade6 b executables ! c 3 ade2 1 ! c 2 6358 6 *.java ! L 6358 ! c 2 ade1 a extensions ! c 2 ade0 4 Java ! c 2 addf 4 name ! c 2 ac26 4 Java ! c 1 636d ! c 0 ae18 4 ! c 2 ae1f 2 e3 ! c 2 ae1e a defaultExe ! c 3 ae21 1 ! c 2 637a 2 e3 ! L 637a ! c 2 ae20 b executables ! c 3 ae1c 1 ! c 2 6381 5 *.tex ! L 6381 ! c 2 ae1b a extensions ! c 2 ae1a 5 Latex ! c 2 ae19 4 name ! c 2 ac27 5 Latex ! c 1 6396 ! c 0 ae52 4 ! c 2 ae59 2 e3 ! c 2 ae58 a defaultExe ! c 3 ae5b 1 ! c 2 63a3 2 e3 ! L 63a3 ! c 2 ae5a b executables ! c 3 ae56 0 ! c 2 ae55 a extensions ! c 2 ae54 5 Other ! c 2 ae53 4 name ! c 2 ac28 5 Other ! c 2 ac1d a categories ! c 0 ac2a 1 ! C ProjectDir 4 63c0 ! c 2 63c1 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 63c2 0 0 ! c 2 ac2c 1d netscript2/src/perl/XML/DOM2/ ! c 2 ac29 b directories ! C DmBag 5 a6ed 19 ! c 2 a723 cf b ! C DmDictionary 0 a6ef 3 ! C DmString 1 a701 36 b ! C DmSet 0 6424 1 ! C DmString 1 6452 5 Other ! L 6452 ! c 1 a700 a categories ! c 1 a6f1 7 Attr.pm ! c 1 a6f0 4 name ! C DmInteger 2 a703 1 ! c 1 a702 9 substMode ! c 2 a758 d7 b ! C DmDictionary 0 a724 3 ! C DmString 1 a736 36 b ! C DmSet 0 6463 1 ! C DmString 1 6491 5 Other ! L 6491 ! c 1 a735 a categories ! c 1 a726 f CDATASection.pm ! c 1 a725 4 name ! C DmInteger 2 a738 1 ! c 1 a737 9 substMode ! c 2 a78d d1 b ! C DmDictionary 0 a759 3 ! C DmString 1 a76b 36 b ! C DmSet 0 64a2 1 ! C DmString 1 64d0 5 Other ! L 64d0 ! c 1 a76a a categories ! c 1 a75b 9 CHANGELOG ! c 1 a75a 4 name ! C DmInteger 2 a76d 1 ! c 1 a76c 9 substMode ! c 2 a7c2 d9 b ! C DmDictionary 0 a78e 3 ! C DmString 1 a7a0 36 b ! C DmSet 0 64e1 1 ! C DmString 1 650f 5 Other ! L 650f ! c 1 a79f a categories ! c 1 a790 10 CharacterData.pm ! c 1 a78f 4 name ! C DmInteger 2 a7a2 1 ! c 1 a7a1 9 substMode ! c 2 a7f7 d2 b ! C DmDictionary 0 a7c3 3 ! C DmString 1 a7d5 36 b ! C DmSet 0 6520 1 ! C DmString 1 654e 5 Other ! L 654e ! c 1 a7d4 a categories ! c 1 a7c5 a Comment.pm ! c 1 a7c4 4 name ! C DmInteger 2 a7d7 1 ! c 1 a7d6 9 substMode ! c 2 a82c d7 b ! C DmDictionary 0 a7f8 3 ! C DmString 1 a80a 36 b ! C DmSet 0 655f 1 ! C DmString 1 658d 5 Other ! L 658d ! c 1 a809 a categories ! c 1 a7fa f DOMException.pm ! c 1 a7f9 4 name ! C DmInteger 2 a80c 1 ! c 1 a80b 9 substMode ! c 2 a861 dd b ! C DmDictionary 0 a82d 3 ! C DmString 1 a83f 36 b ! C DmSet 0 659e 1 ! C DmString 1 65cc 5 Other ! L 65cc ! c 1 a83e a categories ! c 1 a82f 14 DOMImplementation.pm ! c 1 a82e 4 name ! C DmInteger 2 a841 1 ! c 1 a840 9 substMode ! c 2 a896 d4 b ! C DmDictionary 0 a862 3 ! C DmString 1 a874 36 b ! C DmSet 0 65dd 1 ! C DmString 1 660b 5 Other ! L 660b ! c 1 a873 a categories ! c 1 a864 c DOMParser.pm ! c 1 a863 4 name ! C DmInteger 2 a876 1 ! c 1 a875 9 substMode ! c 2 a8cb da b ! C DmDictionary 0 a897 3 ! C DmString 1 a8a9 36 b ! C DmSet 0 661c 1 ! C DmString 1 664a 5 Other ! L 664a ! c 1 a8a8 a categories ! c 1 a899 11 DOMParserStyle.pm ! c 1 a898 4 name ! C DmInteger 2 a8ab 1 ! c 1 a8aa 9 substMode ! c 2 a900 d4 b ! C DmDictionary 0 a8cc 3 ! C DmString 1 a8de 36 b ! C DmSet 0 665b 1 ! C DmString 1 6689 5 Other ! L 6689 ! c 1 a8dd a categories ! c 1 a8ce c DOMWriter.pm ! c 1 a8cd 4 name ! C DmInteger 2 a8e0 1 ! c 1 a8df 9 substMode ! c 2 a935 da b ! C DmDictionary 0 a901 3 ! C DmString 1 a913 36 b ! C DmSet 0 669a 1 ! C DmString 1 66c8 5 Other ! L 66c8 ! c 1 a912 a categories ! c 1 a903 11 DOMWriterStyle.pm ! c 1 a902 4 name ! C DmInteger 2 a915 1 ! c 1 a914 9 substMode ! c 2 a96a d3 b ! C DmDictionary 0 a936 3 ! C DmString 1 a948 36 b ! C DmSet 0 66d9 1 ! C DmString 1 6707 5 Other ! L 6707 ! c 1 a947 a categories ! c 1 a938 b Document.pm ! c 1 a937 4 name ! C DmInteger 2 a94a 1 ! c 1 a949 9 substMode ! c 2 a99f dc b ! C DmDictionary 0 a96b 3 ! C DmString 1 a97d 36 b ! C DmSet 0 6718 1 ! C DmString 1 6746 5 Other ! L 6746 ! c 1 a97c a categories ! c 1 a96d 13 DocumentFragment.pm ! c 1 a96c 4 name ! C DmInteger 2 a97f 1 ! c 1 a97e 9 substMode ! c 2 a9d4 d7 b ! C DmDictionary 0 a9a0 3 ! C DmString 1 a9b2 36 b ! C DmSet 0 6757 1 ! C DmString 1 6785 5 Other ! L 6785 ! c 1 a9b1 a categories ! c 1 a9a2 f DocumentType.pm ! c 1 a9a1 4 name ! C DmInteger 2 a9b4 1 ! c 1 a9b3 9 substMode ! c 2 aa09 d2 b ! C DmDictionary 0 a9d5 3 ! C DmString 1 a9e7 36 b ! C DmSet 0 6796 1 ! C DmString 1 67c4 5 Other ! L 67c4 ! c 1 a9e6 a categories ! c 1 a9d7 a Element.pm ! c 1 a9d6 4 name ! C DmInteger 2 a9e9 1 ! c 1 a9e8 9 substMode ! c 2 aa3e d1 b ! C DmDictionary 0 aa0a 3 ! C DmString 1 aa1c 36 b ! C DmSet 0 67d5 1 ! C DmString 1 6803 5 Other ! L 6803 ! c 1 aa1b a categories ! c 1 aa0c 9 Entity.pm ! c 1 aa0b 4 name ! C DmInteger 2 aa1e 1 ! c 1 aa1d 9 substMode ! c 2 aa73 db b ! C DmDictionary 0 aa3f 3 ! C DmString 1 aa51 36 b ! C DmSet 0 6814 1 ! C DmString 1 6842 5 Other ! L 6842 ! c 1 aa50 a categories ! c 1 aa41 12 EntityReference.pm ! c 1 aa40 4 name ! C DmInteger 2 aa53 1 ! c 1 aa52 9 substMode ! c 2 aaa8 d7 b ! C DmDictionary 0 aa74 3 ! C DmString 1 aa86 36 b ! C DmSet 0 6853 1 ! C DmString 1 6881 5 Other ! L 6881 ! c 1 aa85 a categories ! c 1 aa76 f NamedNodeMap.pm ! c 1 aa75 4 name ! C DmInteger 2 aa88 1 ! c 1 aa87 9 substMode ! c 2 aadd cf b ! C DmDictionary 0 aaa9 3 ! C DmString 1 aabb 36 b ! C DmSet 0 6892 1 ! C DmString 1 68c0 5 Other ! L 68c0 ! c 1 aaba a categories ! c 1 aaab 7 Node.pm ! c 1 aaaa 4 name ! C DmInteger 2 aabd 1 ! c 1 aabc 9 substMode ! c 2 ab12 d3 b ! C DmDictionary 0 aade 3 ! C DmString 1 aaf0 36 b ! C DmSet 0 68d1 1 ! C DmString 1 68ff 5 Other ! L 68ff ! c 1 aaef a categories ! c 1 aae0 b NodeList.pm ! c 1 aadf 4 name ! C DmInteger 2 aaf2 1 ! c 1 aaf1 9 substMode ! c 2 ab47 d3 b ! C DmDictionary 0 ab13 3 ! C DmString 1 ab25 36 b ! C DmSet 0 6910 1 ! C DmString 1 693e 5 Other ! L 693e ! c 1 ab24 a categories ! c 1 ab15 b Notation.pm ! c 1 ab14 4 name ! C DmInteger 2 ab27 1 ! c 1 ab26 9 substMode ! c 2 ab7c e1 b ! C DmDictionary 0 ab48 3 ! C DmString 1 ab5a 36 b ! C DmSet 0 694f 1 ! C DmString 1 697d 5 Other ! L 697d ! c 1 ab59 a categories ! c 1 ab4a 18 ProcessingInstruction.pm ! c 1 ab49 4 name ! C DmInteger 2 ab5c 1 ! c 1 ab5b 9 substMode ! c 2 abb1 cf b ! C DmDictionary 0 ab7d 3 ! C DmString 1 ab8f 36 b ! C DmSet 0 698e 1 ! C DmString 1 69bc 5 Other ! L 69bc ! c 1 ab8e a categories ! c 1 ab7f 7 Text.pm ! c 1 ab7e 4 name ! C DmInteger 2 ab91 1 ! c 1 ab90 9 substMode ! c 2 abe6 dd b ! C DmDictionary 0 abb2 3 ! C DmString 1 abc4 36 b ! C DmSet 0 a55c 1 ! C DmString 1 a6d6 5 Other ! L a6d6 ! c 1 abc3 a categories ! c 1 abb4 14 XMLDOMWriterStyle.pm ! c 1 abb3 4 name ! C DmInteger 2 abc6 1 ! c 1 abc5 9 substMode ! c 2 ac1b d1 b ! C DmDictionary 0 abe7 3 ! C DmString 1 abf9 36 b ! C DmSet 0 69cd 1 ! C DmString 1 69fb 5 Other ! L 69fb ! c 1 abf8 a categories ! c 1 abe9 9 notes.txt ! c 1 abe8 4 name ! C DmInteger 2 abfb 1 ! c 1 abfa 9 substMode ! c 2 ac1c 5 files ! c 2 a6e9 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 a6e8 6 launch ! c 2 a6e5 4 make ! c 2 a6e4 4 make ! c 2 a6e7 0 ! c 2 a6e6 8 makeFile ! c 5 a6ea 0 ! c 2 a6ec 7 modules ! c 2 a6e3 4 DOM2 ! c 2 a6e2 4 name |
|
From: Jan T. <de...@us...> - 2002-03-10 14:54:24
|
Update of /cvsroot/net-script/netscript2/docs/ipdoc
In directory usw-pr-cvs1:/tmp/cvs-serv4995
Added Files:
README.txt wipeout.project
Log Message:
* added documentation for IPdoc
--- NEW FILE: README.txt ---
/---------------------------------------------------------------------\
| $Id: README.txt,v 1.1 2002/03/10 14:49:44 derkork Exp $
| IPdoc and all related materials, such as documentation,
| are protected under the terms and conditions of the Artistic License.
|
| (C) 2000 - 2001 by Jan Thomä, insOMnia (ko...@in...)
\---------------------------------------------------------------------/
IPdoc Documentation
-------------------
Welcome and thanks for downloading IPdoc the insOMnia perl documenting system.
Small programs should require small documentation, that's what goes for IPdoc.
So here it is:
1. What is IPdoc
----------------
IPdoc is a system for documenting object oriented perl code. It currently
only works for files wich contain classes (and therefore have a pm extension).
It scans all files in a given directory and it's subdirectories for pm-files.
Then it generates a documentation for all these files. It works much like
javadoc for Java does. The documentation is rendered to HTML and can then
be browsed with any browser.
2. Why IPdoc ? Isn't POD enough ?
---------------------------------
POD has some disadvantages, which I didn't like. First it screws up your code.
While perl is hard to read anyway, putting POD-Stuff into your files makes
it nearly impossible to read. Next is POD doesn't know anything about the
perl language. It's a good formatting tool but you have to take care about
your subs and classes. POD won't do this. Third is, POD is quite outdated. HTML
is much more flexible in design and possibilities. Also HTML is more compatible
than POD (ever tried to read POD under Windows ?). Therefore I decided to
do IPdoc. IPdoc knows about subs and classes and automatically parses your
source for them. Then it generates the code for your classes and subs. It also
generates crosslinks between related classes.
3. Kewl! How do i use this thingie ?
-------------------------------------
Easy, really. Just say:
perl ipdoc.pl -f sourceDirectory[,sourceDirectory] [-d destinationDirectory]
[-t title]
As sourceDirectory specify the directory where your perl sources are located.
All subdirectories are automatically parsed. As destinationDirectory specify
the directory where the generated HTML should be placed. If none is specified
the current directory will receive the generated HTML. Optionally you can
set a title for your documentation.
4. How do I have to format the source ?
---------------------------------------
IPdoc like POD needs some special formatting in the source. However this is
much easier than POD and also looks better so your code isn't screwed up.
IPdoc documentation is done via special formatted comments. An IPdoc
documentation comment looks much like a javadoc documentation comment.
It starts with #/** and ends with #*/. Then end tag must be on a separate line.
An example:
#/**
# This is an example documentation comment.
# This sub does this and that....
#*/
sub someSub {
...
}
This is a documentation comment for the sub "someSub". The documentation comment
always documents the sub which follows it. You can add special tags to your
documentation. These tags are:
@param description - a parameter for the sub
@optional description - an optional parameter for the sub
@not-implemented - states that this sub is not yet implemented
@not-standard - states that this sub does not comply to or isn't part of
a standard
@return description - the return value of the sub
@public - marks this sub as public useable
@private - marks this sub as private (should not be used from outside)
@abstract - marks this implementation as abstract (should be overridden by
subclasses)
@fixme description - states a bug in the sub, yet to be fixed
@note description - adds an implementation note
@author name - sets the author of the sub
@version - sets the version of the sub
So a complete documentation comment could look like:
#/**
# This sub does ... bla bla bla
# bla bla bla
# ...
# @param the name of your mother
# @return the name of your father
# @public
# @fixme error when you don't have a father
# @note this one is quite senseless
# @version 1.0
# @author Kork of insOMnia
#*/
sub senselessSub {
...
}
4. How is the classname and the inheritance found ?
----------------------------------------------------
The class/package name is determined by the package-statement in your file.
IPdoc looks for a line "package MyPackage::MyClass", which will be used to
extract the packge name. Inheritance is determined by the "use base" -
statement.
5. That's quite cool but I miss a feature !
-------------------------------------------
Aye, most possible. I developed this to suit my needs. If you need additional
features please tell me! I'll be glad to add them! Send bugs, features,
comments, questions etc. to ko...@in... .
Now that's it! Go and try it!
Jan
--- NEW FILE: wipeout.project ---
b
C DmDictionary 0 9d70 8
c 0 9db5 9
C Category 1 1d9a
c 0 9de9 4
C DmString 2 9df0 2 e3
c 2 9def a defaultExe
C DmSet 3 9df2 1
c 2 1da9 2 e3
L 1da9
c 2 9df1 b executables
c 3 9ded 3
c 2 1db0 3 *.C
L 1db0
c 2 1db3 4 *.cc
L 1db3
c 2 1db6 5 *.cpp
L 1db6
c 2 9dec a extensions
c 2 9deb a CPP_source
c 2 9dea 4 name
c 2 9db7 a CPP_source
c 1 1dcb
c 0 9e2f 4
c 2 9e36 2 e3
c 2 9e35 a defaultExe
c 3 9e38 1
c 2 1dd8 2 e3
L 1dd8
c 2 9e37 b executables
c 3 9e33 1
c 2 1ddf 3 *.c
L 1ddf
c 2 9e32 a extensions
c 2 9e31 8 C_source
c 2 9e30 4 name
c 2 9db8 8 C_source
c 1 1df4
c 0 9e69 4
c 2 9e70 2 e3
c 2 9e6f a defaultExe
c 3 9e72 1
c 2 1e01 2 e3
L 1e01
c 2 9e71 b executables
c 3 9e6d 1
c 2 1e08 3 *.e
L 1e08
c 2 9e6c a extensions
c 2 9e6b 6 Eiffel
c 2 9e6a 4 name
c 2 9db9 6 Eiffel
c 1 1e1d
c 0 9ea3 4
c 2 9eaa 2 e3
c 2 9ea9 a defaultExe
c 3 9eac 1
c 2 1e2a 2 e3
L 1e2a
c 2 9eab b executables
c 3 9ea7 4
c 2 1e31 3 *.F
L 1e31
c 2 1e34 3 *.f
L 1e34
c 2 1e37 5 *.for
L 1e37
c 2 1e3a 5 *.fpp
L 1e3a
c 2 9ea6 a extensions
c 2 9ea5 7 Fortran
c 2 9ea4 4 name
c 2 9dba 7 Fortran
c 1 1e4f
c 0 9ee9 4
c 2 9ef0 2 e3
c 2 9eef a defaultExe
c 3 9ef2 1
c 2 1e5c 2 e3
L 1e5c
c 2 9ef1 b executables
c 3 9eed 2
c 2 1e63 3 *.H
L 1e63
c 2 1e66 3 *.h
L 1e66
c 2 9eec a extensions
c 2 9eeb 6 Header
c 2 9eea 4 name
c 2 9dbb 6 Header
c 1 1e7b
c 0 9f27 4
c 2 9f2e 9 surfboard
c 2 9f2d a defaultExe
c 3 9f30 2
c 2 1e88 2 e3
L 1e88
c 2 1e8b 9 surfboard
L 1e8b
c 2 9f2f b executables
c 3 9f2b 2
c 2 1e92 5 *.htm
L 1e92
c 2 1e95 6 *.html
L 1e95
c 2 9f2a a extensions
c 2 9f29 4 Html
c 2 9f28 4 name
c 2 9dbc 4 Html
c 1 1eaa
c 0 9f69 4
c 2 9f70 2 e3
c 2 9f6f a defaultExe
c 3 9f72 1
c 2 1eb7 2 e3
L 1eb7
c 2 9f71 b executables
c 3 9f6d 1
c 2 1ebe 6 *.java
L 1ebe
c 2 9f6c a extensions
c 2 9f6b 4 Java
c 2 9f6a 4 name
c 2 9dbd 4 Java
c 1 1ed3
c 0 9fa3 4
c 2 9faa 2 e3
c 2 9fa9 a defaultExe
c 3 9fac 1
c 2 1ee0 2 e3
L 1ee0
c 2 9fab b executables
c 3 9fa7 1
c 2 1ee7 5 *.tex
L 1ee7
c 2 9fa6 a extensions
c 2 9fa5 5 Latex
c 2 9fa4 4 name
c 2 9dbe 5 Latex
c 1 1efc
c 0 9fdd 4
c 2 9fe4 2 e3
c 2 9fe3 a defaultExe
c 3 9fe6 1
c 2 1f09 2 e3
L 1f09
c 2 9fe5 b executables
c 3 9fe1 0
c 2 9fe0 a extensions
c 2 9fdf 5 Other
c 2 9fde 4 name
c 2 9dbf 5 Other
c 2 9db4 a categories
c 0 9dc1 1
C ProjectDir 4 1f26
c 2 1f27 16 netscript2/docs/ipdoc/ 11 81
c 2 1f28 0 0
c 2 9dc3 16 netscript2/docs/ipdoc/
c 2 9dc0 b directories
C DmBag 5 9d7c 1
c 2 9db2 d2 b
C DmDictionary 0 9d7e 3
C DmString 1 9d90 36 b
C DmSet 0 9bf3 1
C DmString 1 9d65 5 Other
L 9d65
c 1 9d8f a categories
c 1 9d80 a README.txt
c 1 9d7f 4 name
C DmInteger 2 9d92 1
c 1 9d91 9 substMode
c 2 9db3 5 files
c 2 9d78 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']"
c 2 9d77 6 launch
c 2 9d74 4 make
c 2 9d73 4 make
c 2 9d76 0
c 2 9d75 8 makeFile
c 5 9d79 0
c 2 9d7b 7 modules
c 2 9d72 5 ipdoc
c 2 9d71 4 name
|
|
From: Jan T. <de...@us...> - 2002-03-10 14:54:21
|
Update of /cvsroot/net-script/netscript2 In directory usw-pr-cvs1:/tmp/cvs-serv5243 Modified Files: Makefile Makefile.files Log Message: * added make-scripts for IPdoc Index: Makefile =================================================================== RCS file: /cvsroot/net-script/netscript2/Makefile,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Makefile 3 Feb 2002 22:54:03 -0000 1.6 --- Makefile 10 Mar 2002 14:50:28 -0000 1.7 *************** *** 12,16 **** #------------------------------------------------ perl_syncheck: ! $(foreach perlfile, $(Perl), perl -Isrc/perl -c $(perlfile);) # Target for installing all perl files --- 12,16 ---- #------------------------------------------------ perl_syncheck: ! $(foreach perlfile, $(Perl), perl -Isrc/perl -Isrc/tools -c $(perlfile);) # Target for installing all perl files *************** *** 72,82 **** -mkdir snapshots mv netscript_$(VERSION).tar.gz snapshots # Creates a package for DOM2 #--------------------------- ! package_dom2: -rm -rf xmldom2_$(VERSION_DOM2) mkdir -p xmldom2_$(VERSION_DOM2)/XML/DOM2 cp -r $(DOM2_DIR)/* xmldom2_$(VERSION_DOM2)/XML/DOM2 rm -rf `find xmldom2_$(VERSION_DOM2) -type d | grep CVS` tar -cvzf xmldom2_$(VERSION_DOM2).tar.gz xmldom2_$(VERSION_DOM2) --- 72,90 ---- -mkdir snapshots mv netscript_$(VERSION).tar.gz snapshots + + # Creates docs for DOM2 + #--------------------------- + docs_dom2: + -rm -rf docs/xmldom2 + perl -Isrc/tools src/tools/ipdoc.pl -d ./docs/xmldom2 -f src/perl/XML -t "XML::DOM2-Documentation" # Creates a package for DOM2 #--------------------------- ! package_dom2: docs_dom2 -rm -rf xmldom2_$(VERSION_DOM2) mkdir -p xmldom2_$(VERSION_DOM2)/XML/DOM2 + mkdir -p xmldom2_$(VERSION_DOM2)/docs cp -r $(DOM2_DIR)/* xmldom2_$(VERSION_DOM2)/XML/DOM2 + cp -r docs/xmldom2/* xmldom2_$(VERSION_DOM2)/docs rm -rf `find xmldom2_$(VERSION_DOM2) -type d | grep CVS` tar -cvzf xmldom2_$(VERSION_DOM2).tar.gz xmldom2_$(VERSION_DOM2) *************** *** 84,85 **** --- 92,109 ---- -mkdir snapshots_dom2 mv xmldom2_$(VERSION_DOM2).tar.gz snapshots_dom2 + + # Creates a package for IPdoc + #---------------------------- + package_ipdoc: + -rm -rf ipdoc_$(VERSION_IPDOC) + mkdir -p ipdoc_$(VERSION_IPDOC)/docs + cp src/tools/ipdoc.pl ipdoc_$(VERSION_IPDOC) + cp -r src/tools/IPdoc ipdoc_$(VERSION_IPDOC) + cp -r docs/ipdoc ipdoc_$(VERSION_IPDOC) + tar -czvf ipdoc_$(VERSION_IPDOC).tar.gz ipdoc_$(VERSION_IPDOC) + rm -rf ipdoc_$(VERSION_IPDOC) + -mkdir snapshots_ipdoc + mv ipdoc_$(VERSION_IPDOC).tar.gz snapshots_ipdoc + + + Index: Makefile.files =================================================================== RCS file: /cvsroot/net-script/netscript2/Makefile.files,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Makefile.files 3 Feb 2002 22:54:03 -0000 1.6 --- Makefile.files 10 Mar 2002 14:50:28 -0000 1.7 *************** *** 35,38 **** TOOLS_Tree = $(subst ./,,$(shell cd $(TOOLS_SourceDir);find ./ -type d | grep -v "CVS")) VERSION=2.0 ! VERSION_DOM2=0.1.2alpha --- 35,39 ---- TOOLS_Tree = $(subst ./,,$(shell cd $(TOOLS_SourceDir);find ./ -type d | grep -v "CVS")) VERSION=2.0 ! VERSION_DOM2=0.1.3alpha ! VERSION_IPDOC=1.0 |
|
From: Jan T. <de...@us...> - 2002-03-10 13:44:24
|
Update of /cvsroot/net-script/netscript2/docs/ipdoc In directory usw-pr-cvs1:/tmp/cvs-serv17756 Log Message: Status: Vendor Tag: tag1 Release Tags: tag2 No conflicts created by this import ***** Bogus filespec: - Imported sources |
|
From: Jan T. <de...@us...> - 2002-02-05 23:08:14
|
Update of /cvsroot/net-script/netscript2/src/tools/IPdoc
In directory usw-pr-cvs1:/tmp/cvs-serv17562
Modified Files:
NSDoclet.pm
Log Message:
* made look javadoc-like
* fixed (???) infinite loop
Index: NSDoclet.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/IPdoc/NSDoclet.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** NSDoclet.pm 2002/02/05 00:30:37 1.1
--- NSDoclet.pm 2002/02/05 23:08:10 1.2
***************
*** 44,48 ****
sub renderHead {
my ($this, $title) = @_;
! "<html><head><title>$title</title></head><body>";
}
--- 44,48 ----
sub renderHead {
my ($this, $title) = @_;
! "<html><head><title>$title</title></head><body bgcolor=\"#ffffff\">";
}
***************
*** 71,77 ****
--- 71,82 ----
my @classlist = ();
my $parent = $class -> parent();;
+ my %theClasses = ();
+
while (defined($parent)) {
+ last if $theClasses{$parent -> name()};
unshift(@classlist, $parent);
+ $theClasses{$parent ->name()} = $parent ->name();
$parent = $parent -> parent();
+
}
push (@classlist, $class);
***************
*** 83,89 ****
$result .= " " x $indent;
$result .="|___+- ";
! $result .="<a href=\"".$parent -> relativeFileName()."\">" if $parent -> relativeFileName();
$result .= $parent -> name();
! $result .= "</a>" if $parent -> relativeFileName();
$result .= "\n";
$indent += 4;
--- 88,94 ----
$result .= " " x $indent;
$result .="|___+- ";
! $result .="<a href=\"".$class -> relativeFileName().$parent->fullFileName()."\">" if $parent -> fullFileName();
$result .= $parent -> name();
! $result .= "</a>" if $parent -> fullFileName();
$result .= "\n";
$indent += 4;
***************
*** 98,101 ****
--- 103,119 ----
}
$result .= "<h1>Class $classname</h1><small>extends $parentName</small><br><br>";
+
+ my @subclasses = @{$class -> subClasses()};
+
+ $result .= "<b>Direct known subclasses: </b>" if scalar @subclasses;
+ for (@subclasses) {
+ my $scName = $_ -> name();
+ my $scHref = $class -> relativeFileName() . $_ -> fullFileName();
+ $result .= "<a href=\"$scHref\">$scName</a>, ";
+ }
+ # remove trailing comma
+ $result =~ s/, $//;
+
+ $result .= "<br><br>";
$result .= $class -> comment() ."<br><br>";
$result .= "<br><br>". $this -> renderParams($class -> params());
***************
*** 176,183 ****
$result;
}
-
!
--- 194,273 ----
$result;
}
! #/**
! # Renders a package information for the given package. This is plainly
! # a list of all classes in this package.
! # @param a list reference containing all known classes
! # @param the package name for which the information should be rendered
! # @return the rendered string
! #*/
! sub renderPackage {
! my ($this, $listRef, $packageName) = @_;
! my @list = @{$listRef};
!
! my $result = "<html><body bgcolor=\"#ffffff\"><h3>$packageName</h3>";
! for (@list) {
! my $href = $_ -> fullFileName();
! my $name = $_ -> name();
! my $regex = '^'.$packageName.'::[^:]+$';
! if ($name =~ /$regex/) {
! $regex = $packageName."::";
! $name =~ s/$regex//;
! $result .= "<a href=\"$href\" target=\"mainFrame\">$name</a><br>";
! }
! }
! $result .= "</body></html>";
! $result;
! }
+ #/**
+ # Renders a list of all packages.
+ # @param a list reference containing all packages
+ # @param the filename format string for the package
+ # files (eg. pkg_[PKNAME].html)
+ # @return the rendered string
+ #*/
+ sub renderPackageList {
+ my ($this, $listRef, $fmtString) = @_;
+ my $result = "<html><body bgcolor=\"#ffffff\"><h3>All Packages</h3>";
+
+ for (@{$listRef}) {
+ my $name = $_;
+ $name =~ s/:/_/g;
+ my $href = $fmtString;
+ $href =~ s/\[PKNAME\]/$name/e;
+ $result .= "<a href=\"$href\" target=\"pkgFrame\">$_</a><br>";
+ }
+ $result .= "</body></html>";
+ $result;
+ }
+
+ #/**
+ # Renders the Frameset.
+ # @param filename for the main frame
+ # @param filename for the all packages frame
+ # @param filename for the package contents frame
+ # @return the rendered frameset
+ #*/
+ sub renderFrameset {
+ my ($this, $main, $pkg, $pkgcnt) = @_;
+ my $result = "<html><frameset cols=\"20%,80%\"><frameset rows=\"30%,70%\">";
+ $result .= "<frame src=\"$pkg\" name=\"allPkgFrame\">";
+ $result .= "<frame src=\"$pkgcnt\" name = \"pkgFrame\">";
+ $result .= "</frameset>";
+ $result .= "<frame src=\"$main\" name=\"mainFrame\">";
+ $result .= "</frameset></html>";
+ $result;
+ }
+ #/**
+ # Renders the main Page.
+ # @param a title
+ # @return the rendered string
+ #*/
+ sub renderMainPage {
+ my ($this, $title) = @_;
+ my $result = "<html><body bgcolor=\"#ffffff\"><h1>$title</h1></body></html>";
+ $result;
+ }
|
|
From: Jan T. <de...@us...> - 2002-02-05 23:07:24
|
Update of /cvsroot/net-script/netscript2/src/tools/IPdoc
In directory usw-pr-cvs1:/tmp/cvs-serv17252
Modified Files:
IPdoc.pm
Log Message:
* finished
Index: IPdoc.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/IPdoc/IPdoc.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** IPdoc.pm 2002/02/05 00:30:37 1.2
--- IPdoc.pm 2002/02/05 23:07:21 1.3
***************
*** 42,45 ****
--- 42,46 ----
$this -> { m_fileList } = \@fileList;
$this -> { m_baseDirs } = \@baseDirs;
+ $this -> { m_title } = "IPdoc Perl Documentation";
$this;
}
***************
*** 53,56 ****
--- 54,58 ----
# destination - the destination directory into which the
# documentation should be placed
+ # title - (optional) the title for the documentation
# @public
#*/
***************
*** 58,67 ****
--- 60,75 ----
my ($this, $paramRef) = @_;
$this -> { m_destDir } = $paramRef -> { "destination" };
+ if ( defined($paramRef -> { "title"})) {
+ $this -> { m_title } = $paramRef -> { "title" };
+ }
my @fileList = split(/,/, $paramRef -> {"files"});
+ print "Loading files...\n";
for (@fileList) {
$this -> loadFiles($_);
}
+ print "Loaded ". scalar @{$this -> { m_fileList}} . " files...\n";
my %classes = ();
+ print "Processing files...\n";
while (@{$this -> { m_fileList }}) {
my $fileName = shift @{$this -> {m_fileList}};
***************
*** 70,74 ****
--- 78,84 ----
$classes{$class->name()} = $class;
}
+
+ print "Processing class hierarchy...\n";
# now create a hierarchy
for ( values(%classes)) {
***************
*** 89,96 ****
--- 99,113 ----
}
}
+ print "Writing documentation...\n";
# now we can render the classes to the destination directory
for ( values(%classes) ) {
$this -> renderClass( $_ ) ;
}
+
+ print "Writing navigation...\n";
+ # now lets render some navigation
+ my @theClasses = values(%classes);
+ $this -> renderNavigation( \@theClasses );
+ print "Complete.\n";
}
***************
*** 105,108 ****
--- 122,129 ----
my $baseDir = "";
my @fileList = ();
+ unless ( -e $file) {
+ print "File or directory \"$file\" does not exist. Skipping...\n";
+ return;
+ }
if ( -d $file ) {
$baseDir = $file;
***************
*** 241,245 ****
--- 262,320 ----
#/**
+ # Renders the navigation.
+ # @param a list of all known classes
+ #*/
+ sub renderNavigation {
+ my ($this, $listRef) = @_;
+
+ my $dir = $this -> { m_destDir }; # this is created at this time
+ my $doclet = $this -> { m_doclet } -> new ($VERSION);
+
+ # render the package list
+ # we need all packages
+ my %packages = ();
+ for (@{$listRef}) {
+ my $name = $_ -> name();
+ #cut away classname
+ $name =~ s/::[^:]+$//;
+ $packages{$name} = $name;
+ }
+ #now we got all packages and sort them ASCII
+ my @allPackages = sort { $a cmp $b } keys %packages;
+
+ #next is sorting all classes by their names
+
+ my @allClasses = sort { $a -> name() cmp $b -> name() } @{$listRef};
+ #now we create a html-file for each package
+ my $firstPackage = "";
+ for ( @allPackages ) {
+ my $name = $_;
+ $name =~ s/:/_/g;
+ $firstPackage = "pkg_$name.html" if $firstPackage eq "";
+ open (AFILE, ">$dir/pkg_$name.html");
+ print AFILE $doclet -> renderPackage( \@allClasses, $_ );
+ close (AFILE);
+ }
+
+ #now we create the file which holds all packages
+ open (AFILE, ">$dir/all_packages.html");
+ print AFILE $doclet -> renderPackageList( \@allPackages, "pkg_[PKNAME].html" );
+ close(AFILE);
+
+ #next is the main frame
+ open (AFILE, ">$dir/main.html");
+ print AFILE $doclet -> renderMainPage( $this -> { m_title } );
+ close( AFILE);
+
+ #last is the frameset
+ open( AFILE, ">$dir/index.html" );
+ print AFILE $doclet -> renderFrameset("main.html", "all_packages.html", $firstPackage);
+ close(AFILE);
+ }
+
+
+ #/**
# Convenience function. Creates all subdirectories.
+ # @param a string holding a directory path
#*/
sub mkdirs {
|
|
From: Jan T. <de...@us...> - 2002-02-05 23:06:48
|
Update of /cvsroot/net-script/netscript2/src/tools/IPdoc
In directory usw-pr-cvs1:/tmp/cvs-serv17035
Modified Files:
Class.pm
Log Message:
* fixed relative paths
* added subclasses list
Index: Class.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/IPdoc/Class.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Class.pm 2002/02/05 00:30:37 1.1
--- Class.pm 2002/02/05 23:06:45 1.2
***************
*** 35,41 ****
--- 35,43 ----
my @params = ();
my @paramValues = ();
+ my @subclasses = ();
$this -> { m_subs } = \@subs;
$this -> { m_params } = \@params;
$this -> { m_paramValues } = \@paramValues;
+ $this -> { m_subclasses } = \@subclasses;
$this;
}
***************
*** 103,108 ****
my $relativeName = $filename;
$relativeName =~ s/\.pm$/\.html/;
! $relativeName =~ s/\/[^\/]+\//\/..\//g;
$relativeName =~ s/^\///;
$this -> { m_relativeName } = $relativeName;
}
--- 105,114 ----
my $relativeName = $filename;
$relativeName =~ s/\.pm$/\.html/;
! my $fullName = $relativeName;
! $fullName =~ s/^\///;
! $this -> { m_fullName } = $fullName;
! $relativeName =~ s/\/[^\/]+/\/../g;
$relativeName =~ s/^\///;
+ $relativeName =~ s/\.\.$//;
$this -> { m_relativeName } = $relativeName;
}
***************
*** 113,116 ****
--- 119,132 ----
#/**
+ # Returns the full filename of the html file where this Class info is
+ # stored in.
+ # @return the full filename
+ #*/
+ sub fullFileName {
+ my ($this) = @_;
+ $this -> { m_fullName };
+ }
+
+ #/**
# Returns the relative filename where this class documentation is stored
# in.
***************
*** 132,135 ****
--- 148,156 ----
if (defined($parent)) {
$this -> { m_parent } = $parent;
+ # the parent may not be reachable so we
+ # eval this here..
+ eval {
+ $parent -> newSubClass($this);
+ };
}
$this -> { m_parent };
***************
*** 155,156 ****
--- 176,197 ----
}
+ #/**
+ # Adds a new subclass. This is automatically called when the parent
+ # function is called so you normally don't need to call it yourself.
+ # @param the subclass to add
+ # @private
+ #*/
+ sub newSubClass {
+ my ($this, $subclass) = @_;
+ push( @{$this -> { m_subclasses } }, $subclass );
+ }
+
+ #/**
+ # Returns a list reference holding all subclasses of this class.
+ # @return a list reference
+ # @public
+ #*/
+ sub subClasses {
+ my ($this) = @_;
+ $this->{m_subclasses};
+ }
|
|
From: Jan T. <de...@us...> - 2002-02-05 23:05:28
|
Update of /cvsroot/net-script/netscript2/src/tools
In directory usw-pr-cvs1:/tmp/cvs-serv16602
Modified Files:
ipdoc.pl
Log Message:
* added title flag
Index: ipdoc.pl
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/ipdoc.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ipdoc.pl 2002/02/05 00:31:27 1.1
--- ipdoc.pl 2002/02/05 23:05:23 1.2
***************
*** 18,21 ****
--- 18,22 ----
my $files = "";
my $destDir = "";
+ my $title = undef;
print "IPdoc - The insOMnia perl documenting system - (C)2002 by insOMnia\n";
***************
*** 23,34 ****
if ($arg eq "-f") {
$files = shift(@ARGV);
! }
! if ( $arg eq "-d" ) {
$destDir = shift(@ARGV);
! }
! if ( $arg eq "-help" || $arg eq "--help") {
! print "Usage: ipdoc.pl -f directory[,directory] [-d destination]\n";
exit 0;
}
}
--- 24,42 ----
if ($arg eq "-f") {
$files = shift(@ARGV);
! }
! elsif ( $arg eq "-d" ) {
$destDir = shift(@ARGV);
! }
! elsif ( $arg eq "-t" ) {
! $title = shift(@ARGV);
! }
! elsif ( $arg eq "-help" || $arg eq "--help") {
! print "Usage: ipdoc.pl -f directory[,directory] [-d destination] [-t title]\n";
exit 0;
}
+ else {
+ print "Error: unknown argument: $arg. Try --help for help.\n";
+ exit 1;
+ }
}
***************
*** 39,43 ****
my $ipdoc = IPdoc::IPdoc -> new();
! $ipdoc -> start({ files => $files, destination => $destDir });
--- 47,51 ----
my $ipdoc = IPdoc::IPdoc -> new();
! $ipdoc -> start({ files => $files, destination => $destDir, title => $title });
|
|
From: Jan T. <de...@us...> - 2002-02-05 00:31:30
|
Update of /cvsroot/net-script/netscript2/src/tools
In directory usw-pr-cvs1:/tmp/cvs-serv3951
Modified Files:
runtests.pl
Added Files:
ipdoc.pl
Log Message:
* nearly finished IPdoc 1.0
--- NEW FILE: ipdoc.pl ---
#!/usr/bin/perl
#--------------------------------------------------------
# This script creates HTML documentation for the
# NetScript project. See the IPdoc documentation in the
# docs/ipdoc directory of the distribution.
#
# $Id: ipdoc.pl,v 1.1 2002/02/05 00:31:27 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use IPdoc::IPdoc;
use strict;
my $files = "";
my $destDir = "";
print "IPdoc - The insOMnia perl documenting system - (C)2002 by insOMnia\n";
while ( my $arg = shift(@ARGV)) {
if ($arg eq "-f") {
$files = shift(@ARGV);
}
if ( $arg eq "-d" ) {
$destDir = shift(@ARGV);
}
if ( $arg eq "-help" || $arg eq "--help") {
print "Usage: ipdoc.pl -f directory[,directory] [-d destination]\n";
exit 0;
}
}
if ($files eq "") {
print "Error: You must specifiy a directory for input.\n";
exit 1;
}
my $ipdoc = IPdoc::IPdoc -> new();
$ipdoc -> start({ files => $files, destination => $destDir });
Index: runtests.pl
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/runtests.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** runtests.pl 2001/10/21 10:32:34 1.1
--- runtests.pl 2002/02/05 00:31:27 1.2
***************
*** 17,32 ****
print "- insOMnia - Test package runner -\n";
print "------------------------------------\n";
! my $testPackage = $ARGV[1];
$testPackage = "." if $testPackage eq "";
!
print "\n Looking for tests in package: $testPackage";
my $testrunner = Test::Unit::TestRunner -> new();
opendir(DIR, "$testPackage") || die "\n Testing failed. Cannot open package directory.";
$testPackage =~ s/\//::/g; # create package name of path
! my @tests = grep { /Test\.pm/ && s/\.pm$// && s/$/$testPackage/e; } readdir(DIR);
closedir DIR;
for( @tests ) {
$testrunner -> start( $_ );
}
--- 17,35 ----
print "- insOMnia - Test package runner -\n";
print "------------------------------------\n";
! my $testPackage = $ARGV[0];
$testPackage = "." if $testPackage eq "";
! $testPackage .= "/";
print "\n Looking for tests in package: $testPackage";
my $testrunner = Test::Unit::TestRunner -> new();
opendir(DIR, "$testPackage") || die "\n Testing failed. Cannot open package directory.";
+ $testPackage =~ s/\.\///g;
$testPackage =~ s/\//::/g; # create package name of path
! my @tests = grep { /Test\.pm/ && s/\.pm$// && s/^/$testPackage/e; } readdir(DIR);
closedir DIR;
for( @tests ) {
+ print "\n Running Test: $_\n\n";
$testrunner -> start( $_ );
}
+ print "\nTests complete.\n"
|
|
From: Jan T. <de...@us...> - 2002-02-05 00:31:21
|
Update of /cvsroot/net-script/netscript2/src/tools In directory usw-pr-cvs1:/tmp/cvs-serv3917 Modified Files: wipeout.project Log Message: * nearly finished IPdoc 1.0 Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/tools/wipeout.project,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** wipeout.project 2001/10/21 10:32:34 1.1 --- wipeout.project 2002/02/05 00:31:18 1.2 *************** *** 1,182 **** b ! C DmDictionary 0 405b2 8 ! c 0 405f7 9 ! C Category 1 3682e ! c 0 4062b 4 ! C DmString 2 40632 2 e3 ! c 2 40631 a defaultExe ! C DmSet 3 40634 1 ! c 2 36840 2 e3 ! L 36840 ! c 2 40633 b executables ! c 3 4062f 3 ! c 2 36836 3 *.C ! L 36836 ! c 2 36838 4 *.cc ! L 36838 ! c 2 3683a 5 *.cpp ! L 3683a ! c 2 4062e a extensions ! c 2 4062d a CPP_source ! c 2 4062c 4 name ! c 2 405f9 a CPP_source ! c 1 36844 ! c 0 40671 4 ! c 2 40678 2 e3 ! c 2 40677 a defaultExe ! c 3 4067a 1 ! c 2 36852 2 e3 ! L 36852 ! c 2 40679 b executables ! c 3 40675 1 ! c 2 3684c 3 *.c ! L 3684c ! c 2 40674 a extensions ! c 2 40673 8 C_source ! c 2 40672 4 name ! c 2 405fa 8 C_source ! c 1 36856 ! c 0 406ab 4 ! c 2 406b2 2 e3 ! c 2 406b1 a defaultExe ! c 3 406b4 1 ! c 2 36864 2 e3 ! L 36864 ! c 2 406b3 b executables ! c 3 406af 1 ! c 2 3685e 3 *.e ! L 3685e ! c 2 406ae a extensions ! c 2 406ad 6 Eiffel ! c 2 406ac 4 name ! c 2 405fb 6 Eiffel ! c 1 36868 ! c 0 406e5 4 ! c 2 406ec 2 e3 ! c 2 406eb a defaultExe ! c 3 406ee 1 ! c 2 3687c 2 e3 ! L 3687c ! c 2 406ed b executables ! c 3 406e9 4 ! c 2 36870 3 *.F ! L 36870 ! c 2 36872 3 *.f ! L 36872 ! c 2 36874 5 *.for ! L 36874 ! c 2 36876 5 *.fpp ! L 36876 ! c 2 406e8 a extensions ! c 2 406e7 7 Fortran ! c 2 406e6 4 name ! c 2 405fc 7 Fortran ! c 1 36880 ! c 0 4072b 4 ! c 2 40732 2 e3 ! c 2 40731 a defaultExe ! c 3 40734 1 ! c 2 36890 2 e3 ! L 36890 ! c 2 40733 b executables ! c 3 4072f 2 ! c 2 36888 3 *.H ! L 36888 ! c 2 3688a 3 *.h ! L 3688a ! c 2 4072e a extensions ! c 2 4072d 6 Header ! c 2 4072c 4 name ! c 2 405fd 6 Header ! c 1 36894 ! c 0 40769 4 ! c 2 40770 9 surfboard ! c 2 4076f a defaultExe ! c 3 40772 2 ! c 2 368a4 2 e3 ! L 368a4 ! c 2 368a6 9 surfboard ! L 368a6 ! c 2 40771 b executables ! c 3 4076d 2 ! c 2 3689c 5 *.htm ! L 3689c ! c 2 3689e 6 *.html ! L 3689e ! c 2 4076c a extensions ! c 2 4076b 4 Html ! c 2 4076a 4 name ! c 2 405fe 4 Html ! c 1 368aa ! c 0 407ab 4 ! c 2 407b2 2 e3 ! c 2 407b1 a defaultExe ! c 3 407b4 1 ! c 2 368b8 2 e3 ! L 368b8 ! c 2 407b3 b executables ! c 3 407af 1 ! c 2 368b2 6 *.java ! L 368b2 ! c 2 407ae a extensions ! c 2 407ad 4 Java ! c 2 407ac 4 name ! c 2 405ff 4 Java ! c 1 368bc ! c 0 407e5 4 ! c 2 407ec 2 e3 ! c 2 407eb a defaultExe ! c 3 407ee 1 ! c 2 368ca 2 e3 ! L 368ca ! c 2 407ed b executables ! c 3 407e9 1 ! c 2 368c4 5 *.tex ! L 368c4 ! c 2 407e8 a extensions ! c 2 407e7 5 Latex ! c 2 407e6 4 name ! c 2 40600 5 Latex ! c 1 368ce ! c 0 4081f 4 ! c 2 40826 2 e3 ! c 2 40825 a defaultExe ! c 3 40828 1 ! c 2 368d9 2 e3 ! L 368d9 ! c 2 40827 b executables ! c 3 40823 0 ! c 2 40822 a extensions ! c 2 40821 5 Other ! c 2 40820 4 name ! c 2 40601 5 Other ! c 2 405f6 a categories ! c 0 40603 1 ! C ProjectDir 4 368fa ! c 2 368fb 15 netscript2/src/tools/ 11 81 ! c 2 368fc 0 0 ! c 2 40605 15 netscript2/src/tools/ ! c 2 40602 b directories ! C DmBag 5 405be 1 ! c 2 405f4 dd b ! C DmDictionary 0 405c0 3 ! C DmString 1 405d2 39 b ! C DmSet 0 4045d 1 ! C DmString 1 405a7 5 Other ! L 405a7 ! c 1 405d1 a categories ! c 1 405c2 b runtests.pl ! c 1 405c1 4 name ! C DmInteger 2 405d4 1 ! c 1 405d3 9 substMode ! c 2 405f5 5 files ! c 2 405ba 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 405b9 6 launch ! c 2 405b6 4 make ! c 2 405b5 4 make ! c 2 405b8 0 ! c 2 405b7 8 makeFile ! c 5 405bb 0 ! c 2 405bd 7 modules ! c 2 405b4 5 tools ! c 2 405b3 4 name --- 1,194 ---- b ! C DmDictionary 0 11256 8 ! c 0 112d1 9 ! C Category 1 7732 ! c 0 11305 4 ! C DmString 2 1130c 2 e3 ! c 2 1130b a defaultExe ! C DmSet 3 1130e 1 ! c 2 7741 2 e3 ! L 7741 ! c 2 1130d b executables ! c 3 11309 3 ! c 2 7748 3 *.C ! L 7748 ! c 2 774b 4 *.cc ! L 774b ! c 2 774e 5 *.cpp ! L 774e ! c 2 11308 a extensions ! c 2 11307 a CPP_source ! c 2 11306 4 name ! c 2 112d3 a CPP_source ! c 1 7763 ! c 0 1134b 4 ! c 2 11352 2 e3 ! c 2 11351 a defaultExe ! c 3 11354 1 ! c 2 7770 2 e3 ! L 7770 ! c 2 11353 b executables ! c 3 1134f 1 ! c 2 7777 3 *.c ! L 7777 ! c 2 1134e a extensions ! c 2 1134d 8 C_source ! c 2 1134c 4 name ! c 2 112d4 8 C_source ! c 1 778c ! c 0 11385 4 ! c 2 1138c 2 e3 ! c 2 1138b a defaultExe ! c 3 1138e 1 ! c 2 7799 2 e3 ! L 7799 ! c 2 1138d b executables ! c 3 11389 1 ! c 2 77a0 3 *.e ! L 77a0 ! c 2 11388 a extensions ! c 2 11387 6 Eiffel ! c 2 11386 4 name ! c 2 112d5 6 Eiffel ! c 1 77b5 ! c 0 113bf 4 ! c 2 113c6 2 e3 ! c 2 113c5 a defaultExe ! c 3 113c8 1 ! c 2 77c2 2 e3 ! L 77c2 ! c 2 113c7 b executables ! c 3 113c3 4 ! c 2 77c9 3 *.F ! L 77c9 ! c 2 77cc 3 *.f ! L 77cc ! c 2 77cf 5 *.for ! L 77cf ! c 2 77d2 5 *.fpp ! L 77d2 ! c 2 113c2 a extensions ! c 2 113c1 7 Fortran ! c 2 113c0 4 name ! c 2 112d6 7 Fortran ! c 1 77e7 ! c 0 11405 4 ! c 2 1140c 2 e3 ! c 2 1140b a defaultExe ! c 3 1140e 1 ! c 2 77f4 2 e3 ! L 77f4 ! c 2 1140d b executables ! c 3 11409 2 ! c 2 77fb 3 *.H ! L 77fb ! c 2 77fe 3 *.h ! L 77fe ! c 2 11408 a extensions ! c 2 11407 6 Header ! c 2 11406 4 name ! c 2 112d7 6 Header ! c 1 7813 ! c 0 11443 4 ! c 2 1144a 9 surfboard ! c 2 11449 a defaultExe ! c 3 1144c 2 ! c 2 7820 2 e3 ! L 7820 ! c 2 7823 9 surfboard ! L 7823 ! c 2 1144b b executables ! c 3 11447 2 ! c 2 782a 5 *.htm ! L 782a ! c 2 782d 6 *.html ! L 782d ! c 2 11446 a extensions ! c 2 11445 4 Html ! c 2 11444 4 name ! c 2 112d8 4 Html ! c 1 7842 ! c 0 11485 4 ! c 2 1148c 2 e3 ! c 2 1148b a defaultExe ! c 3 1148e 1 ! c 2 784f 2 e3 ! L 784f ! c 2 1148d b executables ! c 3 11489 1 ! c 2 7856 6 *.java ! L 7856 ! c 2 11488 a extensions ! c 2 11487 4 Java ! c 2 11486 4 name ! c 2 112d9 4 Java ! c 1 786b ! c 0 114bf 4 ! c 2 114c6 2 e3 ! c 2 114c5 a defaultExe ! c 3 114c8 1 ! c 2 7878 2 e3 ! L 7878 ! c 2 114c7 b executables ! c 3 114c3 1 ! c 2 787f 5 *.tex ! L 787f ! c 2 114c2 a extensions ! c 2 114c1 5 Latex ! c 2 114c0 4 name ! c 2 112da 5 Latex ! c 1 7894 ! c 0 114f9 4 ! c 2 11500 2 e3 ! c 2 114ff a defaultExe ! c 3 11502 1 ! c 2 78a1 2 e3 ! L 78a1 ! c 2 11501 b executables ! c 3 114fd 0 ! c 2 114fc a extensions ! c 2 114fb 5 Other ! c 2 114fa 4 name ! c 2 112db 5 Other ! c 2 112d0 a categories ! c 0 112dd 1 ! C ProjectDir 4 78be ! c 2 78bf 15 netscript2/src/tools/ 11 81 ! c 2 78c0 0 0 ! c 2 112df 15 netscript2/src/tools/ ! c 2 112dc b directories ! C DmBag 5 11263 2 ! c 2 11299 d7 b ! C DmDictionary 0 11265 3 ! C DmString 1 11277 36 b ! C DmSet 0 e671 1 ! C DmString 1 e7cb 5 Other ! L e7cb ! c 1 11276 a categories ! c 1 11267 8 ipdoc.pl ! c 1 11266 4 name ! C DmInteger 2 11279 1 ! c 1 11278 9 substMode ! c 2 112ce da b ! C DmDictionary 0 1129a 3 ! C DmString 1 112ac 36 b ! C DmSet 0 78f4 1 ! C DmString 1 7922 5 Other ! L 7922 ! c 1 112ab a categories ! c 1 1129c b runtests.pl ! c 1 1129b 4 name ! C DmInteger 2 112ae 1 ! c 1 112ad 9 substMode ! c 2 112cf 5 files ! c 2 1125e 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 1125d 6 launch ! c 2 1125a 4 make ! c 2 11259 4 make ! c 2 1125c 0 ! c 2 1125b 8 makeFile ! c 5 1125f 1 ! c 2 11261 5 IPdoc ! c 2 11262 7 modules ! c 2 11258 5 tools ! c 2 11257 4 name |
|
From: Jan T. <de...@us...> - 2002-02-05 00:30:40
|
Update of /cvsroot/net-script/netscript2/src/tools/IPdoc
In directory usw-pr-cvs1:/tmp/cvs-serv3695
Modified Files:
IPdoc.pm
Added Files:
Class.pm NSDoclet.pm Sub.pm wipeout.project
Log Message:
* nearly finished IPdoc 1.0
--- NEW FILE: Class.pm ---
#--------------------------------------------------------
# This class represents IPdoc, the insOMnia Perl documenting
# system.
# $Id: Class.pm,v 1.1 2002/02/05 00:30:37 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
package IPdoc::Class;
use vars qw($VERSION);
use strict;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#/**
# Represents a class
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
my @subs = ();
my @params = ();
my @paramValues = ();
$this -> { m_subs } = \@subs;
$this -> { m_params } = \@params;
$this -> { m_paramValues } = \@paramValues;
$this;
}
#/**
# Sets/returns a comment for this class
# @optional a comment for this class
# @return a comment for this class
#*/
sub comment {
my ($this, $comment) = @_;
if (defined($comment)) {
$this -> { m_comment } = $comment;
}
$this -> { m_comment };
}
#/**
# Returns a hash reference containing all params set for this class.
# Mapping is names => list reference containing the names, and
# values => list reference containing the values.
# @return all params for this class.
#*/
sub params {
my ($this) = @_;
my @params = @{$this -> { m_params } };
my @values = @{$this -> { m_paramValues } };
return { names => \@params, values => \@values };
}
#/**
# Adds a new param to this class.
# @param the name of the parameter
# @param the value of the parameter
#*/
sub newParam {
my ($this, $name, $value) = @_;
push( @{$this->{m_params}},$name);
push( @{$this->{m_paramValues}},$value);
}
#/**
# Sets/returns the name of the class
# @optional the name of the class
# @return the name of the class
#*/
sub name {
my ($this, $name) = @_;
if ( defined($name) ) {
$this -> { m_name } = $name;
}
$this -> { m_name };
}
#/**
# Sets/returns the filename where this class documentation is stored in
# @optional the filename where the class documentation is stored in
# @return the filename where the class documentation is stored in
#*/
sub filename {
my ($this, $filename ) = @_;
if (defined($filename)) {
$this -> { m_filename } = $filename;
# change the filename to be a relative one
my $relativeName = $filename;
$relativeName =~ s/\.pm$/\.html/;
$relativeName =~ s/\/[^\/]+\//\/..\//g;
$relativeName =~ s/^\///;
$this -> { m_relativeName } = $relativeName;
}
$this -> { m_filename };
}
#/**
# Returns the relative filename where this class documentation is stored
# in.
# @return the relative filename
#*/
sub relativeFileName {
my ($this) = @_;
$this -> { m_relativeName };
}
#/**
# Sets/returns the parent class object. This is undef, if the parent class
# is UNIVERSAL.
# @optional the parent class object
# @returns the parent class object
#*/
sub parent {
my ($this, $parent) = @_;
if (defined($parent)) {
$this -> { m_parent } = $parent;
}
$this -> { m_parent };
}
#/**
# Returns all subs this class has.
# @return a list reference holding all sub objects of this class
#*/
sub subs {
my ($this) = @_;
$this -> { m_subs };
}
#/**
# Adds a sub object to this class.
# @param a sub object reference
#*/
sub newSub {
my ($this, $sub) = @_;
push ( @{$this -> { m_subs }}, $sub );
$sub -> parent($this);
}
--- NEW FILE: NSDoclet.pm ---
#--------------------------------------------------------
# This class is a basic doclet for IPDoc.
#
# $Id: NSDoclet.pm,v 1.1 2002/02/05 00:30:37 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
package IPdoc::NSDoclet;
use vars qw($VERSION);
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#/**
# Creates a new IPdoc parser,
# @param ipdoc version
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
$this -> { m_ipdoc_version } = shift;
$this;
}
#/**
# Renders the head.
# @param title
# @return the rendered head
# @public
#*/
sub renderHead {
my ($this, $title) = @_;
"<html><head><title>$title</title></head><body>";
}
#/**
# Renders the foot.
# @return the rendered foot
#*/
sub renderFoot {
my ($this) = @_;
"<hr><small>Created by IPDoc v".$this -> { m_ipdoc_version }.
" using the NSDoclet doclet.</small></body></html>";
}
#/**
# Renders a class.
# @param the class object to render
# @return the rendered string
# @public
#*/
sub renderClass {
my ($this, $class) = @_;
my $classname = $class -> name();
my $result = "";
# render a class hierarchy tree
my @classlist = ();
my $parent = $class -> parent();;
while (defined($parent)) {
unshift(@classlist, $parent);
$parent = $parent -> parent();
}
push (@classlist, $class);
$result .= "<pre>+- UNIVERSAL\n";
my $indent = 0;
while (@classlist) {
$parent = shift @classlist;
$result .= " " x $indent;
$result .="|___+- ";
$result .="<a href=\"".$parent -> relativeFileName()."\">" if $parent -> relativeFileName();
$result .= $parent -> name();
$result .= "</a>" if $parent -> relativeFileName();
$result .= "\n";
$indent += 4;
}
$result .= "</pre>";
#render the class definition.
$parent = $class -> parent();
my $parentName = "UNIVERSAL";
if (defined($parent)) {
$parentName = $parent -> name();
}
$result .= "<h1>Class $classname</h1><small>extends $parentName</small><br><br>";
$result .= $class -> comment() ."<br><br>";
$result .= "<br><br>". $this -> renderParams($class -> params());
$result .= "<hr>";
#render a method table
$result .= "<table width=\"100%\" border=\"1\"><tr><th>Subs</th></tr>";
for ( @{$class -> subs()} ) {
my $subName = $_ -> name();
my $subComment = $_ -> comment();
# cut comment down to the first line or sentence.
$subComment =~ /^([^\.]+)/;
$result .= "<tr><td><a href=\"#sub_$subName\"><b>$subName</b></a><br>$1...</td></tr>";
}
$result .= "</table>";
$result;
}
#/**
# Renders all subs of the given class object.
# @param a class object
# @return the rendered subs
# @public
#*/
sub renderSubs {
my ($this, $class) = @_;
my $result = "";
for (@{$class -> subs()}) {
$result .= $this -> renderSub( $_ );
}
$result;
}
#/**
# Renders a sub.
# @param the sub object to render
# @return the rendered string
# @private
#*/
sub renderSub {
my ($this, $sub ) = @_;
my $name = $sub -> name();
my $description = $sub -> comment();
my $result = "<hr><h3><a name=\"sub_$name\">$name</a></h3>$description<br><br>";
$result .= $this -> renderParams( $sub -> params());
$result;
}
#/**
# Renders parameters.
# @param a hash reference holding the parameter hash from a sub or class object.
# @return the rendered parameters
# @private
#*/
sub renderParams {
my ($this, $paramRef) = @_;
my $result = "";
my %mappings = ( "param" => "parameter:",
"optional" => "optional parameter:",
"not-implemented" => "This feature is not yet implemented.",
"not-standard" => "This implementation is non-standard.",
"return" => "return value:",
"public" => "This sub can be used from outside.",
"private" => "This sub should not be used from outside.",
"abstract" => "This implementation is abstract.",
"note" => "Implementation note:",
"fixme" => "To be fixed:",
"author" => "Author:",
"version" => "Version:" );
my @paramNames = @{$paramRef -> { names }};
my @paramValues = @{$paramRef -> { values }};
while (@paramNames) {
$result .= "<b>".$mappings{(shift @paramNames)}."</b>".(shift @paramValues)."<br>";
}
$result;
}
--- NEW FILE: Sub.pm ---
#--------------------------------------------------------
# This class represents IPdoc, the insOMnia Perl documenting
# system.
# $Id: Sub.pm,v 1.1 2002/02/05 00:30:37 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
package IPdoc::Sub;
use vars qw($VERSION);
use strict;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#/**
# Represents a class
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
my @subs = ();
my @params = ();
my @paramValues = ();
$this -> { m_params } = \@params;
$this -> { m_paramValues } = \@paramValues;
$this;
}
#/**
# Sets/returns a comment for this sub
# @optional a comment for this sub
# @return a comment for this sub
#*/
sub comment {
my ($this, $comment) = @_;
if (defined($comment)) {
$this -> { m_comment } = $comment;
}
$this -> { m_comment };
}
#/**
# Returns a hash reference containing all params set for this sub.
# Mapping is names => list reference containing the names, and
# values => list reference containing the values.
# @return all params for this sub.
#*/
sub params {
my ($this) = @_;
my @params = @{$this -> { m_params } };
my @values = @{$this -> { m_paramValues } };
return { names => \@params, values => \@values };
}
#/**
# Adds a new param to this sub.
# @param the name of the parameter
# @param the value of the parameter
#*/
sub newParam {
my ($this, $name, $value) = @_;
push( @{$this->{m_params}},$name);
push( @{$this->{m_paramValues}},$value);
}
#/**
# Sets/returns the name of the class
# @optional the name of the class
# @return the name of the class
#*/
sub name {
my ($this, $name) = @_;
if ( defined($name) ) {
$this -> { m_name } = $name;
}
$this -> { m_name };
}
#/**
# Sets/returns the parent class object.
# @optional the parent class object
# @returns the parent class object
#*/
sub parent {
my ($this, $parent) = @_;
if (defined($parent)) {
$this -> { m_parent } = $parent;
}
$this -> { m_parent };
}
--- NEW FILE: wipeout.project ---
b
C DmDictionary 0 3dceb 8
c 0 3ddcf 9
C Category 1 881b
c 0 3de09 4
C DmString 2 3de10 2 e3
c 2 3de0f a defaultExe
C DmSet 3 3de12 1
c 2 882a 2 e3
L 882a
c 2 3de11 b executables
c 3 3de0d 3
c 2 8831 3 *.C
L 8831
c 2 8834 4 *.cc
L 8834
c 2 8837 5 *.cpp
L 8837
c 2 3de0c a extensions
c 2 3de0b a CPP_source
c 2 3de0a 4 name
c 2 3ddd1 a CPP_source
c 1 884c
c 0 3de4f 4
c 2 3de56 2 e3
c 2 3de55 a defaultExe
c 3 3de58 1
c 2 8859 2 e3
L 8859
c 2 3de57 b executables
c 3 3de53 1
c 2 8860 3 *.c
L 8860
c 2 3de52 a extensions
c 2 3de51 8 C_source
c 2 3de50 4 name
c 2 3ddd2 8 C_source
c 1 8875
c 0 3de89 4
c 2 3de90 2 e3
c 2 3de8f a defaultExe
c 3 3de92 1
c 2 8882 2 e3
L 8882
c 2 3de91 b executables
c 3 3de8d 1
c 2 8889 3 *.e
L 8889
c 2 3de8c a extensions
c 2 3de8b 6 Eiffel
c 2 3de8a 4 name
c 2 3ddd3 6 Eiffel
c 1 889e
c 0 3dec3 4
c 2 3deca 2 e3
c 2 3dec9 a defaultExe
c 3 3decc 1
c 2 88ab 2 e3
L 88ab
c 2 3decb b executables
c 3 3dec7 4
c 2 88b2 3 *.F
L 88b2
c 2 88b5 3 *.f
L 88b5
c 2 88b8 5 *.for
L 88b8
c 2 88bb 5 *.fpp
L 88bb
c 2 3dec6 a extensions
c 2 3dec5 7 Fortran
c 2 3dec4 4 name
c 2 3ddd4 7 Fortran
c 1 88d0
c 0 3df09 4
c 2 3df10 2 e3
c 2 3df0f a defaultExe
c 3 3df12 1
c 2 88dd 2 e3
L 88dd
c 2 3df11 b executables
c 3 3df0d 2
c 2 88e4 3 *.H
L 88e4
c 2 88e7 3 *.h
L 88e7
c 2 3df0c a extensions
c 2 3df0b 6 Header
c 2 3df0a 4 name
c 2 3ddd5 6 Header
c 1 88fc
c 0 3df47 4
c 2 3df4e 9 surfboard
c 2 3df4d a defaultExe
c 3 3df50 2
c 2 8909 2 e3
L 8909
c 2 890c 9 surfboard
L 890c
c 2 3df4f b executables
c 3 3df4b 2
c 2 8913 5 *.htm
L 8913
c 2 8916 6 *.html
L 8916
c 2 3df4a a extensions
c 2 3df49 4 Html
c 2 3df48 4 name
c 2 3ddd6 4 Html
c 1 892b
c 0 3df89 4
c 2 3df90 2 e3
c 2 3df8f a defaultExe
c 3 3df92 1
c 2 8938 2 e3
L 8938
c 2 3df91 b executables
c 3 3df8d 1
c 2 893f 6 *.java
L 893f
c 2 3df8c a extensions
c 2 3df8b 4 Java
c 2 3df8a 4 name
c 2 3ddd7 4 Java
c 1 8954
c 0 3dfc3 4
c 2 3dfca 2 e3
c 2 3dfc9 a defaultExe
c 3 3dfcc 1
c 2 8961 2 e3
L 8961
c 2 3dfcb b executables
c 3 3dfc7 1
c 2 8968 5 *.tex
L 8968
c 2 3dfc6 a extensions
c 2 3dfc5 5 Latex
c 2 3dfc4 4 name
c 2 3ddd8 5 Latex
c 1 897d
c 0 3dffd 4
c 2 3e004 2 e3
c 2 3e003 a defaultExe
c 3 3e006 1
c 2 898a 2 e3
L 898a
c 2 3e005 b executables
c 3 3e001 0
c 2 3e000 a extensions
c 2 3dfff 5 Other
c 2 3dffe 4 name
c 2 3ddd9 5 Other
c 2 3ddce a categories
c 0 3dddb 1
C ProjectDir 4 89a7
c 2 89a8 1b netscript2/src/tools/IPdoc/ 11 81
c 2 89a9 0 0
c 2 3dddd 1b netscript2/src/tools/IPdoc/
c 2 3ddda b directories
C DmBag 5 3dcf7 4
c 2 3dd2d da b
C DmDictionary 0 3dcf9 3
C DmString 1 3dd0b 39 b
C DmSet 0 3b497 1
C DmString 1 3b601 5 Other
L 3b601
c 1 3dd0a a categories
c 1 3dcfb 8 Class.pm
c 1 3dcfa 4 name
C DmInteger 2 3dd0d 1
c 1 3dd0c 9 substMode
c 2 3dd62 d7 b
C DmDictionary 0 3dd2e 3
C DmString 1 3dd40 36 b
C DmSet 0 89dd 1
C DmString 1 8a0b 5 Other
L 8a0b
c 1 3dd3f a categories
c 1 3dd30 8 IPdoc.pm
c 1 3dd2f 4 name
C DmInteger 2 3dd42 1
c 1 3dd41 9 substMode
c 2 3dd97 dd b
C DmDictionary 0 3dd63 3
C DmString 1 3dd75 39 b
C DmSet 0 3bcc2 1
C DmString 1 3be2c 5 Other
L 3be2c
c 1 3dd74 a categories
c 1 3dd65 b NSDoclet.pm
c 1 3dd64 4 name
C DmInteger 2 3dd77 1
c 1 3dd76 9 substMode
c 2 3ddcc d8 b
C DmDictionary 0 3dd98 3
C DmString 1 3ddaa 39 b
C DmSet 0 3db76 1
C DmString 1 3dce0 5 Other
L 3dce0
c 1 3dda9 a categories
c 1 3dd9a 6 Sub.pm
c 1 3dd99 4 name
C DmInteger 2 3ddac 1
c 1 3ddab 9 substMode
c 2 3ddcd 5 files
c 2 3dcf3 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']"
c 2 3dcf2 6 launch
c 2 3dcef 4 make
c 2 3dcee 4 make
c 2 3dcf1 0
c 2 3dcf0 8 makeFile
c 5 3dcf4 0
c 2 3dcf6 7 modules
c 2 3dced 5 IPdoc
c 2 3dcec 4 name
Index: IPdoc.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tools/IPdoc/IPdoc.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** IPdoc.pm 2002/01/26 14:06:27 1.1.1.1
--- IPdoc.pm 2002/02/05 00:30:37 1.2
***************
*** 12,17 ****
package IPdoc::IPdoc;
use vars qw($VERSION);
! use XML::Parser;
#--------------------------------------------------------
--- 12,21 ----
package IPdoc::IPdoc;
use vars qw($VERSION);
+ use IPdoc::NSDoclet;
+ use IPdoc::Class;
+ use IPdoc::Sub;
! use Carp;
! use strict;
#--------------------------------------------------------
***************
*** 20,24 ****
--- 24,259 ----
$VERSION = '1.0';
+ #/**
+ # Creates a new IPdoc parser,
+ # @public
+ #*/
+ sub new {
+ my ($proto) = shift;
+ my $class = ref( $proto ) || $proto;# get the Classname
+
+ # Create a Class using the Hash-As-An-Object-Idiom
+ my $this = {};
+ bless( $this, $class ); # create Object
+ my @fileList = ();
+ my @baseDirs = ();
+ $this -> { m_doclet } = "IPdoc::NSDoclet";
+ $this -> { m_destDir } = "";
+ $this -> { m_fileList } = \@fileList;
+ $this -> { m_baseDirs } = \@baseDirs;
+ $this;
+ }
+ #/**
+ # Reads the given config file and then parses all given files and
+ # directories, creating documentation.
+ # @param a hash reference containing the following key-value-pairs:
+ # files - a comma separated list of files and/or directories
+ # which should be documented
+ # destination - the destination directory into which the
+ # documentation should be placed
+ # @public
+ #*/
+ sub start {
+ my ($this, $paramRef) = @_;
+ $this -> { m_destDir } = $paramRef -> { "destination" };
+ my @fileList = split(/,/, $paramRef -> {"files"});
+ for (@fileList) {
+ $this -> loadFiles($_);
+ }
+ my %classes = ();
+ while (@{$this -> { m_fileList }}) {
+ my $fileName = shift @{$this -> {m_fileList}};
+ my $baseDir = shift @{$this -> {m_baseDirs}};
+ my $class = $this -> processFile( $fileName, $baseDir );
+ $classes{$class->name()} = $class;
+ }
+
+ # now create a hierarchy
+ for ( values(%classes)) {
+ my $class = $_;
+ my $parentName = $class -> parent();
+ if (defined($parentName)) {
+ my $parentClass = $classes{$parentName};
+ if (defined($parentClass)) {
+ $class -> parent($parentClass);
+ }
+ else {
+ # class has a parent, but we didn't scan it so we
+ # create a dummy parent
+ $parentClass = IPdoc::Class -> new();
+ $parentClass -> name($parentName);
+ $class -> parent($parentClass);
+ }
+ }
+ }
+ # now we can render the classes to the destination directory
+ for ( values(%classes) ) {
+ $this -> renderClass( $_ ) ;
+ }
+ }
+
+ #/**
+ # Parses the given file list and fills the internal list of files
+ # with all files which should be documented.
+ # @param a comma separated list of files
+ # @private
+ #*/
+ sub loadFiles {
+ my ($this, $file) = @_;
+ my $baseDir = "";
+ my @fileList = ();
+ if ( -d $file ) {
+ $baseDir = $file;
+ $baseDir .= "/" unless $file =~ /\/$/;
+ push (@fileList, "");
+ }
+ else {
+ $file =~ /(.*\/)([^\/])$/;
+ $baseDir = $1;
+ push(@fileList, $2);
+ }
+
+
+ for ( @fileList ) {
+ if ( -d "$baseDir/$_" ) {
+ my $dirname = $_;
+ opendir( DIR, "$baseDir/$dirname" ) or carp "Cannot open directory: $baseDir/$dirname. Skipping...\n";
+ while( defined(my $file = readdir(DIR)) ) {
+ if ($file =~ /pm$/ && -f "$baseDir/$dirname/$file") {
+ push ( @{$this -> { m_fileList } }, "$dirname/$file" );
+ push ( @{$this -> { m_baseDirs}}, $baseDir);
+ }
+ if (-d "$baseDir/$dirname/$file" && $file ne "." && $file ne "..") {
+ push(@fileList, "$dirname/$file");
+ }
+ }
+ closedir( DIR );
+ }
+ else {
+ if ( $_ =~ /pm$/ && -f "$baseDir/$_") {
+ push ( @{$this -> { m_fileList}}, $_);
+ push ( @{$this -> { m_baseDirs}}, $_);
+ }
+ else {
+ carp "The file $_ is not a perl file. Skipping...\n";
+ }
+ }
+ }
+ }
+
+ #/**
+ # This processes the given file and creates documentation for it.
+ # @param the filename of the file to process
+ # @param the base dir of the file to process
+ # @return a class object representing the file
+ #*/
+ sub processFile {
+ my ($this, $filename, $baseDir) = @_;
+ my $classname = "";
+ my $comment = "";
+ my $lastComment = "";
+ my $commentRunning = 0;
+
+ my $class = IPdoc::Class -> new();
+ $class -> filename($filename);
+
+ open( AFILE, "<$baseDir/$filename" );
+ while (<AFILE>) {
+ my $line = $_;
+ if ( $line =~ /[^#]*package[\s]*([^;]+);/ && $class -> name() eq "" && !$commentRunning) {
+ $class -> name($1);
+ # find parameters in comment
+ while ( $lastComment =~ /@[a-z]+/ ) {
+ $lastComment =~ s/@([a-z_A-Z-]+)([^@]*)//;
+ $class -> newParam($1, $2);
+ }
+ $class -> comment($lastComment);
+ }
+
+ if ($line =~ /use[ ]+base[ ]+qw\(([^\)]+)\)/ && ! $commentRunning ) {
+ $class -> parent($1);
+ }
+
+ if ($line =~ /#\/\*\*/) {
+ if ($commentRunning) {
+ carp "Error in $filename (line $.). Looks like you forgot to close a comment. Skipping...";
+ return;
+ }
+ $commentRunning = 1;
+ }
+
+ if ($commentRunning) {
+ $comment .= $line;
+ }
+
+ if ($line =~ /#\*\// ) {
+ $commentRunning = 0;
+ $lastComment = $comment;
+ $lastComment =~ s/#\/\*\*//g;
+ $lastComment =~ s/#\*\///g;
+ $lastComment =~ s/#//g;
+ $comment = "";
+ }
+
+ if ($line =~ /^[ ]*sub[ ]+([a-zA-Z0-9_]+)/ && ! $commentRunning) {
+ my $sub = IPdoc::Sub -> new();
+ $sub -> name($1);
+ # find parameters in comment
+ while ( $lastComment =~ /@[a-z]+/ ) {
+ $lastComment =~ s/@([a-z_A-Z-]+)([^@]*)//;
+ $sub -> newParam($1, $2);
+ }
+ $sub -> comment($lastComment);
+ $class -> newSub($sub);
+ }
+ }
+ close (AFILE);
+ return $class;
+ }
+
+ #/**
+ # Renders a class to a file using a doclet.
+ # @param the class object to render
+ #*/
+ sub renderClass {
+ my ($this, $class) = @_;
+
+ #first of all we need to create the directory
+ my $dir = $this -> { m_destDir } . "/";
+ $class -> filename() =~ /(.*\/)([^\/]+)/;
+ $dir .= $1;
+ my $filename = $2;
+ $this -> mkdirs($dir);
+
+ $filename =~ s/\.pm$/\.html/;
+
+ my $doclet = $this -> { m_doclet } -> new($VERSION);
+
+ open( AFILE, ">$dir/$filename" );
+ print AFILE $doclet -> renderHead( $class -> name() . " Documentation" );
+ print AFILE $doclet -> renderClass( $class );
+ print AFILE $doclet -> renderSubs( $class );
+ print AFILE $doclet -> renderFoot();
+ close(AFILE);
+ }
+
+ #/**
+ # Convenience function. Creates all subdirectories.
+ #*/
+ sub mkdirs {
+ my ($this, $dir) = @_;
+
+ my @dirs = split(/\//, $dir);
+
+ my $currentDir = $dir =~ /^\// ? "/" : "";
+
+ for (@dirs) {
+ $currentDir .= $_;
+ if ( ! -e $currentDir ) {
+ mkdir "$currentDir";# | croak "Cannot create directory $currentDir ($!)";
+ }
+ $currentDir .= "/";
+ }
+ }
|
|
From: Jan T. <de...@us...> - 2002-02-03 22:54:06
|
Update of /cvsroot/net-script/netscript2 In directory usw-pr-cvs1:/tmp/cvs-serv26299 Modified Files: Makefile Makefile.files Log Message: Index: Makefile =================================================================== RCS file: /cvsroot/net-script/netscript2/Makefile,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Makefile 2002/01/01 18:05:44 1.5 --- Makefile 2002/02/03 22:54:03 1.6 *************** *** 52,55 **** --- 52,61 ---- mkdir -p $(SAMPLES_DIR) $(foreach dir, $(SAMPLES_Tree), mkdir -p $(SAMPLES_DIR)/$(dir);) + + # This target creates the tools directory + #------------------------------------------- + $(TOOLS_DIR): + mkdir -p $(TOOLS_DIR) + $(foreach dir, $(TOOLS_Tree), mkdir -p $(TOOLS_DIR)/$(dir);) # Creates a package Index: Makefile.files =================================================================== RCS file: /cvsroot/net-script/netscript2/Makefile.files,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Makefile.files 2002/01/01 18:05:44 1.5 --- Makefile.files 2002/02/03 22:54:03 1.6 *************** *** 18,22 **** # This is the directory to install the tools to ! TOOLS_DIR=$(TARGET_DIR) # You should leave these untouched. --- 18,22 ---- # This is the directory to install the tools to ! TOOLS_DIR=$(TARGET_DIR)/tools # You should leave these untouched. *************** *** 33,37 **** TESTS = $(subst ./,,$(shell cd $(TESTS_SourceDir);find ./ -name "*.pm" -o -name "*.html" -o -name "*.pl")) TOOLS = $(subst ./,,$(shell cd $(TOOLS_SourceDir);find ./ -name "*.pm" -o -name "*.pl")) VERSION=2.0 ! VERSION_DOM2=0.1alpha --- 33,38 ---- TESTS = $(subst ./,,$(shell cd $(TESTS_SourceDir);find ./ -name "*.pm" -o -name "*.html" -o -name "*.pl")) TOOLS = $(subst ./,,$(shell cd $(TOOLS_SourceDir);find ./ -name "*.pm" -o -name "*.pl")) + TOOLS_Tree = $(subst ./,,$(shell cd $(TOOLS_SourceDir);find ./ -type d | grep -v "CVS")) VERSION=2.0 ! VERSION_DOM2=0.1.2alpha |
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv22898
Modified Files:
Attr.pm CDATASection.pm CharacterData.pm Comment.pm
DOMException.pm DOMImplementation.pm DOMParser.pm
DOMParserStyle.pm Document.pm DocumentFragment.pm
DocumentType.pm Element.pm Entity.pm EntityReference.pm
NamedNodeMap.pm Node.pm NodeList.pm Notation.pm
ProcessingInstruction.pm Text.pm notes.txt
Added Files:
CHANGELOG
Log Message:
* fixed some small bugs
* added support for node cloning and importing
--- NEW FILE: CHANGELOG ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Change Log.
# $Id: CHANGELOG,v 1.1 2002/02/03 22:39:42 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
---------------------------------------------------------
Version 0.1.2alpha
---------------------------------------------------------
* fixed some small bugs
* added limited support for node cloning and importing
---------------------------------------------------------
Version 0.1.1alpha
---------------------------------------------------------
* added a DOMParser, which enables the user to parse
an XML document into a DOM.
* fixed tons of bugs
---------------------------------------------------------
Version 0.1alpha
---------------------------------------------------------
* initial public version
Index: Attr.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Attr.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Attr.pm 2002/01/07 21:03:55 1.3
--- Attr.pm 2002/02/03 22:39:42 1.4
***************
*** 75,79 ****
# that an XML processor would recognize as markup are instead treated
# as literal text.
! # @param (optional) a hash containing the following key-value-pairs
# value - the new value of the string.
# @return the value of this attribute.
--- 75,79 ----
# that an XML processor would recognize as markup are instead treated
# as literal text.
! # @param (optional) a hash reference containing the following key-value-pairs
# value - the new value of the string.
# @return the value of this attribute.
***************
*** 83,95 ****
if ( defined($paramRef) ) {
! my %params = %{$paramRef};
! my $value = $params{"value"};
!
# escape the value
! $value =~ s/&/&/g;
! $value =~ s/([^a-zA-Z0-9_ .:\/()?=!-\\\[\]])/('&#'.ord($1).';')/eg;
! $value =~ s/</</g;
! $value =~ s/>/>/g;
! $value =~ s/"/"/g;
# clear list of children
--- 83,95 ----
if ( defined($paramRef) ) {
! my $value = $paramRef -> {"value"};
!
# escape the value
! # XXX: do NOT ???? escape the value ?
! # $value =~ s/&/&/g;
! # $value =~ s/([^a-zA-Z0-9_ .:\/()?=!-\\\[\]])/('&#'.ord($1).';')/eg;
! # $value =~ s/</</g;
! # $value =~ s/>/>/g;
! # $value =~ s/"/"/g;
# clear list of children
***************
*** 107,114 ****
my $result = "";
my $count = $this -> childNodes() -> length() -1;
! for (1 .. $count ) {
# FIXME: Support for entity references
! my $node = $this -> childNodes() -> item( $_ );
! if ( $node -> nodeType() = &TEXT_NODE() ) {
$result .= $node -> nodeValue();
}
--- 107,114 ----
my $result = "";
my $count = $this -> childNodes() -> length() -1;
! for (0 .. $count ) {
# FIXME: Support for entity references
! my $node = $this -> childNodes() -> item( { index => $_ } );
! if ( $node -> nodeType() == $this -> TEXT_NODE() ) {
$result .= $node -> nodeValue();
}
***************
*** 162,166 ****
--- 162,190 ----
}
+ #/**
+ # Clones this node.
+ # @public
+ #*/
+ sub cloneNode {
+ my ($this, $paramRef) = @_;
+ my $deep = $paramRef -> { deep };
+ my $newNode = $this -> ownerDocument() -> createAttributeNS( {
+ namespaceURI => $this -> namespaceURI(),
+ qualifiedName => $this -> nodeName()
+ } );
+ $newNode -> { m_specified } = 1;
+ if ( $deep ) {
+ my $children = $this -> childNodes();
+ for ( 0..$children -> length() - 1 ) {
+ $newNode -> appendChild( { newChild =>
+ $children ->
+ item( {index => $_} ) -> cloneNode( $paramRef ) } );
+ }
+ }
+ $newNode;
+ }
+
+
#/**
# Returns ATTRIBUTE_NODE.
***************
*** 168,172 ****
#*/
sub nodeType {
! &ATTRIBUTE_NODE();
}
--- 192,197 ----
#*/
sub nodeType {
! my ($this) = @_;
! $this -> ATTRIBUTE_NODE();
}
Index: CDATASection.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CDATASection.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** CDATASection.pm 2002/01/01 17:52:59 1.3
--- CDATASection.pm 2002/02/03 22:39:42 1.4
***************
*** 93,96 ****
sub nodeType {
! &CDATA_SECTION_NODE();
}
--- 93,109 ----
sub nodeType {
! my ($this) = @_;
! $this -> CDATA_SECTION_NODE();
! }
!
! #/**
! # Clones this Node.
! # @public
! #*/
! sub cloneNode {
! my ($this) = @_;
! my $newNode = $this -> ownerDocument() -> createCDATASection( {
! data => $this -> data()
! } );
! $newNode;
}
Index: CharacterData.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CharacterData.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CharacterData.pm 2001/12/03 21:17:45 1.2
--- CharacterData.pm 2002/02/03 22:39:42 1.3
***************
*** 47,51 ****
# return the data, if the param is supplied it will set the new
# data.
! # @param a hash containing the following key-value-pairs
# data - the new character data
# @return the character data of the node that implements this
--- 47,51 ----
# return the data, if the param is supplied it will set the new
# data.
! # @param a hash reference containing the following key-value-pairs
# data - the new character data
# @return the character data of the node that implements this
***************
*** 74,78 ****
#/**
# Extracts a range of data from a node.
! # @param a hash containing the following key-value-pairs
# offset - start offset of the substring to extract
# count - the number of character units to extract
--- 74,78 ----
#/**
# Extracts a range of data from a node.
! # @param a hash reference containing the following key-value-pairs
# offset - start offset of the substring to extract
# count - the number of character units to extract
***************
*** 101,105 ****
#/**
# Append the string to the end of the character data of the node.
! # @param a hash containing the following key-value-pair
# arg - the data to append.
#*/
--- 101,105 ----
#/**
# Append the string to the end of the character data of the node.
! # @param a hash reference containing the following key-value-pair
# arg - the data to append.
#*/
***************
*** 113,117 ****
#/**
# Remove a range of characters from the node.
! # @param a hash containing the following key-value-pairs
# offset - the offset from which to start removing
# count - the number of characters to be removed.
--- 113,117 ----
#/**
# Remove a range of characters from the node.
! # @param a hash reference containing the following key-value-pairs
# offset - the offset from which to start removing
# count - the number of characters to be removed.
***************
*** 144,148 ****
#/**
# Insert a string at the specified character offset.
! # @param a hash containing the following key-value-pairs
# offset - the offset at which to insert
# arg - the string to insert
--- 144,148 ----
#/**
# Insert a string at the specified character offset.
! # @param a hash reference containing the following key-value-pairs
# offset - the offset at which to insert
# arg - the string to insert
***************
*** 172,176 ****
# Replace the characters starting at the specified offset with the
# specified string.
! # @param a hash containing the following key-value-pairs
# offset - the offset at which to start replacing
# count - the number of characters to replace
--- 172,176 ----
# Replace the characters starting at the specified offset with the
# specified string.
! # @param a hash reference containing the following key-value-pairs
# offset - the offset at which to start replacing
# count - the number of characters to replace
Index: Comment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Comment.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Comment.pm 2002/01/01 17:52:59 1.3
--- Comment.pm 2002/02/03 22:39:42 1.4
***************
*** 94,97 ****
sub nodeType {
! &COMMENT_NODE();
}
--- 94,110 ----
sub nodeType {
! my ($this) = @_;
! $this -> COMMENT_NODE();
! }
!
! #/**
! # Clones this Node.
! # @public
! #*/
! sub cloneNode {
! my ($this) = @_;
! my $newNode = $this -> ownerDocument() -> createComment( {
! data => $this -> data()
! } );
! $newNode;
}
Index: DOMException.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMException.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** DOMException.pm 2001/12/11 22:21:21 1.5
--- DOMException.pm 2002/02/03 22:39:42 1.6
***************
*** 12,15 ****
--- 12,16 ----
package XML::DOM2::DOMException;
use vars qw($VERSION);
+ use Carp;
#--------------------------------------------------------
***************
*** 44,48 ****
#/**
# The constructor. Constructs a DOMException.
! # @param a hash containing the following key-value-pairs
# ErrCode - the ErrorCode for this Exception
# ErrDesc - an exact description why the error occured
--- 45,49 ----
#/**
# The constructor. Constructs a DOMException.
! # @param a hash reference containing the following key-value-pairs
# ErrCode - the ErrorCode for this Exception
# ErrDesc - an exact description why the error occured
***************
*** 150,154 ****
sub raise {
my ( $this ) = @_;
! die "DOMException : Code ". $this -> getCode() . " \n" .
"Code Description: " . $this -> getErrorMessage() . " \n" .
"Error message : " . $this -> getDescription() . "\n";
--- 151,155 ----
sub raise {
my ( $this ) = @_;
! confess "DOMException : Code ". $this -> getCode() . " \n" .
"Code Description: " . $this -> getErrorMessage() . " \n" .
"Error message : " . $this -> getDescription() . "\n";
Index: DOMImplementation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMImplementation.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DOMImplementation.pm 2002/01/07 21:03:55 1.2
--- DOMImplementation.pm 2002/02/03 22:39:42 1.3
***************
*** 12,16 ****
package XML::DOM2::DOMImplementation;
use vars qw($VERSION);
!
#--------------------------------------------------------
# Globals
--- 12,18 ----
package XML::DOM2::DOMImplementation;
use vars qw($VERSION);
! use XML::DOM2::Document;
! use XML::DOM2::DOMException;
! use XML::DOM2::DocumentType;
#--------------------------------------------------------
# Globals
***************
*** 29,32 ****
--- 31,35 ----
# The constructor. Constructs a DOMImplementation
# @return an instance of XML::DOM2:DOMImplementation
+ # @public
#*/
sub new {
***************
*** 63,67 ****
# Creates an empty DocumentType node.
#
! # @param a hash containing the following key-value-pairs
# qualifiedName - the qualified name of the document type to be created.
# publicId - the external subset public identifier.
--- 66,70 ----
# Creates an empty DocumentType node.
#
! # @param a hash reference containing the following key-value-pairs
# qualifiedName - the qualified name of the document type to be created.
# publicId - the external subset public identifier.
***************
*** 82,86 ****
#/**
# Creates an an XML Document object.
! # @param a hash containing the following key-value-pairs
# namespaceURI - the namespace URI of the document element to create.
# qualifiedName - the qualified name of the document element
--- 85,89 ----
#/**
# Creates an an XML Document object.
! # @param a hash reference containing the following key-value-pairs
# namespaceURI - the namespace URI of the document element to create.
# qualifiedName - the qualified name of the document element
***************
*** 106,109 ****
--- 109,113 ----
$doc -> { m_implementation } = $this;
$doc -> { m_doctype } = $paramRef -> { doctype };
+ $doc -> { m_ownerDocument } = $doc;
my $rootElement = $doc -> createElementNS( $paramRef );
$doc -> appendChild( { newChild => $rootElement } );
Index: DOMParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParser.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DOMParser.pm 2002/01/09 21:56:02 1.1
--- DOMParser.pm 2002/02/03 22:39:42 1.2
***************
*** 14,17 ****
--- 14,19 ----
use XML::DOM2::DOMImplementation;
+ use XML::DOM2::DOMException;
+ use XML::DOM2::DOMParserStyle;
use XML::Parser;
***************
*** 43,48 ****
$this -> { m_parser } = new XML::Parser(
Style => 'XML::DOM2::DOMParserStyle',
! Pkg => $this
);
return $this;
}
--- 45,62 ----
$this -> { m_parser } = new XML::Parser(
Style => 'XML::DOM2::DOMParserStyle',
! Pkg => $this,
! Namespaces => 1,
! ErrorContext => 5
);
+
+ # holds the currently innermost element
+ # e.g
+ # <a>
+ # <b> some text <--- Parser is here
+ # </b>
+ # </a>
+ # m_contextElement is <b>
+ $this -> { m_contextElement } = undef;
+ $this -> { m_document } = undef;
return $this;
}
***************
*** 51,55 ****
#/**
# Parses the given File. Returns the Document object.
! # @param a hash containing the following key-value-pairs:
# file - the name of the file to parse
# @return an instance of XML::DOM2::Document, representing
--- 65,69 ----
#/**
# Parses the given File. Returns the Document object.
! # @param a hash reference containing the following key-value-pairs:
# file - the name of the file to parse
# @return an instance of XML::DOM2::Document, representing
***************
*** 58,67 ****
#*/
sub parseFile {
!
}
#/**
# Parses the given String. Returns the Document object.
! # @param a hash containing the following key-value-pairs:
# string - a scalar holding the textual representation
# of an XML Document.
--- 72,85 ----
#*/
sub parseFile {
! my ($this, $paramRef) = @_;
! my $filename = $paramRef -> { "file" };
! $this -> { m_parser } -> parsefile( $filename );
! # return the parsed document
! $this -> { m_document };
}
#/**
# Parses the given String. Returns the Document object.
! # @param a hash reference containing the following key-value-pairs:
# string - a scalar holding the textual representation
# of an XML Document.
***************
*** 71,75 ****
#*/
sub parseString {
!
}
--- 89,97 ----
#*/
sub parseString {
! my ($this, $paramRef) = @_;
! my $string = $paramRef -> { "string" };
! $this -> { m_parser } -> parse( $string );
! # return the parsed document
! $this -> { m_document };
}
***************
*** 89,92 ****
--- 111,115 ----
#/**
+ # Called on the start of an Element.
# @private
#*/
***************
*** 95,104 ****
my $elementNode = undef;
if ( !defined( $this -> { m_document } ) ) {
# create new document
$this -> { m_document } =
$this -> { m_DOMImplementation } -> createDocument( {
! qualifiedName => $element,
! namespaceURI => $expat -> namespace( $element )
} );
# get the root node
--- 118,140 ----
my $elementNode = undef;
+ my $namespaceURI = $expat -> namespace( $element );
+
+ # expat strips all prefixes from elements so we have to find
+ # the prefix ourselves, which is quite an expensive operation
+ # so if anyone knows how to avoid this, any help is appreciated...
+ #
+ my @prefixes = $expat -> current_ns_prefixes();
+ my %prefixMap = ();
+ for (@prefixes) {
+ $prefixMap{$expat -> expand_ns_prefix($_)} = $_;
+ }
+ my $prefix = $prefixMap{$namespaceURI};
+
if ( !defined( $this -> { m_document } ) ) {
# create new document
$this -> { m_document } =
$this -> { m_DOMImplementation } -> createDocument( {
! qualifiedName => defined($prefix) ? $prefix.":".$element : $element,
! namespaceURI => $namespaceURI
} );
# get the root node
***************
*** 107,167 ****
else {
$elementNode = $this -> { m_document } -> createElementNS( {
! qualifiedName => $element,
! namespaceURI => $expat -> namespace( $element )
} );
}
!
while( @attrList ) {
! my $name = shift;
! my $value = shift;
$elementNode -> setAttributeNS({
! qualifiedName => $name,
! namespaceURI => $expat -> namespace( $name ),
value => $value
});
}
}
#/**
# @private
#*/
sub End {
}
#/**
# @private
#*/
sub Char {
}
#/**
# @private
#*/
sub Proc {
}
#/**
# @private
#*/
sub Comment {
}
#/**
# @private
#*/
sub CdataStart {
!
}
#/**
# @private
#*/
sub CdataEnd {
!
}
--- 143,265 ----
else {
$elementNode = $this -> { m_document } -> createElementNS( {
! qualifiedName => defined($prefix) ? $prefix.":".$element : $element,
! namespaceURI => $namespaceURI
} );
+ # get currently innermost open Element.
+ # and append this element to it.
+ my $parentNode = $this -> { m_contextElement };
+ $parentNode -> appendChild( { newChild => $elementNode } );
}
! # add any attributes
while( @attrList ) {
! my $name = shift @attrList;
! my $value = shift @attrList;
! my $aNamespaceURI = $expat -> namespace($name);
! my $aPrefix = $prefixMap{$namespaceURI};
!
$elementNode -> setAttributeNS({
! qualifiedName => defined($aPrefix) ? $aPrefix.":".$name : $name,
! namespaceURI => $aNamespaceURI,
value => $value
});
}
+
+ # now the elementNode is the innermost open Element:
+ $this -> { m_contextElement } = $elementNode;
}
+
#/**
+ # Called at the end of an element.
# @private
#*/
sub End {
+ my ($this, $expat, $element ) = @_;
+ # XXX: there is no checking, if the element matches the currently
+ # open element, however, shouldn't the parser care about this ?
+ my $contextElement = $this -> { m_contextElement };
+ # now it's quite easy, we put the parent of the contextElement
+ # as new context element
+ $this -> { m_contextElement } = $contextElement -> parentNode();
}
#/**
+ # Called on non-markup.
# @private
#*/
sub Char {
+ my ($this, $expat, $string) = @_;
+ # first, create a text node
+ my $textNode = $this -> { m_document } -> createTextNode( {
+ data => $string
+ });
+
+ # append it to the context element
+ $this -> { m_contextElement } -> appendChild( { newChild => $textNode } );
}
#/**
+ # Called on a processing instruction.
# @private
#*/
sub Proc {
+ my ($this, $expat, $target, $data) = @_;
+
+ # first, create a processing instruction node
+ my $procNode = $this -> { m_document } -> createProcessingInstruction( {
+ target => $target,
+ data => $data
+ });
+
+ # append it to the context element
+ $this -> { m_contextElement } -> appendChild( { newChild => $procNode } );
}
#/**
+ # Called on a comment.
# @private
#*/
sub Comment {
+ my ($this, $expat, $data) = @_;
+ # first, create a text node
+ my $commentNode = $this -> { m_document } -> createComment( {
+ data => $data
+ });
+
+ # append it to the context element
+ $this -> { m_contextElement } -> appendChild( { newChild => $commentNode } );
}
#/**
+ # Called at the start of a CDATA section.
# @private
#*/
sub CdataStart {
! my ($this, $expat) = @_;
! # no idea what happens here, CDATA is currently not supported.
! my $exc = XML::DOM2::DOMException -> new( {
! ErrCode => XML::DOM2::DOMException -> ERR_NOT_SUPPORTED(),
! ErrDesc => "The DOMParser currently does not support CDATA sections."
! });
! $exc -> raise();
}
#/**
+ # Called at the end of a CDATA section.
# @private
#*/
sub CdataEnd {
! my ($this, $expat) = @_;
! # no idea what happens here, CDATA is currently not supported.
! my $exc = XML::DOM2::DOMException -> new( {
! ErrCode => XML::DOM2::DOMException -> ERR_NOT_SUPPORTED(),
! ErrDesc => "The DOMParser currently does not support CDATA sections."
! });
! $exc -> raise();
}
***************
*** 170,174 ****
#*/
sub Unparsed {
!
}
--- 268,272 ----
#*/
sub Unparsed {
! # DTD-Stuff, not yet supported.
}
***************
*** 177,187 ****
#*/
sub Notation {
!
}
#/**
# @private
#*/
sub ExternEnt {
!
}
--- 275,286 ----
#*/
sub Notation {
! # DTD-Stuff, not yet supported.
}
+
#/**
# @private
#*/
sub ExternEnt {
! # DTD-Stuff, not yet supported.
}
***************
*** 190,194 ****
#*/
sub Entity {
!
}
--- 289,293 ----
#*/
sub Entity {
! # DTD-Stuff, not yet supported.
}
***************
*** 198,202 ****
#*/
sub Element {
!
}
--- 297,301 ----
#*/
sub Element {
! # DTD-Stuff, not yet supported.
}
***************
*** 205,209 ****
#*/
sub Attlist {
!
}
--- 304,308 ----
#*/
sub Attlist {
! # DTD-Stuff, not yet supported.
}
***************
*** 212,216 ****
#*/
sub Doctype {
!
}
--- 311,315 ----
#*/
sub Doctype {
! # DTD-Stuff, not yet supported.
}
***************
*** 219,223 ****
#*/
sub XMLDecl {
!
}
--- 318,322 ----
#*/
sub XMLDecl {
! # DTD-Stuff, not yet supported.
}
Index: DOMParserStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParserStyle.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DOMParserStyle.pm 2002/01/09 21:56:02 1.1
--- DOMParserStyle.pm 2002/02/03 22:39:42 1.2
***************
*** 159,160 ****
--- 159,161 ----
}
+ 1;
Index: Document.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Document.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Document.pm 2002/01/07 21:03:55 1.2
--- Document.pm 2002/02/03 22:39:42 1.3
***************
*** 87,91 ****
# Creates an Attr node of the given name. Note that the Attr instance
# can then be set on an element using the setAttributeNode method.
! # @param a hash containing the following key-value-pairs:
# name - the name of the attribute.
# @return an instance of XML::DOM2::Attr
--- 87,91 ----
# Creates an Attr node of the given name. Note that the Attr instance
# can then be set on an element using the setAttributeNode method.
! # @param a hash reference containing the following key-value-pairs:
# name - the name of the attribute.
# @return an instance of XML::DOM2::Attr
***************
*** 106,110 ****
#/**
# Creates an attribute of the given qualified name and namespace URI.
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute
# qualifiedName - the qualified name of the attribute
--- 106,110 ----
#/**
# Creates an attribute of the given qualified name and namespace URI.
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute
# qualifiedName - the qualified name of the attribute
***************
*** 126,130 ****
my $exc = XML::DOM2::DOMException -> new ( {
ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name has a prefix, but the namespace URI is undef!"
});
$exc -> raise();
--- 126,130 ----
my $exc = XML::DOM2::DOMException -> new ( {
ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name (".$paramRef -> { qualifiedName }.") has a prefix, but the namespace URI is undef!"
});
$exc -> raise();
***************
*** 151,155 ****
$exc -> raise();
}
-
my $attr = XML::DOM2::Attr -> new();
$attr -> { m_ownerDocument } = $this;
--- 151,154 ----
***************
*** 164,168 ****
#/**
# Creates a CDATASection node whose value is the specified String.
! # @param a hash containing the following key-value-pairs:
# data - the data for the CDATASection contents.
# @return an instance of XML::DOM2::CDATASection
--- 163,167 ----
#/**
# Creates a CDATASection node whose value is the specified String.
! # @param a hash reference containing the following key-value-pairs:
# data - the data for the CDATASection contents.
# @return an instance of XML::DOM2::CDATASection
***************
*** 179,183 ****
#/**
# Creates a Comment node given the specified String.
! # @param a hash containing the following key-value-pairs:
# data - the data for the node.
# @return an instance of XML::DOM2::Comment
--- 178,182 ----
#/**
# Creates a Comment node given the specified String.
! # @param a hash reference containing the following key-value-pairs:
# data - the data for the node.
# @return an instance of XML::DOM2::Comment
***************
*** 209,213 ****
# Creates an element of the type specified. Attributes can be specified
# directly on the returned object.
! # @param a hash containing the following key-value-pairs:
# tagName - the name of the element type to instantiate.
# @return an instance of XML::DOM2::Element
--- 208,212 ----
# Creates an element of the type specified. Attributes can be specified
# directly on the returned object.
! # @param a hash reference containing the following key-value-pairs:
# tagName - the name of the element type to instantiate.
# @return an instance of XML::DOM2::Element
***************
*** 229,233 ****
#/**
# Creates an element of the given qualified name and namespaceURI
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the element to create
# qualifiedName - the qualified name of the element type to instantiate
--- 228,232 ----
#/**
# Creates an element of the given qualified name and namespaceURI
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespace URI of the element to create
# qualifiedName - the qualified name of the element type to instantiate
***************
*** 237,241 ****
sub createElementNS {
my ($this, $paramRef) = @_;
-
my ( $prefix, $localname ) = split(/:/, $paramRef -> { qualifiedName });
my $namespaceURI = $paramRef -> { namespaceURI };
--- 236,239 ----
***************
*** 249,253 ****
my $exc = XML::DOM2::DOMException -> new ( {
ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name has a prefix, but the namespace URI is undef!"
});
$exc -> raise();
--- 247,251 ----
my $exc = XML::DOM2::DOMException -> new ( {
ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name (".$paramRef->{ qualifiedName }.") has a prefix, but the namespace URI is undef!"
});
$exc -> raise();
***************
*** 291,295 ****
# known, the child list of the EntityReference node is made the same as that
# of the corresponding Entity node.
! # @param a hash containing the following key-value-pairs:
# name - the name of the entity to reference.
# @return an instance of XML::DOM2::EntityReference
--- 289,293 ----
# known, the child list of the EntityReference node is made the same as that
# of the corresponding Entity node.
! # @param a hash reference containing the following key-value-pairs:
# name - the name of the entity to reference.
# @return an instance of XML::DOM2::EntityReference
***************
*** 311,315 ****
# Creates a processing instruction node given the specified
# name and data strings.
! # @param a hash containing the following key-value-pairs:
# target - the target part of the processing instruction
# data - the data for the node
--- 309,313 ----
# Creates a processing instruction node given the specified
# name and data strings.
! # @param a hash reference containing the following key-value-pairs:
# target - the target part of the processing instruction
# data - the data for the node
***************
*** 329,333 ****
#/**
# Creates a new text node given the specified string.
! # @param a hash containing the following key-value-pairs
# data - the data for the node
# @return an instance of XML::DOM2::Text
--- 327,331 ----
#/**
# Creates a new text node given the specified string.
! # @param a hash reference containing the following key-value-pairs
# data - the data for the node
# @return an instance of XML::DOM2::Text
***************
*** 359,363 ****
# order in which they are encountered in a preorder traversal of the
# document tree.
! # @param a hash containing the following key-value-pairs:
# tagname - the name of the tag to match on. "*" matches all tags.
# @return an instance of XML::DOM2::NodeList
--- 357,361 ----
# order in which they are encountered in a preorder traversal of the
# document tree.
! # @param a hash reference containing the following key-value-pairs:
# tagname - the name of the tag to match on. "*" matches all tags.
# @return an instance of XML::DOM2::NodeList
***************
*** 379,383 ****
# Returns a NodeList of alle the Elements with a given local name
# and namspace URI.
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namsepace URI of the elements to match on
# "*" matches all namespaces
--- 377,381 ----
# Returns a NodeList of alle the Elements with a given local name
# and namspace URI.
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namsepace URI of the elements to match on
# "*" matches all namespaces
***************
*** 400,418 ****
#/**
# Imports a node from another document to this document.
! # @not-implemented
#*/
sub importNode {
! my ( $this ) = @_;
! my $exception = XML::DOM2::DOMException -> new(
! { ErrCode => XML::DOM2::DOMException -> NOT_SUPPORTED_ERR(),
! ErrDesc => "Node importing is not yet supported by this implementation."
! }
! );
! $exception -> raise();
! return;
}
sub nodeType {
! &DOCUMENT_NODE();
}
--- 398,455 ----
#/**
# Imports a node from another document to this document.
! # @param a hash reference containing the following key-value-pairs:
! # importedNode - the node to import
! # deep - imports the subtree if set to non-zero (except for Attr-Nodes
! # which always import their subtree).
! # @note: importing is limited to nodes which can be cloned by this
! # implementation.
#*/
sub importNode {
! my ( $this, $paramRef ) = @_;
!
! my $node = $paramRef -> { importedNode };
! my $deep = $paramRef -> { deep };
!
! if ($node -> nodeType() == XML::DOM2::Node -> ATTRIBUTE_NODE()) {
! # make a shallow copy
! my $newNode = $node -> cloneNode();
! my $descendants = $node -> childNodes();
! # reset owner document
! $newNode -> { m_ownerDocument } = $this;
! # import the descendants
! for ( 0..$descendants -> length() - 1) {
! $newNode -> appendChild( {
! newChild => $this -> importNode( {
! importedNode => $descendants -> item( { index => $_ } )
! })
! });
! }
! return $newNode;
! }
! else {
! # make a shallow copy
! my $newNode = $node -> cloneNode();
! #reset owner document
! $newNode -> { m_ownerDocument } = $this;
! if ( $deep ) {
! my $descendants = $node -> childNodes();
! # import the descendants
! for ( 0..$descendants -> length() - 1) {
! $newNode -> appendChild( {
! newChild => $this -> importNode( {
! importedNode => $descendants -> item( { index => $_ } )
! })
! });
! }
! }
! return $newNode;
! }
}
sub nodeType {
! my ($this) = @_;
! $this -> DOCUMENT_NODE();
}
+
+
Index: DocumentFragment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentFragment.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DocumentFragment.pm 2002/01/01 17:53:34 1.1
--- DocumentFragment.pm 2002/02/03 22:39:42 1.2
***************
*** 31,36 ****
#*/
sub nodeType {
! &DOCUMENT_FRAGMENT_NODE();
}
--- 31,60 ----
#*/
sub nodeType {
! my ($this) = @_;
! $this -> DOCUMENT_FRAGMENT_NODE();
}
+ #/**
+ # Clones this node.
+ # @public
+ #*/
+ #/**
+ # Clones this node.
+ # @public
+ #*/
+ sub cloneNode {
+ my ($this, $paramRef) = @_;
+ my $deep = $paramRef -> { deep };
+ my $newNode = $this -> ownerDocument() -> createDocumentFragment();
+
+ if ( $deep ) {
+ my $children = $this -> childNodes();
+ for ( 0..$children -> length() - 1 ) {
+ $newNode -> appendChild( { newChild =>
+ $children ->
+ item( {index => $_} ) -> cloneNode() } );
+ }
+ }
+ $newNode;
+ }
Index: DocumentType.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentType.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DocumentType.pm 2002/01/01 17:53:34 1.1
--- DocumentType.pm 2002/02/03 22:39:42 1.2
***************
*** 109,113 ****
#*/
sub nodeType {
! &DOCUMENT_TYPE_NODE();
}
--- 109,114 ----
#*/
sub nodeType {
! my ($this) = @_;
! $this -> DOCUMENT_TYPE_NODE();
}
Index: Element.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Element.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Element.pm 2002/01/07 21:03:55 1.3
--- Element.pm 2002/02/03 22:39:42 1.4
***************
*** 17,20 ****
--- 17,21 ----
use XML::DOM2::NamedNodeMap;
+
#--------------------------------------------------------
# Globals
***************
*** 75,79 ****
#/**
# Retrieves an attribute value by name.
! # @param a hash containing the following key-value-pairs
# name - the name of the attribute to retrieve.
# @return a scalar holding the attr value, or an empty string
--- 76,80 ----
#/**
# Retrieves an attribute value by name.
! # @param a hash reference containing the following key-value-pairs
# name - the name of the attribute to retrieve.
# @return a scalar holding the attr value, or an empty string
***************
*** 96,100 ****
#/**
# Returns the attribute value by local name and namespace URI.
! # @param a hash containing the following key-value-pairs.
# namespaceURI - the namespace URI of the attribute to retrieve
# localName - the local name of the attribute to retrieve.
--- 97,101 ----
#/**
# Returns the attribute value by local name and namespace URI.
! # @param a hash reference containing the following key-value-pairs.
# namespaceURI - the namespace URI of the attribute to retrieve
# localName - the local name of the attribute to retrieve.
***************
*** 118,122 ****
#/**
# Retrieves an attribute node by name.
! # @param a hash containing the following key-value-pairs:
# name - the name (nodeName) of the attribute to retrieve
# @return an instance of XML::DOM2::Attr or undef, if there is no such
--- 119,123 ----
#/**
# Retrieves an attribute node by name.
! # @param a hash reference containing the following key-value-pairs:
# name - the name (nodeName) of the attribute to retrieve
# @return an instance of XML::DOM2::Attr or undef, if there is no such
***************
*** 131,135 ****
#/**
# Retrieves an attribute node by local name and namespace URI.
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to retrieve
# localName - the local name of the attribute to retrieve.
--- 132,136 ----
#/**
# Retrieves an attribute node by local name and namespace URI.
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to retrieve
# localName - the local name of the attribute to retrieve.
***************
*** 147,151 ****
# in the order in which they are encountered in a preorder traversal of
# the document tree.
! # @param a hash containing the following key-value-pairs:
# name - the name of the tag to match on. the special value
# "*" matches all tags.
--- 148,152 ----
# in the order in which they are encountered in a preorder traversal of
# the document tree.
! # @param a hash reference containing the following key-value-pairs:
# name - the name of the tag to match on. the special value
# "*" matches all tags.
***************
*** 192,196 ****
# URI in the order in which they are encountered in a preorder traversal of
# the document tree.
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace uri of the elements to match on. the
# special value "*" matches all namespaces
--- 193,197 ----
# URI in the order in which they are encountered in a preorder traversal of
# the document tree.
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespace uri of the elements to match on. the
# special value "*" matches all namespaces
***************
*** 239,243 ****
# Returns nonzero if an attribtue with the given name is specified on this
# Element or has a default value, 0 otherwise.
! # @param a hash containing the following key-value-pairs:
# name - the name of the attribute to look for.
# @return 0 or nonzero
--- 240,244 ----
# Returns nonzero if an attribtue with the given name is specified on this
# Element or has a default value, 0 otherwise.
! # @param a hash reference containing the following key-value-pairs:
# name - the name of the attribute to look for.
# @return 0 or nonzero
***************
*** 257,261 ****
# Returns nonzero when an attribute with a given local name and namespace URI
# is specified on this element or has a default value. 0 otherwise.
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to look for
# localName - the local name of the attribute to look for
--- 258,262 ----
# Returns nonzero when an attribute with a given local name and namespace URI
# is specified on this element or has a default value. 0 otherwise.
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to look for
# localName - the local name of the attribute to look for
***************
*** 278,282 ****
# default value, as well as the corresponding namespace URI, local name
# and prefix when applicable.
! # @param a hash containing the following key-value-pairs:
# name - the name of the attribute to remove.
# @public
--- 279,283 ----
# default value, as well as the corresponding namespace URI, local name
# and prefix when applicable.
! # @param a hash reference containing the following key-value-pairs:
# name - the name of the attribute to remove.
# @public
***************
*** 294,298 ****
# The replacing attribute has the same namespace URI and local name as
# well as the original prefix.
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to remove
# localName - the local name of the attribute to remove
--- 295,299 ----
# The replacing attribute has the same namespace URI and local name as
# well as the original prefix.
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespace URI of the attribute to remove
# localName - the local name of the attribute to remove
***************
*** 309,313 ****
# it is immediately replaced. The replacing attribute has the same namespace
# URI and local name as well as the original prefix.
! # @param a hash containing the following key-value-pairs:
# oldAttr - the Attr node to remove from the attribute list.
# @return an instance of XML::DOM2::Attr - the removed attr node.
--- 310,314 ----
# it is immediately replaced. The replacing attribute has the same namespace
# URI and local name as well as the original prefix.
! # @param a hash reference containing the following key-value-pairs:
# oldAttr - the Attr node to remove from the attribute list.
# @return an instance of XML::DOM2::Attr - the removed attr node.
***************
*** 342,346 ****
# create attributes with entity references.
#
! # @param a hash containing the following key-value-pairs
# name - the name of the attribute to create / alter
# value - value to set in string form
--- 343,347 ----
# create attributes with entity references.
#
! # @param a hash reference containing the following key-value-pairs
# name - the name of the attribute to create / alter
# value - value to set in string form
***************
*** 352,358 ****
my $value = $paramRef -> { "value" };
- my $attribute = $this -> getAttribute( $paramRef );
-
if ( defined($attribute) ) {
$attribute -> value ( $paramRef );
--- 353,358 ----
my $value = $paramRef -> { "value" };
+ my $attribute = $this -> getAttributeNode( $paramRef );
if ( defined($attribute) ) {
$attribute -> value ( $paramRef );
***************
*** 368,372 ****
# Same as setAttribute, but takes qualified name and namespace URI instead.
#
! # @param a hash containing the following key-value-pairs
# namespaceURI - the namespace uri of the attribute
# qualifiedName - the qualified name of the attribute
--- 368,372 ----
# Same as setAttribute, but takes qualified name and namespace URI instead.
#
! # @param a hash reference containing the following key-value-pairs
# namespaceURI - the namespace uri of the attribute
# qualifiedName - the qualified name of the attribute
***************
*** 389,393 ****
my $exc = XML::DOM2::DOMException -> new ( {
ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name has a prefix, but the namespace URI is undef!"
});
$exc -> raise();
--- 389,393 ----
my $exc = XML::DOM2::DOMException -> new ( {
ErrCode => XML::DOM2::DOMException -> NAMESPACE_ERR(),
! ErrDesc => "The qualified name (".$paramRef -> { qualifiedName }.") has a prefix, but the namespace URI is undef!"
});
$exc -> raise();
***************
*** 415,419 ****
}
! my $attribute = $this -> getAttributeNS( $paramRef );
if ( defined( $attribute ) ) {
$attribute -> value( $paramRef );
--- 415,419 ----
}
! my $attribute = $this -> getAttributeNodeNS( $paramRef );
if ( defined( $attribute ) ) {
$attribute -> value( $paramRef );
***************
*** 455,465 ****
}
! my $old = getAttributeNode( { name => $attribute -> name() } );
if ( defined($old) ) {
$this -> removeAttributeNode( { oldAttr => $old} );
}
!
! $this -> attributes() -> add( { newNode => $attribute } );
return $old;
}
--- 455,464 ----
}
! my $old = $this -> getAttributeNode( { name => $attribute -> name() } );
if ( defined($old) ) {
$this -> removeAttributeNode( { oldAttr => $old} );
}
! $this -> attributes() -> setNamedItem( { node => $attribute } );
return $old;
}
***************
*** 473,477 ****
# @public
#*/
! sub setAttributeNode {
my ($this, $paramRef) = @_;
--- 472,476 ----
# @public
#*/
! sub setAttributeNodeNS {
my ($this, $paramRef) = @_;
***************
*** 494,498 ****
}
! my $old = getAttributeNodeNS( {
namespaceURI => $attribute -> namespaceURI(),
localName => $attribute -> localName()
--- 493,497 ----
}
! my $old = $this -> getAttributeNodeNS( {
namespaceURI => $attribute -> namespaceURI(),
localName => $attribute -> localName()
***************
*** 503,507 ****
}
! $this -> attributes() -> add( { newNode => $attribute } );
return $old;
}
--- 502,506 ----
}
! $this -> attributes() -> setNamedItemNS( { node => $attribute } );
return $old;
}
***************
*** 540,545 ****
#*/
sub nodeType {
! &ELEMENT_NODE();
}
! 1;
--- 539,579 ----
#*/
sub nodeType {
! my ($this) = @_;
! $this -> ELEMENT_NODE();
}
! #/**
! # Clones this node.
! # @public
! #*/
! sub cloneNode {
! my ($this, $paramRef) = @_;
! my $deep = $paramRef -> { deep };
! #copy node
! my $newNode = $this -> ownerDocument() -> createElementNS({
! namespaceURI => $this -> namespaceURI(),
! qualifiedName => $this -> nodeName(),
! });
!
! #copy attributes
! my $attributes = $this -> attributes();
! for ( 0..$attributes -> length() -1 ) {
! $newNode -> setAttributeNodeNS( {
! newAttr => $attributes -> item ( { index => $_ } ) -> cloneNode( { deep => 1 } )
! } );
! }
!
! # if deep copy clone subtree
! if ( $deep ) {
! my $children = $this -> childNodes();
! for ( 0..$children -> length() - 1 ) {
! $newNode -> appendChild( { newChild =>
! $children ->
! item( {index => $_} ) -> cloneNode( $paramRef ) } );
! }
! }
!
! $newNode;
! }
!
!
Index: Entity.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Entity.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Entity.pm 2002/01/01 17:53:34 1.1
--- Entity.pm 2002/02/03 22:39:42 1.2
***************
*** 76,80 ****
#*/
sub nodeType {
! &ENTITY_NODE();
}
--- 76,81 ----
#*/
sub nodeType {
! my ($this) = @_;
! $this -> ENTITY_NODE();
}
Index: EntityReference.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/EntityReference.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EntityReference.pm 2002/01/01 17:53:34 1.1
--- EntityReference.pm 2002/02/03 22:39:42 1.2
***************
*** 31,35 ****
#*/
sub nodeType {
! &ENTITY_REFERENCE_NODE();
}
--- 31,36 ----
#*/
sub nodeType {
! my ($this) = @_;
! $this -> ENTITY_REFERENCE_NODE();
}
Index: NamedNodeMap.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NamedNodeMap.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** NamedNodeMap.pm 2002/01/01 17:52:59 1.5
--- NamedNodeMap.pm 2002/02/03 22:39:42 1.6
***************
*** 58,62 ****
# Retrieves a node specified by name.
#
! # @param a hash containing the following key-value-pairs
# name - the nodeName of a node to retrieve.
# @return a reference to an XML::DOM2::Node object or undef
--- 58,62 ----
# Retrieves a node specified by name.
#
! # @param a hash reference containing the following key-value-pairs
# name - the nodeName of a node to retrieve.
# @return a reference to an XML::DOM2::Node object or undef
***************
*** 66,70 ****
my ( $this, $paramsRef ) = @_;
my $name = $paramsRef -> { name };
-
$this -> { m_nodeMap } -> { $name };
}
--- 66,69 ----
***************
*** 74,78 ****
# URI.
#
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespace URI of the node to retrieve.
# localName - the local name of the node to retrieve.
--- 73,77 ----
# URI.
#
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespace URI of the node to retrieve.
# localName - the local name of the node to retrieve.
***************
*** 92,96 ****
# it returns undef.
#
! # @param a hash containing the following key-value-pairs:
# index - a scalar holding the index to retrieve.
# @return a reference to an XML::DOM2::Node object or undef
--- 91,95 ----
# it returns undef.
#
! # @param a hash reference containing the following key-value-pairs:
# index - a scalar holding the index to retrieve.
# @return a reference to an XML::DOM2::Node object or undef
***************
*** 108,112 ****
# Removes a node specified by name.
#
! # @param a hash containing the following key-value-pairs:
# name - the nodeName of the node to remove.
# @return the removed Node, if such a node exists, else undef.
--- 107,111 ----
# Removes a node specified by name.
#
! # @param a hash reference containing the following key-value-pairs:
# name - the nodeName of the node to remove.
# @return the removed Node, if such a node exists, else undef.
***************
*** 125,129 ****
#/**
# Removes the given node from the map.
! # @param a hash containing the following key-value-pairs:
# node - the node to delete.
# @return the deleted node if the node could be removed or
--- 124,128 ----
#/**
# Removes the given node from the map.
! # @param a hash reference containing the following key-value-pairs:
# node - the node to delete.
# @return the deleted node if the node could be removed or
***************
*** 152,156 ****
# Removes a node specified by namespaceURI and local names.
#
! # @param a hash containing the following key-value-pairs:
# namespaceURI - the namespaceURI of the node to remove.
# localName - the local name of the node to remove.
--- 151,155 ----
# Removes a node specified by namespaceURI and local names.
#
! # @param a hash reference containing the following key-value-pairs:
# namespaceURI - the namespaceURI of the node to remove.
# localName - the local name of the node to remove.
***************
*** 172,176 ****
# Adds/replaces a node specified by nodeName
#
! # @param a hash containing the following key-value-pairs:
# node - an instance of XML::DOM2::Node
#*/
--- 171,175 ----
# Adds/replaces a node specified by nodeName
#
! # @param a hash reference containing the following key-value-pairs:
# node - an instance of XML::DOM2::Node
#*/
***************
*** 184,188 ****
# Adds/replaces a node specified by localName and Namespace-URI.
#
! # @param a hash containing the following key-value-pairs:
# node - an instance of XML::DOM2::Node
#*/
--- 183,187 ----
# Adds/replaces a node specified by localName and Namespace-URI.
#
! # @param a hash reference containing the following key-value-pairs:
# node - an instance of XML::DOM2::Node
#*/
Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Node.pm 2002/01/07 21:03:55 1.11
--- Node.pm 2002/02/03 22:39:42 1.12
***************
*** 107,111 ****
if ( $this -> childNodes() -> length() > 0 ) {
! return $this -> childNodes() -> item( 0 ) ;
}
else {
--- 107,111 ----
if ( $this -> childNodes() -> length() > 0 ) {
! return $this -> childNodes() -> item( { index => 0 } ) ;
}
else {
***************
*** 128,132 ****
if ( $len > 0 ) {
! return $this -> childNodes() -> item( $len - 1 ) ;
}
else {
--- 128,132 ----
if ( $len > 0 ) {
! return $this -> childNodes() -> item( { index => $len - 1 } ) ;
}
else {
***************
*** 217,221 ****
# setting it has no effect. Returns the value of this node.
#
! # @param a hash containing the following key-value-pairs
# value - a scalar holding the new value of this node.
# May be undef.
--- 217,221 ----
# setting it has no effect. Returns the value of this node.
#
! # @param a hash reference containing the following key-value-pairs
# value - a scalar holding the new value of this node.
# May be undef.
***************
*** 273,277 ****
# Document interface, this is always undef.
#
! # @param a hash containing the following key-value-pairs
# prefix - the new namespace prefix for this node
# @return a scalar holding the namespace prefix of this node or
--- 273,277 ----
# Document interface, this is always undef.
#
! # @param a hash reference containing the following key-value-pairs
# prefix - the new namespace prefix for this node
# @return a scalar holding the namespace prefix of this node or
***************
*** 339,343 ****
# If the newChild is already in the tree, it is first removed.
#
! # @param a hash containing the following key-value-pairs:
# newChild - an instance of XML::DOM2::Node, the new child.
# @return an instance of XML::DOM2::Node, the node added.
--- 339,343 ----
# If the newChild is already in the tree, it is first removed.
#
! # @param a hash reference containing the following key-value-pairs:
# newChild - an instance of XML::DOM2::Node, the new child.
# @return an instance of XML::DOM2::Node, the node added.
***************
*** 386,391 ****
# remove node from parent, if parent exists.
! if ( defined( $newNode -> parent() ) ) {
! $newNode -> parent() -> removeChild( { oldChild => $newNode } );
}
--- 386,391 ----
# remove node from parent, if parent exists.
! if ( defined( $newNode -> parentNode() ) ) {
! $newNode -> parentNode() -> removeChild( { oldChild => $newNode } );
}
***************
*** 419,431 ****
# DocumentType, Entity, and Notation nodes is implementation dependent.
#
! # @not-implemented
#*/
sub cloneNode {
! my ( $this ) = @_;
! my $exception = XML::DOM2::DOMException -> new(
! { ErrCode => XML::DOM2::DOMException -> NOT_SUPPORTED_ERR(),
! ErrDesc => "Node cloning is not yet supported by this implementation."
! }
! );
$exception -> raise();
return;
--- 419,434 ----
# DocumentType, Entity, and Notation nodes is implementation dependent.
#
! # @param a hash reference containing the following key-value pair
! # deep - if non-zero recursively clones the subtree under the
! # specified node, else just clones the node itself
! # @public
! # @note: implemented in subclasses
! # @return the cloned node
#*/
sub cloneNode {
! my $exception = XML::DOM2::DOMException -> new ( {
! ErrCode => XML::DOM2::DOMException -> NOT_SUPPORTED_ERR(),
! ErrDesc => "Cloning of this node type is not supported by this implementation."
! });
$exception -> raise();
return;
***************
*** 464,468 ****
# tree, it is first removed.
#
! # @param a hash containing the following key-value-pairs
# newChild - instance of XML::DOM2::Node which should be inserted.
# refChild - the node before which the new node should be inserted.
--- 467,471 ----
# tree, it is first removed.
#
! # @param a hash reference containing the following key-value-pairs
# newChild - instance of XML::DOM2::Node which should be inserted.
# refChild - the node before which the new node should be inserted.
***************
*** 528,533 ****
# remove node from parent, if parent exists.
! if ( defined( $newNode -> parent() ) ) {
! $newNode -> parent() -> removeChild( { oldChild => $newNode } );
}
--- 531,536 ----
# remove node from parent, if parent exists.
! if ( defined( $newNode -> parentNode() ) ) {
! $newNode -> parentNode() -> removeChild( { oldChild => $newNode } );
}
***************
*** 553,557 ****
# This implementation supports "core" version "2.0" or below.
#
! # @param a hash containing the following key-value-pairs:
# feature - the name of a feature to test.
# version - the version of the feature to test.
--- 556,560 ----
# This implementation supports "core" version "2.0" or below.
#
! # @param a hash reference containing the...
[truncated message content] |
|
From: Jan T. <de...@us...> - 2002-02-03 22:39:36
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2 In directory usw-pr-cvs1:/tmp/cvs-serv22856 Modified Files: wipeout.project Log Message: * fixed some small bugs * added support for node cloning and importing Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/wipeout.project,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** wipeout.project 2002/01/09 21:55:53 1.6 --- wipeout.project 2002/02/03 22:39:33 1.7 *************** *** 1,402 **** b ! C DmDictionary 0 1bb27 8 ! c 0 1bf90 9 ! C Category 1 12e54 ! c 0 1bfd0 4 ! C DmString 2 1bfd7 2 e3 ! c 2 1bfd6 a defaultExe ! C DmSet 3 1bfd9 1 ! c 2 12e63 2 e3 ! L 12e63 ! c 2 1bfd8 b executables ! c 3 1bfd4 3 ! c 2 12e6a 3 *.C ! L 12e6a ! c 2 12e6d 4 *.cc ! L 12e6d ! c 2 12e70 5 *.cpp ! L 12e70 ! c 2 1bfd3 a extensions ! c 2 1bfd2 a CPP_source ! c 2 1bfd1 4 name ! c 2 1bf92 a CPP_source ! c 1 12e85 ! c 0 1c016 4 ! c 2 1c01d 2 e3 ! c 2 1c01c a defaultExe ! c 3 1c01f 1 ! c 2 12e92 2 e3 ! L 12e92 ! c 2 1c01e b executables ! c 3 1c01a 1 ! c 2 12e99 3 *.c ! L 12e99 ! c 2 1c019 a extensions ! c 2 1c018 8 C_source ! c 2 1c017 4 name ! c 2 1bf93 8 C_source ! c 1 12eae ! c 0 1c050 4 ! c 2 1c057 2 e3 ! c 2 1c056 a defaultExe ! c 3 1c059 1 ! c 2 12ebb 2 e3 ! L 12ebb ! c 2 1c058 b executables ! c 3 1c054 1 ! c 2 12ec2 3 *.e ! L 12ec2 ! c 2 1c053 a extensions ! c 2 1c052 6 Eiffel ! c 2 1c051 4 name ! c 2 1bf94 6 Eiffel ! c 1 12ed7 ! c 0 1c08a 4 ! c 2 1c091 2 e3 ! c 2 1c090 a defaultExe ! c 3 1c093 1 ! c 2 12ee4 2 e3 ! L 12ee4 ! c 2 1c092 b executables ! c 3 1c08e 4 ! c 2 12eeb 3 *.F ! L 12eeb ! c 2 12eee 3 *.f ! L 12eee ! c 2 12ef1 5 *.for ! L 12ef1 ! c 2 12ef4 5 *.fpp ! L 12ef4 ! c 2 1c08d a extensions ! c 2 1c08c 7 Fortran ! c 2 1c08b 4 name ! c 2 1bf95 7 Fortran ! c 1 12f09 ! c 0 1c0d0 4 ! c 2 1c0d7 2 e3 ! c 2 1c0d6 a defaultExe ! c 3 1c0d9 1 ! c 2 12f16 2 e3 ! L 12f16 ! c 2 1c0d8 b executables ! c 3 1c0d4 2 ! c 2 12f1d 3 *.H ! L 12f1d ! c 2 12f20 3 *.h ! L 12f20 ! c 2 1c0d3 a extensions ! c 2 1c0d2 6 Header ! c 2 1c0d1 4 name ! c 2 1bf96 6 Header ! c 1 12f35 ! c 0 1c10e 4 ! c 2 1c115 9 surfboard ! c 2 1c114 a defaultExe ! c 3 1c117 2 ! c 2 12f42 2 e3 ! L 12f42 ! c 2 12f45 9 surfboard ! L 12f45 ! c 2 1c116 b executables ! c 3 1c112 2 ! c 2 12f4c 5 *.htm ! L 12f4c ! c 2 12f4f 6 *.html ! L 12f4f ! c 2 1c111 a extensions ! c 2 1c110 4 Html ! c 2 1c10f 4 name ! c 2 1bf97 4 Html ! c 1 12f64 ! c 0 1c150 4 ! c 2 1c157 2 e3 ! c 2 1c156 a defaultExe ! c 3 1c159 1 ! c 2 12f71 2 e3 ! L 12f71 ! c 2 1c158 b executables ! c 3 1c154 1 ! c 2 12f78 6 *.java ! L 12f78 ! c 2 1c153 a extensions ! c 2 1c152 4 Java ! c 2 1c151 4 name ! c 2 1bf98 4 Java ! c 1 12f8d ! c 0 1c18a 4 ! c 2 1c191 2 e3 ! c 2 1c190 a defaultExe ! c 3 1c193 1 ! c 2 12f9a 2 e3 ! L 12f9a ! c 2 1c192 b executables ! c 3 1c18e 1 ! c 2 12fa1 5 *.tex ! L 12fa1 ! c 2 1c18d a extensions ! c 2 1c18c 5 Latex ! c 2 1c18b 4 name ! c 2 1bf99 5 Latex ! c 1 12fb6 ! c 0 1c1c4 4 ! c 2 1c1cb 2 e3 ! c 2 1c1ca a defaultExe ! c 3 1c1cd 1 ! c 2 12fc3 2 e3 ! L 12fc3 ! c 2 1c1cc b executables ! c 3 1c1c8 0 ! c 2 1c1c7 a extensions ! c 2 1c1c6 5 Other ! c 2 1c1c5 4 name ! c 2 1bf9a 5 Other ! c 2 1bf8f a categories ! c 0 1bf9c 1 ! C ProjectDir 4 12fe0 ! c 2 12fe1 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 12fe2 0 0 ! c 2 1bf9e 1d netscript2/src/perl/XML/DOM2/ ! c 2 1bf9b b directories ! C DmBag 5 1bb33 15 ! c 2 1bb69 d9 b ! C DmDictionary 0 1bb35 3 ! C DmString 1 1bb47 39 b ! C DmSet 0 1303a 1 ! C DmString 1 13068 5 Other ! L 13068 ! c 1 1bb46 a categories ! c 1 1bb37 7 Attr.pm ! c 1 1bb36 4 name ! C DmInteger 2 1bb49 1 ! c 1 1bb48 9 substMode ! c 2 1bb9e e1 b ! C DmDictionary 0 1bb6a 3 ! C DmString 1 1bb7c 39 b ! C DmSet 0 13079 1 ! C DmString 1 130a7 5 Other ! L 130a7 ! c 1 1bb7b a categories ! c 1 1bb6c f CDATASection.pm ! c 1 1bb6b 4 name ! C DmInteger 2 1bb7e 1 ! c 1 1bb7d 9 substMode ! c 2 1bbd3 e3 b ! C DmDictionary 0 1bb9f 3 ! C DmString 1 1bbb1 39 b ! C DmSet 0 130b8 1 ! C DmString 1 130e6 5 Other ! L 130e6 ! c 1 1bbb0 a categories ! c 1 1bba1 10 CharacterData.pm ! c 1 1bba0 4 name ! C DmInteger 2 1bbb3 1 ! c 1 1bbb2 9 substMode ! c 2 1bc08 dc b ! C DmDictionary 0 1bbd4 3 ! C DmString 1 1bbe6 39 b ! C DmSet 0 130f7 1 ! C DmString 1 13125 5 Other ! L 13125 ! c 1 1bbe5 a categories ! c 1 1bbd6 a Comment.pm ! c 1 1bbd5 4 name ! C DmInteger 2 1bbe8 1 ! c 1 1bbe7 9 substMode ! c 2 1bc3d e1 b ! C DmDictionary 0 1bc09 3 ! C DmString 1 1bc1b 39 b ! C DmSet 0 13136 1 ! C DmString 1 13164 5 Other ! L 13164 ! c 1 1bc1a a categories ! c 1 1bc0b f DOMException.pm ! c 1 1bc0a 4 name ! C DmInteger 2 1bc1d 1 ! c 1 1bc1c 9 substMode ! c 2 1bc72 e7 b ! C DmDictionary 0 1bc3e 3 ! C DmString 1 1bc50 39 b ! C DmSet 0 13175 1 ! C DmString 1 131a3 5 Other ! L 131a3 ! c 1 1bc4f a categories ! c 1 1bc40 14 DOMImplementation.pm ! c 1 1bc3f 4 name ! C DmInteger 2 1bc52 1 ! c 1 1bc51 9 substMode ! c 2 1bca7 de b ! C DmDictionary 0 1bc73 3 ! C DmString 1 1bc85 39 b ! C DmSet 0 1ad1e 1 ! C DmString 1 1ae98 5 Other ! L 1ae98 ! c 1 1bc84 a categories ! c 1 1bc75 c DOMParser.pm ! c 1 1bc74 4 name ! C DmInteger 2 1bc87 1 ! c 1 1bc86 9 substMode ! c 2 1bcdc e4 b ! C DmDictionary 0 1bca8 3 ! C DmString 1 1bcba 39 b ! C DmSet 0 1b9a2 1 ! C DmString 1 1bb1c 5 Other ! L 1bb1c ! c 1 1bcb9 a categories ! c 1 1bcaa 11 DOMParserStyle.pm ! c 1 1bca9 4 name ! C DmInteger 2 1bcbc 1 ! c 1 1bcbb 9 substMode ! c 2 1bd11 dd b ! C DmDictionary 0 1bcdd 3 ! C DmString 1 1bcef 39 b ! C DmSet 0 131b4 1 ! C DmString 1 131e2 5 Other ! L 131e2 ! c 1 1bcee a categories ! c 1 1bcdf b Document.pm ! c 1 1bcde 4 name ! C DmInteger 2 1bcf1 1 ! c 1 1bcf0 9 substMode ! c 2 1bd46 e6 b ! C DmDictionary 0 1bd12 3 ! C DmString 1 1bd24 39 b ! C DmSet 0 131f3 1 ! C DmString 1 13221 5 Other ! L 13221 ! c 1 1bd23 a categories ! c 1 1bd14 13 DocumentFragment.pm ! c 1 1bd13 4 name ! C DmInteger 2 1bd26 1 ! c 1 1bd25 9 substMode ! c 2 1bd7b e1 b ! C DmDictionary 0 1bd47 3 ! C DmString 1 1bd59 39 b ! C DmSet 0 13232 1 ! C DmString 1 13260 5 Other ! L 13260 ! c 1 1bd58 a categories ! c 1 1bd49 f DocumentType.pm ! c 1 1bd48 4 name ! C DmInteger 2 1bd5b 1 ! c 1 1bd5a 9 substMode ! c 2 1bdb0 dc b ! C DmDictionary 0 1bd7c 3 ! C DmString 1 1bd8e 39 b ! C DmSet 0 13271 1 ! C DmString 1 1329f 5 Other ! L 1329f ! c 1 1bd8d a categories ! c 1 1bd7e a Element.pm ! c 1 1bd7d 4 name ! C DmInteger 2 1bd90 1 ! c 1 1bd8f 9 substMode ! c 2 1bde5 db b ! C DmDictionary 0 1bdb1 3 ! C DmString 1 1bdc3 39 b ! C DmSet 0 132b0 1 ! C DmString 1 132de 5 Other ! L 132de ! c 1 1bdc2 a categories ! c 1 1bdb3 9 Entity.pm ! c 1 1bdb2 4 name ! C DmInteger 2 1bdc5 1 ! c 1 1bdc4 9 substMode ! c 2 1be1a e5 b ! C DmDictionary 0 1bde6 3 ! C DmString 1 1bdf8 39 b ! C DmSet 0 132ef 1 ! C DmString 1 1331d 5 Other ! L 1331d ! c 1 1bdf7 a categories ! c 1 1bde8 12 EntityReference.pm ! c 1 1bde7 4 name ! C DmInteger 2 1bdfa 1 ! c 1 1bdf9 9 substMode ! c 2 1be4f e1 b ! C DmDictionary 0 1be1b 3 ! C DmString 1 1be2d 39 b ! C DmSet 0 1332e 1 ! C DmString 1 1335c 5 Other ! L 1335c ! c 1 1be2c a categories ! c 1 1be1d f NamedNodeMap.pm ! c 1 1be1c 4 name ! C DmInteger 2 1be2f 1 ! c 1 1be2e 9 substMode ! c 2 1be84 d9 b ! C DmDictionary 0 1be50 3 ! C DmString 1 1be62 39 b ! C DmSet 0 1336d 1 ! C DmString 1 1339b 5 Other ! L 1339b ! c 1 1be61 a categories ! c 1 1be52 7 Node.pm ! c 1 1be51 4 name ! C DmInteger 2 1be64 1 ! c 1 1be63 9 substMode ! c 2 1beb9 dd b ! C DmDictionary 0 1be85 3 ! C DmString 1 1be97 39 b ! C DmSet 0 133ac 1 ! C DmString 1 133da 5 Other ! L 133da ! c 1 1be96 a categories ! c 1 1be87 b NodeList.pm ! c 1 1be86 4 name ! C DmInteger 2 1be99 1 ! c 1 1be98 9 substMode ! c 2 1beee dd b ! C DmDictionary 0 1beba 3 ! C DmString 1 1becc 39 b ! C DmSet 0 133eb 1 ! C DmString 1 13419 5 Other ! L 13419 ! c 1 1becb a categories ! c 1 1bebc b Notation.pm ! c 1 1bebb 4 name ! C DmInteger 2 1bece 1 ! c 1 1becd 9 substMode ! c 2 1bf23 eb b ! C DmDictionary 0 1beef 3 ! C DmString 1 1bf01 39 b ! C DmSet 0 1342a 1 ! C DmString 1 13458 5 Other ! L 13458 ! c 1 1bf00 a categories ! c 1 1bef1 18 ProcessingInstruction.pm ! c 1 1bef0 4 name ! C DmInteger 2 1bf03 1 ! c 1 1bf02 9 substMode ! c 2 1bf58 d9 b ! C DmDictionary 0 1bf24 3 ! C DmString 1 1bf36 39 b ! C DmSet 0 13469 1 ! C DmString 1 13497 5 Other ! L 13497 ! c 1 1bf35 a categories ! c 1 1bf26 7 Text.pm ! c 1 1bf25 4 name ! C DmInteger 2 1bf38 1 ! c 1 1bf37 9 substMode ! c 2 1bf8d db b ! C DmDictionary 0 1bf59 3 ! C DmString 1 1bf6b 39 b ! C DmSet 0 134a8 1 ! C DmString 1 134d6 5 Other ! L 134d6 ! c 1 1bf6a a categories ! c 1 1bf5b 9 notes.txt ! c 1 1bf5a 4 name ! C DmInteger 2 1bf6d 1 ! c 1 1bf6c 9 substMode ! c 2 1bf8e 5 files ! c 2 1bb2f 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 1bb2e 6 launch ! c 2 1bb2b 4 make ! c 2 1bb2a 4 make ! c 2 1bb2d 0 ! c 2 1bb2c 8 makeFile ! c 5 1bb30 0 ! c 2 1bb32 7 modules ! c 2 1bb29 4 DOM2 ! c 2 1bb28 4 name --- 1,413 ---- b ! C DmDictionary 0 9529 8 ! c 0 99c7 9 ! C Category 1 5cfa ! c 0 9a07 4 ! C DmString 2 9a0e 2 e3 ! c 2 9a0d a defaultExe ! C DmSet 3 9a10 1 ! c 2 5d09 2 e3 ! L 5d09 ! c 2 9a0f b executables ! c 3 9a0b 3 ! c 2 5d10 3 *.C ! L 5d10 ! c 2 5d13 4 *.cc ! L 5d13 ! c 2 5d16 5 *.cpp ! L 5d16 ! c 2 9a0a a extensions ! c 2 9a09 a CPP_source ! c 2 9a08 4 name ! c 2 99c9 a CPP_source ! c 1 5d2b ! c 0 9a4d 4 ! c 2 9a54 2 e3 ! c 2 9a53 a defaultExe ! c 3 9a56 1 ! c 2 5d38 2 e3 ! L 5d38 ! c 2 9a55 b executables ! c 3 9a51 1 ! c 2 5d3f 3 *.c ! L 5d3f ! c 2 9a50 a extensions ! c 2 9a4f 8 C_source ! c 2 9a4e 4 name ! c 2 99ca 8 C_source ! c 1 5d54 ! c 0 9a87 4 ! c 2 9a8e 2 e3 ! c 2 9a8d a defaultExe ! c 3 9a90 1 ! c 2 5d61 2 e3 ! L 5d61 ! c 2 9a8f b executables ! c 3 9a8b 1 ! c 2 5d68 3 *.e ! L 5d68 ! c 2 9a8a a extensions ! c 2 9a89 6 Eiffel ! c 2 9a88 4 name ! c 2 99cb 6 Eiffel ! c 1 5d7d ! c 0 9ac1 4 ! c 2 9ac8 2 e3 ! c 2 9ac7 a defaultExe ! c 3 9aca 1 ! c 2 5d8a 2 e3 ! L 5d8a ! c 2 9ac9 b executables ! c 3 9ac5 4 ! c 2 5d91 3 *.F ! L 5d91 ! c 2 5d94 3 *.f ! L 5d94 ! c 2 5d97 5 *.for ! L 5d97 ! c 2 5d9a 5 *.fpp ! L 5d9a ! c 2 9ac4 a extensions ! c 2 9ac3 7 Fortran ! c 2 9ac2 4 name ! c 2 99cc 7 Fortran ! c 1 5daf ! c 0 9b07 4 ! c 2 9b0e 2 e3 ! c 2 9b0d a defaultExe ! c 3 9b10 1 ! c 2 5dbc 2 e3 ! L 5dbc ! c 2 9b0f b executables ! c 3 9b0b 2 ! c 2 5dc3 3 *.H ! L 5dc3 ! c 2 5dc6 3 *.h ! L 5dc6 ! c 2 9b0a a extensions ! c 2 9b09 6 Header ! c 2 9b08 4 name ! c 2 99cd 6 Header ! c 1 5ddb ! c 0 9b45 4 ! c 2 9b4c 9 surfboard ! c 2 9b4b a defaultExe ! c 3 9b4e 2 ! c 2 5de8 2 e3 ! L 5de8 ! c 2 5deb 9 surfboard ! L 5deb ! c 2 9b4d b executables ! c 3 9b49 2 ! c 2 5df2 5 *.htm ! L 5df2 ! c 2 5df5 6 *.html ! L 5df5 ! c 2 9b48 a extensions ! c 2 9b47 4 Html ! c 2 9b46 4 name ! c 2 99ce 4 Html ! c 1 5e0a ! c 0 9b87 4 ! c 2 9b8e 2 e3 ! c 2 9b8d a defaultExe ! c 3 9b90 1 ! c 2 5e17 2 e3 ! L 5e17 ! c 2 9b8f b executables ! c 3 9b8b 1 ! c 2 5e1e 6 *.java ! L 5e1e ! c 2 9b8a a extensions ! c 2 9b89 4 Java ! c 2 9b88 4 name ! c 2 99cf 4 Java ! c 1 5e33 ! c 0 9bc1 4 ! c 2 9bc8 2 e3 ! c 2 9bc7 a defaultExe ! c 3 9bca 1 ! c 2 5e40 2 e3 ! L 5e40 ! c 2 9bc9 b executables ! c 3 9bc5 1 ! c 2 5e47 5 *.tex ! L 5e47 ! c 2 9bc4 a extensions ! c 2 9bc3 5 Latex ! c 2 9bc2 4 name ! c 2 99d0 5 Latex ! c 1 5e5c ! c 0 9bfb 4 ! c 2 9c02 2 e3 ! c 2 9c01 a defaultExe ! c 3 9c04 1 ! c 2 5e69 2 e3 ! L 5e69 ! c 2 9c03 b executables ! c 3 9bff 0 ! c 2 9bfe a extensions ! c 2 9bfd 5 Other ! c 2 9bfc 4 name ! c 2 99d1 5 Other ! c 2 99c6 a categories ! c 0 99d3 1 ! C ProjectDir 4 5e86 ! c 2 5e87 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 5e88 0 0 ! c 2 99d5 1d netscript2/src/perl/XML/DOM2/ ! c 2 99d2 b directories ! C DmBag 5 9535 16 ! c 2 956b cf b ! C DmDictionary 0 9537 3 ! C DmString 1 9549 36 b ! C DmSet 0 5ee4 1 ! C DmString 1 5f12 5 Other ! L 5f12 ! c 1 9548 a categories ! c 1 9539 7 Attr.pm ! c 1 9538 4 name ! C DmInteger 2 954b 1 ! c 1 954a 9 substMode ! c 2 95a0 d7 b ! C DmDictionary 0 956c 3 ! C DmString 1 957e 36 b ! C DmSet 0 5f23 1 ! C DmString 1 5f51 5 Other ! L 5f51 ! c 1 957d a categories ! c 1 956e f CDATASection.pm ! c 1 956d 4 name ! C DmInteger 2 9580 1 ! c 1 957f 9 substMode ! c 2 95d5 d1 b ! C DmDictionary 0 95a1 3 ! C DmString 1 95b3 36 b ! C DmSet 0 93a4 1 ! C DmString 1 951e 5 Other ! L 951e ! c 1 95b2 a categories ! c 1 95a3 9 CHANGELOG ! c 1 95a2 4 name ! C DmInteger 2 95b5 1 ! c 1 95b4 9 substMode ! c 2 960a d9 b ! C DmDictionary 0 95d6 3 ! C DmString 1 95e8 36 b ! C DmSet 0 5f62 1 ! C DmString 1 5f90 5 Other ! L 5f90 ! c 1 95e7 a categories ! c 1 95d8 10 CharacterData.pm ! c 1 95d7 4 name ! C DmInteger 2 95ea 1 ! c 1 95e9 9 substMode ! c 2 963f d2 b ! C DmDictionary 0 960b 3 ! C DmString 1 961d 36 b ! C DmSet 0 5fa1 1 ! C DmString 1 5fcf 5 Other ! L 5fcf ! c 1 961c a categories ! c 1 960d a Comment.pm ! c 1 960c 4 name ! C DmInteger 2 961f 1 ! c 1 961e 9 substMode ! c 2 9674 d7 b ! C DmDictionary 0 9640 3 ! C DmString 1 9652 36 b ! C DmSet 0 5fe0 1 ! C DmString 1 600e 5 Other ! L 600e ! c 1 9651 a categories ! c 1 9642 f DOMException.pm ! c 1 9641 4 name ! C DmInteger 2 9654 1 ! c 1 9653 9 substMode ! c 2 96a9 dd b ! C DmDictionary 0 9675 3 ! C DmString 1 9687 36 b ! C DmSet 0 601f 1 ! C DmString 1 604d 5 Other ! L 604d ! c 1 9686 a categories ! c 1 9677 14 DOMImplementation.pm ! c 1 9676 4 name ! C DmInteger 2 9689 1 ! c 1 9688 9 substMode ! c 2 96de d4 b ! C DmDictionary 0 96aa 3 ! C DmString 1 96bc 36 b ! C DmSet 0 605e 1 ! C DmString 1 608c 5 Other ! L 608c ! c 1 96bb a categories ! c 1 96ac c DOMParser.pm ! c 1 96ab 4 name ! C DmInteger 2 96be 1 ! c 1 96bd 9 substMode ! c 2 9713 da b ! C DmDictionary 0 96df 3 ! C DmString 1 96f1 36 b ! C DmSet 0 609d 1 ! C DmString 1 60cb 5 Other ! L 60cb ! c 1 96f0 a categories ! c 1 96e1 11 DOMParserStyle.pm ! c 1 96e0 4 name ! C DmInteger 2 96f3 1 ! c 1 96f2 9 substMode ! c 2 9748 d3 b ! C DmDictionary 0 9714 3 ! C DmString 1 9726 36 b ! C DmSet 0 60dc 1 ! C DmString 1 610a 5 Other ! L 610a ! c 1 9725 a categories ! c 1 9716 b Document.pm ! c 1 9715 4 name ! C DmInteger 2 9728 1 ! c 1 9727 9 substMode ! c 2 977d dc b ! C DmDictionary 0 9749 3 ! C DmString 1 975b 36 b ! C DmSet 0 611b 1 ! C DmString 1 6149 5 Other ! L 6149 ! c 1 975a a categories ! c 1 974b 13 DocumentFragment.pm ! c 1 974a 4 name ! C DmInteger 2 975d 1 ! c 1 975c 9 substMode ! c 2 97b2 d7 b ! C DmDictionary 0 977e 3 ! C DmString 1 9790 36 b ! C DmSet 0 615a 1 ! C DmString 1 6188 5 Other ! L 6188 ! c 1 978f a categories ! c 1 9780 f DocumentType.pm ! c 1 977f 4 name ! C DmInteger 2 9792 1 ! c 1 9791 9 substMode ! c 2 97e7 d2 b ! C DmDictionary 0 97b3 3 ! C DmString 1 97c5 36 b ! C DmSet 0 6199 1 ! C DmString 1 61c7 5 Other ! L 61c7 ! c 1 97c4 a categories ! c 1 97b5 a Element.pm ! c 1 97b4 4 name ! C DmInteger 2 97c7 1 ! c 1 97c6 9 substMode ! c 2 981c d1 b ! C DmDictionary 0 97e8 3 ! C DmString 1 97fa 36 b ! C DmSet 0 61d8 1 ! C DmString 1 6206 5 Other ! L 6206 ! c 1 97f9 a categories ! c 1 97ea 9 Entity.pm ! c 1 97e9 4 name ! C DmInteger 2 97fc 1 ! c 1 97fb 9 substMode ! c 2 9851 db b ! C DmDictionary 0 981d 3 ! C DmString 1 982f 36 b ! C DmSet 0 6217 1 ! C DmString 1 6245 5 Other ! L 6245 ! c 1 982e a categories ! c 1 981f 12 EntityReference.pm ! c 1 981e 4 name ! C DmInteger 2 9831 1 ! c 1 9830 9 substMode ! c 2 9886 d7 b ! C DmDictionary 0 9852 3 ! C DmString 1 9864 36 b ! C DmSet 0 6256 1 ! C DmString 1 6284 5 Other ! L 6284 ! c 1 9863 a categories ! c 1 9854 f NamedNodeMap.pm ! c 1 9853 4 name ! C DmInteger 2 9866 1 ! c 1 9865 9 substMode ! c 2 98bb cf b ! C DmDictionary 0 9887 3 ! C DmString 1 9899 36 b ! C DmSet 0 6295 1 ! C DmString 1 62c3 5 Other ! L 62c3 ! c 1 9898 a categories ! c 1 9889 7 Node.pm ! c 1 9888 4 name ! C DmInteger 2 989b 1 ! c 1 989a 9 substMode ! c 2 98f0 d3 b ! C DmDictionary 0 98bc 3 ! C DmString 1 98ce 36 b ! C DmSet 0 62d4 1 ! C DmString 1 6302 5 Other ! L 6302 ! c 1 98cd a categories ! c 1 98be b NodeList.pm ! c 1 98bd 4 name ! C DmInteger 2 98d0 1 ! c 1 98cf 9 substMode ! c 2 9925 d3 b ! C DmDictionary 0 98f1 3 ! C DmString 1 9903 36 b ! C DmSet 0 6313 1 ! C DmString 1 6341 5 Other ! L 6341 ! c 1 9902 a categories ! c 1 98f3 b Notation.pm ! c 1 98f2 4 name ! C DmInteger 2 9905 1 ! c 1 9904 9 substMode ! c 2 995a e1 b ! C DmDictionary 0 9926 3 ! C DmString 1 9938 36 b ! C DmSet 0 6352 1 ! C DmString 1 6380 5 Other ! L 6380 ! c 1 9937 a categories ! c 1 9928 18 ProcessingInstruction.pm ! c 1 9927 4 name ! C DmInteger 2 993a 1 ! c 1 9939 9 substMode ! c 2 998f cf b ! C DmDictionary 0 995b 3 ! C DmString 1 996d 36 b ! C DmSet 0 6391 1 ! C DmString 1 63bf 5 Other ! L 63bf ! c 1 996c a categories ! c 1 995d 7 Text.pm ! c 1 995c 4 name ! C DmInteger 2 996f 1 ! c 1 996e 9 substMode ! c 2 99c4 d1 b ! C DmDictionary 0 9990 3 ! C DmString 1 99a2 36 b ! C DmSet 0 63d0 1 ! C DmString 1 63fe 5 Other ! L 63fe ! c 1 99a1 a categories ! c 1 9992 9 notes.txt ! c 1 9991 4 name ! C DmInteger 2 99a4 1 ! c 1 99a3 9 substMode ! c 2 99c5 5 files ! c 2 9531 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 9530 6 launch ! c 2 952d 4 make ! c 2 952c 4 make ! c 2 952f 0 ! c 2 952e 8 makeFile ! c 5 9532 0 ! c 2 9534 7 modules ! c 2 952b 4 DOM2 ! c 2 952a 4 name |
|
From: Jan T. <de...@us...> - 2002-02-03 22:34:48
|
Update of /cvsroot/net-script/netscript2/src/tests
In directory usw-pr-cvs1:/tmp/cvs-serv21738
Modified Files:
FileRetrieverTest.pm
Added Files:
DOMCloneImportTest.pm DOMParserTest.pm
Log Message:
* added test for node importing and cloning
--- NEW FILE: DOMCloneImportTest.pm ---
#--------------------------------------------------------
# NetScript tests.
# Class DOMCloneImportTest.
# $Id: DOMCloneImportTest.pm,v 1.1 2002/02/03 22:34:45 derkork Exp $
#
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package tests::DOMCloneImportTest;
use base qw(Test::Unit::TestCase);
use XML::DOM2::DOMImplementation;
sub new {
my ($proto) = shift;
my $this = $proto -> SUPER::new(@_);
$this -> { m_domImplementation } = XML::DOM2::DOMImplementation -> new();
return $this;
}
sub test_clone {
my ($this) = @_;
my $document = $this -> { m_domImplementation } -> createDocument({
namespaceURI => "",
qualifiedName => "test"
});
my $element = $document -> documentElement();
$element -> setAttribute( { name => "testattr", value => "testvalue"} );
$element -> setAttribute( { name => "testattr2", value => "testvalue2" } );
my $newElement = $element -> cloneNode();
$this -> assert( $newElement != $element );
$this -> assert( $newElement -> nodeName() eq $element -> nodeName() );
$this -> assert( $newElement -> getAttribute( { name => "testattr"}) eq "testvalue" );
$this -> assert( $newElement -> getAttribute( { name => "testattr2"} ) eq "testvalue2" );
}
sub test_import {
my ($this) = @_;
my $document = $this -> { m_domImplementation } -> createDocument({
namespaceURI => "",
qualifiedName => "test"
});
my $element = $document -> documentElement();
$element -> setAttribute( { name => "testattr", value => "testvalue"} );
$element -> setAttribute( { name => "testattr2", value => "testvalue2" } );
my $document2 = $this -> { m_domImplementation } -> createDocument({
namespaceURI => "",
qualifiedName => "test"
});
my $newElement = $document2 -> importNode( {importedNode => $element, deep => 0 } );
$this -> assert( $newElement != $element );
$this -> assert( $newElement -> ownerDocument() == $document2 );
$this -> assert( $newElement -> ownerDocument() != $document );
$this -> assert( $newElement -> nodeName() eq $element -> nodeName() );
$this -> assert( $newElement -> getAttribute( { name => "testattr"}) eq "testvalue" );
$this -> assert( $newElement -> getAttribute( { name => "testattr2"} ) eq "testvalue2" );
}
1;
--- NEW FILE: DOMParserTest.pm ---
#--------------------------------------------------------
# NetScript tests.
# Class DOMParserTest;
# $Id: DOMParserTest.pm,v 1.1 2002/02/03 22:34:45 derkork Exp $
#
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package tests::DOMParserTest;
use base qw(Test::Unit::TestCase);
use XML::DOM2::DOMParser;
sub new {
my ($proto) = shift;
my $this = $proto -> SUPER::new(@_);
$this -> { m_DP } = XML::DOM2::DOMParser -> new();
return $this;
}
#/**
# Test which creates a DOM from a string.
# @test
#*/
sub test_string {
my ($this) = @_;
my $document = $this -> { m_DP } -> parseString( {
string => '<doc><a b="c" d="e">some text</a><!-- a comment --></doc>'
});
my $element = $document -> documentElement();
$this -> assert( $element -> nodeName() eq "doc");
my $element2 = $element -> childNodes() -> item({index => 0});
$this -> assert( $element2 -> nodeName() eq "a");
$this -> assert( $element2 -> getAttribute({ name => "b"}) eq "c");
$this -> assert( $element2 -> getAttribute({ name => "d"}) eq "e");
my $element3 = $element2 -> childNodes() -> item({index => 0});
$this -> assert( $element3 -> nodeValue() eq "some text" );
}
#/**
# Test which creates DOM from a string. The string
# contains namespaces.
# @test
#*/
sub test_string_ns {
my ($this) = @_;
my $document = $this -> { m_DP } -> parseString( {
string => '<doc:doc xmlns:doc="http://www.insomnia-hq.de/netscript/dom2/test">'.
'<doc:a doc:b="c" doc:d="e">some text</doc:a><!-- a comment --></doc:doc>'
});
my $element = $document -> documentElement();
$this -> assert( $element -> nodeName() eq "doc:doc");
my $element2 = $element -> childNodes() -> item({index => 0});
$this -> assert( $element2 -> nodeName() eq "doc:a");
$this -> assert( $element2 -> getAttribute({ name => "b"}) eq "c");
$this -> assert( $element2 -> getAttribute({ name => "d"}) eq "e");
}
1;
Index: FileRetrieverTest.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/tests/FileRetrieverTest.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** FileRetrieverTest.pm 2001/11/29 22:17:09 1.3
--- FileRetrieverTest.pm 2002/02/03 22:34:45 1.4
***************
*** 13,17 ****
use NetScript::Interpreter;
use base qw(Test::Unit::TestCase);
!
sub new {
--- 13,17 ----
use NetScript::Interpreter;
use base qw(Test::Unit::TestCase);
! use Cwd;
sub new {
|
|
From: Jan T. <de...@us...> - 2002-02-03 22:34:39
|
Update of /cvsroot/net-script/netscript2/src/tests In directory usw-pr-cvs1:/tmp/cvs-serv21709 Modified Files: wipeout.project Log Message: * added test for node importing and cloning Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/tests/wipeout.project,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** wipeout.project 2001/11/29 22:17:02 1.4 --- wipeout.project 2002/02/03 22:34:36 1.5 *************** *** 1,237 **** b ! C DmDictionary 0 2a0c7 8 ! c 0 2a215 9 ! C Category 1 6171 ! c 0 2a249 4 ! C DmString 2 2a250 2 e3 ! c 2 2a24f a defaultExe ! C DmSet 3 2a252 1 ! c 2 6180 2 e3 ! L 6180 ! c 2 2a251 b executables ! c 3 2a24d 3 ! c 2 6187 3 *.C ! L 6187 ! c 2 618a 4 *.cc ! L 618a ! c 2 618d 5 *.cpp ! L 618d ! c 2 2a24c a extensions ! c 2 2a24b a CPP_source ! c 2 2a24a 4 name ! c 2 2a217 a CPP_source ! c 1 61a2 ! c 0 2a28f 4 ! c 2 2a296 2 e3 ! c 2 2a295 a defaultExe ! c 3 2a298 1 ! c 2 61af 2 e3 ! L 61af ! c 2 2a297 b executables ! c 3 2a293 1 ! c 2 61b6 3 *.c ! L 61b6 ! c 2 2a292 a extensions ! c 2 2a291 8 C_source ! c 2 2a290 4 name ! c 2 2a218 8 C_source ! c 1 61cb ! c 0 2a2c9 4 ! c 2 2a2d0 2 e3 ! c 2 2a2cf a defaultExe ! c 3 2a2d2 1 ! c 2 61d8 2 e3 ! L 61d8 ! c 2 2a2d1 b executables ! c 3 2a2cd 1 ! c 2 61df 3 *.e ! L 61df ! c 2 2a2cc a extensions ! c 2 2a2cb 6 Eiffel ! c 2 2a2ca 4 name ! c 2 2a219 6 Eiffel ! c 1 61f4 ! c 0 2a303 4 ! c 2 2a30a 2 e3 ! c 2 2a309 a defaultExe ! c 3 2a30c 1 ! c 2 6201 2 e3 ! L 6201 ! c 2 2a30b b executables ! c 3 2a307 4 ! c 2 6208 3 *.F ! L 6208 ! c 2 620b 3 *.f ! L 620b ! c 2 620e 5 *.for ! L 620e ! c 2 6211 5 *.fpp ! L 6211 ! c 2 2a306 a extensions ! c 2 2a305 7 Fortran ! c 2 2a304 4 name ! c 2 2a21a 7 Fortran ! c 1 6226 ! c 0 2a349 4 ! c 2 2a350 2 e3 ! c 2 2a34f a defaultExe ! c 3 2a352 1 ! c 2 6233 2 e3 ! L 6233 ! c 2 2a351 b executables ! c 3 2a34d 2 ! c 2 623a 3 *.H ! L 623a ! c 2 623d 3 *.h ! L 623d ! c 2 2a34c a extensions ! c 2 2a34b 6 Header ! c 2 2a34a 4 name ! c 2 2a21b 6 Header ! c 1 6252 ! c 0 2a387 4 ! c 2 2a38e 9 surfboard ! c 2 2a38d a defaultExe ! c 3 2a390 2 ! c 2 625f 2 e3 ! L 625f ! c 2 6262 9 surfboard ! L 6262 ! c 2 2a38f b executables ! c 3 2a38b 2 ! c 2 6269 5 *.htm ! L 6269 ! c 2 626c 6 *.html ! L 626c ! c 2 2a38a a extensions ! c 2 2a389 4 Html ! c 2 2a388 4 name ! c 2 2a21c 4 Html ! c 1 6281 ! c 0 2a3c9 4 ! c 2 2a3d0 2 e3 ! c 2 2a3cf a defaultExe ! c 3 2a3d2 1 ! c 2 628e 2 e3 ! L 628e ! c 2 2a3d1 b executables ! c 3 2a3cd 1 ! c 2 6295 6 *.java ! L 6295 ! c 2 2a3cc a extensions ! c 2 2a3cb 4 Java ! c 2 2a3ca 4 name ! c 2 2a21d 4 Java ! c 1 62aa ! c 0 2a403 4 ! c 2 2a40a 2 e3 ! c 2 2a409 a defaultExe ! c 3 2a40c 1 ! c 2 62b7 2 e3 ! L 62b7 ! c 2 2a40b b executables ! c 3 2a407 1 ! c 2 62be 5 *.tex ! L 62be ! c 2 2a406 a extensions ! c 2 2a405 5 Latex ! c 2 2a404 4 name ! c 2 2a21e 5 Latex ! c 1 62d3 ! c 0 2a43d 4 ! c 2 2a444 2 e3 ! c 2 2a443 a defaultExe ! c 3 2a446 1 ! c 2 62e0 2 e3 ! L 62e0 ! c 2 2a445 b executables ! c 3 2a441 0 ! c 2 2a440 a extensions ! c 2 2a43f 5 Other ! c 2 2a43e 4 name ! c 2 2a21f 5 Other ! c 2 2a214 a categories ! c 0 2a221 1 ! C ProjectDir 4 62fd ! c 2 62fe 15 netscript2/src/tests/ 11 81 ! c 2 62ff 0 0 ! c 2 2a223 15 netscript2/src/tests/ ! c 2 2a220 b directories ! C DmBag 5 2a0d3 6 ! c 2 2a109 e7 b ! C DmDictionary 0 2a0d5 3 ! C DmString 1 2a0e7 39 b ! C DmSet 0 29f62 1 ! C DmString 1 2a0bc 5 Other ! L 2a0bc ! c 1 2a0e6 a categories ! c 1 2a0d7 14 CharacterDataTest.pm ! c 1 2a0d6 4 name ! C DmInteger 2 2a0e9 1 ! c 1 2a0e8 9 substMode ! c 2 2a13e e4 b ! C DmDictionary 0 2a10a 3 ! C DmString 1 2a11c 36 b ! C DmSet 0 633b 1 ! C DmString 1 6369 5 Other ! L 6369 ! c 1 2a11b a categories ! c 1 2a10c 14 FileRetrieverTest.pm ! c 1 2a10b 4 name ! C DmInteger 2 2a11e 1 ! c 1 2a11d 9 substMode ! c 2 2a173 df b ! C DmDictionary 0 2a13f 3 ! C DmString 1 2a151 36 b ! C DmSet 0 637a 1 ! C DmString 1 63a8 5 Other ! L 63a8 ! c 1 2a150 a categories ! c 1 2a141 9 Linux.def ! c 1 2a140 4 name ! C DmInteger 2 2a153 80000001 ! c 1 2a152 9 substMode ! c 2 2a1a8 de b ! C DmDictionary 0 2a174 3 ! C DmString 1 2a186 36 b ! C DmSet 0 63b9 1 ! C DmString 1 63e7 5 Other ! L 63e7 ! c 1 2a185 a categories ! c 1 2a176 8 Makefile ! c 1 2a175 4 name ! C DmInteger 2 2a188 80000001 ! c 1 2a187 9 substMode ! c 2 2a1dd e1 b ! C DmDictionary 0 2a1a9 3 ! C DmString 1 2a1bb 36 b ! C DmSet 0 63f8 1 ! C DmString 1 6426 5 Other ! L 6426 ! c 1 2a1ba a categories ! c 1 2a1ab b runtests.pl ! c 1 2a1aa 4 name ! C DmInteger 2 2a1bd 80000001 ! c 1 2a1bc 9 substMode ! c 2 2a212 d7 b ! C DmDictionary 0 2a1de 3 ! C DmString 1 2a1f0 35 b ! C DmSet 0 6437 1 ! C DmString 1 6465 4 Html ! L 6465 ! c 1 2a1ef a categories ! c 1 2a1e0 9 test.html ! c 1 2a1df 4 name ! C DmInteger 2 2a1f2 1 ! c 1 2a1f1 9 substMode ! c 2 2a213 5 files ! c 2 2a0cf 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 2a0ce 6 launch ! c 2 2a0cb 4 make ! c 2 2a0ca 4 make ! c 2 2a0cd 0 ! c 2 2a0cc 8 makeFile ! c 5 2a0d0 0 ! c 2 2a0d2 7 modules ! c 2 2a0c9 5 tests ! c 2 2a0c8 4 name --- 1,259 ---- b ! C DmDictionary 0 2f24d 8 ! c 0 2f405 9 ! C Category 1 7fcd ! c 0 2f439 4 ! C DmString 2 2f440 2 e3 ! c 2 2f43f a defaultExe ! C DmSet 3 2f442 1 ! c 2 7fdc 2 e3 ! L 7fdc ! c 2 2f441 b executables ! c 3 2f43d 3 ! c 2 7fe3 3 *.C ! L 7fe3 ! c 2 7fe6 4 *.cc ! L 7fe6 ! c 2 7fe9 5 *.cpp ! L 7fe9 ! c 2 2f43c a extensions ! c 2 2f43b a CPP_source ! c 2 2f43a 4 name ! c 2 2f407 a CPP_source ! c 1 7ffe ! c 0 2f47f 4 ! c 2 2f486 2 e3 ! c 2 2f485 a defaultExe ! c 3 2f488 1 ! c 2 800b 2 e3 ! L 800b ! c 2 2f487 b executables ! c 3 2f483 1 ! c 2 8012 3 *.c ! L 8012 ! c 2 2f482 a extensions ! c 2 2f481 8 C_source ! c 2 2f480 4 name ! c 2 2f408 8 C_source ! c 1 8027 ! c 0 2f4b9 4 ! c 2 2f4c0 2 e3 ! c 2 2f4bf a defaultExe ! c 3 2f4c2 1 ! c 2 8034 2 e3 ! L 8034 ! c 2 2f4c1 b executables ! c 3 2f4bd 1 ! c 2 803b 3 *.e ! L 803b ! c 2 2f4bc a extensions ! c 2 2f4bb 6 Eiffel ! c 2 2f4ba 4 name ! c 2 2f409 6 Eiffel ! c 1 8050 ! c 0 2f4f3 4 ! c 2 2f4fa 2 e3 ! c 2 2f4f9 a defaultExe ! c 3 2f4fc 1 ! c 2 805d 2 e3 ! L 805d ! c 2 2f4fb b executables ! c 3 2f4f7 4 ! c 2 8064 3 *.F ! L 8064 ! c 2 8067 3 *.f ! L 8067 ! c 2 806a 5 *.for ! L 806a ! c 2 806d 5 *.fpp ! L 806d ! c 2 2f4f6 a extensions ! c 2 2f4f5 7 Fortran ! c 2 2f4f4 4 name ! c 2 2f40a 7 Fortran ! c 1 8082 ! c 0 2f539 4 ! c 2 2f540 2 e3 ! c 2 2f53f a defaultExe ! c 3 2f542 1 ! c 2 808f 2 e3 ! L 808f ! c 2 2f541 b executables ! c 3 2f53d 2 ! c 2 8096 3 *.H ! L 8096 ! c 2 8099 3 *.h ! L 8099 ! c 2 2f53c a extensions ! c 2 2f53b 6 Header ! c 2 2f53a 4 name ! c 2 2f40b 6 Header ! c 1 80ae ! c 0 2f577 4 ! c 2 2f57e 9 surfboard ! c 2 2f57d a defaultExe ! c 3 2f580 2 ! c 2 80bb 2 e3 ! L 80bb ! c 2 80be 9 surfboard ! L 80be ! c 2 2f57f b executables ! c 3 2f57b 2 ! c 2 80c5 5 *.htm ! L 80c5 ! c 2 80c8 6 *.html ! L 80c8 ! c 2 2f57a a extensions ! c 2 2f579 4 Html ! c 2 2f578 4 name ! c 2 2f40c 4 Html ! c 1 80dd ! c 0 2f5b9 4 ! c 2 2f5c0 2 e3 ! c 2 2f5bf a defaultExe ! c 3 2f5c2 1 ! c 2 80ea 2 e3 ! L 80ea ! c 2 2f5c1 b executables ! c 3 2f5bd 1 ! c 2 80f1 6 *.java ! L 80f1 ! c 2 2f5bc a extensions ! c 2 2f5bb 4 Java ! c 2 2f5ba 4 name ! c 2 2f40d 4 Java ! c 1 8106 ! c 0 2f5f3 4 ! c 2 2f5fa 2 e3 ! c 2 2f5f9 a defaultExe ! c 3 2f5fc 1 ! c 2 8113 2 e3 ! L 8113 ! c 2 2f5fb b executables ! c 3 2f5f7 1 ! c 2 811a 5 *.tex ! L 811a ! c 2 2f5f6 a extensions ! c 2 2f5f5 5 Latex ! c 2 2f5f4 4 name ! c 2 2f40e 5 Latex ! c 1 812f ! c 0 2f62d 4 ! c 2 2f634 2 e3 ! c 2 2f633 a defaultExe ! c 3 2f636 1 ! c 2 813c 2 e3 ! L 813c ! c 2 2f635 b executables ! c 3 2f631 0 ! c 2 2f630 a extensions ! c 2 2f62f 5 Other ! c 2 2f62e 4 name ! c 2 2f40f 5 Other ! c 2 2f404 a categories ! c 0 2f411 1 ! C ProjectDir 4 8159 ! c 2 815a 15 netscript2/src/tests/ 11 81 ! c 2 815b 0 0 ! c 2 2f413 15 netscript2/src/tests/ ! c 2 2f410 b directories ! C DmBag 5 2f259 8 ! c 2 2f28f e4 b ! C DmDictionary 0 2f25b 3 ! C DmString 1 2f26d 36 b ! C DmSet 0 819b 1 ! C DmString 1 81c9 5 Other ! L 81c9 ! c 1 2f26c a categories ! c 1 2f25d 14 CharacterDataTest.pm ! c 1 2f25c 4 name ! C DmInteger 2 2f26f 1 ! c 1 2f26e 9 substMode ! c 2 2f2c4 e8 b ! C DmDictionary 0 2f290 3 ! C DmString 1 2f2a2 39 b ! C DmSet 0 2f0e8 1 ! C DmString 1 2f242 5 Other ! L 2f242 ! c 1 2f2a1 a categories ! c 1 2f292 15 DOMCloneImportTest.pm ! c 1 2f291 4 name ! C DmInteger 2 2f2a4 1 ! c 1 2f2a3 9 substMode ! c 2 2f2f9 e0 b ! C DmDictionary 0 2f2c5 3 ! C DmString 1 2f2d7 36 b ! C DmSet 0 81da 1 ! C DmString 1 8208 5 Other ! L 8208 ! c 1 2f2d6 a categories ! c 1 2f2c7 10 DOMParserTest.pm ! c 1 2f2c6 4 name ! C DmInteger 2 2f2d9 1 ! c 1 2f2d8 9 substMode ! c 2 2f32e e4 b ! C DmDictionary 0 2f2fa 3 ! C DmString 1 2f30c 36 b ! C DmSet 0 8219 1 ! C DmString 1 8247 5 Other ! L 8247 ! c 1 2f30b a categories ! c 1 2f2fc 14 FileRetrieverTest.pm ! c 1 2f2fb 4 name ! C DmInteger 2 2f30e 1 ! c 1 2f30d 9 substMode ! c 2 2f363 df b ! C DmDictionary 0 2f32f 3 ! C DmString 1 2f341 36 b ! C DmSet 0 8258 1 ! C DmString 1 8286 5 Other ! L 8286 ! c 1 2f340 a categories ! c 1 2f331 9 Linux.def ! c 1 2f330 4 name ! C DmInteger 2 2f343 80000001 ! c 1 2f342 9 substMode ! c 2 2f398 de b ! C DmDictionary 0 2f364 3 ! C DmString 1 2f376 36 b ! C DmSet 0 8297 1 ! C DmString 1 82c5 5 Other ! L 82c5 ! c 1 2f375 a categories ! c 1 2f366 8 Makefile ! c 1 2f365 4 name ! C DmInteger 2 2f378 80000001 ! c 1 2f377 9 substMode ! c 2 2f3cd e1 b ! C DmDictionary 0 2f399 3 ! C DmString 1 2f3ab 36 b ! C DmSet 0 82d6 1 ! C DmString 1 8304 5 Other ! L 8304 ! c 1 2f3aa a categories ! c 1 2f39b b runtests.pl ! c 1 2f39a 4 name ! C DmInteger 2 2f3ad 80000001 ! c 1 2f3ac 9 substMode ! c 2 2f402 d7 b ! C DmDictionary 0 2f3ce 3 ! C DmString 1 2f3e0 35 b ! C DmSet 0 8315 1 ! C DmString 1 8343 4 Html ! L 8343 ! c 1 2f3df a categories ! c 1 2f3d0 9 test.html ! c 1 2f3cf 4 name ! C DmInteger 2 2f3e2 1 ! c 1 2f3e1 9 substMode ! c 2 2f403 5 files ! c 2 2f255 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 2f254 6 launch ! c 2 2f251 4 make ! c 2 2f250 4 make ! c 2 2f253 0 ! c 2 2f252 8 makeFile ! c 5 2f256 0 ! c 2 2f258 7 modules ! c 2 2f24f 5 tests ! c 2 2f24e 4 name |
|
From: Jan T. <de...@us...> - 2002-01-26 14:06:30
|
Update of /cvsroot/net-script/netscript2/src/tools/IPdoc In directory usw-pr-cvs1:/tmp/cvs-serv19982 Log Message: Status: Vendor Tag: tag1 Release Tags: tag2 N netscript2/src/tools/IPdoc/IPdoc.pm No conflicts created by this import ***** Bogus filespec: - Imported sources |
|
From: Jan T. <de...@us...> - 2002-01-09 21:56:05
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv1974
Added Files:
DOMParser.pm DOMParserStyle.pm
Log Message:
* began DOMParser Implementation
--- NEW FILE: DOMParser.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMParser
# $Id: DOMParser.pm,v 1.1 2002/01/09 21:56:02 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::DOMParser;
use vars qw($VERSION);
use XML::DOM2::DOMImplementation;
use XML::Parser;
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new DOM Parser.
# @return an instance of XML::DOM2::DOMParser
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = {};
bless( $this, $class ); # create Object
$this -> { m_DOMImplementation } =
XML::DOM2::DOMImplementation -> new();
$this -> { m_parser } = new XML::Parser(
Style => 'XML::DOM2::DOMParserStyle',
Pkg => $this
);
return $this;
}
#/**
# Parses the given File. Returns the Document object.
# @param a hash containing the following key-value-pairs:
# file - the name of the file to parse
# @return an instance of XML::DOM2::Document, representing
# the parsed file.
# @public
#*/
sub parseFile {
}
#/**
# Parses the given String. Returns the Document object.
# @param a hash containing the following key-value-pairs:
# string - a scalar holding the textual representation
# of an XML Document.
# @return an instance of XML::DOM2::Document, representing
# the parsed file.
# @public
#*/
sub parseString {
}
#/**
# @private
#*/
sub Init {
my ($this, $expat ) = @_;
}
#/**
# @private
#*/
sub Final {
my ($this, $expat ) = @_;
}
#/**
# @private
#*/
sub Start {
my ($this, $expat, $element, @attrList ) = @_;
my $elementNode = undef;
if ( !defined( $this -> { m_document } ) ) {
# create new document
$this -> { m_document } =
$this -> { m_DOMImplementation } -> createDocument( {
qualifiedName => $element,
namespaceURI => $expat -> namespace( $element )
} );
# get the root node
$elementNode = $this -> { m_document } -> documentElement();
}
else {
$elementNode = $this -> { m_document } -> createElementNS( {
qualifiedName => $element,
namespaceURI => $expat -> namespace( $element )
} );
}
while( @attrList ) {
my $name = shift;
my $value = shift;
$elementNode -> setAttributeNS({
qualifiedName => $name,
namespaceURI => $expat -> namespace( $name ),
value => $value
});
}
}
#/**
# @private
#*/
sub End {
}
#/**
# @private
#*/
sub Char {
}
#/**
# @private
#*/
sub Proc {
}
#/**
# @private
#*/
sub Comment {
}
#/**
# @private
#*/
sub CdataStart {
}
#/**
# @private
#*/
sub CdataEnd {
}
#/**
# @private
#*/
sub Unparsed {
}
#/**
# @private
#*/
sub Notation {
}
#/**
# @private
#*/
sub ExternEnt {
}
#/**
# @private
#*/
sub Entity {
}
#/**
# @private
#*/
sub Element {
}
#/**
# @private
#*/
sub Attlist {
}
#/**
# @private
#*/
sub Doctype {
}
#/**
# @private
#*/
sub XMLDecl {
}
--- NEW FILE: DOMParserStyle.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# Class DOMParserStyle
# $Id: DOMParserStyle.pm,v 1.1 2002/01/09 21:56:02 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2001 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::DOMParserStyle;
use vars qw($VERSION);
# This package is a style which forwards function calls
# to an object.
#--------------------------------------------------------
# Globals
#--------------------------------------------------------
$VERSION = '1.0';
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Forwards the event to my DOMParser object.
# @private
#*/
sub forward {
my ($sub, $expat, @args) = @_;
my $object = $expat -> {Pkg};
$object -> $sub( $expat, @args );
}
#/**
# @private
#*/
sub Init {
forward( "Init", @_ );
}
#/**
# @private
#*/
sub Final {
forward( "Final", @_ );
}
#/**
# @private
#*/
sub Start {
forward( "Start", @_ );
}
#/**
# @private
#*/
sub End {
forward( "End", @_ );
}
#/**
# @private
#*/
sub Char {
forward( "Char", @_ );
}
#/**
# @private
#*/
sub Proc {
forward( "Proc", @_ );
}
#/**
# @private
#*/
sub Comment {
forward( "Comment", @_ );
}
#/**
# @private
#*/
sub CdataStart {
forward( "CdataStart", @_ );
}
#/**
# @private
#*/
sub CdataEnd {
forward( "CdataEnd", @_ );
}
#/**
# @private
#*/
sub Unparsed {
forward( "Unparsed", @_ );
}
#/**
# @private
#*/
sub Notation {
forward( "Notation", @_ );
}
#/**
# @private
#*/
sub ExternEnt {
forward( "ExternEnt", @_ );
}
#/**
# @private
#*/
sub Entity {
forward( "Entity", @_ );
}
#/**
# @private
#*/
sub Element {
forward( "Element", @_ );
}
#/**
# @private
#*/
sub Attlist {
forward( "Attlist", @_ );
}
#/**
# @private
#*/
sub Doctype {
forward( "Doctype", @_ );
}
#/**
# @private
#*/
sub XMLDecl {
forward( "XMLDecl", @_ );
}
|
|
From: Jan T. <de...@us...> - 2002-01-09 21:55:57
|
Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2 In directory usw-pr-cvs1:/tmp/cvs-serv1902 Modified Files: wipeout.project Log Message: * began DOMParser Implementation Index: wipeout.project =================================================================== RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/wipeout.project,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** wipeout.project 2002/01/01 17:52:51 1.5 --- wipeout.project 2002/01/09 21:55:53 1.6 *************** *** 1,380 **** b ! C DmDictionary 0 441ae 8 ! c 0 445ad 9 ! C Category 1 649f ! c 0 445ed 4 ! C DmString 2 445f4 2 e3 ! c 2 445f3 a defaultExe ! C DmSet 3 445f6 1 ! c 2 64ae 2 e3 ! L 64ae ! c 2 445f5 b executables ! c 3 445f1 3 ! c 2 64b5 3 *.C ! L 64b5 ! c 2 64b8 4 *.cc ! L 64b8 ! c 2 64bb 5 *.cpp ! L 64bb ! c 2 445f0 a extensions ! c 2 445ef a CPP_source ! c 2 445ee 4 name ! c 2 445af a CPP_source ! c 1 64d0 ! c 0 44633 4 ! c 2 4463a 2 e3 ! c 2 44639 a defaultExe ! c 3 4463c 1 ! c 2 64dd 2 e3 ! L 64dd ! c 2 4463b b executables ! c 3 44637 1 ! c 2 64e4 3 *.c ! L 64e4 ! c 2 44636 a extensions ! c 2 44635 8 C_source ! c 2 44634 4 name ! c 2 445b0 8 C_source ! c 1 64f9 ! c 0 4466d 4 ! c 2 44674 2 e3 ! c 2 44673 a defaultExe ! c 3 44676 1 ! c 2 6506 2 e3 ! L 6506 ! c 2 44675 b executables ! c 3 44671 1 ! c 2 650d 3 *.e ! L 650d ! c 2 44670 a extensions ! c 2 4466f 6 Eiffel ! c 2 4466e 4 name ! c 2 445b1 6 Eiffel ! c 1 6522 ! c 0 446a7 4 ! c 2 446ae 2 e3 ! c 2 446ad a defaultExe ! c 3 446b0 1 ! c 2 652f 2 e3 ! L 652f ! c 2 446af b executables ! c 3 446ab 4 ! c 2 6536 3 *.F ! L 6536 ! c 2 6539 3 *.f ! L 6539 ! c 2 653c 5 *.for ! L 653c ! c 2 653f 5 *.fpp ! L 653f ! c 2 446aa a extensions ! c 2 446a9 7 Fortran ! c 2 446a8 4 name ! c 2 445b2 7 Fortran ! c 1 6554 ! c 0 446ed 4 ! c 2 446f4 2 e3 ! c 2 446f3 a defaultExe ! c 3 446f6 1 ! c 2 6561 2 e3 ! L 6561 ! c 2 446f5 b executables ! c 3 446f1 2 ! c 2 6568 3 *.H ! L 6568 ! c 2 656b 3 *.h ! L 656b ! c 2 446f0 a extensions ! c 2 446ef 6 Header ! c 2 446ee 4 name ! c 2 445b3 6 Header ! c 1 6580 ! c 0 4472b 4 ! c 2 44732 9 surfboard ! c 2 44731 a defaultExe ! c 3 44734 2 ! c 2 658d 2 e3 ! L 658d ! c 2 6590 9 surfboard ! L 6590 ! c 2 44733 b executables ! c 3 4472f 2 ! c 2 6597 5 *.htm ! L 6597 ! c 2 659a 6 *.html ! L 659a ! c 2 4472e a extensions ! c 2 4472d 4 Html ! c 2 4472c 4 name ! c 2 445b4 4 Html ! c 1 65af ! c 0 4476d 4 ! c 2 44774 2 e3 ! c 2 44773 a defaultExe ! c 3 44776 1 ! c 2 65bc 2 e3 ! L 65bc ! c 2 44775 b executables ! c 3 44771 1 ! c 2 65c3 6 *.java ! L 65c3 ! c 2 44770 a extensions ! c 2 4476f 4 Java ! c 2 4476e 4 name ! c 2 445b5 4 Java ! c 1 65d8 ! c 0 447a7 4 ! c 2 447ae 2 e3 ! c 2 447ad a defaultExe ! c 3 447b0 1 ! c 2 65e5 2 e3 ! L 65e5 ! c 2 447af b executables ! c 3 447ab 1 ! c 2 65ec 5 *.tex ! L 65ec ! c 2 447aa a extensions ! c 2 447a9 5 Latex ! c 2 447a8 4 name ! c 2 445b6 5 Latex ! c 1 6601 ! c 0 447e1 4 ! c 2 447e8 2 e3 ! c 2 447e7 a defaultExe ! c 3 447ea 1 ! c 2 660e 2 e3 ! L 660e ! c 2 447e9 b executables ! c 3 447e5 0 ! c 2 447e4 a extensions ! c 2 447e3 5 Other ! c 2 447e2 4 name ! c 2 445b7 5 Other ! c 2 445ac a categories ! c 0 445b9 1 ! C ProjectDir 4 662b ! c 2 662c 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 662d 0 0 ! c 2 445bb 1d netscript2/src/perl/XML/DOM2/ ! c 2 445b8 b directories ! C DmBag 5 441ba 13 ! c 2 441f0 d6 b ! C DmDictionary 0 441bc 3 ! C DmString 1 441ce 36 b ! C DmSet 0 6679 1 ! C DmString 1 66a7 5 Other ! L 66a7 ! c 1 441cd a categories ! c 1 441be 7 Attr.pm ! c 1 441bd 4 name ! C DmInteger 2 441d0 1 ! c 1 441cf 9 substMode ! c 2 44225 de b ! C DmDictionary 0 441f1 3 ! C DmString 1 44203 36 b ! C DmSet 0 66b8 1 ! C DmString 1 66e6 5 Other ! L 66e6 ! c 1 44202 a categories ! c 1 441f3 f CDATASection.pm ! c 1 441f2 4 name ! C DmInteger 2 44205 1 ! c 1 44204 9 substMode ! c 2 4425a e0 b ! C DmDictionary 0 44226 3 ! C DmString 1 44238 36 b ! C DmSet 0 66f7 1 ! C DmString 1 6725 5 Other ! L 6725 ! c 1 44237 a categories ! c 1 44228 10 CharacterData.pm ! c 1 44227 4 name ! C DmInteger 2 4423a 1 ! c 1 44239 9 substMode ! c 2 4428f d9 b ! C DmDictionary 0 4425b 3 ! C DmString 1 4426d 36 b ! C DmSet 0 6736 1 ! C DmString 1 6764 5 Other ! L 6764 ! c 1 4426c a categories ! c 1 4425d a Comment.pm ! c 1 4425c 4 name ! C DmInteger 2 4426f 1 ! c 1 4426e 9 substMode ! c 2 442c4 de b ! C DmDictionary 0 44290 3 ! C DmString 1 442a2 36 b ! C DmSet 0 6775 1 ! C DmString 1 67a3 5 Other ! L 67a3 ! c 1 442a1 a categories ! c 1 44292 f DOMException.pm ! c 1 44291 4 name ! C DmInteger 2 442a4 1 ! c 1 442a3 9 substMode ! c 2 442f9 e4 b ! C DmDictionary 0 442c5 3 ! C DmString 1 442d7 36 b ! C DmSet 0 67b4 1 ! C DmString 1 67e2 5 Other ! L 67e2 ! c 1 442d6 a categories ! c 1 442c7 14 DOMImplementation.pm ! c 1 442c6 4 name ! C DmInteger 2 442d9 1 ! c 1 442d8 9 substMode ! c 2 4432e dd b ! C DmDictionary 0 442fa 3 ! C DmString 1 4430c 39 b ! C DmSet 0 44011 1 ! C DmString 1 441a3 5 Other ! L 441a3 ! c 1 4430b a categories ! c 1 442fc b Document.pm ! c 1 442fb 4 name ! C DmInteger 2 4430e 1 ! c 1 4430d 9 substMode ! c 2 44363 e6 b ! C DmDictionary 0 4432f 3 ! C DmString 1 44341 39 b ! C DmSet 0 21cac 1 ! C DmString 1 21e3e 5 Other ! L 21e3e ! c 1 44340 a categories ! c 1 44331 13 DocumentFragment.pm ! c 1 44330 4 name ! C DmInteger 2 44343 1 ! c 1 44342 9 substMode ! c 2 44398 e1 b ! C DmDictionary 0 44364 3 ! C DmString 1 44376 39 b ! C DmSet 0 3388a 1 ! C DmString 1 33a1c 5 Other ! L 33a1c ! c 1 44375 a categories ! c 1 44366 f DocumentType.pm ! c 1 44365 4 name ! C DmInteger 2 44378 1 ! c 1 44377 9 substMode ! c 2 443cd d9 b ! C DmDictionary 0 44399 3 ! C DmString 1 443ab 36 b ! C DmSet 0 67f3 1 ! C DmString 1 6821 5 Other ! L 6821 ! c 1 443aa a categories ! c 1 4439b a Element.pm ! c 1 4439a 4 name ! C DmInteger 2 443ad 1 ! c 1 443ac 9 substMode ! c 2 44402 db b ! C DmDictionary 0 443ce 3 ! C DmString 1 443e0 39 b ! C DmSet 0 3442f 1 ! C DmString 1 345c1 5 Other ! L 345c1 ! c 1 443df a categories ! c 1 443d0 9 Entity.pm ! c 1 443cf 4 name ! C DmInteger 2 443e2 1 ! c 1 443e1 9 substMode ! c 2 44437 e5 b ! C DmDictionary 0 44403 3 ! C DmString 1 44415 39 b ! C DmSet 0 383ca 1 ! C DmString 1 3855c 5 Other ! L 3855c ! c 1 44414 a categories ! c 1 44405 12 EntityReference.pm ! c 1 44404 4 name ! C DmInteger 2 44417 1 ! c 1 44416 9 substMode ! c 2 4446c de b ! C DmDictionary 0 44438 3 ! C DmString 1 4444a 36 b ! C DmSet 0 6832 1 ! C DmString 1 6860 5 Other ! L 6860 ! c 1 44449 a categories ! c 1 4443a f NamedNodeMap.pm ! c 1 44439 4 name ! C DmInteger 2 4444c 1 ! c 1 4444b 9 substMode ! c 2 444a1 d6 b ! C DmDictionary 0 4446d 3 ! C DmString 1 4447f 36 b ! C DmSet 0 6871 1 ! C DmString 1 689f 5 Other ! L 689f ! c 1 4447e a categories ! c 1 4446f 7 Node.pm ! c 1 4446e 4 name ! C DmInteger 2 44481 1 ! c 1 44480 9 substMode ! c 2 444d6 da b ! C DmDictionary 0 444a2 3 ! C DmString 1 444b4 36 b ! C DmSet 0 68b0 1 ! C DmString 1 68de 5 Other ! L 68de ! c 1 444b3 a categories ! c 1 444a4 b NodeList.pm ! c 1 444a3 4 name ! C DmInteger 2 444b6 1 ! c 1 444b5 9 substMode ! c 2 4450b dd b ! C DmDictionary 0 444d7 3 ! C DmString 1 444e9 39 b ! C DmSet 0 3ba52 1 ! C DmString 1 3bbe4 5 Other ! L 3bbe4 ! c 1 444e8 a categories ! c 1 444d9 b Notation.pm ! c 1 444d8 4 name ! C DmInteger 2 444eb 1 ! c 1 444ea 9 substMode ! c 2 44540 e8 b ! C DmDictionary 0 4450c 3 ! C DmString 1 4451e 36 b ! C DmSet 0 68ef 1 ! C DmString 1 691d 5 Other ! L 691d ! c 1 4451d a categories ! c 1 4450e 18 ProcessingInstruction.pm ! c 1 4450d 4 name ! C DmInteger 2 44520 1 ! c 1 4451f 9 substMode ! c 2 44575 d6 b ! C DmDictionary 0 44541 3 ! C DmString 1 44553 36 b ! C DmSet 0 692e 1 ! C DmString 1 695c 5 Other ! L 695c ! c 1 44552 a categories ! c 1 44543 7 Text.pm ! c 1 44542 4 name ! C DmInteger 2 44555 1 ! c 1 44554 9 substMode ! c 2 445aa d8 b ! C DmDictionary 0 44576 3 ! C DmString 1 44588 36 b ! C DmSet 0 696d 1 ! C DmString 1 699b 5 Other ! L 699b ! c 1 44587 a categories ! c 1 44578 9 notes.txt ! c 1 44577 4 name ! C DmInteger 2 4458a 1 ! c 1 44589 9 substMode ! c 2 445ab 5 files ! c 2 441b6 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 441b5 6 launch ! c 2 441b2 4 make ! c 2 441b1 4 make ! c 2 441b4 0 ! c 2 441b3 8 makeFile ! c 5 441b7 0 ! c 2 441b9 7 modules ! c 2 441b0 4 DOM2 ! c 2 441af 4 name --- 1,402 ---- b ! C DmDictionary 0 1bb27 8 ! c 0 1bf90 9 ! C Category 1 12e54 ! c 0 1bfd0 4 ! C DmString 2 1bfd7 2 e3 ! c 2 1bfd6 a defaultExe ! C DmSet 3 1bfd9 1 ! c 2 12e63 2 e3 ! L 12e63 ! c 2 1bfd8 b executables ! c 3 1bfd4 3 ! c 2 12e6a 3 *.C ! L 12e6a ! c 2 12e6d 4 *.cc ! L 12e6d ! c 2 12e70 5 *.cpp ! L 12e70 ! c 2 1bfd3 a extensions ! c 2 1bfd2 a CPP_source ! c 2 1bfd1 4 name ! c 2 1bf92 a CPP_source ! c 1 12e85 ! c 0 1c016 4 ! c 2 1c01d 2 e3 ! c 2 1c01c a defaultExe ! c 3 1c01f 1 ! c 2 12e92 2 e3 ! L 12e92 ! c 2 1c01e b executables ! c 3 1c01a 1 ! c 2 12e99 3 *.c ! L 12e99 ! c 2 1c019 a extensions ! c 2 1c018 8 C_source ! c 2 1c017 4 name ! c 2 1bf93 8 C_source ! c 1 12eae ! c 0 1c050 4 ! c 2 1c057 2 e3 ! c 2 1c056 a defaultExe ! c 3 1c059 1 ! c 2 12ebb 2 e3 ! L 12ebb ! c 2 1c058 b executables ! c 3 1c054 1 ! c 2 12ec2 3 *.e ! L 12ec2 ! c 2 1c053 a extensions ! c 2 1c052 6 Eiffel ! c 2 1c051 4 name ! c 2 1bf94 6 Eiffel ! c 1 12ed7 ! c 0 1c08a 4 ! c 2 1c091 2 e3 ! c 2 1c090 a defaultExe ! c 3 1c093 1 ! c 2 12ee4 2 e3 ! L 12ee4 ! c 2 1c092 b executables ! c 3 1c08e 4 ! c 2 12eeb 3 *.F ! L 12eeb ! c 2 12eee 3 *.f ! L 12eee ! c 2 12ef1 5 *.for ! L 12ef1 ! c 2 12ef4 5 *.fpp ! L 12ef4 ! c 2 1c08d a extensions ! c 2 1c08c 7 Fortran ! c 2 1c08b 4 name ! c 2 1bf95 7 Fortran ! c 1 12f09 ! c 0 1c0d0 4 ! c 2 1c0d7 2 e3 ! c 2 1c0d6 a defaultExe ! c 3 1c0d9 1 ! c 2 12f16 2 e3 ! L 12f16 ! c 2 1c0d8 b executables ! c 3 1c0d4 2 ! c 2 12f1d 3 *.H ! L 12f1d ! c 2 12f20 3 *.h ! L 12f20 ! c 2 1c0d3 a extensions ! c 2 1c0d2 6 Header ! c 2 1c0d1 4 name ! c 2 1bf96 6 Header ! c 1 12f35 ! c 0 1c10e 4 ! c 2 1c115 9 surfboard ! c 2 1c114 a defaultExe ! c 3 1c117 2 ! c 2 12f42 2 e3 ! L 12f42 ! c 2 12f45 9 surfboard ! L 12f45 ! c 2 1c116 b executables ! c 3 1c112 2 ! c 2 12f4c 5 *.htm ! L 12f4c ! c 2 12f4f 6 *.html ! L 12f4f ! c 2 1c111 a extensions ! c 2 1c110 4 Html ! c 2 1c10f 4 name ! c 2 1bf97 4 Html ! c 1 12f64 ! c 0 1c150 4 ! c 2 1c157 2 e3 ! c 2 1c156 a defaultExe ! c 3 1c159 1 ! c 2 12f71 2 e3 ! L 12f71 ! c 2 1c158 b executables ! c 3 1c154 1 ! c 2 12f78 6 *.java ! L 12f78 ! c 2 1c153 a extensions ! c 2 1c152 4 Java ! c 2 1c151 4 name ! c 2 1bf98 4 Java ! c 1 12f8d ! c 0 1c18a 4 ! c 2 1c191 2 e3 ! c 2 1c190 a defaultExe ! c 3 1c193 1 ! c 2 12f9a 2 e3 ! L 12f9a ! c 2 1c192 b executables ! c 3 1c18e 1 ! c 2 12fa1 5 *.tex ! L 12fa1 ! c 2 1c18d a extensions ! c 2 1c18c 5 Latex ! c 2 1c18b 4 name ! c 2 1bf99 5 Latex ! c 1 12fb6 ! c 0 1c1c4 4 ! c 2 1c1cb 2 e3 ! c 2 1c1ca a defaultExe ! c 3 1c1cd 1 ! c 2 12fc3 2 e3 ! L 12fc3 ! c 2 1c1cc b executables ! c 3 1c1c8 0 ! c 2 1c1c7 a extensions ! c 2 1c1c6 5 Other ! c 2 1c1c5 4 name ! c 2 1bf9a 5 Other ! c 2 1bf8f a categories ! c 0 1bf9c 1 ! C ProjectDir 4 12fe0 ! c 2 12fe1 1d netscript2/src/perl/XML/DOM2/ 11 81 ! c 2 12fe2 0 0 ! c 2 1bf9e 1d netscript2/src/perl/XML/DOM2/ ! c 2 1bf9b b directories ! C DmBag 5 1bb33 15 ! c 2 1bb69 d9 b ! C DmDictionary 0 1bb35 3 ! C DmString 1 1bb47 39 b ! C DmSet 0 1303a 1 ! C DmString 1 13068 5 Other ! L 13068 ! c 1 1bb46 a categories ! c 1 1bb37 7 Attr.pm ! c 1 1bb36 4 name ! C DmInteger 2 1bb49 1 ! c 1 1bb48 9 substMode ! c 2 1bb9e e1 b ! C DmDictionary 0 1bb6a 3 ! C DmString 1 1bb7c 39 b ! C DmSet 0 13079 1 ! C DmString 1 130a7 5 Other ! L 130a7 ! c 1 1bb7b a categories ! c 1 1bb6c f CDATASection.pm ! c 1 1bb6b 4 name ! C DmInteger 2 1bb7e 1 ! c 1 1bb7d 9 substMode ! c 2 1bbd3 e3 b ! C DmDictionary 0 1bb9f 3 ! C DmString 1 1bbb1 39 b ! C DmSet 0 130b8 1 ! C DmString 1 130e6 5 Other ! L 130e6 ! c 1 1bbb0 a categories ! c 1 1bba1 10 CharacterData.pm ! c 1 1bba0 4 name ! C DmInteger 2 1bbb3 1 ! c 1 1bbb2 9 substMode ! c 2 1bc08 dc b ! C DmDictionary 0 1bbd4 3 ! C DmString 1 1bbe6 39 b ! C DmSet 0 130f7 1 ! C DmString 1 13125 5 Other ! L 13125 ! c 1 1bbe5 a categories ! c 1 1bbd6 a Comment.pm ! c 1 1bbd5 4 name ! C DmInteger 2 1bbe8 1 ! c 1 1bbe7 9 substMode ! c 2 1bc3d e1 b ! C DmDictionary 0 1bc09 3 ! C DmString 1 1bc1b 39 b ! C DmSet 0 13136 1 ! C DmString 1 13164 5 Other ! L 13164 ! c 1 1bc1a a categories ! c 1 1bc0b f DOMException.pm ! c 1 1bc0a 4 name ! C DmInteger 2 1bc1d 1 ! c 1 1bc1c 9 substMode ! c 2 1bc72 e7 b ! C DmDictionary 0 1bc3e 3 ! C DmString 1 1bc50 39 b ! C DmSet 0 13175 1 ! C DmString 1 131a3 5 Other ! L 131a3 ! c 1 1bc4f a categories ! c 1 1bc40 14 DOMImplementation.pm ! c 1 1bc3f 4 name ! C DmInteger 2 1bc52 1 ! c 1 1bc51 9 substMode ! c 2 1bca7 de b ! C DmDictionary 0 1bc73 3 ! C DmString 1 1bc85 39 b ! C DmSet 0 1ad1e 1 ! C DmString 1 1ae98 5 Other ! L 1ae98 ! c 1 1bc84 a categories ! c 1 1bc75 c DOMParser.pm ! c 1 1bc74 4 name ! C DmInteger 2 1bc87 1 ! c 1 1bc86 9 substMode ! c 2 1bcdc e4 b ! C DmDictionary 0 1bca8 3 ! C DmString 1 1bcba 39 b ! C DmSet 0 1b9a2 1 ! C DmString 1 1bb1c 5 Other ! L 1bb1c ! c 1 1bcb9 a categories ! c 1 1bcaa 11 DOMParserStyle.pm ! c 1 1bca9 4 name ! C DmInteger 2 1bcbc 1 ! c 1 1bcbb 9 substMode ! c 2 1bd11 dd b ! C DmDictionary 0 1bcdd 3 ! C DmString 1 1bcef 39 b ! C DmSet 0 131b4 1 ! C DmString 1 131e2 5 Other ! L 131e2 ! c 1 1bcee a categories ! c 1 1bcdf b Document.pm ! c 1 1bcde 4 name ! C DmInteger 2 1bcf1 1 ! c 1 1bcf0 9 substMode ! c 2 1bd46 e6 b ! C DmDictionary 0 1bd12 3 ! C DmString 1 1bd24 39 b ! C DmSet 0 131f3 1 ! C DmString 1 13221 5 Other ! L 13221 ! c 1 1bd23 a categories ! c 1 1bd14 13 DocumentFragment.pm ! c 1 1bd13 4 name ! C DmInteger 2 1bd26 1 ! c 1 1bd25 9 substMode ! c 2 1bd7b e1 b ! C DmDictionary 0 1bd47 3 ! C DmString 1 1bd59 39 b ! C DmSet 0 13232 1 ! C DmString 1 13260 5 Other ! L 13260 ! c 1 1bd58 a categories ! c 1 1bd49 f DocumentType.pm ! c 1 1bd48 4 name ! C DmInteger 2 1bd5b 1 ! c 1 1bd5a 9 substMode ! c 2 1bdb0 dc b ! C DmDictionary 0 1bd7c 3 ! C DmString 1 1bd8e 39 b ! C DmSet 0 13271 1 ! C DmString 1 1329f 5 Other ! L 1329f ! c 1 1bd8d a categories ! c 1 1bd7e a Element.pm ! c 1 1bd7d 4 name ! C DmInteger 2 1bd90 1 ! c 1 1bd8f 9 substMode ! c 2 1bde5 db b ! C DmDictionary 0 1bdb1 3 ! C DmString 1 1bdc3 39 b ! C DmSet 0 132b0 1 ! C DmString 1 132de 5 Other ! L 132de ! c 1 1bdc2 a categories ! c 1 1bdb3 9 Entity.pm ! c 1 1bdb2 4 name ! C DmInteger 2 1bdc5 1 ! c 1 1bdc4 9 substMode ! c 2 1be1a e5 b ! C DmDictionary 0 1bde6 3 ! C DmString 1 1bdf8 39 b ! C DmSet 0 132ef 1 ! C DmString 1 1331d 5 Other ! L 1331d ! c 1 1bdf7 a categories ! c 1 1bde8 12 EntityReference.pm ! c 1 1bde7 4 name ! C DmInteger 2 1bdfa 1 ! c 1 1bdf9 9 substMode ! c 2 1be4f e1 b ! C DmDictionary 0 1be1b 3 ! C DmString 1 1be2d 39 b ! C DmSet 0 1332e 1 ! C DmString 1 1335c 5 Other ! L 1335c ! c 1 1be2c a categories ! c 1 1be1d f NamedNodeMap.pm ! c 1 1be1c 4 name ! C DmInteger 2 1be2f 1 ! c 1 1be2e 9 substMode ! c 2 1be84 d9 b ! C DmDictionary 0 1be50 3 ! C DmString 1 1be62 39 b ! C DmSet 0 1336d 1 ! C DmString 1 1339b 5 Other ! L 1339b ! c 1 1be61 a categories ! c 1 1be52 7 Node.pm ! c 1 1be51 4 name ! C DmInteger 2 1be64 1 ! c 1 1be63 9 substMode ! c 2 1beb9 dd b ! C DmDictionary 0 1be85 3 ! C DmString 1 1be97 39 b ! C DmSet 0 133ac 1 ! C DmString 1 133da 5 Other ! L 133da ! c 1 1be96 a categories ! c 1 1be87 b NodeList.pm ! c 1 1be86 4 name ! C DmInteger 2 1be99 1 ! c 1 1be98 9 substMode ! c 2 1beee dd b ! C DmDictionary 0 1beba 3 ! C DmString 1 1becc 39 b ! C DmSet 0 133eb 1 ! C DmString 1 13419 5 Other ! L 13419 ! c 1 1becb a categories ! c 1 1bebc b Notation.pm ! c 1 1bebb 4 name ! C DmInteger 2 1bece 1 ! c 1 1becd 9 substMode ! c 2 1bf23 eb b ! C DmDictionary 0 1beef 3 ! C DmString 1 1bf01 39 b ! C DmSet 0 1342a 1 ! C DmString 1 13458 5 Other ! L 13458 ! c 1 1bf00 a categories ! c 1 1bef1 18 ProcessingInstruction.pm ! c 1 1bef0 4 name ! C DmInteger 2 1bf03 1 ! c 1 1bf02 9 substMode ! c 2 1bf58 d9 b ! C DmDictionary 0 1bf24 3 ! C DmString 1 1bf36 39 b ! C DmSet 0 13469 1 ! C DmString 1 13497 5 Other ! L 13497 ! c 1 1bf35 a categories ! c 1 1bf26 7 Text.pm ! c 1 1bf25 4 name ! C DmInteger 2 1bf38 1 ! c 1 1bf37 9 substMode ! c 2 1bf8d db b ! C DmDictionary 0 1bf59 3 ! C DmString 1 1bf6b 39 b ! C DmSet 0 134a8 1 ! C DmString 1 134d6 5 Other ! L 134d6 ! c 1 1bf6a a categories ! c 1 1bf5b 9 notes.txt ! c 1 1bf5a 4 name ! C DmInteger 2 1bf6d 1 ! c 1 1bf6c 9 substMode ! c 2 1bf8e 5 files ! c 2 1bb2f 94 xterm -ls -fn -*-lucidatypewriter-medium-r-normal-*-12-* -bg gray90 -T Program -geometry 80x10+0+0 -e "[set command with 'Project->Launch Command']" ! c 2 1bb2e 6 launch ! c 2 1bb2b 4 make ! c 2 1bb2a 4 make ! c 2 1bb2d 0 ! c 2 1bb2c 8 makeFile ! c 5 1bb30 0 ! c 2 1bb32 7 modules ! c 2 1bb29 4 DOM2 ! c 2 1bb28 4 name |
