1 /* START OF: kermit_dcls.incl.pl1 * * * * * */ 2 3 /********************************************************************/ 4 /* */ 5 /*n kermit_dcls */ 6 /* */ 7 /*d This include file contains the declarations of the external */ 8 /*d kermit entrypoints that are called by other modules within */ 9 /*d kermit as well as an explanation of the parameters. */ 10 /* */ 11 /*l Written: 84-10-11 by Dean Elhard */ 12 /* */ 13 /********************************************************************/ 14 15 dcl kermit_comm_mgr_$flush_input 16 entry 17 (ptr, /* kermit info ptr */ 18 fixed bin(35)); /* error code */ 19 20 dcl kermit_comm_mgr_$reset_line_modes 21 entry 22 (ptr, /* kermit info ptr */ 23 fixed bin(35)); /* error code */ 24 25 dcl kermit_comm_mgr_$set_line_modes 26 entry 27 (ptr, /* kermit info ptr */ 28 fixed bin(35)); /* error code */ 29 30 dcl kermit_get_filenames_ entry 31 (ptr, /* kermit info ptr */ 32 char(*), /* argument */ 33 ptr, /* filename ptr */ 34 char(*), /* reason */ 35 fixed bin(35)); /* error code */ 36 37 dcl kermit_log_mgr_$close_log 38 entry 39 (ptr, /* kermit info ptr */ 40 fixed bin (35)); /* error code */ 41 42 dcl kermit_log_mgr_$disable entry 43 (ptr, /* kermit info ptr */ 44 fixed bin (35)); /* error code */ 45 46 dcl kermit_log_mgr_$display_stats 47 entry /* statistics command */ 48 (ptr, /* sci ptr */ 49 ptr); /* kermit info ptr */ 50 51 dcl kermit_log_mgr_$enable entry 52 (ptr, /* kermit info ptr */ 53 fixed bin (35)); /* error code */ 54 55 dcl kermit_log_mgr_$log_message 56 entry 57 (ptr, /* kermit info ptr */ 58 ptr); /* log info ptr */ 59 60 dcl kermit_log_mgr_$open_log 61 entry 62 (ptr, /* kermit info ptr */ 63 char (*) varying, /* log file name */ 64 fixed bin (35)); /* error code */ 65 66 dcl kermit_log_mgr_$start entry /* start log command */ 67 (ptr, /* sci ptr */ 68 ptr); /* kermit info ptr */ 69 70 dcl kermit_log_mgr_$stop entry /* stop log command */ 71 (ptr, /* sci ptr */ 72 ptr); /* kermit info ptr */ 73 74 dcl kermit_mode_mgr_$get entry /* get modes command */ 75 (ptr, /* sci ptr */ 76 ptr); /* kermit info ptr */ 77 78 dcl kermit_mode_mgr_$retrieve 79 entry 80 (ptr, /* kermit info ptr */ 81 fixed bin, /* permanent/temporary select */ 82 (*) fixed bin, /* mode selector array */ 83 ptr, /* mode value ptr */ 84 fixed bin (35)); /* error code */ 85 86 dcl kermit_mode_mgr_$set entry /* set modes command */ 87 (ptr, /* sci ptr */ 88 ptr); /* kermit info ptr */ 89 90 dcl kermit_mode_mgr_$store entry 91 (ptr, /* kermit info ptr */ 92 fixed bin, /* permanent/temporary select */ 93 (*) fixed bin, /* mode selector array */ 94 ptr, /* mode value ptr */ 95 fixed bin (35)); /* error code */ 96 97 dcl kermit_pad_$receive entry 98 (ptr, /* kermit info ptr */ 99 char (1), /* packet type */ 100 ptr, /* buffer pointer */ 101 fixed bin (21), /* buffer length */ 102 fixed bin, /* sequence number */ 103 fixed bin (21), /* chars received */ 104 fixed bin (21), /* packet size */ 105 bit (1), /* CR/NL split flag */ 106 fixed bin (35)); /* error code */ 107 108 dcl kermit_pad_$send entry 109 (ptr, /* kermit info ptr */ 110 char (1), /* packet type */ 111 ptr, /* data ptr */ 112 fixed bin (21), /* data length */ 113 fixed bin, /* sequence number */ 114 fixed bin (21), /* chars transmitted */ 115 fixed bin (21), /* packet length */ 116 fixed bin (35)); /* error code */ 117 118 dcl kermit_receive_$receive_from_remote 119 entry 120 (ptr, /* kermit info ptr */ 121 fixed bin, /* initial state */ 122 fixed bin, /* initial sequence number */ 123 char (*), /* user filename (first file) */ 124 bit (1), /* =1 if user gave filename */ 125 fixed bin, /* number of files received */ 126 fixed bin (35)); /* error code */ 127 128 dcl kermit_send_$send_to_remote 129 entry 130 (ptr, /* kermit info ptr */ 131 ptr, /* filenames area ptr */ 132 char (*), /* user filename (first file) */ 133 bit (1), /* =1 if user gave filename */ 134 fixed bin, /* number of files sent */ 135 fixed bin (35)); /* error code */ 136 137 138 dcl kermit_server_ 139 entry 140 (ptr, /* kermit info ptr */ 141 ptr); /* filenames area ptr */ 142 143 144 dcl kermit_xfer_modes_$check_params 145 entry 146 (ptr, /* kermit info ptr */ 147 ptr, /* remote parameters */ 148 fixed bin (21), /* remote parameters length */ 149 ptr, /* local parameters */ 150 fixed bin (35)); /* error code */ 151 152 dcl kermit_xfer_modes_$init 153 entry 154 (ptr, /* ptr to kermit info */ 155 fixed bin (35)); /* error code */ 156 157 dcl kermit_xfer_modes_$get_local_params 158 entry 159 (ptr, /* kermit info ptr */ 160 ptr, /* local parameters */ 161 fixed bin (21), /* local parameters length */ 162 ptr, /* encoded parameters */ 163 fixed bin (21), /* encoded parameters length */ 164 fixed bin (35)); /* error code */ 165 166 dcl kermit_xfer_modes_$process_params 167 entry 168 (ptr, /* kermit info ptr */ 169 ptr, /* remote parameters */ 170 fixed bin (21), /* remote parameters length */ 171 ptr, /* local parameters */ 172 fixed bin (35)); /* error code */ 173 174 /* END OF: kermit_dcls.incl.pl1 * * * * * */