arithmetic/src/basictypes/float/float.tmpl
%
% Quake functions to instantiate operations on generic float numbers.
%
readonly proc FloatBasic (nm, field, fieldt, fieldf) is
local basic = nm & "Basic"
build_generic_intf (basic, "FloatBasic", [field, fieldt, fieldf], VISIBLE)
build_generic_impl (basic, "FloatBasic", [])
implementation (basic&"Ex")
end
readonly proc FloatEx (nm, field) is
local basic = nm & "Ex"
Interface(basic)
build_generic_impl (basic, "FloatEx", [])
end
readonly proc FloatTrans (nm, field, fieldb, fieldx) is
local trans = nm & "Trans"
build_generic_intf (trans, "FloatTrans", [field, fieldb, fieldx], VISIBLE)
build_generic_impl (trans, "FloatTrans", [])
end
readonly proc FloatFmtLex (nm, field) is
local basic = nm & "FmtLex"
local intf = nm & "FmtLexIntf"
build_generic_intf (basic, "FloatFmtLex", [field], VISIBLE)
build_generic_impl (basic, "FloatFmtLex", [intf])
interface (intf)
end