Changeset 14600
- Timestamp:
- 01/09/14 11:22:38 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/JavaObject.java
r13608 r14600 360 360 return obj.toString(); 361 361 final String s; 362 if (obj != null) {362 if (obj != null) { 363 363 Class<?> c = obj.getClass(); 364 364 StringBuilder sb 365 365 = new StringBuilder(c.isArray() ? "jarray" : c.getName()); 366 366 sb.append(' '); 367 String ts = obj.toString(); 368 int length = -1; 369 LispObject stringLength = _JAVA_OBJECT_TO_STRING_LENGTH.symbolValueNoThrow(); 370 if (stringLength instanceof Fixnum) { 371 length = Fixnum.getValue(stringLength); 372 } 373 if (length < 0) { 374 sb.append(ts); 375 }else if (ts.length() > length) { 376 // use '....' to not confuse user with PPRINT conventions 377 sb.append(ts.substring(0, length)).append("...."); 378 } else { 379 sb.append(ts); 380 } 381 s = sb.toString(); 367 try { 368 String ts = obj.toString(); 369 int length = -1; 370 LispObject stringLength = _JAVA_OBJECT_TO_STRING_LENGTH.symbolValueNoThrow(); 371 if (stringLength instanceof Fixnum) { 372 length = Fixnum.getValue(stringLength); 373 } 374 if (length < 0) { 375 sb.append(ts); 376 } else if (ts.length() > length) { 377 // use '....' to not confuse user with PPRINT conventions 378 sb.append(ts.substring(0, length)).append("...."); 379 } else { 380 sb.append(ts); 381 } 382 s = sb.toString(); 383 } catch (Exception e) { 384 return serror(new JavaException(e)); 385 } 382 386 } else { 383 387 s = "null";
Note: See TracChangeset
for help on using the changeset viewer.