1 21 22 package org.armedbear.lisp; 23 24 public final class UpcaseStream extends CaseFrobStream 25 { 26 public UpcaseStream(Stream target) throws ConditionThrowable 27 { 28 super(target); 29 } 30 31 public void _writeChar(char c) throws ConditionThrowable 32 { 33 target._writeChar(Utilities.toUpperCase(c)); 34 } 35 36 public void _writeString(String s) throws ConditionThrowable 37 { 38 target._writeString(s.toUpperCase()); 39 } 40 41 public void _writeLine(String s) throws ConditionThrowable 42 { 43 target._writeLine(s.toUpperCase()); 44 } 45 } 46 | Popular Tags |