Modified build/web/kitcreator.vfs/index.rvt from [a02280f000] to [72c38390f4].

   123    123   				}
   124    124   				"option_staticlibssl" {
   125    125   					set build_options(staticlibssl) 1
   126    126   				}
   127    127   				"option_staticpkgs" {
   128    128   					set build_options(staticpkgs) 1
   129    129   				}
          130  +				"option_tclutfmax6" {
          131  +					set build_options(tclutfmax6) 1
          132  +				}
   130    133   				"option_storage" {
   131    134   					switch -- $args($arg) {
   132    135   						"mk4" - "zip" - "cvfs" {
   133    136   							set build_options(storage) $args($arg)
   134    137   						}
   135    138   					}
   136    139   				}
................................................................................
   363    366   <? } ?>
   364    367               <input type="checkbox" name="option_threaded">Kit: Threaded<br>
   365    368               <input type="checkbox" name="option_debug">Kit: Debugging Build<br>
   366    369               <input type="checkbox" name="option_kitdll" id="option_kitdll">Kit: Build Library (KitDLL)<br>
   367    370               <input type="checkbox" name="option_dynamictk" id="option_dynamictk">Kit: Always link Tk dynamically (if Tk is built)<br>
   368    371               <input type="checkbox" name="option_minbuild">Kit: "Minimal" build (remove extra packages shipped as part of Tcl and reduce encodings)<br>
   369    372               <input type="checkbox" name="option_staticpkgs">Kit: Statically link packages in pkgs directory<br>
          373  +            <input type="checkbox" name="option_tclutfmax6">Kit: TCL_UTF_MAX=6 (incompatibility with standard Tcl)<br>
   370    374               <input type="checkbox" name="option_staticlibssl">TLS: Statically link to LibSSL
   371    375             </td>
   372    376           </tr>
   373    377   	<tr>
   374    378   		<td>Kit Storage:</td>
   375    379   		<td>
   376    380   			<select name="option_storage">

Modified build/web/process_queue from [7535fa5b61] to [611cdd4af4].

   109    109   					set ::env(KC_TLS_LINKSSLSTATIC) 1
   110    110   				}
   111    111   			}
   112    112   			"staticpkgs" {
   113    113   				if {$value} {
   114    114   					set ::env(KC_TCL_STATICPKGS) 1
   115    115   				}
          116  +			}
          117  +			"tclutfmax6" {
          118  +				if {$value} {
          119  +					set ::env(KC_TCL_UTF_MAX) 6
          120  +				}
   116    121   			}
   117    122   			"staticmk4" {
   118    123   			}
   119    124   		}
   120    125   	}
   121    126   
   122    127   	catch {
................................................................................
   128    133   	}
   129    134   
   130    135   	catch {
   131    136   		set cmd [list $script $buildinfo(tcl_version) {*}$args]
   132    137   		set fd [open "${outfile}.log" w+]
   133    138   		puts $fd "Running: export KITCREATOR_PKGS=\"$::env(KITCREATOR_PKGS)\""
   134    139   
   135         -		foreach variable [list STRIP STATICTK KITCREATOR_MINENCODINGS KITCREATOR_MINBUILD KC_TLS_LINKSSLSTATIC KC_TCL_STATICPKGS] {
          140  +		foreach variable [list STRIP STATICTK KITCREATOR_MINENCODINGS KITCREATOR_MINBUILD KC_TLS_LINKSSLSTATIC KC_TCL_STATICPKGS KC_TCL_UTF_MAX] {
   136    141   			if {[info exists ::env($variable)]} {
   137    142   				puts $fd "Running: export $variable=\"$::env($variable)\""
   138    143   			}
   139    144   		}
   140    145   
   141    146   		puts $fd "Running: $cmd"
   142    147   		close $fd

Added tcl/patchscripts/tcl-utf-max.sh version [774cb52df3].

            1  +#! /bin/bash
            2  +
            3  +if [ -z "${KC_TCL_UTF_MAX}" ]; then
            4  +	exit 0
            5  +fi
            6  +
            7  +sed 's@^# *define TCL_UTF_MAX .*$@#define TCL_UTF_MAX '"${KC_TCL_UTF_MAX}"'@' generic/tcl.h > generic/tcl.h.new
            8  +cat generic/tcl.h.new > generic/tcl.h
            9  +rm -f generic/tcl.h.new
           10  +
           11  +exit 0