inc/string.i

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Method-Library
   4 /*--------------------------------------------------------------------------
   5   ------------------------------------------------------------------------*/
   6
   7 /* _UIB-CODE-BLOCK-END */
   8 &ANALYZE-RESUME
   9
  10
  11 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  12
  13 /* ********************  Preprocessor Definitions  ******************** */
  14
  15
  16
  17 /* _UIB-PREPROCESSOR-BLOCK-END */
  18 &ANALYZE-RESUME
  19
  20
  21 /* ************************  Function Prototypes ********************** */
  22
  23 &IF DEFINED(EXCLUDE-add-to-list) = 0 &THEN
  24
  25 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD add-to-list Method-Library
  26 FUNCTION add-to-list RETURNS CHARACTER
  27   ( INPUT-OUTPUT str AS CHAR, INPUT item AS CHAR )  FORWARD.
  28
  29 /* _UIB-CODE-BLOCK-END */
  30 &ANALYZE-RESUME
  31
  32 &ENDIF
  33
  34 &IF DEFINED(EXCLUDE-add-to-list-delim) = 0 &THEN
  35
  36 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD add-to-list-delim Method-Library
  37 FUNCTION add-to-list-delim RETURNS CHARACTER
  38   ( INPUT-OUTPUT str AS CHAR, INPUT item AS CHAR, INPUT delim AS CHAR )  FORWARD.
  39
  40 /* _UIB-CODE-BLOCK-END */
  41 &ANALYZE-RESUME
  42
  43 &ENDIF
  44
  45 &IF DEFINED(EXCLUDE-SPC) = 0 &THEN
  46
  47 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD SPC Method-Library
  48 FUNCTION SPC RETURNS CHARACTER
  49   ( INPUT n AS INT )  FORWARD.
  50
  51 /* _UIB-CODE-BLOCK-END */
  52 &ANALYZE-RESUME
  53
  54 &ENDIF
  55
  56 &IF DEFINED(EXCLUDE-WRAP) = 0 &THEN
  57
  58 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD WRAP Method-Library
  59 FUNCTION WRAP RETURNS CHARACTER
  60   ( INPUT unwrapped AS CHAR, INPUT wrap-width AS INT )  FORWARD.
  61
  62 /* _UIB-CODE-BLOCK-END */
  63 &ANALYZE-RESUME
  64
  65 &ENDIF
  66
  67
  68 /* *********************** Procedure Settings ************************ */
  69
  70 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  71 /* Settings for THIS-PROCEDURE
  72    Type: Method-Library
  73    Allow:
  74    Frames: 0
  75    Add Fields to: Neither
  76    Other Settings: INCLUDE-ONLY
  77  */
  78 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  79
  80 /* *************************  Create Window  ************************** */
  81
  82 &ANALYZE-SUSPEND _CREATE-WINDOW
  83 /* DESIGN Window definition (used by the UIB)
  84   CREATE WINDOW Method-Library ASSIGN
  85          HEIGHT             = .08
  86          WIDTH              = 38.72.
  87 /* END WINDOW DEFINITION */
  88                                                                         */
  89 &ANALYZE-RESUME
  90
  91
  92
  93
  94 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Method-Library
  95
  96
  97 /* ***************************  Main Block  *************************** */
  98
  99 /* _UIB-CODE-BLOCK-END */
 100 &ANALYZE-RESUME
 101
 102
 103 /* ************************  Function Implementations ***************** */
 104
 105 &IF DEFINED(EXCLUDE-add-to-list) = 0 &THEN
 106
 107 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION add-to-list Method-Library
 108 FUNCTION add-to-list RETURNS CHARACTER
 109   ( INPUT-OUTPUT str AS CHAR, INPUT item AS CHAR ) :
 110 /*------------------------------------------------------------------------------
 111   Purpose:
 112     Notes:
 113 ------------------------------------------------------------------------------*/
 114
 115   str = str + (IF str = "" THEN "" ELSE ",") + item.
 116
 117 END FUNCTION.
 118
 119 &GLOB EXCLUDE-add-to-list 1
 120
 121 /* _UIB-CODE-BLOCK-END */
 122 &ANALYZE-RESUME
 123
 124 &ENDIF
 125
 126 &IF DEFINED(EXCLUDE-add-to-list-delim) = 0 &THEN
 127
 128 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION add-to-list-delim Method-Library
 129 FUNCTION add-to-list-delim RETURNS CHARACTER
 130   ( INPUT-OUTPUT str AS CHAR, INPUT item AS CHAR, INPUT delim AS CHAR ) :
 131 /*------------------------------------------------------------------------------
 132   Purpose:
 133     Notes:
 134 ------------------------------------------------------------------------------*/
 135
 136   str = str + (IF str = "" THEN "" ELSE delim) + item.
 137
 138 END FUNCTION.
 139
 140 &GLOB EXCLUDE-add-to-list-delim 1
 141
 142 /* _UIB-CODE-BLOCK-END */
 143 &ANALYZE-RESUME
 144
 145 &ENDIF
 146
 147 &IF DEFINED(EXCLUDE-SPC) = 0 &THEN
 148
 149 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION SPC Method-Library
 150 FUNCTION SPC RETURNS CHARACTER
 151   ( INPUT n AS INT ) :
 152 /*------------------------------------------------------------------------------
 153   Purpose:
 154     Notes:
 155 ------------------------------------------------------------------------------*/
 156
 157   RETURN FILL( " ", n ).   /* Function return value. */
 158
 159 END FUNCTION.
 160
 161 &GLOB EXCLUDE-SPC 1
 162
 163 /* _UIB-CODE-BLOCK-END */
 164 &ANALYZE-RESUME
 165
 166 &ENDIF
 167
 168 &IF DEFINED(EXCLUDE-WRAP) = 0 &THEN
 169
 170 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION WRAP Method-Library
 171 FUNCTION WRAP RETURNS CHARACTER
 172   ( INPUT unwrapped AS CHAR, INPUT wrap-width AS INT ) :
 173 /*------------------------------------------------------------------------------
 174   Purpose:  Wrap 'unwrapped' to the specified width
 175 ------------------------------------------------------------------------------*/
 176 DEF VAR result     AS CHAR NO-UNDO INITIAL "".
 177 DEF VAR words-left AS CHAR NO-UNDO.
 178 DEF VAR idx        AS INT NO-UNDO.
 179 DEF VAR idx2       AS INT NO-UNDO.
 180
 181   words-left = unwrapped.
 182   DO WHILE LENGTH( words-left ) > wrap-width :
 183     idx = R-INDEX( words-left, " ", wrap-width ).
 184     IF idx = 0 THEN idx = wrap-width.
 185     idx2 = INDEX( words-left, "~n").
 186     IF idx2 <> 0 AND idx2 < idx THEN DO:
 187       idx = idx2.
 188       result = result + SUBSTR( words-left, 1, idx).
 189     END.
 190     ELSE
 191       result = result + TRIM(SUBSTR( words-left, 1, idx - 1)) + "~n".
 192
 193     words-left = SUBSTR( words-left, idx + 1).
 194   END.
 195   result = result + words-left.
 196
 197   RETURN result.
 198
 199 END FUNCTION.
 200
 201 &GLOB EXCLUDE-WRAP 1
 202
 203 /* _UIB-CODE-BLOCK-END */
 204 &ANALYZE-RESUME
 205
 206 &ENDIF
 207