From 5fb452f37fe9daae91c42e2e90eab480d09afb49 Mon Sep 17 00:00:00 2001 From: Stefan Frederik Date: Thu, 27 Oct 2022 19:32:46 +0200 Subject: [PATCH] Further hardening of source_user_tcl_files against files containing strange characters including ". --- XSchemWin/XSchemWix/doc.wxs | 129 +++++- XSchemWin/XSchemWix/heat_doc.wxs | 698 +++++++++++++++++-------------- src/xschem.tcl | 2 +- 3 files changed, 503 insertions(+), 326 deletions(-) diff --git a/XSchemWin/XSchemWix/doc.wxs b/XSchemWin/XSchemWix/doc.wxs index 7fa70591..bd24a6fe 100644 --- a/XSchemWin/XSchemWix/doc.wxs +++ b/XSchemWin/XSchemWix/doc.wxs @@ -69,27 +69,15 @@ + + + - - - - - - - - - - - - - - - @@ -141,6 +129,18 @@ + + + + + + + + + + + + @@ -318,6 +318,9 @@ + + + @@ -399,6 +402,12 @@ + + + + + + @@ -657,9 +666,67 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -903,13 +970,9 @@ + - - - - - @@ -927,6 +990,10 @@ + + + + @@ -986,6 +1053,7 @@ + @@ -1013,6 +1081,8 @@ + + @@ -1099,7 +1169,26 @@ + + + + + + + + + + + + + + + + + + + diff --git a/XSchemWin/XSchemWix/heat_doc.wxs b/XSchemWin/XSchemWix/heat_doc.wxs index 76904e05..90042189 100644 --- a/XSchemWin/XSchemWix/heat_doc.wxs +++ b/XSchemWin/XSchemWix/heat_doc.wxs @@ -3,877 +3,943 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + - + - - - - - - - - - - - - - - - - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + + + + + + + + + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + + + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -903,13 +969,9 @@ + - - - - - @@ -927,6 +989,10 @@ + + + + @@ -986,6 +1052,7 @@ + @@ -1013,6 +1080,8 @@ + + @@ -1099,7 +1168,26 @@ + + + + + + + + + + + + + + + + + + + diff --git a/src/xschem.tcl b/src/xschem.tcl index 4d413dfb..38ff455a 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -6047,7 +6047,7 @@ proc set_replace_key_binding {} { proc source_user_tcl_files {} { global tcl_files foreach i $tcl_files { - uplevel #0 "source $i" + uplevel #0 [list source $i] } }