VB6 code that emits VB6 code

[MrChug]

' Grasshopper, take a deep breath ...
err2go = " sErrDescr = ""Error "" & Err.Number & "" '"" & Err.Description & ""'"" & vbCrLf &_
"" occurred in " & fileName & " " & gErlRoutine & """ & _" & vbCrLf & _
" IIf(Erl <> 0, "" at line "" & cstr(Erl) & ""."", ""."")"
Print #fOut, err2go
' ... now exhale

This was a project that needed error handlers everywhere[1]. Using structured comments the source was preprocessed to automatically insert error handlers. Run time errors produced full stack traces with none of the bother of having to code an actual error handler manually. Sweet! [1] Really. Trust me.

They will never have seen anything like us them there. - M. Spirito