The R Project SVN R

Rev

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

Rev 25961 Rev 26152
Line 138... Line 138...
138 
# if defined(HAVE_AQUA)
 138 
# if defined(HAVE_AQUA)
139 
    if (!strcmp(R_GUIType,"AQUA"))
 139 
    if (!strcmp(R_GUIType,"AQUA"))
140 
      rc = Raqua_Edit(filename);
 140 
      rc = Raqua_Edit(filename);
141 
    else {
 141 
    else {
142 
      sprintf(editcmd, "%s %s", cmd, filename);
 142 
      sprintf(editcmd, "%s %s", cmd, filename);
143 
      rc = system(editcmd);
 143 
      rc = R_system(editcmd);
144 
    }
 144 
    }
145 
# else
 145 
# else
146 
    sprintf(editcmd, "%s %s", cmd, filename);
 146 
    sprintf(editcmd, "%s %s", cmd, filename);
147 
    rc = system(editcmd);
 147 
    rc = R_system(editcmd);
148 
# endif
 148 
# endif
149 
    if (rc != 0)
 149 
    if (rc != 0)
150 
	errorcall(call, "problem with running editor %s", cmd);
 150 
	errorcall(call, "problem with running editor %s", cmd);
151 
#endif
 151 
#endif
152 
 
 152