Changeset 373 for trunk

Timestamp:

Dec 4, 2009 5:05:05 PM (14 years ago)

Author:

toby

Message:

# on 2001/02/26 19:37:17, toby did:
Change EPHAS (Fobs extraction) to Y/N except on IRIX

File:

• trunk/readexp.tcl (modified) (2 diffs, 3 props)

trunk/readexp.tcl

@@ -962 +962 @@
                     makeexprec "${key} EPHAS"
                     # expedt defaults this to "F", but I think "T" is better
-                    setexp "${key} EPHAS" "T" 50 1
+                    setexp "${key} EPHAS" "Y" 50 1
                     if $expgui(debug) {puts "Warning: creating a ${key} EPHAS record"}
                 }
@@ -968 +968 @@
                     return 1
                 }
+                # the flag has changed to "Y/N" in the latest versions
+                # of GSAS
+                if {[string toupper [string range $line 49 49]] == "Y"} {
+                    return 1
+                }
                 return 0
             }
             foextract-set {
-                if $value {
-                    setexp "${key} EPHAS" "T" 50 1
+                global tcl_platform
+                if {[string match "IRIX*" $tcl_platform(os)]} {
+                    if $value {
+                        setexp "${key} EPHAS" "T" 50 1
+                    } else {
+                        setexp "${key} EPHAS" "F" 50 1
+                    }       
                 } else {
-                    setexp "${key} EPHAS" "F" 50 1
-                }           
+                # the flag has changed to "Y/N" in the latest versions
+                # of GSAS
+                    if $value {
+                        setexp "${key} EPHAS" "Y" 50 1
+                    } else {
+                        setexp "${key} EPHAS" "N" 50 1
+                    }
+                }
             }
             title-get {