config/gen/platform/ansi/time.c

   1 /*
   2  * $Id$
   3  * Copyright (C) 2007, The Perl Foundation.
   4  */
   5
   6 /*
   7
   8 =head1 NAME
   9
  10 config/gen/platform/ansi/time.c
  11
  12 =head1 DESCRIPTION
  13
  14 RT#48264
  15
  16 =head2 Functions
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 #include <time.h>
  25
  26 /*
  27
  28 =item C<INTVAL Parrot_intval_time(void)>
  29
  30 RT#48260: Not yet documented!!!
  31
  32 =cut
  33
  34 */
  35
  36 INTVAL
  37 Parrot_intval_time(void)
  38 {
  39     return time(NULL);
  40 }
  41
  42
  43 /*
  44
  45 =item C<FLOATVAL Parrot_floatval_time(void)>
  46
  47 RT#48260: Not yet documented!!!
  48
  49 =cut
  50
  51 */
  52
  53 FLOATVAL
  54 Parrot_floatval_time(void)
  55 {
  56     /* unable to provide this level of precision under ANSI-C, so just fall
  57        back to intval time for this. */
  58     Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG, "Parrot_floatval_time not accurate");
  59     return (FLOATVAL)Parrot_intval_time();
  60 }
  61
  62
  63 /*
  64
  65 =item C<void Parrot_sleep(unsigned int seconds)>
  66
  67 RT#48260: Not yet documented!!!
  68
  69 =cut
  70
  71 */
  72
  73 void
  74 Parrot_sleep(unsigned int seconds)
  75 {
  76     Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG, "Parrot_sleep not implemented");
  77     return;
  78 }
  79
  80 /*
  81
  82 =back
  83
  84 =cut
  85
  86 */
  87
  88 /*
  89  * Local variables:
  90  *   c-file-style: "parrot"
  91  * End:
  92  * vim: expandtab shiftwidth=4:
  93  */