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