net-script-commits — All CVS commits will be posted to this list.

[NetScript CVS] CVS: netscript2/docs/netscript/examples/eventcalendar README.html,1.1,1.2 classes.xml,1.1,1.2 dbsettings.xml,1.1,1.2 event.xml,1.1,1.2 eventReply.xml,1.1,1.2 reservation.xml,1.1,1.2 reservationReply.xml,1.1,1.2

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar
In directory sc8-pr-cvs1:/tmp/cvs-serv5670/docs/netscript/examples/eventcalendar

Modified Files:
	README.html classes.xml dbsettings.xml event.xml 
	eventReply.xml reservation.xml reservationReply.xml 
Log Message:
* xslt implementation

Index: README.html
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar/README.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** README.html	1 May 2003 10:39:49 -0000	1.1
--- README.html	31 May 2003 22:43:39 -0000	1.2
***************
*** 5,9 ****
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomä, insOMnia (ko...@in...)
  \---------------------------------------------------------------------/
  
--- 5,9 ----
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomae, insOMnia (ko...@in...)
  \---------------------------------------------------------------------/
  

Index: classes.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar/classes.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** classes.xml	1 May 2003 10:39:49 -0000	1.1
--- classes.xml	31 May 2003 22:43:39 -0000	1.2
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: dbsettings.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar/dbsettings.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dbsettings.xml	1 May 2003 10:39:49 -0000	1.1
--- dbsettings.xml	31 May 2003 22:43:39 -0000	1.2
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: event.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar/event.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** event.xml	1 May 2003 10:39:49 -0000	1.1
--- event.xml	31 May 2003 22:43:39 -0000	1.2
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: eventReply.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar/eventReply.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** eventReply.xml	1 May 2003 10:39:49 -0000	1.1
--- eventReply.xml	31 May 2003 22:43:39 -0000	1.2
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: reservation.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar/reservation.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** reservation.xml	1 May 2003 10:39:49 -0000	1.1
--- reservation.xml	31 May 2003 22:43:39 -0000	1.2
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: reservationReply.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/examples/eventcalendar/reservationReply.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** reservationReply.xml	1 May 2003 10:39:49 -0000	1.1
--- reservationReply.xml	31 May 2003 22:43:39 -0000	1.2
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

[NetScript CVS] CVS: netscript2 LICENSE,1.2,1.3 Makefile,1.10,1.11 Makefile.files,1.9,1.10 README,1.4,1.5

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2
In directory sc8-pr-cvs1:/tmp/cvs-serv5670

Modified Files:
	LICENSE Makefile Makefile.files README 
Log Message:
* xslt implementation

Index: LICENSE
===================================================================
RCS file: /cvsroot/net-script/netscript2/LICENSE,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** LICENSE	3 May 2002 13:37:49 -0000	1.2
--- LICENSE	31 May 2003 22:43:38 -0000	1.3
***************
*** 4,8 ****
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomä, insOMnia
  \---------------------------------------------------------------------/
  
--- 4,8 ----
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomae, insOMnia
  \---------------------------------------------------------------------/
  

Index: Makefile
===================================================================
RCS file: /cvsroot/net-script/netscript2/Makefile,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Makefile	11 Jul 2002 22:08:03 -0000	1.10
--- Makefile	31 May 2003 22:43:38 -0000	1.11
***************
*** 2,6 ****
  # $Id$
  # NetScript - Makefile
! # (C) 2000-2002 by Jan Thomä, insOMnia
  #-----------------------------------------------
  include Makefile.files
--- 2,6 ----
  # $Id$
  # NetScript - Makefile
! # (C) 2000-2002 by Jan Thomae, insOMnia
  #-----------------------------------------------
  include Makefile.files
***************
*** 94,98 ****
  docs_netscript:
  	-rm -rf $(DOCS_DIR)/netscript/api
! 	perl -Isrc/tools src/tools/ipdoc.pl -d ./$(DOCS_DIR)/netscript/api -f src/perl/NetScript -t "NetScript 2.0 Documentation" -desc ./$(DOCS_DIR)/netscript/REQUIREMENTS.html
  
  docs_all: docs_ipdoc docs_dom2 docs_netscript
--- 94,98 ----
  docs_netscript:
  	-rm -rf $(DOCS_DIR)/netscript/api
! 	perl -Isrc/tools src/tools/ipdoc.pl -d ./$(DOCS_DIR)/netscript/api -f src/perl/NetScript -t "NetScript 2.1 Documentation" -desc ./$(DOCS_DIR)/netscript/REQUIREMENTS.html
  
  docs_all: docs_ipdoc docs_dom2 docs_netscript
***************
*** 100,104 ****
  docs_all_in_one:
  	-rm -rf $(DOCS_DIR)/all/api
! 	perl -Isrc/tools src/tools/ipdoc.pl -d ./$(DOCS_DIR)/all/api -f src/tools/,src/perl/ -t "NetScript 2.0 and Components"
      
  # Creates a package for DOM2
--- 100,104 ----
  docs_all_in_one:
  	-rm -rf $(DOCS_DIR)/all/api
! 	perl -Isrc/tools src/tools/ipdoc.pl -d ./$(DOCS_DIR)/all/api -f src/tools/,src/perl/ -t "NetScript 2.1 and Components"
      
  # Creates a package for DOM2

Index: Makefile.files
===================================================================
RCS file: /cvsroot/net-script/netscript2/Makefile.files,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Makefile.files	7 Jul 2002 14:47:32 -0000	1.9
--- Makefile.files	31 May 2003 22:43:38 -0000	1.10
***************
*** 2,6 ****
  # $Id$
  # NetScript - Makefile containing the files
! # (C) 2000-2002 by Jan Thomä, insOMnia
  #-----------------------------------------------
  
--- 2,6 ----
  # $Id$
  # NetScript - Makefile containing the files
! # (C) 2000-2002 by Jan Thomae, insOMnia
  #-----------------------------------------------
  
***************
*** 35,39 ****
  DOM2_DIR = $(SOURCE_DIR)/XML/DOM2
  NETSCRIPT_DIR = $(SOURCE_DIR)/NetScript
! Perl = $(shell find -name "*.pl" -or -name "*.pm" |grep "src/")
  XML_Mappings = $(shell find -name "*.xml" | grep "src/xml/" | grep -v "/samples/")
  XML_Samples = $(subst ./,,$(shell cd $(SAMPLES_SourceDir);find ./ -name "*.x?l"))
--- 35,39 ----
  DOM2_DIR = $(SOURCE_DIR)/XML/DOM2
  NETSCRIPT_DIR = $(SOURCE_DIR)/NetScript
! Perl = $(shell find -name "*.pl" -or -name "*.pm" |grep "src/\(perl\|tools\)")
  XML_Mappings = $(shell find -name "*.xml" | grep "src/xml/" | grep -v "/samples/")
  XML_Samples = $(subst ./,,$(shell cd $(SAMPLES_SourceDir);find ./ -name "*.x?l"))

Index: README
===================================================================
RCS file: /cvsroot/net-script/netscript2/README,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** README	3 May 2002 13:37:49 -0000	1.4
--- README	31 May 2003 22:43:38 -0000	1.5
***************
*** 4,8 ****
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomä, insOMnia (ko...@in...)
  \---------------------------------------------------------------------/
  
--- 4,8 ----
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomae, insOMnia (ko...@in...)
  \---------------------------------------------------------------------/
  

[NetScript CVS] CVS: netscript2/src/scripts xslt.xml,NONE,1.1 xslt.xsl,NONE,1.1 xslt_gecko.xsl,NONE,1.1 database.xml,1.2,1.3 files.xml,1.2,1.3 forms.xml,1.2,1.3 rimport_src.xml,1.3,1.4 rimport_trg.xml,1.3,1.4 strings.xml,1.2,1.3 upload.xml,1.2,1.3

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv5119

Modified Files:
	database.xml files.xml forms.xml rimport_src.xml 
	rimport_trg.xml strings.xml upload.xml 
Added Files:
	xslt.xml xslt.xsl xslt_gecko.xsl 
Log Message:
* added xslt test scripts
* bugfixes

--- NEW FILE: xslt.xml ---
<?xml version="1.0" encoding="ISO-8859-1"?>
<!--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# NetScript 2.0 Demo Script - XSLT example 
# $Id: xslt.xml,v 1.1 2003/05/31 22:41:31 derkork Exp $
# 
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomae, insOMnia
# mailto: ko...@in...
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
<?netscript use XSLT?>

<page xmlns:xsl="http://xslt.netscript.insomnia-hq.de">

    <pagetitle>XSLT Test Page</pagetitle>
    <pagebody>
        <heading>This is a test</heading>
        <para>This is a paragraph</para>
        <para>Your Browser identification string is: $(SYS.userAgent)</para>
    </pagebody>
    
    <xsl:transform default="./xslt.xsl">
        <xsl:browser matches="MSIE 6\.0"> <!-- IE 6 -->
            <?xml-stylesheet type="text/xsl" href="http://insomnia-hq.homeip.net/~kork/netscript2/scripts/xslt.xsl"?>
        </xsl:browser>
        <xsl:browser matches="Gecko" stylesheet="./xslt_gecko.xsl"/> <!-- Mozilla/Konqueror -->
    </xsl:transform>        
</page>

--- NEW FILE: xslt.xsl ---
<?xml version="1.0" encoding="ISO-8859-1"?>
<!--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# NetScript 2.0 Demo Script - XSLT example 
# $Id: xslt.xsl,v 1.1 2003/05/31 22:41:31 derkork Exp $
# 
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomae, insOMnia
# mailto: ko...@in...
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

    <xsl:template match="page">
        <html>
            <head>
                <title>
                    <xsl:apply-templates select="pagetitle"/> - Default
                </title>
            </head>
            <body>
                <xsl:apply-templates select="pagebody"/>
            </body> 
        </html> 
    </xsl:template>

    <xsl:template match="pagebody">
        <xsl:apply-templates/>
    </xsl:template>
    
    <xsl:template match="heading">
        <h1><xsl:apply-templates/></h1>
    </xsl:template>
    
    <xsl:template match="para">
        <p><xsl:apply-templates/></p>
    </xsl:template>
</xsl:stylesheet>

--- NEW FILE: xslt_gecko.xsl ---
<?xml version="1.0" encoding="ISO-8859-1"?>
<!--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# NetScript 2.0 Demo Script - XSLT example 
# $Id: xslt_gecko.xsl,v 1.1 2003/05/31 22:41:31 derkork Exp $
# 
# NetScript and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomae, insOMnia
# mailto: ko...@in...
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

    <xsl:template match="page">
        <html>
            <head>
                <title>
                    <xsl:apply-templates select="pagetitle"/> - For Gecko
                </title>
            </head>
            <body>
                <xsl:apply-templates select="pagebody"/>
            </body> 
        </html> 
    </xsl:template>

    <xsl:template match="pagebody">
        <xsl:apply-templates/>
    </xsl:template>
    
    <xsl:template match="heading">
        <h1><xsl:apply-templates/></h1>
    </xsl:template>
    
    <xsl:template match="para">
        <p><xsl:apply-templates/></p>
    </xsl:template>
</xsl:stylesheet>

Index: database.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/database.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** database.xml	29 Oct 2002 11:52:41 -0000	1.2
--- database.xml	31 May 2003 22:41:31 -0000	1.3
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: files.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/files.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** files.xml	29 Oct 2002 11:52:41 -0000	1.2
--- files.xml	31 May 2003 22:41:31 -0000	1.3
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: forms.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/forms.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** forms.xml	29 Oct 2002 11:52:41 -0000	1.2
--- forms.xml	31 May 2003 22:41:31 -0000	1.3
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: rimport_src.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/rimport_src.xml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** rimport_src.xml	29 Oct 2002 11:52:41 -0000	1.3
--- rimport_src.xml	31 May 2003 22:41:31 -0000	1.4
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: rimport_trg.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/rimport_trg.xml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** rimport_trg.xml	29 Oct 2002 11:52:41 -0000	1.3
--- rimport_trg.xml	31 May 2003 22:41:31 -0000	1.4
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: strings.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/strings.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** strings.xml	29 Oct 2002 11:52:41 -0000	1.2
--- strings.xml	31 May 2003 22:41:31 -0000	1.3
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

Index: upload.xml
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/upload.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** upload.xml	29 Oct 2002 11:52:41 -0000	1.2
--- upload.xml	31 May 2003 22:41:31 -0000	1.3
***************
*** 6,10 ****
  # 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...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-->

[NetScript CVS] CVS: netscript2/src/scripts wipeout.project,1.3,1.4

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv5076

Modified Files:
	wipeout.project 
Log Message:
* added xslt test scripts
* bugfixes

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/wipeout.project,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** wipeout.project	31 May 2003 10:19:00 -0000	1.3
--- wipeout.project	31 May 2003 22:41:22 -0000	1.4
***************
*** 1,14 ****
  b
! C DmDictionary 0 1af70 8 
! c 0 1b15d 9 
  C Category 1 c2c3 
! c 0 1b191 4 
! C DmString 2 1b198 2 e3 
! c 2 1b197 a defaultExe 
! C DmSet 3 1b19a 1 
  c 2 c2d2 2 e3 
  L c2d2 
! c 2 1b199 b executables 
! c 3 1b195 3 
  c 2 c2d9 3 *.C 
  L c2d9 
--- 1,14 ----
  b
! C DmDictionary 0 621dc 8 
! c 0 62468 9 
  C Category 1 c2c3 
! c 0 6249c 4 
! C DmString 2 624a3 2 e3 
! c 2 624a2 a defaultExe 
! C DmSet 3 624a5 1 
  c 2 c2d2 2 e3 
  L c2d2 
! c 2 624a4 b executables 
! c 3 624a0 3 
  c 2 c2d9 3 *.C 
  L c2d9 
***************
*** 17,63 ****
  c 2 c2df 5 *.cpp 
  L c2df 
! c 2 1b194 a extensions 
! c 2 1b193 a CPP_source 
! c 2 1b192 4 name 
! c 2 1b15f a CPP_source 
  c 1 c2f4 
! c 0 1b1d7 4 
! c 2 1b1de 2 e3 
! c 2 1b1dd a defaultExe 
! c 3 1b1e0 1 
  c 2 c301 2 e3 
  L c301 
! c 2 1b1df b executables 
! c 3 1b1db 1 
  c 2 c308 3 *.c 
  L c308 
! c 2 1b1da a extensions 
! c 2 1b1d9 8 C_source 
! c 2 1b1d8 4 name 
! c 2 1b160 8 C_source 
  c 1 c31d 
! c 0 1b211 4 
! c 2 1b218 2 e3 
! c 2 1b217 a defaultExe 
! c 3 1b21a 1 
  c 2 c32a 2 e3 
  L c32a 
! c 2 1b219 b executables 
! c 3 1b215 1 
  c 2 c331 3 *.e 
  L c331 
! c 2 1b214 a extensions 
! c 2 1b213 6 Eiffel 
! c 2 1b212 4 name 
! c 2 1b161 6 Eiffel 
  c 1 c346 
! c 0 1b24b 4 
! c 2 1b252 2 e3 
! c 2 1b251 a defaultExe 
! c 3 1b254 1 
  c 2 c353 2 e3 
  L c353 
! c 2 1b253 b executables 
! c 3 1b24f 4 
  c 2 c35a 3 *.F 
  L c35a 
--- 17,63 ----
  c 2 c2df 5 *.cpp 
  L c2df 
! c 2 6249f a extensions 
! c 2 6249e a CPP_source 
! c 2 6249d 4 name 
! c 2 6246a a CPP_source 
  c 1 c2f4 
! c 0 624e2 4 
! c 2 624e9 2 e3 
! c 2 624e8 a defaultExe 
! c 3 624eb 1 
  c 2 c301 2 e3 
  L c301 
! c 2 624ea b executables 
! c 3 624e6 1 
  c 2 c308 3 *.c 
  L c308 
! c 2 624e5 a extensions 
! c 2 624e4 8 C_source 
! c 2 624e3 4 name 
! c 2 6246b 8 C_source 
  c 1 c31d 
! c 0 6251c 4 
! c 2 62523 2 e3 
! c 2 62522 a defaultExe 
! c 3 62525 1 
  c 2 c32a 2 e3 
  L c32a 
! c 2 62524 b executables 
! c 3 62520 1 
  c 2 c331 3 *.e 
  L c331 
! c 2 6251f a extensions 
! c 2 6251e 6 Eiffel 
! c 2 6251d 4 name 
! c 2 6246c 6 Eiffel 
  c 1 c346 
! c 0 62556 4 
! c 2 6255d 2 e3 
! c 2 6255c a defaultExe 
! c 3 6255f 1 
  c 2 c353 2 e3 
  L c353 
! c 2 6255e b executables 
! c 3 6255a 4 
  c 2 c35a 3 *.F 
  L c35a 
***************
*** 68,270 ****
  c 2 c363 5 *.fpp 
  L c363 
! c 2 1b24e a extensions 
! c 2 1b24d 7 Fortran 
! c 2 1b24c 4 name 
! c 2 1b162 7 Fortran 
  c 1 c378 
! c 0 1b291 4 
! c 2 1b298 2 e3 
! c 2 1b297 a defaultExe 
! c 3 1b29a 1 
  c 2 c385 2 e3 
  L c385 
! c 2 1b299 b executables 
! c 3 1b295 2 
  c 2 c38c 3 *.H 
  L c38c 
  c 2 c38f 3 *.h 
  L c38f 
! c 2 1b294 a extensions 
! c 2 1b293 6 Header 
! c 2 1b292 4 name 
! c 2 1b163 6 Header 
  c 1 c3a4 
! c 0 1b2cf 4 
! c 2 1b2d6 9 surfboard 
! c 2 1b2d5 a defaultExe 
! c 3 1b2d8 2 
  c 2 c3b1 2 e3 
  L c3b1 
  c 2 c3b4 9 surfboard 
  L c3b4 
! c 2 1b2d7 b executables 
! c 3 1b2d3 2 
  c 2 c3bb 5 *.htm 
  L c3bb 
  c 2 c3be 6 *.html 
  L c3be 
! c 2 1b2d2 a extensions 
! c 2 1b2d1 4 Html 
! c 2 1b2d0 4 name 
! c 2 1b164 4 Html 
  c 1 c3d3 
! c 0 1b311 4 
! c 2 1b318 2 e3 
! c 2 1b317 a defaultExe 
! c 3 1b31a 1 
  c 2 c3e0 2 e3 
  L c3e0 
! c 2 1b319 b executables 
! c 3 1b315 1 
  c 2 c3e7 6 *.java 
  L c3e7 
! c 2 1b314 a extensions 
! c 2 1b313 4 Java 
! c 2 1b312 4 name 
! c 2 1b165 4 Java 
  c 1 c3fc 
! c 0 1b34b 4 
! c 2 1b352 2 e3 
! c 2 1b351 a defaultExe 
! c 3 1b354 1 
  c 2 c409 2 e3 
  L c409 
! c 2 1b353 b executables 
! c 3 1b34f 1 
  c 2 c410 5 *.tex 
  L c410 
! c 2 1b34e a extensions 
! c 2 1b34d 5 Latex 
! c 2 1b34c 4 name 
! c 2 1b166 5 Latex 
  c 1 c425 
! c 0 1b385 4 
! c 2 1b38c 2 e3 
! c 2 1b38b a defaultExe 
! c 3 1b38e 1 
  c 2 c432 2 e3 
  L c432 
! c 2 1b38d b executables 
! c 3 1b389 0 
! c 2 1b388 a extensions 
! c 2 1b387 5 Other 
! c 2 1b386 4 name 
! c 2 1b167 5 Other 
! c 2 1b15c a categories 
! c 0 1b169 1 
  C ProjectDir 4 c44f 
  c 2 c450 17 netscript2/src/scripts/ 11 81 
  c 2 c451 0  0 
! c 2 1b16b 17 netscript2/src/scripts/ 
! c 2 1b168 b directories 
! C DmBag 5 1af7c 9 
! c 2 1afb2 e1 b
! C DmDictionary 0 1af7e 3 
! C DmString 1 1af90 39 b
  C DmSet 0 1ae0b 1 
  C DmString 1 1af65 5 Other 
  L 1af65  
! c 1 1af8f a categories 
! c 1 1af80 f allfeatures.xml 
! c 1 1af7f 4 name 
! C DmInteger 2 1af92 1 
! c 1 1af91 9 substMode  
! c 2 1afe7 d7 b
! C DmDictionary 0 1afb3 3 
! C DmString 1 1afc5 36 b
  C DmSet 0 c493 1 
  C DmString 1 c4c1 5 Other 
  L c4c1  
! c 1 1afc4 a categories 
! c 1 1afb5 8 core.xml 
! c 1 1afb4 4 name 
! C DmInteger 2 1afc7 1 
! c 1 1afc6 9 substMode  
! c 2 1b01c db b
! C DmDictionary 0 1afe8 3 
! C DmString 1 1affa 36 b
  C DmSet 0 c4d2 1 
  C DmString 1 c500 5 Other 
  L c500  
! c 1 1aff9 a categories 
! c 1 1afea c database.xml 
! c 1 1afe9 4 name 
! C DmInteger 2 1affc 1 
! c 1 1affb 9 substMode  
! c 2 1b051 d8 b
! C DmDictionary 0 1b01d 3 
! C DmString 1 1b02f 36 b
  C DmSet 0 c511 1 
  C DmString 1 c53f 5 Other 
  L c53f  
! c 1 1b02e a categories 
! c 1 1b01f 9 files.xml 
! c 1 1b01e 4 name 
! C DmInteger 2 1b031 1 
! c 1 1b030 9 substMode  
! c 2 1b086 d8 b
! C DmDictionary 0 1b052 3 
! C DmString 1 1b064 36 b
  C DmSet 0 c550 1 
  C DmString 1 c57e 5 Other 
  L c57e  
! c 1 1b063 a categories 
! c 1 1b054 9 forms.xml 
! c 1 1b053 4 name 
! C DmInteger 2 1b066 1 
! c 1 1b065 9 substMode  
! c 2 1b0bb de b
! C DmDictionary 0 1b087 3 
! C DmString 1 1b099 36 b
  C DmSet 0 c58f 1 
  C DmString 1 c5bd 5 Other 
  L c5bd  
! c 1 1b098 a categories 
! c 1 1b089 f rimport_src.xml 
! c 1 1b088 4 name 
! C DmInteger 2 1b09b 1 
! c 1 1b09a 9 substMode  
! c 2 1b0f0 de b
! C DmDictionary 0 1b0bc 3 
! C DmString 1 1b0ce 36 b
  C DmSet 0 c5ce 1 
  C DmString 1 c5fc 5 Other 
  L c5fc  
! c 1 1b0cd a categories 
! c 1 1b0be f rimport_trg.xml 
! c 1 1b0bd 4 name 
! C DmInteger 2 1b0d0 1 
! c 1 1b0cf 9 substMode  
! c 2 1b125 da b
! C DmDictionary 0 1b0f1 3 
! C DmString 1 1b103 36 b
  C DmSet 0 c60d 1 
  C DmString 1 c63b 5 Other 
  L c63b  
! c 1 1b102 a categories 
! c 1 1b0f3 b strings.xml 
! c 1 1b0f2 4 name 
! C DmInteger 2 1b105 1 
! c 1 1b104 9 substMode  
! c 2 1b15a d9 b
! C DmDictionary 0 1b126 3 
! C DmString 1 1b138 36 b
  C DmSet 0 c64c 1 
  C DmString 1 c67a 5 Other 
  L c67a  
! c 1 1b137 a categories 
! c 1 1b128 a upload.xml 
! c 1 1b127 4 name 
! C DmInteger 2 1b13a 1 
! c 1 1b139 9 substMode  
! c 2 1b15b 5 files 
! c 2 1af78 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 1af77 6 launch 
! c 2 1af74 4 make 
! c 2 1af73 4 make 
! c 2 1af76 0  
! c 2 1af75 8 makeFile 
! c 5 1af79 0 
! c 2 1af7b 7 modules 
! c 2 1af72 7 scripts 
! c 2 1af71 4 name 
--- 68,303 ----
  c 2 c363 5 *.fpp 
  L c363 
! c 2 62559 a extensions 
! c 2 62558 7 Fortran 
! c 2 62557 4 name 
! c 2 6246d 7 Fortran 
  c 1 c378 
! c 0 6259c 4 
! c 2 625a3 2 e3 
! c 2 625a2 a defaultExe 
! c 3 625a5 1 
  c 2 c385 2 e3 
  L c385 
! c 2 625a4 b executables 
! c 3 625a0 2 
  c 2 c38c 3 *.H 
  L c38c 
  c 2 c38f 3 *.h 
  L c38f 
! c 2 6259f a extensions 
! c 2 6259e 6 Header 
! c 2 6259d 4 name 
! c 2 6246e 6 Header 
  c 1 c3a4 
! c 0 625da 4 
! c 2 625e1 9 surfboard 
! c 2 625e0 a defaultExe 
! c 3 625e3 2 
  c 2 c3b1 2 e3 
  L c3b1 
  c 2 c3b4 9 surfboard 
  L c3b4 
! c 2 625e2 b executables 
! c 3 625de 2 
  c 2 c3bb 5 *.htm 
  L c3bb 
  c 2 c3be 6 *.html 
  L c3be 
! c 2 625dd a extensions 
! c 2 625dc 4 Html 
! c 2 625db 4 name 
! c 2 6246f 4 Html 
  c 1 c3d3 
! c 0 6261c 4 
! c 2 62623 2 e3 
! c 2 62622 a defaultExe 
! c 3 62625 1 
  c 2 c3e0 2 e3 
  L c3e0 
! c 2 62624 b executables 
! c 3 62620 1 
  c 2 c3e7 6 *.java 
  L c3e7 
! c 2 6261f a extensions 
! c 2 6261e 4 Java 
! c 2 6261d 4 name 
! c 2 62470 4 Java 
  c 1 c3fc 
! c 0 62656 4 
! c 2 6265d 2 e3 
! c 2 6265c a defaultExe 
! c 3 6265f 1 
  c 2 c409 2 e3 
  L c409 
! c 2 6265e b executables 
! c 3 6265a 1 
  c 2 c410 5 *.tex 
  L c410 
! c 2 62659 a extensions 
! c 2 62658 5 Latex 
! c 2 62657 4 name 
! c 2 62471 5 Latex 
  c 1 c425 
! c 0 62690 4 
! c 2 62697 2 e3 
! c 2 62696 a defaultExe 
! c 3 62699 1 
  c 2 c432 2 e3 
  L c432 
! c 2 62698 b executables 
! c 3 62694 0 
! c 2 62693 a extensions 
! c 2 62692 5 Other 
! c 2 62691 4 name 
! c 2 62472 5 Other 
! c 2 62467 a categories 
! c 0 62474 1 
  C ProjectDir 4 c44f 
  c 2 c450 17 netscript2/src/scripts/ 11 81 
  c 2 c451 0  0 
! c 2 62476 17 netscript2/src/scripts/ 
! c 2 62473 b directories 
! C DmBag 5 621e8 c 
! c 2 6221e e8 b
! C DmDictionary 0 621ea 3 
! C DmString 1 621fc 39 b
  C DmSet 0 1ae0b 1 
  C DmString 1 1af65 5 Other 
  L 1af65  
! c 1 621fb a categories 
! c 1 621ec f allfeatures.xml 
! c 1 621eb 4 name 
! C DmInteger 2 621fe 80000001 
! c 1 621fd 9 substMode  
! c 2 62253 d7 b
! C DmDictionary 0 6221f 3 
! C DmString 1 62231 36 b
  C DmSet 0 c493 1 
  C DmString 1 c4c1 5 Other 
  L c4c1  
! c 1 62230 a categories 
! c 1 62221 8 core.xml 
! c 1 62220 4 name 
! C DmInteger 2 62233 1 
! c 1 62232 9 substMode  
! c 2 62288 db b
! C DmDictionary 0 62254 3 
! C DmString 1 62266 36 b
  C DmSet 0 c4d2 1 
  C DmString 1 c500 5 Other 
  L c500  
! c 1 62265 a categories 
! c 1 62256 c database.xml 
! c 1 62255 4 name 
! C DmInteger 2 62268 1 
! c 1 62267 9 substMode  
! c 2 622bd d8 b
! C DmDictionary 0 62289 3 
! C DmString 1 6229b 36 b
  C DmSet 0 c511 1 
  C DmString 1 c53f 5 Other 
  L c53f  
! c 1 6229a a categories 
! c 1 6228b 9 files.xml 
! c 1 6228a 4 name 
! C DmInteger 2 6229d 1 
! c 1 6229c 9 substMode  
! c 2 622f2 d8 b
! C DmDictionary 0 622be 3 
! C DmString 1 622d0 36 b
  C DmSet 0 c550 1 
  C DmString 1 c57e 5 Other 
  L c57e  
! c 1 622cf a categories 
! c 1 622c0 9 forms.xml 
! c 1 622bf 4 name 
! C DmInteger 2 622d2 1 
! c 1 622d1 9 substMode  
! c 2 62327 de b
! C DmDictionary 0 622f3 3 
! C DmString 1 62305 36 b
  C DmSet 0 c58f 1 
  C DmString 1 c5bd 5 Other 
  L c5bd  
! c 1 62304 a categories 
! c 1 622f5 f rimport_src.xml 
! c 1 622f4 4 name 
! C DmInteger 2 62307 1 
! c 1 62306 9 substMode  
! c 2 6235c de b
! C DmDictionary 0 62328 3 
! C DmString 1 6233a 36 b
  C DmSet 0 c5ce 1 
  C DmString 1 c5fc 5 Other 
  L c5fc  
! c 1 62339 a categories 
! c 1 6232a f rimport_trg.xml 
! c 1 62329 4 name 
! C DmInteger 2 6233c 1 
! c 1 6233b 9 substMode  
! c 2 62391 da b
! C DmDictionary 0 6235d 3 
! C DmString 1 6236f 36 b
  C DmSet 0 c60d 1 
  C DmString 1 c63b 5 Other 
  L c63b  
! c 1 6236e a categories 
! c 1 6235f b strings.xml 
! c 1 6235e 4 name 
! C DmInteger 2 62371 1 
! c 1 62370 9 substMode  
! c 2 623c6 d9 b
! C DmDictionary 0 62392 3 
! C DmString 1 623a4 36 b
  C DmSet 0 c64c 1 
  C DmString 1 c67a 5 Other 
  L c67a  
! c 1 623a3 a categories 
! c 1 62394 a upload.xml 
! c 1 62393 4 name 
! C DmInteger 2 623a6 1 
! c 1 623a5 9 substMode  
! c 2 623fb da b
! C DmDictionary 0 623c7 3 
! C DmString 1 623d9 39 b
! C DmSet 0 42f22 1 
! C DmString 1 4307c 5 Other 
! L 4307c  
! c 1 623d8 a categories 
! c 1 623c9 8 xslt.xml 
! c 1 623c8 4 name 
! C DmInteger 2 623db 1 
! c 1 623da 9 substMode  
! c 2 62430 da b
! C DmDictionary 0 623fc 3 
! C DmString 1 6240e 39 b
! C DmSet 0 438c2 1 
! C DmString 1 43a1c 5 Other 
! L 43a1c  
! c 1 6240d a categories 
! c 1 623fe 8 xslt.xsl 
! c 1 623fd 4 name 
! C DmInteger 2 62410 1 
! c 1 6240f 9 substMode  
! c 2 62465 e0 b
! C DmDictionary 0 62431 3 
! C DmString 1 62443 39 b
! C DmSet 0 62077 1 
! C DmString 1 621d1 5 Other 
! L 621d1  
! c 1 62442 a categories 
! c 1 62433 e xslt_gecko.xsl 
! c 1 62432 4 name 
! C DmInteger 2 62445 1 
! c 1 62444 9 substMode  
! c 2 62466 5 files 
! c 2 621e4 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 621e3 6 launch 
! c 2 621e0 4 make 
! c 2 621df 4 make 
! c 2 621e2 0  
! c 2 621e1 8 makeFile 
! c 5 621e5 0 
! c 2 621e7 7 modules 
! c 2 621de 7 scripts 
! c 2 621dd 4 name 

