Index: Makefile.in =================================================================== RCS file: /cvsroot/tclpro/tclcompiler/Makefile.in,v retrieving revision 1.8 diff -u -u -p -r1.8 Makefile.in --- Makefile.in 4 Oct 2002 05:32:58 -0000 1.8 +++ Makefile.in 26 Dec 2003 01:20:15 -0000 @@ -271,7 +271,7 @@ install-lib-binaries: fi; \ fi; \ done - $(TCLSH) mkIndex.tcl $(tclcompiler_LIB_FILE) + cd $(DESTDIR)/ && $(TCLSH) $(CURDIR)/mkIndex.tcl $(tclcompiler_LIB_FILE) #======================================================================== # Install binary executables (e.g. .exe files) Index: README =================================================================== RCS file: README diff -N README --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ README 26 Dec 2003 01:20:15 -0000 @@ -0,0 +1,30 @@ + TclPro ByteCode Compiler + ------------------------ + +The compiler package transforms tcl scripts into an obfuscated bytecode +representation suitable for distribution (e.g. when users need to be prevented +from seeing and modifying script code). + +It is loaded with + + package require compiler + +which defines two new commands 'compile' and 'getBytecodeExtension' in the +compiler:: namespace. + +A script 'myscript.tcl' is compiled with + + compiler::compile myscript.tcl + +the resulting bytecode is written out to file 'myscript.tbc'. + +A custom name for the output file can be specified as a second argument to the +compile command: + + compiler::compile myscript.tcl mybcscript.tbc + +Bytecompiled files are evaluated by sourcing (package tbcload has to be +available) + + source myscript.tbc + Index: mkIndex.tcl.in =================================================================== RCS file: /cvsroot/tclpro/tclcompiler/mkIndex.tcl.in,v retrieving revision 1.3 diff -u -u -p -r1.3 mkIndex.tcl.in --- mkIndex.tcl.in 2 Dec 2002 17:44:03 -0000 1.3 +++ mkIndex.tcl.in 26 Dec 2003 01:20:15 -0000 @@ -89,7 +89,7 @@ set libdir @libdir@ set package @PACKAGE@ set version @VERSION@ -cd $libdir +cd ./$libdir puts "Making pkgIndex.tcl in [file join [pwd] $package]" if {$tcl_platform(platform) == "unix"} {