generate_preproc_output_worker.p
| 1 |
DEFINE VAR input_files AS CHAR EXTENT NO-UNDO. |
|---|---|
| 2 |
DEFINE VAR output_dir AS CHAR NO-UNDO. |
| 3 |
DEFINE VAR postfix AS CHAR NO-UNDO. |
| 4 |
DEFINE VARIABLE idx AS INTEGER NO-UNDO. |
| 5 |
DEFINE VAR no_params AS INTEGER NO-UNDO. |
| 6 |
|
| 7 |
no_params = NUM-ENTRIES(SESSION:PARAMETER). |
| 8 |
IF no_params < 3 THEN DO: |
| 9 |
MESSAGE "You've missed some parameters.". |
| 10 |
MESSAGE "EXPECTED: <input_files>,..,<output_dir>,<postfix>.". |
| 11 |
MESSAGE "ACTUAL: " SESSION:PARAMETER. |
| 12 |
QUIT. |
| 13 |
END. |
| 14 |
|
| 15 |
EXTENT(input_files) = no_params - 2. |
| 16 |
REPEAT idx = 1 TO EXTENT(input_files): |
| 17 |
input_files[idx] = ENTRY(idx, SESSION:PARAMETER, ","). |
| 18 |
END. |
| 19 |
output_dir = ENTRY(no_params - 1, SESSION:PARAMETER, ","). |
| 20 |
postfix = ENTRY(no_params, SESSION:PARAMETER, ","). |
| 21 |
|
| 22 |
RUN tests/preproc/generate_preproc_output.p(input_files, output_dir, postfix). |
| 23 |
|
| 24 |
MESSAGE "Success". |