') tw.writeLine('

Exception

') objects.record(exc) .dumpObjectAsHtml(objects.serialNumFor(exc), exc, objects) startingSerialNum = objects.minSerialNum tw.writeLine('

') tw.writeLine('

Stack Frames

') if frames is nil tw.writeLine('

There is no detailed stack trace. You can turn this on with "cobra -dst ..." and see significantly more information about the state of the program including the details of every argument and local variable. There is a performance cost, but the slowdown is likely worth it if you are unable to diagnose this problem.

') else if not frames.count tw.writeLine('

No stack frames.

') else frameList = List(frames) frameList.reverse tw.writeLine('') i = 0 for frame in frameList frame.dumpHtml(tw, i, objects, ref .willDumpHtmlFor) i += 1 tw.writeLine('

') tw.writeLine('

Objects

') serialNum = if(startingSerialNum > 0, startingSerialNum+1, objects.minSerialNum) while objects.contains(serialNum) and _dumpObjectCount <= _maxDumpObjectCount .dumpObjectAsHtml(serialNum, objects.objectFor(serialNum), objects) serialNum += 1 tw.writeLine('

') tw.writeLine('') tw.writeLine('') def _headerPair(key as String, value as Object?) key = .htmlEncode(key) value ?= '' value = .htmlEncode(value.toString) .tw.writeLine(' [key] = [value] ') def htmlEncode(obj as Object) as String return CobraCore.htmlEncode(obj) def htmlEncode(s as String) as String return CobraCore.htmlEncode(s) def htmlFormat(s as String) as Html s = .htmlEncode(s) # re = Regex(r'\n[ ]+', ... # CC: ack, no delegates so can't get length sb = StringBuilder(s.length*2) state = 0 for c in s branch state on 0 sb.append(c) if c == c'\n' state = 1 on 1 if c == c' ' sb.append(' ') else if c == c'\n' sb.append(c) else sb.append(c) state = 0 s = sb.toString s = s.replace('\r', '').replace('\n', '
') return Html(s) def willDumpHtmlFor(obj as Object?) as bool if obj is nil, return false if obj inherits int, return false if obj inherits String, return false if obj inherits decimal or obj inherits float, return false if obj inherits bool or obj inherits char, return false if obj.typeOf.getProperties.length == 0, return false if obj inherits Html, return false if obj inherits CobraDirectString, return false if obj.typeOf.isEnum, return false fullName = obj.typeOf.fullName if fullName == 'System.Security.Policy.Evidence' # 2007-07-11 CE: causes problems, at least on mono 1.2.4 return false return true def willDumpHtmlForConservative(obj as Object?) as bool if not .willDumpHtmlFor(obj), return false if obj.typeOf.isNested, return false if 'IEquatableOf' in obj.typeOf.name, return false return true def dumpObjectAsHtml(serialNum as int, obj as Object, objects as ObjectCatalog?) tw = .tw if _dumpObjectCount % 10 == 0 # TODO: change 10 to a public property. value < 1 means not to write progress Console.out.write('.') Console.out.flush _dumpObjectCount += 1 if objects objects.record(obj) tw.writeLine('') tw.writeLine('') tw.writeLine('') try value = obj.toString to Object? catch exc as Exception value = 'Caught exception while reading value: [exc.toString]' row = 1 if obj inherits IHasSourceSite .writeObjectPair1(row, 'at', obj.sourceSite.htmlForAt) row += 1 .writeObjectPair1(row, 'toString', .htmlFormat(value.toString)) propInfos = List(obj.typeOf.getProperties) propInfos.sort(ref .comparePropertyInfoNames) # CC: propInfos.sort(def(a as PropertyInfo, b as PropertyInfo)=a.name.compareTo(b.name)) for propInfo in propInfos if propInfo.canRead and not propInfo.getGetMethod.isStatic and propInfo.name not in ['Clone', 'Copy', 'Item'] if propInfo.name == 'MetadataToken' # problems on mono. http://bugzilla.ximian.com/show_bug.cgi?id=82161 value = '(SKIPPED)' else try value = propInfo.getValue(obj, nil) catch exc as Exception value = .htmlFormat('Caught exception while reading value: [exc.toString]') success value = .htmlForValue(value, objects) .writeObjectPair1(row%2+1, propInfo.name, value) row += 1 extendMethod = obj.typeOf.getMethod('ExtendObjectTable') if extendMethod view = PrivateObjectViewForExceptionReport(this, row, objects) extendMethod.invoke(obj, @[view]) i = view.rowNum # TODO: ack! cannot do this until qualified type problems are fixed up #if obj inherits System.Collections.IList if obj.typeOf.name.startsWith('List`') dobj = obj to dynamic count = dobj.count to int for j = 0 .. count try value = dobj[j] catch exc as Exception value = .htmlFormat('Caught exception while reading indexed value [j]: [exc.toString]') success value = .htmlForValue(value, objects) .writeObjectPair1(i%2+1, r'[' + '[j]]', value) i += 1 else if obj.typeOf.name.startsWith('Dictionary') # TODO: use if implements/inherits dobj = obj to dynamic for key in dobj.keys htmlKey as dynamic? try htmlKey = CobraCore.toTechString(key) catch exc as Exception htmlKey = .htmlFormat('Caught exception for toTechString(key): [exc.toString]') success htmlKey = .htmlEncode(htmlKey) try value = dobj[key] catch exc as Exception value = .htmlEncode('Caught exception while reading keyed value [htmlKey]: [exc.toString]') success value = .htmlForValue(value, objects) .writeObjectPair1(i%2+1, r'[' + htmlKey + ']', value) i += 1 tw.writeLine('

[.htmlEncode(CobraCore.typeName(obj.typeOf))] ([serialNum])

') def comparePropertyInfoNames(a as PropertyInfo, b as PropertyInfo) as int return a.name.compareTo(b.name) def htmlForValue(value as dynamic?, objects as ObjectCatalog?) as dynamic """ Returns the .toTechString of the value, encoded for HTML. Gracefully handles exceptions and also creates links to objects. """ if value inherits Html # this feature is used by AssertException, but it's interesting that this would then make Html() objects less recognizable when they show up in the report as a normal part of the program that failed return value s as dynamic? try try s = CobraCore.toTechString(value) catch exc as Exception s = .htmlFormat('Caught exception while converting value toTechString: [exc.toString]') success s = .htmlFormat(s to !) if value and objects willLink = false if objects.contains(value to passthrough) willLink = true else if .willDumpHtmlForConservative(value) and objects objects.record(value to passthrough) willLink = true if willLink s = '[s]' catch topExc as SystemException # for example, System.Security.Policy.Evidence as a dictionary key causes problems (at least on mono 1.2.4) try s = value.toString catch toStringExc as Exception s = '(htmlForValue: Exception during toString: [toStringExc];[Environment.newLine]Exception during processing: [topExc])' success s = '(htmlForValue: value=[s]; Exception during processing: [topExc])' try s = .htmlFormat(s to !) catch Exception pass # forget it return s to ! def writeObjectPair1(i as int, key as String, valueHtml as Object?) is internal require i == 1 or i == 2 key.length body key = key[0].toString.toLower + key[1:] key = .htmlEncode(key) .writeObjectPair2(i, key, valueHtml) def writeObjectPair2(i as int, preFormattedKey as String, valueHtml as Object?) is internal require i == 1 or i == 2 preFormattedKey.length body .tw.writeLine(' [preFormattedKey] [valueHtml ? ''] ') class PrivateObjectViewForExceptionReport implements HasAppendKeyValue is internal var _reportWriter as HtmlExceptionReportWriter var _rowNum as int var _objects as ObjectCatalog? cue init(reportWriter as HtmlExceptionReportWriter, rowNum as int, objects as ObjectCatalog?) base.init _reportWriter = reportWriter _rowNum = rowNum _objects = objects get rowNum from var def appendKeyValue(key as String, value) key = _reportWriter.htmlEncode(key).replace(' ', ' ') # the double space replace here works well with the indentation scheme used in AssertException html = _reportWriter.htmlForValue(value, _objects) _reportWriter.writeObjectPair2(_rowNum%2+1, key, html) _rowNum += 1 sig WillDumpHtmlForMethod(value as dynamic?) as bool