[name]

class [cl.name]') .writeIsNames(cl) # to-do: inherits, implements, generic constraints .writeDocString(cl.docString) .writeBoxMembers(cl) def gen(inter as Interface) .writeLine('

interface [inter.name]') .writeIsNames(inter) # to-do: inherits, generic constraints .writeDocString(inter.docString) .writeBoxMembers(inter) def gen(struc as Struct) .writeLine('

struct [struc.name]') .writeIsNames(struc) # to-do: implements, generic constraints .writeDocString(struc.docString) .writeBoxMembers(struc) def gen(ext as Extension) .writeLine('

extend [if(ext.extendedBox, ext.extendedBox.name, "(no extended box)")]') .writeIsNames(ext) .writeDocString(ext.docString) .writeBoxMembers(ext) def writeIsNames(box as Box) .writeIsNames(box.isNames) def writeIsNames(isNames as String*) if isNames.toList.count .write('is ') sep = '' for name in isNames .write('[sep][name]') sep = ', ' .writeLine def writeBoxMembers(box as Box) .writeLine .indent didWriteMembers = false typeDecls = .sorted(for decl in box.declsInOrder where decl inherits IType) if typeDecls.count didWriteMembers = true .writeBoxMembers(typeDecls) sharedDecls = .sorted(for decl in box.declsInOrder where decl.isShared and not (decl to Object) inherits IType) if sharedDecls.count if didWriteMembers, .writeLine else, didWriteMembers = true .writeLine('shared') # to-do: write this only if shared decls get written. See class Parser output for an example. .writeLine .indent .writeBoxMembers(sharedDecls) .outdent .writeLine nonsharedDecls = .sorted(for decl in box.declsInOrder where not decl.isShared) if nonsharedDecls.count if didWriteMembers, .writeLine else, didWriteMembers = true .writeBoxMembers(nonsharedDecls) if not didWriteMembers .writeLine('pass') .outdent .write('

') def writeBoxMembers(decls as IList) for i in decls.count decl = decls[i] writeCount = _writeCount .dispatch(decl) if _writeCount > writeCount # if wrote anything ... # Write the doc string if decl.docString and decl.docString.length .indent .writeDocString(decl.docString to !) .outdent else _tw.writeLine(' ') # Put a blank line when switching to a different type of member declaration (say from properties to methods) if i < decls.count-1 and decls[i+1].getType is not decl.getType .writeLine def gen(bc as BoxConst) if bc.isPublic or bc.isProtected if bc.initExpr inherits SharpExpr, init = (bc.initExpr to SharpExpr).sharpSource else if bc.initExpr, init = bc.initExpr.toCobraSource else, init = '(unknown)' .writeLine('const [bc.name] = [init] (as [.typeRef(bc.type)])') # to-do: is names, attributes, etc. def gen(bv as BoxVar) if bv.isPublic or bv.isProtected .writeLine('var [bv.name] as [.typeRef(bv.type)]') # to-do: is names, attributes, etc. def gen(evt as BoxEvent) .writeLine('event [evt.name] as [.typeRef(evt.handlerType)]') # to-do: is names, attributes, etc. def gen(method as AbstractMethod) _gen(method, 'def', method.name) def gen(init as Initializer) _gen(init, 'cue', 'init') def _gen(method as AbstractMethod, keyword as String, name as String) .write('[keyword] [name]') if method.params.count .write('(') sep = '' for param in method.params .write(sep) .dispatch(param) sep = ', ' .write(')') .writeLine def gen(param as Param) if param.isInOut, dir = 'inout ' else if param.isOut, dir = 'out ' else, dir = '' .write('[param.name] as [dir]') try type = param.type to dynamic catch Exception # type = '(Unknown type due to exception: [exc])' type = '(unknown)' success type = .typeRef(type) .write(type.toString) # to-do: styles def gen(prop as Property) if prop.getPart and not prop.setPart .write('get') else if prop.setPart and not prop.getPart .write('set') else .write('pro') .writeLine(' [prop.name] as [.typeRef(prop.resultType)]') def gen(indexer as Indexer) if indexer.getPart and not indexer.setPart .write('get') else if indexer.setPart and not indexer.getPart .write('set') else .write('pro') .write(' \[') sep = '' for param in indexer.params .write(sep) .dispatch(param) sep = ', ' .write(']') .writeLine(' as [.typeRef(indexer.resultType)]') def gen(ed as EnumDecl) .writeLine('

enum [ed.name]') .writeIsNames(ed.isNames) .indent for decl in ed.declsInOrder .writeLine(decl.name) .outdent .write('

') ## Sorting members def sorted(decls as IList) as List """ Return the box members in a logically sorted order. First order is by type of member (enums, vars, constructors, props, indexers, methods). Second order is alphabetical. Third order is parameter count. """ t = List(decls) t.sort(ref .compareMembers) return t def compareMembers(a as IBoxMember, b as IBoxMember) as int is shared if a.getType is b.getType diff = a.name.compareTo(b.name) # note that Cobra disallows member names that differ only by case if diff == 0 if a inherits AbstractMethod diff = a.params.count.compareTo((b to AbstractMethod).params.count) else if a inherits Indexer # b must also be an indexer since their names were the same diff = a.params.count.compareTo((b to Indexer).params.count) else if a.name.startsWith('_') and not b.name.startsWith('_') diff = .compareNamesWithFirstUnderscored(a.name, b.name) else if not a.name.startsWith('_') and b.name.startsWith('_') diff = -1 * .compareNamesWithFirstUnderscored(b.name, a.name) else diff = .rank(a).compareTo(.rank(b)) return diff def compareNamesWithFirstUnderscored(a as String, b as String) as int is shared require a.startsWith('_') not b.startsWith('_') body a = a[1:] if a == b, return 1 # underscored/protected member comes last else, return a.compareTo(b) def rank(obj as IBoxMember) as int is shared if obj inherits EnumDecl, return 0 if obj inherits MethodSig, return 10 if obj inherits Box, return 20 if obj inherits BoxConst, return 25 if obj inherits BoxVar, return 30 if obj inherits Initializer, return 40 if obj inherits BoxEvent, return 45 if obj inherits Property, return 50 if obj inherits Indexer, return 60 if obj inherits Method, return 70 throw FallThroughException(obj)