[Gd-chatter] r11171 - in trunk/fundev/sources: harp/linux-rtg lib/release-info lib/run-time

[hannes at gwydiondylan.org]

Author: hannes
Date: Sun Feb 11 19:38:45 2007
New Revision: 11171

Modified:
   trunk/fundev/sources/harp/linux-rtg/ffi-barrier.dylan
   trunk/fundev/sources/lib/release-info/common-info.dylan
   trunk/fundev/sources/lib/run-time/linux-support.c
Log:
Job: fd
*remove expiration check from linux-support.c and don't emit it
*bump beta version

this change requires a bootstrap to remove the check_expiration
symbol.


Modified: trunk/fundev/sources/harp/linux-rtg/ffi-barrier.dylan
==============================================================================
--- trunk/fundev/sources/harp/linux-rtg/ffi-barrier.dylan	(original)
+++ trunk/fundev/sources/harp/linux-rtg/ffi-barrier.dylan	Sun Feb 11 19:38:45 2007
@@ -14,10 +14,6 @@
 define c-fun runtime-external tlv-get-value     = "tlv_get_value";
 define c-fun runtime-external tlv-set-value     = "tlv_set_value";
 
-define c-fun runtime-external check-runtime-expiration 
-  = "check_runtime_library_expiration_date";
-
-
 define sideways method op--create-TEB-tlv-index 
     (be :: <native-unix-back-end>) => ()
   with-harp (be)
@@ -87,10 +83,6 @@
   end when-base;
   ins--call-alien(be, primitive-dylan-initialize-ref, 0);
 
-  when-base
-    op--call-c(be, check-runtime-expiration);
-  end when-base;
-
   ins--move(be, c-result, 0);
   ins--rts-and-drop(be, 0);
 

Modified: trunk/fundev/sources/lib/release-info/common-info.dylan
==============================================================================
--- trunk/fundev/sources/lib/release-info/common-info.dylan	(original)
+++ trunk/fundev/sources/lib/release-info/common-info.dylan	Sun Feb 11 19:38:45 2007
@@ -12,7 +12,7 @@
 define constant $release-full-copyright =
 "Original Code is Copyright 1995-2004 Functional Objects, Inc.\n"
 "All rights reserved.\n"
-"Portions Copyright 2004-2006 Dylan Hackers.\n"
+"Portions Copyright 2004-2007 Dylan Hackers.\n"
 "\n"
 "The software programs and libraries that make up Open Dylan\n"
 "are subject to the Functional Objects Library Public License Version\n"
@@ -41,7 +41,7 @@
   = "bugs at opendylan.org";
 
 define constant $release-web-address
-  = "http://www.opendylan.org/index.phtml";
+  = "http://www.opendylan.org/";
 
 define constant $bug-report-template-filename = "bug-report.txt";
 define constant $license-agreement-filename   = "License.txt";
@@ -51,13 +51,13 @@
 define constant $release-product-name     = "Open Dylan";
 define constant $release-edition          = "Hacker Edition";
 define constant $release-edition-type     = #"internal";
-define constant $release-version          = "Version 1.0 [Beta 2]";
+define constant $release-version          = "Version 1.0 [Beta 3]";
 define constant $release-version-type     = #"1.0";
 define constant $release-beta?            = #t;
 
 define constant $release-copyright
   = "Copyright (c) 1997-2004, Functional Objects, Inc.\n"
-    "Portions Copyright (c) 2004-2006, Dylan Hackers\n"
+    "Portions Copyright (c) 2004-2007, Dylan Hackers\n"
     "All rights reserved.";
 
 

Modified: trunk/fundev/sources/lib/run-time/linux-support.c
==============================================================================
--- trunk/fundev/sources/lib/run-time/linux-support.c	(original)
+++ trunk/fundev/sources/lib/run-time/linux-support.c	Sun Feb 11 19:38:45 2007
@@ -67,76 +67,3 @@
 
 int TargcT;
 char **TargvT[];
-
-
-/* Check for expiration of the Dylan runtime library */
-
-#define RUN_TIME_API
-
-/* Expiration date supplied by the makefile must be in the form YYYYMMYY
-   and represents the last day that the runtime may be used ... */
-
-#ifdef EXPIRATION
-long encodedExpiration = EXPIRATION;
-#else
-long encodedExpiration = -1;
-#endif
-
-#define expirationMessageTemplate \
-  "This test version of the Functional Developer runtime expired on DD-MMM-YYYY."
-#define expirationMessageGeneric  \
-  "This test version of the Functional Developer runtime has expired."
-
-static char* MonthNames[13] = {"", "Jan", "Feb", "Mar", "Apr", "May", "Jun",
-                                   "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
-
-static void insert_integer(long n, long nDigits, char *p) {
-  long i, digit;
-  for (i = 0; i < nDigits; i++) {
-    digit = n % 10;
-    n = n / 10;
-    *p-- = digit + '0';
-  }
-}
-
-static void insert_month(long m, char *p) {
-  long i;
-  for (i = 0; i < 3; i++)
-    *p-- = MonthNames[m][2 - i];
-}
-
-RUN_TIME_API
-void check_runtime_library_expiration_date() {
-  time_t simpleNow;
-  struct tm now;
-  char *expirationMessage, *originalExpirationMessage;
-  long expirationMessageSize, i;
-  long encodedNow, expirationYear, expirationMonth, expirationDay;
-
-  if (encodedExpiration > 0) {
-    simpleNow = time(NULL);
-    localtime_r(&simpleNow, &now);
-    encodedNow = (10000 * (now.tm_year + 1900)) + (100 * (now.tm_mon + 1)) + now.tm_mday;
-    if (encodedNow > encodedExpiration) {
-      expirationMessageSize = sizeof(expirationMessageTemplate);
-      expirationMessage = malloc(expirationMessageSize + 1);
-      if (expirationMessage != NULL) {
-	originalExpirationMessage = expirationMessageTemplate;
-	for (i = 0; i < expirationMessageSize; i++)
-	  expirationMessage[i] = originalExpirationMessage[i];
-	expirationYear = encodedExpiration / 10000;
-	expirationMonth = (encodedExpiration % 10000) / 100;
-	expirationDay = encodedExpiration % 100;
-	insert_integer(expirationYear, 4, &expirationMessage[expirationMessageSize - 3]);
-	insert_month(expirationMonth, &expirationMessage[expirationMessageSize - 8]);
-	insert_integer(expirationDay, 2, &expirationMessage[expirationMessageSize - 12]);
-	fputs(expirationMessage, stderr);
-      } else  
-	fputs(expirationMessageGeneric, stderr);
-      fputc('\n', stderr);
-      exit(-1);
-    }
-  }
-
-  return;
-}