! ---------------------------------------------------------------------------
! printf("string", values...) ! print formatted
!
! printf("The %o jumped over the %s %n times.", objectCow, "moon", 5)
! printf("The user entered the '%c' key.", ch)
! printf("%#Please pass the %o,%# said the %o.", objectSalt, objectElf) !double quotes
! printf("Note the <b>warning</b>!") ! bold (or italics or underline)
!
! regular text printchar text in primary string
! %c character printchar character
! %d decimal number print number decimal integer
! %h hexadecimal number print hex word in hex
! %o object print object.name object name
! %s string print string dictionary entry
! html:
! %# double-quote printchar '"' double-quote (open)
! %% '%' printchar percent character
! %; no newline at end no newline override default newline
! %n newline print newline overt newline at position
! <b> font bold Font() set bold font
! </b> font bold off Font() set bold font off
! <i> font italics Font() set italics font
! </i> font italics off Font() set italics font off
! <u> font underline Font() set underline font
! </u> font underline off Font() set underline font off
!
! Notes: a newline is printed at the end of the line, unless "%:" is in the line.
! Values %c %d %h %o %s should be matched by a value in the matching position.
! 0 to 9 %-values (with matching operands) are handled.
! More than 9 %-values will result in default values of zero.
! Items %# %% %; %n <b> <i> <u> </b> </i> </u> do not match operands.
array printf_array[10] ! work array
!----------------------------------------------------------------------------
routine printf(str, v1, v2, v3, v4, v5, v6, v7, v8, v9)
{ local c, i, k, lens, n, nl
! put the operands in the work array:
printf_array[1] = v1
printf_array[2] = v2
printf_array[3] = v3
printf_array[4] = v4
printf_array[5] = v5
printf_array[6] = v6
printf_array[7] = v7
printf_array[8] = v8
printf_array[9] = v9
k=1 ! point to the first operand
lens = string(_temp_string, str, 255) ! convert base text to a work string
for (i=0 ; i<lens; ) ! for each character of the primary string
{ c = _temp_string[i++] ! get the next character
if c='%' ! if current byte is '%'
{ c = _temp_string[i++] ! get the following character (format code)
select c ! per format character:
case '%': printchar '%' ! print a literal '%'
case '#': printchar '"' ! print a double-quote
case 'd': print number printf_array[k++]; ! print a decimal number
case 'h': print hex printf_array[k++]; ! print a hexadecimal number
case 'n': print newline ! print a line break
case 'o': print printf_array[k++].name; ! print an object name
case ';': nl=true ! set no-newline flag
case 'c'
{ n=printf_array[k++] ! print a character
if n>=32 and n<=126: printchar(n)
else: print number n;
}
case 's'
{ print printf_array[k++]; ! print the inner-string
}
case else ' %-escape char not recognized
{ printchar '%' ! so just print '%' and char
printchar c
}
! end select
if k>10: "\n<ERROR: printf() too many operands (max is 9)"
}
elseif c='<' ! if current byte is '<' ! check for HTML
{ if _temp_string[i]='b' and _temp_string[i+1]='>'
{ Font(BOLD_ON)
i=i+2
}
elseif _temp_string[i]='i' and _temp_string[i+1]='>'
{ Font(ITALIC_ON)
i=i+2
}
elseif _temp_string[i]='u' and _temp_string[i+1]='>'
{ Font(UNDERLINE_ON)
i=i+2
}
elseif _temp_string[i]='/' and _temp_string[i+1]='b' and _temp_string[i+2]='>'
{ Font(BOLD_OFF)
i=i+3
}
elseif _temp_string[i]='/' and _temp_string[i+1]='i' and _temp_string[i+2]='>'
{ Font(ITALIC_OFF)
i=i+3
}
elseif _temp_string[i]='/' and _temp_string[i+1]='u' and _temp_string[i+2]='>'
{ Font(UNDERLINE_OFF)
i=i+3
}
else ! got a '<', but it wasn't a proper font-html sequence
{ printchar c ! so just print the '<'
}
}
else ! if the current byte is neither '%' nor '<'
printchar c ! just print it
}
if nl=false: print newline ! print line break
}
