perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r19883 - trunk/src

Subject: [svn:parrot] r19883 - trunk/src
From:
Date: Sat, 14 Jul 2007 17:19:55 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: petdance
Date: Sat Jul 14 17:19:55 2007
New Revision: 19883

Modified:
   trunk/src/builtin.c

Log:
Definining storage as const and NOTNULL where possible

Modified: trunk/src/builtin.c
==============================================================================
--- trunk/src/builtin.c (original)
+++ trunk/src/builtin.c Sat Jul 14 17:19:55 2007
@@ -21,11 +21,11 @@
 
 
 typedef struct _builtin {
-    const char *c_name;         /* short name 'cos' */
-    const char *signature;      /* e.g. PP */
-    const char *c_ns;           /* namespace */
-    STRING *meth_name;          /* internal name e.g. '__cos' */
-    STRING *_namespace;          /* same */
+    NOTNULL( const char * const c_name );       /* short name 'cos' */
+    NOTNULL( const char * const signature );    /* e.g. PP */
+    NOTNULL( const char * const c_ns );         /* namespace */
+    NULLOK(  STRING *meth_name );               /* internal name e.g. '__cos' 
*/
+    NULLOK(  STRING *_namespace );              /* same */
 } Builtins;
 
 #define N_BUILTINS (int)(sizeof (builtins) / sizeof (builtins[0]))
@@ -33,46 +33,46 @@
     /*
      * Please keep this list sorted
      */
-    { "acos",   "PJO",          "Float",        0, 0 },
-    { "asec",   "PJO",          "Float",        0, 0 },
-    { "asin",   "PJO",          "Float",        0, 0 },
-    { "atan2",  "PJOP",         "Float",        0, 0 },
-    { "atan",   "PJO",          "Float",        0, 0 },
-    { "chdir",  "vJOS",         "OS",           0, 0 },
-    { "chroot", "vJOS",         "OS",           0, 0 },
-    { "copy",   "vJOSS",        "File",         0, 0 },
-    { "cosh",   "PJO",          "Float",        0, 0 },
-    { "cos",    "PJO",          "Float",        0, 0 },
-    { "cwd",    "SJO",          "OS",           0, 0 },
-    { "exp",    "PJO",          "Float",        0, 0 },
-    { "index",  "IJSS.I",       "String",       0, 0 },
-    { "is_integer","IJS",       "String",       0, 0 },
-    { "link",   "vJOSS",        "OS",           0, 0 },
-    { "ln",     "PJO",          "Float",        0, 0 },
-    { "log10",  "PJO",          "Float",        0, 0 },
-    { "log2",   "PJO",          "Float",        0, 0 },
-    { "lower",  "PJO",          "String",       0, 0 },
-    { "lstat",  "PJOS",         "OS",           0, 0 },
-    { "mkdir",  "vJOSI",        "OS",           0, 0 },
-    { "open",   "PJS.S",        "ParrotIO",     0, 0 },
-    { "puts",   "IJOS",         "ParrotIO",     0, 0 },
-    { "rename", "vJOSS",        "File",         0, 0 },
-    { "reverse","vJS",          "String",       0, 0 },
-    { "rm",     "vJOS",         "OS",           0, 0 },
-    { "say",    "IJOS",         "ParrotIO",     0, 0 },
-    { "say",    "IJS",          "ParrotIO",     0, 0 },
-    { "say",    "vJOS",         "ParrotIO",     0, 0 },
-    { "say",    "vJS",          "ParrotIO",     0, 0 },
-    { "sech",   "PJO",          "Float",        0, 0 },
-    { "sec",    "PJO",          "Float",        0, 0 },
-    { "sinh",   "PJO",          "Float",        0, 0 },
-    { "sin",    "PJO",          "Float",        0, 0 },
-    { "sqrt",   "PJO",          "Float",        0, 0 },
-    { "symlink","vJOSS",        "OS",           0, 0 },
-    { "tanh",   "PJO",          "Float",        0, 0 },
-    { "tan",    "PJO",          "Float",        0, 0 },
-    { "trans",  "vJSP",         "String",       0, 0 },
-    { "umask",  "IJOI",         "OS",           0, 0 },
+    { "acos",   "PJO",          "Float",        NULL, NULL },
+    { "asec",   "PJO",          "Float",        NULL, NULL },
+    { "asin",   "PJO",          "Float",        NULL, NULL },
+    { "atan2",  "PJOP",         "Float",        NULL, NULL },
+    { "atan",   "PJO",          "Float",        NULL, NULL },
+    { "chdir",  "vJOS",         "OS",           NULL, NULL },
+    { "chroot", "vJOS",         "OS",           NULL, NULL },
+    { "copy",   "vJOSS",        "File",         NULL, NULL },
+    { "cosh",   "PJO",          "Float",        NULL, NULL },
+    { "cos",    "PJO",          "Float",        NULL, NULL },
+    { "cwd",    "SJO",          "OS",           NULL, NULL },
+    { "exp",    "PJO",          "Float",        NULL, NULL },
+    { "index",  "IJSS.I",       "String",       NULL, NULL },
+    { "is_integer","IJS",       "String",       NULL, NULL },
+    { "link",   "vJOSS",        "OS",           NULL, NULL },
+    { "ln",     "PJO",          "Float",        NULL, NULL },
+    { "log10",  "PJO",          "Float",        NULL, NULL },
+    { "log2",   "PJO",          "Float",        NULL, NULL },
+    { "lower",  "PJO",          "String",       NULL, NULL },
+    { "lstat",  "PJOS",         "OS",           NULL, NULL },
+    { "mkdir",  "vJOSI",        "OS",           NULL, NULL },
+    { "open",   "PJS.S",        "ParrotIO",     NULL, NULL },
+    { "puts",   "IJOS",         "ParrotIO",     NULL, NULL },
+    { "rename", "vJOSS",        "File",         NULL, NULL },
+    { "reverse","vJS",          "String",       NULL, NULL },
+    { "rm",     "vJOS",         "OS",           NULL, NULL },
+    { "say",    "IJOS",         "ParrotIO",     NULL, NULL },
+    { "say",    "IJS",          "ParrotIO",     NULL, NULL },
+    { "say",    "vJOS",         "ParrotIO",     NULL, NULL },
+    { "say",    "vJS",          "ParrotIO",     NULL, NULL },
+    { "sech",   "PJO",          "Float",        NULL, NULL },
+    { "sec",    "PJO",          "Float",        NULL, NULL },
+    { "sinh",   "PJO",          "Float",        NULL, NULL },
+    { "sin",    "PJO",          "Float",        NULL, NULL },
+    { "sqrt",   "PJO",          "Float",        NULL, NULL },
+    { "symlink","vJOSS",        "OS",           NULL, NULL },
+    { "tanh",   "PJO",          "Float",        NULL, NULL },
+    { "tan",    "PJO",          "Float",        NULL, NULL },
+    { "trans",  "vJSP",         "String",       NULL, NULL },
+    { "umask",  "IJOI",         "OS",           NULL, NULL },
     /*
      * Please keep this list sorted
      */

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r19883 - trunk/src, petdance <=