[NetScript CVS] CVS: netscript2/src/perl configuration,1.2,1.3 netscript.pl,1.2,1.3

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv4485

Modified Files:
	configuration netscript.pl 
Log Message:
* finished XSLT implementation 

Index: configuration
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/configuration,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** configuration	29 Oct 2002 11:55:49 -0000	1.2
--- configuration	31 May 2003 22:39:32 -0000	1.3
***************
*** 5,9 ****
  # 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...
  #-----------------------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #-----------------------------------------------------------------------
***************
*** 22,23 ****
--- 22,32 ----
  # it allows an attacker to run arbitrary code on the system.
  ALLOW_REMOTE_SCRIPTS=no
+ 
+ # The DOM Abstraction Layer (DAL) to use. Set this according to the
+ # available Modules.
+ #
+ DAL=XML::DAL::LibXMLDAL
+ 
+ # Use this only if you cannot find a better DOM implementation. XML::DOM2 is
+ # fairly slow and should be used as last resort, only
+ #DAL=XML::DAL::XMLDOM2DAL

Index: netscript.pl
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/netscript.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** netscript.pl	29 Oct 2002 11:54:07 -0000	1.2
--- netscript.pl	31 May 2003 22:39:32 -0000	1.3
***************
*** 6,10 ****
  # 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...
  #--------------------------------------------------------
--- 6,10 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

[NetScript CVS] CVS: netscript2/src/perl/XML/DOM2 Attr.pm,1.8,1.9 CDATASection.pm,1.8,1.9 CharacterData.pm,1.8,1.9 Comment.pm,1.8,1.9 DOMException.pm,1.10,1.11 DOMImplementation.pm,1.8,1.9 DOMParser.pm,1.8,1.9 DOMParserStyle.pm,1.5,1.6 DOMWriter.pm,1.5,1.6 DOMWriterStyle.pm,1.3,1.4 Document.pm,1.10,1.11 DocumentFragment.pm,1.6,1.7 DocumentType.pm,1.6,1.7 Element.pm,1.10,1.11 Entity.pm,1.6,1.7 EntityReference.pm,1.7,1.8 NamedNodeMap.pm,1.11,1.12 Node.pm,1.22,1.23 NodeList.pm,1.14,1.15 Notation.pm,1.6,1.7 PlainXMLDOMWriterStyle.pm,1.1,1.2 ProcessingInstruction.pm,1.7,1.8 Text.pm,1.8,1.9 XMLDOMWriterStyle.pm,1.6,1.7 notes.txt,1.8,1.9

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory sc8-pr-cvs1:/tmp/cvs-serv4485/XML/DOM2

Modified Files:
	Attr.pm CDATASection.pm CharacterData.pm Comment.pm 
	DOMException.pm DOMImplementation.pm DOMParser.pm 
	DOMParserStyle.pm DOMWriter.pm DOMWriterStyle.pm Document.pm 
	DocumentFragment.pm DocumentType.pm Element.pm Entity.pm 
	EntityReference.pm NamedNodeMap.pm Node.pm NodeList.pm 
	Notation.pm PlainXMLDOMWriterStyle.pm ProcessingInstruction.pm 
	Text.pm XMLDOMWriterStyle.pm notes.txt 
Log Message:
* finished XSLT implementation 

Index: Attr.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Attr.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Attr.pm	8 Jun 2002 12:14:29 -0000	1.8
--- Attr.pm	31 May 2003 22:39:34 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: CDATASection.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CDATASection.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** CDATASection.pm	8 Jun 2002 12:14:29 -0000	1.8
--- CDATASection.pm	31 May 2003 22:39:34 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: CharacterData.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/CharacterData.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** CharacterData.pm	8 Jun 2002 12:14:29 -0000	1.8
--- CharacterData.pm	31 May 2003 22:39:34 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Comment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Comment.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Comment.pm	8 Jun 2002 12:14:29 -0000	1.8
--- Comment.pm	31 May 2003 22:39:34 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DOMException.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMException.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** DOMException.pm	8 Jun 2002 12:14:29 -0000	1.10
--- DOMException.pm	31 May 2003 22:39:34 -0000	1.11
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DOMImplementation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMImplementation.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** DOMImplementation.pm	8 Jun 2002 12:14:29 -0000	1.8
--- DOMImplementation.pm	31 May 2003 22:39:34 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DOMParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParser.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** DOMParser.pm	7 Jul 2002 14:35:53 -0000	1.8
--- DOMParser.pm	31 May 2003 22:39:34 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DOMParserStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMParserStyle.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** DOMParserStyle.pm	2 Jun 2002 19:37:40 -0000	1.5
--- DOMParserStyle.pm	31 May 2003 22:39:34 -0000	1.6
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DOMWriter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMWriter.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** DOMWriter.pm	8 Jun 2002 12:14:29 -0000	1.5
--- DOMWriter.pm	31 May 2003 22:39:34 -0000	1.6
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DOMWriterStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DOMWriterStyle.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DOMWriterStyle.pm	2 Jun 2002 19:37:40 -0000	1.3
--- DOMWriterStyle.pm	31 May 2003 22:39:34 -0000	1.4
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Document.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Document.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Document.pm	7 Jul 2002 14:35:53 -0000	1.10
--- Document.pm	31 May 2003 22:39:34 -0000	1.11
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DocumentFragment.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentFragment.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DocumentFragment.pm	8 Jun 2002 12:14:29 -0000	1.6
--- DocumentFragment.pm	31 May 2003 22:39:34 -0000	1.7
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DocumentType.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/DocumentType.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DocumentType.pm	8 Jun 2002 12:14:29 -0000	1.6
--- DocumentType.pm	31 May 2003 22:39:34 -0000	1.7
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Element.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Element.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Element.pm	7 Jul 2002 14:35:53 -0000	1.10
--- Element.pm	31 May 2003 22:39:34 -0000	1.11
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Entity.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Entity.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Entity.pm	8 Jun 2002 12:14:29 -0000	1.6
--- Entity.pm	31 May 2003 22:39:34 -0000	1.7
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: EntityReference.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/EntityReference.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** EntityReference.pm	29 Oct 2002 10:29:46 -0000	1.7
--- EntityReference.pm	31 May 2003 22:39:34 -0000	1.8
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: NamedNodeMap.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NamedNodeMap.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** NamedNodeMap.pm	8 Jun 2002 12:14:29 -0000	1.11
--- NamedNodeMap.pm	31 May 2003 22:39:34 -0000	1.12
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Node.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Node.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Node.pm	11 Jul 2002 22:06:49 -0000	1.22
--- Node.pm	31 May 2003 22:39:34 -0000	1.23
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 11,15 ****
  # This class implements a DOM Node. Its the base class of most DOM
  # Interfaces.
! # @author Jan Thomä (<a href="mailto:ko...@in...">ko...@in...</a>)
  #*/
  use strict;
--- 11,15 ----
  # This class implements a DOM Node. Its the base class of most DOM
  # Interfaces.
! # @author Jan Thomae (<a href="mailto:ko...@in...">ko...@in...</a>)
  #*/
  use strict;

Index: NodeList.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/NodeList.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** NodeList.pm	8 Jun 2002 12:14:29 -0000	1.14
--- NodeList.pm	31 May 2003 22:39:34 -0000	1.15
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Notation.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Notation.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Notation.pm	8 Jun 2002 12:14:29 -0000	1.6
--- Notation.pm	31 May 2003 22:39:34 -0000	1.7
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: PlainXMLDOMWriterStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/PlainXMLDOMWriterStyle.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** PlainXMLDOMWriterStyle.pm	21 Aug 2002 10:36:51 -0000	1.1
--- PlainXMLDOMWriterStyle.pm	31 May 2003 22:39:34 -0000	1.2
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: ProcessingInstruction.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/ProcessingInstruction.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ProcessingInstruction.pm	8 Jun 2002 12:14:29 -0000	1.7
--- ProcessingInstruction.pm	31 May 2003 22:39:34 -0000	1.8
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Text.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/Text.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Text.pm	8 Jun 2002 12:14:29 -0000	1.8
--- Text.pm	31 May 2003 22:39:34 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: XMLDOMWriterStyle.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/XMLDOMWriterStyle.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** XMLDOMWriterStyle.pm	21 Aug 2002 10:37:49 -0000	1.6
--- XMLDOMWriterStyle.pm	31 May 2003 22:39:34 -0000	1.7
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 82,86 ****
          $this -> processAttribute( $attributes -> item( $_ ) );
          }
!     $this -> appendText( ">" );
      }
  
--- 82,91 ----
          $this -> processAttribute( $attributes -> item( $_ ) );
          }
!     if ( $element -> hasChildNodes() ) {
!         $this -> appendText( ">" );
!         }
!     else { # make the short form
!         $this -> appendText( "/>" );
!         }
      }
  
***************
*** 118,123 ****
  sub finishElement {
      my ($this, $element) = @_;
!     my $nodeName = $element -> getNodeName();
!     $this -> appendText( "</$nodeName>" );
      }
  
--- 123,132 ----
  sub finishElement {
      my ($this, $element) = @_;
!     
!     if ( $element -> hasChildNodes() ) { # only if there are child nodes
!         my $nodeName = $element -> getNodeName();
!         $this -> appendText( "</$nodeName>" );
!         }
!     
      }
  

Index: notes.txt
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DOM2/notes.txt,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** notes.txt	8 Jun 2002 12:14:29 -0000	1.8
--- notes.txt	31 May 2003 22:39:34 -0000	1.9
***************
*** 7,11 ****
  # 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...
  #--------------------------------------------------------
--- 7,11 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries XSLTLibrary.pm,NONE,1.1 ClassLibrary.pm,1.5,1.6 ControlStructuresLibrary.pm,1.15,1.16 DatabaseLibrary.pm,1.5,1.6 DateLibrary.pm,1.2,1.3 DefaultLibrary.pm,1.4,1.5 FormsLibrary.pm,1.8,1.9 Library.pm,1.9,1.10 StringsLibrary.pm,1.2,1.3 VariablesLibrary.pm,1.5,1.6 wipeout.project,1.9,1.10

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries
In directory sc8-pr-cvs1:/tmp/cvs-serv4485/NetScript/Libraries

Modified Files:
	ClassLibrary.pm ControlStructuresLibrary.pm DatabaseLibrary.pm 
	DateLibrary.pm DefaultLibrary.pm FormsLibrary.pm Library.pm 
	StringsLibrary.pm VariablesLibrary.pm wipeout.project 
Added Files:
	XSLTLibrary.pm 
Log Message:
* finished XSLT implementation 

--- NEW FILE: XSLTLibrary.pm ---
#--------------------------------------------------------
# $Id: XSLTLibrary.pm,v 1.1 2003/05/31 22:39:33 derkork Exp $
#
# 
# 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;

#/**
# The XSLT library serves the purpose of applying XSLT stylesheets to the
# processed NetScript. The XSLT-library depends on a DAL capable of performing
# XSLT statements. If you try to use the library with a DAL not capable of
# no processing will be done. To use this library in your scripts put the
# following statements into your NetScript.
# <pre>
# &lt;?netscript use XSLT?&gt;
# </pre>
# The XSLT library uses the following namespace uri:&quot;http://xslt.netscript.insomnia-hq.de&quot;
# You will have to put this uri into your document element.
# <pre>
#   &lt;yourdocumentelement xmlns:xsl=&quot;http://xslt.netscript.insomnia-hq.de&quot;/&gt;
# </pre>
# 
# After that you can use the XSLT-library as follows:
# <pre>
#   &lt;xsl:transform default=&quot;[stylesheet.xsl]&quot;&gt;
#       &lt;xsl:browser matches=&quot;[regexp]&quot;&gt;
#           ...processing instruction...
#       &lt;/xsl:browser&gt;
#       &lt;xsl:browser matches=&quot;[regexp]&quot; stylesheet=&quot;[stylesheet.xsl]&quot;/&gt;
#   &lt;/xsl:transform&gt;
# </pre>
# This will apply the given stylesheet to the DOM. As the Microsoft IE is
# capable of doing XSLT transformations and most browsers will probably be 
# able to do so in the future, you can specify a processing instruction
# to be put on top of your document so that the browser is able to perform
# the transformation. You can also specify different stylesheets to be applied
# for different browsers. An example:
# <pre>
#   &lt;!-- mystylesheet.xsl is generic for all browsers --&gt;
#   &lt;xsl:transform default=&quot;mystylesheet.xsl&quot;&gt; 
#       &lt;xsl:browser matches=&quot;MSIE6.0&quot;&gt; &lt;!-- IE 6.0 --&gt;
#           &lt;?xml-stylesheet type=&quot;text/xsl&quot; href=&quot;mystylesheet.xsl&quot;?&gt;
#       &lt;/xsl:browser&gt;
#       &lt;!-- special sheet for opera --&gt;
#       &lt;xsl:browser matches=&quot;Opera&quot; stylesheet=&quot;mystylesheet_opera.xsl&quot;/&gt;
#   &lt;/xsl:transform&gt;
# </pre>
# You may add the directives anywhere in your document. However you can only apply
# one stylesheet to the document. If you put more than one instance of the
# directives in the document, the library chooses an arbitrary one of them.
#*/
package NetScript::Libraries::XSLTLibrary;
use base qw(NetScript::Libraries::Library);



use NetScript::Engine::EventListener;
use NetScript::Engine::EventRelay;
use NetScript::Interpreter;
use NetScript::Engine::DOMWalker;

use vars qw( $XSLT_NAMESPACE_URI );

$XSLT_NAMESPACE_URI = "http://xslt.netscript.insomnia-hq.de";

#/**
# Ctor. Creates a new DefaultLibrary Object.
# @public
#*/
sub new {
    my $proto = shift;                  # get Prototype
    my $class = ref($proto) || $proto;
    my $this = $class -> SUPER::new();
    $this;
    }

sub init {
    my ($this, $interpreter) = @_;
    $this -> SUPER::init( $interpreter );
    
    if ( $this -> dal() -> supportsXSLT() ) { #only if XSLT is supported
        # create event listeners for all events
        my $eventListener1 = NetScript::Engine::EventListener -> new();
        $eventListener1 -> init( 
                $NetScript::Engine::DOMWalker::DOCUMENT_END_EVENT,
                "documentFinished", $this, $NetScript::Engine::EventListener::PRIORITY_LAST );
                
        my $eventListener2 = NetScript::Engine::EventListener -> new();
        $eventListener2 -> init(
                $NetScript::Engine::DOMWalker::ELEMENT_START_EVENT,
                "elementStarted", $this );
    
        my $eventListener3 = NetScript::Engine::EventListener -> new();
        $eventListener3 -> init(
                $NetScript::Engine::DOMWalker::ELEMENT_END_EVENT,
                "elementFinished", $this );
                
        my $eventRelay = $this -> interpreter() -> getEventRelay();
        $eventRelay -> addEventListener( $eventListener1 );
        $eventRelay -> addEventListener( $eventListener2 );
        $eventRelay -> addEventListener( $eventListener3 );
        }
    else {
        warn( "XSLT is not supported by the DAL!" );
        }
    }

#/**
# Processes an <code>&lt;xsl:transform/&gt;</code>-tag
# @callback
#*/
sub processTransform {
    my ( $this, $domWalker, $node ) = @_;
    
    my %stylehash = ();
    
    my $defaultStylesheet = $this -> dal() -> getAttribute( $node, "default" );
    if ( $defaultStylesheet eq "" ) {
        $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
                $NetScript::Interpreter::FATAL_EVENT, 
                "There was no default stylesheet given!" );
        return;                        
        }

    $stylehash{ "default" } = $defaultStylesheet;
    
    my $nodeList = $this -> dal() -> getChildNodes( $node );
    my $length = $this -> dal() -> getLength( $nodeList );

    my $isClientProcessed = 0;
    for ( 0..$length-1 ) {
        my $aNode = $this -> dal() -> getItemAt( $nodeList, $_ );
        if ( $this -> dal() -> isElementNode( $aNode ) &&
                $this -> dal() -> getNamespaceURI( $aNode ) eq $XSLT_NAMESPACE_URI &&
                $this -> dal() -> getLocalName( $aNode ) eq "browser" ) {
          
            my $regexp = $this -> dal() -> getAttribute( $aNode, "matches" );
            my $stylesheet = $this -> dal() -> getAttribute( $aNode, "stylesheet" );
           
            if ( $stylesheet ne "" ) { # server processed
                $stylehash{ $regexp } = $stylesheet;
                }
            else { # client processed
                if ( $this -> browserMatches( $regexp ) ) { # if the browser matches the regexp
                    $isClientProcessed = 1;
                    # set xml content type
                    $this -> interpreter() -> setContentType( "text/xml" );
                    #find the first PI under this node and put a copy of it
                    #to the target document
                    my $childNodes = $this -> dal() -> getChildNodes( $aNode );
                    my $childLength = $this -> dal() -> getLength( $childNodes );
                    
                    for ( 0..$childLength-1 ) {
                        my $piNode = $this -> dal() -> getItemAt( $childNodes, $_ );
                        if ( $this -> dal() -> isProcessingInstructionNode( $piNode ) ) {
                            # found it, now import it into the target document
                            # XXX this is another hack, as libraries should not access 
                            # the target document directly
                            my $targetDocument = $domWalker -> targetDocument();
                            my $importedNode = $this -> dal() -> importNode( $targetDocument, $piNode, 0 );
                            my $rootElement = $this -> dal() -> getDocumentElement( $targetDocument );
                            $this -> dal() -> insertBefore( $targetDocument, $rootElement, $importedNode );
                            }
                        }
                    }
                }
            }
        }
    unless( $isClientProcessed ) {
        $this -> { m_stylesheets } = \%stylehash;
        }
    $domWalker -> stepSourceNext();
    }

#/**
# Start of the element.
# @callback
#*/
sub elementStarted {
    my ( $this, $event ) = @_; 
    my $domWalker = $event -> getEventUnknown();
    my $node = $domWalker -> currentSource();
    if ( $this -> dal() -> getNamespaceURI( $node ) eq $XSLT_NAMESPACE_URI ) {
        if ($this -> dal() -> getLocalName( $node ) eq "transform") {
            $this -> processTransform( $domWalker, $node );
            0; # consume event
            }
        else {
            1; # do not consume event
            }
        }
    else {
        1; # do not consume event
        }
    }    

#/**
# End of element.
# @callback
#*/
sub elementFinished {
    my ( $this, $event ) = @_; 
    my $domWalker = $event -> getEventUnknown();
    my $node = $domWalker -> currentSource();
    if ( $this -> dal() -> getNamespaceURI( $node ) eq $XSLT_NAMESPACE_URI ) {
        if ($this -> dal() -> getLocalName( $node ) eq "transform") {
            0; # consume event
            }
        else {
            1; # do not consume event
            }
        }
    else {
        1; # do not consume event
        }
    }    

#/**
# Returns nonzero if the browser identification string matches the given regexp.
# @param a regexp to match.
#*/
sub browserMatches {
    my ( $this, $regexp ) = @_;
    my $browser = $this -> interpreter() -> getCGI() -> user_agent();
    
    if ( $browser =~ /$regexp/ ) {
        return 1;
        }
    else {
        return 0;
        }
    }

#/**
# Called when the document is finished.
# @param an instance of <code>NetScript::Engine::Event</code>.
# @callback
#*/
sub documentFinished {
    my ( $this, $event ) = @_;
    my $domWalker = $event -> getEventUnknown();
    
    # now we have to look if we find a matching regexp
    my $stylehashref = $this -> { m_stylesheets };
    unless ( defined( $stylehashref )  ) {
        return;
        }
    my %stylehash = %{ $stylehashref }; 
    my $stylesheet = $stylehash{ "default" };
    
    foreach my $key ( keys( %stylehash ) )  {
        if ( $this -> browserMatches( $key ) ) {
            $stylesheet = $stylehash{ $key };
            }
        }
    $stylesheet = $this -> checkURL( $stylesheet );

    my $styleContent = $this -> interpreter() ->
            getFileRetriever() -> retrieveFile( $stylesheet );
    my $styleDocument = $this -> dal() -> parseString( $styleContent );
    my $target = $domWalker -> targetDocument();
    
    # XXX: next hack, complete rewrite of the whole target document.
    my $result = $this -> dal() -> applyXSLT( $target, $styleDocument );
    $domWalker -> setTargetDocument( $result );            
    0; #consume event - no one operates after stylesheet
    }

sub shutdown {
    my ($this) = @_;
    $this -> SUPER::shutdown();
    }

sub getName {
    "XSLT Library";
    }

sub getVersion {
    1.0;
    }

sub getDescription {
    "This library provides XSLT support.";
    }

1; #make require happy


