/usr/share/mozart/doc/apptut/celloid.oz is in mozart-doc 1.4.0-8ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | functor
import
Celloid(new:New is:Is access:Access assign:Assign)
at 'celloid.so{native}'
Error(registerFormatter)
export
New Is Access Assign
define
fun {CelloidFormatter E}
T = 'Celloid Error'
in
case E of celloid(nonLocal C V) then
error(kind: T
msg: 'Attempted assign on non local celloid'
items: [hint(l:'Operation' m:'Celloid.assign')
hint(l:'Celloid' m:oz(C))
hint(l:'Value' m:oz(V))])
else
error(kind: T
items: [line(oz(E))])
end
end
{Error.registerFormatter celloid CelloidFormatter}
end
|