1 // format_padded_string().
16 void format_padded_string (cl_ostream stream, sintL mincol, sintL colinc, sintL minpad, char padchar, cl_boolean padleftflag, const char * str)
18 var sintL need = ::strlen(str) + minpad; // so viele Zeichen mindestens
19 var uintL auxpad = (need < mincol
20 ? ceiling((uintL)(mincol - need), colinc) * colinc
25 format_padding(stream,minpad+auxpad,padchar);