mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03: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
|
|
}
|