home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / gpidef.mod < prev    next >
Text File  |  1994-05-03  |  1KB  |  41 lines
  1. IMPLEMENTATION MODULE GPIDEF;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 GPI general functions.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SYSTEM;
  14.  
  15. PROCEDURE MAKEFIXED( intpart,fractpart:SYSTEM.WORD ):FIXED;
  16. VAR
  17.   Lo,Hi : INTEGER;
  18. BEGIN
  19.   Lo := intpart;
  20.   Hi := fractpart;
  21.   RETURN LONG( Lo ) + LONG( Hi ) SHL 16;
  22. END MAKEFIXED;
  23.  
  24. PROCEDURE FIXEDFRAC( fx:SYSTEM.LONGWORD ):CARDINAL;
  25. VAR
  26.   i : LONGCARD;
  27. BEGIN
  28.   i := fx;
  29.   RETURN SHORT( i );
  30. END FIXEDFRAC;
  31.  
  32. PROCEDURE FIXEDINT( fx:SYSTEM.LONGWORD ):INTEGER;
  33. VAR
  34.   i : LONGCARD;
  35. BEGIN
  36.   i := fx;
  37.   RETURN VAL( INTEGER, SHORT( i SHR 16 ) );
  38. END FIXEDINT;
  39.  
  40. END GPIDEF.
  41.