src/datatypes.c

   1 /*
   2 Copyright (C) 2002-2005, The Perl Foundation.
   3 License:  Artistic/GPL, see README and LICENSES 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 /*
  27
  28 =item C<INTVAL
  29 Parrot_get_datatype_enum(Interp *interpreter, STRING *typename)>
  30
  31 Return datatype C<enum> for C<STRING*> typename.
  32
  33 =cut
  34
  35 */
  36
  37 INTVAL
  38 Parrot_get_datatype_enum(Interp *interpreter, STRING *typename)
  39 {
  40     char *type = string_to_cstring(interpreter, typename);
  41     int i;
  42
  43     for (i = enum_first_type; i < enum_last_type; i++) {
  44         if (!strcmp(data_types[i - enum_first_type].name, type)) {
  45             string_cstring_free(type);
  46             return i;
  47         }
  48     }
  49
  50     string_cstring_free(type);
  51
  52     return enum_type_undef;
  53 }
  54
  55 /*
  56
  57 =item C<STRING *
  58 Parrot_get_datatype_name(Interp *interpreter, INTVAL type)>
  59
  60 Return datatype name for C<type>.
  61
  62 =cut
  63
  64 */
  65
  66 STRING *
  67 Parrot_get_datatype_name(Interp *interpreter, INTVAL type)
  68 {
  69     const char *s;
  70     if (type < enum_first_type || type >= enum_last_type)
  71         s = "illegal";
  72     else
  73         s = data_types[type - enum_first_type].name;
  74     return string_make(interpreter, s, strlen(s), NULL, PObj_external_FLAG);
  75 }
  76
  77 /*
  78
  79 =back
  80
  81 =head1 SEE ALSO
  82
  83 F<include/parrot/datatypes.h>.
  84
  85 =cut
  86
  87 */
  88
  89
  90 /*
  91  * Local variables:
  92  *   c-file-style: "parrot"
  93  * End:
  94  * vim: expandtab shiftwidth=4:
  95  */