41 lines
769 B
Plaintext
41 lines
769 B
Plaintext
|
proc prints(chan out, value fmt[], str[]) =
|
||
|
|
-- Like fprintf(out, fmt, str), with only %s or %<width>s in fmt[]
|
||
|
|
|
||
|
|
def otherwise=true:
|
||
|
|
var i, len:
|
||
|
|
seq
|
||
|
|
len:=fmt[byte 0]
|
||
|
|
i:=1
|
||
|
|
|
||
|
|
while i<=len
|
||
|
|
if
|
||
|
|
fmt[byte i] = '%'
|
||
|
|
var w:
|
||
|
|
seq
|
||
|
|
i:=i+1
|
||
|
|
w:=0
|
||
|
|
while (i<=len) and ('0'<=fmt[byte i]) and (fmt[byte i]<='9')
|
||
|
|
seq
|
||
|
|
w:=(w*10)+(fmt[byte i]-'0')
|
||
|
|
i:=i+1
|
||
|
|
if
|
||
|
|
i<=len
|
||
|
|
var key:
|
||
|
|
seq
|
||
|
|
key:=fmt[byte i]
|
||
|
|
if
|
||
|
|
key='s'
|
||
|
|
seq
|
||
|
|
seq i=[0 for w-str[byte 0]]
|
||
|
|
out ! ' '
|
||
|
|
seq i=[0 for str[byte 0]]
|
||
|
|
out ! str[byte i]
|
||
|
|
otherwise
|
||
|
|
out ! key
|
||
|
|
i:=i+1
|
||
|
|
otherwise
|
||
|
|
seq
|
||
|
|
out ! fmt[byte i]
|
||
|
|
i:=i+1
|
||
|
|
:
|