home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / NUMERICI.DEF < prev    next >
Text File  |  1996-09-03  |  4KB  |  100 lines
  1. DEFINITION MODULE NumericIO;
  2.  
  3.         (****************************************************************)
  4.         (*                                                              *)
  5.         (*              Numeric I/O using windows.                      *)
  6.         (*                                                              *)
  7.         (*  Programmer:         P. Moylan                               *)
  8.         (*  Last edited:        3 September 1996                        *)
  9.         (*  Status:             OK                                      *)
  10.         (*                                                              *)
  11.         (****************************************************************)
  12.  
  13. FROM SYSTEM IMPORT
  14.     (* type *)  CARD8, CARD16, CARD32, ADDRESS;
  15.  
  16. FROM Windows IMPORT
  17.     (* type *)  Window;
  18.  
  19. PROCEDURE WriteHexByte (w: Window;  number: CARD8);
  20.  
  21.     (* Writes the second argument as a two-digit hexadecimal number.    *)
  22.  
  23. PROCEDURE WriteHexWord (w: Window;  number: CARD16);
  24.  
  25.     (* Writes the second argument as a four-digit hexadecimal number.   *)
  26.  
  27. PROCEDURE WriteHexLongword (w: Window;  number: CARD32);
  28.  
  29.     (* Writes the second argument as an eight-digit hexadecimal number. *)
  30.  
  31. PROCEDURE EditHexByte (w: Window;  VAR (*INOUT*) value: CARD8);
  32.  
  33.     (* Screen editing of a 2-digit hexadecimal value *)
  34.  
  35. PROCEDURE EditHexWord (w: Window;  VAR (*INOUT*) value: CARD16);
  36.  
  37.     (* Screen editing of a 4-digit hexadecimal value *)
  38.  
  39. PROCEDURE EditHexLongword (w: Window;  VAR (*INOUT*) value: CARD32);
  40.  
  41.     (* Screen editing of an 8-digit hexadecimal value *)
  42.  
  43. PROCEDURE WriteAddress (w: Window;  addr: ADDRESS);
  44.  
  45.     (* Writes a segmented address to the screen.        *)
  46.  
  47. PROCEDURE WriteCard (w: Window;  number: CARDINAL);
  48.  
  49.     (* Writes the second argument as a decimal number.  *)
  50.  
  51. PROCEDURE WriteShortCard (w: Window;  number: CARD8);
  52.  
  53.     (* Writes the second argument as a decimal number.  *)
  54.  
  55. PROCEDURE WriteLongCard (w: Window;  number: CARDINAL);
  56.  
  57.     (* Writes the second argument as a decimal number.  *)
  58.  
  59. PROCEDURE WriteInt (w: Window;  number: INTEGER);
  60.  
  61.     (* Writes the second argument as a decimal number.  *)
  62.  
  63. PROCEDURE WriteRJCard (w: Window;  number, fieldsize: CARDINAL);
  64.  
  65.     (* Like WriteCard, but the result is right justified in a field     *)
  66.     (* of fieldsize characters.                                         *)
  67.  
  68. PROCEDURE WriteRJShortCard (w: Window;  number: CARD8;
  69.                                         fieldsize: CARDINAL);
  70.  
  71.     (* Like WriteShortCard, but the result is right justified in a      *)
  72.     (* field of fieldsize characters.                                   *)
  73.  
  74. PROCEDURE WriteRJLongCard (w: Window;  number: CARDINAL; fieldsize: CARDINAL);
  75.  
  76.     (* Like WriteLongCard, but the result is right justified in a field *)
  77.     (* of fieldsize characters.                                         *)
  78.  
  79. PROCEDURE ReadCard (w: Window;  VAR (*OUT*) number: CARDINAL);
  80.  
  81.     (* Reads a decimal number.  *)
  82.  
  83. PROCEDURE ReadBufferedCardinal (w: Window;  fieldsize: CARDINAL): CARDINAL;
  84.  
  85.     (* Reads a decimal number.  The difference between this and         *)
  86.     (* ReadCard is that the user is given a reverse-video field of a    *)
  87.     (* fixed width to work in, and is able to use the cursor control    *)
  88.     (* keys to edit within that field.                                  *)
  89.  
  90. PROCEDURE EditCardinal (w: Window;  VAR (*INOUT*) value: CARDINAL;
  91.                                                 fieldsize: CARDINAL);
  92.  
  93. PROCEDURE EditShortCard (w: Window;  VAR (*INOUT*) value: CARD8;
  94.                                                 fieldsize: CARDINAL);
  95.  
  96.     (* Screen editing of a decimal number. *)
  97.  
  98. END NumericIO.
  99.  
  100.