Artifact b6dcb1e1aedd2f58fb69bb80b24a3af83628b1ddbe01c4bc7dd3257109c1e76a:

• Executable file r37/lisp/csl/jlisp/LispStringReader.java — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 749) [annotate] [blame] [check-ins using] [more...]

//
// This file is part of the Jlisp implementation of Standard Lisp
// Copyright \u00a9 (C) Codemist Ltd, 1998-2000.
//

import java.io.*;
import java.math.*;
import java.util.*;
import java.text.*;
import java.security.*;

class LispStringReader extends LispStream
{

    int pos;

    LispStringReader(String data)
    {
        super("<read from string>");
        stringData = data;
        pos = 0;
        needsPrompt = false;
        escaped = false;
        this.allowOctal = allowOctal;
        nextChar = -2;
    }

    int read()
    {
        if (pos >= stringData.length()) return -1;
        else return (int)stringData.charAt(pos++);
    }

    void close()
    {
        stringData = null;
    }

}

// end of LispStringReader.java