multi.tcl

Go to the documentation of this file.
00001 /*  ### ### ### ######### ######### #########*/
00002 /** 
00003  * (c) 2007 Andreas Kupries.
00004  */
00005 
00006 /*  Multi file operations. Singleton based on the multiop processor.*/
00007 
00008 /*  ### ### ### ######### ######### #########*/
00009 /*  Requisites*/
00010 
00011 package require fileutil::multi::op
00012 
00013 /*  ### ### ### ######### ######### #########*/
00014 /*  API & Implementation*/
00015 
00016 namespace ::fileutil {}
00017 
00018 /*  Create the multiop processor object and make its do method the main*/
00019 /*  command of this package.*/
00020 ::fileutil::multi::op ::fileutil::multi::obj
00021 
00022 ret  ::fileutil::multi (type args) {
00023     return [uplevel 1 [linsert $args 0 ::fileutil::multi::obj do]]
00024 }
00025 
00026 /*  ### ### ### ######### ######### #########*/
00027 /*  Ready*/
00028 
00029 package provide fileutil::multi 0.1
00030