Changeset 4136

Timestamp:

09/29/03 17:59:52 (19 years ago)

Author:

piso

Message:

SYS::DEFAULT-TIME-ZONE

File:

• trunk/j/src/org/armedbear/lisp/Time.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Time.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Time.java,v 1.7 2003-09-25 15:37:08 piso Exp $
+ * $Id: Time.java,v 1.8 2003-09-29 17:59:52 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -23 +23 @@
 
 import java.io.File;
+import java.util.TimeZone;
 
 public final class Time extends Lisp
@@ -90 +91 @@
         }
     };
+
+    private static final Primitive0 DEFAULT_TIME_ZONE =
+        new Primitive0("default-time-zone", PACKAGE_SYS, false)
+    {
+        public LispObject execute() throws ConditionThrowable
+        {
+            TimeZone tz = TimeZone.getDefault();
+            int offset = tz.getOffset(System.currentTimeMillis());
+            // "Time zone values increase with motion to the west..."
+            // Convert milliseconds to hours.
+            return new Fixnum(- offset).divideBy(new Fixnum(3600000));
+        }
+    };
 }