Changeset 11418
- Timestamp:
- 12/05/08 21:19:37 (12 years ago)
- Location:
- branches/open-external-format/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/open-external-format/src/org/armedbear/lisp/StringInputStream.java
r11391 r11418 63 63 } 64 64 65 @Override 65 66 public LispObject typeOf() 66 67 { … … 68 69 } 69 70 71 @Override 70 72 public LispObject classOf() 71 73 { … … 73 75 } 74 76 77 @Override 75 78 public LispObject typep(LispObject type) throws ConditionThrowable 76 79 { … … 86 89 } 87 90 91 @Override 88 92 public LispObject close(LispObject abort) throws ConditionThrowable 89 93 { … … 92 96 } 93 97 98 @Override 94 99 public LispObject listen() 95 100 { … … 97 102 } 98 103 104 @Override 99 105 protected int _readChar() 100 106 { … … 103 109 int n = s.charAt(offset); 104 110 ++offset; 105 if (n == '\n')111 if (n == '\n') 106 112 ++lineNumber; 107 113 return n; 108 114 } 109 115 116 @Override 110 117 protected void _unreadChar(int n) 111 118 { … … 117 124 } 118 125 126 @Override 119 127 protected boolean _charReady() 120 128 { … … 122 130 } 123 131 132 @Override 124 133 public String toString() 125 134 { … … 132 141 new Primitive("make-string-input-stream", "string &optional start end") 133 142 { 143 @Override 134 144 public LispObject execute(LispObject arg) throws ConditionThrowable 135 145 { … … 137 147 } 138 148 149 @Override 139 150 public LispObject execute(LispObject first, LispObject second) 140 151 throws ConditionThrowable … … 145 156 } 146 157 158 @Override 147 159 public LispObject execute(LispObject first, LispObject second, 148 160 LispObject third) … … 162 174 new Primitive("string-input-stream-current", PACKAGE_EXT, true, "stream") 163 175 { 176 @Override 164 177 public LispObject execute(LispObject arg) throws ConditionThrowable 165 178 { -
branches/open-external-format/src/org/armedbear/lisp/StringOutputStream.java
r11391 r11418 55 55 } 56 56 57 @Override 57 58 public LispObject typeOf() 58 59 { … … 60 61 } 61 62 63 @Override 62 64 public LispObject classOf() 63 65 { … … 65 67 } 66 68 69 @Override 67 70 public LispObject typep(LispObject type) throws ConditionThrowable 68 71 { … … 78 81 } 79 82 83 @Override 80 84 public void _writeChar(char c) throws ConditionThrowable 81 85 { … … 85 89 } 86 90 91 @Override 87 92 public void _writeChars(char[] chars, int start, int end) 88 93 throws ConditionThrowable … … 93 98 } 94 99 100 @Override 95 101 public void _writeString(String s) throws ConditionThrowable 96 102 { … … 100 106 } 101 107 108 @Override 102 109 public void _writeLine(String s) throws ConditionThrowable 103 110 { … … 112 119 } 113 120 121 @Override 114 122 protected long _getFilePosition() throws ConditionThrowable 115 123 { … … 129 137 } 130 138 139 @Override 131 140 public String toString() 132 141 { … … 140 149 "element-type") 141 150 { 151 @Override 142 152 public LispObject execute(LispObject arg) throws ConditionThrowable 143 153 { … … 151 161 new Primitive("get-output-stream-string", "string-output-stream") 152 162 { 163 @Override 153 164 public LispObject execute(LispObject arg) throws ConditionThrowable 154 165 {
Note: See TracChangeset
for help on using the changeset viewer.