## Generate symbol table file (.sbl).# SBLVERSION:	con "limbo .sbl 2.0";EXT:		con ".sbl"; sblout(out: string){	n: int;	sym: string;	bsym: ref Bufio->Iobuf; 	n = len out;	if(n > 2 && out[n-1] == 's') {		# .s or .dis file ?		if(out[n-2] == '.')			n -= 2;		else if(n > 4 && out[n-2] == 'i'		&& out[n-3] == 'd' && out[n-4] == '.')			n -= 4;	}	sym = out[0:n] + EXT; 	bsym = bufio->create(sym, Bufio->OWRITE, 8r644);	if(bsym == nil)		fatal("can't open " + sym + ": " + sprint("%r")); 	bsym.puts(SBLVERSION + "\n");	bsym.puts(THISCLASS + "\n");	bsym.puts("1\n");	s: string;	if(class.source_file)		s = STRING(class.source_file) + "\n";	else		s = THISCLASS + ".java\n";	bsym.puts(s);	sblinst(bsym);			# Dis instructions	bsym.puts("0\n");		# adts	sbllinks(bsym);			# functions	bsym.puts("0\n");		# globals 	bsym.close();}