From: Vince Darley Date: Thu, 6 Sep 2001 21:20:51 +0000 (+0000) Subject: changes X-Git-Tag: vfs-1-2~112 X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=a44ed2731aef8bd9d5268311273951d4b4c05ea6;p=tclvfs changes --- diff --git a/ChangeLog b/ChangeLog index 8a13a03..968a410 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-09-07 Vince Darley + * Further minor improvements, unfortunately requires + new release of Tcl from cvs (today). Also added + 'install' target to vc++ makefile. + 2001-08-29 Vince Darley * can now mount root volumes which end in separator characters (such as 'ftp://'). The code handles path diff --git a/library/vfs.tcl b/library/vfs.tcl index 7d886e5..a2b2fb3 100644 --- a/library/vfs.tcl +++ b/library/vfs.tcl @@ -59,4 +59,6 @@ namespace eval ::vfs { puts stderr "$tag: [expr {${cnt'} - $cnt}] ops, $time us" return -code $rc -errorcode $ec -errorinfo $ei $ret } + # for backwards compatibility + proc normalize {path} { ::file normalize $path } } diff --git a/win/makefile.vc b/win/makefile.vc index 9c1cb7b..964f190 100644 --- a/win/makefile.vc +++ b/win/makefile.vc @@ -38,6 +38,7 @@ PROJECT = vfs$(DLL_VERSION)$(DBGX) ROOT = .. WINDIR = $(ROOT)\win GENERICDIR = $(ROOT)\generic +LIBDIR = $(ROOT)\library TOOLS32 = C:\Progra~1\devstudio\vc TOOLS32_rc = C:\Progra~1\devstudio\sharedide @@ -53,6 +54,7 @@ include32 = -I"$(TOOLS32)\include" TCL = c:\progra~1\tcl TCLLIB = $(TCL)\lib\tclstub84$(DBGX).lib +INSTALLDIR = $(TCL)\lib\vfs1.0 ###################################################################### # Compile flags @@ -145,6 +147,11 @@ DLLOBJS = \ all: $(PROJECT).dll +install: $(PROJECT).dll + -@md $(INSTALLDIR) + $(CP) $(PROJECT).dll $(INSTALLDIR)\$(PROJECT).dll + $(CP) $(LIBDIR)\*.tcl $(INSTALLDIR) + $(CP) $(LIBDIR)\tclIndex $(INSTALLDIR) $(PROJECT).dll: $(DLLOBJS) $(link32) $(ldebug) $(dlllflags) $(TCLLIB) \