File mttroot/mtt/bin/trans/p/sign.p artifact 52b4a0069f part of check-in 1a8abdb3d9


FUNCTION sign(x	: REAL) : REAL;
{ This useful function is missing from Pascal }

BEGIN
   IF X>=0 THEN
      sign := 1
   ELSE
      sign := -1;
END; { sign }



MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]