Fossil

Check-in [cc008eba]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Filter out inline shell variables from tclConfig.sh because they break the build on CentOS 5 with TCL 8.4. (Edit: Fixed username.)
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | autosetup
Files: files | file ages | folders
SHA1: cc008ebab7eda7e7ebc783a2413afcc2105a080d
User & Date: bcsmith 2012-05-11 21:17:06.288
Original Comment: Filter out inline shell variables from tclConfig.sh because they break the build on CentOS 5 with TCL 8.4.
Original User & Date: linuxfood 2012-05-11 21:17:06.288
Context
2012-06-10
22:31
Merge the autosetup and winsrv branches into trunk. ... (check-in: 1ac9cece user: drh tags: trunk)
2012-05-11
21:17
Filter out inline shell variables from tclConfig.sh because they break the build on CentOS 5 with TCL 8.4. (Edit: Fixed username.) ... (Closed-Leaf check-in: cc008eba user: bcsmith tags: autosetup)
2012-05-10
12:22
Update the built-in SQLite to the 3.7.12 beta as of 2012-05-10. ... (check-in: 0141e20f user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to autosetup/local.tcl.
︙︙
18
19
20
21
22
23
24

25
26
27
28
29

		}
	}
}

proc parse-tclconfig-sh-file {filename} {
	foreach line [split [readfile $filename] \n] {
		if {[regexp {^(TCL_[^=]*)=(.*)$} $line -> name value]} {

			set tclconfig($name) [string trim $value ']
		}
	}
	return [array get tclconfig]
}








>






18
19
20
21
22
23
24
25
26
27
28
29
30

		}
	}
}

proc parse-tclconfig-sh-file {filename} {
	foreach line [split [readfile $filename] \n] {
		if {[regexp {^(TCL_[^=]*)=(.*)$} $line -> name value]} {
			set value [regsub -all {\$\{.*\}} $value ""]
			set tclconfig($name) [string trim $value ']
		}
	}
	return [array get tclconfig]
}