source: trunk/import_gsas.tcl

Last change on this file was 1251, checked in by toby, 7 years ago

use svn ps svn:eol-style "native" * to change line ends

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Revision Id
File size: 532 bytes
Line 
1# $Id: import_gsas.tcl 1251 2014-03-10 22:17:29Z toby $
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.