Artifact c661db7a44a2bbdd51737402cef1fb0a76f3ca2f8c30a926660ed2700173bb41:

• Executable file r37/lisp/csl/jlisp/LispCounter.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: 504) [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.*;

class LispCounter extends LispStream
{

    LispCounter()
    {
        super("<character counter>");
        column = 0;
    }

    void flush()
    {
    }

    void close()
    {
    }

    void print(String s)
    {
        column += s.length();
    }

    void println(String s)
    {
        column += s.length() + 1;
    }

}

// end of LispCounter.java