version 1.34, 2015/08/06 10:01:52 |
version 1.36, 2015/08/14 13:51:54 |
|
|
* 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.33 2015/03/16 00:08:32 noro 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" |
#include <string.h> |
#include <string.h> |
#if !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__) && defined(DO_PLOT) |
#if !defined(VISUAL) && defined(DO_PLOT) |
#include <X11/Xlib.h> |
#include <X11/Xlib.h> |
#include <X11/cursorfont.h> |
#include <X11/cursorfont.h> |
#endif |
#endif |
|
|
#if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) |
#if defined(VISUAL) || defined(__MINGW32__) |
#include <direct.h> |
#include <direct.h> |
#include <stdlib.h> |
#include <stdlib.h> |
#include <windows.h> |
#include <windows.h> |
Line 118 struct ftab misc_tab[] = { |
|
Line 118 struct ftab misc_tab[] = { |
|
{"hex_dump",Phex_dump,2}, |
{"hex_dump",Phex_dump,2}, |
{"peek",Ppeek,1}, |
{"peek",Ppeek,1}, |
{"poke",Ppoke,2}, |
{"poke",Ppoke,2}, |
#if !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__) && defined(DO_PLOT) |
#if !defined(VISUAL) && defined(DO_PLOT) |
{"xpause",Pxpause,0}, |
{"xpause",Pxpause,0}, |
#endif |
#endif |
#if 0 |
#if 0 |
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) || defined(__MINGW32__) || defined(__MINGW64__) |
#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) || defined(__MINGW32__) || defined(__MINGW64__) |
#if defined(VISUAL) || defined(__MINGW32__) |
int status = _chdir(dir); |
int status = _chdir(dir); |
#else |
#else |
int status = chdir(dir); |
int status = chdir(dir); |
|
|
int ms; |
int ms; |
|
|
ms = QTOS((Q)ARG0(arg)); |
ms = QTOS((Q)ARG0(arg)); |
#if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) |
#if defined(VISUAL) || defined(__MINGW32__) |
Sleep(ms); |
Sleep(ms); |
#else |
#else |
usleep(ms*1000); |
usleep(ms*1000); |
|
|
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) || defined(__MINGW32__) || defined(__MINGW64__) |
#if defined(VISUAL) || defined(__MINGW32__) |
set_error(code,reason,action); |
set_error(code,reason,action); |
#endif |
#endif |
error(""); |
error(""); |
|
|
STOQ(ret,*rp); |
STOQ(ret,*rp); |
} |
} |
|
|
#if !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__) && defined(DO_PLOT) |
#if !defined(VISUAL) && defined(DO_PLOT) |
void Pxpause(rp) |
void Pxpause(rp) |
Q *rp; |
Q *rp; |
{ |
{ |
Line 631 void grab_pointer() |
|
Line 631 void grab_pointer() |
|
|
|
void Psend_progress(NODE arg,Q *rp) |
void Psend_progress(NODE arg,Q *rp) |
{ |
{ |
#if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) |
#if defined(VISUAL) |
short per; |
short per; |
char *msg; |
char *msg; |
|
|