Index: ClassLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/ClassLibrary.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ClassLibrary.pm	29 May 2003 16:04:26 -0000	1.5
--- ClassLibrary.pm	31 May 2003 22:39:33 -0000	1.6
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: ControlStructuresLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/ControlStructuresLibrary.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** ControlStructuresLibrary.pm	29 May 2003 16:04:27 -0000	1.15
--- ControlStructuresLibrary.pm	31 May 2003 22:39:33 -0000	1.16
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 374,386 ****
      my $theVar;
      my $createVar = 0;
  
      if ( $var eq "" && $name ne "" ) {
          $theVar = $name;
          $createVar = 1;
!         $this -> { m_forLoopsVarNames } -> { $node } = $nameOrig;
          }
      elsif( $var ne "" && $name eq "" ) {
          $theVar = $var;
!         $this -> { m_forLoopsVarNames } -> { $node } = $varOrig;
          }
      else {
--- 374,391 ----
      my $theVar;
      my $createVar = 0;
+     
+     my $nodeId = $this -> getNodeId( $node );
+     unless( defined( $nodeId ) ) {
+         $nodeId = $this -> createNodeId( $node );
+         }
  
      if ( $var eq "" && $name ne "" ) {
          $theVar = $name;
          $createVar = 1;
!         $this -> { m_forLoopsVarNames } -> { $nodeId } = $nameOrig;
          }
      elsif( $var ne "" && $name eq "" ) {
          $theVar = $var;
!         $this -> { m_forLoopsVarNames } -> { $nodeId } = $varOrig;
          }
      else {
***************
*** 391,395 ****
          }
      
!     my $value = $this -> { m_forLoops } -> {  $node };
      unless ( defined( $value ) )  { # variable is yet unknown so we initialize it
          $value = $from;
--- 396,400 ----
          }
      
!     my $value = $this -> { m_forLoops } -> {  $nodeId };
      unless ( defined( $value ) )  { # variable is yet unknown so we initialize it
          $value = $from;
***************
*** 411,420 ****
                  setVariable( $theVar, $value );
          }
!     $this -> { m_forLoops } -> { $node } = $value;
      if ( ( $from < $to &&  ( $value > $to || $value < $from ) ) ||
           ( $from > $to &&  ( $value < $to || $value > $from ) ) ||
           ( $from == $to && $value != $from ) )  { # check if loop should be executed
          # no it should not, skip node
!         delete $this -> { m_forLoops } -> { $node };
        #  delete $this -> { m_forLoopsVarNames } -> { $node }; 
          $this -> interpreter() -> dropState();
--- 416,425 ----
                  setVariable( $theVar, $value );
          }
!     $this -> { m_forLoops } -> { $nodeId } = $value;
      if ( ( $from < $to &&  ( $value > $to || $value < $from ) ) ||
           ( $from > $to &&  ( $value < $to || $value > $from ) ) ||
           ( $from == $to && $value != $from ) )  { # check if loop should be executed
          # no it should not, skip node
!         delete $this -> { m_forLoops } -> { $nodeId };
        #  delete $this -> { m_forLoopsVarNames } -> { $node }; 
          $this -> interpreter() -> dropState();
***************
*** 428,431 ****
--- 433,463 ----
  
  #/**
+ # This sub returns the value of the "netscriptforloopnodeid" - attribute.
+ # This is actually a hack, since i need to mark the nodes somehow.
+ # @todo i need to get rid of this hack.
+ #*/
+ sub getNodeId {
+     my ( $this, $node ) = @_;
+     my $result = $this -> dal() -> getAttribute( $node, "netscriptforloopnodeid" ); 
+     if ( $result ne "" ) {
+         return $result;
+         }
+     return undef;
+     }
+ 
+ #/**
+ # Generates a unique id and attaches it to the "netscriptforloopnodeid" - attribute
+ # of the given node. This is part of the id-hack.
+ # @todo i need to get rid of this hack
+ # @return the generated id
+ #*/
+ sub createNodeId {
+     my ( $this, $node ) = @_; 
+     my $id = $this -> interpreter() -> getUID();
+     $this -> dal() -> setAttribute( $node, "netscriptforloopnodeid", $id );
+     $id;
+     }
+ 
+ #/**
  # Called when a for-loop ends..
  # @param an instance of NetScript::Engine::DOMWalker
***************
*** 435,446 ****
  sub forEnd {
      my ($this, $domWalker, $node) = @_;
!     if ( defined( $this -> { m_forLoops } -> { $node } ) ) {
          # if the variable value was changed in the loop we have to
          # reflect this in our internal setting.
          my $se = $this -> interpreter() -> getStatementEvaluator();
!         my $varName = $this -> { m_forLoopsVarNames } -> { $node };
          $varName = $se -> evaluateStatement( $varName );
          my $varValue = $se -> resolveObjectValue( $varName );
!         $this -> { m_forLoops } -> { $node } = $varValue; 
  
          $this -> interpreter() -> dropState();
--- 467,479 ----
  sub forEnd {
      my ($this, $domWalker, $node) = @_;
!     my $nodeId = $this -> getNodeId( $node );
!     if ( defined( $this -> { m_forLoops } -> { $nodeId } ) ) {
          # if the variable value was changed in the loop we have to
          # reflect this in our internal setting.
          my $se = $this -> interpreter() -> getStatementEvaluator();
!         my $varName = $this -> { m_forLoopsVarNames } -> { $nodeId };
          $varName = $se -> evaluateStatement( $varName );
          my $varValue = $se -> resolveObjectValue( $varName );
!         $this -> { m_forLoops } -> { $nodeId } = $varValue; 
  
          $this -> interpreter() -> dropState();
***************
*** 573,577 ****
      my $sibling = $this -> dal() -> getNextSibling( $node );
  
!     if ( $parent -> getNodeType() != $XML::DOM2::Node::ELEMENT_NODE ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
              $NetScript::Interpreter::FATAL_EVENT, 
--- 606,610 ----
      my $sibling = $this -> dal() -> getNextSibling( $node );
  
!     if (! $this -> dal() -> isElementNode( $parent ) ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
              $NetScript::Interpreter::FATAL_EVENT, 
***************
*** 694,753 ****
  
  
- #/**
- # Checks the given URL for having a protocol and makes 
- # absolute URLs out of relative URLs.
- # @param the URL to check
- # @return the checked URL
- #*/
- sub checkURL {
-     my ( $this, $fileURL ) = @_;
-     unless ( $fileURL =~ /^[A-Za-z]+:/ ) { # check for protocol
-         # no protocol, check for relative URL
-         if ( $fileURL =~ /^\./ ) { # is relativeUrl
-             $fileURL = $this -> calculateRelativeURL( $fileURL );
-             }
-         else {
-             # no relative URL - assume "file:"-protocol
-             $fileURL = "file:".$fileURL;
-             }
-         }
-     return $fileURL;
-     }
- 
- #/**
- # Calculates the resulting URL out of the known URL of the currently executed
- # script and the given relative URL.
- # @public
- # @param a relative URL
- # @return an absolute URL 
- #*/
- sub calculateRelativeURL {
-     my ( $this, $relativeURL ) = @_;
-     my $scriptURL = $this -> interpreter() -> getScriptURL();
-     
-     $scriptURL =~ /(.*)\/[^\/]+$/;
-     $scriptURL = $1; # strip filename
-     
-     # for each single point we stay here, for each double point
-     # we go one folder down...
-     while ($relativeURL =~ /^([^\/]+)\/(.*)$/ ) {
-         my $prefix = $1;
-         $relativeURL = $2;
-         if ( $prefix eq "." ) {
-             next; # stay in the same folder
-             }
-         elsif ( $prefix eq ".." ) {
-             $scriptURL =~ /(.*)\/[^\/]+$/;
-             $scriptURL = $1; # skip folder...
-             next;
-             }
-         else { # its a name
-             $scriptURL .= "/".$prefix;
-             next;
-             }
-         }
-     $scriptURL .= "/".$relativeURL;
-     return $scriptURL;
-     }
  
  sub getName {
--- 727,730 ----

Index: DatabaseLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DatabaseLibrary.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** DatabaseLibrary.pm	29 May 2003 16:04:30 -0000	1.5
--- DatabaseLibrary.pm	31 May 2003 22:39:33 -0000	1.6
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DateLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DateLibrary.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DateLibrary.pm	29 May 2003 16:04:30 -0000	1.2
--- DateLibrary.pm	31 May 2003 22:39:33 -0000	1.3
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DefaultLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DefaultLibrary.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DefaultLibrary.pm	7 Jul 2002 14:34:37 -0000	1.4
--- DefaultLibrary.pm	31 May 2003 22:39:33 -0000	1.5
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: FormsLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/FormsLibrary.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** FormsLibrary.pm	29 Oct 2002 10:35:35 -0000	1.8
--- FormsLibrary.pm	31 May 2003 22:39:33 -0000	1.9
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 117,122 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $node -> getLocalName();
          if ($localName eq "cookie") {
              $this -> setCookie( $node, $domWalker );
--- 117,122 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $this -> dal() -> getLocalName( $node );
          if ($localName eq "cookie") {
              $this -> setCookie( $node, $domWalker );
***************
*** 143,148 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $node -> getLocalName();
          if ($localName eq "cookie" || $localName eq "upload") {
              0; # consume event 
--- 143,148 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $this -> dal() -> getLocalName( $node );
          if ($localName eq "cookie" || $localName eq "upload") {
              0; # consume event 
***************
*** 198,204 ****
  sub setCookie {
      my ( $this, $node, $walker ) = @_;
!     my $name = $node -> getAttribute( "name" );
!     my $value = $node -> getAttribute( "val" );
!     my $expires = $node -> getAttribute( "expires");
          
      my $se = $this -> interpreter() -> getStatementEvaluator();
--- 198,204 ----
  sub setCookie {
      my ( $this, $node, $walker ) = @_;
!     my $name = $this -> dal() -> getAttribute( $node, "name" );
!     my $value = $this -> dal() -> getAttribute( $node, "val" );
!     my $expires = $this -> dal() -> getAttribute( $node, "expires" );
          
      my $se = $this -> interpreter() -> getStatementEvaluator();
***************
*** 219,223 ****
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $aCGI =  $this -> interpreter() -> getCGI();
!     my $limit = $se -> evaluateStatement( $node -> getAttribute( "limit" ) );
      
      if ($limit ne "") {
--- 219,223 ----
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $aCGI =  $this -> interpreter() -> getCGI();
!     my $limit = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "limit" ) );
      
      if ($limit ne "") {
***************
*** 228,233 ****
          }
      
!     my $filename = $se -> evaluateStatement( $node -> getAttribute( "filename" ) );
!     my $parameter = $se -> evaluateStatement( $node -> getAttribute( "parameter" ) );
      $filename = $aCGI -> param( $parameter ) if $filename eq '';
      my $upload = $aCGI -> param( $parameter);        
--- 228,233 ----
          }
      
!     my $filename = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "filename" ) );
!     my $parameter = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "parameter" ) );
      $filename = $aCGI -> param( $parameter ) if $filename eq '';
      my $upload = $aCGI -> param( $parameter);        
***************
*** 239,245 ****
          }
  
!     my $directory = $se -> evaluateStatement( $node -> getAttribute( "directory" ) );
      $filename = $directory."/".$filename;
!     my $bytes = $se -> evaluateStatement( $node -> getAttribute( "bytes" ) );
      if (! defined($aCGI->uploadInfo($upload))) {
          if ( $bytes ne '' ) {
--- 239,245 ----
          }
  
!     my $directory = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "directory" ) );
      $filename = $directory."/".$filename;
!     my $bytes = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "bytes" ) );
      if (! defined($aCGI->uploadInfo($upload))) {
          if ( $bytes ne '' ) {
***************
*** 256,264 ****
      my $bytesread;
      my $overallsize = 0;
!     my $file = $se -> evaluateStatement( $node -> getAttribute( "file" ) );
      if ($file ne '') {
          $se -> setVariable( $file, $filename );
          }            
!     my $overwrite = $se -> evaluateStatement( $node -> getAttribute( "overwrite" ) );
      if ($overwrite ne 'yes' && -e $filename) {
          if ($bytes ne '') {
--- 256,264 ----
      my $bytesread;
      my $overallsize = 0;
!     my $file = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "file" ) );
      if ($file ne '') {
          $se -> setVariable( $file, $filename );
          }            
!     my $overwrite = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "overwrite" ) );
      if ($overwrite ne 'yes' && -e $filename) {
          if ($bytes ne '') {

Index: Library.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/Library.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Library.pm	29 May 2003 20:09:43 -0000	1.9
--- Library.pm	31 May 2003 22:39:33 -0000	1.10
***************
*** 129,132 ****
--- 129,189 ----
  
  #/**
+ # Checks the given URL for having a protocol and makes 
+ # absolute URLs out of relative URLs.
+ # @param the URL to check
+ # @return the checked URL
+ #*/
+ sub checkURL {
+     my ( $this, $fileURL ) = @_;
+     unless ( $fileURL =~ /^[A-Za-z]+:/ ) { # check for protocol
+         # no protocol, check for relative URL
+         if ( $fileURL =~ /^\./ ) { # is relativeUrl
+             $fileURL = $this -> calculateRelativeURL( $fileURL );
+             }
+         else {
+             # no relative URL - assume "file:"-protocol
+             $fileURL = "file:".$fileURL;
+             }
+         }
+     return $fileURL;
+     }
+ 
+ #/**
+ # Calculates the resulting URL out of the known URL of the currently executed
+ # script and the given relative URL.
+ # @public
+ # @param a relative URL
+ # @return an absolute URL 
+ #*/
+ sub calculateRelativeURL {
+     my ( $this, $relativeURL ) = @_;
+     my $scriptURL = $this -> interpreter() -> getScriptURL();
+     $scriptURL =~ /(.*\/)[^\/]+$/;
+     $scriptURL = $1; # strip filename
+     
+     # for each single point we stay here, for each double point
+     # we go one folder down...
+     while ($relativeURL =~ /^([^\/]+)\/(.*)$/ ) {
+         my $prefix = $1;
+         $relativeURL = $2;
+         if ( $prefix eq "." ) {
+             next; # stay in the same folder
+             }
+         elsif ( $prefix eq ".." ) {
+             $scriptURL =~ /(.*)\/[^\/]+$/;
+             $scriptURL = $1; # skip folder...
+             next;
+             }
+         else { # its a name
+             $scriptURL .= "/".$prefix;
+             next;
+             }
+         }
+     $scriptURL .= $relativeURL;
+     return $scriptURL;
+     }
+ 
+ 
+ #/**
  # Returns the name of the library.
  # @public

Index: StringsLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/StringsLibrary.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** StringsLibrary.pm	24 Sep 2002 22:22:03 -0000	1.2
--- StringsLibrary.pm	31 May 2003 22:39:33 -0000	1.3
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 96,101 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $STR_NAMESPACE_URI ) {
!         my $name = $node -> getLocalName();
          if ($name eq "replace") {
              $this -> doReplace( $node, $domWalker );
--- 96,101 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $STR_NAMESPACE_URI ) {
!         my $name = $this -> dal() -> getLocalName( $node );
          if ($name eq "replace") {
              $this -> doReplace( $node, $domWalker );
***************
*** 124,129 ****
      my ( $this, $node, $domWalker ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $string = $se -> evaluateStatement( $node -> getAttribute( "string" ) );
!     my $delim = $se -> evaluateStatement( $node -> getAttribute( "delim" ) );
      
      my ( $createVar, $varName ) = $this -> getVariableInfo( $node );
--- 124,129 ----
      my ( $this, $node, $domWalker ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $string = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "string" ) );
!     my $delim = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "delim" ) );
      
      my ( $createVar, $varName ) = $this -> getVariableInfo( $node );
***************
*** 169,175 ****
      my ( $this, $node, $domWalker ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $string = $se -> evaluateStatement( $node -> getAttribute( "string" ) );
!     my $search = $se -> evaluateStatement( $node -> getAttribute( "search" ) );
!     my $replace = $se -> evaluateStatement( $node -> getAttribute( "replace" ) );
      
      my ($createVar, $varName) = $this -> getVariableInfo( $node );
--- 169,175 ----
      my ( $this, $node, $domWalker ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $string = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "string" ) );
!     my $search = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "search" ) );
!     my $replace = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "replace" ) );
      
      my ($createVar, $varName) = $this -> getVariableInfo( $node );
***************
*** 208,213 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $STR_NAMESPACE_URI ) {
!         my $name = $node -> getLocalName();
          if ($name eq "split"  || $name eq "replace") {
              0; # consume event 
--- 208,213 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $STR_NAMESPACE_URI ) {
!         my $name = $this -> dal() -> getLocalName( $node );
          if ($name eq "split"  || $name eq "replace") {
              0; # consume event 

Index: VariablesLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/VariablesLibrary.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** VariablesLibrary.pm	14 Aug 2002 22:23:35 -0000	1.5
--- VariablesLibrary.pm	31 May 2003 22:39:33 -0000	1.6
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 65,70 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         if ($node -> getLocalName() eq "var") {
              $this -> varStart( $domWalker, $node );
              0; # consume event
--- 65,70 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         if ($this -> dal() -> getLocalName( $node ) eq "var") {
              $this -> varStart( $domWalker, $node );
              0; # consume event
***************
*** 87,92 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         if ($node -> getLocalName() eq "var") {
              0; # consume event 
              }
--- 87,92 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         if ($this -> dal() -> getLocalName( $node ) eq "var") {
              0; # consume event 
              }
***************
*** 111,116 ****
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my ( $createVar, $varName ) = $this -> getVariableInfo( $node );
!     my $value = $node -> getAttribute( "val");
!     my $rvalue = $node -> getAttribute( "rval" );
      
      if ( $rvalue eq "" && defined( $value ) ) {
--- 111,116 ----
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my ( $createVar, $varName ) = $this -> getVariableInfo( $node );
!     my $value = $this -> dal() -> getAttribute( $node, "val" );
!     my $rvalue = $this -> dal() -> getAttribute( $node, "rval" );
      
      if ( $rvalue eq "" && defined( $value ) ) {

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/wipeout.project,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** wipeout.project	27 Sep 2002 17:52:11 -0000	1.9
--- wipeout.project	31 May 2003 22:39:33 -0000	1.10
***************
*** 1,292 ****
  b
! C DmDictionary 0 26aab 8 
! c 0 26d02 9 
! C Category 1 7c76 
! c 0 26d42 4 
! C DmString 2 26d49 2 e3 
! c 2 26d48 a defaultExe 
! C DmSet 3 26d4b 1 
! c 2 7c85 2 e3 
! L 7c85 
! c 2 26d4a b executables 
! c 3 26d46 3 
! c 2 7c8c 3 *.C 
! L 7c8c 
! c 2 7c8f 4 *.cc 
! L 7c8f 
! c 2 7c92 5 *.cpp 
! L 7c92 
! c 2 26d45 a extensions 
! c 2 26d44 a CPP_source 
! c 2 26d43 4 name 
! c 2 26d04 a CPP_source 
! c 1 7ca7 
! c 0 26d88 4 
! c 2 26d8f 2 e3 
! c 2 26d8e a defaultExe 
! c 3 26d91 1 
! c 2 7cb4 2 e3 
! L 7cb4 
! c 2 26d90 b executables 
! c 3 26d8c 1 
! c 2 7cbb 3 *.c 
! L 7cbb 
! c 2 26d8b a extensions 
! c 2 26d8a 8 C_source 
! c 2 26d89 4 name 
! c 2 26d05 8 C_source 
! c 1 7cd0 
! c 0 26dc2 4 
! c 2 26dc9 2 e3 
! c 2 26dc8 a defaultExe 
! c 3 26dcb 1 
! c 2 7cdd 2 e3 
! L 7cdd 
! c 2 26dca b executables 
! c 3 26dc6 1 
! c 2 7ce4 3 *.e 
! L 7ce4 
! c 2 26dc5 a extensions 
! c 2 26dc4 6 Eiffel 
! c 2 26dc3 4 name 
! c 2 26d06 6 Eiffel 
! c 1 7cf9 
! c 0 26dfc 4 
! c 2 26e03 2 e3 
! c 2 26e02 a defaultExe 
! c 3 26e05 1 
! c 2 7d06 2 e3 
! L 7d06 
! c 2 26e04 b executables 
! c 3 26e00 4 
! c 2 7d0d 3 *.F 
! L 7d0d 
! c 2 7d10 3 *.f 
! L 7d10 
! c 2 7d13 5 *.for 
! L 7d13 
! c 2 7d16 5 *.fpp 
! L 7d16 
! c 2 26dff a extensions 
! c 2 26dfe 7 Fortran 
! c 2 26dfd 4 name 
! c 2 26d07 7 Fortran 
! c 1 7d2b 
! c 0 26e42 4 
! c 2 26e49 2 e3 
! c 2 26e48 a defaultExe 
! c 3 26e4b 1 
! c 2 7d38 2 e3 
! L 7d38 
! c 2 26e4a b executables 
! c 3 26e46 2 
! c 2 7d3f 3 *.H 
! L 7d3f 
! c 2 7d42 3 *.h 
! L 7d42 
! c 2 26e45 a extensions 
! c 2 26e44 6 Header 
! c 2 26e43 4 name 
! c 2 26d08 6 Header 
! c 1 7d57 
! c 0 26e80 4 
! c 2 26e87 9 surfboard 
! c 2 26e86 a defaultExe 
! c 3 26e89 2 
! c 2 7d64 2 e3 
! L 7d64 
! c 2 7d67 9 surfboard 
! L 7d67 
! c 2 26e88 b executables 
! c 3 26e84 2 
! c 2 7d6e 5 *.htm 
! L 7d6e 
! c 2 7d71 6 *.html 
! L 7d71 
! c 2 26e83 a extensions 
! c 2 26e82 4 Html 
! c 2 26e81 4 name 
! c 2 26d09 4 Html 
! c 1 7d86 
! c 0 26ec2 4 
! c 2 26ec9 2 e3 
! c 2 26ec8 a defaultExe 
! c 3 26ecb 1 
! c 2 7d93 2 e3 
! L 7d93 
! c 2 26eca b executables 
! c 3 26ec6 1 
! c 2 7d9a 6 *.java 
! L 7d9a 
! c 2 26ec5 a extensions 
! c 2 26ec4 4 Java 
! c 2 26ec3 4 name 
! c 2 26d0a 4 Java 
! c 1 7daf 
! c 0 26efc 4 
! c 2 26f03 2 e3 
! c 2 26f02 a defaultExe 
! c 3 26f05 1 
! c 2 7dbc 2 e3 
! L 7dbc 
! c 2 26f04 b executables 
! c 3 26f00 1 
! c 2 7dc3 5 *.tex 
! L 7dc3 
! c 2 26eff a extensions 
! c 2 26efe 5 Latex 
! c 2 26efd 4 name 
! c 2 26d0b 5 Latex 
! c 1 7dd8 
! c 0 26f36 4 
! c 2 26f3d 2 e3 
! c 2 26f3c a defaultExe 
! c 3 26f3f 1 
! c 2 7de5 2 e3 
! L 7de5 
! c 2 26f3e b executables 
! c 3 26f3a 0 
! c 2 26f39 a extensions 
! c 2 26f38 5 Other 
! c 2 26f37 4 name 
! c 2 26d0c 5 Other 
! c 2 26d01 a categories 
! c 0 26d0e 1 
! C ProjectDir 4 7e02 
! c 2 7e03 28 netscript2/src/perl/NetScript/Libraries/ 11 81 
! c 2 7e04 0  0 
! c 2 26d10 28 netscript2/src/perl/NetScript/Libraries/ 
! c 2 26d0d b directories 
! C DmBag 5 26ab7 b 
! c 2 26aed de b
! C DmDictionary 0 26ab9 3 
! C DmString 1 26acb 36 b
! C DmSet 0 7e4a 1 
! C DmString 1 7e78 5 Other 
! L 7e78  
! c 1 26aca a categories 
! c 1 26abb f ClassLibrary.pm 
! c 1 26aba 4 name 
! C DmInteger 2 26acd 1 
! c 1 26acc 9 substMode  
! c 2 26b22 eb b
! C DmDictionary 0 26aee 3 
! C DmString 1 26b00 36 b
! C DmSet 0 7e89 1 
! C DmString 1 7eb7 5 Other 
! L 7eb7  
! c 1 26aff a categories 
! c 1 26af0 1b ControlStructuresLibrary.pm 
! c 1 26aef 4 name 
! C DmInteger 2 26b02 1 
! c 1 26b01 9 substMode  
! c 2 26b57 e2 b
! C DmDictionary 0 26b23 3 
! C DmString 1 26b35 36 b
! C DmSet 0 7ec8 1 
! C DmString 1 7ef6 5 Other 
! L 7ef6  
! c 1 26b34 a categories 
! c 1 26b25 12 DatabaseLibrary.pm 
! c 1 26b24 4 name 
! C DmInteger 2 26b37 1 
! c 1 26b36 9 substMode  
! c 2 26b8c e0 b
! C DmDictionary 0 26b58 3 
! C DmString 1 26b6a 39 b
! C DmSet 0 26926 1 
! C DmString 1 26aa0 5 Other 
! L 26aa0  
! c 1 26b69 a categories 
! c 1 26b5a e DateLibrary.pm 
! c 1 26b59 4 name 
! C DmInteger 2 26b6c 1 
! c 1 26b6b 9 substMode  
! c 2 26bc1 de b
! C DmDictionary 0 26b8d 3 
! C DmString 1 26b9f 36 b
! C DmSet 0 7f07 1 
! C DmString 1 7f35 5 Other 
! L 7f35  
! c 1 26b9e a categories 
! c 1 26b8f f DebugLibrary.pm 
! c 1 26b8e 4 name 
! C DmInteger 2 26ba1 1 
! c 1 26ba0 9 substMode  
! c 2 26bf6 e1 b
! C DmDictionary 0 26bc2 3 
! C DmString 1 26bd4 36 b
! C DmSet 0 7f46 1 
! C DmString 1 7f74 5 Other 
! L 7f74  
! c 1 26bd3 a categories 
! c 1 26bc4 11 DefaultLibrary.pm 
! c 1 26bc3 4 name 
! C DmInteger 2 26bd6 1 
! c 1 26bd5 9 substMode  
! c 2 26c2b de b
! C DmDictionary 0 26bf7 3 
! C DmString 1 26c09 36 b
! C DmSet 0 7f85 1 
! C DmString 1 7fb3 5 Other 
! L 7fb3  
! c 1 26c08 a categories 
! c 1 26bf9 f FilesLibrary.pm 
! c 1 26bf8 4 name 
! C DmInteger 2 26c0b 1 
! c 1 26c0a 9 substMode  
! c 2 26c60 de b
! C DmDictionary 0 26c2c 3 
! C DmString 1 26c3e 36 b
! C DmSet 0 7fc4 1 
! C DmString 1 7ff2 5 Other 
! L 7ff2  
! c 1 26c3d a categories 
! c 1 26c2e f FormsLibrary.pm 
! c 1 26c2d 4 name 
! C DmInteger 2 26c40 1 
! c 1 26c3f 9 substMode  
! c 2 26c95 d9 b
! C DmDictionary 0 26c61 3 
! C DmString 1 26c73 36 b
! C DmSet 0 8003 1 
! C DmString 1 8031 5 Other 
! L 8031  
! c 1 26c72 a categories 
! c 1 26c63 a Library.pm 
! c 1 26c62 4 name 
! C DmInteger 2 26c75 1 
! c 1 26c74 9 substMode  
! c 2 26cca e1 b
! C DmDictionary 0 26c96 3 
! C DmString 1 26ca8 36 b
! C DmSet 0 8042 1 
! C DmString 1 8070 5 Other 
! L 8070  
! c 1 26ca7 a categories 
! c 1 26c98 11 StringsLibrary.pm 
! c 1 26c97 4 name 
! C DmInteger 2 26caa 1 
! c 1 26ca9 9 substMode  
! c 2 26cff e3 b
! C DmDictionary 0 26ccb 3 
! C DmString 1 26cdd 36 b
! C DmSet 0 8081 1 
! C DmString 1 80af 5 Other 
! L 80af  
! c 1 26cdc a categories 
! c 1 26ccd 13 VariablesLibrary.pm 
! c 1 26ccc 4 name 
! C DmInteger 2 26cdf 1 
! c 1 26cde 9 substMode  
! c 2 26d00 5 files 
! c 2 26ab3 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 26ab2 6 launch 
! c 2 26aaf 4 make 
! c 2 26aae 4 make 
! c 2 26ab1 0  
! c 2 26ab0 8 makeFile 
! c 5 26ab4 0 
! c 2 26ab6 7 modules 
! c 2 26aad 9 Libraries 
! c 2 26aac 4 name 
--- 1,303 ----
  b
! C DmDictionary 0 3917d 8 
! c 0 39409 9 
! C Category 1 83eb 
! c 0 39449 4 
! C DmString 2 39450 2 e3 
! c 2 3944f a defaultExe 
! C DmSet 3 39452 1 
! c 2 83fa 2 e3 
! L 83fa 
! c 2 39451 b executables 
! c 3 3944d 3 
! c 2 8401 3 *.C 
! L 8401 
! c 2 8404 4 *.cc 
! L 8404 
! c 2 8407 5 *.cpp 
! L 8407 
! c 2 3944c a extensions 
! c 2 3944b a CPP_source 
! c 2 3944a 4 name 
! c 2 3940b a CPP_source 
! c 1 841c 
! c 0 3948f 4 
! c 2 39496 2 e3 
! c 2 39495 a defaultExe 
! c 3 39498 1 
! c 2 8429 2 e3 
! L 8429 
! c 2 39497 b executables 
! c 3 39493 1 
! c 2 8430 3 *.c 
! L 8430 
! c 2 39492 a extensions 
! c 2 39491 8 C_source 
! c 2 39490 4 name 
! c 2 3940c 8 C_source 
! c 1 8445 
! c 0 394c9 4 
! c 2 394d0 2 e3 
! c 2 394cf a defaultExe 
! c 3 394d2 1 
! c 2 8452 2 e3 
! L 8452 
! c 2 394d1 b executables 
! c 3 394cd 1 
! c 2 8459 3 *.e 
! L 8459 
! c 2 394cc a extensions 
! c 2 394cb 6 Eiffel 
! c 2 394ca 4 name 
! c 2 3940d 6 Eiffel 
! c 1 846e 
! c 0 39503 4 
! c 2 3950a 2 e3 
! c 2 39509 a defaultExe 
! c 3 3950c 1 
! c 2 847b 2 e3 
! L 847b 
! c 2 3950b b executables 
! c 3 39507 4 
! c 2 8482 3 *.F 
! L 8482 
! c 2 8485 3 *.f 
! L 8485 
! c 2 8488 5 *.for 
! L 8488 
! c 2 848b 5 *.fpp 
! L 848b 
! c 2 39506 a extensions 
! c 2 39505 7 Fortran 
! c 2 39504 4 name 
! c 2 3940e 7 Fortran 
! c 1 84a0 
! c 0 39549 4 
! c 2 39550 2 e3 
! c 2 3954f a defaultExe 
! c 3 39552 1 
! c 2 84ad 2 e3 
! L 84ad 
! c 2 39551 b executables 
! c 3 3954d 2 
! c 2 84b4 3 *.H 
! L 84b4 
! c 2 84b7 3 *.h 
! L 84b7 
! c 2 3954c a extensions 
! c 2 3954b 6 Header 
! c 2 3954a 4 name 
! c 2 3940f 6 Header 
! c 1 84cc 
! c 0 39587 4 
! c 2 3958e 9 surfboard 
! c 2 3958d a defaultExe 
! c 3 39590 2 
! c 2 84d9 2 e3 
! L 84d9 
! c 2 84dc 9 surfboard 
! L 84dc 
! c 2 3958f b executables 
! c 3 3958b 2 
! c 2 84e3 5 *.htm 
! L 84e3 
! c 2 84e6 6 *.html 
! L 84e6 
! c 2 3958a a extensions 
! c 2 39589 4 Html 
! c 2 39588 4 name 
! c 2 39410 4 Html 
! c 1 84fb 
! c 0 395c9 4 
! c 2 395d0 2 e3 
! c 2 395cf a defaultExe 
! c 3 395d2 1 
! c 2 8508 2 e3 
! L 8508 
! c 2 395d1 b executables 
! c 3 395cd 1 
! c 2 850f 6 *.java 
! L 850f 
! c 2 395cc a extensions 
! c 2 395cb 4 Java 
! c 2 395ca 4 name 
! c 2 39411 4 Java 
! c 1 8524 
! c 0 39603 4 
! c 2 3960a 2 e3 
! c 2 39609 a defaultExe 
! c 3 3960c 1 
! c 2 8531 2 e3 
! L 8531 
! c 2 3960b b executables 
! c 3 39607 1 
! c 2 8538 5 *.tex 
! L 8538 
! c 2 39606 a extensions 
! c 2 39605 5 Latex 
! c 2 39604 4 name 
! c 2 39412 5 Latex 
! c 1 854d 
! c 0 3963d 4 
! c 2 39644 2 e3 
! c 2 39643 a defaultExe 
! c 3 39646 1 
! c 2 855a 2 e3 
! L 855a 
! c 2 39645 b executables 
! c 3 39641 0 
! c 2 39640 a extensions 
! c 2 3963f 5 Other 
! c 2 3963e 4 name 
! c 2 39413 5 Other 
! c 2 39408 a categories 
! c 0 39415 1 
! C ProjectDir 4 8577 
! c 2 8578 28 netscript2/src/perl/NetScript/Libraries/ 11 81 
! c 2 8579 0  0 
! c 2 39417 28 netscript2/src/perl/NetScript/Libraries/ 
! c 2 39414 b directories 
! C DmBag 5 39189 c 
! c 2 391bf de b
! C DmDictionary 0 3918b 3 
! C DmString 1 3919d 36 b
! C DmSet 0 85c1 1 
! C DmString 1 85ef 5 Other 
! L 85ef  
! c 1 3919c a categories 
! c 1 3918d f ClassLibrary.pm 
! c 1 3918c 4 name 
! C DmInteger 2 3919f 1 
! c 1 3919e 9 substMode  
! c 2 391f4 eb b
! C DmDictionary 0 391c0 3 
! C DmString 1 391d2 36 b
! C DmSet 0 8600 1 
! C DmString 1 862e 5 Other 
! L 862e  
! c 1 391d1 a categories 
! c 1 391c2 1b ControlStructuresLibrary.pm 
! c 1 391c1 4 name 
! C DmInteger 2 391d4 1 
! c 1 391d3 9 substMode  
! c 2 39229 e2 b
! C DmDictionary 0 391f5 3 
! C DmString 1 39207 36 b
! C DmSet 0 863f 1 
! C DmString 1 866d 5 Other 
! L 866d  
! c 1 39206 a categories 
! c 1 391f7 12 DatabaseLibrary.pm 
! c 1 391f6 4 name 
! C DmInteger 2 39209 1 
! c 1 39208 9 substMode  
! c 2 3925e dd b
! C DmDictionary 0 3922a 3 
! C DmString 1 3923c 36 b
! C DmSet 0 867e 1 
! C DmString 1 86ac 5 Other 
! L 86ac  
! c 1 3923b a categories 
! c 1 3922c e DateLibrary.pm 
! c 1 3922b 4 name 
! C DmInteger 2 3923e 1 
! c 1 3923d 9 substMode  
! c 2 39293 de b
! C DmDictionary 0 3925f 3 
! C DmString 1 39271 36 b
! C DmSet 0 86bd 1 
! C DmString 1 86eb 5 Other 
! L 86eb  
! c 1 39270 a categories 
! c 1 39261 f DebugLibrary.pm 
! c 1 39260 4 name 
! C DmInteger 2 39273 1 
! c 1 39272 9 substMode  
! c 2 392c8 e1 b
! C DmDictionary 0 39294 3 
! C DmString 1 392a6 36 b
! C DmSet 0 86fc 1 
! C DmString 1 872a 5 Other 
! L 872a  
! c 1 392a5 a categories 
! c 1 39296 11 DefaultLibrary.pm 
! c 1 39295 4 name 
! C DmInteger 2 392a8 1 
! c 1 392a7 9 substMode  
! c 2 392fd de b
! C DmDictionary 0 392c9 3 
! C DmString 1 392db 36 b
! C DmSet 0 873b 1 
! C DmString 1 8769 5 Other 
! L 8769  
! c 1 392da a categories 
! c 1 392cb f FilesLibrary.pm 
! c 1 392ca 4 name 
! C DmInteger 2 392dd 1 
! c 1 392dc 9 substMode  
! c 2 39332 de b
! C DmDictionary 0 392fe 3 
! C DmString 1 39310 36 b
! C DmSet 0 877a 1 
! C DmString 1 87a8 5 Other 
! L 87a8  
! c 1 3930f a categories 
! c 1 39300 f FormsLibrary.pm 
! c 1 392ff 4 name 
! C DmInteger 2 39312 1 
! c 1 39311 9 substMode  
! c 2 39367 d9 b
! C DmDictionary 0 39333 3 
! C DmString 1 39345 36 b
! C DmSet 0 87b9 1 
! C DmString 1 87e7 5 Other 
! L 87e7  
! c 1 39344 a categories 
! c 1 39335 a Library.pm 
! c 1 39334 4 name 
! C DmInteger 2 39347 1 
! c 1 39346 9 substMode  
! c 2 3939c e1 b
! C DmDictionary 0 39368 3 
! C DmString 1 3937a 36 b
! C DmSet 0 87f8 1 
! C DmString 1 8826 5 Other 
! L 8826  
! c 1 39379 a categories 
! c 1 3936a 11 StringsLibrary.pm 
! c 1 39369 4 name 
! C DmInteger 2 3937c 1 
! c 1 3937b 9 substMode  
! c 2 393d1 e3 b
! C DmDictionary 0 3939d 3 
! C DmString 1 393af 36 b
! C DmSet 0 8837 1 
! C DmString 1 8865 5 Other 
! L 8865  
! c 1 393ae a categories 
! c 1 3939f 13 VariablesLibrary.pm 
! c 1 3939e 4 name 
! C DmInteger 2 393b1 1 
! c 1 393b0 9 substMode  
! c 2 39406 e0 b
! C DmDictionary 0 393d2 3 
! C DmString 1 393e4 39 b
! C DmSet 0 38ff8 1 
! C DmString 1 39172 5 Other 
! L 39172  
! c 1 393e3 a categories 
! c 1 393d4 e XSLTLibrary.pm 
! c 1 393d3 4 name 
! C DmInteger 2 393e6 1 
! c 1 393e5 9 substMode  
! c 2 39407 5 files 
! c 2 39185 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 39184 6 launch 
! c 2 39181 4 make 
! c 2 39180 4 make 
! c 2 39183 0  
! c 2 39182 8 makeFile 
! c 5 39186 0 
! c 2 39188 7 modules 
! c 2 3917f 9 Libraries 
! c 2 3917e 4 name 

[NetScript CVS] CVS: netscript2/src/perl/XML wipeout.project,1.1,1.2

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML
In directory sc8-pr-cvs1:/tmp/cvs-serv4485/XML

Modified Files:
	wipeout.project 
Log Message:
* finished XSLT implementation 

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/wipeout.project,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** wipeout.project	2 Aug 2001 21:59:39 -0000	1.1
--- wipeout.project	31 May 2003 22:39:33 -0000	1.2
***************
*** 1,172 ****
  b
! C DmDictionary 0 e3e8 8 
! c 0 e3f9 9 
! C Category 1 a73e 
! c 0 e433 4 
! C DmString 2 e43a 2 e3 
! c 2 e439 a defaultExe 
! C DmSet 3 e43c 1 
! c 2 a750 2 e3 
! L a750 
! c 2 e43b b executables 
! c 3 e437 3 
! c 2 a746 3 *.C 
! L a746 
! c 2 a748 4 *.cc 
! L a748 
! c 2 a74a 5 *.cpp 
! L a74a 
! c 2 e436 a extensions 
! c 2 e435 a CPP_source 
! c 2 e434 4 name 
! c 2 e3fb a CPP_source 
! c 1 a754 
! c 0 e479 4 
! c 2 e480 2 e3 
! c 2 e47f a defaultExe 
! c 3 e482 1 
! c 2 a762 2 e3 
! L a762 
! c 2 e481 b executables 
! c 3 e47d 1 
! c 2 a75c 3 *.c 
! L a75c 
! c 2 e47c a extensions 
! c 2 e47b 8 C_source 
! c 2 e47a 4 name 
! c 2 e3fc 8 C_source 
! c 1 a766 
! c 0 e4b3 4 
! c 2 e4ba 2 e3 
! c 2 e4b9 a defaultExe 
! c 3 e4bc 1 
! c 2 a774 2 e3 
! L a774 
! c 2 e4bb b executables 
! c 3 e4b7 1 
! c 2 a76e 3 *.e 
! L a76e 
! c 2 e4b6 a extensions 
! c 2 e4b5 6 Eiffel 
! c 2 e4b4 4 name 
! c 2 e3fd 6 Eiffel 
! c 1 a778 
! c 0 e4ed 4 
! c 2 e4f4 2 e3 
! c 2 e4f3 a defaultExe 
! c 3 e4f6 1 
! c 2 a78c 2 e3 
! L a78c 
! c 2 e4f5 b executables 
! c 3 e4f1 4 
! c 2 a780 3 *.F 
! L a780 
! c 2 a782 3 *.f 
! L a782 
! c 2 a784 5 *.for 
! L a784 
! c 2 a786 5 *.fpp 
! L a786 
! c 2 e4f0 a extensions 
! c 2 e4ef 7 Fortran 
! c 2 e4ee 4 name 
! c 2 e3fe 7 Fortran 
! c 1 a790 
! c 0 e533 4 
! c 2 e53a 2 e3 
! c 2 e539 a defaultExe 
! c 3 e53c 1 
! c 2 a7a0 2 e3 
! L a7a0 
! c 2 e53b b executables 
! c 3 e537 2 
! c 2 a798 3 *.H 
! L a798 
! c 2 a79a 3 *.h 
! L a79a 
! c 2 e536 a extensions 
! c 2 e535 6 Header 
! c 2 e534 4 name 
! c 2 e3ff 6 Header 
! c 1 a7a4 
! c 0 e571 4 
! c 2 e578 9 surfboard 
! c 2 e577 a defaultExe 
! c 3 e57a 2 
! c 2 a7b4 2 e3 
! L a7b4 
! c 2 a7b6 9 surfboard 
! L a7b6 
! c 2 e579 b executables 
! c 3 e575 2 
! c 2 a7ac 5 *.htm 
! L a7ac 
! c 2 a7ae 6 *.html 
! L a7ae 
! c 2 e574 a extensions 
! c 2 e573 4 Html 
! c 2 e572 4 name 
! c 2 e400 4 Html 
! c 1 a7ba 
! c 0 e5b3 4 
! c 2 e5ba 2 e3 
! c 2 e5b9 a defaultExe 
! c 3 e5bc 1 
! c 2 a7c8 2 e3 
! L a7c8 
! c 2 e5bb b executables 
! c 3 e5b7 1 
! c 2 a7c2 6 *.java 
! L a7c2 
! c 2 e5b6 a extensions 
! c 2 e5b5 4 Java 
! c 2 e5b4 4 name 
! c 2 e401 4 Java 
! c 1 a7cc 
! c 0 e5ed 4 
! c 2 e5f4 2 e3 
! c 2 e5f3 a defaultExe 
! c 3 e5f6 1 
! c 2 a7da 2 e3 
! L a7da 
! c 2 e5f5 b executables 
! c 3 e5f1 1 
! c 2 a7d4 5 *.tex 
! L a7d4 
! c 2 e5f0 a extensions 
! c 2 e5ef 5 Latex 
! c 2 e5ee 4 name 
! c 2 e402 5 Latex 
! c 1 a7de 
! c 0 e627 4 
! c 2 e62e 2 e3 
! c 2 e62d a defaultExe 
! c 3 e630 1 
! c 2 a7e9 2 e3 
! L a7e9 
! c 2 e62f b executables 
! c 3 e62b 0 
! c 2 e62a a extensions 
! c 2 e629 5 Other 
! c 2 e628 4 name 
! c 2 e403 5 Other 
! c 2 e3f8 a categories 
! c 0 e405 1 
! C ProjectDir 4 a810 
! c 2 a811 18 netscript2/src/perl/XML/ 11 81 
! c 2 a812 0  0 
! c 2 e407 18 netscript2/src/perl/XML/ 
! c 2 e404 b directories 
! C DmBag 5 e3f5 0 
! c 2 e3f7 5 files 
! c 2 e3f0 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 e3ef 6 launch 
! c 2 e3ec 4 make 
! c 2 e3eb 4 make 
! c 2 e3ee 0  
! c 2 e3ed 8 makeFile 
! c 5 e3f1 1 
! c 2 e3f3 4 DOM2 
! c 2 e3f4 7 modules 
! c 2 e3ea 3 XML 
! c 2 e3e9 4 name 
--- 1,173 ----
  b
! C DmDictionary 0 6dd27 8 
! c 0 6dd39 9 
! C Category 1 66473 
! c 0 6dd73 4 
! C DmString 2 6dd7a 2 e3 
! c 2 6dd79 a defaultExe 
! C DmSet 3 6dd7c 1 
! c 2 66482 2 e3 
! L 66482 
! c 2 6dd7b b executables 
! c 3 6dd77 3 
! c 2 66489 3 *.C 
! L 66489 
! c 2 6648c 4 *.cc 
! L 6648c 
! c 2 6648f 5 *.cpp 
! L 6648f 
! c 2 6dd76 a extensions 
! c 2 6dd75 a CPP_source 
! c 2 6dd74 4 name 
! c 2 6dd3b a CPP_source 
! c 1 664a4 
! c 0 6ddb9 4 
! c 2 6ddc0 2 e3 
! c 2 6ddbf a defaultExe 
! c 3 6ddc2 1 
! c 2 664b1 2 e3 
! L 664b1 
! c 2 6ddc1 b executables 
! c 3 6ddbd 1 
! c 2 664b8 3 *.c 
! L 664b8 
! c 2 6ddbc a extensions 
! c 2 6ddbb 8 C_source 
! c 2 6ddba 4 name 
! c 2 6dd3c 8 C_source 
! c 1 664cd 
! c 0 6ddf3 4 
! c 2 6ddfa 2 e3 
! c 2 6ddf9 a defaultExe 
! c 3 6ddfc 1 
! c 2 664da 2 e3 
! L 664da 
! c 2 6ddfb b executables 
! c 3 6ddf7 1 
! c 2 664e1 3 *.e 
! L 664e1 
! c 2 6ddf6 a extensions 
! c 2 6ddf5 6 Eiffel 
! c 2 6ddf4 4 name 
! c 2 6dd3d 6 Eiffel 
! c 1 664f6 
! c 0 6de2d 4 
! c 2 6de34 2 e3 
! c 2 6de33 a defaultExe 
! c 3 6de36 1 
! c 2 66503 2 e3 
! L 66503 
! c 2 6de35 b executables 
! c 3 6de31 4 
! c 2 6650a 3 *.F 
! L 6650a 
! c 2 6650d 3 *.f 
! L 6650d 
! c 2 66510 5 *.for 
! L 66510 
! c 2 66513 5 *.fpp 
! L 66513 
! c 2 6de30 a extensions 
! c 2 6de2f 7 Fortran 
! c 2 6de2e 4 name 
! c 2 6dd3e 7 Fortran 
! c 1 66528 
! c 0 6de73 4 
! c 2 6de7a 2 e3 
! c 2 6de79 a defaultExe 
! c 3 6de7c 1 
! c 2 66535 2 e3 
! L 66535 
! c 2 6de7b b executables 
! c 3 6de77 2 
! c 2 6653c 3 *.H 
! L 6653c 
! c 2 6653f 3 *.h 
! L 6653f 
! c 2 6de76 a extensions 
! c 2 6de75 6 Header 
! c 2 6de74 4 name 
! c 2 6dd3f 6 Header 
! c 1 66554 
! c 0 6deb1 4 
! c 2 6deb8 9 surfboard 
! c 2 6deb7 a defaultExe 
! c 3 6deba 2 
! c 2 66561 2 e3 
! L 66561 
! c 2 66564 9 surfboard 
! L 66564 
! c 2 6deb9 b executables 
! c 3 6deb5 2 
! c 2 6656b 5 *.htm 
! L 6656b 
! c 2 6656e 6 *.html 
! L 6656e 
! c 2 6deb4 a extensions 
! c 2 6deb3 4 Html 
! c 2 6deb2 4 name 
! c 2 6dd40 4 Html 
! c 1 66583 
! c 0 6def3 4 
! c 2 6defa 2 e3 
! c 2 6def9 a defaultExe 
! c 3 6defc 1 
! c 2 66590 2 e3 
! L 66590 
! c 2 6defb b executables 
! c 3 6def7 1 
! c 2 66597 6 *.java 
! L 66597 
! c 2 6def6 a extensions 
! c 2 6def5 4 Java 
! c 2 6def4 4 name 
! c 2 6dd41 4 Java 
! c 1 665ac 
! c 0 6df2d 4 
! c 2 6df34 2 e3 
! c 2 6df33 a defaultExe 
! c 3 6df36 1 
! c 2 665b9 2 e3 
! L 665b9 
! c 2 6df35 b executables 
! c 3 6df31 1 
! c 2 665c0 5 *.tex 
! L 665c0 
! c 2 6df30 a extensions 
! c 2 6df2f 5 Latex 
! c 2 6df2e 4 name 
! c 2 6dd42 5 Latex 
! c 1 665d5 
! c 0 6df67 4 
! c 2 6df6e 2 e3 
! c 2 6df6d a defaultExe 
! c 3 6df70 1 
! c 2 665e2 2 e3 
! L 665e2 
! c 2 6df6f b executables 
! c 3 6df6b 0 
! c 2 6df6a a extensions 
! c 2 6df69 5 Other 
! c 2 6df68 4 name 
! c 2 6dd43 5 Other 
! c 2 6dd38 a categories 
! c 0 6dd45 1 
! C ProjectDir 4 665ff 
! c 2 66600 18 netscript2/src/perl/XML/ 11 81 
! c 2 66601 0  0 
! c 2 6dd47 18 netscript2/src/perl/XML/ 
! c 2 6dd44 b directories 
! C DmBag 5 6dd35 0 
! c 2 6dd37 5 files 
! c 2 6dd2f 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 6dd2e 6 launch 
! c 2 6dd2b 4 make 
! c 2 6dd2a 4 make 
! c 2 6dd2d 0  
! c 2 6dd2c 8 makeFile 
! c 5 6dd30 2 
! c 2 6dd32 3 DAL 
! c 2 6dd33 4 DOM2 
! c 2 6dd34 7 modules 
! c 2 6dd29 3 XML 
! c 2 6dd28 4 name 

[NetScript CVS] CVS: netscript2/src/perl/XML/DAL DAL.pm,1.1,1.2 LibXMLDAL.pm,1.1,1.2 README.html,1.1,1.2 XMLDOM2DAL.pm,1.1,1.2

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML/DAL
In directory sc8-pr-cvs1:/tmp/cvs-serv4485/XML/DAL

Modified Files:
	DAL.pm LibXMLDAL.pm README.html XMLDOM2DAL.pm 
Log Message:
* finished XSLT implementation 

Index: DAL.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DAL/DAL.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DAL.pm	29 May 2003 16:00:02 -0000	1.1
--- DAL.pm	31 May 2003 22:39:34 -0000	1.2
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 53,56 ****
--- 53,83 ----
  
  
+ #/**
+ # Converts the given DOM to a string representation.
+ # @param the document element of the dom to convert to string.
+ # @return a string representation of the dom
+ #*/
+ sub domToString {
+     
+     }
+ 
+ #/**
+ # Returns nonzero if the current DAL supports XSLT functions.
+ # @return nonzero if XSLT is supported, zero if not.
+ #*/
+ sub supportsXSLT {
+     
+     }
+ 
+ #/**
+ # Applies the XSLT stylesheet dom to the given DOM.
+ # @param the document element of the dom to apply the stylesheet to
+ # @param the document element of the stylesheet dom
+ # @return the result dom.
+ #*/
+ sub applyXSLT {
+     
+     }
+ 
  # ---------------- Node Type Checking --------------------
  
***************
*** 263,266 ****
--- 290,303 ----
      }
  
+ #/**
+ # Sets the given attribute of the given node to the given value.
+ # @param an element node
+ # @param the name of the attribute
+ # @param the value of the attribute.
+ #*/
+ sub setAttribute {
+     
+     }
+ 
  
  # ---------------- CDATA functions --------------------
***************
*** 333,336 ****
--- 370,382 ----
  
  #/**
+ # Allows to set the document element of the given document.
+ # @param a document node
+ # @param the new document element.
+ #*/
+ sub setDocumentElement {
+     
+     }
+ 
+ #/**
  # Import the given node into the given document.
  # @param the document to import the node into
***************
*** 343,346 ****
--- 389,401 ----
      }
  
+ #/**
+ # Creates a comment node using the given document.
+ # @param the document to use for node creation
+ # @param the text of the comment to be created
+ # @return the created node
+ #*/
+ sub createComment {
+     
+     }
  
  

Index: LibXMLDAL.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DAL/LibXMLDAL.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** LibXMLDAL.pm	29 May 2003 16:00:02 -0000	1.1
--- LibXMLDAL.pm	31 May 2003 22:39:34 -0000	1.2
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 11,14 ****
--- 11,15 ----
  
  use XML::LibXML;
+ #use XML::LibXML::Document;
  
  #/**
***************
*** 31,33 ****
--- 32,409 ----
      }
  
+ sub domToString {
+     my ( $this, $dom ) = @_;
+     $dom -> toString( 0 );    
+     }
+ 
+ sub supportsXSLT {
+     if ( defined( eval{
+         use XML::LibXSLT;
+         } ) ) {
+         return 1;            
+         }
+ 
+     return 0;
+     }
+ 
+ 
+ sub applyXSLT {
+     my ( $this, $sourcedom, $stylesheetdom ) = @_;
+     use XML::LibXSLT; # hardcoded import
+     my $xslt = XML::LibXSLT -> new();
+     my $stylesheet = $xslt -> parse_stylesheet( $stylesheetdom );
+     $stylesheet -> transform( $sourcedom );
+     }
+ 
+ # ---------------- Node Type Checking --------------------
+ 
+ #/**
+ # Returns nonzero if the given node is an element node.
+ # @param a node
+ #*/
+ sub isElementNode {
+     my ( $this, $node ) = @_;
+     return 1 if $node -> nodeType == 1; # 1 = Element node
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero if the given node is a text node
+ # @param a node
+ #*/
+ sub isTextNode {
+     my ( $this, $node ) = @_;
+     return 1 if $node -> nodeType == 3; # 3 = text node
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero, if the given node is a processing instruction node
+ # @param a node
+ #*/
+ sub isProcessingInstructionNode {
+     my ( $this, $node ) = @_;
+     return 1 if $node -> nodeType == 7; # 7 =PI node
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero if the given node is a comment node.
+ # @param a node
+ #*/
+ sub isCommentNode {
+     my ( $this, $node ) = @_;
+     return 1 if $node -> nodeType == 8; # 8 = comment node
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero if the given node is a document node.
+ # @param a node
+ #*/
+ sub isDocumentNode {
+     my ( $this, $node ) = @_;
+     return 1 if $node -> nodeType == 9; # 9 = document node
+     return 0;
+     }
+ 
+ # ---------------- Node Functions --------------------
+ 
+ #/**
+ # Appends the given child node to the given parent node.
+ # @param the parent node
+ # @param the node to append to the parent node.
+ #*/
+ sub appendChild {
+     my ( $this, $parent, $node ) = @_;
+     $parent -> appendChild( $node );
+     }
+ 
+ #/**
+ # Inserts the given node before the given child node of the given parent node
+ # @param the parent node
+ # @param the reference node 
+ # @param the node to insert
+ #*/
+ sub insertBefore {
+     my ( $this, $parent, $ref, $node ) = @_;
+     $parent -> insertBefore( $node, $ref );
+     }
+ 
+ #/**
+ # Removes the given child node from the given parent node.
+ # @param the node to remove the child from
+ # @param the node to remove from the parent node.
+ # @return the removed node.
+ #*/
+ sub removeChild {
+     my ( $this, $parent, $node ) = @_;
+     $parent -> removeChild( $node );
+     }
+ 
+ #/**
+ # Returns the first child of the given node. 
+ # @param the node whichs first child should be returned.
+ # @return the first child of the given node or undef if the node has no child
+ # nodes.
+ #*/
+ sub getFirstChild {
+     my ( $this, $node ) = @_;
+     $node -> firstChild;
+     }
+ 
+ 
+ #/**
+ # Returns the parent node of the given node.
+ # @param the node whichs parent should be returned.
+ # @return the parent node of the given node.
+ #*/
+ sub getParentNode {
+     my ( $this, $node ) = @_;
+     $node -> parentNode;
+     }
+ 
+ #/**
+ # Returns the next sibling of the given node.
+ # @param the node whichs next sibling should be returned.
+ # @return the next sibling of the given node or undef if there is no next 
+ # sibling.
+ #*/
+ sub getNextSibling {
+     my ( $this, $node ) = @_;
+     $node -> nextSibling();
+     }
+ 
+ 
+ #/**
+ # Returns the previous sibling of the given node.
+ # @param the node whichs previous sibling should be returned.
+ # @return the previous sibling or undef if there is no previous sibling.
+ #*/
+ sub getPreviousSibling {
+     my ( $this, $node ) = @_;
+     $node -> previousSibling();
+     }
+ 
+ #/**
+ # Returns a NodeList containing the child nodes of the given node.
+ # @param the node whichs childnodes should be returned
+ # @return a node list
+ #*/
+ sub getChildNodes {
+     my ( $this, $node ) = @_;
+     my @childNodes = $node -> childNodes;
+     \@childNodes;
+     }
+ 
+ #/**
+ # Returns the attributes of the given node as a NodeList.
+ # @param the node 
+ # @return a nodelist containing the attributes of this node.
+ #*/
+ sub getAttributes {
+     my ( $this, $node ) = @_;
+     my @attributes = $node -> attributes;
+     \@attributes;
+     }
+ 
+ #/**
+ # Returns the fully qualified node name of the given node.
+ # @param a node
+ # @return the node name of the given node.
+ #*/
+ sub getNodeName {
+     my ( $this, $node ) = @_;
+     $node -> nodeName;
+     }
+ 
+ #/**
+ # Returns the namespace URI of the given node.
+ # @param a node
+ # @return the namespace uri of the given node
+ #*/
+ sub getNamespaceURI {
+     my ( $this, $node ) = @_;
+     $node -> namespaceURI();
+     }
+ 
+ #/**
+ # Returns the local name of the given node.
+ # @param a node 
+ # @return the local (non-prefixed) name of the node
+ #*/
+ sub getLocalName {
+     my ( $this, $node ) = @_;
+     $node -> localname;
+     }
+ 
+ # ---------------- PI functions --------------------
+ 
+ #/**
+ # Returns the target of a processing instruction.
+ # @param the processing instruction node
+ # @return a string holding the target of the PI
+ #*/
+ sub getPITarget {
+     my ( $this, $node ) = @_;
+     $node -> nodeName;
+     }
+ 
+ #/**
+ # Returns the data of a processing instruction
+ # @param the processing instruction node
+ # @return a string holding the data of the PI
+ #*/
+ sub getPIData {
+     my ( $this , $node ) = @_;
+     $node -> getData();
+     }
+ 
+ # ---------------- Attr functions --------------------
+ 
+ #/**
+ # Returns the node value of the given Attr.
+ # @param an Attr
+ # @return a string holding the value of the node
+ #*/
+ sub getAttrValue {
+     my ( $this, $attr ) = @_;
+     $attr -> getValue();
+     }
+ 
+ #/**
+ # Sets the node value of the given node.
+ # @param a node
+ # @param a string holding the new value of the given node.
+ #*/
+ sub setAttrValue {
+     my ( $this, $attr, $value ) = @_;
+     $attr -> setValue( $value );
+     }
+ 
+ # ---------------- Element functions --------------------
+ 
+ #/**
+ # Returns the value of the given attribute of the given element.
+ # @param an element node
+ # @param the name of the attribute to return
+ # @return a string holding the attribute's value
+ #*/
+ sub getAttribute {
+     my ( $this, $element, $name ) = @_;
+     $element -> getAttribute( $name );
+     }
+ 
+ sub setAttribute {
+     my ( $this, $element, $name, $value ) = @_;
+     $element -> setAttribute( $name, $value );    
+     }
+ 
+ 
+ # ---------------- CDATA functions --------------------
+ 
+ #/**
+ # Returns the data of the given CDATA/Text node.
+ # @param a node
+ # @return a string holding the data of the node.
+ #*/
+ sub getCData {
+     my ( $this, $node ) = @_;
+     $node -> data;
+     }
+ 
+ 
+ #/**
+ # Sets the data of the given CDATA/Text node.
+ # @param a node
+ # @param the new value for the node.
+ #*/
+ sub setCData {
+     my ( $this, $node, $data ) = @_;
+     $node -> setData( $data );
+     }
+ 
+ # ---------------- NodeList functions --------------------
+ 
+ #/**
+ # Returns the length of a nodelist
+ # @param a NodeList
+ # @return the length of a node list
+ #*/
+ sub getLength {
+     my ( $this, $list ) = @_;
+     scalar( @{$list} );
+     }
+ 
+ 
+ #/**
+ # Return the item at the given index from the node list.
+ # @param the list to retrieve the item from.
+ # @param the index of the item (zero-based)
+ # @return a node from the given index
+ #*/
+ sub getItemAt {
+     my ( $this, $list, $index ) = @_;
+     my @theList = @{$list};
+     $theList[$index];
+     }
+ 
+ 
+ 
+ # ---------------- Document Functions --------------------
+ 
+ #/**
+ # Creates a new document.
+ # @param the namespace uri of the document element
+ # @param the fully qualified name of the document element.
+ # @return a document node
+ #*/
+ sub createDocument {
+     my ( $this, $ns, $fqName ) = @_;
+     my $document = XML::LibXML::Document -> createDocument();
+     my $element = $document -> createElementNS( $ns, $fqName );
+     $document -> setDocumentElement( $element );
+     $document;
+     }
+ 
+ 
+ #/**
+ # Returns the document element of the given document.
+ # @param a document node
+ # @return an element node - the document element of the given document.
+ #*/
+ sub getDocumentElement {
+     my ( $this, $document ) = @_;
+     $document -> documentElement();
+     }
+ 
+ 
+ sub setDocumentElement {
+     my ( $this, $document, $element ) = @_;
+     $document -> setDocumentElement( $element );
+     }
+ 
+ #/**
+ # Import the given node into the given document.
+ # @param the document to import the node into
+ # @param the node to import
+ # @param set nonzero to do a deep (recursive) import, zero to do a shallow import
+ # @return the imported node.
+ #*/
+ sub importNode {
+     my ( $this, $document, $node, $deep ) = @_;
+     my $clone = $node -> cloneNode( $deep );
+     return $document -> importNode( $clone );
+     }
+ 
+ #/**
+ # Creates a comment node using the given document.
+ # @param the document to use for node creation
+ # @param the text of the comment to be created
+ # @return the created node
+ #*/
+ sub createComment {
+     my ( $this, $document, $text ) = @_;
+     $document -> createComment( $text );
+     }
  1;

Index: README.html
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DAL/README.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** README.html	29 May 2003 16:00:02 -0000	1.1
--- README.html	31 May 2003 22:39:34 -0000	1.2
***************
*** 5,9 ****
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomä, insOMnia (ko...@in...)
  \---------------------------------------------------------------------/
  
--- 5,9 ----
  | are protected under the terms and conditions of the Artistic License.
  |
! | (C) 2000-2002 by Jan Thomae, insOMnia (ko...@in...)
  \---------------------------------------------------------------------/
  

Index: XMLDOM2DAL.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/XML/DAL/XMLDOM2DAL.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** XMLDOM2DAL.pm	29 May 2003 16:00:02 -0000	1.1
--- XMLDOM2DAL.pm	31 May 2003 22:39:34 -0000	1.2
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # DOM2 and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 30,33 ****
--- 30,391 ----
      return $parser -> parseString( $string );
      }
+ 
+ 
+ sub domToString {
+     my ( $this, $dom ) = @_;
+     my $writer = XML::DOM2::DOMWriter -> new();
+     my $style = XML::DOM2::XMLDOMWriterStyle -> new();
+     $writer -> writeDOMToString( $dom, $style );
+     }
+ 
+ sub supportsXSLT {
+     0;
+     }
+ 
+ sub applyXSLT {
+     undef;
+     }
+ 
+ # ---------------- Node Type Checking --------------------
+ 
+ #/**
+ # Returns nonzero if the given node is an element node.
+ # @param a node
+ #*/
+ sub isElementNode {
+     my ( $this, $node ) = @_;
+     return 1 if ($node -> getNodeType() == $XML::DOM2::Node::ELEMENT_NODE );
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero if the given node is a text node
+ # @param a node
+ #*/
+ sub isTextNode {
+     my ( $this, $node ) = @_;
+     return 1 if ( $node -> getNodeType() == $XML::DOM2::Node::TEXT_NODE );
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero, if the given node is a processing instruction node
+ # @param a node
+ #*/
+ sub isProcessingInstructionNode {
+     my ( $this, $node ) = @_;
+     return 1 if ( $node -> getNodeType() == $XML::DOM2::Node::PROCESSING_INSTRUCTION_NODE );
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero if the given node is a comment node.
+ # @param a node
+ #*/
+ sub isCommentNode {
+     my ( $this, $node ) = @_;
+     return 1 if ( $node -> getNodeType() == $XML::DOM2::Node::COMMENT_NODE );
+     return 0;
+     }
+ 
+ #/**
+ # Returns nonzero if the given node is a document node.
+ # @param a node
+ #*/
+ sub isDocumentNode {
+     my ( $this, $node ) = @_;
+     return 1 if ( $node -> getNodeType() == $XML::DOM2::Node::DOCUMENT_NODE );
+     return 0;
+     }
+ 
+ # ---------------- Node Functions --------------------
+ 
+ #/**
+ # Appends the given child node to the given parent node.
+ # @param the parent node
+ # @param the node to append to the parent node.
+ #*/
+ sub appendChild {
+     my ( $this, $parent, $node ) = @_;
+     $parent -> appendChild( $node );
+     }
+ 
+ #/**
+ # Inserts the given node before the given child node of the given parent node
+ # @param the parent node
+ # @param the reference node 
+ # @param the node to insert
+ #*/
+ sub insertBefore {
+     my ( $this, $parent, $ref, $node ) = @_;
+     $parent -> insertBefore( $node, $ref );
+     }
+ 
+ #/**
+ # Removes the given child node from the given parent node.
+ # @param the node to remove the child from
+ # @param the node to remove from the parent node.
+ # @return the removed node.
+ #*/
+ sub removeChild {
+     my ( $this, $parent, $node ) = @_;
+     $parent -> removeChild( $node );
+     }
+ 
+ #/**
+ # Returns the first child of the given node. 
+ # @param the node whichs first child should be returned.
+ # @return the first child of the given node or undef if the node has no child
+ # nodes.
+ #*/
+ sub getFirstChild {
+     my ( $this, $node ) = @_;
+     $node -> getFirstChild();
+     }
+ 
+ 
+ #/**
+ # Returns the parent node of the given node.
+ # @param the node whichs parent should be returned.
+ # @return the parent node of the given node.
+ #*/
+ sub getParentNode {
+     my ( $this, $node ) = @_;
+     $node -> getParentNode();
+     }
+ 
+ #/**
+ # Returns the next sibling of the given node.
+ # @param the node whichs next sibling should be returned.
+ # @return the next sibling of the given node or undef if there is no next 
+ # sibling.
+ #*/
+ sub getNextSibling {
+     my ( $this, $node ) = @_;
+     $node -> getNextSibling();
+     }
+ 
+ 
+ #/**
+ # Returns the previous sibling of the given node.
+ # @param the node whichs previous sibling should be returned.
+ # @return the previous sibling or undef if there is no previous sibling.
+ #*/
+ sub getPreviousSibling {
+     my ( $this, $node ) = @_;
+     $node -> getPreviousSibling();
+     }
+ 
+ #/**
+ # Returns a NodeList containing the child nodes of the given node.
+ # @param the node whichs childnodes should be returned
+ # @return a node list
+ #*/
+ sub getChildNodes {
+     my ( $this, $node ) = @_;
+     $node -> getChildNodes();
+     }
+ 
+ #/**
+ # Returns the attributes of the given node as a NodeList.
+ # @param the node 
+ # @return a nodelist containing the attributes of this node.
+ #*/
+ sub getAttributes {
+     my ( $this, $node ) = @_;
+     $node -> getAttributes();
+     }
+ 
+ #/**
+ # Returns the fully qualified node name of the given node.
+ # @param a node
+ # @return the node name of the given node.
+ #*/
+ sub getNodeName {
+     my ( $this, $node ) = @_;
+     $node -> getNodeName();
+     }
+ 
+ #/**
+ # Returns the namespace URI of the given node.
+ # @param a node
+ # @return the namespace uri of the given node
+ #*/
+ sub getNamespaceURI {
+     my ( $this, $node ) = @_;
+     $node -> getNamespaceURI();
+     }
+ 
+ #/**
+ # Returns the local name of the given node.
+ # @param a node 
+ # @return the local (non-prefixed) name of the node
+ #*/
+ sub getLocalName {
+     my ( $this, $node ) = @_;
+     $node -> getLocalName();
+     }
+ 
+ # ---------------- PI functions --------------------
+ 
+ #/**
+ # Returns the target of a processing instruction.
+ # @param the processing instruction node
+ # @return a string holding the target of the PI
+ #*/
+ sub getPITarget {
+     my ( $this, $node ) = @_;
+     $node -> getTarget();
+     }
+ 
+ #/**
+ # Returns the data of a processing instruction
+ # @param the processing instruction node
+ # @return a string holding the data of the PI
+ #*/
+ sub getPIData {
+     my ( $this, $node ) = @_;
+     $node -> getData();
+     }
+ 
+ # ---------------- Attr functions --------------------
+ 
+ #/**
+ # Returns the node value of the given Attr.
+ # @param an Attr
+ # @return a string holding the value of the node
+ #*/
+ sub getAttrValue {
+     my ( $this, $node ) = @_;
+     $node -> getValue();
+     }
+ 
+ #/**
+ # Sets the node value of the given node.
+ # @param a node
+ # @param a string holding the new value of the given node.
+ #*/
+ sub setAttrValue {
+     my ( $this, $node, $value ) = @_;
+     $node -> setValue( $value );
+     }
+ 
+ # ---------------- Element functions --------------------
+ 
+ #/**
+ # Returns the value of the given attribute of the given element.
+ # @param an element node
+ # @param the name of the attribute to return
+ # @return a string holding the attribute's value
+ #*/
+ sub getAttribute {
+     my ( $this, $node, $attrname ) = @_;
+     $node -> getAttribute( $attrname ); 
+     }
+ 
+ sub setAttribute {
+     my ( $this, $node, $name, $value ) = @_;
+     $node -> setAttribute( $name, $value );
+     }
+ 
+ 
+ # ---------------- CDATA functions --------------------
+ 
+ #/**
+ # Returns the data of the given CDATA/Text node.
+ # @param a node
+ # @return a string holding the data of the node.
+ #*/
+ sub getCData {
+     my ( $this, $node ) = @_;
+     $node -> getData();
+     }
+ 
+ 
+ #/**
+ # Sets the data of the given CDATA/Text node.
+ # @param a node
+ # @param the new value for the node.
+ #*/
+ sub setCData {
+     my ( $this, $node, $data ) = @_;
+     $node -> setData( $data );
+     }
+ 
+ # ---------------- NodeList functions --------------------
+ 
+ #/**
+ # Returns the length of a nodelist
+ # @param a NodeList
+ # @return the length of a node list
+ #*/
+ sub getLength {
+     my ( $this, $list ) = @_;
+     $list -> getLength();
+     }
+ 
+ 
+ #/**
+ # Return the item at the given index from the node list.
+ # @param the list to retrieve the item from.
+ # @param the index of the item (zero-based)
+ # @return a node from the given index
+ #*/
+ sub getItemAt {
+     my ( $this, $list, $pos ) = @_;
+     $list -> item( $pos );
+     }
+ 
+ 
+ 
+ # ---------------- Document Functions --------------------
+ 
+ #/**
+ # Creates a new document.
+ # @param the namespace uri of the document element
+ # @param the fully qualified name of the document element.
+ # @return a document node
+ #*/
+ sub createDocument {
+     my ( $this, $namespace, $fqname ) = @_;
+     my $di = XML::DOM2::DOMImplementation -> new();
+     $di -> createDocument( $namespace, $fqname );
+     }
+ 
+ 
+ #/**
+ # Returns the document element of the given document.
+ # @param a document node
+ # @return an element node - the document element of the given document.
+ #*/
+ sub getDocumentElement {
+     my ( $this, $document ) = @_;
+     $document -> getDocumentElement();
+     }
+ 
+ 
+ #/**
+ # Import the given node into the given document.
+ # @param the document to import the node into
+ # @param the node to import
+ # @param set nonzero to do a deep (recursive) import, zero to do a shallow import
+ # @return the imported node.
+ #*/
+ sub importNode {
+     my ( $this, $document, $node, $deep ) = @_;
+     $document -> importNode( $node, $deep );
+     }
+ 
+ #/**
+ # Creates a comment node using the given document.
+ # @param the document to use for node creation
+ # @param the text of the comment to be created
+ # @return the created node
+ #*/
+ sub createComment {
+     my ( $this, $document, $text ) = @_;
+     $document -> createComment( $text );
+     }
+ 
  
  1;

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Util ConfigurationParser.pm,1.5,1.6 FileRetriever.pm,1.6,1.7 UIDGenerator.pm,1.3,1.4

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Util
In directory sc8-pr-cvs1:/tmp/cvs-serv4485/NetScript/Util

Modified Files:
	ConfigurationParser.pm FileRetriever.pm UIDGenerator.pm 
Log Message:
* finished XSLT implementation 

Index: ConfigurationParser.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/ConfigurationParser.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ConfigurationParser.pm	7 Jul 2002 14:34:42 -0000	1.5
--- ConfigurationParser.pm	31 May 2003 22:39:33 -0000	1.6
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: FileRetriever.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/FileRetriever.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** FileRetriever.pm	2 Jun 2002 19:31:23 -0000	1.6
--- FileRetriever.pm	31 May 2003 22:39:33 -0000	1.7
***************
*** 11,15 ****
  # 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...
  #--------------------------------------------------------
--- 11,15 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: UIDGenerator.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Util/UIDGenerator.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** UIDGenerator.pm	15 May 2002 18:23:11 -0000	1.3
--- UIDGenerator.pm	31 May 2003 22:39:33 -0000	1.4
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 38,42 ****
  sub createUID {
      my ( $this ) = @_;
!     "$$-$^T-".time()."-".rand();
      }
  
--- 38,42 ----
  sub createUID {
      my ( $this ) = @_;
!     "$$-$^T-".time()."-".rand().rand();
      }
  

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Engine BasicStatement.pm,1.8,1.9 Class.pm,1.6,1.7 ClassWrapper.pm,1.2,1.3 DOMWalker.pm,1.11,1.12 Event.pm,1.7,1.8 EventListener.pm,1.4,1.5 EventRelay.pm,1.8,1.9 Function.pm,1.3,1.4 FunctionWrapper.pm,1.2,1.3 LibLoader.pm,1.2,1.3 Member.pm,1.2,1.3 MemberWrapper.pm,1.3,1.4 State.pm,1.7,1.8 Statement.pm,1.5,1.6 StatementEvaluator.pm,1.12,1.13

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory sc8-pr-cvs1:/tmp/cvs-serv4485/NetScript/Engine

Modified Files:
	BasicStatement.pm Class.pm ClassWrapper.pm DOMWalker.pm 
	Event.pm EventListener.pm EventRelay.pm Function.pm 
	FunctionWrapper.pm LibLoader.pm Member.pm MemberWrapper.pm 
	State.pm Statement.pm StatementEvaluator.pm 
Log Message:
* finished XSLT implementation 

Index: BasicStatement.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/BasicStatement.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** BasicStatement.pm	29 May 2003 16:04:19 -0000	1.8
--- BasicStatement.pm	31 May 2003 22:39:33 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Class.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Class.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Class.pm	11 Jul 2002 22:03:09 -0000	1.6
--- Class.pm	31 May 2003 22:39:33 -0000	1.7
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: ClassWrapper.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/ClassWrapper.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ClassWrapper.pm	7 Aug 2002 20:13:48 -0000	1.2
--- ClassWrapper.pm	31 May 2003 22:39:33 -0000	1.3
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: DOMWalker.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/DOMWalker.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** DOMWalker.pm	29 May 2003 16:04:20 -0000	1.11
--- DOMWalker.pm	31 May 2003 22:39:33 -0000	1.12
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 217,220 ****
--- 217,226 ----
      if ( $this -> dal() -> isElementNode( $clone ) && $isRefNode ) {
          $this -> setCurrentTarget( $clone ) ;
+         
+         if ( $this -> { m_is_firstNode } ) {
+             $this -> dal() -> setDocumentElement( $this -> targetDocument(), 
+                $clone );
+             $this -> { m_is_firstNode } = 0;
+             }
          }
      $clone;
***************
*** 260,263 ****
--- 266,270 ----
      # remove document element
      $this -> dal() -> removeChild( $document, $this -> dal() -> getDocumentElement( $document ) );
+     $this -> { m_is_firstNode } = 1;
      
      $this -> setCurrentTarget( $document );
***************
*** 334,338 ****
      my ( $this ) = @_;
      my $target = $this -> currentTarget();
!     $this -> setCurrentTarget( $this -> dal() -> getParentNode( $target ) );
      }
  
--- 341,349 ----
      my ( $this ) = @_;
      my $target = $this -> currentTarget();
!     my $parent = $this -> dal() -> getParentNode( $target );
!     if ( $parent == undef ) {
!         $this -> { m_root_node } = $target;        
!         }
!     $this -> setCurrentTarget( $parent );
      }
  

Index: Event.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Event.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Event.pm	7 Jul 2002 14:34:31 -0000	1.7
--- Event.pm	31 May 2003 22:39:33 -0000	1.8
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: EventListener.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/EventListener.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** EventListener.pm	2 Jun 2002 19:31:23 -0000	1.4
--- EventListener.pm	31 May 2003 22:39:33 -0000	1.5
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: EventRelay.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/EventRelay.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** EventRelay.pm	2 Jun 2002 19:31:23 -0000	1.8
--- EventRelay.pm	31 May 2003 22:39:33 -0000	1.9
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Function.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Function.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Function.pm	7 Aug 2002 20:13:49 -0000	1.3
--- Function.pm	31 May 2003 22:39:33 -0000	1.4
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: FunctionWrapper.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/FunctionWrapper.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** FunctionWrapper.pm	7 Aug 2002 20:13:49 -0000	1.2
--- FunctionWrapper.pm	31 May 2003 22:39:33 -0000	1.3
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: LibLoader.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/LibLoader.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** LibLoader.pm	7 Jul 2002 14:34:31 -0000	1.2
--- LibLoader.pm	31 May 2003 22:39:33 -0000	1.3
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Member.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Member.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Member.pm	11 Jul 2002 22:03:09 -0000	1.2
--- Member.pm	31 May 2003 22:39:33 -0000	1.3
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: MemberWrapper.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/MemberWrapper.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MemberWrapper.pm	7 Aug 2002 20:13:49 -0000	1.3
--- MemberWrapper.pm	31 May 2003 22:39:33 -0000	1.4
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: State.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/State.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** State.pm	11 Jul 2002 22:03:09 -0000	1.7
--- State.pm	31 May 2003 22:39:33 -0000	1.8
***************
*** 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...
  #--------------------------------------------------------
--- 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 Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: Statement.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/Statement.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Statement.pm	15 May 2002 18:21:37 -0000	1.5
--- Statement.pm	31 May 2003 22:39:33 -0000	1.6
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------

Index: StatementEvaluator.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/StatementEvaluator.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** StatementEvaluator.pm	18 Sep 2002 13:19:14 -0000	1.12
--- StatementEvaluator.pm	31 May 2003 22:39:33 -0000	1.13
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 67,71 ****
          
          # Quite hefty regexp. Does find the innermost pair parentheses which is not quoted.
!         while ( $aString =~ /^(.*[^\\])\(((\\\(|\\\)|[^\(\)])*[^\\\)]?)?\)((\\\(|[^\(])*)$/ ) {
              # Search for the innermost pair of parentheses.
              my $pref = $1;     # save string prefix
--- 67,71 ----
          
          # Quite hefty regexp. Does find the innermost pair parentheses which is not quoted.
!         while ( $aString =~ /^(.*[^\\])\(((\\\(|\\\)|[^\(\)])*[^\\\)]?)?\)((\\\(|[^\(])*)$/sm ) {
              # Search for the innermost pair of parentheses.
              my $pref = $1;     # save string prefix
***************
*** 80,89 ****
             
              # lookup builtin functions ( format is $(name[parameter]) )
!             if ( $param =~ /^(.+) *\[(.*)\]$/ ) {
                  $action = $1;
                  $param = $2;
                  }
  
!             if ( $pref =~ /^(.*?[^\\]?)\$$/ ) {
                  $pref = $1;
  
--- 80,89 ----
             
              # lookup builtin functions ( format is $(name[parameter]) )
!             if ( $param =~ /^(.+) *\[(.*)\]$/sm ) {
                  $action = $1;
                  $param = $2;
                  }
  
!             if ( $pref =~ /^(.*?[^\\]?)\$$/sm ) {
                  $pref = $1;
  

[NetScript CVS] CVS: netscript2/src/perl/NetScript Interpreter.pm,1.16,1.17

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript
In directory sc8-pr-cvs1:/tmp/cvs-serv4485/NetScript

Modified Files:
	Interpreter.pm 
Log Message:
* finished XSLT implementation 

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Interpreter.pm	29 May 2003 16:02:27 -0000	1.16
--- Interpreter.pm	31 May 2003 22:39:32 -0000	1.17
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # NetScript and all related materials, such as documentation,
  # are protected under the terms and conditions of the Artistic License.
! # (C) 2000-2002 by Jan Thomae, insOMnia
  # mailto: ko...@in...
  #--------------------------------------------------------
***************
*** 49,53 ****
  # The current Version of NetScript
  #*/
! $VERSION = '2.01 beta';
  
  #/**
--- 49,53 ----
  # The current Version of NetScript
  #*/
! $VERSION = '2.1';
  
  #/**
***************
*** 223,226 ****
--- 223,227 ----
      $systemWrapper -> setMember( '^scriptURL$', undef, "getScriptURL" );
      $systemWrapper -> setMember( '^nextID$', undef, "getUID" );
+     $systemWrapper -> setMember( '^userAgent$', undef, "getUserAgent" );
  
      # register the SYS-object
***************
*** 232,235 ****
--- 233,237 ----
      # basic init is done - save the global state by putting a new state over it
      $this -> newStateTree();
+     $this -> setContentType( "text/html" );
      return $this;                       # return Object
      }
***************
*** 279,282 ****
--- 281,292 ----
  
  #/**
+ # Returns the User Agent Identification String.
+ #*/
+ sub getUserAgent {
+     my ( $this ) = @_;
+     $this -> getCGI() -> user_agent(); 
+     }
+ 
+ #/**
  # Takes the given relative URL and makes it absolute.
  #*/
***************
*** 371,375 ****
          }
      else {
!         $script = "file:" . $script;
          }
  
--- 381,392 ----
          }
      else {
!         if (  $script =~ /^\// ) {
!             # is absolute
!             $script = "file:".$script;
!             }
!         else {
!             # is relative
!             $script = "file:./" . $script;
!             }
          }
  
***************
*** 416,432 ****
      my $resultDOM = $domwalker -> walkOver( $dom );
     
!     my $domwriter = XML::DOM2::DOMWriter -> new();
!     my $domstyle = XML::DOM2::XMLDOMWriterStyle -> new();
!     my $string = $domwriter -> writeDOMToString( $resultDOM, $domstyle );
      
-     my $cookiesRef = $this -> { m_Cookies };
  
      # check for mod_perl
      if ( $this -> { m_Request } ) {
          $this -> { m_Request } -> send_cgi_header( 
!             $this -> getCGI() -> header( -cookie=>$cookiesRef ) );
          }
      else {
!         print $this -> getCGI() -> header( -cookie=>$cookiesRef );
          }
      print $string;
--- 433,450 ----
      my $resultDOM = $domwalker -> walkOver( $dom );
     
! #    my $domwriter = XML::DOM2::DOMWriter -> new();
! #    my $domstyle = XML::DOM2::XMLDOMWriterStyle -> new();
! #    my $string = $domwriter -> writeDOMToString( $resultDOM, $domstyle );
!     my $domWriter = $this -> getDAL();
!     my $string = $domWriter -> domToString( $resultDOM );
      
  
      # check for mod_perl
      if ( $this -> { m_Request } ) {
          $this -> { m_Request } -> send_cgi_header( 
!             $this -> getHeader() );
          }
      else {
!         print $this -> getHeader();
          }
      print $string;
***************
*** 442,445 ****
--- 460,494 ----
  
  #/**
+ # Allows libraries to set the content type which is reported to the 
+ # browser.
+ #*/
+ sub setContentType {
+     my ( $this, $type ) = @_;
+     $this -> { m_contentType } = $type; 
+     }
+ 
+ #/**
+ # Returns the content type which is reported to the browser.
+ #*/
+ sub getContentType {
+     my ( $this ) = @_;
+     $this -> { m_contentType };
+     }
+ 
+ 
+ #/**
+ # Returns the header for the result page.
+ #*/
+ sub getHeader {
+     my ( $this ) = @_;
+     my $cookiesRef = $this -> { m_Cookies };
+     my $header = $this -> getCGI() -> header( -cookie=>$cookiesRef,
+                 -type => $this -> getContentType() );
+     
+     $header =~ s/; charset[^\n]+//g;  #remove charset stuff
+     $header;
+     }
+ 
+ #/**
  # Returns the http-Parameter from the CGI-Object.
  # @param a string containing the name of the parameter
***************
*** 566,570 ****
      
      if ( $this -> getDOMWalker() ) {
!         my $line = $this -> getDOMWalker() -> currentSource() -> getLine();
          &handle_errors( $event -> eventMessage().
              "\n\nError occured in or around line $line in:\n".$this -> getScriptURL()."\n" );
--- 615,619 ----
      
      if ( $this -> getDOMWalker() ) {
!         my $line = 0; #$this -> getDOMWalker() -> currentSource() -> getLine();
          &handle_errors( $event -> eventMessage().
              "\n\nError occured in or around line $line in:\n".$this -> getScriptURL()."\n" );

[NetScript CVS] CVS: netscript2/src/scripts allfeatures.xml,1.1,NONE

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv7168

Removed Files:
	allfeatures.xml 
Log Message:


--- allfeatures.xml DELETED ---

[NetScript CVS] CVS: netscript2/src/scripts wipeout.project,1.2,1.3

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv2940

Modified Files:
	wipeout.project 
Log Message:


Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/scripts/wipeout.project,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** wipeout.project	18 Sep 2002 13:21:06 -0000	1.2
--- wipeout.project	31 May 2003 10:19:00 -0000	1.3
***************
*** 1,259 ****
  b
! C DmDictionary 0 25f1a 8 
! c 0 260d2 9 
! C Category 1 b250 
! c 0 26106 4 
! C DmString 2 2610d 2 e3 
! c 2 2610c a defaultExe 
! C DmSet 3 2610f 1 
! c 2 b25f 2 e3 
! L b25f 
! c 2 2610e b executables 
! c 3 2610a 3 
! c 2 b266 3 *.C 
! L b266 
! c 2 b269 4 *.cc 
! L b269 
! c 2 b26c 5 *.cpp 
! L b26c 
! c 2 26109 a extensions 
! c 2 26108 a CPP_source 
! c 2 26107 4 name 
! c 2 260d4 a CPP_source 
! c 1 b281 
! c 0 2614c 4 
! c 2 26153 2 e3 
! c 2 26152 a defaultExe 
! c 3 26155 1 
! c 2 b28e 2 e3 
! L b28e 
! c 2 26154 b executables 
! c 3 26150 1 
! c 2 b295 3 *.c 
! L b295 
! c 2 2614f a extensions 
! c 2 2614e 8 C_source 
! c 2 2614d 4 name 
! c 2 260d5 8 C_source 
! c 1 b2aa 
! c 0 26186 4 
! c 2 2618d 2 e3 
! c 2 2618c a defaultExe 
! c 3 2618f 1 
! c 2 b2b7 2 e3 
! L b2b7 
! c 2 2618e b executables 
! c 3 2618a 1 
! c 2 b2be 3 *.e 
! L b2be 
! c 2 26189 a extensions 
! c 2 26188 6 Eiffel 
! c 2 26187 4 name 
! c 2 260d6 6 Eiffel 
! c 1 b2d3 
! c 0 261c0 4 
! c 2 261c7 2 e3 
! c 2 261c6 a defaultExe 
! c 3 261c9 1 
! c 2 b2e0 2 e3 
! L b2e0 
! c 2 261c8 b executables 
! c 3 261c4 4 
! c 2 b2e7 3 *.F 
! L b2e7 
! c 2 b2ea 3 *.f 
! L b2ea 
! c 2 b2ed 5 *.for 
! L b2ed 
! c 2 b2f0 5 *.fpp 
! L b2f0 
! c 2 261c3 a extensions 
! c 2 261c2 7 Fortran 
! c 2 261c1 4 name 
! c 2 260d7 7 Fortran 
! c 1 b305 
! c 0 26206 4 
! c 2 2620d 2 e3 
! c 2 2620c a defaultExe 
! c 3 2620f 1 
! c 2 b312 2 e3 
! L b312 
! c 2 2620e b executables 
! c 3 2620a 2 
! c 2 b319 3 *.H 
! L b319 
! c 2 b31c 3 *.h 
! L b31c 
! c 2 26209 a extensions 
! c 2 26208 6 Header 
! c 2 26207 4 name 
! c 2 260d8 6 Header 
! c 1 b331 
! c 0 26244 4 
! c 2 2624b 9 surfboard 
! c 2 2624a a defaultExe 
! c 3 2624d 2 
! c 2 b33e 2 e3 
! L b33e 
! c 2 b341 9 surfboard 
! L b341 
! c 2 2624c b executables 
! c 3 26248 2 
! c 2 b348 5 *.htm 
! L b348 
! c 2 b34b 6 *.html 
! L b34b 
! c 2 26247 a extensions 
! c 2 26246 4 Html 
! c 2 26245 4 name 
! c 2 260d9 4 Html 
! c 1 b360 
! c 0 26286 4 
! c 2 2628d 2 e3 
! c 2 2628c a defaultExe 
! c 3 2628f 1 
! c 2 b36d 2 e3 
! L b36d 
! c 2 2628e b executables 
! c 3 2628a 1 
! c 2 b374 6 *.java 
! L b374 
! c 2 26289 a extensions 
! c 2 26288 4 Java 
! c 2 26287 4 name 
! c 2 260da 4 Java 
! c 1 b389 
! c 0 262c0 4 
! c 2 262c7 2 e3 
! c 2 262c6 a defaultExe 
! c 3 262c9 1 
! c 2 b396 2 e3 
! L b396 
! c 2 262c8 b executables 
! c 3 262c4 1 
! c 2 b39d 5 *.tex 
! L b39d 
! c 2 262c3 a extensions 
! c 2 262c2 5 Latex 
! c 2 262c1 4 name 
! c 2 260db 5 Latex 
! c 1 b3b2 
! c 0 262fa 4 
! c 2 26301 2 e3 
! c 2 26300 a defaultExe 
! c 3 26303 1 
! c 2 b3bf 2 e3 
! L b3bf 
! c 2 26302 b executables 
! c 3 262fe 0 
! c 2 262fd a extensions 
! c 2 262fc 5 Other 
! c 2 262fb 4 name 
! c 2 260dc 5 Other 
! c 2 260d1 a categories 
! c 0 260de 1 
! C ProjectDir 4 b3dc 
! c 2 b3dd 17 netscript2/src/scripts/ 11 81 
! c 2 b3de 0  0 
! c 2 260e0 17 netscript2/src/scripts/ 
! c 2 260dd b directories 
! C DmBag 5 25f26 8 
! c 2 25f5c d7 b
! C DmDictionary 0 25f28 3 
! C DmString 1 25f3a 36 b
! C DmSet 0 b41e 1 
! C DmString 1 b44c 5 Other 
! L b44c  
! c 1 25f39 a categories 
! c 1 25f2a 8 core.xml 
! c 1 25f29 4 name 
! C DmInteger 2 25f3c 1 
! c 1 25f3b 9 substMode  
! c 2 25f91 db b
! C DmDictionary 0 25f5d 3 
! C DmString 1 25f6f 36 b
! C DmSet 0 b45d 1 
! C DmString 1 b48b 5 Other 
! L b48b  
! c 1 25f6e a categories 
! c 1 25f5f c database.xml 
! c 1 25f5e 4 name 
! C DmInteger 2 25f71 1 
! c 1 25f70 9 substMode  
! c 2 25fc6 d8 b
! C DmDictionary 0 25f92 3 
! C DmString 1 25fa4 36 b
! C DmSet 0 b49c 1 
! C DmString 1 b4ca 5 Other 
! L b4ca  
! c 1 25fa3 a categories 
! c 1 25f94 9 files.xml 
! c 1 25f93 4 name 
! C DmInteger 2 25fa6 1 
! c 1 25fa5 9 substMode  
! c 2 25ffb d8 b
! C DmDictionary 0 25fc7 3 
! C DmString 1 25fd9 36 b
! C DmSet 0 b4db 1 
! C DmString 1 b509 5 Other 
! L b509  
! c 1 25fd8 a categories 
! c 1 25fc9 9 forms.xml 
! c 1 25fc8 4 name 
! C DmInteger 2 25fdb 1 
! c 1 25fda 9 substMode  
! c 2 26030 de b
! C DmDictionary 0 25ffc 3 
! C DmString 1 2600e 36 b
! C DmSet 0 b51a 1 
! C DmString 1 b548 5 Other 
! L b548  
! c 1 2600d a categories 
! c 1 25ffe f rimport_src.xml 
! c 1 25ffd 4 name 
! C DmInteger 2 26010 1 
! c 1 2600f 9 substMode  
! c 2 26065 de b
! C DmDictionary 0 26031 3 
! C DmString 1 26043 36 b
! C DmSet 0 b559 1 
! C DmString 1 b587 5 Other 
! L b587  
! c 1 26042 a categories 
! c 1 26033 f rimport_trg.xml 
! c 1 26032 4 name 
! C DmInteger 2 26045 1 
! c 1 26044 9 substMode  
! c 2 2609a da b
! C DmDictionary 0 26066 3 
! C DmString 1 26078 36 b
! C DmSet 0 b598 1 
! C DmString 1 b5c6 5 Other 
! L b5c6  
! c 1 26077 a categories 
! c 1 26068 b strings.xml 
! c 1 26067 4 name 
! C DmInteger 2 2607a 1 
! c 1 26079 9 substMode  
! c 2 260cf dc b
! C DmDictionary 0 2609b 3 
! C DmString 1 260ad 39 b
! C DmSet 0 25db5 1 
! C DmString 1 25f0f 5 Other 
! L 25f0f  
! c 1 260ac a categories 
! c 1 2609d a upload.xml 
! c 1 2609c 4 name 
! C DmInteger 2 260af 1 
! c 1 260ae 9 substMode  
! c 2 260d0 5 files 
! c 2 25f22 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 25f21 6 launch 
! c 2 25f1e 4 make 
! c 2 25f1d 4 make 
! c 2 25f20 0  
! c 2 25f1f 8 makeFile 
! c 5 25f23 0 
! c 2 25f25 7 modules 
! c 2 25f1c 7 scripts 
! c 2 25f1b 4 name 
--- 1,270 ----
  b
! C DmDictionary 0 1af70 8 
! c 0 1b15d 9 
! C Category 1 c2c3 
! c 0 1b191 4 
! C DmString 2 1b198 2 e3 
! c 2 1b197 a defaultExe 
! C DmSet 3 1b19a 1 
! c 2 c2d2 2 e3 
! L c2d2 
! c 2 1b199 b executables 
! c 3 1b195 3 
! c 2 c2d9 3 *.C 
! L c2d9 
! c 2 c2dc 4 *.cc 
! L c2dc 
! c 2 c2df 5 *.cpp 
! L c2df 
! c 2 1b194 a extensions 
! c 2 1b193 a CPP_source 
! c 2 1b192 4 name 
! c 2 1b15f a CPP_source 
! c 1 c2f4 
! c 0 1b1d7 4 
! c 2 1b1de 2 e3 
! c 2 1b1dd a defaultExe 
! c 3 1b1e0 1 
! c 2 c301 2 e3 
! L c301 
! c 2 1b1df b executables 
! c 3 1b1db 1 
! c 2 c308 3 *.c 
! L c308 
! c 2 1b1da a extensions 
! c 2 1b1d9 8 C_source 
! c 2 1b1d8 4 name 
! c 2 1b160 8 C_source 
! c 1 c31d 
! c 0 1b211 4 
! c 2 1b218 2 e3 
! c 2 1b217 a defaultExe 
! c 3 1b21a 1 
! c 2 c32a 2 e3 
! L c32a 
! c 2 1b219 b executables 
! c 3 1b215 1 
! c 2 c331 3 *.e 
! L c331 
! c 2 1b214 a extensions 
! c 2 1b213 6 Eiffel 
! c 2 1b212 4 name 
! c 2 1b161 6 Eiffel 
! c 1 c346 
! c 0 1b24b 4 
! c 2 1b252 2 e3 
! c 2 1b251 a defaultExe 
! c 3 1b254 1 
! c 2 c353 2 e3 
! L c353 
! c 2 1b253 b executables 
! c 3 1b24f 4 
! c 2 c35a 3 *.F 
! L c35a 
! c 2 c35d 3 *.f 
! L c35d 
! c 2 c360 5 *.for 
! L c360 
! c 2 c363 5 *.fpp 
! L c363 
! c 2 1b24e a extensions 
! c 2 1b24d 7 Fortran 
! c 2 1b24c 4 name 
! c 2 1b162 7 Fortran 
! c 1 c378 
! c 0 1b291 4 
! c 2 1b298 2 e3 
! c 2 1b297 a defaultExe 
! c 3 1b29a 1 
! c 2 c385 2 e3 
! L c385 
! c 2 1b299 b executables 
! c 3 1b295 2 
! c 2 c38c 3 *.H 
! L c38c 
! c 2 c38f 3 *.h 
! L c38f 
! c 2 1b294 a extensions 
! c 2 1b293 6 Header 
! c 2 1b292 4 name 
! c 2 1b163 6 Header 
! c 1 c3a4 
! c 0 1b2cf 4 
! c 2 1b2d6 9 surfboard 
! c 2 1b2d5 a defaultExe 
! c 3 1b2d8 2 
! c 2 c3b1 2 e3 
! L c3b1 
! c 2 c3b4 9 surfboard 
! L c3b4 
! c 2 1b2d7 b executables 
! c 3 1b2d3 2 
! c 2 c3bb 5 *.htm 
! L c3bb 
! c 2 c3be 6 *.html 
! L c3be 
! c 2 1b2d2 a extensions 
! c 2 1b2d1 4 Html 
! c 2 1b2d0 4 name 
! c 2 1b164 4 Html 
! c 1 c3d3 
! c 0 1b311 4 
! c 2 1b318 2 e3 
! c 2 1b317 a defaultExe 
! c 3 1b31a 1 
! c 2 c3e0 2 e3 
! L c3e0 
! c 2 1b319 b executables 
! c 3 1b315 1 
! c 2 c3e7 6 *.java 
! L c3e7 
! c 2 1b314 a extensions 
! c 2 1b313 4 Java 
! c 2 1b312 4 name 
! c 2 1b165 4 Java 
! c 1 c3fc 
! c 0 1b34b 4 
! c 2 1b352 2 e3 
! c 2 1b351 a defaultExe 
! c 3 1b354 1 
! c 2 c409 2 e3 
! L c409 
! c 2 1b353 b executables 
! c 3 1b34f 1 
! c 2 c410 5 *.tex 
! L c410 
! c 2 1b34e a extensions 
! c 2 1b34d 5 Latex 
! c 2 1b34c 4 name 
! c 2 1b166 5 Latex 
! c 1 c425 
! c 0 1b385 4 
! c 2 1b38c 2 e3 
! c 2 1b38b a defaultExe 
! c 3 1b38e 1 
! c 2 c432 2 e3 
! L c432 
! c 2 1b38d b executables 
! c 3 1b389 0 
! c 2 1b388 a extensions 
! c 2 1b387 5 Other 
! c 2 1b386 4 name 
! c 2 1b167 5 Other 
! c 2 1b15c a categories 
! c 0 1b169 1 
! C ProjectDir 4 c44f 
! c 2 c450 17 netscript2/src/scripts/ 11 81 
! c 2 c451 0  0 
! c 2 1b16b 17 netscript2/src/scripts/ 
! c 2 1b168 b directories 
! C DmBag 5 1af7c 9 
! c 2 1afb2 e1 b
! C DmDictionary 0 1af7e 3 
! C DmString 1 1af90 39 b
! C DmSet 0 1ae0b 1 
! C DmString 1 1af65 5 Other 
! L 1af65  
! c 1 1af8f a categories 
! c 1 1af80 f allfeatures.xml 
! c 1 1af7f 4 name 
! C DmInteger 2 1af92 1 
! c 1 1af91 9 substMode  
! c 2 1afe7 d7 b
! C DmDictionary 0 1afb3 3 
! C DmString 1 1afc5 36 b
! C DmSet 0 c493 1 
! C DmString 1 c4c1 5 Other 
! L c4c1  
! c 1 1afc4 a categories 
! c 1 1afb5 8 core.xml 
! c 1 1afb4 4 name 
! C DmInteger 2 1afc7 1 
! c 1 1afc6 9 substMode  
! c 2 1b01c db b
! C DmDictionary 0 1afe8 3 
! C DmString 1 1affa 36 b
! C DmSet 0 c4d2 1 
! C DmString 1 c500 5 Other 
! L c500  
! c 1 1aff9 a categories 
! c 1 1afea c database.xml 
! c 1 1afe9 4 name 
! C DmInteger 2 1affc 1 
! c 1 1affb 9 substMode  
! c 2 1b051 d8 b
! C DmDictionary 0 1b01d 3 
! C DmString 1 1b02f 36 b
! C DmSet 0 c511 1 
! C DmString 1 c53f 5 Other 
! L c53f  
! c 1 1b02e a categories 
! c 1 1b01f 9 files.xml 
! c 1 1b01e 4 name 
! C DmInteger 2 1b031 1 
! c 1 1b030 9 substMode  
! c 2 1b086 d8 b
! C DmDictionary 0 1b052 3 
! C DmString 1 1b064 36 b
! C DmSet 0 c550 1 
! C DmString 1 c57e 5 Other 
! L c57e  
! c 1 1b063 a categories 
! c 1 1b054 9 forms.xml 
! c 1 1b053 4 name 
! C DmInteger 2 1b066 1 
! c 1 1b065 9 substMode  
! c 2 1b0bb de b
! C DmDictionary 0 1b087 3 
! C DmString 1 1b099 36 b
! C DmSet 0 c58f 1 
! C DmString 1 c5bd 5 Other 
! L c5bd  
! c 1 1b098 a categories 
! c 1 1b089 f rimport_src.xml 
! c 1 1b088 4 name 
! C DmInteger 2 1b09b 1 
! c 1 1b09a 9 substMode  
! c 2 1b0f0 de b
! C DmDictionary 0 1b0bc 3 
! C DmString 1 1b0ce 36 b
! C DmSet 0 c5ce 1 
! C DmString 1 c5fc 5 Other 
! L c5fc  
! c 1 1b0cd a categories 
! c 1 1b0be f rimport_trg.xml 
! c 1 1b0bd 4 name 
! C DmInteger 2 1b0d0 1 
! c 1 1b0cf 9 substMode  
! c 2 1b125 da b
! C DmDictionary 0 1b0f1 3 
! C DmString 1 1b103 36 b
! C DmSet 0 c60d 1 
! C DmString 1 c63b 5 Other 
! L c63b  
! c 1 1b102 a categories 
! c 1 1b0f3 b strings.xml 
! c 1 1b0f2 4 name 
! C DmInteger 2 1b105 1 
! c 1 1b104 9 substMode  
! c 2 1b15a d9 b
! C DmDictionary 0 1b126 3 
! C DmString 1 1b138 36 b
! C DmSet 0 c64c 1 
! C DmString 1 c67a 5 Other 
! L c67a  
! c 1 1b137 a categories 
! c 1 1b128 a upload.xml 
! c 1 1b127 4 name 
! C DmInteger 2 1b13a 1 
! c 1 1b139 9 substMode  
! c 2 1b15b 5 files 
! c 2 1af78 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 1af77 6 launch 
! c 2 1af74 4 make 
! c 2 1af73 4 make 
! c 2 1af76 0  
! c 2 1af75 8 makeFile 
! c 5 1af79 0 
! c 2 1af7b 7 modules 
! c 2 1af72 7 scripts 
! c 2 1af71 4 name 

[NetScript CVS] CVS: netscript2/src/scripts allfeatures.xml,NONE,1.1

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv6624

Added Files:
	allfeatures.xml 
Log Message:


--- NEW FILE: allfeatures.xml ---
<?xml version="1.0"?>
<!-- This Script tests all main features of the implementation of NetScript -->

<html xmlns:ns="http://netscript.insomnia-hq.de">
    <head>
        <title>NetScript - All features Test</title>
    </head>
    <body>
        <h1>NetScript - All features Test</h1>
        Lets test some builtin functions:
        5 + 5 = $(eval[5+5]) <br/>
        Interpreter is at: $(SYS.interpreterURL) <br/>
        This Script is at: $(SYS.scriptURL)<br/>
        url[../../test.xml] is $(url[../../test.xml]) <br/>

        <ns:var name="x" val="5"/>
        I created a variable named x. Its value is $(x). <br />
        <ns:for name="i" from="1" to="$(x)" step="1">
            This should stand here for $(x) times.<br />
        </ns:for>    
        <hr />
        Now i'm defining a class.<br />

        <ns:class name="Car">
            <ns:member name="color"/>
            <ns:member name="wheels"/>
            
            <ns:method name="INIT">
                <ns:var var="this.color" val="blue"/>
                <ns:var var="this.wheels" val="4"/>
            </ns:method>
            
            <ns:method name="oneLessWheel">
                <ns:var var="this.wheels" val="$(eval[$(this.wheels)-1])"/>
            </ns:method>
            
            <ns:method name="getWheels" byRef="wheels">
                <ns:var var="wheels" val="$(this.wheels)"/>
            </ns:method>
            
            <ns:method name="setColor" byVal="color">
                <ns:var var="this.color" val="$(color)"/>
            </ns:method>
            
            <ns:method name="getColor" byRef="color">
                <ns:var var="color" val="$(this.color)"/>
            </ns:method>
            
            <ns:method name="printXTimes" byVal="times">
                <ns:for name="x" from="1" to="$(times)" step="1">
                    <ns:invoke var="this" method="printYourself"/> <br/>
                </ns:for>
            </ns:method>    

            <ns:method name="printXTimesRecursive" byVal="times">
                <ns:invoke var="this" method="printYourself"/> <br />
                <ns:if test="$(times) &gt; 1">
                    <ns:invoke var="this" method="printXTimesRecursive" times="$(eval[$(times)-1])"/>
                </ns:if>
            </ns:method>
            
            <ns:method name="printYourself">
                I am a $(this.color) car on $(this.wheels) wheels!
            </ns:method>            
        </ns:class>
        
        The class is defined so i can create an object of it.<br />
        <ns:new name="aCar" class="Car"/>
        In the Ctor the cars color is set to blue. lets check this: <br />
        <ns:invoke var="aCar" method="printYourself"/> <br />
        I'm setting the color of the car to red. <br />
        <ns:invoke var="aCar" method="setColor" color="red"/>
        <ns:invoke var="aCar" method="printYourself"/> <br />
        Now let's check call by reference. Im creating a variable y.
        <ns:var name="y" val="green"/> Its value is $(y).<br />
        Now i invoke getColor on our car. <br />
        <ns:invoke var="aCar" method="getColor" color="y"/>
        y is now $(y). <br />
        Now a quiet heavy test. A for loop in a method, which is calling another method.
        We print the car 5 times.<br />
        <ns:invoke var="aCar" method="printXTimes" times="5"/><br/>
        
        Now lets do the same with a recursive implementation. <br />
        <ns:invoke var="aCar" method="printXTimesRecursive" times="5"/> <br />
        
        Now we remove two wheels off the car.<br/>
        <ns:var name="carswheels" val="0"/>
        <ns:invoke var="aCar" method="getWheels" wheels="carswheels"/>
        <ns:while test="$(carswheels) &gt; 2">    
            <ns:invoke var="aCar" method="oneLessWheel"/>
            <ns:invoke var="aCar" method="getWheels" wheels="carswheels"/>
            <ns:invoke var="aCar" method="printYourself"/><br/>
        </ns:while>
        
        That's it. We are finished.
    </body>
</html>            
       

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries Library.pm,1.8,1.9 DebugLibrary.pm,1.7,1.8 FilesLibrary.pm,1.1,1.2

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries
In directory sc8-pr-cvs1:/tmp/cvs-serv5578/src/perl/NetScript/Libraries

Modified Files:
	Library.pm DebugLibrary.pm FilesLibrary.pm 
Log Message:
* continued with DAL

Index: Library.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/Library.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Library.pm	29 May 2003 16:04:30 -0000	1.8
--- Library.pm	29 May 2003 20:09:43 -0000	1.9
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # 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...
  #--------------------------------------------------------
***************
*** 112,115 ****
--- 112,116 ----
  # Returns an instance of <code>NetScript::Interpreter</code>
  # @public
+ # @final
  #*/
  sub interpreter {
***************
*** 120,123 ****
--- 121,125 ----
  #/**
  # Returns the currently used DAL.
+ # @final
  #*/
  sub dal {

Index: DebugLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DebugLibrary.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** DebugLibrary.pm	21 Aug 2002 10:35:03 -0000	1.7
--- DebugLibrary.pm	29 May 2003 20:09:44 -0000	1.8
***************
*** 5,9 ****
  # 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...
  #--------------------------------------------------------
--- 5,9 ----
  # 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...
  #--------------------------------------------------------
***************
*** 76,80 ****
          my $domWalker = $event -> getEventUnknown();
          my $document = $domWalker -> sourceDocument();
!         my $comment = $document -> createComment( 
                  "\nDebug Messages:\n-----------------\n".$this -> debugMessage() );
          $domWalker -> insertIntoTarget( $comment );
--- 76,80 ----
          my $domWalker = $event -> getEventUnknown();
          my $document = $domWalker -> sourceDocument();
!         my $comment = $this -> dal() -> createComment( $document,
                  "\nDebug Messages:\n-----------------\n".$this -> debugMessage() );
          $domWalker -> insertIntoTarget( $comment );

Index: FilesLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/FilesLibrary.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FilesLibrary.pm	21 Aug 2002 10:35:46 -0000	1.1
--- FilesLibrary.pm	29 May 2003 20:09:44 -0000	1.2
***************
*** 4,8 ****
  # 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...
  #--------------------------------------------------------
--- 4,8 ----
  # 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...
  #--------------------------------------------------------
***************
*** 144,148 ****
      my ( $this, $node ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $handleName = $node -> getAttribute( "handle" );
      $handleName = $se -> evaluateStatement( $handleName );
      if ( $handleName eq "" ) {
--- 144,148 ----
      my ( $this, $node ) = @_;
      my $se = $this -> interpreter() -> getStatementEvaluator();
!     my $handleName = $this -> dal() -> getAttribute( $node, "handle" );
      $handleName = $se -> evaluateStatement( $handleName );
      if ( $handleName eq "" ) {
***************
*** 164,170 ****
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $mode = $node -> getAttribute( "mode" );
!     my $locking = $node -> getAttribute( "lock" );
!     my $filename = $node -> getAttribute( "filename" );
      
      $mode = $se -> evaluateStatement( $mode );
--- 164,170 ----
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $mode = $this -> dal() -> getAttribute( $node, "mode" );
!     my $locking = $this -> dal() -> getAttribute( $node, "lock" );
!     my $filename = $this -> dal() -> getAttribute( $node, "filename" );
      
      $mode = $se -> evaluateStatement( $mode );
***************
*** 249,253 ****
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $variable = $node -> getAttribute( "var" );
      
      if ( $variable eq "" ) {
--- 249,253 ----
      my $se = $this -> interpreter() -> getStatementEvaluator();
      my $handle = $this -> getFileHandle( $node );
!     my $variable = $this -> dal() -> getAttribute( $node, "var" );
      
      if ( $variable eq "" ) {
***************
*** 279,283 ****
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $length = $se -> evaluateStatement( $node -> getAttribute( "bytes" ) );
  
      unless( $length =~ /^[0-9]+$/ ) {
--- 279,284 ----
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $length = $se -> evaluateStatement( 
!            $this -> dal() -> getAttribute( $node, "bytes" ) );
  
      unless( $length =~ /^[0-9]+$/ ) {
***************
*** 318,323 ****
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $count = $se -> evaluateStatement( $node -> getAttribute( "lines" ) );
!     my $index = $se -> evaluateStatement( $node -> getAttribute( "from" ) );
      my $fileHandle = $this -> { m_openFiles } -> { $handle };
      if ( ! defined( $fileHandle ) ) {
--- 319,324 ----
      my $handle = $this -> getFileHandle( $node );
      my ($create, $variable) = $this -> getVariableInfo( $node );
!     my $count = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "lines" ) );
!     my $index = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "from" ) );
      my $fileHandle = $this -> { m_openFiles } -> { $handle };
      if ( ! defined( $fileHandle ) ) {

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Libraries ClassLibrary.pm,1.4,1.5 ControlStructuresLibrary.pm,1.14,1.15 DatabaseLibrary.pm,1.4,1.5 DateLibrary.pm,1.1,1.2 Library.pm,1.7,1.8

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries
In directory sc8-pr-cvs1:/tmp/cvs-serv28899

Modified Files:
	ClassLibrary.pm ControlStructuresLibrary.pm DatabaseLibrary.pm 
	DateLibrary.pm Library.pm 
Log Message:
* implemented DAL

Index: ClassLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/ClassLibrary.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ClassLibrary.pm	27 Oct 2002 11:07:35 -0000	1.4
--- ClassLibrary.pm	29 May 2003 16:04:26 -0000	1.5
***************
*** 125,130 ****
      
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $node -> getLocalName();
          if ($localName eq "class") {
              $this -> processClass( $domWalker, $node );
--- 125,130 ----
      
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $this -> dal() -> getLocalName( $node );
          if ($localName eq "class") {
              $this -> processClass( $domWalker, $node );
***************
*** 155,161 ****
  sub newInstance {
      my ( $this, $domWalker, $node ) = @_;
!     my $var = $node -> getAttribute( "var" );
!     my $name = $node -> getAttribute( "name" );
!     my $class = $node -> getAttribute( "class" );
  
      my $se = $this -> interpreter() -> getStatementEvaluator();
--- 155,161 ----
  sub newInstance {
      my ( $this, $domWalker, $node ) = @_;
!     my $var = $this -> dal() -> getAttribute( $node, "var" );
!     my $name = $this -> dal() -> getAttribute( $node, "name" );
!     my $class = $this -> dal() -> getAttribute( $node, "class" );
  
      my $se = $this -> interpreter() -> getStatementEvaluator();
***************
*** 220,224 ****
  sub invokeMethod {
      my ( $this, $domWalker, $node ) = @_;
!     my $objectName = $node -> getAttribute( "var" );
      my $classObject = $this -> interpreter() -> getStatementEvaluator() -> 
              resolveObjectValue( $objectName );
--- 220,224 ----
  sub invokeMethod {
      my ( $this, $domWalker, $node ) = @_;
!     my $objectName = $this -> dal() -> getAttribute( $node, "var" );
      my $classObject = $this -> interpreter() -> getStatementEvaluator() -> 
              resolveObjectValue( $objectName );
***************
*** 231,235 ****
          }
      
!     my $methodName = $node -> getAttribute( "method" );           
      my $methodObject = $classObject -> getFunction( $methodName );
      unless( UNIVERSAL::isa( $methodObject, "NetScript::Engine::Function" ) ||
--- 231,235 ----
          }
      
!     my $methodName = $this -> dal() -> getAttribute( $node, "method" );           
      my $methodObject = $classObject -> getFunction( $methodName );
      unless( UNIVERSAL::isa( $methodObject, "NetScript::Engine::Function" ) ||
***************
*** 260,264 ****
          for ( @params  ) {
              my $paramName = $_;
!             my $paramValue = $node -> getAttribute( $paramName );
              $paramValue = $se -> evaluateStatement( $paramValue );
              $valParams{ $paramName } = $paramValue;
--- 260,264 ----
          for ( @params  ) {
              my $paramName = $_;
!             my $paramValue = $this -> dal() -> getAttribute( $node, $paramName );
              $paramValue = $se -> evaluateStatement( $paramValue );
              $valParams{ $paramName } = $paramValue;
***************
*** 275,279 ****
          for ( @paramsByVal  ) {
              my $paramName = $_;
!             my $paramValue = $node -> getAttribute( $paramName );
              $paramValue = $se -> evaluateStatement( $paramValue );
              $valParams{ $paramName } = $paramValue;
--- 275,279 ----
          for ( @paramsByVal  ) {
              my $paramName = $_;
!             my $paramValue = $this -> dal() -> getAttribute( $node, $paramName );
              $paramValue = $se -> evaluateStatement( $paramValue );
              $valParams{ $paramName } = $paramValue;
***************
*** 283,287 ****
          for ( @paramsByRef ) {
              my $paramName = $_;
!             my $paramValue = $node -> getAttribute( $paramName );
              $paramValue = $se -> evaluateStatement( $paramValue );
              my $memberObject = $se -> resolveObject( $paramValue );
--- 283,287 ----
          for ( @paramsByRef ) {
              my $paramName = $_;
!             my $paramValue = $this -> dal() -> getAttribute( $node, $paramName );
              $paramValue = $se -> evaluateStatement( $paramValue );
              my $memberObject = $se -> resolveObject( $paramValue );
***************
*** 337,368 ****
      my ( $this, $domWalker, $node ) = @_;
      my $classObject = NetScript::Engine::Class -> new();
!     my $className = $node -> getAttribute( "name" );
      $classObject -> setName( $className );
      $this -> { m_knownClasses } -> { $className } = $classObject;
      
      # parse the subtree looking for methods and members
!     my $children = $node -> getChildNodes();
!     my $length = $children -> getLength() - 1;
      for ( 0..$length ) {
!         my $child = $children -> item( $_ );
!         if ( $child -> getNodeType() == $XML::DOM2::Node::ELEMENT_NODE ) {
!             if ( $child -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!                 if ( $child -> getLocalName() eq "member" ) {
                      my $memberObject = NetScript::Engine::Member -> new();
!                     my $name = $child -> getAttribute( "name" );
                      $memberObject -> setName( $name );
                      $classObject -> setMember( $memberObject );
                      }
!                 elsif ( $child -> getLocalName() eq "method" ) {
                      my $functionObject = NetScript::Engine::Function -> new();
!                     my $byValParameters = $child -> getAttribute( "byVal" );
                      my @valParams = split( /[\s,]+/, $byValParameters );
                      $functionObject -> setValueParameters( @valParams );
                      
!                     my $byReferenceParameters = $child -> getAttribute( "byRef" );
                      my @refParams = split( /[\s,]+/, $byReferenceParameters );
                      $functionObject -> setReferenceParameters( @refParams );
                      
!                     my $name = $child -> getAttribute( "name" );
                      $functionObject -> setName( $name );
                      $functionObject -> setCode( $child );
--- 337,369 ----
      my ( $this, $domWalker, $node ) = @_;
      my $classObject = NetScript::Engine::Class -> new();
!     my $className = $this -> dal() -> getAttribute( $node, "name" );
      $classObject -> setName( $className );
      $this -> { m_knownClasses } -> { $className } = $classObject;
      
      # parse the subtree looking for methods and members
!     my $children = $this -> dal() -> getChildNodes( $node );
!     my $length = $this -> dal() -> getLength( $children ) - 1;
      for ( 0..$length ) {
!         my $child = $this -> dal() -> getItemAt( $children,  $_ );
!         if ( $this -> dal() -> isElementNode( $child ) ) {
!             if ( $this -> dal() -> getNamespaceURI( $child ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!                 my $localname = $this -> dal() -> getLocalName( $child );
!                 if ( $localname eq "member" ) {
                      my $memberObject = NetScript::Engine::Member -> new();
!                     my $name = $this -> dal() -> getAttribute( $child, "name" );
                      $memberObject -> setName( $name );
                      $classObject -> setMember( $memberObject );
                      }
!                 elsif( $localname eq "method" ) {
                      my $functionObject = NetScript::Engine::Function -> new();
!                     my $byValParameters = $this -> dal() -> getAttribute( $child, "byVal" );
                      my @valParams = split( /[\s,]+/, $byValParameters );
                      $functionObject -> setValueParameters( @valParams );
                      
!                     my $byReferenceParameters = $this -> dal() -> getAttribute( $child, "byRef" );
                      my @refParams = split( /[\s,]+/, $byReferenceParameters );
                      $functionObject -> setReferenceParameters( @refParams );
                      
!                     my $name = $this -> dal() -> getAttribute( $child, "name" );
                      $functionObject -> setName( $name );
                      $functionObject -> setCode( $child );
***************
*** 383,388 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $node -> getLocalName();
          if ($localName eq "class") {
              return 0; # consume event
--- 384,389 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $this -> dal() -> getLocalName( $node );
          if ($localName eq "class") {
              return 0; # consume event

Index: ControlStructuresLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/ControlStructuresLibrary.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ControlStructuresLibrary.pm	29 Oct 2002 10:31:44 -0000	1.14
--- ControlStructuresLibrary.pm	29 May 2003 16:04:27 -0000	1.15
***************
*** 180,185 ****
      my $node = $domWalker -> currentSource();
  
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $node -> getLocalName();
          if ( $localName eq "if") {
              $this -> ifStart( $domWalker, $node );
--- 180,185 ----
      my $node = $domWalker -> currentSource();
  
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $this -> dal() -> getLocalName( $node );
          if ( $localName eq "if") {
              $this -> ifStart( $domWalker, $node );
***************
*** 219,223 ****
  sub doFail {
      my ( $this, $domWalker, $node ) = @_;
!     my $msg = $node -> getAttribute( "message" );
      $msg = $this -> interpreter() -> getStatementEvaluator() -> 
              evaluateStatement( $msg );
--- 219,223 ----
  sub doFail {
      my ( $this, $domWalker, $node ) = @_;
!     my $msg = $this -> dal() -> getAttribute( $node, "message" );
      $msg = $this -> interpreter() -> getStatementEvaluator() -> 
              evaluateStatement( $msg );
***************
*** 235,239 ****
  sub checkNodeTest {
      my ($this, $node) = @_;
!     my $test = $node -> getAttribute("test");
      # replace variables
      my $se = $this -> interpreter() -> getStatementEvaluator();
--- 235,239 ----
  sub checkNodeTest {
      my ($this, $node) = @_;
!     my $test = $this -> dal() -> getAttribute( $node, "test");
      # replace variables
      my $se = $this -> interpreter() -> getStatementEvaluator();
***************
*** 273,287 ****
      my ( $this, $domWalker, $node ) = @_;
      # find the belonging IF-Node
!     my $ifNode = $node -> getPreviousSibling();
  
      # skip text nodes
!     while ( $ifNode && $ifNode -> getNodeType() == $XML::DOM2::Node::TEXT_NODE ) {
!         $ifNode = $ifNode -> getPreviousSibling();
          }
  
      if ( $ifNode && 
!             $ifNode -> getNamespaceURI() eq 
              $NetScript::Interpreter::NAMESPACE_URI &&
!             $ifNode -> getLocalName() eq "if") {
          
          # check condition
--- 273,287 ----
      my ( $this, $domWalker, $node ) = @_;
      # find the belonging IF-Node
!     my $ifNode = $this -> dal() -> getPreviousSibling( $node );
  
      # skip text nodes
!     while ( $ifNode && $this -> dal() -> isTextNode( $ifNode ) ) {
!         $ifNode = $this -> dal() -> getPreviousSibling( $ifNode );
          }
  
      if ( $ifNode && 
!             $this -> dal() -> getNamespaceURI( $ifNode ) eq 
              $NetScript::Interpreter::NAMESPACE_URI &&
!             $this -> dal() -> getLocalName( $ifNode ) eq "if") {
          
          # check condition
***************
*** 352,360 ****
      
  
!     my $from = $node -> getAttribute( "from" );
!     my $to = $node -> getAttribute( "to" );
!     my $var = $node -> getAttribute( "var" );
!     my $name = $node -> getAttribute( "name" );
!     my $step = $node -> getAttribute( "step" );
      
      my $varOrig = $var;
--- 352,360 ----
      
  
!     my $from = $this -> dal() -> getAttribute( $node, "from" );
!     my $to = $this -> dal() -> getAttribute( $node, "to" );
!     my $var = $this -> dal() -> getAttribute( $node, "var" );
!     my $name = $this -> dal() -> getAttribute( $node, "name" );
!     my $step = $this -> dal() -> getAttribute( $node, "step" );
      
      my $varOrig = $var;
***************
*** 457,481 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $node -> getLocalName();
!         if ($node -> getLocalName() eq "if") {
              # kill state
              $this -> interpreter() -> dropState();
              return 0; # consume event 
              }
!         elsif ($node -> getLocalName() eq "else") {
              # kill state
              $this -> interpreter() -> dropState();
              return 0; # consume event 
              }
!         elsif ($node -> getLocalName() eq "while" ) {
              $this -> whileEnd( $domWalker, $node );
              return 0; # consume event
              }
!         elsif ($node -> getLocalName() eq "for" ) {
              $this -> forEnd( $domWalker, $node );
              return 0; # consume event
              }
!         elsif ($node -> getLocalName() eq "ignore" ) {
              return 0; #consume event
              }
--- 457,481 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $NetScript::Interpreter::NAMESPACE_URI ) {
!         my $localName = $this -> dal() -> getLocalName( $node );
!         if ($localName eq "if") {
              # kill state
              $this -> interpreter() -> dropState();
              return 0; # consume event 
              }
!         elsif ($localName eq "else") {
              # kill state
              $this -> interpreter() -> dropState();
              return 0; # consume event 
              }
!         elsif ($localName eq "while" ) {
              $this -> whileEnd( $domWalker, $node );
              return 0; # consume event
              }
!         elsif ($localName eq "for" ) {
              $this -> forEnd( $domWalker, $node );
              return 0; # consume event
              }
!         elsif ($localName eq "ignore" ) {
              return 0; #consume event
              }
***************
*** 499,504 ****
      
      # Check for a NetScript-Related target
!     if ( $node -> getTarget() eq "netscript" ) {
!         my $data = $node -> getData();
          if ( $data =~ /^\s*use\s*([^\s]*)/) { # check for "use LIBNAME"
              my $libName = $1;
--- 499,504 ----
      
      # Check for a NetScript-Related target
!     if ( $this -> dal() -> getPITarget( $node ) eq "netscript" ) {
!         my $data = $this -> dal() -> getPIData( $node );
          if ( $data =~ /^\s*use\s*([^\s]*)/) { # check for "use LIBNAME"
              my $libName = $1;
***************
*** 525,530 ****
              my $document = undef;
              unless( eval {
!                 $document = $this -> interpreter() -> getDOMParser() ->
!                         parseString( $fileData );
                  1;        
              } ) { 
--- 525,529 ----
              my $document = undef;
              unless( eval {
!                 $document = $this -> dal() -> parseString( $fileData );
                  1;        
              } ) { 
***************
*** 569,576 ****
      my ( $this, $document, $domWalker, $node ) = @_;
      my $sourceDocument = $domWalker -> sourceDocument();
!     my $children = $document -> getChildNodes(); 
!     my $length = $children -> getLength() - 1;
!     my $parent = $node -> getParentNode();
!     my $sibling = $node -> getNextSibling();
  
      if ( $parent -> getNodeType() != $XML::DOM2::Node::ELEMENT_NODE ) {
--- 568,575 ----
      my ( $this, $document, $domWalker, $node ) = @_;
      my $sourceDocument = $domWalker -> sourceDocument();
!     my $children = $this -> dal() -> getChildNodes( $document ); 
!     my $length = $this -> dal() -> getLength( $children ) - 1;
!     my $parent = $this -> dal() -> getParentNode( $node );
!     my $sibling = $this -> dal() -> getNextSibling( $node );
  
      if ( $parent -> getNodeType() != $XML::DOM2::Node::ELEMENT_NODE ) {
***************
*** 581,591 ****
      # Import all nodes of the document to the current source document
      for ( 0..$length ) {
!         my $importedChild = $sourceDocument -> importNode( 
!                 $children -> item( $_ ), 1 );
          unless( defined( $sibling ) ) {
!             $parent -> appendChild( $importedChild );
              }
          else {
!             $parent -> insertBefore( $importedChild, $sibling );
              }
          }
--- 580,590 ----
      # Import all nodes of the document to the current source document
      for ( 0..$length ) {
!         my $importedChild = $this -> dal() -> importNode( $sourceDocument,
!                 $this -> dal() -> getItemAt( $children, $_ ), 1 );
          unless( defined( $sibling ) ) {
!             $this -> dal() -> appendChild( $parent, $importedChild );
              }
          else {
!             $this -> dal() -> insertBefore( $parent, $sibling, $importedChild );
              }
          }
***************
*** 593,597 ****
      $domWalker -> stepSourceNext();
      # remove PI
!     $parent -> removeChild( $node );
      }
  
--- 592,596 ----
      $domWalker -> stepSourceNext();
      # remove PI
!     $this -> dal() -> removeChild( $parent, $node );
      }
  
***************
*** 627,640 ****
      my $domWalker = $event -> getEventUnknown();
      my $sourceDocument = $domWalker -> currentSource();
!     my $children = $sourceDocument -> getChildNodes();
!     my $length = $children -> getLength() - 1;
      my $se = $this -> interpreter() -> getStatementEvaluator();
      
      for ( 0..$length ) {
!         my $child = $children -> item( $_ );
!         if ( $child -> getNodeType() == 
!                 $XML::DOM2::Node::PROCESSING_INSTRUCTION_NODE ) {
!             if ( $child -> getTarget() eq "netscript" ) {
!                 my $data = $child -> getData();
                  if ( $data =~ /^\s*rimport\s+([^\s]+)\s*/ ) {
                      my $fileURL = $1;
--- 626,638 ----
      my $domWalker = $event -> getEventUnknown();
      my $sourceDocument = $domWalker -> currentSource();
!     my $children = $this -> dal() -> getChildNodes( $sourceDocument );
!     my $length = $this -> dal() -> getLength( $children ) - 1;
      my $se = $this -> interpreter() -> getStatementEvaluator();
      
      for ( 0..$length ) {
!         my $child = $this -> dal() -> getItemAt( $children, $_ );
!         if ( $this -> dal() -> isProcessingInstructionNode( $child) ) {
!             if ( $this -> dal() -> getPITarget( $child ) eq "netscript" ) {
!                 my $data = $this -> dal() -> getPIData( $child );
                  if ( $data =~ /^\s*rimport\s+([^\s]+)\s*/ ) {
                      my $fileURL = $1;

Index: DatabaseLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DatabaseLibrary.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DatabaseLibrary.pm	23 Oct 2002 09:35:12 -0000	1.4
--- DatabaseLibrary.pm	29 May 2003 16:04:30 -0000	1.5
***************
*** 148,158 ****
      my ( $this, $domWalker, $node ) = @_;
      my %settings = ();
!     $settings{ "host" } = $node -> getAttribute( "host" );
!     $settings{ "port" } = $node -> getAttribute( "port" );
!     $settings{ "type" } = $node -> getAttribute( "type" );
!     $settings{ "username" } = $node -> getAttribute( "username" );
!     $settings{ "password" } = $node -> getAttribute( "password" );
!     $settings{ "database" } = $node -> getAttribute( "database" );
!     my $name = $node -> getAttribute( "handle" );
      unless( defined( $name ) ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
--- 148,158 ----
      my ( $this, $domWalker, $node ) = @_;
      my %settings = ();
!     $settings{ "host" } = $this -> dal() -> getAttribute( $node, "host" );
!     $settings{ "port" } = $this -> dal() -> getAttribute( $node, "port" );
!     $settings{ "type" } = $this -> dal() -> getAttribute( $node, "type" );
!     $settings{ "username" } = $this -> dal() -> getAttribute( $node, "username" );
!     $settings{ "password" } = $this -> dal() -> getAttribute( $node, "password" );
!     $settings{ "database" } = $this -> dal() -> getAttribute( $node, "database" );
!     my $name = $this -> dal() -> getAttribute( $node, "handle" );
      unless( defined( $name ) ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
***************
*** 172,176 ****
  sub runStatement {
      my ( $this, $domWalker, $node )  = @_;
!     my $dbName = $node -> getAttribute( "handle" );
      if ( $dbName eq "" ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
--- 172,176 ----
  sub runStatement {
      my ( $this, $domWalker, $node )  = @_;
!     my $dbName = $this -> dal() -> getAttribute( $node, "handle" );
      if ( $dbName eq "" ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
***************
*** 214,218 ****
  
      # now we can execute the statement...
!     my $statement = $node -> getAttribute( "query" );
      if ( $statement eq "" ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
--- 214,218 ----
  
      # now we can execute the statement...
!     my $statement = $this -> dal() -> getAttribute( $node, "query" );
      if ( $statement eq "" ) {
          $this -> interpreter() -> getEventRelay() -> createAndRaiseEvent(
***************
*** 228,233 ****
      $resultSet -> execute();
  
!     my $name = $node -> getAttribute( "name" );
!     my $var = $node -> getAttribute( "var" );
      if ( $var ne "" || $name ne "" ) {
          my $classWrapper = NetScript::Engine::ClassWrapper -> new( $this );
--- 228,233 ----
      $resultSet -> execute();
  
!     my $name = $this -> dal() -> getAttribute( $node, "name" );
!     my $var = $this -> dal() -> getAttribute( $node, "var" );
      if ( $var ne "" || $name ne "" ) {
          my $classWrapper = NetScript::Engine::ClassWrapper -> new( $this );
***************
*** 331,336 ****
      my $domWalker = $event -> getEventUnknown();
      my $refNode = $domWalker -> currentSource();
!     if ( $refNode -> getNamespaceURI() eq $DB_NAMESPACE_URI ) {
!         my $nodeName = $refNode -> getLocalName();
          
          if ( $nodeName eq "settings" ) {
--- 331,336 ----
      my $domWalker = $event -> getEventUnknown();
      my $refNode = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $refNode ) eq $DB_NAMESPACE_URI ) {
!         my $nodeName = $this -> dal() -> getLocalName( $refNode );
          
          if ( $nodeName eq "settings" ) {
***************
*** 355,360 ****
      my $domWalker = $event -> getEventUnknown();
      my $refNode = $domWalker -> currentSource();
!     if ( $refNode -> getNamespaceURI() eq $DB_NAMESPACE_URI ) {
!         my $nodeName = $refNode -> getLocalName();
          
          if ( $nodeName eq "settings" ) {
--- 355,360 ----
      my $domWalker = $event -> getEventUnknown();
      my $refNode = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $refNode ) eq $DB_NAMESPACE_URI ) {
!         my $nodeName = $this -> dal() -> getLocalName( $refNode );
          
          if ( $nodeName eq "settings" ) {

Index: DateLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DateLibrary.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DateLibrary.pm	27 Sep 2002 17:53:36 -0000	1.1
--- DateLibrary.pm	29 May 2003 16:04:30 -0000	1.2
***************
*** 130,135 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $DATE_NAMESPACE_URI ) {
!         my $name = $node -> getLocalName();
          if ($name eq "roll") {
              $this -> doRoll( $node, $domWalker );
--- 130,135 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $DATE_NAMESPACE_URI ) {
!         my $name = $this -> dal() -> getLocalName( $node );
          if ($name eq "roll") {
              $this -> doRoll( $node, $domWalker );
***************
*** 158,163 ****
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $node -> getNamespaceURI() eq $DATE_NAMESPACE_URI ) {
!         my $name = $node -> getLocalName();
          if ($name eq "roll"  || $name eq "format") {
              0; # consume event 
--- 158,163 ----
      my $domWalker = $event -> getEventUnknown();
      my $node = $domWalker -> currentSource();
!     if ( $this -> dal() -> getNamespaceURI( $node ) eq $DATE_NAMESPACE_URI ) {
!         my $name = $this -> dal() -> getLocalName( $node );
          if ($name eq "roll"  || $name eq "format") {
              0; # consume event 
***************
*** 192,197 ****
      }
              
!     my $date = $se -> evaluateStatement( $node -> getAttribute( "date" ) );
!     my $format = $se -> evaluateStatement( $node -> getAttribute( "format" ) );
      
      my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
--- 192,197 ----
      }
              
!     my $date = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "date" ) );
!     my $format = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "format" ) );
      
      my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
***************
*** 199,208 ****
  
  
!     my $secAdd = $se -> evaluateStatement( $node -> getAttribute( "second" ) );
!     my $minAdd = $se -> evaluateStatement( $node -> getAttribute( "minute" ) );
!     my $hourAdd = $se -> evaluateStatement( $node -> getAttribute( "hour" ) );
!     my $dayAdd = $se -> evaluateStatement( $node -> getAttribute( "day" ) );
!     my $monAdd = $se -> evaluateStatement( $node -> getAttribute( "month" ) );
!     my $yearAdd = $se -> evaluateStatement( $node -> getAttribute( "year" ) );
      
      # XXX: the timelocal function doesnt work for months, so we have to roll 
--- 199,208 ----
  
  
!     my $secAdd = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "second" ) );
!     my $minAdd = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "minute" ) );
!     my $hourAdd = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "hour" ) );
!     my $dayAdd = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "day" ) );
!     my $monAdd = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "month" ) );
!     my $yearAdd = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "year" ) );
      
      # XXX: the timelocal function doesnt work for months, so we have to roll 
***************
*** 250,255 ****
      my $se = $this -> interpreter() -> getStatementEvaluator();
      
!     my $date = $se -> evaluateStatement( $node -> getAttribute( "date" ) );
!     my $format = $se -> evaluateStatement( $node -> getAttribute( "format" ) );
      
      my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
--- 250,255 ----
      my $se = $this -> interpreter() -> getStatementEvaluator();
      
!     my $date = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "date" ) );
!     my $format = $se -> evaluateStatement( $this -> dal() -> getAttribute( $node, "format" ) );
      
      my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =

Index: Library.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/Library.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Library.pm	14 Aug 2002 22:23:35 -0000	1.7
--- Library.pm	29 May 2003 16:04:30 -0000	1.8
***************
*** 48,51 ****
--- 48,52 ----
      my ($this, $interpreter) = @_;
      $this -> { m_interpreter } = $interpreter;
+     $this -> { m_DAL } = $interpreter -> getDAL();
      }
  
***************
*** 79,84 ****
  sub getVariableInfo {
      my ( $this, $element )  = @_;
!     my $name = $element -> getAttribute( "name" );
!     my $var = $element -> getAttribute( "var" );
      
      my $se = $this -> interpreter() -> getStatementEvaluator();
--- 80,85 ----
  sub getVariableInfo {
      my ( $this, $element )  = @_;
!     my $name = $this -> dal() -> getAttribute( $element, "name" );
!     my $var =  $this -> dal() -> getAttribute( $element, "var" );
      
      my $se = $this -> interpreter() -> getStatementEvaluator();
***************
*** 115,118 ****
--- 116,127 ----
      my ( $this ) = @_;
      $this -> { m_interpreter };
+     }
+ 
+ #/**
+ # Returns the currently used DAL.
+ #*/
+ sub dal {
+     my ( $this ) = @_;
+     $this -> { m_DAL };
      }
  

[NetScript CVS] CVS: netscript2/src/perl/NetScript/Engine BasicStatement.pm,1.7,1.8 DOMWalker.pm,1.10,1.11

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Engine
In directory sc8-pr-cvs1:/tmp/cvs-serv28851

Modified Files:
	BasicStatement.pm DOMWalker.pm 
Log Message:
* implemented DAL

Index: BasicStatement.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/BasicStatement.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** BasicStatement.pm	9 Jun 2002 12:50:04 -0000	1.7
--- BasicStatement.pm	29 May 2003 16:04:19 -0000	1.8
***************
*** 23,27 ****
  
  
- use XML::DOM2::Node;
  use NetScript::Libraries::DebugLibrary;
  
--- 23,26 ----
***************
*** 55,58 ****
--- 54,58 ----
      $this -> { m_document } = $document;
      $this -> { m_interpreter } = $interpreter;
+     $this -> { m_DAL } = $interpreter -> getDAL();
      $this -> SUPER::init();
      }
***************
*** 72,96 ****
  
      # clone the node into the new document
!     my $newNode = $document -> importNode( $node, 0 );
  
      # Check for the Node Type. 
!     if ( $newNode -> getNodeType() == $XML::DOM2::Node::ELEMENT_NODE ) {
          # attributes in elements will be checked for variables
!         my $attributes = $newNode -> getAttributes();
!         my $length = $attributes -> getLength() -1;
          for ( 0..$length ) { 
!             my $attribute = $attributes -> item( $_ );
!             my $value = $attribute -> getValue();
!             my $name = $attribute -> getNodeName();
              $value = $interpreter -> getStatementEvaluator() 
                      -> evaluateStatement( $value );
!             $attribute -> setValue( $value );
              }
          }
!     elsif ( $newNode -> getNodeType() == $XML::DOM2::Node::TEXT_NODE ) {
!         my $text = $newNode -> getData();
          $text = $interpreter -> getStatementEvaluator() 
                  -> evaluateStatement( $text );
!         $newNode -> setData( $text );
          }
  
--- 72,96 ----
  
      # clone the node into the new document
!     my $newNode = $this -> dal() -> importNode( $document, $node, 0 );
  
      # Check for the Node Type. 
!     if ( $this -> dal() -> isElementNode( $newNode ) ) {
          # attributes in elements will be checked for variables
!         my $attributes = $this -> dal() -> getAttributes( $newNode );
!         my $length = $this -> dal() -> getLength( $attributes ) - 1;
          for ( 0..$length ) { 
!             my $attribute = $this -> dal() -> getItemAt( $attributes, $_ );
!             my $value = $this -> dal() -> getAttrValue( $attribute );
!             my $name = $this -> dal() -> getNodeName( $attribute );
              $value = $interpreter -> getStatementEvaluator() 
                      -> evaluateStatement( $value );
!             $this -> dal() -> setAttrValue( $attribute, $value );
              }
          }
!     elsif ( $this -> dal() -> isTextNode( $newNode ) ) {
!         my $text = $this -> dal() -> getCData( $newNode );
          $text = $interpreter -> getStatementEvaluator() 
                  -> evaluateStatement( $text );
!         $this -> dal() -> setCData( $newNode, $text );
          }
  
***************
*** 110,113 ****
--- 110,122 ----
      $this -> { m_interpreter };
      }
+ 
+ #/**
+ # Returns the currently used DAL.
+ #*/
+ sub dal {
+     my ( $this ) = @_;
+     $this -> { m_DAL };
+     }
+ 
  
  #/**

Index: DOMWalker.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Engine/DOMWalker.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** DOMWalker.pm	24 Sep 2002 22:21:18 -0000	1.10
--- DOMWalker.pm	29 May 2003 16:04:20 -0000	1.11
***************
*** 21,29 ****
  package NetScript::Engine::DOMWalker;
  
- 
  use NetScript::Engine::BasicStatement;
- use XML::DOM2::DOMImplementation;
- use XML::DOM2::Document;
- use XML::DOM2::Node;
  
  use vars qw( $DOCUMENT_START_EVENT $DOCUMENT_END_EVENT $ELEMENT_START_EVENT 
--- 21,25 ----
***************
*** 110,113 ****
--- 106,110 ----
  
      $this -> { m_interpreter } = $interpreter;
+     $this -> { m_DAL } = $interpreter -> getDAL();
      return $this;                       # return Object
      }
***************
*** 215,223 ****
      
      # append clone to document
!     $this -> currentTarget() -> appendChild( $clone );
     
      # set current target node to new node
!     if ( $clone -> getNodeType() == $XML::DOM2::Node::ELEMENT_NODE && 
!          $isRefNode ) {
          $this -> setCurrentTarget( $clone ) ;
          }
--- 212,219 ----
      
      # append clone to document
!     $this -> dal() -> appendChild( $this -> currentTarget(), $clone );
     
      # set current target node to new node
!     if ( $this -> dal() -> isElementNode( $clone ) && $isRefNode ) {
          $this -> setCurrentTarget( $clone ) ;
          }
***************
*** 260,269 ****
      my ( $this, $sourceDocument ) = @_;
  
-     my $di = XML::DOM2::DOMImplementation -> new();
      # create target document
!     my $document = $di -> createDocument(
!         "dummy", "dummy:dummy" );
      # remove document element
!     $document -> removeChild( $document -> getDocumentElement() );
      
      $this -> setCurrentTarget( $document );
--- 256,263 ----
      my ( $this, $sourceDocument ) = @_;
  
      # create target document
!     my $document = $this -> dal() -> createDocument( "dummy", "dummy:dummy" );
      # remove document element
!     $this -> dal() -> removeChild( $document, $this -> dal() -> getDocumentElement( $document ) );
      
      $this -> setCurrentTarget( $document );
***************
*** 312,316 ****
      my $nextSource = undef;
      if ( $source ) {
!         $nextSource = $source -> getFirstChild();
          unless ( $nextSource ) {
              $this -> stepSourceNext();
--- 306,310 ----
      my $nextSource = undef;
      if ( $source ) {
!         $nextSource = $this -> dal() -> getFirstChild( $source );
          unless ( $nextSource ) {
              $this -> stepSourceNext();
***************
*** 330,334 ****
      my ($this) = @_;
      my $source = $this -> currentSource();
!     $this -> setCurrentSource( $source -> getParentNode() );
      }
  
--- 324,328 ----
      my ($this) = @_;
      my $source = $this -> currentSource();
!     $this -> setCurrentSource( $this -> dal() -> getParentNode( $source ) );
      }
  
***************
*** 340,344 ****
      my ( $this ) = @_;
      my $target = $this -> currentTarget();
!     $this -> setCurrentTarget( $target -> getParentNode() );
      }
  
--- 334,338 ----
      my ( $this ) = @_;
      my $target = $this -> currentTarget();
!     $this -> setCurrentTarget( $this -> dal() -> getParentNode( $target ) );
      }
  
***************
*** 355,359 ****
  
      if ( $source ) {
!         my $nextSource = $source -> getNextSibling();
          unless ( $nextSource ) {
              $this -> finishNode( $source );
--- 349,353 ----
  
      if ( $source ) {
!         my $nextSource = $this -> dal() -> getNextSibling( $source );
          unless ( $nextSource ) {
              $this -> finishNode( $source );
***************
*** 361,367 ****
                  return;
                  }
!             my $parent = $source -> getParentNode();
              while ( defined( $parent ) && !defined( $nextSource ) ) {
!                 $nextSource = $parent -> getNextSibling();
                  unless( $nextSource ) {
                      # parent is finished   
--- 355,361 ----
                  return;
                  }
!             my $parent = $this -> dal() -> getParentNode( $source );
              while ( defined( $parent ) && !defined( $nextSource ) ) {
!                 $nextSource = $this -> dal() -> getNextSibling( $parent );
                  unless( $nextSource ) {
                      # parent is finished   
***************
*** 370,374 ****
                          return; # stop processing
                          }
!                     $parent = $parent -> getParentNode();
                      }
                  else {
--- 364,368 ----
                          return; # stop processing
                          }
!                     $parent = $this -> dal() -> getParentNode( $parent );
                      }
                  else {
***************
*** 411,429 ****
  sub createEvent {
      my ( $this, $node ) = @_;
-     my $nodeType = $node -> getNodeType();
      my $eventType;
!     if ( $nodeType == $XML::DOM2::Node::ELEMENT_NODE ) {
          $eventType = $NetScript::Engine::DOMWalker::ELEMENT_START_EVENT;
          }
!     elsif ( $nodeType == $XML::DOM2::Node::TEXT_NODE ) {
          $eventType = $NetScript::Engine::DOMWalker::TEXT_EVENT;
          }
!     elsif ( $nodeType == $XML::DOM2::Node::PROCESSING_INSTRUCTION_NODE ) {
          $eventType = $NetScript::Engine::DOMWalker::PI_EVENT;
          }
!     elsif ( $nodeType == $XML::DOM2::Node::COMMENT_NODE ) {
          $eventType = $NetScript::Engine::DOMWalker::COMMENT_EVENT;
          }
!     elsif ( $nodeType == $XML::DOM2::Node::DOCUMENT_NODE ) {
          $eventType = $NetScript::Engine::DOMWalker::DOCUMENT_START_EVENT;
          }
--- 405,422 ----
  sub createEvent {
      my ( $this, $node ) = @_;
      my $eventType;
!     if ( $this -> dal() -> isElementNode( $node ) ) {
          $eventType = $NetScript::Engine::DOMWalker::ELEMENT_START_EVENT;
          }
!     elsif ( $this -> dal() -> isTextNode( $node ) ) {
          $eventType = $NetScript::Engine::DOMWalker::TEXT_EVENT;
          }
!     elsif ( $this -> dal() -> isProcessingInstructionNode( $node ) ) {
          $eventType = $NetScript::Engine::DOMWalker::PI_EVENT;
          }
!     elsif ( $this -> dal() -> isCommentNode( $node ) ) {
          $eventType = $NetScript::Engine::DOMWalker::COMMENT_EVENT;
          }
!     elsif ( $this -> dal() -> isDocumentNode( $node ) ) {
          $eventType = $NetScript::Engine::DOMWalker::DOCUMENT_START_EVENT;
          }
***************
*** 442,451 ****
  sub createEndEvent {
      my ( $this, $node ) = @_;
-     my $nodeType = $node -> getNodeType();
      my $eventType;
!     if ($nodeType == $XML::DOM2::Node::ELEMENT_NODE ) {
          $eventType =  $NetScript::Engine::DOMWalker::ELEMENT_END_EVENT;
          }
!     elsif ( $nodeType == $XML::DOM2::Node::DOCUMENT_NODE ) {
          $eventType = $NetScript::Engine::DOMWalker::DOCUMENT_END_EVENT;
          }
--- 435,443 ----
  sub createEndEvent {
      my ( $this, $node ) = @_;
      my $eventType;
!     if ( $this -> dal() -> isElementNode( $node ) ) {
          $eventType =  $NetScript::Engine::DOMWalker::ELEMENT_END_EVENT;
          }
!     elsif ( $this -> dal() -> isDocumentNode( $node ) ) {
          $eventType = $NetScript::Engine::DOMWalker::DOCUMENT_END_EVENT;
          }
***************
*** 477,480 ****
--- 469,479 ----
      }
  
+ #/**
+ # Returns the DOM abstraction layer the interpreter currently uses.
+ #*/
+ sub dal {
+     my ( $this ) = @_;
+     $this -> { m_DAL };
+     }
  
  1; # make require happy

[NetScript CVS] CVS: netscript2/src/perl/NetScript Interpreter.pm,1.15,1.16

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/NetScript
In directory sc8-pr-cvs1:/tmp/cvs-serv28111

Modified Files:
	Interpreter.pm 
Log Message:
* implemented DAL

Index: Interpreter.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Interpreter.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Interpreter.pm	4 Dec 2002 19:23:14 -0000	1.15
--- Interpreter.pm	29 May 2003 16:02:27 -0000	1.16
***************
*** 125,129 ****
  use NetScript::Util::FileRetriever;
  use NetScript::Util::UIDGenerator;
! use XML::DOM2::DOMParser;
  use XML::DOM2::DOMWriter;
  use XML::DOM2::XMLDOMWriterStyle;
--- 125,129 ----
  use NetScript::Util::FileRetriever;
  use NetScript::Util::UIDGenerator;
! #use XML::DOM2::DOMParser;
  use XML::DOM2::DOMWriter;
  use XML::DOM2::XMLDOMWriterStyle;
***************
*** 140,146 ****
      my $configFile = $request -> dir_config( "NetScriptConfigFile" );
      $CONFIGURATION = $configFile;
! 	my $interpreter = NetScript::Interpreter -> new( $request );
! 	$interpreter -> run();
! 	return OK;
  }
  
--- 140,146 ----
      my $configFile = $request -> dir_config( "NetScriptConfigFile" );
      $CONFIGURATION = $configFile;
!     my $interpreter = NetScript::Interpreter -> new( $request );
!     $interpreter -> run();
!     return OK;
  }
  
***************
*** 174,178 ****
              $this -> { m_currentState };
      $this -> { m_ScriptURL } = undef;
!     $this -> { m_DOMParser } = XML::DOM2::DOMParser -> new();
      $this -> { m_Config } = $config;
  
--- 174,178 ----
              $this -> { m_currentState };
      $this -> { m_ScriptURL } = undef;
!     
      $this -> { m_Config } = $config;
  
***************
*** 188,191 ****
--- 188,205 ----
      $this -> { m_Cookies } = \@cookieList;
  
+     # find out which DAL to use
+     my $dalName = $config -> getSetting( "DAL" );
+     unless ( defined( eval {
+         eval "require $dalName;1;" or die $@;
+         eval "import $dalName;1;" or die $@;
+         1;
+         } ) ) {
+         $this -> getEventRelay() -> createAndRaiseEvent(
+             $FATAL_EVENT, "Unable to load DOM Abstraction Layer: ". $dalName . "\n" . $@ );
+         }
+     
+     $this -> { m_DAL } = $dalName -> new();
+ 
+     # initialize libdir
      my $libdir = $config -> getSetting( "LIBDIR" );
      unless ( -e $libdir ) {
***************
*** 233,239 ****
  # Returns an instance of XML::DOM2::DOMParser.
  #*/
! sub getDOMParser {
      my ( $this ) = @_;
!     $this -> { m_DOMParser };
      }
  
--- 247,253 ----
  # Returns an instance of XML::DOM2::DOMParser.
  #*/
! sub getDAL {
      my ( $this ) = @_;
!     $this -> { m_DAL };
      }
  
***************
*** 380,384 ****
      
      # start input file parsing
!     my $domparser = $this -> { m_DOMParser };
      my $dom = undef;
      unless ( eval {
--- 394,398 ----
      
      # start input file parsing
!     my $domparser = $this -> getDAL();
      my $dom = undef;
      unless ( eval {

[NetScript CVS] CVS: netscript2/src/perl/XML/DAL DAL.pm,NONE,1.1 LibXMLDAL.pm,NONE,1.1 README.html,NONE,1.1 XMLDOM2DAL.pm,NONE,1.1 wipeout.project,NONE,1.1

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML/DAL
In directory sc8-pr-cvs1:/tmp/cvs-serv27198

Added Files:
	DAL.pm LibXMLDAL.pm README.html XMLDOM2DAL.pm wipeout.project 
Log Message:
* began implementation of DAL

--- NEW FILE: DAL.pm ---
#--------------------------------------------------------
# DOM Abstraction Layer
# $Id: DAL.pm,v 1.1 2003/05/29 16:00:02 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;

#/**
# This is the base class of the insOMnia DOM abstraction Layer.
# it serves as a template for any abstraction layers. 
# @abstract
#*/
package XML::DAL::DAL;


#/**
# Ctor. 
# @public
#*/
sub new {
    my $proto = shift;                  # get Prototype
    my $class = ref($proto) || $proto;
    my $this = {};
    bless( $this, $class );
    $this;
    }


#/**
# Parses the file with the given filename and returns the document 
# of the wrapped DOM.
# @param a filename containing XML which should be parsed
# @return the Document representation of the parsed file
# @public
#*/
sub parseFile {
      
    }

#/**
# Same as parseFile, however parses the given string instead of a file.
# @param a string containing XML to be parsed.
# @return the document representation of the parsed string.
# @public
#*/
sub parseString {
    
    }


# ---------------- Node Type Checking --------------------

#/**
# Returns nonzero if the given node is an element node.
# @param a node
#*/
sub isElementNode {
    
    }

#/**
# Returns nonzero if the given node is a text node
# @param a node
#*/
sub isTextNode {
    
    }

#/**
# Returns nonzero, if the given node is a processing instruction node
# @param a node
#*/
sub isProcessingInstructionNode {
    
    }

#/**
# Returns nonzero if the given node is a comment node.
# @param a node
#*/
sub isCommentNode {
    
    }

#/**
# Returns nonzero if the given node is a document node.
# @param a node
#*/
sub isDocumentNode {
    
    }

# ---------------- Node Functions --------------------

#/**
# Appends the given child node to the given parent node.
# @param the parent node
# @param the node to append to the parent node.
#*/
sub appendChild {
    
    }

#/**
# Inserts the given node before the given child node of the given parent node
# @param the parent node
# @param the reference node 
# @param the node to insert
#*/
sub insertBefore {
    
    }

#/**
# Removes the given child node from the given parent node.
# @param the node to remove the child from
# @param the node to remove from the parent node.
# @return the removed node.
#*/
sub removeChild {
    
    }

#/**
# Returns the first child of the given node. 
# @param the node whichs first child should be returned.
# @return the first child of the given node or undef if the node has no child
# nodes.
#*/
sub getFirstChild {
    
    }


#/**
# Returns the parent node of the given node.
# @param the node whichs parent should be returned.
# @return the parent node of the given node.
#*/
sub getParentNode {
    
    }

#/**
# Returns the next sibling of the given node.
# @param the node whichs next sibling should be returned.
# @return the next sibling of the given node or undef if there is no next 
# sibling.
#*/
sub getNextSibling {
    
    }


#/**
# Returns the previous sibling of the given node.
# @param the node whichs previous sibling should be returned.
# @return the previous sibling or undef if there is no previous sibling.
#*/
sub getPreviousSibling {
    
    }

#/**
# Returns a NodeList containing the child nodes of the given node.
# @param the node whichs childnodes should be returned
# @return a node list
#*/
sub getChildNodes {
    
    }

#/**
# Returns the attributes of the given node as a NodeList.
# @param the node 
# @return a nodelist containing the attributes of this node.
#*/
sub getAttributes {
    
    }

#/**
# Returns the fully qualified node name of the given node.
# @param a node
# @return the node name of the given node.
#*/
sub getNodeName {
    
    }

#/**
# Returns the namespace URI of the given node.
# @param a node
# @return the namespace uri of the given node
#*/
sub getNamespaceURI {
    
    }

#/**
# Returns the local name of the given node.
# @param a node 
# @return the local (non-prefixed) name of the node
#*/
sub getLocalName {
    
    }

# ---------------- PI functions --------------------

#/**
# Returns the target of a processing instruction.
# @param the processing instruction node
# @return a string holding the target of the PI
#*/
sub getPITarget {
    
    }

#/**
# Returns the data of a processing instruction
# @param the processing instruction node
# @return a string holding the data of the PI
#*/
sub getPIData {
    
    }

# ---------------- Attr functions --------------------

#/**
# Returns the node value of the given Attr.
# @param an Attr
# @return a string holding the value of the node
#*/
sub getAttrValue {
    
    }

#/**
# Sets the node value of the given node.
# @param a node
# @param a string holding the new value of the given node.
#*/
sub setAttrValue {
    
    }

# ---------------- Element functions --------------------

#/**
# Returns the value of the given attribute of the given element.
# @param an element node
# @param the name of the attribute to return
# @return a string holding the attribute's value
#*/
sub getAttribute {
    
    }


# ---------------- CDATA functions --------------------

#/**
# Returns the data of the given CDATA/Text node.
# @param a node
# @return a string holding the data of the node.
#*/
sub getCData {
    
    }


#/**
# Sets the data of the given CDATA/Text node.
# @param a node
# @param the new value for the node.
#*/
sub setCData {
    
    }

# ---------------- NodeList functions --------------------

#/**
# Returns the length of a nodelist
# @param a NodeList
# @return the length of a node list
#*/
sub getLength {
    
    }


#/**
# Return the item at the given index from the node list.
# @param the list to retrieve the item from.
# @param the index of the item (zero-based)
# @return a node from the given index
#*/
sub getItemAt {
    
    }



# ---------------- Document Functions --------------------

#/**
# Creates a new document.
# @param the namespace uri of the document element
# @param the fully qualified name of the document element.
# @return a document node
#*/
sub createDocument {
    
    }


#/**
# Returns the document element of the given document.
# @param a document node
# @return an element node - the document element of the given document.
#*/
sub getDocumentElement {
    
    }


#/**
# Import the given node into the given document.
# @param the document to import the node into
# @param the node to import
# @param set nonzero to do a deep (recursive) import, zero to do a shallow import
# @return the imported node.
#*/
sub importNode {
    
    }



1;

--- NEW FILE: LibXMLDAL.pm ---
#--------------------------------------------------------
# LibXML DOM Abstraction Layer
# $Id: LibXMLDAL.pm,v 1.1 2003/05/29 16:00:02 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;

use XML::LibXML;

#/**
# An implementation of the DAL for XML::LibXML.
#*/
package XML::DAL::LibXMLDAL;
use base qw(XML::DAL::DAL);

sub parseFile {
    my ( $this, $file ) = @_;
    my $parser = XML::LibXML -> new();
    return $parser -> parse_file( $file );
    }


sub parseString {
    my ( $this, $string ) = @_;
    my $parser = XML::LibXML -> new();
    return $parser -> parse_string( $string );
    }

1;

--- NEW FILE: README.html ---
<pre>
/---------------------------------------------------------------------\
| $Id: README.html,v 1.1 2003/05/29 16:00:02 derkork Exp $
| 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 (ko...@in...)
\---------------------------------------------------------------------/

The DAL is the DOM Abstraction Layer used by NetScript to abstract over
different available DOM implementations. It is not meant to be a generic
abstraction layer for any kind of DOM implementation. It just holds
enough functions to provide sufficient support to NetScript's needs. If
the need for a more sophisticated DAL arises, this will become a project 
of its own.
</pre>

--- NEW FILE: XMLDOM2DAL.pm ---
#--------------------------------------------------------
# XML::DOM2 DOM Abstraction Layer
# $Id: XMLDOM2DAL.pm,v 1.1 2003/05/29 16:00:02 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;

use XML::DOM2::DOMParser;

#/**
# An implementation of the DAL for XML::DOM2.
#*/
package XML::DAL::XMLDOM2DAL;
use base qw(XML::DAL::DAL);

sub parseFile {
    my ( $this, $file ) = @_;
    my $parser = XML::DOM2::DOMParser -> new();
    return $parser -> parseFile( $file );
    }


sub parseString {
    my ( $this, $string ) = @_;
    my $parser = XML::DOM2::DOMParser -> new();
    return $parser -> parseString( $string );
    }

1;



--- NEW FILE: wipeout.project ---
b
C DmDictionary 0 77f08 8 
c 0 77fec 9 
C Category 1 6ca42 
c 0 7802c 4 
C DmString 2 78033 2 e3 
c 2 78032 a defaultExe 
C DmSet 3 78035 1 
c 2 6ca54 2 e3 
L 6ca54 
c 2 78034 b executables 
c 3 78030 3 
c 2 6ca4a 3 *.C 
L 6ca4a 
c 2 6ca4c 4 *.cc 
L 6ca4c 
c 2 6ca4e 5 *.cpp 
L 6ca4e 
c 2 7802f a extensions 
c 2 7802e a CPP_source 
c 2 7802d 4 name 
c 2 77fee a CPP_source 
c 1 6ca58 
c 0 78072 4 
c 2 78079 2 e3 
c 2 78078 a defaultExe 
c 3 7807b 1 
c 2 6ca66 2 e3 
L 6ca66 
c 2 7807a b executables 
c 3 78076 1 
c 2 6ca60 3 *.c 
L 6ca60 
c 2 78075 a extensions 
c 2 78074 8 C_source 
c 2 78073 4 name 
c 2 77fef 8 C_source 
c 1 6ca6a 
c 0 780ac 4 
c 2 780b3 2 e3 
c 2 780b2 a defaultExe 
c 3 780b5 1 
c 2 6ca78 2 e3 
L 6ca78 
c 2 780b4 b executables 
c 3 780b0 1 
c 2 6ca72 3 *.e 
L 6ca72 
c 2 780af a extensions 
c 2 780ae 6 Eiffel 
c 2 780ad 4 name 
c 2 77ff0 6 Eiffel 
c 1 6ca7c 
c 0 780e6 4 
c 2 780ed 2 e3 
c 2 780ec a defaultExe 
c 3 780ef 1 
c 2 6ca90 2 e3 
L 6ca90 
c 2 780ee b executables 
c 3 780ea 4 
c 2 6ca84 3 *.F 
L 6ca84 
c 2 6ca86 3 *.f 
L 6ca86 
c 2 6ca88 5 *.for 
L 6ca88 
c 2 6ca8a 5 *.fpp 
L 6ca8a 
c 2 780e9 a extensions 
c 2 780e8 7 Fortran 
c 2 780e7 4 name 
c 2 77ff1 7 Fortran 
c 1 6ca94 
c 0 7812c 4 
c 2 78133 2 e3 
c 2 78132 a defaultExe 
c 3 78135 1 
c 2 6caa4 2 e3 
L 6caa4 
c 2 78134 b executables 
c 3 78130 2 
c 2 6ca9c 3 *.H 
L 6ca9c 
c 2 6ca9e 3 *.h 
L 6ca9e 
c 2 7812f a extensions 
c 2 7812e 6 Header 
c 2 7812d 4 name 
c 2 77ff2 6 Header 
c 1 6caa8 
c 0 7816a 4 
c 2 78171 9 surfboard 
c 2 78170 a defaultExe 
c 3 78173 2 
c 2 6cab8 2 e3 
L 6cab8 
c 2 6caba 9 surfboard 
L 6caba 
c 2 78172 b executables 
c 3 7816e 2 
c 2 6cab0 5 *.htm 
L 6cab0 
c 2 6cab2 6 *.html 
L 6cab2 
c 2 7816d a extensions 
c 2 7816c 4 Html 
c 2 7816b 4 name 
c 2 77ff3 4 Html 
c 1 6cabe 
c 0 781ac 4 
c 2 781b3 2 e3 
c 2 781b2 a defaultExe 
c 3 781b5 1 
c 2 6cacc 2 e3 
L 6cacc 
c 2 781b4 b executables 
c 3 781b0 1 
c 2 6cac6 6 *.java 
L 6cac6 
c 2 781af a extensions 
c 2 781ae 4 Java 
c 2 781ad 4 name 
c 2 77ff4 4 Java 
c 1 6cad0 
c 0 781e6 4 
c 2 781ed 2 e3 
c 2 781ec a defaultExe 
c 3 781ef 1 
c 2 6cade 2 e3 
L 6cade 
c 2 781ee b executables 
c 3 781ea 1 
c 2 6cad8 5 *.tex 
L 6cad8 
c 2 781e9 a extensions 
c 2 781e8 5 Latex 
c 2 781e7 4 name 
c 2 77ff5 5 Latex 
c 1 6cae2 
c 0 78220 4 
c 2 78227 2 e3 
c 2 78226 a defaultExe 
c 3 78229 1 
c 2 6caed 2 e3 
L 6caed 
c 2 78228 b executables 
c 3 78224 0 
c 2 78223 a extensions 
c 2 78222 5 Other 
c 2 78221 4 name 
c 2 77ff6 5 Other 
c 2 77feb a categories 
c 0 77ff8 1 
C ProjectDir 4 6cb1a 
c 2 6cb1b 1c netscript2/src/perl/XML/DAL/ 11 81 
c 2 6cb1c 0  0 
c 2 77ffa 1c netscript2/src/perl/XML/DAL/ 
c 2 77ff7 b directories 
C DmBag 5 77f14 4 
c 2 77f4a d8 b
C DmDictionary 0 77f16 3 
C DmString 1 77f28 39 b
C DmSet 0 73c22 1 
C DmString 1 73db4 5 Other 
L 73db4  
c 1 77f27 a categories 
c 1 77f18 6 DAL.pm 
c 1 77f17 4 name 
C DmInteger 2 77f2a 1 
c 1 77f29 9 substMode  
c 2 77f7f de b
C DmDictionary 0 77f4b 3 
C DmString 1 77f5d 39 b
C DmSet 0 75118 1 
C DmString 1 752aa 5 Other 
L 752aa  
c 1 77f5c a categories 
c 1 77f4d c LibXMLDAL.pm 
c 1 77f4c 4 name 
C DmInteger 2 77f5f 1 
c 1 77f5e 9 substMode  
c 2 77fb4 dc b
C DmDictionary 0 77f80 3 
C DmString 1 77f92 38 b
C DmSet 0 77d67 1 
C DmString 1 77f04 4 Html 
L 77f04  
c 1 77f91 a categories 
c 1 77f82 b README.html 
c 1 77f81 4 name 
C DmInteger 2 77f94 1 
c 1 77f93 9 substMode  
c 2 77fe9 df b
C DmDictionary 0 77fb5 3 
C DmString 1 77fc7 39 b
C DmSet 0 759d7 1 
C DmString 1 75b69 5 Other 
L 75b69  
c 1 77fc6 a categories 
c 1 77fb7 d XMLDOM2DAL.pm 
c 1 77fb6 4 name 
C DmInteger 2 77fc9 1 
c 1 77fc8 9 substMode  
c 2 77fea 5 files 
c 2 77f10 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 77f0f 6 launch 
c 2 77f0c 4 make 
c 2 77f0b 4 make 
c 2 77f0e 0  
c 2 77f0d 8 makeFile 
c 5 77f11 0 
c 2 77f13 7 modules 
c 2 77f0a 3 DAL 
c 2 77f09 4 name 

[NetScript CVS] CVS: netscript2/src/perl/XML/DAL - Imported sources

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/src/perl/XML/DAL
In directory sc8-pr-cvs1:/tmp/cvs-serv3741

Log Message:
 

Status:

Vendor Tag:	tag1
Release Tags:	tag2
		

No conflicts created by this import


***** Bogus filespec: - Imported sources

[NetScript CVS] CVS: netscript2/docs/xmldom2 wipeout.project,1.3,1.4

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/docs/xmldom2
In directory sc8-pr-cvs1:/tmp/cvs-serv5356

Modified Files:
	wipeout.project 
Log Message:
* documentation

Index: wipeout.project
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/xmldom2/wipeout.project,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** wipeout.project	8 Jun 2002 12:01:26 -0000	1.3
--- wipeout.project	1 May 2003 10:42:58 -0000	1.4
***************
*** 1,14 ****
  b
! C DmDictionary 0 1a7d8 8 
! c 0 1a8bc 9 
  C Category 1 4339 
! c 0 1a8f0 4 
! C DmString 2 1a8f7 2 e3 
! c 2 1a8f6 a defaultExe 
! C DmSet 3 1a8f9 1 
  c 2 4348 2 e3 
  L 4348 
! c 2 1a8f8 b executables 
! c 3 1a8f4 3 
  c 2 434f 3 *.C 
  L 434f 
--- 1,14 ----
  b
! C DmDictionary 0 21fe8 8 
! c 0 220cc 9 
  C Category 1 4339 
! c 0 22100 4 
! C DmString 2 22107 2 e3 
! c 2 22106 a defaultExe 
! C DmSet 3 22109 1 
  c 2 4348 2 e3 
  L 4348 
! c 2 22108 b executables 
! c 3 22104 3 
  c 2 434f 3 *.C 
  L 434f 
***************
*** 17,63 ****
  c 2 4355 5 *.cpp 
  L 4355 
! c 2 1a8f3 a extensions 
! c 2 1a8f2 a CPP_source 
! c 2 1a8f1 4 name 
! c 2 1a8be a CPP_source 
  c 1 436a 
! c 0 1a936 4 
! c 2 1a93d 2 e3 
! c 2 1a93c a defaultExe 
! c 3 1a93f 1 
  c 2 4377 2 e3 
  L 4377 
! c 2 1a93e b executables 
! c 3 1a93a 1 
  c 2 437e 3 *.c 
  L 437e 
! c 2 1a939 a extensions 
! c 2 1a938 8 C_source 
! c 2 1a937 4 name 
! c 2 1a8bf 8 C_source 
  c 1 4393 
! c 0 1a970 4 
! c 2 1a977 2 e3 
! c 2 1a976 a defaultExe 
! c 3 1a979 1 
  c 2 43a0 2 e3 
  L 43a0 
! c 2 1a978 b executables 
! c 3 1a974 1 
  c 2 43a7 3 *.e 
  L 43a7 
! c 2 1a973 a extensions 
! c 2 1a972 6 Eiffel 
! c 2 1a971 4 name 
! c 2 1a8c0 6 Eiffel 
  c 1 43bc 
! c 0 1a9aa 4 
! c 2 1a9b1 2 e3 
! c 2 1a9b0 a defaultExe 
! c 3 1a9b3 1 
  c 2 43c9 2 e3 
  L 43c9 
! c 2 1a9b2 b executables 
! c 3 1a9ae 4 
  c 2 43d0 3 *.F 
  L 43d0 
--- 17,63 ----
  c 2 4355 5 *.cpp 
  L 4355 
! c 2 22103 a extensions 
! c 2 22102 a CPP_source 
! c 2 22101 4 name 
! c 2 220ce a CPP_source 
  c 1 436a 
! c 0 22146 4 
! c 2 2214d 2 e3 
! c 2 2214c a defaultExe 
! c 3 2214f 1 
  c 2 4377 2 e3 
  L 4377 
! c 2 2214e b executables 
! c 3 2214a 1 
  c 2 437e 3 *.c 
  L 437e 
! c 2 22149 a extensions 
! c 2 22148 8 C_source 
! c 2 22147 4 name 
! c 2 220cf 8 C_source 
  c 1 4393 
! c 0 22180 4 
! c 2 22187 2 e3 
! c 2 22186 a defaultExe 
! c 3 22189 1 
  c 2 43a0 2 e3 
  L 43a0 
! c 2 22188 b executables 
! c 3 22184 1 
  c 2 43a7 3 *.e 
  L 43a7 
! c 2 22183 a extensions 
! c 2 22182 6 Eiffel 
! c 2 22181 4 name 
! c 2 220d0 6 Eiffel 
  c 1 43bc 
! c 0 221ba 4 
! c 2 221c1 2 e3 
! c 2 221c0 a defaultExe 
! c 3 221c3 1 
  c 2 43c9 2 e3 
  L 43c9 
! c 2 221c2 b executables 
! c 3 221be 4 
  c 2 43d0 3 *.F 
  L 43d0 
***************
*** 68,215 ****
  c 2 43d9 5 *.fpp 
  L 43d9 
! c 2 1a9ad a extensions 
! c 2 1a9ac 7 Fortran 
! c 2 1a9ab 4 name 
! c 2 1a8c1 7 Fortran 
  c 1 43ee 
! c 0 1a9f0 4 
! c 2 1a9f7 2 e3 
! c 2 1a9f6 a defaultExe 
! c 3 1a9f9 1 
  c 2 43fb 2 e3 
  L 43fb 
! c 2 1a9f8 b executables 
! c 3 1a9f4 2 
  c 2 4402 3 *.H 
  L 4402 
  c 2 4405 3 *.h 
  L 4405 
! c 2 1a9f3 a extensions 
! c 2 1a9f2 6 Header 
! c 2 1a9f1 4 name 
! c 2 1a8c2 6 Header 
  c 1 441a 
! c 0 1aa2e 4 
! c 2 1aa35 9 surfboard 
! c 2 1aa34 a defaultExe 
! c 3 1aa37 2 
  c 2 4427 2 e3 
  L 4427 
  c 2 442a 9 surfboard 
  L 442a 
! c 2 1aa36 b executables 
! c 3 1aa32 2 
  c 2 4431 5 *.htm 
  L 4431 
  c 2 4434 6 *.html 
  L 4434 
! c 2 1aa31 a extensions 
! c 2 1aa30 4 Html 
! c 2 1aa2f 4 name 
! c 2 1a8c3 4 Html 
  c 1 4449 
! c 0 1aa70 4 
! c 2 1aa77 2 e3 
! c 2 1aa76 a defaultExe 
! c 3 1aa79 1 
  c 2 4456 2 e3 
  L 4456 
! c 2 1aa78 b executables 
! c 3 1aa74 1 
  c 2 445d 6 *.java 
  L 445d 
! c 2 1aa73 a extensions 
! c 2 1aa72 4 Java 
! c 2 1aa71 4 name 
! c 2 1a8c4 4 Java 
  c 1 4472 
! c 0 1aaaa 4 
! c 2 1aab1 2 e3 
! c 2 1aab0 a defaultExe 
! c 3 1aab3 1 
  c 2 447f 2 e3 
  L 447f 
! c 2 1aab2 b executables 
! c 3 1aaae 1 
  c 2 4486 5 *.tex 
  L 4486 
! c 2 1aaad a extensions 
! c 2 1aaac 5 Latex 
! c 2 1aaab 4 name 
! c 2 1a8c5 5 Latex 
  c 1 449b 
! c 0 1aae4 4 
! c 2 1aaeb 2 e3 
! c 2 1aaea a defaultExe 
! c 3 1aaed 1 
  c 2 44a8 2 e3 
  L 44a8 
! c 2 1aaec b executables 
! c 3 1aae8 0 
! c 2 1aae7 a extensions 
! c 2 1aae6 5 Other 
! c 2 1aae5 4 name 
! c 2 1a8c6 5 Other 
! c 2 1a8bb a categories 
! c 0 1a8c8 1 
  C ProjectDir 4 44c5 
  c 2 44c6 18 netscript2/docs/xmldom2/ 11 81 
  c 2 44c7 0  0 
! c 2 1a8ca 18 netscript2/docs/xmldom2/ 
! c 2 1a8c7 b directories 
! C DmBag 5 1a7e4 4 
! c 2 1a81a db b
! C DmDictionary 0 1a7e6 3 
! C DmString 1 1a7f8 39 b
  C DmSet 0 18d22 1 
  C DmString 1 18e7c 5 Other 
  L 18e7c  
! c 1 1a7f7 a categories 
! c 1 1a7e8 9 CHANGELOG 
! c 1 1a7e7 4 name 
! C DmInteger 2 1a7fa 1 
! c 1 1a7f9 9 substMode  
! c 2 1a84f df b
! C DmDictionary 0 1a81b 3 
! C DmString 1 1a82d 38 b
  C DmSet 0 1a66f 1 
  C DmString 1 1a7d4 4 Html 
  L 1a7d4  
! c 1 1a82c a categories 
! c 1 1a81d e CHANGELOG.html 
! c 1 1a81c 4 name 
! C DmInteger 2 1a82f 1 
! c 1 1a82e 9 substMode  
! c 2 1a884 da b
! C DmDictionary 0 1a850 3 
! C DmString 1 1a862 36 b
  C DmSet 0 44fd 1 
  C DmString 1 452b 5 Other 
  L 452b  
! c 1 1a861 a categories 
! c 1 1a852 4 TODO 
! c 1 1a851 4 name 
! C DmInteger 2 1a864 80000001 
! c 1 1a863 9 substMode  
! c 2 1a8b9 d7 b
! C DmDictionary 0 1a885 3 
! C DmString 1 1a897 35 b
  C DmSet 0 453c 1 
  C DmString 1 456a 4 Html 
  L 456a  
! c 1 1a896 a categories 
! c 1 1a887 9 TODO.html 
! c 1 1a886 4 name 
! C DmInteger 2 1a899 1 
! c 1 1a898 9 substMode  
! c 2 1a8ba 5 files 
! c 2 1a7e0 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 1a7df 6 launch 
! c 2 1a7dc 4 make 
! c 2 1a7db 4 make 
! c 2 1a7de 0  
! c 2 1a7dd 8 makeFile 
! c 5 1a7e1 0 
! c 2 1a7e3 7 modules 
! c 2 1a7da 7 xmldom2 
! c 2 1a7d9 4 name 
--- 68,215 ----
  c 2 43d9 5 *.fpp 
  L 43d9 
! c 2 221bd a extensions 
! c 2 221bc 7 Fortran 
! c 2 221bb 4 name 
! c 2 220d1 7 Fortran 
  c 1 43ee 
! c 0 22200 4 
! c 2 22207 2 e3 
! c 2 22206 a defaultExe 
! c 3 22209 1 
  c 2 43fb 2 e3 
  L 43fb 
! c 2 22208 b executables 
! c 3 22204 2 
  c 2 4402 3 *.H 
  L 4402 
  c 2 4405 3 *.h 
  L 4405 
! c 2 22203 a extensions 
! c 2 22202 6 Header 
! c 2 22201 4 name 
! c 2 220d2 6 Header 
  c 1 441a 
! c 0 2223e 4 
! c 2 22245 9 surfboard 
! c 2 22244 a defaultExe 
! c 3 22247 2 
  c 2 4427 2 e3 
  L 4427 
  c 2 442a 9 surfboard 
  L 442a 
! c 2 22246 b executables 
! c 3 22242 2 
  c 2 4431 5 *.htm 
  L 4431 
  c 2 4434 6 *.html 
  L 4434 
! c 2 22241 a extensions 
! c 2 22240 4 Html 
! c 2 2223f 4 name 
! c 2 220d3 4 Html 
  c 1 4449 
! c 0 22280 4 
! c 2 22287 2 e3 
! c 2 22286 a defaultExe 
! c 3 22289 1 
  c 2 4456 2 e3 
  L 4456 
! c 2 22288 b executables 
! c 3 22284 1 
  c 2 445d 6 *.java 
  L 445d 
! c 2 22283 a extensions 
! c 2 22282 4 Java 
! c 2 22281 4 name 
! c 2 220d4 4 Java 
  c 1 4472 
! c 0 222ba 4 
! c 2 222c1 2 e3 
! c 2 222c0 a defaultExe 
! c 3 222c3 1 
  c 2 447f 2 e3 
  L 447f 
! c 2 222c2 b executables 
! c 3 222be 1 
  c 2 4486 5 *.tex 
  L 4486 
! c 2 222bd a extensions 
! c 2 222bc 5 Latex 
! c 2 222bb 4 name 
! c 2 220d5 5 Latex 
  c 1 449b 
! c 0 222f4 4 
! c 2 222fb 2 e3 
! c 2 222fa a defaultExe 
! c 3 222fd 1 
  c 2 44a8 2 e3 
  L 44a8 
! c 2 222fc b executables 
! c 3 222f8 0 
! c 2 222f7 a extensions 
! c 2 222f6 5 Other 
! c 2 222f5 4 name 
! c 2 220d6 5 Other 
! c 2 220cb a categories 
! c 0 220d8 1 
  C ProjectDir 4 44c5 
  c 2 44c6 18 netscript2/docs/xmldom2/ 11 81 
  c 2 44c7 0  0 
! c 2 220da 18 netscript2/docs/xmldom2/ 
! c 2 220d7 b directories 
! C DmBag 5 21ff4 4 
! c 2 2202a e2 b
! C DmDictionary 0 21ff6 3 
! C DmString 1 22008 39 b
  C DmSet 0 18d22 1 
  C DmString 1 18e7c 5 Other 
  L 18e7c  
! c 1 22007 a categories 
! c 1 21ff8 9 CHANGELOG 
! c 1 21ff7 4 name 
! C DmInteger 2 2200a 80000001 
! c 1 22009 9 substMode  
! c 2 2205f df b
! C DmDictionary 0 2202b 3 
! C DmString 1 2203d 38 b
  C DmSet 0 1a66f 1 
  C DmString 1 1a7d4 4 Html 
  L 1a7d4  
! c 1 2203c a categories 
! c 1 2202d e CHANGELOG.html 
! c 1 2202c 4 name 
! C DmInteger 2 2203f 1 
! c 1 2203e 9 substMode  
! c 2 22094 da b
! C DmDictionary 0 22060 3 
! C DmString 1 22072 36 b
  C DmSet 0 44fd 1 
  C DmString 1 452b 5 Other 
  L 452b  
! c 1 22071 a categories 
! c 1 22062 4 TODO 
! c 1 22061 4 name 
! C DmInteger 2 22074 80000001 
! c 1 22073 9 substMode  
! c 2 220c9 d7 b
! C DmDictionary 0 22095 3 
! C DmString 1 220a7 35 b
  C DmSet 0 453c 1 
  C DmString 1 456a 4 Html 
  L 456a  
! c 1 220a6 a categories 
! c 1 22097 9 TODO.html 
! c 1 22096 4 name 
! C DmInteger 2 220a9 1 
! c 1 220a8 9 substMode  
! c 2 220ca 5 files 
! c 2 21ff0 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 21fef 6 launch 
! c 2 21fec 4 make 
! c 2 21feb 4 make 
! c 2 21fee 0  
! c 2 21fed 8 makeFile 
! c 5 21ff1 0 
! c 2 21ff3 7 modules 
! c 2 21fea 7 xmldom2 
! c 2 21fe9 4 name 

[NetScript CVS] CVS: netscript2/docs/netscript/src wipeout.project,NONE,1.1

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/docs/netscript/src
In directory sc8-pr-cvs1:/tmp/cvs-serv5146/src

Added Files:
	wipeout.project 
Log Message:
* examples

--- NEW FILE: wipeout.project ---
b
C DmDictionary 0 12e64 8 
c 0 12ea9 9 
C Category 1 f073 
c 0 12ee3 4 
C DmString 2 12eea 2 e3 
c 2 12ee9 a defaultExe 
C DmSet 3 12eec 1 
c 2 f085 2 e3 
L f085 
c 2 12eeb b executables 
c 3 12ee7 3 
c 2 f07b 3 *.C 
L f07b 
c 2 f07d 4 *.cc 
L f07d 
c 2 f07f 5 *.cpp 
L f07f 
c 2 12ee6 a extensions 
c 2 12ee5 a CPP_source 
c 2 12ee4 4 name 
c 2 12eab a CPP_source 
c 1 f089 
c 0 12f29 4 
c 2 12f30 2 e3 
c 2 12f2f a defaultExe 
c 3 12f32 1 
c 2 f097 2 e3 
L f097 
c 2 12f31 b executables 
c 3 12f2d 1 
c 2 f091 3 *.c 
L f091 
c 2 12f2c a extensions 
c 2 12f2b 8 C_source 
c 2 12f2a 4 name 
c 2 12eac 8 C_source 
c 1 f09b 
c 0 12f63 4 
c 2 12f6a 2 e3 
c 2 12f69 a defaultExe 
c 3 12f6c 1 
c 2 f0a9 2 e3 
L f0a9 
c 2 12f6b b executables 
c 3 12f67 1 
c 2 f0a3 3 *.e 
L f0a3 
c 2 12f66 a extensions 
c 2 12f65 6 Eiffel 
c 2 12f64 4 name 
c 2 12ead 6 Eiffel 
c 1 f0ad 
c 0 12f9d 4 
c 2 12fa4 2 e3 
c 2 12fa3 a defaultExe 
c 3 12fa6 1 
c 2 f0c1 2 e3 
L f0c1 
c 2 12fa5 b executables 
c 3 12fa1 4 
c 2 f0b5 3 *.F 
L f0b5 
c 2 f0b7 3 *.f 
L f0b7 
c 2 f0b9 5 *.for 
L f0b9 
c 2 f0bb 5 *.fpp 
L f0bb 
c 2 12fa0 a extensions 
c 2 12f9f 7 Fortran 
c 2 12f9e 4 name 
c 2 12eae 7 Fortran 
c 1 f0c5 
c 0 12fe3 4 
c 2 12fea 2 e3 
c 2 12fe9 a defaultExe 
c 3 12fec 1 
c 2 f0d5 2 e3 
L f0d5 
c 2 12feb b executables 
c 3 12fe7 2 
c 2 f0cd 3 *.H 
L f0cd 
c 2 f0cf 3 *.h 
L f0cf 
c 2 12fe6 a extensions 
c 2 12fe5 6 Header 
c 2 12fe4 4 name 
c 2 12eaf 6 Header 
c 1 f0d9 
c 0 13021 4 
c 2 13028 9 surfboard 
c 2 13027 a defaultExe 
c 3 1302a 2 
c 2 f0e9 2 e3 
L f0e9 
c 2 f0eb 9 surfboard 
L f0eb 
c 2 13029 b executables 
c 3 13025 2 
c 2 f0e1 5 *.htm 
L f0e1 
c 2 f0e3 6 *.html 
L f0e3 
c 2 13024 a extensions 
c 2 13023 4 Html 
c 2 13022 4 name 
c 2 12eb0 4 Html 
c 1 f0ef 
c 0 13063 4 
c 2 1306a 2 e3 
c 2 13069 a defaultExe 
c 3 1306c 1 
c 2 f0fd 2 e3 
L f0fd 
c 2 1306b b executables 
c 3 13067 1 
c 2 f0f7 6 *.java 
L f0f7 
c 2 13066 a extensions 
c 2 13065 4 Java 
c 2 13064 4 name 
c 2 12eb1 4 Java 
c 1 f101 
c 0 1309d 4 
c 2 130a4 2 e3 
c 2 130a3 a defaultExe 
c 3 130a6 1 
c 2 f10f 2 e3 
L f10f 
c 2 130a5 b executables 
c 3 130a1 1 
c 2 f109 5 *.tex 
L f109 
c 2 130a0 a extensions 
c 2 1309f 5 Latex 
c 2 1309e 4 name 
c 2 12eb2 5 Latex 
c 1 f113 
c 0 130d7 4 
c 2 130de 2 e3 
c 2 130dd a defaultExe 
c 3 130e0 1 
c 2 f11e 2 e3 
L f11e 
c 2 130df b executables 
c 3 130db 0 
c 2 130da a extensions 
c 2 130d9 5 Other 
c 2 130d8 4 name 
c 2 12eb3 5 Other 
c 2 12ea8 a categories 
c 0 12eb5 1 
C ProjectDir 4 f145 
c 2 f146 1e netscript2/docs/netscript/src/ 11 81 
c 2 f147 0  0 
c 2 12eb7 1e netscript2/docs/netscript/src/ 
c 2 12eb4 b directories 
C DmBag 5 12e70 1 
c 2 12ea6 e4 b
C DmDictionary 0 12e72 3 
C DmString 1 12e84 39 b
C DmSet 0 12cef 1 
C DmString 1 12e59 5 Other 
L 12e59  
c 1 12e83 a categories 
c 1 12e74 11 ExampleLibrary.pm 
c 1 12e73 4 name 
C DmInteger 2 12e86 1 
c 1 12e85 9 substMode  
c 2 12ea7 5 files 
c 2 12e6c 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 12e6b 6 launch 
c 2 12e68 4 make 
c 2 12e67 4 make 
c 2 12e6a 0  
c 2 12e69 8 makeFile 
c 5 12e6d 0 
c 2 12e6f 7 modules 
c 2 12e66 3 src 
c 2 12e65 4 name 

[NetScript CVS] CVS: netscript2/docs/netscript/examples wipeout.project,NONE,1.1

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/docs/netscript/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv5146/examples

Added Files:
	wipeout.project 
Log Message:
* examples

--- NEW FILE: wipeout.project ---
b
C DmDictionary 0 15906 8 
c 0 15917 9 
C Category 1 11513 
c 0 15951 4 
C DmString 2 15958 2 e3 
c 2 15957 a defaultExe 
C DmSet 3 1595a 1 
c 2 11525 2 e3 
L 11525 
c 2 15959 b executables 
c 3 15955 3 
c 2 1151b 3 *.C 
L 1151b 
c 2 1151d 4 *.cc 
L 1151d 
c 2 1151f 5 *.cpp 
L 1151f 
c 2 15954 a extensions 
c 2 15953 a CPP_source 
c 2 15952 4 name 
c 2 15919 a CPP_source 
c 1 11529 
c 0 15997 4 
c 2 1599e 2 e3 
c 2 1599d a defaultExe 
c 3 159a0 1 
c 2 11537 2 e3 
L 11537 
c 2 1599f b executables 
c 3 1599b 1 
c 2 11531 3 *.c 
L 11531 
c 2 1599a a extensions 
c 2 15999 8 C_source 
c 2 15998 4 name 
c 2 1591a 8 C_source 
c 1 1153b 
c 0 159d1 4 
c 2 159d8 2 e3 
c 2 159d7 a defaultExe 
c 3 159da 1 
c 2 11549 2 e3 
L 11549 
c 2 159d9 b executables 
c 3 159d5 1 
c 2 11543 3 *.e 
L 11543 
c 2 159d4 a extensions 
c 2 159d3 6 Eiffel 
c 2 159d2 4 name 
c 2 1591b 6 Eiffel 
c 1 1154d 
c 0 15a0b 4 
c 2 15a12 2 e3 
c 2 15a11 a defaultExe 
c 3 15a14 1 
c 2 11561 2 e3 
L 11561 
c 2 15a13 b executables 
c 3 15a0f 4 
c 2 11555 3 *.F 
L 11555 
c 2 11557 3 *.f 
L 11557 
c 2 11559 5 *.for 
L 11559 
c 2 1155b 5 *.fpp 
L 1155b 
c 2 15a0e a extensions 
c 2 15a0d 7 Fortran 
c 2 15a0c 4 name 
c 2 1591c 7 Fortran 
c 1 11565 
c 0 15a51 4 
c 2 15a58 2 e3 
c 2 15a57 a defaultExe 
c 3 15a5a 1 
c 2 11575 2 e3 
L 11575 
c 2 15a59 b executables 
c 3 15a55 2 
c 2 1156d 3 *.H 
L 1156d 
c 2 1156f 3 *.h 
L 1156f 
c 2 15a54 a extensions 
c 2 15a53 6 Header 
c 2 15a52 4 name 
c 2 1591d 6 Header 
c 1 11579 
c 0 15a8f 4 
c 2 15a96 9 surfboard 
c 2 15a95 a defaultExe 
c 3 15a98 2 
c 2 11589 2 e3 
L 11589 
c 2 1158b 9 surfboard 
L 1158b 
c 2 15a97 b executables 
c 3 15a93 2 
c 2 11581 5 *.htm 
L 11581 
c 2 11583 6 *.html 
L 11583 
c 2 15a92 a extensions 
c 2 15a91 4 Html 
c 2 15a90 4 name 
c 2 1591e 4 Html 
c 1 1158f 
c 0 15ad1 4 
c 2 15ad8 2 e3 
c 2 15ad7 a defaultExe 
c 3 15ada 1 
c 2 1159d 2 e3 
L 1159d 
c 2 15ad9 b executables 
c 3 15ad5 1 
c 2 11597 6 *.java 
L 11597 
c 2 15ad4 a extensions 
c 2 15ad3 4 Java 
c 2 15ad2 4 name 
c 2 1591f 4 Java 
c 1 115a1 
c 0 15b0b 4 
c 2 15b12 2 e3 
c 2 15b11 a defaultExe 
c 3 15b14 1 
c 2 115af 2 e3 
L 115af 
c 2 15b13 b executables 
c 3 15b0f 1 
c 2 115a9 5 *.tex 
L 115a9 
c 2 15b0e a extensions 
c 2 15b0d 5 Latex 
c 2 15b0c 4 name 
c 2 15920 5 Latex 
c 1 115b3 
c 0 15b45 4 
c 2 15b4c 2 e3 
c 2 15b4b a defaultExe 
c 3 15b4e 1 
c 2 115be 2 e3 
L 115be 
c 2 15b4d b executables 
c 3 15b49 0 
c 2 15b48 a extensions 
c 2 15b47 5 Other 
c 2 15b46 4 name 
c 2 15921 5 Other 
c 2 15916 a categories 
c 0 15923 1 
C ProjectDir 4 115e5 
c 2 115e6 23 netscript2/docs/netscript/examples/ 11 81 
c 2 115e7 0  0 
c 2 15925 23 netscript2/docs/netscript/examples/ 
c 2 15922 b directories 
C DmBag 5 15913 0 
c 2 15915 5 files 
c 2 1590e 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 1590d 6 launch 
c 2 1590a 4 make 
c 2 15909 4 make 
c 2 1590c 0  
c 2 1590b 8 makeFile 
c 5 1590f 1 
c 2 15911 d eventcalendar 
c 2 15912 7 modules 
c 2 15908 8 examples 
c 2 15907 4 name 

[NetScript CVS] CVS: netscript2/docs/netscript REQUIREMENTS.html,1.1,1.2

[Jan T. <de...@us...>]

Update of /cvsroot/net-script/netscript2/docs/netscript
In directory sc8-pr-cvs1:/tmp/cvs-serv5146

Modified Files:
	REQUIREMENTS.html 
Log Message:
* examples

Index: REQUIREMENTS.html
===================================================================
RCS file: /cvsroot/net-script/netscript2/docs/netscript/REQUIREMENTS.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** REQUIREMENTS.html	31 May 2002 19:08:09 -0000	1.1
--- REQUIREMENTS.html	1 May 2003 10:42:18 -0000	1.2
***************
*** 13,17 ****
  At this time NetScript II needs the following prerequisites to run:
  
!     * Perl 5.6 or higher
      - Needed Modules:
          * XML::Parser
--- 13,17 ----
  At this time NetScript II needs the following prerequisites to run:
  
!     * Perl 5.005_02 or higher
      - Needed Modules:
          * XML::Parser
***************
*** 27,30 ****
--- 27,31 ----
          * XML::XPath*     (for XSLT-support)
          * Test::Unit      (for unit tests)
+         * DBI + Driver    (for Database-Support)
  
  (*) = included in distribution of NetScript2