hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

touched up awk a bit more for OS/2

Browse Source
This commit is contained in:
hyung-hwan 2011-04-18 09:38:21 +00:00
parent 0fee868b99
commit c7020c00ca
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
qse/cmd/awk/awk.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c 437 2011-04-17 15:32:02Z hyunghwan.chung $ * $Id: awk.c 438 2011-04-17 15:38:21Z hyunghwan.chung $
* *
Copyright 2006-2009 Chung, Hyung-Hwan. Copyright 2006-2009 Chung, Hyung-Hwan.
This file is part of QSE. This file is part of QSE.
@ -42,6 +42,7 @@
# include <tchar.h> # include <tchar.h>
# include <process.h> # include <process.h>
#elif defined(__OS2__) #elif defined(__OS2__)
# define INCL_DOSPROCESS
# define INCL_DOSEXCEPTIONS # define INCL_DOSEXCEPTIONS
# define INCL_ERRORS # define INCL_ERRORS
# include <os2.h> # include <os2.h>
@ -332,9 +333,12 @@ static int fnc_sleep (qse_awk_rtx_t* run, const qse_cstr_t* fnm)
if (n == -1) return -1; if (n == -1) return -1;
if (n == 1) lv = (qse_long_t)rv; if (n == 1) lv = (qse_long_t)rv;
#ifdef _WIN32 #if defined(_WIN32)
Sleep ((DWORD)(lv * 1000)); Sleep ((DWORD)(lv * 1000));
n = 0; n = 0;
#elif defined(__OS2__)
DosSleep ((ULONG)(lv * 1000));
n = 0;
#else #else
n = sleep (lv); n = sleep (lv);
#endif #endif