/* $Id: sleep.c 2243 2009-01-10 02:24:02Z bird $ */ /** @file * kmk_sleep - suspend execution for an interval of time. */ /* * Copyright (c) 2008-2009 knut st. osmundsen * * This file is part of kBuild. * * kBuild is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * kBuild is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with kBuild. If not, see * */ /******************************************************************************* * Header Files * *******************************************************************************/ #include "config.h" #include #include #include #include #include #if defined(_MSC_VER) # include #else # include # include #endif #include "../kmkbuiltin.h" static const char *name(const char *pszName) { const char *psz = strrchr(pszName, '/'); #if defined(_MSC_VER) || defined(__OS2__) const char *psz2 = strrchr(pszName, '\\'); if (!psz2) psz2 = strrchr(pszName, ':'); if (psz2 && (!psz || psz2 > psz)) psz = psz2; #endif return psz ? psz + 1 : pszName; } static int usage(FILE *pOut, const char *argv0) { argv0 = name(argv0); fprintf(pOut, "usage: %s [s]\n" " or: %s ms\n" " or: %s m\n" " or: %s h\n" " or: %s d\n" " or: %s --help\n" " or: %s --version\n" "\n" "Only integer values are accepted.\n" , argv0, argv0, argv0, argv0, argv0, argv0, argv0); return 1; } int kmk_builtin_sleep(int argc, char **argv, char **envp) { long cMsToSleep; long lTmp; unsigned long ulFactor; char *pszInterval; char *pszSuff; /* * Parse arguments. */ if (argc != 2) return usage(stderr, argv[0]); /* help request */ if ( !strcmp(argv[1], "-h") || !strcmp(argv[1], "-?") || !strcmp(argv[1], "-H") || !strcmp(argv[1], "--help")) { usage(stdout, argv[0]); return 0; } /* version request */ if ( !strcmp(argv[1], "-V") || !strcmp(argv[1], "--version")) { printf("kmk_sleep - kBuild version %d.%d.%d (r%u)\n" "Copyright (c) 2008-2009 knut st. osmundsen\n", KBUILD_VERSION_MAJOR, KBUILD_VERSION_MINOR, KBUILD_VERSION_PATCH, KBUILD_SVN_REV); return 0; } /* * Try convert the argument to a time period. * Allow spaces before, between and after the different parts. */ pszInterval = argv[1]; while (isspace(*pszInterval)) pszInterval++; cMsToSleep = strtol(pszInterval, &pszSuff, 0); if (pszSuff == pszInterval) { fprintf(stderr, "%s: malformed interval '%s'!\n", name(argv[0]), pszInterval); return 1; } while (isspace(*pszSuff)) pszSuff++; if (!*pszSuff) ulFactor = 1000; /* s */ else { /* find the suffix length and check that it's only white space following it. */ int cchSuff; int i = 1; while (pszSuff[i] && !isspace(pszSuff[i])) i++; cchSuff = i; while (pszSuff[i]) { if (!isspace(pszSuff[i])) { fprintf(stderr, "%s: malformed interval '%s'!\n", name(argv[0]), pszInterval); return 1; } i++; } if (cchSuff == 2 && !strncmp (pszSuff, "ms", 2)) ulFactor = 1; else if (cchSuff == 1 && *pszSuff == 's') ulFactor = 1000; else if (cchSuff == 1 && *pszSuff == 'm') ulFactor = 60*1000; else if (cchSuff == 1 && *pszSuff == 'h') ulFactor = 60*60*1000; else if (cchSuff == 1 && *pszSuff == 'd') ulFactor = 24*60*60*1000; else { fprintf(stderr, "%s: unknown suffix '%.*s'!\n", name(argv[0]), cchSuff, pszSuff); return 1; } } lTmp = cMsToSleep; cMsToSleep *= ulFactor; if ((cMsToSleep / ulFactor) != (unsigned long)lTmp) { fprintf(stderr, "%s: time interval overflow!\n", name(argv[0])); return 1; } /* * Do the actual sleeping. */ if (cMsToSleep > 0) { #if defined(_MSC_VER) Sleep(cMsToSleep); #else if (cMsToSleep) { struct timespec TimeSpec; TimeSpec.tv_nsec = (cMsToSleep % 1000) * 1000000; TimeSpec.tv_sec = cMsToSleep / 1000; nanosleep(&TimeSpec, NULL); } #endif } return 0; }