- Timestamp:
- Sep 2, 2008 11:09:17 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
1dwg/trunk/IgorPro/cansasXML.ipf
r58 r59 26 26 27 27 28 // BEFORE we do anything else, check that XMLutils XOP is available. 29 #if( Exists("XmlOpenFile") == 0 ) 30 31 28 32 FUNCTION CS_XmlReader(fileName) 29 33 // … … 35 39 // -3: <SASroot> version is not 1.0 36 40 // -4: no <SASentry> elements 37 // -5: XOPutils needs upgrade 41 // -5: XMLutils XOP needs upgrade 42 // -6: XMLutils XOP not found 38 43 // 39 44 STRING fileName … … 41 46 STRING workingFolder = "root:Packages:CS_XMLreader" 42 47 VARIABLE returnCode 43 44 // BEFORE we do anything else, check that XMLutils XOP is available.45 #if( Exists("XmlOpenFile") == 0 )46 Abort "XML function provided by XMLutils XOP is not available, get the XOP from : http://www.igorexchange.com/project/XMLutils (see http://www.smallangles.net/wgwiki/index.php/cansas1d_binding_IgorPro for details)"47 #endif48 48 49 49 … … 80 80 81 81 // 82 // test to see if X OPutils has the needed upgrade82 // test to see if XMLutils has the needed upgrade 83 83 // 84 84 XMLlistXpath(fileID, "/*", "") 85 85 IF ( EXISTS( "M_listXPath" ) == 0 ) 86 86 XmlCloseFile(fileID,0) 87 errorMsg = "X OPutils needs an upgrade: http://www.igorexchange.com/project/XMLutils"87 errorMsg = "XMLutils needs an upgrade: http://www.igorexchange.com/project/XMLutils" 88 88 PRINT errorMsg 89 89 SetDataFolder $origFolder … … 808 808 SetDataFolder root: 809 809 END 810 811 #else // if( Exists("XmlOpenFile") == 0 ) 812 FUNCTION CS_XmlReader(fileName) 813 String fileName 814 Abort "XML function provided by XMLutils XOP is not available, get the XOP from : http://www.igorexchange.com/project/XMLutils (see http://www.smallangles.net/wgwiki/index.php/cansas1d_binding_IgorPro for details)" 815 RETURN(-6) 816 END 817 #endif // if( Exists("XmlOpenFile") == 0 )
Note: See TracChangeset
for help on using the changeset viewer.