Tcl Source Code

Artifact d9e4aec366ec6423b08d04e7a272847b1bdfcff5:

Attachment "noboom_hcw.txt" to ticket [427644ffff] added by davygrvy 2001-05-28 02:25:47.

---

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
  
  #