[pure-lang-svn] SF.net SVN: pure-lang:[646] pure/trunk

[<ag...@us...>]

Revision: 646
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=646&view=rev
Author:   agraef
Date:     2008-08-28 06:55:34 +0000 (Thu, 28 Aug 2008)

Log Message:
-----------
Add NULL and LC_* constants.

Modified Paths:
--------------
    pure/trunk/ChangeLog
    pure/trunk/runtime.cc

Modified: pure/trunk/ChangeLog
===================================================================
--- pure/trunk/ChangeLog	2008-08-28 00:03:19 UTC (rev 645)
+++ pure/trunk/ChangeLog	2008-08-28 06:55:34 UTC (rev 646)
@@ -1,5 +1,7 @@
 2008-08-28  Albert Graef  <Dr....@t-...>
 
+	* runtime.cc (pure_sys_vars): Add NULL and LC_* constants.
+
 	* lexer.ll: Add option -p to list only private/public symbols to
 	the 'list' command.
 

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-08-28 00:03:19 UTC (rev 645)
+++ pure/trunk/runtime.cc	2008-08-28 06:55:34 UTC (rev 646)
@@ -27,6 +27,7 @@
 #include <stdarg.h>
 #include <unistd.h>
 #include <limits.h>
+#include <locale.h>
 #include <iostream>
 #include <sstream>
 
@@ -3035,6 +3036,8 @@
   df(interp, "stdin",	pure_pointer(stdin));
   df(interp, "stdout",	pure_pointer(stdout));
   df(interp, "stderr",	pure_pointer(stderr));
+  // null pointer
+  cdf(interp, "NULL",	pure_pointer(0));
   // clock
   cdf(interp, "CLOCKS_PER_SEC",	pure_int(CLOCKS_PER_SEC));
   // fnmatch, glob
@@ -3140,4 +3143,26 @@
 #ifdef SIGTTOU
   cdf(interp, "SIGTTOU",	pure_int(SIGTTOU));
 #endif
+  // setlocale
+#ifdef LC_ALL
+  cdf(interp, "LC_ALL",		pure_int(LC_ALL));
+#endif
+#ifdef LC_COLLATE
+  cdf(interp, "LC_COLLATE",	pure_int(LC_COLLATE));
+#endif
+#ifdef LC_CTYPE
+  cdf(interp, "LC_CTYPE",	pure_int(LC_CTYPE));
+#endif
+#ifdef LC_MESSAGES
+  cdf(interp, "LC_MESSAGES",	pure_int(LC_MESSAGES));
+#endif
+#ifdef LC_MONETARY
+  cdf(interp, "LC_MONETARY",	pure_int(LC_MONETARY));
+#endif
+#ifdef LC_NUMERIC
+  cdf(interp, "LC_NUMERIC",	pure_int(LC_NUMERIC));
+#endif
+#ifdef LC_TIME
+  cdf(interp, "LC_TIME",	pure_int(LC_TIME));
+#endif
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.