The R Project SVN R-packages

Rev

Rev 7747 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7747 Rev 7986
Line 40... Line 40...
40 
    name = CHAR(STRING_ELT(fileName, 0));
 40 
    name = CHAR(STRING_ELT(fileName, 0));
41 
#else
 41 
#else
42 
    name = CHARACTER_DATA(fileName)[0];
 42 
    name = CHARACTER_DATA(fileName)[0];
43 
#endif
 43 
#endif
44 
    if(!isURLDoc && (name == NULL || stat(name, &tmp_stat) < 0)) {
 44 
    if(!isURLDoc && (name == NULL || stat(name, &tmp_stat) < 0)) {
45 
      PROBLEM "Can't find file %s", CHAR_DEREF(STRING_ELT(fileName, 0))
 45 
	Rf_error("Can't find file %s", CHAR_DEREF(STRING_ELT(fileName, 0)) );
46 
      ERROR;
 - 
 
47 
    }
 46 
    }
48 
  } else {
 47 
  } else {
49 
     name = strdup(CHAR_DEREF(STRING_ELT(fileName, 0)));
 48 
     name = strdup(CHAR_DEREF(STRING_ELT(fileName, 0)));
50 
     freeName = 1;
 49 
     freeName = 1;
51 
  }
 50 
  }
Line 67... Line 66...
67 
  }
 66 
  }
68 
 
 67 
 
69 
  if(doc == NULL) {
 68 
  if(doc == NULL) {
70 
    if(freeName && name)
 69 
    if(freeName && name)
71 
        free((char *) name);
 70 
        free((char *) name);
72 
    PROBLEM "error in creating parser for %s", name
 71 
    Rf_error("error in creating parser for %s", name);
73 
    ERROR;
 - 
 
74 
  }
 72 
  }
75 
 
 73 
 
76 
  PROTECT(rdoc = RS_XML(convertXMLDoc)(name, doc, converterFunctions, &parserSettings));
 74 
  PROTECT(rdoc = RS_XML(convertXMLDoc)(name, doc, converterFunctions, &parserSettings));
77 
 
 75 
 
78 
  if(freeName && name)
 76 
  if(freeName && name)