Index: makefile.vc =================================================================== RCS file: /cvsroot/tcl/tcl/win/makefile.vc,v retrieving revision 1.60 diff -c -r1.60 makefile.vc *** makefile.vc 2001/01/31 22:27:53 1.60 --- makefile.vc 2001/05/27 19:17:41 *************** *** 455,460 **** --- 455,479 ---- $(TCLRTF): $(MAN2TCL).exe $(TCLSH) cd $(TCLTOOLS) + ..\win\$(TCLSH) @<< + file rename $(TCLHPJ) $(TCLHPJ).o + set fhnd [open $(TCLHPJ).o r] + set newfhnd [open $(TCLHPJ) w] + fconfigure $$newfhnd -translation {crlf} + seek $$fhnd 0 end + set theEnd [tell $$fhnd] + seek $$fhnd 0 start + fconfigure $$fhnd -translation binary -buffersize $$theEnd + set rawFile [read $$fhnd $$theEnd] + close $$fhnd + regsub -all {(\r)|(\r){1,2}(\n)} $$rawFile "\n" rawFile + set lineList [split $$rawFile \n] + foreach line $$lineList { + puts $$newfhnd $$line + } + close $$newfhnd + file delete $(TCLHPJ).o + << ..\win\$(TCLSH) $(MAN2HELP) $(NAMEPREFIX) $(VERSION) $(ROOT)/doc ../../tk$(DOTVERSION)/doc #