inc/math.i

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include
   4 /*--------------------------------------------------------------------------
   5     File        :
   6     Purpose     :
   7
   8     Syntax      :
   9
  10     Description :
  11
  12     Author(s)   :
  13     Created     :
  14     Notes       :
  15   ------------------------------------------------------------------------*/
  16 /*          This .W file was created with the Progress UIB.             */
  17 /*----------------------------------------------------------------------*/
  18
  19 /* ***************************  Definitions  ************************** */
  20
  21 /* _UIB-CODE-BLOCK-END */
  22 &ANALYZE-RESUME
  23
  24
  25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  26
  27 /* ********************  Preprocessor Definitions  ******************** */
  28
  29
  30
  31 /* _UIB-PREPROCESSOR-BLOCK-END */
  32 &ANALYZE-RESUME
  33
  34
  35 /* ************************  Function Prototypes ********************** */
  36
  37 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD ceiling Include
  38 FUNCTION ceiling RETURNS INTEGER
  39   ( INPUT d AS DEC )  FORWARD.
  40
  41 /* _UIB-CODE-BLOCK-END */
  42 &ANALYZE-RESUME
  43
  44 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD floor Include
  45 FUNCTION floor RETURNS INTEGER
  46   ( INPUT d AS DEC )  FORWARD.
  47
  48 /* _UIB-CODE-BLOCK-END */
  49 &ANALYZE-RESUME
  50
  51
  52 /* *********************** Procedure Settings ************************ */
  53
  54 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  55 /* Settings for THIS-PROCEDURE
  56    Type: Include
  57    Allow:
  58    Frames: 0
  59    Add Fields to: Neither
  60    Other Settings: INCLUDE-ONLY
  61  */
  62 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  63
  64 /* *************************  Create Window  ************************** */
  65
  66 &ANALYZE-SUSPEND _CREATE-WINDOW
  67 /* DESIGN Window definition (used by the UIB)
  68   CREATE WINDOW Include ASSIGN
  69          HEIGHT             = .3
  70          WIDTH              = 40.
  71 /* END WINDOW DEFINITION */
  72                                                                         */
  73 &ANALYZE-RESUME
  74
  75
  76
  77
  78 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include
  79
  80
  81 /* ***************************  Main Block  *************************** */
  82
  83 /* _UIB-CODE-BLOCK-END */
  84 &ANALYZE-RESUME
  85
  86
  87 /* ************************  Function Implementations ***************** */
  88
  89 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION ceiling Include
  90 FUNCTION ceiling RETURNS INTEGER
  91   ( INPUT d AS DEC ) :
  92 /*------------------------------------------------------------------------------
  93   Purpose:
  94     Notes:
  95 ------------------------------------------------------------------------------*/
  96
  97   DEF VAR ceiling AS INT NO-UNDO.
  98
  99   ceiling = IF TRUNCATE( d, 0 ) = d
 100     THEN d
 101     ELSE TRUNCATE( d, 0 ) + ( IF d < 0 THEN 0 ELSE 1 ).
 102   RETURN ceiling.
 103
 104 END FUNCTION.
 105
 106 /* _UIB-CODE-BLOCK-END */
 107 &ANALYZE-RESUME
 108
 109
 110 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION floor Include
 111 FUNCTION floor RETURNS INTEGER
 112   ( INPUT d AS DEC ) :
 113 /*------------------------------------------------------------------------------
 114   Purpose:
 115     Notes:
 116 ------------------------------------------------------------------------------*/
 117
 118   DEF VAR floor AS INT NO-UNDO.
 119   floor = TRUNCATE( d, 0 ).
 120   floor = IF floor = d THEN d ELSE floor - ( IF d < 0 THEN 1 ELSE 0 ).
 121   RETURN floor.
 122
 123 END FUNCTION.
 124
 125 /* _UIB-CODE-BLOCK-END */
 126 &ANALYZE-RESUME
 127
 128