src/datatypes.c

   1 /*
   2 Copyright (C) 2002-2009, Parrot Foundation.
   3 License:  Artistic 2.0, see README and LICENSE for details
   4 $Id$
   5
   6 =head1 NAME
   7
   8 src/datatypes.c - Parrot and native data types functions
   9
  10 =head1 DESCRIPTION
  11
  12 The functions in this file are used in .ops files to access the C<enum>
  13 and C string constants for Parrot and native data types defined in
  14 F<include/parrot/datatypes.h>.
  15
  16 =head2 Functions
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 #include "parrot/parrot.h"
  25
  26 /* HEADERIZER HFILE: include/parrot/datatypes.h */
  27
  28 /*
  29
  30 =item C<INTVAL Parrot_get_datatype_enum(PARROT_INTERP, const STRING *type_name)>
  31
  32 Return datatype C<enum> for C<STRING*> type_name.
  33
  34 =cut
  35
  36 */
  37
  38 PARROT_EXPORT
  39 PARROT_WARN_UNUSED_RESULT
  40 INTVAL
  41 Parrot_get_datatype_enum(PARROT_INTERP, ARGIN(const STRING *type_name))
  42 {
  43     ASSERT_ARGS(Parrot_get_datatype_enum)
  44     char * const type = Parrot_str_to_cstring(interp, type_name);
  45     int i;
  46
  47     for (i = enum_first_type; i < enum_last_type; i++) {
  48         if (STREQ(data_types[i - enum_first_type].name, type)) {
  49             Parrot_str_free_cstring(type);
  50             return i;
  51         }
  52     }
  53
  54     Parrot_str_free_cstring(type);
  55
  56     return enum_type_undef;
  57 }
  58
  59 /*
  60
  61 =item C<STRING * Parrot_get_datatype_name(PARROT_INTERP, INTVAL type)>
  62
  63 Return datatype name for C<type>.
  64
  65 =cut
  66
  67 */
  68
  69 PARROT_EXPORT
  70 PARROT_WARN_UNUSED_RESULT
  71 PARROT_CANNOT_RETURN_NULL
  72 STRING *
  73 Parrot_get_datatype_name(PARROT_INTERP, INTVAL type)
  74 {
  75     ASSERT_ARGS(Parrot_get_datatype_name)
  76     const char * const s =
  77         (type < enum_first_type || type >= enum_last_type)
  78             ? "illegal"
  79             : data_types[type - enum_first_type].name;
  80
  81     return string_make(interp, s, strlen(s), NULL, PObj_external_FLAG);
  82 }
  83
  84 /*
  85
  86 =item C<FLOATVAL floatval_divide_by_zero(PARROT_INTERP, FLOATVAL num)>
  87
  88 Only used to generate Infinity and NaN constants in our corresponding
  89 header file.
  90
  91 =cut
  92
  93 */
  94
  95 PARROT_EXPORT
  96 FLOATVAL
  97 floatval_divide_by_zero(SHIM_INTERP, FLOATVAL num)
  98 {
  99     ASSERT_ARGS(floatval_divide_by_zero)
 100     const FLOATVAL zero = 0.0;
 101     return num / zero;
 102 }
 103
 104
 105 /*
 106
 107 =back
 108
 109 =head1 SEE ALSO
 110
 111 F<include/parrot/datatypes.h>.
 112
 113 =cut
 114
 115 */
 116
 117
 118 /*
 119  * Local variables:
 120  *   c-file-style: "parrot"
 121  * End:
 122  * vim: expandtab shiftwidth=4:
 123  */