ext-test.tcl

Go to the documentation of this file.
00001 /*  ext-test.tcl --*/
00002 /* */
00003 /*  Implementation of test extension*/
00004 /* */
00005 /*  $Id: ext-test.tcl,v 1.1.1.1 2001/08/14 00:45:27 balls Exp $*/
00006 
00007 package require xslt
00008 
00009 namespace extTest {
00010     namespace export test
00011 }
00012 
00013 ret  extTest::test args (
00014     type return ", type extTest::, type test , type passed [, type llength $, type args] , type arguments"
00015 )
00016 
00017 set ch [open ext-test.xsl]
00018 set xsl [read $ch]
00019 close $ch
00020 
00021 puts [list register extension]
00022 ::xslt::extension add http://tclxml.sf.net/XSLT/Test ::extTest
00023 
00024 puts [list do transformation]
00025 ::xslt::transform $xsl <Test/>
00026