From 2a0e0615fa4106bd1957a7c4f4ba748eb309a88a Mon Sep 17 00:00:00 2001 From: kokalj Date: Wed, 6 Apr 2011 11:06:10 +0000 Subject: [PATCH] no more needed (use the $TOPDIR/dev-tools/check_gui instead) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7673 c92efa57-630b-4861-b058-cf58834340f0 --- GUI/PWgui/sys_utils/check_atomic_vars.tcl | 140 -------------------- GUI/PWgui/sys_utils/check_ph_vars.tcl | 154 ---------------------- GUI/PWgui/sys_utils/check_pp_vars.tcl | 154 ---------------------- GUI/PWgui/sys_utils/check_pw_vars.tcl | 153 --------------------- 4 files changed, 601 deletions(-) delete mode 100644 GUI/PWgui/sys_utils/check_atomic_vars.tcl delete mode 100644 GUI/PWgui/sys_utils/check_ph_vars.tcl delete mode 100644 GUI/PWgui/sys_utils/check_pp_vars.tcl delete mode 100644 GUI/PWgui/sys_utils/check_pw_vars.tcl diff --git a/GUI/PWgui/sys_utils/check_atomic_vars.tcl b/GUI/PWgui/sys_utils/check_atomic_vars.tcl deleted file mode 100644 index c674cbe44..000000000 --- a/GUI/PWgui/sys_utils/check_atomic_vars.tcl +++ /dev/null @@ -1,140 +0,0 @@ -set atomic_module_dir [file join $env(PWGUI) modules atomic] -set atomic_module_file [file join $atomic_module_dir atomic.tcl] -set input_atomic_file INPUT_LD1 - -puts "" -puts "**************************************************************************" -puts "Checking the consistency of variables between atomic.tcl and INPUT_LD1 files !!!" -puts "***************************************************************************" -puts "" -puts "atomic_module = $atomic_module_file" -puts "input_atomic = $input_atomic_file" - -global atomic_module_var input_atomic_var - -# initialization -lappend auto_path [file join $env(GUIB) lib] -package require tclu - -namespace eval ::guib {} - -# disable the source command -rename source tcl_source -proc source {args} { return 1} - -######################################################################## -# the GUIB keywords -######################################################################## - -# 1.1 object keywords: -#-------------------------- -set this dummy -proc module {args} { global this; eval [lindex $args end] } -proc page {args} { global this; eval [lindex $args end] } -proc namelist {args} { global this; eval [lindex $args end] } -proc group {args} { global this; eval [lindex $args end] } -proc optional {args} { global this; eval [lindex $args end] } -proc required {args} { global this; eval [lindex $args end] } -proc line {args} { global this; eval [lindex $args end] } - -# 1.2 item keywords: -#------------------------ -proc var {ident args} { global atomic_module_var; set atomic_module_var([string tolower $ident]) 1 } -proc auxilvar {args} { return 1 } -proc dimension {ident args} { global atomic_module_var; set atomic_module_var([string tolower $ident]) 1 } -proc text {ident args} { global atomic_module_var; set atomic_module_var([string tolower $ident]) 1 } -proc table {ident args} { global atomic_module_var; set atomic_module_var([string tolower $ident]) 1 } -proc keyword {ident args} { return 1; # nothing so far } -proc help {ident args} { return 1; # nothing so far } - -# 1.3 event-driven keywords: -#-------------------------------- -proc tracevar {args} { return 1 } -proc widget {args} { return 1 } -proc groupwidget {args} { return 1 } -proc widgetconfigure {args} { return 1 } -proc widgetcget {args} { return 1 } -proc keywordconfigure {args} { return 1 } - -# 1.4 getsets keywords, i.e. keyword associated with the variables: -#------------------------------------------------------------------------ -proc varvalue {args} { return 1 } -proc vartextvalue {args} { return 1 } -proc varref {args} { return 1 } -proc varset {args} { return 1 } -proc dimvalue {args} { return 1 } -proc dimtextvalue {args} { return 1 } -proc dimref {args} { return 1 } -proc dimset {args} { return 1 } -proc tablevalue {args} { return 1 } -proc tabletextvalue {args} { return 1 } -proc tableref {args} { return 1 } -proc tableset {args} { return 1 } - -# 1.5 special keywords: -#--------------------------- -proc readfilter {args} { return 1 } -proc writefilter {args} { return 1 } -proc postprocess {args} { return 1 } -proc this {args} { return 1 } -proc loaddata {args} { return 1 } -proc valueToTextvalue {args} { return 1 } -proc textvalueToValue {args} { return 1 } -proc scriptvar {args} { return 1 } - -# 1.6 decoration keywords: -#------------------------------ -proc packwidgets {args} { return 1 } -proc separator {args} { return 1 } - -# -# parse the atomic.tcl -# -tcl_source $atomic_module_file - -# -# parse the INPUT_LD1 file and Chek the INPUT_LD1 against the atomic.tcl -# - -puts "----------------------------" -puts "Checking INPUT_LD1 vs. atomic.tcl" -puts "----------------------------" - -set in_nl 0 -foreach line [split [tclu::readFile $input_atomic_file] \n] { - if { [regexp -- {^[a-z]+} $line] } { - regsub -all \" $line ' line - set var [string tolower [lindex $line 0]] - # check if there is more then var on the line - # rule for qualification: var1, var2 - if { [string trim $var ,] != $var } { - set var [string trim $var ,] - puts " WARNING: (variable ${var}) line may containg more then one variable" - } - #puts "variable: $var" - set input_atomic_var($var) 1 - - if { ! [info exists atomic_module_var($var)] } { - puts "MESSAGE: variable $var is defined in INPUT_LD1 but not in atomic.tcl" - } - } -} - - -# -# Cheking atomic.tcl vs. INPUT_LD1 -# - -puts "" -puts "----------------------------" -puts "Checking atomic.tcl vs. INPUT_LD1" -puts "----------------------------" - -foreach elem [array names atomic_module_var] { - if { ! [info exists input_atomic_var([string tolower $elem])] } { - # do not diaplay the warning for atomic_coordinates_* - if { ! [string match atomic_coordinates_* $elem] } { - puts "WARNING: variable $elem is defined in atomic.tcl but not in INPUT_LD1" - } - } -} \ No newline at end of file diff --git a/GUI/PWgui/sys_utils/check_ph_vars.tcl b/GUI/PWgui/sys_utils/check_ph_vars.tcl deleted file mode 100644 index 4f23b302f..000000000 --- a/GUI/PWgui/sys_utils/check_ph_vars.tcl +++ /dev/null @@ -1,154 +0,0 @@ -set ph_module_dir [file join $env(PWGUI) modules ph] -set ph_module_file [file join $ph_module_dir ph.tcl] -set input_ph_file [file join $env(PWGUI) .. .. Doc INPUT_PH] -set input_ph_file [file join /home/tone/NEW_HOME/prog/O-sesame/Doc INPUT_PH] - -puts "" -puts "**************************************************************************" -puts "Checking the consistency of variables between ph.tcl and INPUT_PH files !!!" -puts "***************************************************************************" -puts "" -puts "ph_module = $ph_module_file" -puts "input_ph = $input_ph_file" - -global ph_module_var input_ph_var - -# initialization -lappend auto_path [file join $env(GUIB) lib] -package require tclu - -namespace eval ::guib {} - -# disable the source command -rename source tcl_source -proc source {args} { return 1} - -######################################################################## -# the GUIB keywords -######################################################################## - -# 1.1 object keywords: -#-------------------------- -set this dummy -proc module {args} { global this; eval [lindex $args end] } -proc page {args} { global this; eval [lindex $args end] } -proc namelist {args} { global this; eval [lindex $args end] } -proc group {args} { global this; eval [lindex $args end] } -proc optional {args} { global this; eval [lindex $args end] } -proc required {args} { global this; eval [lindex $args end] } -proc line {args} { global this; eval [lindex $args end] } - -# 1.2 item keywords: -#------------------------ -proc var {ident args} { global ph_module_var; set ph_module_var([string tolower $ident]) 1 } -proc auxilvar {args} { return 1 } -proc dimension {ident args} { global ph_module_var; set ph_module_var([string tolower $ident]) 1 } -proc text {ident args} { global ph_module_var; set ph_module_var([string tolower $ident]) 1 } -proc table {ident args} { global ph_module_var; set ph_module_var([string tolower $ident]) 1 } -proc keyword {ident args} { return 1; # nothing so far } -proc help {ident args} { return 1; # nothing so far } - -# 1.3 event-driven keywords: -#-------------------------------- -proc tracevar {args} { return 1 } -proc widget {args} { return 1 } -proc groupwidget {args} { return 1 } -proc widgetconfigure {args} { return 1 } -proc widgetcget {args} { return 1 } -proc keywordconfigure {args} { return 1 } - -# 1.4 getsets keywords, i.e. keyword associated with the variables: -#------------------------------------------------------------------------ -proc varvalue {args} { return 1 } -proc vartextvalue {args} { return 1 } -proc varref {args} { return 1 } -proc varset {args} { return 1 } -proc dimvalue {args} { return 1 } -proc dimtextvalue {args} { return 1 } -proc dimref {args} { return 1 } -proc dimset {args} { return 1 } -proc tablevalue {args} { return 1 } -proc tabletextvalue {args} { return 1 } -proc tableref {args} { return 1 } -proc tableset {args} { return 1 } - -# 1.5 special keywords: -#--------------------------- -proc readfilter {args} { return 1 } -proc writefilter {args} { return 1 } -proc postprocess {args} { return 1 } -proc this {args} { return 1 } -proc loaddata {args} { return 1 } -proc valueToTextvalue {args} { return 1 } -proc textvalueToValue {args} { return 1 } -proc scriptvar {args} { return 1 } - -# 1.6 decoration keywords: -#------------------------------ -proc packwidgets {args} { return 1 } -proc separator {args} { return 1 } - -# -# parse the ph.tcl -# -tcl_source $ph_module_file - -# -# parse the INPUT_PH file and Chek the INPUT_PH against the ph.tcl -# - -puts "----------------------------" -puts "Checking INPUT_PH vs. ph.tcl" -puts "----------------------------" - -set in_nl 0 -foreach line [split [tclu::readFile $input_ph_file] \n] { - if { [regexp -- {namelist "inputph"} $line] } { - # beginning of namelist; go to next line - set in_nl 1 - continue - } - - if { [regexp -- {End of namelist "inputph"} $line] } { - # end of this namelist; go to next line - set in_nl 0 - continue - } - - if { $in_nl } { - if { [regexp -- {^[a-z]+} $line] } { - set var [string tolower [lindex $line 0]] - # check if there is more then var on the line - # rule for qualification: var1, var2 - if { [string trim $var ,] != $var } { - set var [string trim $var ,] - puts " WARNING: (variable ${var}) line may containg more then one variable" - } - #puts "variable: $var" - set input_ph_var($var) 1 - - if { ! [info exists ph_module_var($var)] } { - puts "MESSAGE: variable $var is defined in INPUT_PH but not in ph.tcl" - } - - } - } -} - -# -# Cheking ph.tcl vs. INPUT_PH -# - -puts "" -puts "----------------------------" -puts "Checking ph.tcl vs. INPUT_PH" -puts "----------------------------" - -foreach elem [array names ph_module_var] { - if { ! [info exists input_ph_var([string tolower $elem])] } { - # do not diaplay the warning for atomic_coordinates_* - if { ! [string match atomic_coordinates_* $elem] } { - puts "WARNING: variable $elem is defined in ph.tcl but not in INPUT_PH" - } - } -} \ No newline at end of file diff --git a/GUI/PWgui/sys_utils/check_pp_vars.tcl b/GUI/PWgui/sys_utils/check_pp_vars.tcl deleted file mode 100644 index daa5efd93..000000000 --- a/GUI/PWgui/sys_utils/check_pp_vars.tcl +++ /dev/null @@ -1,154 +0,0 @@ -set pp_module_dir [file join $env(PWGUI) modules pp] -set pp_module_file [file join $pp_module_dir pp.tcl] -set input_pp_file [file join $env(PWGUI) .. .. Doc INPUT_PP] -set input_pp_file [file join /home/tone/NEW_HOME/prog/O-sesame/Doc INPUT_PP] - -puts "" -puts "**************************************************************************" -puts "Checking the consistency of variables between pw.tcl and INPUT_PW files !!!" -puts "***************************************************************************" -puts "" -puts "pp_module = $pp_module_file" -puts "input_pp = $input_pp_file" - -global pp_module_var input_pp_var - - -# initialization -lappend auto_path [file join $env(GUIB) lib] -package require tclu - -# disable the source command -rename source tcl_source -proc source {args} { return 1} - -######################################################################## -# the GUIB keywords -######################################################################## - -# 1.1 object keywords: -#-------------------------- -set this dummy -proc module {args} { global this; eval [lindex $args end] } -proc page {args} { global this; eval [lindex $args end] } -proc namelist {args} { global this; eval [lindex $args end] } -proc group {args} { global this; eval [lindex $args end] } -proc optional {args} { global this; eval [lindex $args end] } -proc required {args} { global this; eval [lindex $args end] } -proc line {args} { global this; eval [lindex $args end] } - -# 1.2 item keywords: -#------------------------ -proc var {ident args} { global pp_module_var; set pp_module_var([string tolower $ident]) 1 } -proc auxilvar {args} { return 1 } -proc dimension {ident args} { global pp_module_var; set pp_module_var([string tolower $ident]) 1 } -proc text {ident args} { global pp_module_var; set pp_module_var([string tolower $ident]) 1 } -proc table {ident args} { global pp_module_var; set pp_module_var([string tolower $ident]) 1 } -proc keyword {ident args} { return 1; # nothing so far } -proc help {ident args} { return 1; # nothing so far } - -# 1.3 event-driven keywords: -#-------------------------------- -proc tracevar {args} { return 1 } -proc widget {args} { return 1 } -proc groupwidget {args} { return 1 } -proc widgetconfigure {args} { return 1 } -proc widgetcget {args} { return 1 } -proc keywordconfigure {args} { return 1 } - -# 1.4 getsets keywords, i.e. keyword associated with the variables: -#------------------------------------------------------------------------ -proc varvalue {args} { return 1 } -proc vartextvalue {args} { return 1 } -proc varref {args} { return 1 } -proc varset {args} { return 1 } -proc dimvalue {args} { return 1 } -proc dimtextvalue {args} { return 1 } -proc dimref {args} { return 1 } -proc dimset {args} { return 1 } -proc tablevalue {args} { return 1 } -proc tabletextvalue {args} { return 1 } -proc tableref {args} { return 1 } -proc tableset {args} { return 1 } - -# 1.5 special keywords: -#--------------------------- -proc readfilter {args} { return 1 } -proc writefilter {args} { return 1 } -proc postprocess {args} { return 1 } -proc this {args} { return 1 } -proc loaddata {args} { return 1 } -proc valueToTextvalue {args} { return 1 } -proc textvalueToValue {args} { return 1 } -proc scriptvar {args} { return 1 } - -# 1.6 decoration keywords: -#------------------------------ -proc packwidgets {args} { return 1 } -proc separator {args} { return 1 } - -# -# parse the pp.tcl -# -tcl_source $pp_module_file - -# -# parse the INPUT_PP file and Chek the INPUT_PP against the pw.tcl -# - -puts "----------------------------" -puts "Checking INPUT_PP vs. pp.tcl" -puts "----------------------------" - -set in_nl 0 -foreach line [split [tclu::readFile $input_pp_file] \n] { - if { [regexp -- {\-&} $line] } { - # beginning of namelist; go to next line - set in_nl 1 - continue - } - - if { [regexp -- {\-/} $line] } { - # end of this namelist; go to next line - set in_nl 0 - continue - } - - if { $in_nl } { - if { [regexp -- {^ ! [a-z]+} $line] } { - set var [string tolower [lindex $line 1]] - puts "var=$var" - # check if there is more then var on the line - # rule for qualification: var1, var2 - if { [string trim $var ,] != $var } { - set var [string trim $var ,] - puts " WARNING: (variable ${var}) line may containg more then one variable" - } - #puts "variable: $var" - set input_pp_var($var) 1 - - if { ! [info exists pp_module_var($var)] } { - puts "MESSAGE: variable $var is defined in INPUT_PP but not in pp.tcl" - } - - } - } -} - -# -# Cheking pp.tcl vs. INPUT_PP -# - -puts "" -puts "----------------------------" -puts "Checking pp.tcl vs. INPUT_PP" -puts "----------------------------" - -foreach elem [array names pp_module_var] { - if { ! [info exists input_pp_var([string tolower $elem])] } { - # do not diaplay the warning for atomic_coordinates_* - if { ! [string match atomic_coordinates_* $elem] } { - puts "WARNING: variable $elem is defined in pp.tcl but not in INPUT_PP" - } - } -} \ No newline at end of file diff --git a/GUI/PWgui/sys_utils/check_pw_vars.tcl b/GUI/PWgui/sys_utils/check_pw_vars.tcl deleted file mode 100644 index b01d404f8..000000000 --- a/GUI/PWgui/sys_utils/check_pw_vars.tcl +++ /dev/null @@ -1,153 +0,0 @@ -set pw_module_dir [file join $env(PWGUI) modules pw] -set pw_module_file [file join $pw_module_dir pw.tcl] -set input_pw_file [file join $env(PWGUI) .. .. Doc INPUT_PW] -set input_pw_file [file join /home/tone/NEW_HOME/prog/O-sesame/Doc INPUT_PW] - -puts "" -puts "**************************************************************************" -puts "Checking the consistency of variables between pw.tcl and INPUT_PW files !!!" -puts "***************************************************************************" -puts "" -puts "pw_module = $pw_module_file" -puts "input_pw = $input_pw_file" - -global pw_module_var input_pw_var - - -# initialization -lappend auto_path [file join $env(GUIB) lib] -package require tclu - -# disable the source command -rename source tcl_source -proc source {args} { return 1} - -######################################################################## -# the GUIB keywords -######################################################################## - -# 1.1 object keywords: -#-------------------------- -set this dummy -proc module {args} { global this; eval [lindex $args end] } -proc page {args} { global this; eval [lindex $args end] } -proc namelist {args} { global this; eval [lindex $args end] } -proc group {args} { global this; eval [lindex $args end] } -proc optional {args} { global this; eval [lindex $args end] } -proc required {args} { global this; eval [lindex $args end] } -proc line {args} { global this; eval [lindex $args end] } - -# 1.2 item keywords: -#------------------------ -proc var {ident args} { global pw_module_var; set pw_module_var([string tolower $ident]) 1 } -proc auxilvar {args} { return 1 } -proc dimension {ident args} { global pw_module_var; set pw_module_var([string tolower $ident]) 1 } -proc text {ident args} { global pw_module_var; set pw_module_var([string tolower $ident]) 1 } -proc table {ident args} { global pw_module_var; set pw_module_var([string tolower $ident]) 1 } -proc keyword {ident args} { return 1; # nothing so far } -proc help {ident args} { return 1; # nothing so far } - -# 1.3 event-driven keywords: -#-------------------------------- -proc tracevar {args} { return 1 } -proc widget {args} { return 1 } -proc groupwidget {args} { return 1 } -proc widgetconfigure {args} { return 1 } -proc widgetcget {args} { return 1 } -proc keywordconfigure {args} { return 1 } - -# 1.4 getsets keywords, i.e. keyword associated with the variables: -#------------------------------------------------------------------------ -proc varvalue {args} { return 1 } -proc vartextvalue {args} { return 1 } -proc varref {args} { return 1 } -proc varset {args} { return 1 } -proc dimvalue {args} { return 1 } -proc dimtextvalue {args} { return 1 } -proc dimref {args} { return 1 } -proc dimset {args} { return 1 } -proc tablevalue {args} { return 1 } -proc tabletextvalue {args} { return 1 } -proc tableref {args} { return 1 } -proc tableset {args} { return 1 } - -# 1.5 special keywords: -#--------------------------- -proc readfilter {args} { return 1 } -proc writefilter {args} { return 1 } -proc postprocess {args} { return 1 } -proc this {args} { return 1 } -proc loaddata {args} { return 1 } -proc valueToTextvalue {args} { return 1 } -proc textvalueToValue {args} { return 1 } -proc scriptvar {args} { return 1 } - -# 1.6 decoration keywords: -#------------------------------ -proc packwidgets {args} { return 1 } -proc separator {args} { return 1 } - -# -# parse the pw.tcl -# -tcl_source $pw_module_file - -# -# parse the INPUT_PW file and Chek the INPUT_PW against the pw.tcl -# - -puts "----------------------------" -puts "Checking INPUT_PW vs. pw.tcl" -puts "----------------------------" - -set in_nl 0 -foreach line [split [tclu::readFile $input_pw_file] \n] { - if { [regexp -- {^NAMELIST &} $line] } { - # beginning of namelist; go to next line - set in_nl 1 - continue - } - - if { [regexp -- {^==*=$} $line] } { - # end of this namelist; go to next line - set in_nl 0 - continue - } - - if { $in_nl } { - if { [regexp -- {^[a-z]+} $line] } { - set var [string tolower [lindex $line 0]] - # check if there is more then var on the line - # rule for qualification: var1, var2 - if { [string trim $var ,] != $var } { - set var [string trim $var ,] - puts " WARNING: (variable ${var}) line may containg more then one variable" - } - #puts "variable: $var" - set input_pw_var($var) 1 - - if { ! [info exists pw_module_var($var)] } { - puts "MESSAGE: variable $var is defined in INPUT_PW but not in pw.tcl" - } - - } - } -} - -# -# Cheking pw.tcl vs. INPUT_PW -# - -puts "" -puts "----------------------------" -puts "Checking pw.tcl vs. INPUT_PW" -puts "----------------------------" - -foreach elem [array names pw_module_var] { - if { ! [info exists input_pw_var([string tolower $elem])] } { - # do not diaplay the warning for atomic_coordinates_* - if { ! [string match atomic_coordinates_* $elem] } { - puts "WARNING: variable $elem is defined in pw.tcl but not in INPUT_PW" - } - } -} \ No newline at end of file