source: branches/sandbox/import_gsas.tcl @ 1008

Last change on this file since 1008 was 930, checked in by toby, 11 years ago

rcs:* properties removed

  • Property svn:keywords set to Author Date Revision Id
File size: 532 bytes
Line 
1# $Id: import_gsas.tcl 930 2009-12-04 23:14:35Z chlake $
2
3#-------------------------------------------------
4# define info used in addcmds.tcl
5if {[file exists [file join $expgui(scriptdir) dumpexp.tcl]]} {
6    set description "GSAS .EXP file"
7    set extensions {.EXP .O??}
8    set procname ReadGSASEXPCoordinates
9}
10#-------------------------------------------------
11
12proc ReadGSASEXPCoordinates {filename} {
13    global wishshell expgui
14    set result {}
15    catch {
16        set result [exec $wishshell \
17                [file join $expgui(scriptdir) dumpexp.tcl] $filename]
18    }
19    return $result
20}
Note: See TracBrowser for help on using the repository browser.