Updated 2008-11-21 20:02:50 by LV

What: Storage
 Where: http://www.patthoyts.tk/tclstorage/
 Description: This is a package for Tcl on Windows that gives scripts
	access to structured storages.  This package includes a Tcl
	virtual filesystem to simplify the use of these composite files.
	Currently at version 0.0 .
 Updated: 03/2007
 Contact: See web site

See TclVFS
 package require Storage
 # storage access example
 set stg [storage open sample.doc r]  ;# open the structured storage
 set chan [$stg open WordDocument r]  ;# open a data stream as a tcl channel
 set data [read $chan]		;# read the data
 close $chan			  ;# close the tcl channel and stream
 $stg close			   ;# release the structured storage

Version 1.1.0 includes some support for accessing and modifying property sets within such storages. This includes the SummaryInformation that is available for Office documents.
 # tclstorage property set example.
 set stg [storage open sample.doc r+]
 set props [$stg propertyset "\005SummaryInformation" r+]
 $props set author "$tcl_platform(user)"
 $props set title  "Sample Document"
 $props close
 $stg close

  package require Storage
  set f [storage open "word.doc" "r"]
  set p [$f propertyset \005SummaryInformation r]
  set title [$p get title]
  foreach item [$p names] { puts "$item [$p get $item]" }