[BACK]Return to miscf.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/miscf.c between version 1.32 and 1.36

version 1.32, 2013/11/05 02:55:03 version 1.36, 2015/08/14 13:51:54
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.31 2013/06/13 18:42:11 ohara Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.35 2015/08/07 01:25:39 fujimoto Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 55 
Line 55 
 #include <X11/cursorfont.h>  #include <X11/cursorfont.h>
 #endif  #endif
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
 #include <direct.h>  #include <direct.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <windows.h>  #include <windows.h>
Line 130  struct ftab misc_tab[] = {
Line 130  struct ftab misc_tab[] = {
 void Pgetcwd(STRING *rp)  void Pgetcwd(STRING *rp)
 {  {
         char *r;          char *r;
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
         char buf[_MAX_PATH];          char buf[_MAX_PATH];
         _getcwd(buf, _MAX_PATH);          _getcwd(buf, _MAX_PATH);
 #else  #else
Line 145  void Pgetcwd(STRING *rp)
Line 145  void Pgetcwd(STRING *rp)
 void Pchdir(NODE arg, Q *rp)  void Pchdir(NODE arg, Q *rp)
 {  {
         char *dir = BDY((STRING)ARG0(arg));          char *dir = BDY((STRING)ARG0(arg));
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
         int status = _chdir(dir);          int status = _chdir(dir);
 #else  #else
         int status = chdir(dir);          int status = chdir(dir);
Line 209  Q *rp;
Line 209  Q *rp;
         int ms;          int ms;
   
         ms = QTOS((Q)ARG0(arg));          ms = QTOS((Q)ARG0(arg));
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
         Sleep(ms);          Sleep(ms);
 #else  #else
         usleep(ms*1000);          usleep(ms*1000);
Line 448  Q *rp;
Line 448  Q *rp;
                 s = "";                  s = "";
         else          else
                 s = BDY((STRING)ARG0(arg));                  s = BDY((STRING)ARG0(arg));
         toplevel(s);          goto_toplevel(s);
         *rp = 0;          *rp = 0;
 }  }
   
Line 465  Q *rp;
Line 465  Q *rp;
         code = QTOS((Q)ARG0(arg));          code = QTOS((Q)ARG0(arg));
         reason = BDY((STRING)ARG1(arg));          reason = BDY((STRING)ARG1(arg));
         action = BDY((STRING)ARG2(arg));          action = BDY((STRING)ARG2(arg));
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__)
         set_error(code,reason,action);          set_error(code,reason,action);
 #endif  #endif
         error("");          error("");
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.36
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>