| 3032 | // |
| 3033 | |
| 3034 | static void gen_routine(const act* action) |
| 3035 | { |
| 3036 | for (const gpre_req* request = (const gpre_req*) action->act_object; request; |
| 3037 | request = request->req_routine) |
| 3038 | { |
| 3039 | for (const gpre_port* port = request->req_ports; port; port = port->por_next) |
| 3040 | make_port(port); |
| 3041 | for (blb* blob = request->req_blobs; blob; blob = blob->blb_next) |
| 3042 | { |
| 3043 | fprintf(gpreGlob.out_file, "%sINTEGER*4 isc_%d %s{ blob handle }\n", |
| 3044 | COLUMN, blob->blb_ident, INLINE_COMMENT); |
| 3045 | fprintf(gpreGlob.out_file, "%sCHARACTER*%d isc_%d %s{ blob segment }\n", |
| 3046 | COLUMN, blob->blb_seg_length, blob->blb_buff_ident, INLINE_COMMENT); |
| 3047 | fprintf(gpreGlob.out_file, "%sINTEGER*2 isc_%d %s{ segment length }\n", |
| 3048 | COLUMN, blob->blb_len_ident, INLINE_COMMENT); |
| 3049 | } |
| 3050 | } |
| 3051 | } |
| 3052 | |
| 3053 | |
| 3054 | //____________________________________________________________ |
no test coverage detected