Changeset 14216


Ignore:
Timestamp:
10/25/12 05:31:21 (8 years ago)
Author:
Mark Evenson
Message:

Choose (hopefully) more informative return values for LISP-IMPLEMENTATION-VERSION.

The use of "-" as a separator for fields in imitation of GNU configure
would probably be better replaced with returning proper lists.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/lisp_implementation_version.java

    r14215 r14216  
    4949    public LispObject execute()
    5050    {
    51         String vendor = System.getProperty("java.vendor");
    52         vendor = vendor.replace(" ", "_");
    5351        String jdkVersion = MessageFormat.format("{0}-{1}-{2})",
    54                                           vendor,
    55                                           System.getProperty("os.arch"),
    56                                           System.getProperty("java.runtime.version"));
     52                                                 System.getProperty("java.vm.name"),
     53                                                 System.getProperty("java.vm.vendor"),
     54                                                 System.getProperty("java.runtime.version"))
     55            .replace(" ", "_");
     56        String osVersion  = MessageFormat.format("{0}-{1}-{2})",
     57                                                 System.getProperty("os.arch"),
     58                                                 System.getProperty("os.name"),
     59                                                 System.getProperty("os.version"))
     60            .replace(" ", "_");
     61
    5762        return Primitives.VALUES.execute(new SimpleString(Version.getVersion()),
    58                                          new SimpleString(jdkVersion));
     63                                         new SimpleString(jdkVersion),
     64                                         new SimpleString(osVersion));
    5965    }
    6066
Note: See TracChangeset for help on using the changeset viewer.