use SortColumns

[ukos-git]

• create a wrapper function for SortColumns
• use SortColumns for IP>6
• use our own routine for IP6

igor-code-browser/procedures/CodeBrowser.ipf

Lines 647 to 689 in 6a14977

	// @todo IgorPro >= 7 supports SortColumns
	static Function sortListByLineNumber(decls, lines, helps)
	Wave/T decls
	Wave/D lines
	Wave/T helps
	// check if sort is necessary
	if(Dimsize(decls, 0) * Dimsize(lines, 0) == 0)
	return 0
	endif
	Duplicate/T/FREE/R=[][0] decls, declCol0
	Duplicate/T/FREE/R=[][1] decls, declCol1
	Duplicate/T/FREE/R=[][0] helps, helpCol0
	Duplicate/T/FREE/R=[][1] helps, helpCol1
	Sort/A lines, lines, declCol0, declCol1, helpCol0, helpCol1
	decls[][0] = declCol0[p][0]
	decls[][1] = declCol1[p][0]
	helps[][0] = helpCol0[p][0]
	helps[][1] = helpCol1[p][0]
	End
	// @todo IgorPro >= 7 supports SortColumns
	static Function sortListByName(decls, lines, helps)
	Wave/T decls
	Wave/D lines
	Wave/T helps
	// check if sort is necessary
	if(Dimsize(decls, 0) * Dimsize(lines, 0) == 0)
	return 0
	endif
	Duplicate/T/FREE/R=[][0] decls, declCol0
	Duplicate/T/FREE/R=[][1] decls, declCol1
	Duplicate/T/FREE/R=[][0] helps, helpCol0
	Duplicate/T/FREE/R=[][1] helps, helpCol1
	Sort/A declCol1, lines, declCol0, declCol1, helpCol0, helpCol1
	decls[][0] = declCol0[p][0]
	decls[][1] = declCol1[p][0]
	helps[][0] = helpCol0[p][0]
	helps[][1] = helpCol1[p][0]
	End