Changeset 4438


Ignore:
Timestamp:
10/17/03 17:34:13 (18 years ago)
Author:
piso
Message:

parseNamestring()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Pathname.java

    r4047 r4438  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Pathname.java,v 1.16 2003-09-25 01:21:42 piso Exp $
     5 * $Id: Pathname.java,v 1.17 2003-10-17 17:34:13 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    8686    }
    8787
     88    public static Pathname parseNamestring(String namestring)
     89        throws ConditionThrowable
     90    {
     91        return new Pathname(namestring);
     92    }
     93
    8894    // ### namestring
    8995    // namestring pathname => namestring
    9096    // FIXME arg can be a stream, too...
    91     private static final Primitive1 NAMESTRING = new Primitive1("namestring") {
     97    private static final Primitive1 NAMESTRING = new Primitive1("namestring")
     98    {
    9299        public LispObject execute(LispObject arg) throws ConditionThrowable
    93100        {
     
    129136    // pathname pathspec => pathname
    130137    // FIXME pathspec can be a stream, too...
    131     private static final Primitive1 PATHNAME = new Primitive1("pathname") {
     138    private static final Primitive1 PATHNAME = new Primitive1("pathname")
     139    {
    132140        public LispObject execute(LispObject arg) throws ConditionThrowable
    133141        {
     
    145153    // FIXME Very incomplete.
    146154    private static final Primitive _MAKE_PATHNAME =
    147         new Primitive("%make-pathname", PACKAGE_SYS, false) {
     155        new Primitive("%make-pathname", PACKAGE_SYS, false)
     156    {
    148157        public LispObject execute(LispObject[] args) throws ConditionThrowable
    149158        {
     
    194203
    195204    // ### pathnamep
    196     private static final Primitive1 PATHNAMEP = new Primitive1("pathnamep") {
     205    private static final Primitive1 PATHNAMEP = new Primitive1("pathnamep")
     206    {
    197207        public LispObject execute(LispObject arg) throws ConditionThrowable
    198208        {
Note: See TracChangeset for help on using the changeset viewer.