mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 09:30:48 +08:00
17 lines
338 B
Plaintext
17 lines
338 B
Plaintext
# File : begin
|
|
|
|
proc changeconf {value conf} {
|
|
set res ""
|
|
foreach iter [split $conf \n] {
|
|
if {![regexp {!.*} $iter]} {
|
|
if {[regexp {(provider.*:)} $iter scope]} {
|
|
append res "$scope $value \t\n"
|
|
}
|
|
if {[regexp {(global.*:)} $iter scope]} {
|
|
append res "$iter\n"
|
|
}
|
|
}
|
|
}
|
|
return $res
|
|
}
|