/* * Copyright (c) Eicon Networks, 2002. * This source file is supplied for the use with Eicon Networks range of DIVA Server Adapters. * Eicon File Revision : 2.1 * This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY OF ANY KIND WHATSOEVER INCLUDING ANY implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. * You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * */ #include "platform.h" #include "di_defs.h" #include "pc.h" #include "capi20.h" #include "divacapi.h" #include "mdm_msg.h" #include "divasync.h" #define FILE_ "MESSAGE.C" #define dprintf /*------------------------------------------------------------------*/ /* This is options supported for all adapters that are server by */ /* XDI driver. Allo it is not necessary to ask it from every adapter*/ /* and it is not necessary to save it separate for every adapter */ /* Macrose defined here have only local meaning */ /*------------------------------------------------------------------*/ static dword diva_xdi_extended_features = 0; #define DIVA_CAPI_USE_CMA 0x00000001 #define DIVA_CAPI_XDI_PROVIDES_SDRAM_BAR 0x00000002 #define DIVA_CAPI_XDI_PROVIDES_NO_CANCEL 0x00000004 #define DIVA_CAPI_XDI_PROVIDES_RX_DMA 0x00000008 /* CAPI can request to process all return codes self only if: protocol code supports this && xdi supports this */ #define DIVA_CAPI_SUPPORTS_NO_CANCEL(__a__) (((__a__)->manufacturer_features & MANUFACTURER_FEATURE_XONOFF_FLOW_CONTROL) && ((__a__)->manufacturer_features & MANUFACTURER_FEATURE_OK_FC_LABEL) && (diva_xdi_extended_features & DIVA_CAPI_XDI_PROVIDES_NO_CANCEL)) /*------------------------------------------------------------------*/ /* local function prototypes */ /*------------------------------------------------------------------*/ static void group_optimization(DIVA_CAPI_ADAPTER *a, PLCI *plci); static void set_group_ind_mask(PLCI *plci); static void clear_group_ind_mask_bit(PLCI *plci, word b); static byte test_group_ind_mask_bit(PLCI *plci, word b); void AutomaticLaw(DIVA_CAPI_ADAPTER *); word CapiRelease(word); word CapiRegister(word); word api_put(APPL *, CAPI_MSG *); static word api_parse(byte *, word, byte *, API_PARSE *); static void api_save_msg(API_PARSE *in, byte *format, API_SAVE *out); static void api_load_msg(API_SAVE *in, API_PARSE *out); word api_remove_start(void); void api_remove_complete(void); static void plci_remove(PLCI *); static void diva_get_extended_adapter_features(DIVA_CAPI_ADAPTER *a); static void diva_ask_for_xdi_sdram_bar(DIVA_CAPI_ADAPTER *, IDI_SYNC_REQ *); void callback(ENTITY *); static void control_rc(PLCI *, byte, byte, byte, byte, byte); static void data_rc(PLCI *, byte); static void data_ack(PLCI *, byte); static void sig_ind(PLCI *); static void SendInfo(PLCI *, dword, byte **, byte); static void SendSetupInfo(APPL *, PLCI *, dword, byte **, byte); static void SendSSExtInd(APPL *, PLCI *plci, dword Id, byte **parms); static void VSwitchReqInd(PLCI *plci, dword Id, byte **parms); static void nl_ind(PLCI *); static byte connect_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte connect_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte connect_a_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte disconnect_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte disconnect_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte listen_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte info_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte info_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte alert_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte facility_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte facility_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte connect_b3_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte connect_b3_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte connect_b3_a_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte disconnect_b3_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte disconnect_b3_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte data_b3_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte data_b3_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte reset_b3_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte reset_b3_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte connect_b3_t90_a_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte select_b_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte manufacturer_req(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static byte manufacturer_res(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); static word get_plci(DIVA_CAPI_ADAPTER *); static void add_p(PLCI *, byte, byte *); static void add_s(PLCI *plci, byte code, API_PARSE *p); static void add_ss(PLCI *plci, byte code, API_PARSE *p); static void add_ie(PLCI *plci, byte code, byte *p, word p_length); static void add_d(PLCI *, word, byte *); static void add_ai(PLCI *, API_PARSE *); static word add_b1(PLCI *, API_PARSE *, word, word); static word add_b23(PLCI *, API_PARSE *); static word add_modem_b23(PLCI *plci, API_PARSE *bp_parms); static void sig_req(PLCI *, byte, byte); static void nl_req_ncci(PLCI *, byte, byte); static void send_req(PLCI *); static void send_data(PLCI *); static word plci_remove_check(PLCI *); static void listen_check(DIVA_CAPI_ADAPTER *); static byte AddInfo(byte **, byte **, byte *, byte *); static byte getChannel(API_PARSE *); static void IndParse(PLCI *, word *, byte **, byte); static byte ie_compare(byte *, byte *); static word find_cip(DIVA_CAPI_ADAPTER *, byte *, byte *); static word CPN_filter_ok(byte *cpn, DIVA_CAPI_ADAPTER *, word); /* XON protocol helpers */ static void channel_flow_control_remove(PLCI *plci); static void channel_x_off(PLCI *plci, byte ch, byte flag); static void channel_x_on(PLCI *plci, byte ch); static void channel_request_xon(PLCI *plci, byte ch); static void channel_xmit_xon(PLCI *plci); static int channel_can_xon(PLCI *plci, byte ch); static void channel_xmit_extended_xon(PLCI *plci); static byte SendMultiIE(PLCI *plci, dword Id, byte **parms, byte ie_type, dword info_mask, byte setupParse); static word AdvCodecSupport(DIVA_CAPI_ADAPTER *, PLCI *, APPL *, byte); static void CodecIdCheck(DIVA_CAPI_ADAPTER *, PLCI *); static void SetVoiceChannel(PLCI *, byte *, DIVA_CAPI_ADAPTER *); static void VoiceChannelOff(PLCI *plci); static void adv_voice_write_coefs(PLCI *plci, word write_command); static void adv_voice_clear_config(PLCI *plci); static word get_b1_facilities(PLCI *plci, byte b1_resource); static byte add_b1_facilities(PLCI *plci, byte b1_resource, word b1_facilities); static void adjust_b1_facilities(PLCI *plci, byte new_b1_resource, word new_b1_facilities); static word adjust_b_process(dword Id, PLCI *plci, byte Rc); static void adjust_b1_resource(dword Id, PLCI *plci, API_SAVE *bp_msg, word b1_facilities, word internal_command); static void adjust_b_restore(dword Id, PLCI *plci, byte Rc); static void reset_b3_command(dword Id, PLCI *plci, byte Rc); static void select_b_command(dword Id, PLCI *plci, byte Rc); static void fax_connect_ack_command(dword Id, PLCI *plci, byte Rc); static void fax_edata_ack_command(dword Id, PLCI *plci, byte Rc); static void fax_connect_info_command(dword Id, PLCI *plci, byte Rc); static void fax_adjust_b23_command(dword Id, PLCI *plci, byte Rc); static void fax_disconnect_command(dword Id, PLCI *plci, byte Rc); static void hold_save_command(dword Id, PLCI *plci, byte Rc); static void retrieve_restore_command(dword Id, PLCI *plci, byte Rc); static void init_b1_config(PLCI *plci); static void clear_b1_config(PLCI *plci); static void dtmf_command(dword Id, PLCI *plci, byte Rc); static byte dtmf_request(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg); static void dtmf_confirmation(dword Id, PLCI *plci); static void dtmf_indication(dword Id, PLCI *plci, byte *msg, word length); static void dtmf_parameter_write(PLCI *plci); static void mixer_set_bchannel_id_esc(PLCI *plci, byte bchannel_id); static void mixer_set_bchannel_id(PLCI *plci, byte *chi); static void mixer_clear_config(PLCI *plci); static void mixer_notify_update(PLCI *plci, byte others); static void mixer_command(dword Id, PLCI *plci, byte Rc); static byte mixer_request(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg); static void mixer_indication_coefs_set(dword Id, PLCI *plci); static void mixer_indication_xconnect_from(dword Id, PLCI *plci, byte *msg, word length); static void mixer_indication_xconnect_to(dword Id, PLCI *plci, byte *msg, word length); static void mixer_remove(PLCI *plci); static void ec_command(dword Id, PLCI *plci, byte Rc); static byte ec_request(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg); static void ec_indication(dword Id, PLCI *plci, byte *msg, word length); static void rtp_connect_b3_req_command(dword Id, PLCI *plci, byte Rc); static void rtp_connect_b3_res_command(dword Id, PLCI *plci, byte Rc); static int diva_get_dma_descriptor(PLCI *plci, dword *dma_magic); static void diva_free_dma_descriptor(PLCI *plci, int nr); /*------------------------------------------------------------------*/ /* external function prototypes */ /*------------------------------------------------------------------*/ extern byte MapController(byte); extern byte UnMapController(byte); #define MapId(Id)(((Id) & 0xffffff00L) | MapController((byte)(Id))) #define UnMapId(Id)(((Id) & 0xffffff00L) | UnMapController((byte)(Id))) void sendf(APPL *, word, dword, word, byte *, ...); void *TransmitBufferSet(APPL *appl, dword ref); void *TransmitBufferGet(APPL *appl, void *p); void TransmitBufferFree(APPL *appl, void *p); void *ReceiveBufferGet(APPL *appl, int Num); int fax_head_line_time(char *buffer); /*------------------------------------------------------------------*/ /* Global data definitions */ /*------------------------------------------------------------------*/ extern byte max_adapter; extern byte max_appl; extern DIVA_CAPI_ADAPTER *adapter; extern APPL *application; static byte remove_started = false; static PLCI dummy_plci; static struct _ftable { word command; byte *format; byte (*function)(dword, word, DIVA_CAPI_ADAPTER *, PLCI *, APPL *, API_PARSE *); } ftable[] = { {_DATA_B3_R, "dwww", data_b3_req}, {_DATA_B3_I | RESPONSE, "w", data_b3_res}, {_INFO_R, "ss", info_req}, {_INFO_I | RESPONSE, "", info_res}, {_CONNECT_R, "wsssssssss", connect_req}, {_CONNECT_I | RESPONSE, "wsssss", connect_res}, {_CONNECT_ACTIVE_I | RESPONSE, "", connect_a_res}, {_DISCONNECT_R, "s", disconnect_req}, {_DISCONNECT_I | RESPONSE, "", disconnect_res}, {_LISTEN_R, "dddss", listen_req}, {_ALERT_R, "s", alert_req}, {_FACILITY_R, "ws", facility_req}, {_FACILITY_I | RESPONSE, "ws", facility_res}, {_CONNECT_B3_R, "s", connect_b3_req}, {_CONNECT_B3_I | RESPONSE, "ws", connect_b3_res}, {_CONNECT_B3_ACTIVE_I | RESPONSE, "", connect_b3_a_res}, {_DISCONNECT_B3_R, "s", disconnect_b3_req}, {_DISCONNECT_B3_I | RESPONSE, "", disconnect_b3_res}, {_RESET_B3_R, "s", reset_b3_req}, {_RESET_B3_I | RESPONSE, "", reset_b3_res}, {_CONNECT_B3_T90_ACTIVE_I | RESPONSE, "ws", connect_b3_t90_a_res}, {_CONNECT_B3_T90_ACTIVE_I | RESPONSE, "", connect_b3_t90_a_res}, {_SELECT_B_REQ, "s", select_b_req}, {_MANUFACTURER_R, "dws", manufacturer_req}, {_MANUFACTURER_I | RESPONSE, "dws", manufacturer_res}, {_MANUFACTURER_I | RESPONSE, "", manufacturer_res} }; static byte *cip_bc[29][2] = { { "", "" }, /* 0 */ { "\x03\x80\x90\xa3", "\x03\x80\x90\xa2" }, /* 1 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 2 */ { "\x02\x89\x90", "\x02\x89\x90" }, /* 3 */ { "\x03\x90\x90\xa3", "\x03\x90\x90\xa2" }, /* 4 */ { "\x03\x91\x90\xa5", "\x03\x91\x90\xa5" }, /* 5 */ { "\x02\x98\x90", "\x02\x98\x90" }, /* 6 */ { "\x04\x88\xc0\xc6\xe6", "\x04\x88\xc0\xc6\xe6" }, /* 7 */ { "\x04\x88\x90\x21\x8f", "\x04\x88\x90\x21\x8f" }, /* 8 */ { "\x03\x91\x90\xa5", "\x03\x91\x90\xa5" }, /* 9 */ { "", "" }, /* 10 */ { "", "" }, /* 11 */ { "", "" }, /* 12 */ { "", "" }, /* 13 */ { "", "" }, /* 14 */ { "", "" }, /* 15 */ { "\x03\x80\x90\xa3", "\x03\x80\x90\xa2" }, /* 16 */ { "\x03\x90\x90\xa3", "\x03\x90\x90\xa2" }, /* 17 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 18 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 19 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 20 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 21 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 22 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 23 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 24 */ { "\x02\x88\x90", "\x02\x88\x90" }, /* 25 */ { "\x03\x91\x90\xa5", "\x03\x91\x90\xa5" }, /* 26 */ { "\x03\x91\x90\xa5", "\x03\x91\x90\xa5" }, /* 27 */ { "\x02\x88\x90", "\x02\x88\x90" } /* 28 */ }; static byte *cip_hlc[29] = { "", /* 0 */ "", /* 1 */ "", /* 2 */ "", /* 3 */ "", /* 4 */ "", /* 5 */ "", /* 6 */ "", /* 7 */ "", /* 8 */ "", /* 9 */ "", /* 10 */ "", /* 11 */ "", /* 12 */ "", /* 13 */ "", /* 14 */ "", /* 15 */ "\x02\x91\x81", /* 16 */ "\x02\x91\x84", /* 17 */ "\x02\x91\xa1", /* 18 */ "\x02\x91\xa4", /* 19 */ "\x02\x91\xa8", /* 20 */ "\x02\x91\xb1", /* 21 */ "\x02\x91\xb2", /* 22 */ "\x02\x91\xb5", /* 23 */ "\x02\x91\xb8", /* 24 */ "\x02\x91\xc1", /* 25 */ "\x02\x91\x81", /* 26 */ "\x03\x91\xe0\x01", /* 27 */ "\x03\x91\xe0\x02" /* 28 */ }; /*------------------------------------------------------------------*/ #define V120_HEADER_LENGTH 1 #define V120_HEADER_EXTEND_BIT 0x80 #define V120_HEADER_BREAK_BIT 0x40 #define V120_HEADER_C1_BIT 0x04 #define V120_HEADER_C2_BIT 0x08 #define V120_HEADER_FLUSH_COND (V120_HEADER_BREAK_BIT | V120_HEADER_C1_BIT | V120_HEADER_C2_BIT) static byte v120_default_header[] = { 0x83 /* Ext, BR , res, res, C2 , C1 , B , F */ }; static byte v120_break_header[] = { 0xc3 | V120_HEADER_BREAK_BIT /* Ext, BR , res, res, C2 , C1 , B , F */ }; /*------------------------------------------------------------------*/ /* API_PUT function */ /*------------------------------------------------------------------*/ word api_put(APPL *appl, CAPI_MSG *msg) { word i, j, k, l, n; word ret; byte c; byte controller; DIVA_CAPI_ADAPTER *a; PLCI *plci; NCCI *ncci_ptr; word ncci; CAPI_MSG *m; API_PARSE msg_parms[MAX_MSG_PARMS + 1]; if (msg->header.length < sizeof(msg->header) || msg->header.length > MAX_MSG_SIZE) { dbug(1, dprintf("bad len")); return _BAD_MSG; } controller = (byte)((msg->header.controller & 0x7f) - 1); /* controller starts with 0 up to (max_adapter - 1) */ if (controller >= max_adapter) { dbug(1, dprintf("invalid ctrl")); return _BAD_MSG; } a = &adapter[controller]; plci = NULL; if ((msg->header.plci != 0) && (msg->header.plci <= a->max_plci) && !a->adapter_disabled) { dbug(1, dprintf("plci=%x", msg->header.plci)); plci = &a->plci[msg->header.plci - 1]; ncci = GET_WORD(&msg->header.ncci); if (plci->Id && (plci->appl || (plci->State == INC_CON_PENDING) || (plci->State == INC_CON_ALERT) || (msg->header.command == (_DISCONNECT_I | RESPONSE))) && ((ncci == 0) || (msg->header.command == (_DISCONNECT_B3_I | RESPONSE)) || ((ncci < MAX_NCCI + 1) && (a->ncci_plci[ncci] == plci->Id)))) { i = plci->msg_in_read_pos; j = plci->msg_in_write_pos; if (j >= i) { if (j + msg->header.length + MSG_IN_OVERHEAD <= MSG_IN_QUEUE_SIZE) i += MSG_IN_QUEUE_SIZE - j; else j = 0; } else { n = (((CAPI_MSG *)(plci->msg_in_queue))->header.length + MSG_IN_OVERHEAD + 3) & 0xfffc; if (i > MSG_IN_QUEUE_SIZE - n) i = MSG_IN_QUEUE_SIZE - n + 1; i -= j; } if (i <= ((msg->header.length + MSG_IN_OVERHEAD + 3) & 0xfffc)) { dbug(0, dprintf("Q-FULL1(msg) - len=%d write=%d read=%d wrap=%d free=%d", msg->header.length, plci->msg_in_write_pos, plci->msg_in_read_pos, plci->msg_in_wrap_pos, i)); return _QUEUE_FULL; } c = false; if ((((byte *) msg) < ((byte *)(plci->msg_in_queue))) || (((byte *) msg) >= ((byte *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue))) { if (plci->msg_in_write_pos != plci->msg_in_read_pos) c = true; } if (msg->header.command == _DATA_B3_R) { if (msg->header.length < 20) { dbug(1, dprintf("DATA_B3 REQ wrong length %d", msg->header.length)); return _BAD_MSG; } ncci_ptr = &(a->ncci[ncci]); n = ncci_ptr->data_pending; l = ncci_ptr->data_ack_pending; k = plci->msg_in_read_pos; while (k != plci->msg_in_write_pos) { if (k == plci->msg_in_wrap_pos) k = 0; if ((((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[k]))->header.command == _DATA_B3_R) && (((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[k]))->header.ncci == ncci)) { n++; if (((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[k]))->info.data_b3_req.Flags & 0x0004) l++; } k += (((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[k]))->header.length + MSG_IN_OVERHEAD + 3) & 0xfffc; } if ((n >= MAX_DATA_B3) || (l >= MAX_DATA_ACK)) { dbug(0, dprintf("Q-FULL2(data) - pending=%d/%d ack_pending=%d/%d", ncci_ptr->data_pending, n, ncci_ptr->data_ack_pending, l)); return _QUEUE_FULL; } if (plci->req_in || plci->internal_command) { if ((((byte *) msg) >= ((byte *)(plci->msg_in_queue))) && (((byte *) msg) < ((byte *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue))) { dbug(0, dprintf("Q-FULL3(requeue)")); return _QUEUE_FULL; } c = true; } } else { if (plci->req_in || plci->internal_command) c = true; else { plci->command = msg->header.command; plci->number = msg->header.number; } } if (c) { dbug(1, dprintf("enqueue msg(0x%04x,0x%x,0x%x) - len=%d write=%d read=%d wrap=%d free=%d", msg->header.command, plci->req_in, plci->internal_command, msg->header.length, plci->msg_in_write_pos, plci->msg_in_read_pos, plci->msg_in_wrap_pos, i)); if (j == 0) plci->msg_in_wrap_pos = plci->msg_in_write_pos; m = (CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[j]); for (i = 0; i < msg->header.length; i++) ((byte *)(plci->msg_in_queue))[j++] = ((byte *) msg)[i]; if (m->header.command == _DATA_B3_R) { m->info.data_b3_req.Data = (dword)(long)(TransmitBufferSet(appl, m->info.data_b3_req.Data)); } j = (j + 3) & 0xfffc; *((APPL **)(&((byte *)(plci->msg_in_queue))[j])) = appl; plci->msg_in_write_pos = j + MSG_IN_OVERHEAD; return 0; } } else { plci = NULL; } } dbug(1, dprintf("com=%x", msg->header.command)); for (j = 0; j < MAX_MSG_PARMS + 1; j++) msg_parms[j].length = 0; for (i = 0, ret = _BAD_MSG; i < ARRAY_SIZE(ftable); i++) { if (ftable[i].command == msg->header.command) { /* break loop if the message is correct, otherwise continue scan */ /* (for example: CONNECT_B3_T90_ACT_RES has two specifications) */ if (!api_parse(msg->info.b, (word)(msg->header.length - 12), ftable[i].format, msg_parms)) { ret = 0; break; } for (j = 0; j < MAX_MSG_PARMS + 1; j++) msg_parms[j].length = 0; } } if (ret) { dbug(1, dprintf("BAD_MSG")); if (plci) plci->command = 0; return ret; } c = ftable[i].function(GET_DWORD(&msg->header.controller), msg->header.number, a, plci, appl, msg_parms); channel_xmit_extended_xon(plci); if (c == 1) send_req(plci); if (c == 2 && plci) plci->req_in = plci->req_in_start = plci->req_out = 0; if (plci && !plci->req_in) plci->command = 0; return 0; } /*------------------------------------------------------------------*/ /* api_parse function, check the format of api messages */ /*------------------------------------------------------------------*/ static word api_parse(byte *msg, word length, byte *format, API_PARSE *parms) { word i; word p; for (i = 0, p = 0; format[i]; i++) { if (parms) { parms[i].info = &msg[p]; } switch (format[i]) { case 'b': p += 1; break; case 'w': p += 2; break; case 'd': p += 4; break; case 's': if (msg[p] == 0xff) { parms[i].info += 2; parms[i].length = msg[p + 1] + (msg[p + 2] << 8); p += (parms[i].length + 3); } else { parms[i].length = msg[p]; p += (parms[i].length + 1); } break; } if (p > length) return true; } if (parms) parms[i].info = NULL; return false; } static void api_save_msg(API_PARSE *in, byte *format, API_SAVE *out) { word i, j, n = 0; byte *p; p = out->info; for (i = 0; format[i] != '\0'; i++) { out->parms[i].info = p; out->parms[i].length = in[i].length; switch (format[i]) { case 'b': n = 1; break; case 'w': n = 2; break; case 'd': n = 4; break; case 's': n = in[i].length + 1; break; } for (j = 0; j < n; j++) *(p++) = in[i].info[j]; } out->parms[i].info = NULL; out->parms[i].length = 0; } static void api_load_msg(API_SAVE *in, API_PARSE *out) { word i; i = 0; do { out[i].info = in->parms[i].info; out[i].length = in->parms[i].length; } while (in->parms[i++].info); } /*------------------------------------------------------------------*/ /* CAPI remove function */ /*------------------------------------------------------------------*/ word api_remove_start(void) { word i; word j; if (!remove_started) { remove_started = true; for (i = 0; i < max_adapter; i++) { if (adapter[i].request) { for (j = 0; j < adapter[i].max_plci; j++) { if (adapter[i].plci[j].Sig.Id) plci_remove(&adapter[i].plci[j]); } } } return 1; } else { for (i = 0; i < max_adapter; i++) { if (adapter[i].request) { for (j = 0; j < adapter[i].max_plci; j++) { if (adapter[i].plci[j].Sig.Id) return 1; } } } } api_remove_complete(); return 0; } /*------------------------------------------------------------------*/ /* internal command queue */ /*------------------------------------------------------------------*/ static void init_internal_command_queue(PLCI *plci) { word i; dbug(1, dprintf("%s,%d: init_internal_command_queue", (char *)(FILE_), __LINE__)); plci->internal_command = 0; for (i = 0; i < MAX_INTERNAL_COMMAND_LEVELS; i++) plci->internal_command_queue[i] = NULL; } static void start_internal_command(dword Id, PLCI *plci, t_std_internal_command command_function) { word i; dbug(1, dprintf("[%06lx] %s,%d: start_internal_command", UnMapId(Id), (char *)(FILE_), __LINE__)); if (plci->internal_command == 0) { plci->internal_command_queue[0] = command_function; (*command_function)(Id, plci, OK); } else { i = 1; while (plci->internal_command_queue[i] != NULL) i++; plci->internal_command_queue[i] = command_function; } } static void next_internal_command(dword Id, PLCI *plci) { word i; dbug(1, dprintf("[%06lx] %s,%d: next_internal_command", UnMapId(Id), (char *)(FILE_), __LINE__)); plci->internal_command = 0; plci->internal_command_queue[0] = NULL; while (plci->internal_command_queue[1] != NULL) { for (i = 0; i < MAX_INTERNAL_COMMAND_LEVELS - 1; i++) plci->internal_command_queue[i] = plci->internal_command_queue[i + 1]; plci->internal_command_queue[MAX_INTERNAL_COMMAND_LEVELS - 1] = NULL; (*(plci->internal_command_queue[0]))(Id, plci, OK); if (plci->internal_command != 0) return; plci->internal_command_queue[0] = NULL; } } /*------------------------------------------------------------------*/ /* NCCI allocate/remove function */ /*------------------------------------------------------------------*/ static dword ncci_mapping_bug = 0; static word get_ncci(PLCI *plci, byte ch, word force_ncci) { DIVA_CAPI_ADAPTER *a; word ncci, i, j, k; a = plci->adapter; if (!ch || a->ch_ncci[ch]) { ncci_mapping_bug++; dbug(1, dprintf("NCCI mapping exists %ld %02x %02x %02x-%02x", ncci_mapping_bug, ch, force_ncci, a->ncci_ch[a->ch_ncci[ch]], a->ch_ncci[ch])); ncci = ch; } else { if (force_ncci) ncci = force_ncci; else { if ((ch < MAX_NCCI + 1) && !a->ncci_ch[ch]) ncci = ch; else { ncci = 1; while ((ncci < MAX_NCCI + 1) && a->ncci_ch[ncci]) ncci++; if (ncci == MAX_NCCI + 1) { ncci_mapping_bug++; i = 1; do { j = 1; while ((j < MAX_NCCI + 1) && (a->ncci_ch[j] != i)) j++; k = j; if (j < MAX_NCCI + 1) { do { j++; } while ((j < MAX_NCCI + 1) && (a->ncci_ch[j] != i)); } } while ((i < MAX_NL_CHANNEL + 1) && (j < MAX_NCCI + 1)); if (i < MAX_NL_CHANNEL + 1) { dbug(1, dprintf("NCCI mapping overflow %ld %02x %02x %02x-%02x-%02x", ncci_mapping_bug, ch, force_ncci, i, k, j)); } else { dbug(1, dprintf("NCCI mapping overflow %ld %02x %02x", ncci_mapping_bug, ch, force_ncci)); } ncci = ch; } } a->ncci_plci[ncci] = plci->Id; a->ncci_state[ncci] = IDLE; if (!plci->ncci_ring_list) plci->ncci_ring_list = ncci; else a->ncci_next[ncci] = a->ncci_next[plci->ncci_ring_list]; a->ncci_next[plci->ncci_ring_list] = (byte) ncci; } a->ncci_ch[ncci] = ch; a->ch_ncci[ch] = (byte) ncci; dbug(1, dprintf("NCCI mapping established %ld %02x %02x %02x-%02x", ncci_mapping_bug, ch, force_ncci, ch, ncci)); } return (ncci); } static void ncci_free_receive_buffers(PLCI *plci, word ncci) { DIVA_CAPI_ADAPTER *a; APPL *appl; word i, ncci_code; dword Id; a = plci->adapter; Id = (((dword) ncci) << 16) | (((word)(plci->Id)) << 8) | a->Id; if (ncci) { if (a->ncci_plci[ncci] == plci->Id) { if (!plci->appl) { ncci_mapping_bug++; dbug(1, dprintf("NCCI mapping appl expected %ld %08lx", ncci_mapping_bug, Id)); } else { appl = plci->appl; ncci_code = ncci | (((word) a->Id) << 8); for (i = 0; i < appl->MaxBuffer; i++) { if ((appl->DataNCCI[i] == ncci_code) && (((byte)(appl->DataFlags[i] >> 8)) == plci->Id)) { appl->DataNCCI[i] = 0; } } } } } else { for (ncci = 1; ncci < MAX_NCCI + 1; ncci++) { if (a->ncci_plci[ncci] == plci->Id) { if (!plci->appl) { ncci_mapping_bug++; dbug(1, dprintf("NCCI mapping no appl %ld %08lx", ncci_mapping_bug, Id)); } else { appl = plci->appl; ncci_code = ncci | (((word) a->Id) << 8); for (i = 0; i < appl->MaxBuffer; i++) { if ((appl->DataNCCI[i] == ncci_code) && (((byte)(appl->DataFlags[i] >> 8)) == plci->Id)) { appl->DataNCCI[i] = 0; } } } } } } } static void cleanup_ncci_data(PLCI *plci, word ncci) { NCCI *ncci_ptr; if (ncci && (plci->adapter->ncci_plci[ncci] == plci->Id)) { ncci_ptr = &(plci->adapter->ncci[ncci]); if (plci->appl) { while (ncci_ptr->data_pending != 0) { if (!plci->data_sent || (ncci_ptr->DBuffer[ncci_ptr->data_out].P != plci->data_sent_ptr)) TransmitBufferFree(plci->appl, ncci_ptr->DBuffer[ncci_ptr->data_out].P); (ncci_ptr->data_out)++; if (ncci_ptr->data_out == MAX_DATA_B3) ncci_ptr->data_out = 0; (ncci_ptr->data_pending)--; } } ncci_ptr->data_out = 0; ncci_ptr->data_pending = 0; ncci_ptr->data_ack_out = 0; ncci_ptr->data_ack_pending = 0; } } static void ncci_remove(PLCI *plci, word ncci, byte preserve_ncci) { DIVA_CAPI_ADAPTER *a; dword Id; word i; a = plci->adapter; Id = (((dword) ncci) << 16) | (((word)(plci->Id)) << 8) | a->Id; if (!preserve_ncci) ncci_free_receive_buffers(plci, ncci); if (ncci) { if (a->ncci_plci[ncci] != plci->Id) { ncci_mapping_bug++; dbug(1, dprintf("NCCI mapping doesn't exist %ld %08lx %02x", ncci_mapping_bug, Id, preserve_ncci)); } else { cleanup_ncci_data(plci, ncci); dbug(1, dprintf("NCCI mapping released %ld %08lx %02x %02x-%02x", ncci_mapping_bug, Id, preserve_ncci, a->ncci_ch[ncci], ncci)); a->ch_ncci[a->ncci_ch[ncci]] = 0; if (!preserve_ncci) { a->ncci_ch[ncci] = 0; a->ncci_plci[ncci] = 0; a->ncci_state[ncci] = IDLE; i = plci->ncci_ring_list; while ((i != 0) && (a->ncci_next[i] != plci->ncci_ring_list) && (a->ncci_next[i] != ncci)) i = a->ncci_next[i]; if ((i != 0) && (a->ncci_next[i] == ncci)) { if (i == ncci) plci->ncci_ring_list = 0; else if (plci->ncci_ring_list == ncci) plci->ncci_ring_list = i; a->ncci_next[i] = a->ncci_next[ncci]; } a->ncci_next[ncci] = 0; } } } else { for (ncci = 1; ncci < MAX_NCCI + 1; ncci++) { if (a->ncci_plci[ncci] == plci->Id) { cleanup_ncci_data(plci, ncci); dbug(1, dprintf("NCCI mapping released %ld %08lx %02x %02x-%02x", ncci_mapping_bug, Id, preserve_ncci, a->ncci_ch[ncci], ncci)); a->ch_ncci[a->ncci_ch[ncci]] = 0; if (!preserve_ncci) { a->ncci_ch[ncci] = 0; a->ncci_plci[ncci] = 0; a->ncci_state[ncci] = IDLE; a->ncci_next[ncci] = 0; } } } if (!preserve_ncci) plci->ncci_ring_list = 0; } } /*------------------------------------------------------------------*/ /* PLCI remove function */ /*------------------------------------------------------------------*/ static void plci_free_msg_in_queue(PLCI *plci) { word i; if (plci->appl) { i = plci->msg_in_read_pos; while (i != plci->msg_in_write_pos) { if (i == plci->msg_in_wrap_pos) i = 0; if (((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[i]))->header.command == _DATA_B3_R) { TransmitBufferFree(plci->appl, (byte *)(long)(((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[i]))->info.data_b3_req.Data)); } i += (((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[i]))->header.length + MSG_IN_OVERHEAD + 3) & 0xfffc; } } plci->msg_in_write_pos = MSG_IN_QUEUE_SIZE; plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE; plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE; } static void plci_remove(PLCI *plci) { if (!plci) { dbug(1, dprintf("plci_remove(no plci)")); return; } init_internal_command_queue(plci); dbug(1, dprintf("plci_remove(%x,tel=%x)", plci->Id, plci->tel)); if (plci_remove_check(plci)) { return; } if (plci->Sig.Id == 0xff) { dbug(1, dprintf("D-channel X.25 plci->NL.Id:%0x", plci->NL.Id)); if (plci->NL.Id && !plci->nl_remove_id) { nl_req_ncci(plci, REMOVE, 0); send_req(plci); } } else { if (!plci->sig_remove_id && (plci->Sig.Id || (plci->req_in != plci->req_out) || (plci->nl_req || plci->sig_req))) { sig_req(plci, HANGUP, 0); send_req(plci); } } ncci_remove(plci, 0, false); plci_free_msg_in_queue(plci); plci->channels = 0; plci->appl = NULL; if ((plci->State == INC_CON_PENDING) || (plci->State == INC_CON_ALERT)) plci->State = OUTG_DIS_PENDING; } /*------------------------------------------------------------------*/ /* Application Group function helpers */ /*------------------------------------------------------------------*/ static void set_group_ind_mask(PLCI *plci) { word i; for (i = 0; i < C_IND_MASK_DWORDS; i++) plci->group_optimization_mask_table[i] = 0xffffffffL; } static void clear_group_ind_mask_bit(PLCI *plci, word b) { plci->group_optimization_mask_table[b >> 5] &= ~(1L << (b & 0x1f)); } static byte test_group_ind_mask_bit(PLCI *plci, word b) { return ((plci->group_optimization_mask_table[b >> 5] & (1L << (b & 0x1f))) != 0); } /*------------------------------------------------------------------*/ /* c_ind_mask operations for arbitrary MAX_APPL */ /*------------------------------------------------------------------*/ static void clear_c_ind_mask(PLCI *plci) { word i; for (i = 0; i < C_IND_MASK_DWORDS; i++) plci->c_ind_mask_table[i] = 0; } static byte c_ind_mask_empty(PLCI *plci) { word i; i = 0; while ((i < C_IND_MASK_DWORDS) && (plci->c_ind_mask_table[i] == 0)) i++; return (i == C_IND_MASK_DWORDS); } static void set_c_ind_mask_bit(PLCI *plci, word b) { plci->c_ind_mask_table[b >> 5] |= (1L << (b & 0x1f)); } static void clear_c_ind_mask_bit(PLCI *plci, word b) { plci->c_ind_mask_table[b >> 5] &= ~(1L << (b & 0x1f)); } static byte test_c_ind_mask_bit(PLCI *plci, word b) { return ((plci->c_ind_mask_table[b >> 5] & (1L << (b & 0x1f))) != 0); } static void dump_c_ind_mask(PLCI *plci) { static char hex_digit_table[0x10] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'}; word i, j, k; dword d; char *p; char buf[40]; for (i = 0; i < C_IND_MASK_DWORDS; i += 4) { p = buf + 36; *p = '\0'; for (j = 0; j < 4; j++) { if (i + j < C_IND_MASK_DWORDS) { d = plci->c_ind_mask_table[i + j]; for (k = 0; k < 8; k++) { *(--p) = hex_digit_table[d & 0xf]; d >>= 4; } } else if (i != 0) { for (k = 0; k < 8; k++) *(--p) = ' '; } *(--p) = ' '; } dbug(1, dprintf("c_ind_mask =%s", (char *) p)); } } #define dump_plcis(a) /*------------------------------------------------------------------*/ /* translation function for each message */ /*------------------------------------------------------------------*/ static byte connect_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word ch; word i; word Info; byte LinkLayer; API_PARSE *ai; API_PARSE *bp; API_PARSE ai_parms[5]; word channel = 0; dword ch_mask; byte m; static byte esc_chi[35] = {0x02, 0x18, 0x01}; static byte lli[2] = {0x01, 0x00}; byte noCh = 0; word dir = 0; byte *p_chi = ""; for (i = 0; i < 5; i++) ai_parms[i].length = 0; dbug(1, dprintf("connect_req(%d)", parms->length)); Info = _WRONG_IDENTIFIER; if (a) { if (a->adapter_disabled) { dbug(1, dprintf("adapter disabled")); Id = ((word)1 << 8) | a->Id; sendf(appl, _CONNECT_R | CONFIRM, Id, Number, "w", 0); sendf(appl, _DISCONNECT_I, Id, 0, "w", _L1_ERROR); return false; } Info = _OUT_OF_PLCI; if ((i = get_plci(a))) { Info = 0; plci = &a->plci[i - 1]; plci->appl = appl; plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE; /* check 'external controller' bit for codec support */ if (Id & EXT_CONTROLLER) { if (AdvCodecSupport(a, plci, appl, 0)) { plci->Id = 0; sendf(appl, _CONNECT_R | CONFIRM, Id, Number, "w", _WRONG_IDENTIFIER); return 2; } } ai = &parms[9]; bp = &parms[5]; ch = 0; if (bp->length)LinkLayer = bp->info[3]; else LinkLayer = 0; if (ai->length) { ch = 0xffff; if (!api_parse(&ai->info[1], (word)ai->length, "ssss", ai_parms)) { ch = 0; if (ai_parms[0].length) { ch = GET_WORD(ai_parms[0].info + 1); if (ch > 4) ch = 0; /* safety -> ignore ChannelID */ if (ch == 4) /* explizit CHI in message */ { /* check length of B-CH struct */ if ((ai_parms[0].info)[3] >= 1) { if ((ai_parms[0].info)[4] == CHI) { p_chi = &((ai_parms[0].info)[5]); } else { p_chi = &((ai_parms[0].info)[3]); } if (p_chi[0] > 35) /* check length of channel ID */ { Info = _WRONG_MESSAGE_FORMAT; } } else Info = _WRONG_MESSAGE_FORMAT; } if (ch == 3 && ai_parms[0].length >= 7 && ai_parms[0].length <= 36) { dir = GET_WORD(ai_parms[0].info + 3); ch_mask = 0; m = 0x3f; for (i = 0; i + 5 <= ai_parms[0].length; i++) { if (ai_parms[0].info[i + 5] != 0) { if ((ai_parms[0].info[i + 5] | m) != 0xff) Info = _WRONG_MESSAGE_FORMAT; else { if (ch_mask == 0) channel = i; ch_mask |= 1L << i; } } m = 0; } if (ch_mask == 0) Info = _WRONG_MESSAGE_FORMAT; if (!Info) { if ((ai_parms[0].length == 36) || (ch_mask != ((dword)(1L << channel)))) { esc_chi[0] = (byte)(ai_parms[0].length - 2); for (i = 0; i + 5 <= ai_parms[0].length; i++) esc_chi[i + 3] = ai_parms[0].info[i + 5]; } else esc_chi[0] = 2; esc_chi[2] = (byte)channel; plci->b_channel = (byte)channel; /* not correct for ETSI ch 17..31 */ add_p(plci, LLI, lli); add_p(plci, ESC, esc_chi); plci->State = LOCAL_CONNECT; if (!dir) plci->call_dir |= CALL_DIR_FORCE_OUTG_NL; /* dir 0=DTE, 1=DCE */ } } } } else Info = _WRONG_MESSAGE_FORMAT; } dbug(1, dprintf("ch=%x,dir=%x,p_ch=%d", ch, dir, channel)); plci->command = _CONNECT_R; plci->number = Number; /* x.31 or D-ch free SAPI in LinkLayer? */ if (ch == 1 && LinkLayer != 3 && LinkLayer != 12) noCh = true; if ((ch == 0 || ch == 2 || noCh || ch == 3 || ch == 4) && !Info) { /* B-channel used for B3 connections (ch==0), or no B channel */ /* is used (ch==2) or perm. connection (3) is used do a CALL */ if (noCh) Info = add_b1(plci, &parms[5], 2, 0); /* no resource */ else Info = add_b1(plci, &parms[5], ch, 0); add_s(plci, OAD, &parms[2]); add_s(plci, OSA, &parms[4]); add_s(plci, BC, &parms[6]); add_s(plci, LLC, &parms[7]); add_s(plci, HLC, &parms[8]); if (a->Info_Mask[appl->Id - 1] & 0x200) { /* early B3 connect (CIP mask bit 9) no release after a disc */ add_p(plci, LLI, "\x01\x01"); } if (GET_WORD(parms[0].info) < 29) { add_p(plci, BC, cip_bc[GET_WORD(parms[0].info)][a->u_law]); add_p(plci, HLC, cip_hlc[GET_WORD(parms[0].info)]); } add_p(plci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(plci, ASSIGN, DSIG_ID); } else if (ch == 1) { /* D-Channel used for B3 connections */ plci->Sig.Id = 0xff; Info = 0; } if (!Info && ch != 2 && !noCh) { Info = add_b23(plci, &parms[5]); if (!Info) { if (!(plci->tel && !plci->adv_nl))nl_req_ncci(plci, ASSIGN, 0); } } if (!Info) { if (ch == 0 || ch == 2 || ch == 3 || noCh || ch == 4) { if (plci->spoofed_msg == SPOOFING_REQUIRED) { api_save_msg(parms, "wsssssssss", &plci->saved_msg); plci->spoofed_msg = CALL_REQ; plci->internal_command = BLOCK_PLCI; plci->command = 0; dbug(1, dprintf("Spoof")); send_req(plci); return false; } if (ch == 4)add_p(plci, CHI, p_chi); add_s(plci, CPN, &parms[1]); add_s(plci, DSA, &parms[3]); if (noCh) add_p(plci, ESC, "\x02\x18\xfd"); /* D-channel, no B-L3 */ add_ai(plci, &parms[9]); if (!dir)sig_req(plci, CALL_REQ, 0); else { plci->command = PERM_LIST_REQ; plci->appl = appl; sig_req(plci, LISTEN_REQ, 0); send_req(plci); return false; } } send_req(plci); return false; } plci->Id = 0; } } sendf(appl, _CONNECT_R | CONFIRM, Id, Number, "w", Info); return 2; } static byte connect_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word i, Info; word Reject; static byte cau_t[] = {0, 0, 0x90, 0x91, 0xac, 0x9d, 0x86, 0xd8, 0x9b}; static byte esc_t[] = {0x03, 0x08, 0x00, 0x00}; API_PARSE *ai; API_PARSE ai_parms[5]; word ch = 0; if (!plci) { dbug(1, dprintf("connect_res(no plci)")); return 0; /* no plci, no send */ } dbug(1, dprintf("connect_res(State=0x%x)", plci->State)); for (i = 0; i < 5; i++) ai_parms[i].length = 0; ai = &parms[5]; dbug(1, dprintf("ai->length=%d", ai->length)); if (ai->length) { if (!api_parse(&ai->info[1], (word)ai->length, "ssss", ai_parms)) { dbug(1, dprintf("ai_parms[0].length=%d/0x%x", ai_parms[0].length, GET_WORD(ai_parms[0].info + 1))); ch = 0; if (ai_parms[0].length) { ch = GET_WORD(ai_parms[0].info + 1); dbug(1, dprintf("BCH-I=0x%x", ch)); } } } if (plci->State == INC_CON_CONNECTED_ALERT) { dbug(1, dprintf("Connected Alert Call_Res")); if (a->Info_Mask[appl->Id - 1] & 0x200) { /* early B3 connect (CIP mask bit 9) no release after a disc */ add_p(plci, LLI, "\x01\x01"); } add_s(plci, CONN_NR, &parms[2]); add_s(plci, LLC, &parms[4]); add_ai(plci, &parms[5]); plci->State = INC_CON_ACCEPT; sig_req(plci, CALL_RES, 0); return 1; } else if (plci->State == INC_CON_PENDING || plci->State == INC_CON_ALERT) { clear_c_ind_mask_bit(plci, (word)(appl->Id - 1)); dump_c_ind_mask(plci); Reject = GET_WORD(parms[0].info); dbug(1, dprintf("Reject=0x%x", Reject)); if (Reject) { if (c_ind_mask_empty(plci)) { if ((Reject & 0xff00) == 0x3400) { esc_t[2] = ((byte)(Reject & 0x00ff)) | 0x80; add_p(plci, ESC, esc_t); add_ai(plci, &parms[5]); sig_req(plci, REJECT, 0); } else if (Reject == 1 || Reject >= 9) { add_ai(plci, &parms[5]); sig_req(plci, HANGUP, 0); } else { esc_t[2] = cau_t[(Reject&0x000f)]; add_p(plci, ESC, esc_t); add_ai(plci, &parms[5]); sig_req(plci, REJECT, 0); } plci->appl = appl; } else { sendf(appl, _DISCONNECT_I, Id, 0, "w", _OTHER_APPL_CONNECTED); } } else { plci->appl = appl; if (Id & EXT_CONTROLLER) { if (AdvCodecSupport(a, plci, appl, 0)) { dbug(1, dprintf("connect_res(error from AdvCodecSupport)")); sig_req(plci, HANGUP, 0); return 1; } if (plci->tel == ADV_VOICE && a->AdvCodecPLCI) { Info = add_b23(plci, &parms[1]); if (Info) { dbug(1, dprintf("connect_res(error from add_b23)")); sig_req(plci, HANGUP, 0); return 1; } if (plci->adv_nl) { nl_req_ncci(plci, ASSIGN, 0); } } } else { plci->tel = 0; if (ch != 2) { Info = add_b23(plci, &parms[1]); if (Info) { dbug(1, dprintf("connect_res(error from add_b23 2)")); sig_req(plci, HANGUP, 0); return 1; } } nl_req_ncci(plci, ASSIGN, 0); } if (plci->spoofed_msg == SPOOFING_REQUIRED) { api_save_msg(parms, "wsssss", &plci->saved_msg); plci->spoofed_msg = CALL_RES; plci->internal_command = BLOCK_PLCI; plci->command = 0; dbug(1, dprintf("Spoof")); } else { add_b1(plci, &parms[1], ch, plci->B1_facilities); if (a->Info_Mask[appl->Id - 1] & 0x200) { /* early B3 connect (CIP mask bit 9) no release after a disc */ add_p(plci, LLI, "\x01\x01"); } add_s(plci, CONN_NR, &parms[2]); add_s(plci, LLC, &parms[4]); add_ai(plci, &parms[5]); plci->State = INC_CON_ACCEPT; sig_req(plci, CALL_RES, 0); } for (i = 0; i < max_appl; i++) { if (test_c_ind_mask_bit(plci, i)) { sendf(&application[i], _DISCONNECT_I, Id, 0, "w", _OTHER_APPL_CONNECTED); } } } } return 1; } static byte connect_a_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { dbug(1, dprintf("connect_a_res")); return false; } static byte disconnect_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word Info; word i; dbug(1, dprintf("disconnect_req")); Info = _WRONG_IDENTIFIER; if (plci) { if (plci->State == INC_CON_PENDING || plci->State == INC_CON_ALERT) { clear_c_ind_mask_bit(plci, (word)(appl->Id - 1)); plci->appl = appl; for (i = 0; i < max_appl; i++) { if (test_c_ind_mask_bit(plci, i)) sendf(&application[i], _DISCONNECT_I, Id, 0, "w", 0); } plci->State = OUTG_DIS_PENDING; } if (plci->Sig.Id && plci->appl) { Info = 0; if (plci->Sig.Id != 0xff) { if (plci->State != INC_DIS_PENDING) { add_ai(plci, &msg[0]); sig_req(plci, HANGUP, 0); plci->State = OUTG_DIS_PENDING; return 1; } } else { if (plci->NL.Id && !plci->nl_remove_id) { mixer_remove(plci); nl_req_ncci(plci, REMOVE, 0); sendf(appl, _DISCONNECT_R | CONFIRM, Id, Number, "w", 0); sendf(appl, _DISCONNECT_I, Id, 0, "w", 0); plci->State = INC_DIS_PENDING; } return 1; } } } if (!appl) return false; sendf(appl, _DISCONNECT_R | CONFIRM, Id, Number, "w", Info); return false; } static byte disconnect_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { dbug(1, dprintf("disconnect_res")); if (plci) { /* clear ind mask bit, just in case of collsion of */ /* DISCONNECT_IND and CONNECT_RES */ clear_c_ind_mask_bit(plci, (word)(appl->Id - 1)); ncci_free_receive_buffers(plci, 0); if (plci_remove_check(plci)) { return 0; } if (plci->State == INC_DIS_PENDING || plci->State == SUSPENDING) { if (c_ind_mask_empty(plci)) { if (plci->State != SUSPENDING) plci->State = IDLE; dbug(1, dprintf("chs=%d", plci->channels)); if (!plci->channels) { plci_remove(plci); } } } } return 0; } static byte listen_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word Info; byte i; dbug(1, dprintf("listen_req(Appl=0x%x)", appl->Id)); Info = _WRONG_IDENTIFIER; if (a) { Info = 0; a->Info_Mask[appl->Id - 1] = GET_DWORD(parms[0].info); a->CIP_Mask[appl->Id - 1] = GET_DWORD(parms[1].info); dbug(1, dprintf("CIP_MASK=0x%lx", GET_DWORD(parms[1].info))); if (a->Info_Mask[appl->Id - 1] & 0x200) { /* early B3 connect provides */ a->Info_Mask[appl->Id - 1] |= 0x10; /* call progression infos */ } /* check if external controller listen and switch listen on or off*/ if (Id&EXT_CONTROLLER && GET_DWORD(parms[1].info)) { if (a->profile.Global_Options & ON_BOARD_CODEC) { dummy_plci.State = IDLE; a->codec_listen[appl->Id - 1] = &dummy_plci; a->TelOAD[0] = (byte)(parms[3].length); for (i = 1; parms[3].length >= i && i < 22; i++) { a->TelOAD[i] = parms[3].info[i]; } a->TelOAD[i] = 0; a->TelOSA[0] = (byte)(parms[4].length); for (i = 1; parms[4].length >= i && i < 22; i++) { a->TelOSA[i] = parms[4].info[i]; } a->TelOSA[i] = 0; } else Info = 0x2002; /* wrong controller, codec not supported */ } else{ /* clear listen */ a->codec_listen[appl->Id - 1] = (PLCI *)0; } } sendf(appl, _LISTEN_R | CONFIRM, Id, Number, "w", Info); if (a) listen_check(a); return false; } static byte info_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word i; API_PARSE *ai; PLCI *rc_plci = NULL; API_PARSE ai_parms[5]; word Info = 0; dbug(1, dprintf("info_req")); for (i = 0; i < 5; i++) ai_parms[i].length = 0; ai = &msg[1]; if (ai->length) { if (api_parse(&ai->info[1], (word)ai->length, "ssss", ai_parms)) { dbug(1, dprintf("AddInfo wrong")); Info = _WRONG_MESSAGE_FORMAT; } } if (!a) Info = _WRONG_STATE; if (!Info && plci) { /* no fac, with CPN, or KEY */ rc_plci = plci; if (!ai_parms[3].length && plci->State && (msg[0].length || ai_parms[1].length)) { /* overlap sending option */ dbug(1, dprintf("OvlSnd")); add_s(plci, CPN, &msg[0]); add_s(plci, KEY, &ai_parms[1]); sig_req(plci, INFO_REQ, 0); send_req(plci); return false; } if (plci->State && ai_parms[2].length) { /* User_Info option */ dbug(1, dprintf("UUI")); add_s(plci, UUI, &ai_parms[2]); sig_req(plci, USER_DATA, 0); } else if (plci->State && ai_parms[3].length) { /* Facility option */ dbug(1, dprintf("FAC")); add_s(plci, CPN, &msg[0]); add_ai(plci, &msg[1]); sig_req(plci, FACILITY_REQ, 0); } else { Info = _WRONG_STATE; } } else if ((ai_parms[1].length || ai_parms[2].length || ai_parms[3].length) && !Info) { /* NCR_Facility option -> send UUI and Keypad too */ dbug(1, dprintf("NCR_FAC")); if ((i = get_plci(a))) { rc_plci = &a->plci[i - 1]; appl->NullCREnable = true; rc_plci->internal_command = C_NCR_FAC_REQ; rc_plci->appl = appl; add_p(rc_plci, CAI, "\x01\x80"); add_p(rc_plci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rc_plci, ASSIGN, DSIG_ID); send_req(rc_plci); } else { Info = _OUT_OF_PLCI; } if (!Info) { add_s(rc_plci, CPN, &msg[0]); add_ai(rc_plci, &msg[1]); sig_req(rc_plci, NCR_FACILITY, 0); send_req(rc_plci); return false; /* for application controlled supplementary services */ } } if (!rc_plci) { Info = _WRONG_MESSAGE_FORMAT; } if (!Info) { send_req(rc_plci); } else { /* appl is not assigned to a PLCI or error condition */ dbug(1, dprintf("localInfoCon")); sendf(appl, _INFO_R | CONFIRM, Id, Number, "w", Info); } return false; } static byte info_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { dbug(1, dprintf("info_res")); return false; } static byte alert_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word Info; byte ret; dbug(1, dprintf("alert_req")); Info = _WRONG_IDENTIFIER; ret = false; if (plci) { Info = _ALERT_IGNORED; if (plci->State != INC_CON_ALERT) { Info = _WRONG_STATE; if (plci->State == INC_CON_PENDING) { Info = 0; plci->State = INC_CON_ALERT; add_ai(plci, &msg[0]); sig_req(plci, CALL_ALERT, 0); ret = 1; } } } sendf(appl, _ALERT_R | CONFIRM, Id, Number, "w", Info); return ret; } static byte facility_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word Info = 0; word i = 0; word selector; word SSreq; long relatedPLCIvalue; DIVA_CAPI_ADAPTER *relatedadapter; byte *SSparms = ""; byte RCparms[] = "\x05\x00\x00\x02\x00\x00"; byte SSstruct[] = "\x09\x00\x00\x06\x00\x00\x00\x00\x00\x00"; API_PARSE *parms; API_PARSE ss_parms[11]; PLCI *rplci; byte cai[15]; dword d; API_PARSE dummy; dbug(1, dprintf("facility_req")); for (i = 0; i < 9; i++) ss_parms[i].length = 0; parms = &msg[1]; if (!a) { dbug(1, dprintf("wrong Ctrl")); Info = _WRONG_IDENTIFIER; } selector = GET_WORD(msg[0].info); if (!Info) { switch (selector) { case SELECTOR_HANDSET: Info = AdvCodecSupport(a, plci, appl, HOOK_SUPPORT); break; case SELECTOR_SU_SERV: if (!msg[1].length) { Info = _WRONG_MESSAGE_FORMAT; break; } SSreq = GET_WORD(&(msg[1].info[1])); PUT_WORD(&RCparms[1], SSreq); SSparms = RCparms; switch (SSreq) { case S_GET_SUPPORTED_SERVICES: if ((i = get_plci(a))) { rplci = &a->plci[i - 1]; rplci->appl = appl; add_p(rplci, CAI, "\x01\x80"); add_p(rplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rplci, ASSIGN, DSIG_ID); send_req(rplci); } else { PUT_DWORD(&SSstruct[6], MASK_TERMINAL_PORTABILITY); SSparms = (byte *)SSstruct; break; } rplci->internal_command = GETSERV_REQ_PEND; rplci->number = Number; rplci->appl = appl; sig_req(rplci, S_SUPPORTED, 0); send_req(rplci); return false; break; case S_LISTEN: if (parms->length == 7) { if (api_parse(&parms->info[1], (word)parms->length, "wbd", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } } else { Info = _WRONG_MESSAGE_FORMAT; break; } a->Notification_Mask[appl->Id - 1] = GET_DWORD(ss_parms[2].info); if (a->Notification_Mask[appl->Id - 1] & SMASK_MWI) /* MWI active? */ { if ((i = get_plci(a))) { rplci = &a->plci[i - 1]; rplci->appl = appl; add_p(rplci, CAI, "\x01\x80"); add_p(rplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rplci, ASSIGN, DSIG_ID); send_req(rplci); } else { break; } rplci->internal_command = GET_MWI_STATE; rplci->number = Number; sig_req(rplci, MWI_POLL, 0); send_req(rplci); } break; case S_HOLD: api_parse(&parms->info[1], (word)parms->length, "ws", ss_parms); if (plci && plci->State && plci->SuppState == IDLE) { plci->SuppState = HOLD_REQUEST; plci->command = C_HOLD_REQ; add_s(plci, CAI, &ss_parms[1]); sig_req(plci, CALL_HOLD, 0); send_req(plci); return false; } else Info = 0x3010; /* wrong state */ break; case S_RETRIEVE: if (plci && plci->State && plci->SuppState == CALL_HELD) { if (Id & EXT_CONTROLLER) { if (AdvCodecSupport(a, plci, appl, 0)) { Info = 0x3010; /* wrong state */ break; } } else plci->tel = 0; plci->SuppState = RETRIEVE_REQUEST; plci->command = C_RETRIEVE_REQ; if (plci->spoofed_msg == SPOOFING_REQUIRED) { plci->spoofed_msg = CALL_RETRIEVE; plci->internal_command = BLOCK_PLCI; plci->command = 0; dbug(1, dprintf("Spoof")); return false; } else { sig_req(plci, CALL_RETRIEVE, 0); send_req(plci); return false; } } else Info = 0x3010; /* wrong state */ break; case S_SUSPEND: if (parms->length) { if (api_parse(&parms->info[1], (word)parms->length, "wbs", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } } if (plci && plci->State) { add_s(plci, CAI, &ss_parms[2]); plci->command = SUSPEND_REQ; sig_req(plci, SUSPEND, 0); plci->State = SUSPENDING; send_req(plci); } else Info = 0x3010; /* wrong state */ break; case S_RESUME: if (!(i = get_plci(a))) { Info = _OUT_OF_PLCI; break; } rplci = &a->plci[i - 1]; rplci->appl = appl; rplci->number = Number; rplci->tel = 0; rplci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE; /* check 'external controller' bit for codec support */ if (Id & EXT_CONTROLLER) { if (AdvCodecSupport(a, rplci, appl, 0)) { rplci->Id = 0; Info = 0x300A; break; } } if (parms->length) { if (api_parse(&parms->info[1], (word)parms->length, "wbs", ss_parms)) { dbug(1, dprintf("format wrong")); rplci->Id = 0; Info = _WRONG_MESSAGE_FORMAT; break; } } dummy.length = 0; dummy.info = "\x00"; add_b1(rplci, &dummy, 0, 0); if (a->Info_Mask[appl->Id - 1] & 0x200) { /* early B3 connect (CIP mask bit 9) no release after a disc */ add_p(rplci, LLI, "\x01\x01"); } add_p(rplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rplci, ASSIGN, DSIG_ID); send_req(rplci); add_s(rplci, CAI, &ss_parms[2]); rplci->command = RESUME_REQ; sig_req(rplci, RESUME, 0); rplci->State = RESUMING; send_req(rplci); break; case S_CONF_BEGIN: /* Request */ case S_CONF_DROP: case S_CONF_ISOLATE: case S_CONF_REATTACH: if (api_parse(&parms->info[1], (word)parms->length, "wbd", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } if (plci && plci->State && ((plci->SuppState == IDLE) || (plci->SuppState == CALL_HELD))) { d = GET_DWORD(ss_parms[2].info); if (d >= 0x80) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } plci->ptyState = (byte)SSreq; plci->command = 0; cai[0] = 2; switch (SSreq) { case S_CONF_BEGIN: cai[1] = CONF_BEGIN; plci->internal_command = CONF_BEGIN_REQ_PEND; break; case S_CONF_DROP: cai[1] = CONF_DROP; plci->internal_command = CONF_DROP_REQ_PEND; break; case S_CONF_ISOLATE: cai[1] = CONF_ISOLATE; plci->internal_command = CONF_ISOLATE_REQ_PEND; break; case S_CONF_REATTACH: cai[1] = CONF_REATTACH; plci->internal_command = CONF_REATTACH_REQ_PEND; break; } cai[2] = (byte)d; /* Conference Size resp. PartyId */ add_p(plci, CAI, cai); sig_req(plci, S_SERVICE, 0); send_req(plci); return false; } else Info = 0x3010; /* wrong state */ break; case S_ECT: case S_3PTY_BEGIN: case S_3PTY_END: case S_CONF_ADD: if (parms->length == 7) { if (api_parse(&parms->info[1], (word)parms->length, "wbd", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } } else if (parms->length == 8) /* workaround for the T-View-S */ { if (api_parse(&parms->info[1], (word)parms->length, "wbdb", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } } else { Info = _WRONG_MESSAGE_FORMAT; break; } if (!msg[1].length) { Info = _WRONG_MESSAGE_FORMAT; break; } if (!plci) { Info = _WRONG_IDENTIFIER; break; } relatedPLCIvalue = GET_DWORD(ss_parms[2].info); relatedPLCIvalue &= 0x0000FFFF; dbug(1, dprintf("PTY/ECT/addCONF,relPLCI=%lx", relatedPLCIvalue)); /* controller starts with 0 up to (max_adapter - 1) */ if (((relatedPLCIvalue & 0x7f) == 0) || (MapController((byte)(relatedPLCIvalue & 0x7f)) == 0) || (MapController((byte)(relatedPLCIvalue & 0x7f)) > max_adapter)) { if (SSreq == S_3PTY_END) { dbug(1, dprintf("wrong Controller use 2nd PLCI=PLCI")); rplci = plci; } else { Info = 0x3010; /* wrong state */ break; } } else { relatedadapter = &adapter[MapController((byte)(relatedPLCIvalue & 0x7f)) - 1]; relatedPLCIvalue >>= 8; /* find PLCI PTR*/ for (i = 0, rplci = NULL; i < relatedadapter->max_plci; i++) { if (relatedadapter->plci[i].Id == (byte)relatedPLCIvalue) { rplci = &relatedadapter->plci[i]; } } if (!rplci || !relatedPLCIvalue) { if (SSreq == S_3PTY_END) { dbug(1, dprintf("use 2nd PLCI=PLCI")); rplci = plci; } else { Info = 0x3010; /* wrong state */ break; } } } /* dbug(1, dprintf("rplci:%x", rplci)); dbug(1, dprintf("plci:%x", plci)); dbug(1, dprintf("rplci->ptyState:%x", rplci->ptyState)); dbug(1, dprintf("plci->ptyState:%x", plci->ptyState)); dbug(1, dprintf("SSreq:%x", SSreq)); dbug(1, dprintf("rplci->internal_command:%x", rplci->internal_command)); dbug(1, dprintf("rplci->appl:%x", rplci->appl)); dbug(1, dprintf("rplci->Id:%x", rplci->Id)); */ /* send PTY/ECT req, cannot check all states because of US stuff */ if (!rplci->internal_command && rplci->appl) { plci->command = 0; rplci->relatedPTYPLCI = plci; plci->relatedPTYPLCI = rplci; rplci->ptyState = (byte)SSreq; if (SSreq == S_ECT) { rplci->internal_command = ECT_REQ_PEND; cai[1] = ECT_EXECUTE; rplci->vswitchstate = 0; rplci->vsprot = 0; rplci->vsprotdialect = 0; plci->vswitchstate = 0; plci->vsprot = 0; plci->vsprotdialect = 0; } else if (SSreq == S_CONF_ADD) { rplci->internal_command = CONF_ADD_REQ_PEND; cai[1] = CONF_ADD; } else { rplci->internal_command = PTY_REQ_PEND; cai[1] = (byte)(SSreq - 3); } rplci->number = Number; if (plci != rplci) /* explicit invocation */ { cai[0] = 2; cai[2] = plci->Sig.Id; dbug(1, dprintf("explicit invocation")); } else { dbug(1, dprintf("implicit invocation")); cai[0] = 1; } add_p(rplci, CAI, cai); sig_req(rplci, S_SERVICE, 0); send_req(rplci); return false; } else { dbug(0, dprintf("Wrong line")); Info = 0x3010; /* wrong state */ break; } break; case S_CALL_DEFLECTION: if (api_parse(&parms->info[1], (word)parms->length, "wbwss", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } if (!plci) { Info = _WRONG_IDENTIFIER; break; } /* reuse unused screening indicator */ ss_parms[3].info[3] = (byte)GET_WORD(&(ss_parms[2].info[0])); plci->command = 0; plci->internal_command = CD_REQ_PEND; appl->CDEnable = true; cai[0] = 1; cai[1] = CALL_DEFLECTION; add_p(plci, CAI, cai); add_p(plci, CPN, ss_parms[3].info); sig_req(plci, S_SERVICE, 0); send_req(plci); return false; break; case S_CALL_FORWARDING_START: if (api_parse(&parms->info[1], (word)parms->length, "wbdwwsss", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } if ((i = get_plci(a))) { rplci = &a->plci[i - 1]; rplci->appl = appl; add_p(rplci, CAI, "\x01\x80"); add_p(rplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rplci, ASSIGN, DSIG_ID); send_req(rplci); } else { Info = _OUT_OF_PLCI; break; } /* reuse unused screening indicator */ rplci->internal_command = CF_START_PEND; rplci->appl = appl; rplci->number = Number; appl->S_Handle = GET_DWORD(&(ss_parms[2].info[0])); cai[0] = 2; cai[1] = 0x70 | (byte)GET_WORD(&(ss_parms[3].info[0])); /* Function */ cai[2] = (byte)GET_WORD(&(ss_parms[4].info[0])); /* Basic Service */ add_p(rplci, CAI, cai); add_p(rplci, OAD, ss_parms[5].info); add_p(rplci, CPN, ss_parms[6].info); sig_req(rplci, S_SERVICE, 0); send_req(rplci); return false; break; case S_INTERROGATE_DIVERSION: case S_INTERROGATE_NUMBERS: case S_CALL_FORWARDING_STOP: case S_CCBS_REQUEST: case S_CCBS_DEACTIVATE: case S_CCBS_INTERROGATE: switch (SSreq) { case S_INTERROGATE_NUMBERS: if (api_parse(&parms->info[1], (word)parms->length, "wbd", ss_parms)) { dbug(0, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; } break; case S_CCBS_REQUEST: case S_CCBS_DEACTIVATE: if (api_parse(&parms->info[1], (word)parms->length, "wbdw", ss_parms)) { dbug(0, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; } break; case S_CCBS_INTERROGATE: if (api_parse(&parms->info[1], (word)parms->length, "wbdws", ss_parms)) { dbug(0, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; } break; default: if (api_parse(&parms->info[1], (word)parms->length, "wbdwws", ss_parms)) { dbug(0, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } break; } if (Info) break; if ((i = get_plci(a))) { rplci = &a->plci[i - 1]; switch (SSreq) { case S_INTERROGATE_DIVERSION: /* use cai with S_SERVICE below */ cai[1] = 0x60 | (byte)GET_WORD(&(ss_parms[3].info[0])); /* Function */ rplci->internal_command = INTERR_DIVERSION_REQ_PEND; /* move to rplci if assigned */ break; case S_INTERROGATE_NUMBERS: /* use cai with S_SERVICE below */ cai[1] = DIVERSION_INTERROGATE_NUM; /* Function */ rplci->internal_command = INTERR_NUMBERS_REQ_PEND; /* move to rplci if assigned */ break; case S_CALL_FORWARDING_STOP: rplci->internal_command = CF_STOP_PEND; cai[1] = 0x80 | (byte)GET_WORD(&(ss_parms[3].info[0])); /* Function */ break; case S_CCBS_REQUEST: cai[1] = CCBS_REQUEST; rplci->internal_command = CCBS_REQUEST_REQ_PEND; break; case S_CCBS_DEACTIVATE: cai[1] = CCBS_DEACTIVATE; rplci->internal_command = CCBS_DEACTIVATE_REQ_PEND; break; case S_CCBS_INTERROGATE: cai[1] = CCBS_INTERROGATE; rplci->internal_command = CCBS_INTERROGATE_REQ_PEND; break; default: cai[1] = 0; break; } rplci->appl = appl; rplci->number = Number; add_p(rplci, CAI, "\x01\x80"); add_p(rplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rplci, ASSIGN, DSIG_ID); send_req(rplci); } else { Info = _OUT_OF_PLCI; break; } appl->S_Handle = GET_DWORD(&(ss_parms[2].info[0])); switch (SSreq) { case S_INTERROGATE_NUMBERS: cai[0] = 1; add_p(rplci, CAI, cai); break; case S_CCBS_REQUEST: case S_CCBS_DEACTIVATE: cai[0] = 3; PUT_WORD(&cai[2], GET_WORD(&(ss_parms[3].info[0]))); add_p(rplci, CAI, cai); break; case S_CCBS_INTERROGATE: cai[0] = 3; PUT_WORD(&cai[2], GET_WORD(&(ss_parms[3].info[0]))); add_p(rplci, CAI, cai); add_p(rplci, OAD, ss_parms[4].info); break; default: cai[0] = 2; cai[2] = (byte)GET_WORD(&(ss_parms[4].info[0])); /* Basic Service */ add_p(rplci, CAI, cai); add_p(rplci, OAD, ss_parms[5].info); break; } sig_req(rplci, S_SERVICE, 0); send_req(rplci); return false; break; case S_MWI_ACTIVATE: if (api_parse(&parms->info[1], (word)parms->length, "wbwdwwwssss", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } if (!plci) { if ((i = get_plci(a))) { rplci = &a->plci[i - 1]; rplci->appl = appl; rplci->cr_enquiry = true; add_p(rplci, CAI, "\x01\x80"); add_p(rplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rplci, ASSIGN, DSIG_ID); send_req(rplci); } else { Info = _OUT_OF_PLCI; break; } } else { rplci = plci; rplci->cr_enquiry = false; } rplci->command = 0; rplci->internal_command = MWI_ACTIVATE_REQ_PEND; rplci->appl = appl; rplci->number = Number; cai[0] = 13; cai[1] = ACTIVATION_MWI; /* Function */ PUT_WORD(&cai[2], GET_WORD(&(ss_parms[2].info[0]))); /* Basic Service */ PUT_DWORD(&cai[4], GET_DWORD(&(ss_parms[3].info[0]))); /* Number of Messages */ PUT_WORD(&cai[8], GET_WORD(&(ss_parms[4].info[0]))); /* Message Status */ PUT_WORD(&cai[10], GET_WORD(&(ss_parms[5].info[0]))); /* Message Reference */ PUT_WORD(&cai[12], GET_WORD(&(ss_parms[6].info[0]))); /* Invocation Mode */ add_p(rplci, CAI, cai); add_p(rplci, CPN, ss_parms[7].info); /* Receiving User Number */ add_p(rplci, OAD, ss_parms[8].info); /* Controlling User Number */ add_p(rplci, OSA, ss_parms[9].info); /* Controlling User Provided Number */ add_p(rplci, UID, ss_parms[10].info); /* Time */ sig_req(rplci, S_SERVICE, 0); send_req(rplci); return false; case S_MWI_DEACTIVATE: if (api_parse(&parms->info[1], (word)parms->length, "wbwwss", ss_parms)) { dbug(1, dprintf("format wrong")); Info = _WRONG_MESSAGE_FORMAT; break; } if (!plci) { if ((i = get_plci(a))) { rplci = &a->plci[i - 1]; rplci->appl = appl; rplci->cr_enquiry = true; add_p(rplci, CAI, "\x01\x80"); add_p(rplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(rplci, ASSIGN, DSIG_ID); send_req(rplci); } else { Info = _OUT_OF_PLCI; break; } } else { rplci = plci; rplci->cr_enquiry = false; } rplci->command = 0; rplci->internal_command = MWI_DEACTIVATE_REQ_PEND; rplci->appl = appl; rplci->number = Number; cai[0] = 5; cai[1] = DEACTIVATION_MWI; /* Function */ PUT_WORD(&cai[2], GET_WORD(&(ss_parms[2].info[0]))); /* Basic Service */ PUT_WORD(&cai[4], GET_WORD(&(ss_parms[3].info[0]))); /* Invocation Mode */ add_p(rplci, CAI, cai); add_p(rplci, CPN, ss_parms[4].info); /* Receiving User Number */ add_p(rplci, OAD, ss_parms[5].info); /* Controlling User Number */ sig_req(rplci, S_SERVICE, 0); send_req(rplci); return false; default: Info = 0x300E; /* not supported */ break; } break; /* case SELECTOR_SU_SERV: end */ case SELECTOR_DTMF: return (dtmf_request(Id, Number, a, plci, appl, msg)); case SELECTOR_LINE_INTERCONNECT: return (mixer_request(Id, Number, a, plci, appl, msg)); case PRIV_SELECTOR_ECHO_CANCELLER: appl->appl_flags |= APPL_FLAG_PRIV_EC_SPEC; return (ec_request(Id, Number, a, plci, appl, msg)); case SELECTOR_ECHO_CANCELLER: appl->appl_flags &= ~APPL_FLAG_PRIV_EC_SPEC; return (ec_request(Id, Number, a, plci, appl, msg)); case SELECTOR_V42BIS: default: Info = _FACILITY_NOT_SUPPORTED; break; } /* end of switch (selector) */ } dbug(1, dprintf("SendFacRc")); sendf(appl, _FACILITY_R | CONFIRM, Id, Number, "wws", Info, selector, SSparms); return false; } static byte facility_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { dbug(1, dprintf("facility_res")); return false; } static byte connect_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word Info = 0; byte req; byte len; word w; word fax_control_bits, fax_feature_bits, fax_info_change; API_PARSE *ncpi; byte pvc[2]; API_PARSE fax_parms[9]; word i; dbug(1, dprintf("connect_b3_req")); if (plci) { if ((plci->State == IDLE) || (plci->State == OUTG_DIS_PENDING) || (plci->State == INC_DIS_PENDING) || (plci->SuppState != IDLE)) { Info = _WRONG_STATE; } else { /* local reply if assign unsuccessful or B3 protocol allows only one layer 3 connection and already connected or B2 protocol not any LAPD and connect_b3_req contradicts originate/answer direction */ if (!plci->NL.Id || (((plci->B3_prot != B3_T90NL) && (plci->B3_prot != B3_ISO8208) && (plci->B3_prot != B3_X25_DCE)) && ((plci->channels != 0) || (((plci->B2_prot != B2_SDLC) && (plci->B2_prot != B2_LAPD) && (plci->B2_prot != B2_LAPD_FREE_SAPI_SEL)) && ((plci->call_dir & CALL_DIR_ANSWER) && !(plci->call_dir & CALL_DIR_FORCE_OUTG_NL)))))) { dbug(1, dprintf("B3 already connected=%d or no NL.Id=0x%x, dir=%d sstate=0x%x", plci->channels, plci->NL.Id, plci->call_dir, plci->SuppState)); Info = _WRONG_STATE; sendf(appl, _CONNECT_B3_R | CONFIRM, Id, Number, "w", Info); return false; } plci->requested_options_conn = 0; req = N_CONNECT; ncpi = &parms[0]; if (plci->B3_prot == 2 || plci->B3_prot == 3) { if (ncpi->length > 2) { /* check for PVC */ if (ncpi->info[2] || ncpi->info[3]) { pvc[0] = ncpi->info[3]; pvc[1] = ncpi->info[2]; add_d(plci, 2, pvc); req = N_RESET; } else { if (ncpi->info[1] & 1) req = N_CONNECT | N_D_BIT; add_d(plci, (word)(ncpi->length - 3), &ncpi->info[4]); } } } else if (plci->B3_prot == 5) { if (plci->NL.Id && !plci->nl_remove_id) { fax_control_bits = GET_WORD(&((T30_INFO *)plci->fax_connect_info_buffer)->control_bits_low); fax_feature_bits = GET_WORD(&((T30_INFO *)plci->fax_connect_info_buffer)->feature_bits_low); if (!(fax_control_bits & T30_CONTROL_BIT_MORE_DOCUMENTS) || (fax_feature_bits & T30_FEATURE_BIT_MORE_DOCUMENTS)) { len = offsetof(T30_INFO, universal_6); fax_info_change = false; if (ncpi->length >= 4) { w = GET_WORD(&ncpi->info[3]); if ((w & 0x0001) != ((word)(((T30_INFO *)(plci->fax_connect_info_buffer))->resolution & 0x0001))) { ((T30_INFO *)(plci->fax_connect_info_buffer))->resolution = (byte)((((T30_INFO *)(plci->fax_connect_info_buffer))->resolution & ~T30_RESOLUTION_R8_0770_OR_200) | ((w & 0x0001) ? T30_RESOLUTION_R8_0770_OR_200 : 0)); fax_info_change = true; } fax_control_bits &= ~(T30_CONTROL_BIT_REQUEST_POLLING | T30_CONTROL_BIT_MORE_DOCUMENTS); if (w & 0x0002) /* Fax-polling request */ fax_control_bits |= T30_CONTROL_BIT_REQUEST_POLLING; if ((w & 0x0004) /* Request to send / poll another document */ && (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_MORE_DOCUMENTS)) { fax_control_bits |= T30_CONTROL_BIT_MORE_DOCUMENTS; } if (ncpi->length >= 6) { w = GET_WORD(&ncpi->info[5]); if (((byte) w) != ((T30_INFO *)(plci->fax_connect_info_buffer))->data_format) { ((T30_INFO *)(plci->fax_connect_info_buffer))->data_format = (byte) w; fax_info_change = true; } if ((a->man_profile.private_options & (1L << PRIVATE_FAX_SUB_SEP_PWD)) && (GET_WORD(&ncpi->info[5]) & 0x8000)) /* Private SEP/SUB/PWD enable */ { plci->requested_options_conn |= (1L << PRIVATE_FAX_SUB_SEP_PWD); } if ((a->man_profile.private_options & (1L << PRIVATE_FAX_NONSTANDARD)) && (GET_WORD(&ncpi->info[5]) & 0x4000)) /* Private non-standard facilities enable */ { plci->requested_options_conn |= (1L << PRIVATE_FAX_NONSTANDARD); } fax_control_bits &= ~(T30_CONTROL_BIT_ACCEPT_SUBADDRESS | T30_CONTROL_BIT_ACCEPT_SEL_POLLING | T30_CONTROL_BIT_ACCEPT_PASSWORD); if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[appl->Id - 1]) & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD))) { if (api_parse(&ncpi->info[1], ncpi->length, "wwwwsss", fax_parms)) Info = _WRONG_MESSAGE_FORMAT; else { if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[appl->Id - 1]) & (1L << PRIVATE_FAX_SUB_SEP_PWD)) { fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SUBADDRESS | T30_CONTROL_BIT_ACCEPT_PASSWORD; if (fax_control_bits & T30_CONTROL_BIT_ACCEPT_POLLING) fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SEL_POLLING; } w = fax_parms[4].length; if (w > 20) w = 20; ((T30_INFO *)(plci->fax_connect_info_buffer))->station_id_len = (byte) w; for (i = 0; i < w; i++) ((T30_INFO *)(plci->fax_connect_info_buffer))->station_id[i] = fax_parms[4].info[1 + i]; ((T30_INFO *)(plci->fax_connect_info_buffer))->head_line_len = 0; len = offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH; w = fax_parms[5].length; if (w > 20) w = 20; plci->fax_connect_info_buffer[len++] = (byte) w; for (i = 0; i < w; i++) plci->fax_connect_info_buffer[len++] = fax_parms[5].info[1 + i]; w = fax_parms[6].length; if (w > 20) w = 20; plci->fax_connect_info_buffer[len++] = (byte) w; for (i = 0; i < w; i++) plci->fax_connect_info_buffer[len++] = fax_parms[6].info[1 + i]; if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[appl->Id - 1]) & (1L << PRIVATE_FAX_NONSTANDARD)) { if (api_parse(&ncpi->info[1], ncpi->length, "wwwwssss", fax_parms)) { dbug(1, dprintf("non-standard facilities info missing or wrong format")); plci->fax_connect_info_buffer[len++] = 0; } else { if ((fax_parms[7].length >= 3) && (fax_parms[7].info[1] >= 2)) plci->nsf_control_bits = GET_WORD(&fax_parms[7].info[2]); plci->fax_connect_info_buffer[len++] = (byte)(fax_parms[7].length); for (i = 0; i < fax_parms[7].length; i++) plci->fax_connect_info_buffer[len++] = fax_parms[7].info[1 + i]; } } } } else { len = offsetof(T30_INFO, universal_6); } fax_info_change = true; } if (fax_control_bits != GET_WORD(&((T30_INFO *)plci->fax_connect_info_buffer)->control_bits_low)) { PUT_WORD(&((T30_INFO *)plci->fax_connect_info_buffer)->control_bits_low, fax_control_bits); fax_info_change = true; } } if (Info == GOOD) { plci->fax_connect_info_length = len; if (fax_info_change) { if (fax_feature_bits & T30_FEATURE_BIT_MORE_DOCUMENTS) { start_internal_command(Id, plci, fax_connect_info_command); return false; } else { start_internal_command(Id, plci, fax_adjust_b23_command); return false; } } } } else Info = _WRONG_STATE; } else Info = _WRONG_STATE; } else if (plci->B3_prot == B3_RTP) { plci->internal_req_buffer[0] = ncpi->length + 1; plci->internal_req_buffer[1] = UDATA_REQUEST_RTP_RECONFIGURE; for (w = 0; w < ncpi->length; w++) plci->internal_req_buffer[2 + w] = ncpi->info[1 + w]; start_internal_command(Id, plci, rtp_connect_b3_req_command); return false; } if (!Info) { nl_req_ncci(plci, req, 0); return 1; } } } else Info = _WRONG_IDENTIFIER; sendf(appl, _CONNECT_B3_R | CONFIRM, Id, Number, "w", Info); return false; } static byte connect_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word ncci; API_PARSE *ncpi; byte req; word w; API_PARSE fax_parms[9]; word i; byte len; dbug(1, dprintf("connect_b3_res")); ncci = (word)(Id >> 16); if (plci && ncci) { if (a->ncci_state[ncci] == INC_CON_PENDING) { if (GET_WORD(&parms[0].info[0]) != 0) { a->ncci_state[ncci] = OUTG_REJ_PENDING; channel_request_xon(plci, a->ncci_ch[ncci]); channel_xmit_xon(plci); cleanup_ncci_data(plci, ncci); nl_req_ncci(plci, N_DISC, (byte)ncci); return 1; } a->ncci_state[ncci] = INC_ACT_PENDING; req = N_CONNECT_ACK; ncpi = &parms[1]; if ((plci->B3_prot == 4) || (plci->B3_prot == 5) || (plci->B3_prot == 7)) { if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[plci->appl->Id - 1]) & (1L << PRIVATE_FAX_NONSTANDARD)) { if (((plci->B3_prot == 4) || (plci->B3_prot == 5)) && (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_ENABLE_NSF) && (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_NEGOTIATE_RESP)) { len = offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH; if (plci->fax_connect_info_length < len) { ((T30_INFO *)(plci->fax_connect_info_buffer))->station_id_len = 0; ((T30_INFO *)(plci->fax_connect_info_buffer))->head_line_len = 0; } if (api_parse(&ncpi->info[1], ncpi->length, "wwwwssss", fax_parms)) { dbug(1, dprintf("non-standard facilities info missing or wrong format")); } else { if (plci->fax_connect_info_length <= len) plci->fax_connect_info_buffer[len] = 0; len += 1 + plci->fax_connect_info_buffer[len]; if (plci->fax_connect_info_length <= len) plci->fax_connect_info_buffer[len] = 0; len += 1 + plci->fax_connect_info_buffer[len]; if ((fax_parms[7].length >= 3) && (fax_parms[7].info[1] >= 2)) plci->nsf_control_bits = GET_WORD(&fax_parms[7].info[2]); plci->fax_connect_info_buffer[len++] = (byte)(fax_parms[7].length); for (i = 0; i < fax_parms[7].length; i++) plci->fax_connect_info_buffer[len++] = fax_parms[7].info[1 + i]; } plci->fax_connect_info_length = len; ((T30_INFO *)(plci->fax_connect_info_buffer))->code = 0; start_internal_command(Id, plci, fax_connect_ack_command); return false; } } nl_req_ncci(plci, req, (byte)ncci); if ((plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT)) { if (plci->B3_prot == 4) sendf(appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); else sendf(appl, _CONNECT_B3_ACTIVE_I, Id, 0, "S", plci->ncpi_buffer); plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT; } } else if (plci->B3_prot == B3_RTP) { plci->internal_req_buffer[0] = ncpi->length + 1; plci->internal_req_buffer[1] = UDATA_REQUEST_RTP_RECONFIGURE; for (w = 0; w < ncpi->length; w++) plci->internal_req_buffer[2 + w] = ncpi->info[1+w]; start_internal_command(Id, plci, rtp_connect_b3_res_command); return false; } else { if (ncpi->length > 2) { if (ncpi->info[1] & 1) req = N_CONNECT_ACK | N_D_BIT; add_d(plci, (word)(ncpi->length - 3), &ncpi->info[4]); } nl_req_ncci(plci, req, (byte)ncci); sendf(appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); if (plci->adjust_b_restore) { plci->adjust_b_restore = false; start_internal_command(Id, plci, adjust_b_restore); } } return 1; } } return false; } static byte connect_b3_a_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word ncci; ncci = (word)(Id >> 16); dbug(1, dprintf("connect_b3_a_res(ncci=0x%x)", ncci)); if (plci && ncci && (plci->State != IDLE) && (plci->State != INC_DIS_PENDING) && (plci->State != OUTG_DIS_PENDING)) { if (a->ncci_state[ncci] == INC_ACT_PENDING) { a->ncci_state[ncci] = CONNECTED; if (plci->State != INC_CON_CONNECTED_ALERT) plci->State = CONNECTED; channel_request_xon(plci, a->ncci_ch[ncci]); channel_xmit_xon(plci); } } return false; } static byte disconnect_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word Info; word ncci; API_PARSE *ncpi; dbug(1, dprintf("disconnect_b3_req")); Info = _WRONG_IDENTIFIER; ncci = (word)(Id >> 16); if (plci && ncci) { Info = _WRONG_STATE; if ((a->ncci_state[ncci] == CONNECTED) || (a->ncci_state[ncci] == OUTG_CON_PENDING) || (a->ncci_state[ncci] == INC_CON_PENDING) || (a->ncci_state[ncci] == INC_ACT_PENDING)) { a->ncci_state[ncci] = OUTG_DIS_PENDING; channel_request_xon(plci, a->ncci_ch[ncci]); channel_xmit_xon(plci); if (a->ncci[ncci].data_pending && ((plci->B3_prot == B3_TRANSPARENT) || (plci->B3_prot == B3_T30) || (plci->B3_prot == B3_T30_WITH_EXTENSIONS))) { plci->send_disc = (byte)ncci; plci->command = 0; return false; } else { cleanup_ncci_data(plci, ncci); if (plci->B3_prot == 2 || plci->B3_prot == 3) { ncpi = &parms[0]; if (ncpi->length > 3) { add_d(plci, (word)(ncpi->length - 3), (byte *)&(ncpi->info[4])); } } nl_req_ncci(plci, N_DISC, (byte)ncci); } return 1; } } sendf(appl, _DISCONNECT_B3_R | CONFIRM, Id, Number, "w", Info); return false; } static byte disconnect_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word ncci; word i; ncci = (word)(Id >> 16); dbug(1, dprintf("disconnect_b3_res(ncci=0x%x", ncci)); if (plci && ncci) { plci->requested_options_conn = 0; plci->fax_connect_info_length = 0; plci->ncpi_state = 0x00; if (((plci->B3_prot != B3_T90NL) && (plci->B3_prot != B3_ISO8208) && (plci->B3_prot != B3_X25_DCE)) && ((plci->B2_prot != B2_LAPD) && (plci->B2_prot != B2_LAPD_FREE_SAPI_SEL))) { plci->call_dir |= CALL_DIR_FORCE_OUTG_NL; } for (i = 0; i < MAX_CHANNELS_PER_PLCI && plci->inc_dis_ncci_table[i] != (byte)ncci; i++); if (i < MAX_CHANNELS_PER_PLCI) { if (plci->channels)plci->channels--; for (; i < MAX_CHANNELS_PER_PLCI - 1; i++) plci->inc_dis_ncci_table[i] = plci->inc_dis_ncci_table[i + 1]; plci->inc_dis_ncci_table[MAX_CHANNELS_PER_PLCI - 1] = 0; ncci_free_receive_buffers(plci, ncci); if ((plci->State == IDLE || plci->State == SUSPENDING) && !plci->channels) { if (plci->State == SUSPENDING) { sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", (word)3, "\x03\x04\x00\x00"); sendf(plci->appl, _DISCONNECT_I, Id & 0xffffL, 0, "w", 0); } plci_remove(plci); plci->State = IDLE; } } else { if ((a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS) && ((plci->B3_prot == 4) || (plci->B3_prot == 5)) && (a->ncci_state[ncci] == INC_DIS_PENDING)) { ncci_free_receive_buffers(plci, ncci); nl_req_ncci(plci, N_EDATA, (byte)ncci); plci->adapter->ncci_state[ncci] = IDLE; start_internal_command(Id, plci, fax_disconnect_command); return 1; } } } return false; } static byte data_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { NCCI *ncci_ptr; DATA_B3_DESC *data; word Info; word ncci; word i; dbug(1, dprintf("data_b3_req")); Info = _WRONG_IDENTIFIER; ncci = (word)(Id >> 16); dbug(1, dprintf("ncci=0x%x, plci=0x%x", ncci, plci)); if (plci && ncci) { Info = _WRONG_STATE; if ((a->ncci_state[ncci] == CONNECTED) || (a->ncci_state[ncci] == INC_ACT_PENDING)) { /* queue data */ ncci_ptr = &(a->ncci[ncci]); i = ncci_ptr->data_out + ncci_ptr->data_pending; if (i >= MAX_DATA_B3) i -= MAX_DATA_B3; data = &(ncci_ptr->DBuffer[i]); data->Number = Number; if ((((byte *)(parms[0].info)) >= ((byte *)(plci->msg_in_queue))) && (((byte *)(parms[0].info)) < ((byte *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue))) { data->P = (byte *)(long)(*((dword *)(parms[0].info))); } else data->P = TransmitBufferSet(appl, *(dword *)parms[0].info); data->Length = GET_WORD(parms[1].info); data->Handle = GET_WORD(parms[2].info); data->Flags = GET_WORD(parms[3].info); (ncci_ptr->data_pending)++; /* check for delivery confirmation */ if (data->Flags & 0x0004) { i = ncci_ptr->data_ack_out + ncci_ptr->data_ack_pending; if (i >= MAX_DATA_ACK) i -= MAX_DATA_ACK; ncci_ptr->DataAck[i].Number = data->Number; ncci_ptr->DataAck[i].Handle = data->Handle; (ncci_ptr->data_ack_pending)++; } send_data(plci); return false; } } if (appl) { if (plci) { if ((((byte *)(parms[0].info)) >= ((byte *)(plci->msg_in_queue))) && (((byte *)(parms[0].info)) < ((byte *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue))) { TransmitBufferFree(appl, (byte *)(long)(*((dword *)(parms[0].info)))); } } sendf(appl, _DATA_B3_R | CONFIRM, Id, Number, "ww", GET_WORD(parms[2].info), Info); } return false; } static byte data_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word n; word ncci; word NCCIcode; dbug(1, dprintf("data_b3_res")); ncci = (word)(Id >> 16); if (plci && ncci) { n = GET_WORD(parms[0].info); dbug(1, dprintf("free(%d)", n)); NCCIcode = ncci | (((word) a->Id) << 8); if (n < appl->MaxBuffer && appl->DataNCCI[n] == NCCIcode && (byte)(appl->DataFlags[n] >> 8) == plci->Id) { dbug(1, dprintf("found")); appl->DataNCCI[n] = 0; if (channel_can_xon(plci, a->ncci_ch[ncci])) { channel_request_xon(plci, a->ncci_ch[ncci]); } channel_xmit_xon(plci); if (appl->DataFlags[n] & 4) { nl_req_ncci(plci, N_DATA_ACK, (byte)ncci); return 1; } } } return false; } static byte reset_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word Info; word ncci; dbug(1, dprintf("reset_b3_req")); Info = _WRONG_IDENTIFIER; ncci = (word)(Id >> 16); if (plci && ncci) { Info = _WRONG_STATE; switch (plci->B3_prot) { case B3_ISO8208: case B3_X25_DCE: if (a->ncci_state[ncci] == CONNECTED) { nl_req_ncci(plci, N_RESET, (byte)ncci); send_req(plci); Info = GOOD; } break; case B3_TRANSPARENT: if (a->ncci_state[ncci] == CONNECTED) { start_internal_command(Id, plci, reset_b3_command); Info = GOOD; } break; } } /* reset_b3 must result in a reset_b3_con & reset_b3_Ind */ sendf(appl, _RESET_B3_R | CONFIRM, Id, Number, "w", Info); return false; } static byte reset_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word ncci; dbug(1, dprintf("reset_b3_res")); ncci = (word)(Id >> 16); if (plci && ncci) { switch (plci->B3_prot) { case B3_ISO8208: case B3_X25_DCE: if (a->ncci_state[ncci] == INC_RES_PENDING) { a->ncci_state[ncci] = CONNECTED; nl_req_ncci(plci, N_RESET_ACK, (byte)ncci); return true; } break; } } return false; } static byte connect_b3_t90_a_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word ncci; API_PARSE *ncpi; byte req; dbug(1, dprintf("connect_b3_t90_a_res")); ncci = (word)(Id >> 16); if (plci && ncci) { if (a->ncci_state[ncci] == INC_ACT_PENDING) { a->ncci_state[ncci] = CONNECTED; } else if (a->ncci_state[ncci] == INC_CON_PENDING) { a->ncci_state[ncci] = CONNECTED; req = N_CONNECT_ACK; /* parms[0]==0 for CAPI original message definition! */ if (parms[0].info) { ncpi = &parms[1]; if (ncpi->length > 2) { if (ncpi->info[1] & 1) req = N_CONNECT_ACK | N_D_BIT; add_d(plci, (word)(ncpi->length - 3), &ncpi->info[4]); } } nl_req_ncci(plci, req, (byte)ncci); return 1; } } return false; } static byte select_b_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word Info = 0; word i; byte tel; API_PARSE bp_parms[7]; if (!plci || !msg) { Info = _WRONG_IDENTIFIER; } else { dbug(1, dprintf("select_b_req[%d],PLCI=0x%x,Tel=0x%x,NL=0x%x,appl=0x%x,sstate=0x%x", msg->length, plci->Id, plci->tel, plci->NL.Id, plci->appl, plci->SuppState)); dbug(1, dprintf("PlciState=0x%x", plci->State)); for (i = 0; i < 7; i++) bp_parms[i].length = 0; /* check if no channel is open, no B3 connected only */ if ((plci->State == IDLE) || (plci->State == OUTG_DIS_PENDING) || (plci->State == INC_DIS_PENDING) || (plci->SuppState != IDLE) || plci->channels || plci->nl_remove_id) { Info = _WRONG_STATE; } /* check message format and fill bp_parms pointer */ else if (msg->length && api_parse(&msg->info[1], (word)msg->length, "wwwsss", bp_parms)) { Info = _WRONG_MESSAGE_FORMAT; } else { if ((plci->State == INC_CON_PENDING) || (plci->State == INC_CON_ALERT)) /* send alert tone inband to the network, */ { /* e.g. Qsig or RBS or Cornet-N or xess PRI */ if (Id & EXT_CONTROLLER) { sendf(appl, _SELECT_B_REQ | CONFIRM, Id, Number, "w", 0x2002); /* wrong controller */ return 0; } plci->State = INC_CON_CONNECTED_ALERT; plci->appl = appl; clear_c_ind_mask_bit(plci, (word)(appl->Id - 1)); dump_c_ind_mask(plci); for (i = 0; i < max_appl; i++) /* disconnect the other appls */ { /* its quasi a connect */ if (test_c_ind_mask_bit(plci, i)) sendf(&application[i], _DISCONNECT_I, Id, 0, "w", _OTHER_APPL_CONNECTED); } } api_save_msg(msg, "s", &plci->saved_msg); tel = plci->tel; if (Id & EXT_CONTROLLER) { if (tel) /* external controller in use by this PLCI */ { if (a->AdvSignalAppl && a->AdvSignalAppl != appl) { dbug(1, dprintf("Ext_Ctrl in use 1")); Info = _WRONG_STATE; } } else /* external controller NOT in use by this PLCI ? */ { if (a->AdvSignalPLCI) { dbug(1, dprintf("Ext_Ctrl in use 2")); Info = _WRONG_STATE; } else /* activate the codec */ { dbug(1, dprintf("Ext_Ctrl start")); if (AdvCodecSupport(a, plci, appl, 0)) { dbug(1, dprintf("Error in codec procedures")); Info = _WRONG_STATE; } else if (plci->spoofed_msg == SPOOFING_REQUIRED) /* wait until codec is active */ { plci->spoofed_msg = AWAITING_SELECT_B; plci->internal_command = BLOCK_PLCI; /* lock other commands */ plci->command = 0; dbug(1, dprintf("continue if codec loaded")); return false; } } } } else /* external controller bit is OFF */ { if (tel) /* external controller in use, need to switch off */ { if (a->AdvSignalAppl == appl) { CodecIdCheck(a, plci); plci->tel = 0; plci->adv_nl = 0; dbug(1, dprintf("Ext_Ctrl disable")); } else { dbug(1, dprintf("Ext_Ctrl not requested")); } } } if (!Info) { if (plci->call_dir & CALL_DIR_OUT) plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE; else if (plci->call_dir & CALL_DIR_IN) plci->call_dir = CALL_DIR_IN | CALL_DIR_ANSWER; start_internal_command(Id, plci, select_b_command); return false; } } } sendf(appl, _SELECT_B_REQ | CONFIRM, Id, Number, "w", Info); return false; } static byte manufacturer_req(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *parms) { word command; word i; word ncci; API_PARSE *m; API_PARSE m_parms[5]; word codec; byte req; byte ch; byte dir; static byte chi[2] = {0x01, 0x00}; static byte lli[2] = {0x01, 0x00}; static byte codec_cai[2] = {0x01, 0x01}; static byte null_msg = {0}; static API_PARSE null_parms = { 0, &null_msg }; PLCI *v_plci; word Info = 0; dbug(1, dprintf("manufacturer_req")); for (i = 0; i < 5; i++) m_parms[i].length = 0; if (GET_DWORD(parms[0].info) != _DI_MANU_ID) { Info = _WRONG_MESSAGE_FORMAT; } command = GET_WORD(parms[1].info); m = &parms[2]; if (!Info) { switch (command) { case _DI_ASSIGN_PLCI: if (api_parse(&m->info[1], (word)m->length, "wbbs", m_parms)) { Info = _WRONG_MESSAGE_FORMAT; break; } codec = GET_WORD(m_parms[0].info); ch = m_parms[1].info[0]; dir = m_parms[2].info[0]; if ((i = get_plci(a))) { plci = &a->plci[i - 1]; plci->appl = appl; plci->command = _MANUFACTURER_R; plci->m_command = command; plci->number = Number; plci->State = LOCAL_CONNECT; Id = (((word)plci->Id << 8) | plci->adapter->Id | 0x80); dbug(1, dprintf("ManCMD,plci=0x%x", Id)); if ((ch == 1 || ch == 2) && (dir <= 2)) { chi[1] = (byte)(0x80 | ch); lli[1] = 0; plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE; switch (codec) { case 0: Info = add_b1(plci, &m_parms[3], 0, 0); break; case 1: add_p(plci, CAI, codec_cai); break; /* manual 'swich on' to the codec support without signalling */ /* first 'assign plci' with this function, then use */ case 2: if (AdvCodecSupport(a, plci, appl, 0)) { Info = _RESOURCE_ERROR; } else { Info = add_b1(plci, &null_parms, 0, B1_FACILITY_LOCAL); lli[1] = 0x10; /* local call codec stream */ } break; } plci->State = LOCAL_CONNECT; plci->manufacturer = true; plci->command = _MANUFACTURER_R; plci->m_command = command; plci->number = Number; if (!Info) { add_p(plci, LLI, lli); add_p(plci, CHI, chi); add_p(plci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(plci, ASSIGN, DSIG_ID); if (!codec) { Info = add_b23(plci, &m_parms[3]); if (!Info) { nl_req_ncci(plci, ASSIGN, 0); send_req(plci); } } if (!Info) { dbug(1, dprintf("dir=0x%x,spoof=0x%x", dir, plci->spoofed_msg)); if (plci->spoofed_msg == SPOOFING_REQUIRED) { api_save_msg(m_parms, "wbbs", &plci->saved_msg); plci->spoofed_msg = AWAITING_MANUF_CON; plci->internal_command = BLOCK_PLCI; /* reject other req meanwhile */ plci->command = 0; send_req(plci); return false; } if (dir == 1) { sig_req(plci, CALL_REQ, 0); } else if (!dir) { sig_req(plci, LISTEN_REQ, 0); } send_req(plci); } else { sendf(appl, _MANUFACTURER_R | CONFIRM, Id, Number, "dww", _DI_MANU_ID, command, Info); return 2; } } } } else Info = _OUT_OF_PLCI; break; case _DI_IDI_CTRL: if (!plci) { Info = _WRONG_IDENTIFIER; break; } if (api_parse(&m->info[1], (word)m->length, "bs", m_parms)) { Info = _WRONG_MESSAGE_FORMAT; break; } req = m_parms[0].info[0]; plci->command = _MANUFACTURER_R; plci->m_command = command; plci->number = Number; if (req == CALL_REQ) { plci->b_channel = getChannel(&m_parms[1]); mixer_set_bchannel_id_esc(plci, plci->b_channel); if (plci->spoofed_msg == SPOOFING_REQUIRED) { plci->spoofed_msg = CALL_REQ | AWAITING_MANUF_CON; plci->internal_command = BLOCK_PLCI; /* reject other req meanwhile */ plci->command = 0; break; } } else if (req == LAW_REQ) { plci->cr_enquiry = true; } add_ss(plci, FTY, &m_parms[1]); sig_req(plci, req, 0); send_req(plci); if (req == HANGUP) { if (plci->NL.Id && !plci->nl_remove_id) { if (plci->channels) { for (ncci = 1; ncci < MAX_NCCI + 1; ncci++) { if ((a->ncci_plci[ncci] == plci->Id) && (a->ncci_state[ncci] == CONNECTED)) { a->ncci_state[ncci] = OUTG_DIS_PENDING; cleanup_ncci_data(plci, ncci); nl_req_ncci(plci, N_DISC, (byte)ncci); } } } mixer_remove(plci); nl_req_ncci(plci, REMOVE, 0); send_req(plci); } } break; case _DI_SIG_CTRL: /* signalling control for loop activation B-channel */ if (!plci) { Info = _WRONG_IDENTIFIER; break; } if (m->length) { plci->command = _MANUFACTURER_R; plci->number = Number; add_ss(plci, FTY, m); sig_req(plci, SIG_CTRL, 0); send_req(plci); } else Info = _WRONG_MESSAGE_FORMAT; break; case _DI_RXT_CTRL: /* activation control for receiver/transmitter B-channel */ if (!plci) { Info = _WRONG_IDENTIFIER; break; } if (m->length) { plci->command = _MANUFACTURER_R; plci->number = Number; add_ss(plci, FTY, m); sig_req(plci, DSP_CTRL, 0); send_req(plci); } else Info = _WRONG_MESSAGE_FORMAT; break; case _DI_ADV_CODEC: case _DI_DSP_CTRL: /* TEL_CTRL commands to support non standard adjustments: */ /* Ring on/off, Handset micro volume, external micro vol. */ /* handset+external speaker volume, receiver+transm. gain,*/ /* handsfree on (hookinfo off), set mixer command */ if (command == _DI_ADV_CODEC) { if (!a->AdvCodecPLCI) { Info = _WRONG_STATE; break; } v_plci = a->AdvCodecPLCI; } else { if (plci && (m->length >= 3) && (m->info[1] == 0x1c) && (m->info[2] >= 1)) { if (m->info[3] == DSP_CTRL_OLD_SET_MIXER_COEFFICIENTS) { if ((plci->tel != ADV_VOICE) || (plci != a->AdvSignalPLCI)) { Info = _WRONG_STATE; break; } a->adv_voice_coef_length = m->info[2] - 1; if (a->adv_voice_coef_length > m->length - 3) a->adv_voice_coef_length = (byte)(m->length - 3); if (a->adv_voice_coef_length > ADV_VOICE_COEF_BUFFER_SIZE) a->adv_voice_coef_length = ADV_VOICE_COEF_BUFFER_SIZE; for (i = 0; i < a->adv_voice_coef_length; i++) a->adv_voice_coef_buffer[i] = m->info[4 + i]; if (plci->B1_facilities & B1_FACILITY_VOICE) adv_voice_write_coefs(plci, ADV_VOICE_WRITE_UPDATE); break; } else if (m->info[3] == DSP_CTRL_SET_DTMF_PARAMETERS) { if (!(a->manufacturer_features & MANUFACTURER_FEATURE_DTMF_PARAMETERS)) { Info = _FACILITY_NOT_SUPPORTED; break; } plci->dtmf_parameter_length = m->info[2] - 1; if (plci->dtmf_parameter_length > m->length - 3) plci->dtmf_parameter_length = (byte)(m->length - 3); if (plci->dtmf_parameter_length > DTMF_PARAMETER_BUFFER_SIZE) plci->dtmf_parameter_length = DTMF_PARAMETER_BUFFER_SIZE; for (i = 0; i < plci->dtmf_parameter_length; i++) plci->dtmf_parameter_buffer[i] = m->info[4 + i]; if (plci->B1_facilities & B1_FACILITY_DTMFR) dtmf_parameter_write(plci); break; } } v_plci = plci; } if (!v_plci) { Info = _WRONG_IDENTIFIER; break; } if (m->length) { add_ss(v_plci, FTY, m); sig_req(v_plci, TEL_CTRL, 0); send_req(v_plci); } else Info = _WRONG_MESSAGE_FORMAT; break; case _DI_OPTIONS_REQUEST: if (api_parse(&m->info[1], (word)m->length, "d", m_parms)) { Info = _WRONG_MESSAGE_FORMAT; break; } if (GET_DWORD(m_parms[0].info) & ~a->man_profile.private_options) { Info = _FACILITY_NOT_SUPPORTED; break; } a->requested_options_table[appl->Id - 1] = GET_DWORD(m_parms[0].info); break; default: Info = _WRONG_MESSAGE_FORMAT; break; } } sendf(appl, _MANUFACTURER_R | CONFIRM, Id, Number, "dww", _DI_MANU_ID, command, Info); return false; } static byte manufacturer_res(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word indication; API_PARSE m_parms[3]; API_PARSE *ncpi; API_PARSE fax_parms[9]; word i; byte len; dbug(1, dprintf("manufacturer_res")); if ((msg[0].length == 0) || (msg[1].length == 0) || (GET_DWORD(msg[0].info) != _DI_MANU_ID)) { return false; } indication = GET_WORD(msg[1].info); switch (indication) { case _DI_NEGOTIATE_B3: if (!plci) break; if (((plci->B3_prot != 4) && (plci->B3_prot != 5)) || !(plci->ncpi_state & NCPI_NEGOTIATE_B3_SENT)) { dbug(1, dprintf("wrong state for NEGOTIATE_B3 parameters")); break; } if (api_parse(&msg[2].info[1], msg[2].length, "ws", m_parms)) { dbug(1, dprintf("wrong format in NEGOTIATE_B3 parameters")); break; } ncpi = &m_parms[1]; len = offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH; if (plci->fax_connect_info_length < len) { ((T30_INFO *)(plci->fax_connect_info_buffer))->station_id_len = 0; ((T30_INFO *)(plci->fax_connect_info_buffer))->head_line_len = 0; } if (api_parse(&ncpi->info[1], ncpi->length, "wwwwssss", fax_parms)) { dbug(1, dprintf("non-standard facilities info missing or wrong format")); } else { if (plci->fax_connect_info_length <= len) plci->fax_connect_info_buffer[len] = 0; len += 1 + plci->fax_connect_info_buffer[len]; if (plci->fax_connect_info_length <= len) plci->fax_connect_info_buffer[len] = 0; len += 1 + plci->fax_connect_info_buffer[len]; if ((fax_parms[7].length >= 3) && (fax_parms[7].info[1] >= 2)) plci->nsf_control_bits = GET_WORD(&fax_parms[7].info[2]); plci->fax_connect_info_buffer[len++] = (byte)(fax_parms[7].length); for (i = 0; i < fax_parms[7].length; i++) plci->fax_connect_info_buffer[len++] = fax_parms[7].info[1 + i]; } plci->fax_connect_info_length = len; plci->fax_edata_ack_length = plci->fax_connect_info_length; start_internal_command(Id, plci, fax_edata_ack_command); break; } return false; } /*------------------------------------------------------------------*/ /* IDI callback function */ /*------------------------------------------------------------------*/ void callback(ENTITY *e) { DIVA_CAPI_ADAPTER *a; APPL *appl; PLCI *plci; CAPI_MSG *m; word i, j; byte rc; byte ch; byte req; byte global_req; int no_cancel_rc; dbug(1, dprintf("%x:CB(%x:Req=%x,Rc=%x,Ind=%x)", (e->user[0] + 1) & 0x7fff, e->Id, e->Req, e->Rc, e->Ind)); a = &(adapter[(byte)e->user[0]]); plci = &(a->plci[e->user[1]]); no_cancel_rc = DIVA_CAPI_SUPPORTS_NO_CANCEL(a); /* If new protocol code and new XDI is used then CAPI should work fully in accordance with IDI cpec an look on callback field instead of Rc field for return codes. */ if (((e->complete == 0xff) && no_cancel_rc) || (e->Rc && !no_cancel_rc)) { rc = e->Rc; ch = e->RcCh; req = e->Req; e->Rc = 0; if (e->user[0] & 0x8000) { /* If REMOVE request was sent then we have to wait until return code with Id set to zero arrives. All other return codes should be ignored. */ if (req == REMOVE) { if (e->Id) { dbug(1, dprintf("cancel RC in REMOVE state")); return; } channel_flow_control_remove(plci); for (i = 0; i < 256; i++) { if (a->FlowControlIdTable[i] == plci->nl_remove_id) a->FlowControlIdTable[i] = 0; } plci->nl_remove_id = 0; if (plci->rx_dma_descriptor > 0) { diva_free_dma_descriptor(plci, plci->rx_dma_descriptor - 1); plci->rx_dma_descriptor = 0; } } if (rc == OK_FC) { a->FlowControlIdTable[ch] = e->Id; a->FlowControlSkipTable[ch] = 0; a->ch_flow_control[ch] |= N_OK_FC_PENDING; a->ch_flow_plci[ch] = plci->Id; plci->nl_req = 0; } else { /* Cancel return codes self, if feature was requested */ if (no_cancel_rc && (a->FlowControlIdTable[ch] == e->Id) && e->Id) { a->FlowControlIdTable[ch] = 0; if ((rc == OK) && a->FlowControlSkipTable[ch]) { dbug(3, dprintf("XDI CAPI: RC cancelled Id:0x02, Ch:%02x", e->Id, ch)); return; } } if (a->ch_flow_control[ch] & N_OK_FC_PENDING) { a->ch_flow_control[ch] &= ~N_OK_FC_PENDING; if (ch == e->ReqCh) plci->nl_req = 0; } else plci->nl_req = 0; } if (plci->nl_req) control_rc(plci, 0, rc, ch, 0, true); else { if (req == N_XON) { channel_x_on(plci, ch); if (plci->internal_command) control_rc(plci, req, rc, ch, 0, true); } else { if (plci->nl_global_req) { global_req = plci->nl_global_req; plci->nl_global_req = 0; if (rc != ASSIGN_OK) { e->Id = 0; if (plci->rx_dma_descriptor > 0) { diva_free_dma_descriptor(plci, plci->rx_dma_descriptor - 1); plci->rx_dma_descriptor = 0; } } channel_xmit_xon(plci); control_rc(plci, 0, rc, ch, global_req, true); } else if (plci->data_sent) { channel_xmit_xon(plci); plci->data_sent = false; plci->NL.XNum = 1; data_rc(plci, ch); if (plci->internal_command) control_rc(plci, req, rc, ch, 0, true); } else { channel_xmit_xon(plci); control_rc(plci, req, rc, ch, 0, true); } } } } else { /* If REMOVE request was sent then we have to wait until return code with Id set to zero arrives. All other return codes should be ignored. */ if (req == REMOVE) { if (e->Id) { dbug(1, dprintf("cancel RC in REMOVE state")); return; } plci->sig_remove_id = 0; } plci->sig_req = 0; if (plci->sig_global_req) { global_req = plci->sig_global_req; plci->sig_global_req = 0; if (rc != ASSIGN_OK) e->Id = 0; channel_xmit_xon(plci); control_rc(plci, 0, rc, ch, global_req, false); } else { channel_xmit_xon(plci); control_rc(plci, req, rc, ch, 0, false); } } /* Again: in accordance with IDI spec Rc and Ind can't be delivered in the same callback. Also if new XDI and protocol code used then jump direct to finish. */ if (no_cancel_rc) { channel_xmit_xon(plci); goto capi_callback_suffix; } } channel_xmit_xon(plci); if (e->Ind) { if (e->user[0] & 0x8000) { byte Ind = e->Ind & 0x0f; byte Ch = e->IndCh; if (((Ind == N_DISC) || (Ind == N_DISC_ACK)) && (a->ch_flow_plci[Ch] == plci->Id)) { if (a->ch_flow_control[Ch] & N_RX_FLOW_CONTROL_MASK) { dbug(3, dprintf("XDI CAPI: I: pending N-XON Ch:%02x", Ch)); } a->ch_flow_control[Ch] &= ~N_RX_FLOW_CONTROL_MASK; } nl_ind(plci); if ((e->RNR != 1) && (a->ch_flow_plci[Ch] == plci->Id) && (a->ch_flow_control[Ch] & N_RX_FLOW_CONTROL_MASK)) { a->ch_flow_control[Ch] &= ~N_RX_FLOW_CONTROL_MASK; dbug(3, dprintf("XDI CAPI: I: remove faked N-XON Ch:%02x", Ch)); } } else { sig_ind(plci); } e->Ind = 0; } capi_callback_suffix: while (!plci->req_in && !plci->internal_command && (plci->msg_in_write_pos != plci->msg_in_read_pos)) { j = (plci->msg_in_read_pos == plci->msg_in_wrap_pos) ? 0 : plci->msg_in_read_pos; i = (((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[j]))->header.length + 3) & 0xfffc; m = (CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[j]); appl = *((APPL **)(&((byte *)(plci->msg_in_queue))[j + i])); dbug(1, dprintf("dequeue msg(0x%04x) - write=%d read=%d wrap=%d", m->header.command, plci->msg_in_write_pos, plci->msg_in_read_pos, plci->msg_in_wrap_pos)); if (plci->msg_in_read_pos == plci->msg_in_wrap_pos) { plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE; plci->msg_in_read_pos = i + MSG_IN_OVERHEAD; } else { plci->msg_in_read_pos = j + i + MSG_IN_OVERHEAD; } if (plci->msg_in_read_pos == plci->msg_in_write_pos) { plci->msg_in_write_pos = MSG_IN_QUEUE_SIZE; plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE; } else if (plci->msg_in_read_pos == plci->msg_in_wrap_pos) { plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE; plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE; } i = api_put(appl, m); if (i != 0) { if (m->header.command == _DATA_B3_R) TransmitBufferFree(appl, (byte *)(long)(m->info.data_b3_req.Data)); dbug(1, dprintf("Error 0x%04x from msg(0x%04x)", i, m->header.command)); break; } if (plci->li_notify_update) { plci->li_notify_update = false; mixer_notify_update(plci, false); } } send_data(plci); send_req(plci); } static void control_rc(PLCI *plci, byte req, byte rc, byte ch, byte global_req, byte nl_rc) { dword Id; dword rId; word Number; word Info = 0; word i; word ncci; DIVA_CAPI_ADAPTER *a; APPL *appl; PLCI *rplci; byte SSparms[] = "\x05\x00\x00\x02\x00\x00"; byte SSstruct[] = "\x09\x00\x00\x06\x00\x00\x00\x00\x00\x00"; if (!plci) { dbug(0, dprintf("A: control_rc, no plci %02x:%02x:%02x:%02x:%02x", req, rc, ch, global_req, nl_rc)); return; } dbug(1, dprintf("req0_in/out=%d/%d", plci->req_in, plci->req_out)); if (plci->req_in != plci->req_out) { if (nl_rc || (global_req != ASSIGN) || (rc == ASSIGN_OK)) { dbug(1, dprintf("req_1return")); return; } /* cancel outstanding request on the PLCI after SIG ASSIGN failure */ } plci->req_in = plci->req_in_start = plci->req_out = 0; dbug(1, dprintf("control_rc")); appl = plci->appl; a = plci->adapter; ncci = a->ch_ncci[ch]; if (appl) { Id = (((dword)(ncci ? ncci : ch)) << 16) | ((word)plci->Id << 8) | a->Id; if (plci->tel && plci->SuppState != CALL_HELD) Id |= EXT_CONTROLLER; Number = plci->number; dbug(1, dprintf("Contr_RC-Id=%08lx,plci=%x,tel=%x, entity=0x%x, command=0x%x, int_command=0x%x", Id, plci->Id, plci->tel, plci->Sig.Id, plci->command, plci->internal_command)); dbug(1, dprintf("channels=0x%x", plci->channels)); if (plci_remove_check(plci)) return; if (req == REMOVE && rc == ASSIGN_OK) { sig_req(plci, HANGUP, 0); sig_req(plci, REMOVE, 0); send_req(plci); } if (plci->command) { switch (plci->command) { case C_HOLD_REQ: dbug(1, dprintf("HoldRC=0x%x", rc)); SSparms[1] = (byte)S_HOLD; if (rc != OK) { plci->SuppState = IDLE; Info = 0x2001; } sendf(appl, _FACILITY_R | CONFIRM, Id, Number, "wws", Info, 3, SSparms); break; case C_RETRIEVE_REQ: dbug(1, dprintf("RetrieveRC=0x%x", rc)); SSparms[1] = (byte)S_RETRIEVE; if (rc != OK) { plci->SuppState = CALL_HELD; Info = 0x2001; } sendf(appl, _FACILITY_R | CONFIRM, Id, Number, "wws", Info, 3, SSparms); break; case _INFO_R: dbug(1, dprintf("InfoRC=0x%x", rc)); if (rc != OK) Info = _WRONG_STATE; sendf(appl, _INFO_R | CONFIRM, Id, Number, "w", Info); break; case _CONNECT_R: dbug(1, dprintf("Connect_R=0x%x/0x%x/0x%x/0x%x", req, rc, global_req, nl_rc)); if (plci->State == INC_DIS_PENDING) break; if (plci->Sig.Id != 0xff) { if (((global_req == ASSIGN) && (rc != ASSIGN_OK)) || (!nl_rc && (req == CALL_REQ) && (rc != OK))) { dbug(1, dprintf("No more IDs/Call_Req failed")); sendf(appl, _CONNECT_R | CONFIRM, Id & 0xffL, Number, "w", _OUT_OF_PLCI); plci_remove(plci); plci->State = IDLE; break; } if (plci->State != LOCAL_CONNECT) plci->State = OUTG_CON_PENDING; sendf(appl, _CONNECT_R | CONFIRM, Id, Number, "w", 0); } else /* D-ch activation */ { if (rc != ASSIGN_OK) { dbug(1, dprintf("No more IDs/X.25 Call_Req failed")); sendf(appl, _CONNECT_R | CONFIRM, Id & 0xffL, Number, "w", _OUT_OF_PLCI); plci_remove(plci); plci->State = IDLE; break; } sendf(appl, _CONNECT_R | CONFIRM, Id, Number, "w", 0); sendf(plci->appl, _CONNECT_ACTIVE_I, Id, 0, "sss", "", "", ""); plci->State = INC_ACT_PENDING; } break; case _CONNECT_I | RESPONSE: if (plci->State != INC_DIS_PENDING) plci->State = INC_CON_ACCEPT; break; case _DISCONNECT_R: if (plci->State == INC_DIS_PENDING) break; if (plci->Sig.Id != 0xff) { plci->State = OUTG_DIS_PENDING; sendf(appl, _DISCONNECT_R | CONFIRM, Id, Number, "w", 0); } break; case SUSPEND_REQ: break; case RESUME_REQ: break; case _CONNECT_B3_R: if (rc != OK) { sendf(appl, _CONNECT_B3_R | CONFIRM, Id, Number, "w", _WRONG_IDENTIFIER); break; } ncci = get_ncci(plci, ch, 0); Id = (Id & 0xffff) | (((dword) ncci) << 16); plci->channels++; if (req == N_RESET) { a->ncci_state[ncci] = INC_ACT_PENDING; sendf(appl, _CONNECT_B3_R | CONFIRM, Id, Number, "w", 0); sendf(appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); } else { a->ncci_state[ncci] = OUTG_CON_PENDING; sendf(appl, _CONNECT_B3_R | CONFIRM, Id, Number, "w", 0); } break; case _CONNECT_B3_I | RESPONSE: break; case _RESET_B3_R: /* sendf(appl, _RESET_B3_R | CONFIRM, Id, Number, "w", 0);*/ break; case _DISCONNECT_B3_R: sendf(appl, _DISCONNECT_B3_R | CONFIRM, Id, Number, "w", 0); break; case _MANUFACTURER_R: break; case PERM_LIST_REQ: if (rc != OK) { Info = _WRONG_IDENTIFIER; sendf(plci->appl, _CONNECT_R | CONFIRM, Id, Number, "w", Info); plci_remove(plci); } else sendf(plci->appl, _CONNECT_R | CONFIRM, Id, Number, "w", Info); break; default: break; } plci->command = 0; } else if (plci->internal_command) { switch (plci->internal_command) { case BLOCK_PLCI: return; case GET_MWI_STATE: if (rc == OK) /* command supported, wait for indication */ { return; } plci_remove(plci); break; /* Get Supported Services */ case GETSERV_REQ_PEND: if (rc == OK) /* command supported, wait for indication */ { break; } PUT_DWORD(&SSstruct[6], MASK_TERMINAL_PORTABILITY); sendf(appl, _FACILITY_R | CONFIRM, Id, Number, "wws", 0, 3, SSstruct); plci_remove(plci); break; case INTERR_DIVERSION_REQ_PEND: /* Interrogate Parameters */ case INTERR_NUMBERS_REQ_PEND: case CF_START_PEND: /* Call Forwarding Start pending */ case CF_STOP_PEND: /* Call Forwarding Stop pending */ case CCBS_REQUEST_REQ_PEND: case CCBS_DEACTIVATE_REQ_PEND: case CCBS_INTERROGATE_REQ_PEND: switch (plci->internal_command) { case INTERR_DIVERSION_REQ_PEND: SSparms[1] = S_INTERROGATE_DIVERSION; break; case INTERR_NUMBERS_REQ_PEND: SSparms[1] = S_INTERROGATE_NUMBERS; break; case CF_START_PEND: SSparms[1] = S_CALL_FORWARDING_START; break; case CF_STOP_PEND: SSparms[1] = S_CALL_FORWARDING_STOP; break; case CCBS_REQUEST_REQ_PEND: SSparms[1] = S_CCBS_REQUEST; break; case CCBS_DEACTIVATE_REQ_PEND: SSparms[1] = S_CCBS_DEACTIVATE; break; case CCBS_INTERROGATE_REQ_PEND: SSparms[1] = S_CCBS_INTERROGATE; break; } if (global_req == ASSIGN) { dbug(1, dprintf("AssignDiversion_RC=0x%x/0x%x", req, rc)); return; } if (!plci->appl) break; if (rc == ISDN_GUARD_REJ) { Info = _CAPI_GUARD_ERROR; } else if (rc != OK) { Info = _SUPPLEMENTARY_SERVICE_NOT_SUPPORTED; } sendf(plci->appl, _FACILITY_R | CONFIRM, Id & 0x7, plci->number, "wws", Info, (word)3, SSparms); if (Info) plci_remove(plci); break; /* 3pty conference pending */ case PTY_REQ_PEND: if (!plci->relatedPTYPLCI) break; rplci = plci->relatedPTYPLCI; SSparms[1] = plci->ptyState; rId = ((word)rplci->Id << 8) | rplci->adapter->Id; if (rplci->tel) rId |= EXT_CONTROLLER; if (rc != OK) { Info = 0x300E; /* not supported */ plci->relatedPTYPLCI = NULL; plci->ptyState = 0; } sendf(rplci->appl, _FACILITY_R | CONFIRM, rId, plci->number, "wws", Info, (word)3, SSparms); break; /* Explicit Call Transfer pending */ case ECT_REQ_PEND: dbug(1, dprintf("ECT_RC=0x%x/0x%x", req, rc)); if (!plci->relatedPTYPLCI) break; rplci = plci->relatedPTYPLCI; SSparms[1] = S_ECT; rId = ((word)rplci->Id << 8) | rplci->adapter->Id; if (rplci->tel) rId |= EXT_CONTROLLER; if (rc != OK) { Info = 0x300E; /* not supported */ plci->relatedPTYPLCI = NULL; plci->ptyState = 0; } sendf(rplci->appl, _FACILITY_R | CONFIRM, rId, plci->number, "wws", Info, (word)3, SSparms); break; case _MANUFACTURER_R: dbug(1, dprintf("_Manufacturer_R=0x%x/0x%x", req, rc)); if ((global_req == ASSIGN) && (rc != ASSIGN_OK)) { dbug(1, dprintf("No more IDs")); sendf(appl, _MANUFACTURER_R | CONFIRM, Id, Number, "dww", _DI_MANU_ID, _MANUFACTURER_R, _OUT_OF_PLCI); plci_remove(plci); /* after codec init, internal codec commands pending */ } break; case _CONNECT_R: dbug(1, dprintf("_Connect_R=0x%x/0x%x", req, rc)); if ((global_req == ASSIGN) && (rc != ASSIGN_OK)) { dbug(1, dprintf("No more IDs")); sendf(appl, _CONNECT_R | CONFIRM, Id & 0xffL, Number, "w", _OUT_OF_PLCI); plci_remove(plci); /* after codec init, internal codec commands pending */ } break; case PERM_COD_HOOK: /* finished with Hook_Ind */ return; case PERM_COD_CALL: dbug(1, dprintf("***Codec Connect_Pending A, Rc = 0x%x", rc)); plci->internal_command = PERM_COD_CONN_PEND; return; case PERM_COD_ASSIGN: dbug(1, dprintf("***Codec Assign A, Rc = 0x%x", rc)); if (rc != ASSIGN_OK) break; sig_req(plci, CALL_REQ, 0); send_req(plci); plci->internal_command = PERM_COD_CALL; return; /* Null Call Reference Request pending */ case C_NCR_FAC_REQ: dbug(1, dprintf("NCR_FAC=0x%x/0x%x", req, rc)); if (global_req == ASSIGN) { if (rc == ASSIGN_OK) { return; } else { sendf(appl, _INFO_R | CONFIRM, Id & 0xf, Number, "w", _WRONG_STATE); appl->NullCREnable = false; plci_remove(plci); } } else if (req == NCR_FACILITY) { if (rc == OK) { sendf(appl, _INFO_R | CONFIRM, Id & 0xf, Number, "w", 0); } else { sendf(appl, _INFO_R | CONFIRM, Id & 0xf, Number, "w", _WRONG_STATE); appl->NullCREnable = false; } plci_remove(plci); } break; case HOOK_ON_REQ: if (plci->channels) { if (a->ncci_state[ncci] == CONNECTED) { a->ncci_state[ncci] = OUTG_DIS_PENDING; cleanup_ncci_data(plci, ncci); nl_req_ncci(plci, N_DISC, (byte)ncci); } break; } break; case HOOK_OFF_REQ: if (plci->State == INC_DIS_PENDING) break; sig_req(plci, CALL_REQ, 0); send_req(plci); plci->State = OUTG_CON_PENDING; break; case MWI_ACTIVATE_REQ_PEND: case MWI_DEACTIVATE_REQ_PEND: if (global_req == ASSIGN && rc == ASSIGN_OK) { dbug(1, dprintf("MWI_REQ assigned")); return; } else if (rc != OK) { if (rc == WRONG_IE) { Info = 0x2007; /* Illegal message parameter coding */ dbug(1, dprintf("MWI_REQ invalid parameter")); } else { Info = 0x300B; /* not supported */ dbug(1, dprintf("MWI_REQ not supported")); } /* 0x3010: Request not allowed in this state */ PUT_WORD(&SSparms[4], 0x300E); /* SS not supported */ } if (plci->internal_command == MWI_ACTIVATE_REQ_PEND) { PUT_WORD(&SSparms[1], S_MWI_ACTIVATE); } else PUT_WORD(&SSparms[1], S_MWI_DEACTIVATE); if (plci->cr_enquiry) { sendf(plci->appl, _FACILITY_R | CONFIRM, Id & 0xf, plci->number, "wws", Info, (word)3, SSparms); if (rc != OK) plci_remove(plci); } else { sendf(plci->appl, _FACILITY_R | CONFIRM, Id, plci->number, "wws", Info, (word)3, SSparms); } break; case CONF_BEGIN_REQ_PEND: case CONF_ADD_REQ_PEND: case CONF_SPLIT_REQ_PEND: case CONF_DROP_REQ_PEND: case CONF_ISOLATE_REQ_PEND: case CONF_REATTACH_REQ_PEND: dbug(1, dprintf("CONF_RC=0x%x/0x%x", req, rc)); if ((plci->internal_command == CONF_ADD_REQ_PEND) && (!plci->relatedPTYPLCI)) break; rplci = plci; rId = Id; switch (plci->internal_command) { case CONF_BEGIN_REQ_PEND: SSparms[1] = S_CONF_BEGIN; break; case CONF_ADD_REQ_PEND: SSparms[1] = S_CONF_ADD; rplci = plci->relatedPTYPLCI; rId = ((word)rplci->Id << 8) | rplci->adapter->Id; break; case CONF_SPLIT_REQ_PEND: SSparms[1] = S_CONF_SPLIT; break; case CONF_DROP_REQ_PEND: SSparms[1] = S_CONF_DROP; break; case CONF_ISOLATE_REQ_PEND: SSparms[1] = S_CONF_ISOLATE; break; case CONF_REATTACH_REQ_PEND: SSparms[1] = S_CONF_REATTACH; break; } if (rc != OK) { Info = 0x300E; /* not supported */ plci->relatedPTYPLCI = NULL; plci->ptyState = 0; } sendf(rplci->appl, _FACILITY_R | CONFIRM, rId, plci->number, "wws", Info, (word)3, SSparms); break; case VSWITCH_REQ_PEND: if (rc != OK) { if (plci->relatedPTYPLCI) { plci->relatedPTYPLCI->vswitchstate = 0; plci->relatedPTYPLCI->vsprot = 0; plci->relatedPTYPLCI->vsprotdialect = 0; } plci->vswitchstate = 0; plci->vsprot = 0; plci->vsprotdialect = 0; } else { if (plci->relatedPTYPLCI && plci->vswitchstate == 1 && plci->relatedPTYPLCI->vswitchstate == 3) /* join complete */ plci->vswitchstate = 3; } break; /* Call Deflection Request pending (SSCT) */ case CD_REQ_PEND: SSparms[1] = S_CALL_DEFLECTION; if (rc != OK) { Info = 0x300E; /* not supported */ plci->appl->CDEnable = 0; } sendf(plci->appl, _FACILITY_R | CONFIRM, Id, plci->number, "wws", Info, (word)3, SSparms); break; case RTP_CONNECT_B3_REQ_COMMAND_2: if (rc == OK) { ncci = get_ncci(plci, ch, 0); Id = (Id & 0xffff) | (((dword) ncci) << 16); plci->channels++; a->ncci_state[ncci] = OUTG_CON_PENDING; } default: if (plci->internal_command_queue[0]) { (*(plci->internal_command_queue[0]))(Id, plci, rc); if (plci->internal_command) return; } break; } next_internal_command(Id, plci); } } else /* appl==0 */ { Id = ((word)plci->Id << 8) | plci->adapter->Id; if (plci->tel) Id |= EXT_CONTROLLER; switch (plci->internal_command) { case BLOCK_PLCI: return; case START_L1_SIG_ASSIGN_PEND: case REM_L1_SIG_ASSIGN_PEND: if (global_req == ASSIGN) { break; } else { dbug(1, dprintf("***L1 Req rem PLCI")); plci->internal_command = 0; sig_req(plci, REMOVE, 0); send_req(plci); } break; /* Call Deflection Request pending, just no appl ptr assigned */ case CD_REQ_PEND: SSparms[1] = S_CALL_DEFLECTION; if (rc != OK) { Info = 0x300E; /* not supported */ } for (i = 0; i < max_appl; i++) { if (application[i].CDEnable) { if (!application[i].Id) application[i].CDEnable = 0; else { sendf(&application[i], _FACILITY_R | CONFIRM, Id, plci->number, "wws", Info, (word)3, SSparms); if (Info) application[i].CDEnable = 0; } } } plci->internal_command = 0; break; case PERM_COD_HOOK: /* finished with Hook_Ind */ return; case PERM_COD_CALL: plci->internal_command = PERM_COD_CONN_PEND; dbug(1, dprintf("***Codec Connect_Pending, Rc = 0x%x", rc)); return; case PERM_COD_ASSIGN: dbug(1, dprintf("***Codec Assign, Rc = 0x%x", rc)); plci->internal_command = 0; if (rc != ASSIGN_OK) break; plci->internal_command = PERM_COD_CALL; sig_req(plci, CALL_REQ, 0); send_req(plci); return; case LISTEN_SIG_ASSIGN_PEND: if (rc == ASSIGN_OK) { plci->internal_command = 0; dbug(1, dprintf("ListenCheck, new SIG_ID = 0x%x", plci->Sig.Id)); add_p(plci, ESC, "\x02\x18\x00"); /* support call waiting */ sig_req(plci, INDICATE_REQ, 0); send_req(plci); } else { dbug(1, dprintf("ListenCheck failed (assignRc=0x%x)", rc)); a->listen_active--; plci_remove(plci); plci->State = IDLE; } break; case USELAW_REQ: if (global_req == ASSIGN) { if (rc == ASSIGN_OK) { sig_req(plci, LAW_REQ, 0); send_req(plci); dbug(1, dprintf("Auto-Law assigned")); } else { dbug(1, dprintf("Auto-Law assign failed")); a->automatic_law = 3; plci->internal_command = 0; a->automatic_lawPLCI = NULL; } break; } else if (req == LAW_REQ && rc == OK) { dbug(1, dprintf("Auto-Law initiated")); a->automatic_law = 2; plci->internal_command = 0; } else { dbug(1, dprintf("Auto-Law not supported")); a->automatic_law = 3; plci->internal_command = 0; sig_req(plci, REMOVE, 0); send_req(plci); a->automatic_lawPLCI = NULL; } break; } plci_remove_check(plci); } } static void data_rc(PLCI *plci, byte ch) { dword Id; DIVA_CAPI_ADAPTER *a; NCCI *ncci_ptr; DATA_B3_DESC *data; word ncci; if (plci->appl) { TransmitBufferFree(plci->appl, plci->data_sent_ptr); a = plci->adapter; ncci = a->ch_ncci[ch]; if (ncci && (a->ncci_plci[ncci] == plci->Id)) { ncci_ptr = &(a->ncci[ncci]); dbug(1, dprintf("data_out=%d, data_pending=%d", ncci_ptr->data_out, ncci_ptr->data_pending)); if (ncci_ptr->data_pending) { data = &(ncci_ptr->DBuffer[ncci_ptr->data_out]); if (!(data->Flags & 4) && a->ncci_state[ncci]) { Id = (((dword)ncci) << 16) | ((word)plci->Id << 8) | a->Id; if (plci->tel) Id |= EXT_CONTROLLER; sendf(plci->appl, _DATA_B3_R | CONFIRM, Id, data->Number, "ww", data->Handle, 0); } (ncci_ptr->data_out)++; if (ncci_ptr->data_out == MAX_DATA_B3) ncci_ptr->data_out = 0; (ncci_ptr->data_pending)--; } } } } static void data_ack(PLCI *plci, byte ch) { dword Id; DIVA_CAPI_ADAPTER *a; NCCI *ncci_ptr; word ncci; a = plci->adapter; ncci = a->ch_ncci[ch]; ncci_ptr = &(a->ncci[ncci]); if (ncci_ptr->data_ack_pending) { if (a->ncci_state[ncci] && (a->ncci_plci[ncci] == plci->Id)) { Id = (((dword)ncci) << 16) | ((word)plci->Id << 8) | a->Id; if (plci->tel) Id |= EXT_CONTROLLER; sendf(plci->appl, _DATA_B3_R | CONFIRM, Id, ncci_ptr->DataAck[ncci_ptr->data_ack_out].Number, "ww", ncci_ptr->DataAck[ncci_ptr->data_ack_out].Handle, 0); } (ncci_ptr->data_ack_out)++; if (ncci_ptr->data_ack_out == MAX_DATA_ACK) ncci_ptr->data_ack_out = 0; (ncci_ptr->data_ack_pending)--; } } static void sig_ind(PLCI *plci) { dword x_Id; dword Id; dword rId; word i; word cip; dword cip_mask; byte *ie; DIVA_CAPI_ADAPTER *a; API_PARSE saved_parms[MAX_MSG_PARMS + 1]; #define MAXPARMSIDS 31 byte *parms[MAXPARMSIDS]; byte *add_i[4]; byte *multi_fac_parms[MAX_MULTI_IE]; byte *multi_pi_parms[MAX_MULTI_IE]; byte *multi_ssext_parms[MAX_MULTI_IE]; byte *multi_CiPN_parms[MAX_MULTI_IE]; byte *multi_vswitch_parms[MAX_MULTI_IE]; byte ai_len; byte *esc_chi = ""; byte *esc_law = ""; byte *pty_cai = ""; byte *esc_cr = ""; byte *esc_profile = ""; byte facility[256]; PLCI *tplci = NULL; byte chi[] = "\x02\x18\x01"; byte voice_cai[] = "\x06\x14\x00\x00\x00\x00\x08"; byte resume_cau[] = "\x05\x05\x00\x02\x00\x00"; /* ESC_MSGTYPE must be the last but one message, a new IE has to be */ /* included before the ESC_MSGTYPE and MAXPARMSIDS has to be incremented */ /* SMSG is situated at the end because its 0 (for compatibility reasons */ /* (see Info_Mask Bit 4, first IE. then the message type) */ word parms_id[] = {MAXPARMSIDS, CPN, 0xff, DSA, OSA, BC, LLC, HLC, ESC_CAUSE, DSP, DT, CHA, UUI, CONG_RR, CONG_RNR, ESC_CHI, KEY, CHI, CAU, ESC_LAW, RDN, RDX, CONN_NR, RIN, NI, CAI, ESC_CR, CST, ESC_PROFILE, 0xff, ESC_MSGTYPE, SMSG}; /* 14 FTY repl by ESC_CHI */ /* 18 PI repl by ESC_LAW */ /* removed OAD changed to 0xff for future use, OAD is multiIE now */ word multi_fac_id[] = {1, FTY}; word multi_pi_id[] = {1, PI}; word multi_CiPN_id[] = {1, OAD}; word multi_ssext_id[] = {1, ESC_SSEXT}; word multi_vswitch_id[] = {1, ESC_VSWITCH}; byte *cau; word ncci; byte SS_Ind[] = "\x05\x02\x00\x02\x00\x00"; /* Hold_Ind struct*/ byte CF_Ind[] = "\x09\x02\x00\x06\x00\x00\x00\x00\x00\x00"; byte Interr_Err_Ind[] = "\x0a\x02\x00\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"; byte CONF_Ind[] = "\x09\x16\x00\x06\x00\x00\x00\x00\x00\x00"; byte force_mt_info = false; byte dir; dword d; word w; a = plci->adapter; Id = ((word)plci->Id << 8) | a->Id; PUT_WORD(&SS_Ind[4], 0x0000); if (plci->sig_remove_id) { plci->Sig.RNR = 2; /* discard */ dbug(1, dprintf("SIG discard while remove pending")); return; } if (plci->tel && plci->SuppState != CALL_HELD) Id |= EXT_CONTROLLER; dbug(1, dprintf("SigInd-Id=%08lx,plci=%x,tel=%x,state=0x%x,channels=%d,Discflowcl=%d", Id, plci->Id, plci->tel, plci->State, plci->channels, plci->hangup_flow_ctrl_timer)); if (plci->Sig.Ind == CALL_HOLD_ACK && plci->channels) { plci->Sig.RNR = 1; return; } if (plci->Sig.Ind == HANGUP && plci->channels) { plci->Sig.RNR = 1; plci->hangup_flow_ctrl_timer++; /* recover the network layer after timeout */ if (plci->hangup_flow_ctrl_timer == 100) { dbug(1, dprintf("Exceptional disc")); plci->Sig.RNR = 0; plci->hangup_flow_ctrl_timer = 0; for (ncci = 1; ncci < MAX_NCCI + 1; ncci++) { if (a->ncci_plci[ncci] == plci->Id) { cleanup_ncci_data(plci, ncci); if (plci->channels)plci->channels--; if (plci->appl) sendf(plci->appl, _DISCONNECT_B3_I, (((dword) ncci) << 16) | Id, 0, "ws", 0, ""); } } if (plci->appl) sendf(plci->appl, _DISCONNECT_I, Id, 0, "w", 0); plci_remove(plci); plci->State = IDLE; } return; } /* do first parse the info with no OAD in, because OAD will be converted */ /* first the multiple facility IE, then mult. progress ind. */ /* then the parameters for the info_ind + conn_ind */ IndParse(plci, multi_fac_id, multi_fac_parms, MAX_MULTI_IE); IndParse(plci, multi_pi_id, multi_pi_parms, MAX_MULTI_IE); IndParse(plci, multi_ssext_id, multi_ssext_parms, MAX_MULTI_IE); IndParse(plci, multi_vswitch_id, multi_vswitch_parms, MAX_MULTI_IE); IndParse(plci, parms_id, parms, 0); IndParse(plci, multi_CiPN_id, multi_CiPN_parms, MAX_MULTI_IE); esc_chi = parms[14]; esc_law = parms[18]; pty_cai = parms[24]; esc_cr = parms[25]; esc_profile = parms[27]; if (esc_cr[0] && plci) { if (plci->cr_enquiry && plci->appl) { plci->cr_enquiry = false; /* d = MANU_ID */ /* w = m_command */ /* b = total length */ /* b = indication type */ /* b = length of all IEs */ /* b = IE1 */ /* S = IE1 length + cont. */ /* b = IE2 */ /* S = IE2 length + cont. */ sendf(plci->appl, _MANUFACTURER_I, Id, 0, "dwbbbbSbS", _DI_MANU_ID, plci->m_command, 2 + 1 + 1 + esc_cr[0] + 1 + 1 + esc_law[0], plci->Sig.Ind, 1 + 1 + esc_cr[0] + 1 + 1 + esc_law[0], ESC, esc_cr, ESC, esc_law); } } /* create the additional info structure */ add_i[1] = parms[15]; /* KEY of additional info */ add_i[2] = parms[11]; /* UUI of additional info */ ai_len = AddInfo(add_i, multi_fac_parms, esc_chi, facility); /* the ESC_LAW indicates if u-Law or a-Law is actually used by the card */ /* indication returns by the card if requested by the function */ /* AutomaticLaw() after driver init */ if (a->automatic_law < 4) { if (esc_law[0]) { if (esc_law[2]) { dbug(0, dprintf("u-Law selected")); a->u_law = 1; } else { dbug(0, dprintf("a-Law selected")); a->u_law = 0; } a->automatic_law = 4; if (plci == a->automatic_lawPLCI) { plci->internal_command = 0; sig_req(plci, REMOVE, 0); send_req(plci); a->automatic_lawPLCI = NULL; } } if (esc_profile[0]) { dbug(1, dprintf("[%06x] CardProfile: %lx %lx %lx %lx %lx", UnMapController(a->Id), GET_DWORD(&esc_profile[6]), GET_DWORD(&esc_profile[10]), GET_DWORD(&esc_profile[14]), GET_DWORD(&esc_profile[18]), GET_DWORD(&esc_profile[46]))); a->profile.Global_Options &= 0x000000ffL; a->profile.B1_Protocols &= 0x000003ffL; a->profile.B2_Protocols &= 0x00001fdfL; a->profile.B3_Protocols &= 0x000000b7L; a->profile.Global_Options &= GET_DWORD(&esc_profile[6]) | GL_BCHANNEL_OPERATION_SUPPORTED; a->profile.B1_Protocols &= GET_DWORD(&esc_profile[10]); a->profile.B2_Protocols &= GET_DWORD(&esc_profile[14]); a->profile.B3_Protocols &= GET_DWORD(&esc_profile[18]); a->manufacturer_features = GET_DWORD(&esc_profile[46]); a->man_profile.private_options = 0; if (a->manufacturer_features & MANUFACTURER_FEATURE_ECHO_CANCELLER) { a->man_profile.private_options |= 1L << PRIVATE_ECHO_CANCELLER; a->profile.Global_Options |= GL_ECHO_CANCELLER_SUPPORTED; } if (a->manufacturer_features & MANUFACTURER_FEATURE_RTP) a->man_profile.private_options |= 1L << PRIVATE_RTP; a->man_profile.rtp_primary_payloads = GET_DWORD(&esc_profile[50]); a->man_profile.rtp_additional_payloads = GET_DWORD(&esc_profile[54]); if (a->manufacturer_features & MANUFACTURER_FEATURE_T38) a->man_profile.private_options |= 1L << PRIVATE_T38; if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_SUB_SEP_PWD) a->man_profile.private_options |= 1L << PRIVATE_FAX_SUB_SEP_PWD; if (a->manufacturer_features & MANUFACTURER_FEATURE_V18) a->man_profile.private_options |= 1L << PRIVATE_V18; if (a->manufacturer_features & MANUFACTURER_FEATURE_DTMF_TONE) a->man_profile.private_options |= 1L << PRIVATE_DTMF_TONE; if (a->manufacturer_features & MANUFACTURER_FEATURE_PIAFS) a->man_profile.private_options |= 1L << PRIVATE_PIAFS; if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS) a->man_profile.private_options |= 1L << PRIVATE_FAX_PAPER_FORMATS; if (a->manufacturer_features & MANUFACTURER_FEATURE_VOWN) a->man_profile.private_options |= 1L << PRIVATE_VOWN; if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_NONSTANDARD) a->man_profile.private_options |= 1L << PRIVATE_FAX_NONSTANDARD; } else { a->profile.Global_Options &= 0x0000007fL; a->profile.B1_Protocols &= 0x000003dfL; a->profile.B2_Protocols &= 0x00001adfL; a->profile.B3_Protocols &= 0x000000b7L; a->manufacturer_features &= MANUFACTURER_FEATURE_HARDDTMF; } if (a->manufacturer_features & (MANUFACTURER_FEATURE_HARDDTMF | MANUFACTURER_FEATURE_SOFTDTMF_SEND | MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE)) { a->profile.Global_Options |= GL_DTMF_SUPPORTED; } a->manufacturer_features &= ~MANUFACTURER_FEATURE_OOB_CHANNEL; dbug(1, dprintf("[%06x] Profile: %lx %lx %lx %lx %lx", UnMapController(a->Id), a->profile.Global_Options, a->profile.B1_Protocols, a->profile.B2_Protocols, a->profile.B3_Protocols, a->manufacturer_features)); } /* codec plci for the handset/hook state support is just an internal id */ if (plci != a->AdvCodecPLCI) { force_mt_info = SendMultiIE(plci, Id, multi_fac_parms, FTY, 0x20, 0); force_mt_info |= SendMultiIE(plci, Id, multi_pi_parms, PI, 0x210, 0); SendSSExtInd(NULL, plci, Id, multi_ssext_parms); SendInfo(plci, Id, parms, force_mt_info); VSwitchReqInd(plci, Id, multi_vswitch_parms); } /* switch the codec to the b-channel */ if (esc_chi[0] && plci && !plci->SuppState) { plci->b_channel = esc_chi[esc_chi[0]]&0x1f; mixer_set_bchannel_id_esc(plci, plci->b_channel); dbug(1, dprintf("storeChannel=0x%x", plci->b_channel)); if (plci->tel == ADV_VOICE && plci->appl) { SetVoiceChannel(a->AdvCodecPLCI, esc_chi, a); } } if (plci->appl) plci->appl->Number++; switch (plci->Sig.Ind) { /* Response to Get_Supported_Services request */ case S_SUPPORTED: dbug(1, dprintf("S_Supported")); if (!plci->appl) break; if (pty_cai[0] == 4) { PUT_DWORD(&CF_Ind[6], GET_DWORD(&pty_cai[1])); } else { PUT_DWORD(&CF_Ind[6], MASK_TERMINAL_PORTABILITY | MASK_HOLD_RETRIEVE); } PUT_WORD(&CF_Ind[1], 0); PUT_WORD(&CF_Ind[4], 0); sendf(plci->appl, _FACILITY_R | CONFIRM, Id & 0x7, plci->number, "wws", 0, 3, CF_Ind); plci_remove(plci); break; /* Supplementary Service rejected */ case S_SERVICE_REJ: dbug(1, dprintf("S_Reject=0x%x", pty_cai[5])); if (!pty_cai[0]) break; switch (pty_cai[5]) { case ECT_EXECUTE: case THREE_PTY_END: case THREE_PTY_BEGIN: if (!plci->relatedPTYPLCI) break; tplci = plci->relatedPTYPLCI; rId = ((word)tplci->Id << 8) | tplci->adapter->Id; if (tplci->tel) rId |= EXT_CONTROLLER; if (pty_cai[5] == ECT_EXECUTE) { PUT_WORD(&SS_Ind[1], S_ECT); plci->vswitchstate = 0; plci->relatedPTYPLCI->vswitchstate = 0; } else { PUT_WORD(&SS_Ind[1], pty_cai[5] + 3); } if (pty_cai[2] != 0xff) { PUT_WORD(&SS_Ind[4], 0x3600 | (word)pty_cai[2]); } else { PUT_WORD(&SS_Ind[4], 0x300E); } plci->relatedPTYPLCI = NULL; plci->ptyState = 0; sendf(tplci->appl, _FACILITY_I, rId, 0, "ws", 3, SS_Ind); break; case CALL_DEFLECTION: if (pty_cai[2] != 0xff) { PUT_WORD(&SS_Ind[4], 0x3600 | (word)pty_cai[2]); } else { PUT_WORD(&SS_Ind[4], 0x300E); } PUT_WORD(&SS_Ind[1], pty_cai[5]); for (i = 0; i < max_appl; i++) { if (application[i].CDEnable) { if (application[i].Id) sendf(&application[i], _FACILITY_I, Id, 0, "ws", 3, SS_Ind); application[i].CDEnable = false; } } break; case DEACTIVATION_DIVERSION: case ACTIVATION_DIVERSION: case DIVERSION_INTERROGATE_CFU: case DIVERSION_INTERROGATE_CFB: case DIVERSION_INTERROGATE_CFNR: case DIVERSION_INTERROGATE_NUM: case CCBS_REQUEST: case CCBS_DEACTIVATE: case CCBS_INTERROGATE: if (!plci->appl) break; if (pty_cai[2] != 0xff) { PUT_WORD(&Interr_Err_Ind[4], 0x3600 | (word)pty_cai[2]); } else { PUT_WORD(&Interr_Err_Ind[4], 0x300E); } switch (pty_cai[5]) { case DEACTIVATION_DIVERSION: dbug(1, dprintf("Deact_Div")); Interr_Err_Ind[0] = 0x9; Interr_Err_Ind[3] = 0x6; PUT_WORD(&Interr_Err_Ind[1], S_CALL_FORWARDING_STOP); break; case ACTIVATION_DIVERSION: dbug(1, dprintf("Act_Div")); Interr_Err_Ind[0] = 0x9; Interr_Err_Ind[3] = 0x6; PUT_WORD(&Interr_Err_Ind[1], S_CALL_FORWARDING_START); break; case DIVERSION_INTERROGATE_CFU: case DIVERSION_INTERROGATE_CFB: case DIVERSION_INTERROGATE_CFNR: dbug(1, dprintf("Interr_Div")); Interr_Err_Ind[0] = 0xa; Interr_Err_Ind[3] = 0x7; PUT_WORD(&Interr_Err_Ind[1], S_INTERROGATE_DIVERSION); break; case DIVERSION_INTERROGATE_NUM: dbug(1, dprintf("Interr_Num")); Interr_Err_Ind[0] = 0xa; Interr_Err_Ind[3] = 0x7; PUT_WORD(&Interr_Err_Ind[1], S_INTERROGATE_NUMBERS); break; case CCBS_REQUEST: dbug(1, dprintf("CCBS Request")); Interr_Err_Ind[0] = 0xd; Interr_Err_Ind[3] = 0xa; PUT_WORD(&Interr_Err_Ind[1], S_CCBS_REQUEST); break; case CCBS_DEACTIVATE: dbug(1, dprintf("CCBS Deactivate")); Interr_Err_Ind[0] = 0x9; Interr_Err_Ind[3] = 0x6; PUT_WORD(&Interr_Err_Ind[1], S_CCBS_DEACTIVATE); break; case CCBS_INTERROGATE: dbug(1, dprintf("CCBS Interrogate")); Interr_Err_Ind[0] = 0xb; Interr_Err_Ind[3] = 0x8; PUT_WORD(&Interr_Err_Ind[1], S_CCBS_INTERROGATE); break; } PUT_DWORD(&Interr_Err_Ind[6], plci->appl->S_Handle); sendf(plci->appl, _FACILITY_I, Id & 0x7, 0, "ws", 3, Interr_Err_Ind); plci_remove(plci); break; case ACTIVATION_MWI: case DEACTIVATION_MWI: if (pty_cai[5] == ACTIVATION_MWI) { PUT_WORD(&SS_Ind[1], S_MWI_ACTIVATE); } else PUT_WORD(&SS_Ind[1], S_MWI_DEACTIVATE); if (pty_cai[2] != 0xff) { PUT_WORD(&SS_Ind[4], 0x3600 | (word)pty_cai[2]); } else { PUT_WORD(&SS_Ind[4], 0x300E); } if (plci->cr_enquiry) { sendf(plci->appl, _FACILITY_I, Id & 0xf, 0, "ws", 3, SS_Ind); plci_remove(plci); } else { sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, SS_Ind); } break; case CONF_ADD: /* ERROR */ case CONF_BEGIN: case CONF_DROP: case CONF_ISOLATE: case CONF_REATTACH: CONF_Ind[0] = 9; CONF_Ind[3] = 6; switch (pty_cai[5]) { case CONF_BEGIN: PUT_WORD(&CONF_Ind[1], S_CONF_BEGIN); plci->ptyState = 0; break; case CONF_DROP: CONF_Ind[0] = 5; CONF_Ind[3] = 2; PUT_WORD(&CONF_Ind[1], S_CONF_DROP); plci->ptyState = CONNECTED; break; case CONF_ISOLATE: CONF_Ind[0] = 5; CONF_Ind[3] = 2; PUT_WORD(&CONF_Ind[1], S_CONF_ISOLATE); plci->ptyState = CONNECTED; break; case CONF_REATTACH: CONF_Ind[0] = 5; CONF_Ind[3] = 2; PUT_WORD(&CONF_Ind[1], S_CONF_REATTACH); plci->ptyState = CONNECTED; break; case CONF_ADD: PUT_WORD(&CONF_Ind[1], S_CONF_ADD); plci->relatedPTYPLCI = NULL; tplci = plci->relatedPTYPLCI; if (tplci) tplci->ptyState = CONNECTED; plci->ptyState = CONNECTED; break; } if (pty_cai[2] != 0xff) { PUT_WORD(&CONF_Ind[4], 0x3600 | (word)pty_cai[2]); } else { PUT_WORD(&CONF_Ind[4], 0x3303); /* Time-out: network did not respond within the required time */ } PUT_DWORD(&CONF_Ind[6], 0x0); sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, CONF_Ind); break; } break; /* Supplementary Service indicates success */ case S_SERVICE: dbug(1, dprintf("Service_Ind")); PUT_WORD(&CF_Ind[4], 0); switch (pty_cai[5]) { case THREE_PTY_END: case THREE_PTY_BEGIN: case ECT_EXECUTE: if (!plci->relatedPTYPLCI) break; tplci = plci->relatedPTYPLCI; rId = ((word)tplci->Id << 8) | tplci->adapter->Id; if (tplci->tel) rId |= EXT_CONTROLLER; if (pty_cai[5] == ECT_EXECUTE) { PUT_WORD(&SS_Ind[1], S_ECT); if (plci->vswitchstate != 3) { plci->ptyState = IDLE; plci->relatedPTYPLCI = NULL; plci->ptyState = 0; } dbug(1, dprintf("ECT OK")); sendf(tplci->appl, _FACILITY_I, rId, 0, "ws", 3, SS_Ind); } else { switch (plci->ptyState) { case S_3PTY_BEGIN: plci->ptyState = CONNECTED; dbug(1, dprintf("3PTY ON")); break; case S_3PTY_END: plci->ptyState = IDLE; plci->relatedPTYPLCI = NULL; plci->ptyState = 0; dbug(1, dprintf("3PTY OFF")); break; } PUT_WORD(&SS_Ind[1], pty_cai[5] + 3); sendf(tplci->appl, _FACILITY_I, rId, 0, "ws", 3, SS_Ind); } break; case CALL_DEFLECTION: PUT_WORD(&SS_Ind[1], pty_cai[5]); for (i = 0; i < max_appl; i++) { if (application[i].CDEnable) { if (application[i].Id) sendf(&application[i], _FACILITY_I, Id, 0, "ws", 3, SS_Ind); application[i].CDEnable = false; } } break; case DEACTIVATION_DIVERSION: case ACTIVATION_DIVERSION: if (!plci->appl) break; PUT_WORD(&CF_Ind[1], pty_cai[5] + 2); PUT_DWORD(&CF_Ind[6], plci->appl->S_Handle); sendf(plci->appl, _FACILITY_I, Id & 0x7, 0, "ws", 3, CF_Ind); plci_remove(plci); break; case DIVERSION_INTERROGATE_CFU: case DIVERSION_INTERROGATE_CFB: case DIVERSION_INTERROGATE_CFNR: case DIVERSION_INTERROGATE_NUM: case CCBS_REQUEST: case CCBS_DEACTIVATE: case CCBS_INTERROGATE: if (!plci->appl) break; switch (pty_cai[5]) { case DIVERSION_INTERROGATE_CFU: case DIVERSION_INTERROGATE_CFB: case DIVERSION_INTERROGATE_CFNR: dbug(1, dprintf("Interr_Div")); PUT_WORD(&pty_cai[1], S_INTERROGATE_DIVERSION); pty_cai[3] = pty_cai[0] - 3; /* Supplementary Service-specific parameter len */ break; case DIVERSION_INTERROGATE_NUM: dbug(1, dprintf("Interr_Num")); PUT_WORD(&pty_cai[1], S_INTERROGATE_NUMBERS); pty_cai[3] = pty_cai[0] - 3; /* Supplementary Service-specific parameter len */ break; case CCBS_REQUEST: dbug(1, dprintf("CCBS Request")); PUT_WORD(&pty_cai[1], S_CCBS_REQUEST); pty_cai[3] = pty_cai[0] - 3; /* Supplementary Service-specific parameter len */ break; case CCBS_DEACTIVATE: dbug(1, dprintf("CCBS Deactivate")); PUT_WORD(&pty_cai[1], S_CCBS_DEACTIVATE); pty_cai[3] = pty_cai[0] - 3; /* Supplementary Service-specific parameter len */ break; case CCBS_INTERROGATE: dbug(1, dprintf("CCBS Interrogate")); PUT_WORD(&pty_cai[1], S_CCBS_INTERROGATE); pty_cai[3] = pty_cai[0] - 3; /* Supplementary Service-specific parameter len */ break; } PUT_WORD(&pty_cai[4], 0); /* Supplementary Service Reason */ PUT_DWORD(&pty_cai[6], plci->appl->S_Handle); sendf(plci->appl, _FACILITY_I, Id & 0x7, 0, "wS", 3, pty_cai); plci_remove(plci); break; case ACTIVATION_MWI: case DEACTIVATION_MWI: if (pty_cai[5] == ACTIVATION_MWI) { PUT_WORD(&SS_Ind[1], S_MWI_ACTIVATE); } else PUT_WORD(&SS_Ind[1], S_MWI_DEACTIVATE); if (plci->cr_enquiry) { sendf(plci->appl, _FACILITY_I, Id & 0xf, 0, "ws", 3, SS_Ind); plci_remove(plci); } else { sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, SS_Ind); } break; case MWI_INDICATION: if (pty_cai[0] >= 0x12) { PUT_WORD(&pty_cai[3], S_MWI_INDICATE); pty_cai[2] = pty_cai[0] - 2; /* len Parameter */ pty_cai[5] = pty_cai[0] - 5; /* Supplementary Service-specific parameter len */ if (plci->appl && (a->Notification_Mask[plci->appl->Id - 1] & SMASK_MWI)) { if (plci->internal_command == GET_MWI_STATE) /* result on Message Waiting Listen */ { sendf(plci->appl, _FACILITY_I, Id & 0xf, 0, "wS", 3, &pty_cai[2]); plci_remove(plci); return; } else sendf(plci->appl, _FACILITY_I, Id, 0, "wS", 3, &pty_cai[2]); pty_cai[0] = 0; } else { for (i = 0; i < max_appl; i++) { if (a->Notification_Mask[i]&SMASK_MWI) { sendf(&application[i], _FACILITY_I, Id & 0x7, 0, "wS", 3, &pty_cai[2]); pty_cai[0] = 0; } } } if (!pty_cai[0]) { /* acknowledge */ facility[2] = 0; /* returncode */ } else facility[2] = 0xff; } else { /* reject */ facility[2] = 0xff; /* returncode */ } facility[0] = 2; facility[1] = MWI_RESPONSE; /* Function */ add_p(plci, CAI, facility); add_p(plci, ESC, multi_ssext_parms[0]); /* remembered parameter -> only one possible */ sig_req(plci, S_SERVICE, 0); send_req(plci); plci->command = 0; next_internal_command(Id, plci); break; case CONF_ADD: /* OK */ case CONF_BEGIN: case CONF_DROP: case CONF_ISOLATE: case CONF_REATTACH: case CONF_PARTYDISC: CONF_Ind[0] = 9; CONF_Ind[3] = 6; switch (pty_cai[5]) { case CONF_BEGIN: PUT_WORD(&CONF_Ind[1], S_CONF_BEGIN); if (pty_cai[0] == 6) { d = pty_cai[6]; PUT_DWORD(&CONF_Ind[6], d); /* PartyID */ } else { PUT_DWORD(&CONF_Ind[6], 0x0); } break; case CONF_ISOLATE: PUT_WORD(&CONF_Ind[1], S_CONF_ISOLATE); CONF_Ind[0] = 5; CONF_Ind[3] = 2; break; case CONF_REATTACH: PUT_WORD(&CONF_Ind[1], S_CONF_REATTACH); CONF_Ind[0] = 5; CONF_Ind[3] = 2; break; case CONF_DROP: PUT_WORD(&CONF_Ind[1], S_CONF_DROP); CONF_Ind[0] = 5; CONF_Ind[3] = 2; break; case CONF_ADD: PUT_WORD(&CONF_Ind[1], S_CONF_ADD); d = pty_cai[6]; PUT_DWORD(&CONF_Ind[6], d); /* PartyID */ tplci = plci->relatedPTYPLCI; if (tplci) tplci->ptyState = CONNECTED; break; case CONF_PARTYDISC: CONF_Ind[0] = 7; CONF_Ind[3] = 4; PUT_WORD(&CONF_Ind[1], S_CONF_PARTYDISC); d = pty_cai[6]; PUT_DWORD(&CONF_Ind[4], d); /* PartyID */ break; } plci->ptyState = CONNECTED; sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, CONF_Ind); break; case CCBS_INFO_RETAIN: case CCBS_ERASECALLLINKAGEID: case CCBS_STOP_ALERTING: CONF_Ind[0] = 5; CONF_Ind[3] = 2; switch (pty_cai[5]) { case CCBS_INFO_RETAIN: PUT_WORD(&CONF_Ind[1], S_CCBS_INFO_RETAIN); break; case CCBS_STOP_ALERTING: PUT_WORD(&CONF_Ind[1], S_CCBS_STOP_ALERTING); break; case CCBS_ERASECALLLINKAGEID: PUT_WORD(&CONF_Ind[1], S_CCBS_ERASECALLLINKAGEID); CONF_Ind[0] = 7; CONF_Ind[3] = 4; CONF_Ind[6] = 0; CONF_Ind[7] = 0; break; } w = pty_cai[6]; PUT_WORD(&CONF_Ind[4], w); /* PartyID */ if (plci->appl && (a->Notification_Mask[plci->appl->Id - 1] & SMASK_CCBS)) { sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, CONF_Ind); } else { for (i = 0; i < max_appl; i++) if (a->Notification_Mask[i] & SMASK_CCBS) sendf(&application[i], _FACILITY_I, Id & 0x7, 0, "ws", 3, CONF_Ind); } break; } break; case CALL_HOLD_REJ: cau = parms[7]; if (cau) { i = _L3_CAUSE | cau[2]; if (cau[2] == 0) i = 0x3603; } else { i = 0x3603; } PUT_WORD(&SS_Ind[1], S_HOLD); PUT_WORD(&SS_Ind[4], i); if (plci->SuppState == HOLD_REQUEST) { plci->SuppState = IDLE; sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, SS_Ind); } break; case CALL_HOLD_ACK: if (plci->SuppState == HOLD_REQUEST) { plci->SuppState = CALL_HELD; CodecIdCheck(a, plci); start_internal_command(Id, plci, hold_save_command); } break; case CALL_RETRIEVE_REJ: cau = parms[7]; if (cau) { i = _L3_CAUSE | cau[2]; if (cau[2] == 0) i = 0x3603; } else { i = 0x3603; } PUT_WORD(&SS_Ind[1], S_RETRIEVE); PUT_WORD(&SS_Ind[4], i); if (plci->SuppState == RETRIEVE_REQUEST) { plci->SuppState = CALL_HELD; CodecIdCheck(a, plci); sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, SS_Ind); } break; case CALL_RETRIEVE_ACK: PUT_WORD(&SS_Ind[1], S_RETRIEVE); if (plci->SuppState == RETRIEVE_REQUEST) { plci->SuppState = IDLE; plci->call_dir |= CALL_DIR_FORCE_OUTG_NL; plci->b_channel = esc_chi[esc_chi[0]]&0x1f; if (plci->tel) { mixer_set_bchannel_id_esc(plci, plci->b_channel); dbug(1, dprintf("RetrChannel=0x%x", plci->b_channel)); SetVoiceChannel(a->AdvCodecPLCI, esc_chi, a); if (plci->B2_prot == B2_TRANSPARENT && plci->B3_prot == B3_TRANSPARENT) { dbug(1, dprintf("Get B-ch")); start_internal_command(Id, plci, retrieve_restore_command); } else sendf(plci->appl, _FACILITY_I, Id, 0, "ws", 3, SS_Ind); } else start_internal_command(Id, plci, retrieve_restore_command); } break; case INDICATE_IND: if (plci->State != LISTENING) { sig_req(plci, HANGUP, 0); send_req(plci); break; } cip = find_cip(a, parms[4], parms[6]); cip_mask = 1L << cip; dbug(1, dprintf("cip=%d,cip_mask=%lx", cip, cip_mask)); clear_c_ind_mask(plci); if (!remove_started && !a->adapter_disabled) { set_c_ind_mask_bit(plci, MAX_APPL); group_optimization(a, plci); for (i = 0; i < max_appl; i++) { if (application[i].Id && (a->CIP_Mask[i] & 1 || a->CIP_Mask[i] & cip_mask) && CPN_filter_ok(parms[0], a, i) && test_group_ind_mask_bit(plci, i)) { dbug(1, dprintf("storedcip_mask[%d]=0x%lx", i, a->CIP_Mask[i])); set_c_ind_mask_bit(plci, i); dump_c_ind_mask(plci); plci->State = INC_CON_PENDING; plci->call_dir = (plci->call_dir & ~(CALL_DIR_OUT | CALL_DIR_ORIGINATE)) | CALL_DIR_IN | CALL_DIR_ANSWER; if (esc_chi[0]) { plci->b_channel = esc_chi[esc_chi[0]] & 0x1f; mixer_set_bchannel_id_esc(plci, plci->b_channel); } /* if a listen on the ext controller is done, check if hook states */ /* are supported or if just a on board codec must be activated */ if (a->codec_listen[i] && !a->AdvSignalPLCI) { if (a->profile.Global_Options & HANDSET) plci->tel = ADV_VOICE; else if (a->profile.Global_Options & ON_BOARD_CODEC) plci->tel = CODEC; if (plci->tel) Id |= EXT_CONTROLLER; a->codec_listen[i] = plci; } sendf(&application[i], _CONNECT_I, Id, 0, "wSSSSSSSbSSSSS", cip, /* CIP */ parms[0], /* CalledPartyNumber */ multi_CiPN_parms[0], /* CallingPartyNumber */ parms[2], /* CalledPartySubad */ parms[3], /* CallingPartySubad */ parms[4], /* BearerCapability */ parms[5], /* LowLC */ parms[6], /* HighLC */ ai_len, /* nested struct add_i */ add_i[0], /* B channel info */ add_i[1], /* keypad facility */ add_i[2], /* user user data */ add_i[3], /* nested facility */ multi_CiPN_parms[1] /* second CiPN(SCR) */ ); SendSSExtInd(&application[i], plci, Id, multi_ssext_parms); SendSetupInfo(&application[i], plci, Id, parms, SendMultiIE(plci, Id, multi_pi_parms, PI, 0x210, true)); } } clear_c_ind_mask_bit(plci, MAX_APPL); dump_c_ind_mask(plci); } if (c_ind_mask_empty(plci)) { sig_req(plci, HANGUP, 0); send_req(plci); plci->State = IDLE; } plci->notifiedcall = 0; a->listen_active--; listen_check(a); break; case CALL_PEND_NOTIFY: plci->notifiedcall = 1; listen_check(a); break; case CALL_IND: case CALL_CON: if (plci->State == ADVANCED_VOICE_SIG || plci->State == ADVANCED_VOICE_NOSIG) { if (plci->internal_command == PERM_COD_CONN_PEND) { if (plci->State == ADVANCED_VOICE_NOSIG) { dbug(1, dprintf("***Codec OK")); if (a->AdvSignalPLCI) { tplci = a->AdvSignalPLCI; if (tplci->spoofed_msg) { dbug(1, dprintf("***Spoofed Msg(0x%x)", tplci->spoofed_msg)); tplci->command = 0; tplci->internal_command = 0; x_Id = ((word)tplci->Id << 8) | tplci->adapter->Id | 0x80; switch (tplci->spoofed_msg) { case CALL_RES: tplci->command = _CONNECT_I | RESPONSE; api_load_msg(&tplci->saved_msg, saved_parms); add_b1(tplci, &saved_parms[1], 0, tplci->B1_facilities); if (tplci->adapter->Info_Mask[tplci->appl->Id - 1] & 0x200) { /* early B3 connect (CIP mask bit 9) no release after a disc */ add_p(tplci, LLI, "\x01\x01"); } add_s(tplci, CONN_NR, &saved_parms[2]); add_s(tplci, LLC, &saved_parms[4]); add_ai(tplci, &saved_parms[5]); tplci->State = INC_CON_ACCEPT; sig_req(tplci, CALL_RES, 0); send_req(tplci); break; case AWAITING_SELECT_B: dbug(1, dprintf("Select_B continue")); start_internal_command(x_Id, tplci, select_b_command); break; case AWAITING_MANUF_CON: /* Get_Plci per Manufacturer_Req to ext controller */ if (!tplci->Sig.Id) { dbug(1, dprintf("No SigID!")); sendf(tplci->appl, _MANUFACTURER_R | CONFIRM, x_Id, tplci->number, "dww", _DI_MANU_ID, _MANUFACTURER_R, _OUT_OF_PLCI); plci_remove(tplci); break; } tplci->command = _MANUFACTURER_R; api_load_msg(&tplci->saved_msg, saved_parms); dir = saved_parms[2].info[0]; if (dir == 1) { sig_req(tplci, CALL_REQ, 0); } else if (!dir) { sig_req(tplci, LISTEN_REQ, 0); } send_req(tplci); sendf(tplci->appl, _MANUFACTURER_R | CONFIRM, x_Id, tplci->number, "dww", _DI_MANU_ID, _MANUFACTURER_R, 0); break; case (CALL_REQ | AWAITING_MANUF_CON): sig_req(tplci, CALL_REQ, 0); send_req(tplci); break; case CALL_REQ: if (!tplci->Sig.Id) { dbug(1, dprintf("No SigID!")); sendf(tplci->appl, _CONNECT_R | CONFIRM, tplci->adapter->Id, 0, "w", _OUT_OF_PLCI); plci_remove(tplci); break; } tplci->command = _CONNECT_R; api_load_msg(&tplci->saved_msg, saved_parms); add_s(tplci, CPN, &saved_parms[1]); add_s(tplci, DSA, &saved_parms[3]); add_ai(tplci, &saved_parms[9]); sig_req(tplci, CALL_REQ, 0); send_req(tplci); break; case CALL_RETRIEVE: tplci->command = C_RETRIEVE_REQ; sig_req(tplci, CALL_RETRIEVE, 0); send_req(tplci); break; } tplci->spoofed_msg = 0; if (tplci->internal_command == 0) next_internal_command(x_Id, tplci); } } next_internal_command(Id, plci); break; } dbug(1, dprintf("***Codec Hook Init Req")); plci->internal_command = PERM_COD_HOOK; add_p(plci, FTY, "\x01\x09"); /* Get Hook State*/ sig_req(plci, TEL_CTRL, 0); send_req(plci); } } else if (plci->command != _MANUFACTURER_R /* old style permanent connect */ && plci->State != INC_ACT_PENDING) { mixer_set_bchannel_id_esc(plci, plci->b_channel); if (plci->tel == ADV_VOICE && plci->SuppState == IDLE) /* with permanent codec switch on immediately */ { chi[2] = plci->b_channel; SetVoiceChannel(a->AdvCodecPLCI, chi, a); } sendf(plci->appl, _CONNECT_ACTIVE_I, Id, 0, "Sss", parms[21], "", ""); plci->State = INC_ACT_PENDING; } break; case TEL_CTRL: ie = multi_fac_parms[0]; /* inspect the facility hook indications */ if (plci->State == ADVANCED_VOICE_SIG && ie[0]) { switch (ie[1] & 0x91) { case 0x80: /* hook off */ case 0x81: if (plci->internal_command == PERM_COD_HOOK) { dbug(1, dprintf("init:hook_off")); plci->hook_state = ie[1]; next_internal_command(Id, plci); break; } else /* ignore doubled hook indications */ { if (((plci->hook_state) & 0xf0) == 0x80) { dbug(1, dprintf("ignore hook")); break; } plci->hook_state = ie[1]&0x91; } /* check for incoming call pending */ /* and signal '+'.Appl must decide */ /* with connect_res if call must */ /* accepted or not */ for (i = 0, tplci = NULL; i < max_appl; i++) { if (a->codec_listen[i] && (a->codec_listen[i]->State == INC_CON_PENDING || a->codec_listen[i]->State == INC_CON_ALERT)) { tplci = a->codec_listen[i]; tplci->appl = &application[i]; } } /* no incoming call, do outgoing call */ /* and signal '+' if outg. setup */ if (!a->AdvSignalPLCI && !tplci) { if ((i = get_plci(a))) { a->AdvSignalPLCI = &a->plci[i - 1]; tplci = a->AdvSignalPLCI; tplci->tel = ADV_VOICE; PUT_WORD(&voice_cai[5], a->AdvSignalAppl->MaxDataLength); if (a->Info_Mask[a->AdvSignalAppl->Id - 1] & 0x200) { /* early B3 connect (CIP mask bit 9) no release after a disc */ add_p(tplci, LLI, "\x01\x01"); } add_p(tplci, CAI, voice_cai); add_p(tplci, OAD, a->TelOAD); add_p(tplci, OSA, a->TelOSA); add_p(tplci, SHIFT | 6, NULL); add_p(tplci, SIN, "\x02\x01\x00"); add_p(tplci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(tplci, ASSIGN, DSIG_ID); a->AdvSignalPLCI->internal_command = HOOK_OFF_REQ; a->AdvSignalPLCI->command = 0; tplci->appl = a->AdvSignalAppl; tplci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE; send_req(tplci); } } if (!tplci) break; Id = ((word)tplci->Id << 8) | a->Id; Id |= EXT_CONTROLLER; sendf(tplci->appl, _FACILITY_I, Id, 0, "ws", (word)0, "\x01+"); break; case 0x90: /* hook on */ case 0x91: if (plci->internal_command == PERM_COD_HOOK) { dbug(1, dprintf("init:hook_on")); plci->hook_state = ie[1] & 0x91; next_internal_command(Id, plci); break; } else /* ignore doubled hook indications */ { if (((plci->hook_state) & 0xf0) == 0x90) break; plci->hook_state = ie[1] & 0x91; } /* hangup the adv. voice call and signal '-' to the appl */ if (a->AdvSignalPLCI) { Id = ((word)a->AdvSignalPLCI->Id << 8) | a->Id; if (plci->tel) Id |= EXT_CONTROLLER; sendf(a->AdvSignalAppl, _FACILITY_I, Id, 0, "ws", (word)0, "\x01-"); a->AdvSignalPLCI->internal_command = HOOK_ON_REQ; a->AdvSignalPLCI->command = 0; sig_req(a->AdvSignalPLCI, HANGUP, 0); send_req(a->AdvSignalPLCI); } break; } } break; case RESUME: clear_c_ind_mask_bit(plci, (word)(plci->appl->Id - 1)); PUT_WORD(&resume_cau[4], GOOD); sendf(plci->appl, _FACILITY_I, Id, 0, "ws", (word)3, resume_cau); break; case SUSPEND: clear_c_ind_mask(plci); if (plci->NL.Id && !plci->nl_remove_id) { mixer_remove(plci); nl_req_ncci(plci, REMOVE, 0); } if (!plci->sig_remove_id) { plci->internal_command = 0; sig_req(plci, REMOVE, 0); } send_req(plci); if (!plci->channels) { sendf(plci->appl, _FACILITY_I, Id, 0, "ws", (word)3, "\x05\x04\x00\x02\x00\x00"); sendf(plci->appl, _DISCONNECT_I, Id, 0, "w", 0); } break; case SUSPEND_REJ: break; case HANGUP: plci->hangup_flow_ctrl_timer = 0; if (plci->manufacturer && plci->State == LOCAL_CONNECT) break; cau = parms[7]; if (cau) { i = _L3_CAUSE | cau[2]; if (cau[2] == 0) i = 0; else if (cau[2] == 8) i = _L1_ERROR; else if (cau[2] == 9 || cau[2] == 10) i = _L2_ERROR; else if (cau[2] == 5) i = _CAPI_GUARD_ERROR; } else { i = _L3_ERROR; } if (plci->State == INC_CON_PENDING || plci->State == INC_CON_ALERT) { for (i = 0; i < max_appl; i++) { if (test_c_ind_mask_bit(plci, i)) sendf(&application[i], _DISCONNECT_I, Id, 0, "w", 0); } } else { clear_c_ind_mask(plci); } if (!plci->appl) { if (plci->State == LISTENING) { plci->notifiedcall = 0; a->listen_active--; } plci->State = INC_DIS_PENDING; if (c_ind_mask_empty(plci)) { plci->State = IDLE; if (plci->NL.Id && !plci->nl_remove_id) { mixer_remove(plci); nl_req_ncci(plci, REMOVE, 0); } if (!plci->sig_remove_id) { plci->internal_command = 0; sig_req(plci, REMOVE, 0); } send_req(plci); } } else { /* collision of DISCONNECT or CONNECT_RES with HANGUP can */ /* result in a second HANGUP! Don't generate another */ /* DISCONNECT */ if (plci->State != IDLE && plci->State != INC_DIS_PENDING) { if (plci->State == RESUMING) { PUT_WORD(&resume_cau[4], i); sendf(plci->appl, _FACILITY_I, Id, 0, "ws", (word)3, resume_cau); } plci->State = INC_DIS_PENDING; sendf(plci->appl, _DISCONNECT_I, Id, 0, "w", i); } } break; case SSEXT_IND: SendSSExtInd(NULL, plci, Id, multi_ssext_parms); break; case VSWITCH_REQ: VSwitchReqInd(plci, Id, multi_vswitch_parms); break; case VSWITCH_IND: if (plci->relatedPTYPLCI && plci->vswitchstate == 3 && plci->relatedPTYPLCI->vswitchstate == 3 && parms[MAXPARMSIDS - 1][0]) { add_p(plci->relatedPTYPLCI, SMSG, parms[MAXPARMSIDS - 1]); sig_req(plci->relatedPTYPLCI, VSWITCH_REQ, 0); send_req(plci->relatedPTYPLCI); } else VSwitchReqInd(plci, Id, multi_vswitch_parms); break; } } static void SendSetupInfo(APPL *appl, PLCI *plci, dword Id, byte **parms, byte Info_Sent_Flag) { word i; byte *ie; word Info_Number; byte *Info_Element; word Info_Mask = 0; dbug(1, dprintf("SetupInfo")); for (i = 0; i < MAXPARMSIDS; i++) { ie = parms[i]; Info_Number = 0; Info_Element = ie; if (ie[0]) { switch (i) { case 0: dbug(1, dprintf("CPN ")); Info_Number = 0x0070; Info_Mask = 0x80; Info_Sent_Flag = true; break; case 8: /* display */ dbug(1, dprintf("display(%d)", i)); Info_Number = 0x0028; Info_Mask = 0x04; Info_Sent_Flag = true; break; case 16: /* Channel Id */ dbug(1, dprintf("CHI")); Info_Number = 0x0018; Info_Mask = 0x100; Info_Sent_Flag = true; mixer_set_bchannel_id(plci, Info_Element); break; case 19: /* Redirected Number */ dbug(1, dprintf("RDN")); Info_Number = 0x0074; Info_Mask = 0x400; Info_Sent_Flag = true; break; case 20: /* Redirected Number extended */ dbug(1, dprintf("RDX")); Info_Number = 0x0073; Info_Mask = 0x400; Info_Sent_Flag = true; break; case 22: /* Redirecing Number */ dbug(1, dprintf("RIN")); Info_Number = 0x0076; Info_Mask = 0x400; Info_Sent_Flag = true; break; default: Info_Number = 0; break; } } if (i == MAXPARMSIDS - 2) { /* to indicate the message type "Setup" */ Info_Number = 0x8000 | 5; Info_Mask = 0x10; Info_Element = ""; } if (Info_Sent_Flag && Info_Number) { if (plci->adapter->Info_Mask[appl->Id - 1] & Info_Mask) { sendf(appl, _INFO_I, Id, 0, "wS", Info_Number, Info_Element); } } } } static void SendInfo(PLCI *plci, dword Id, byte **parms, byte iesent) { word i; word j; word k; byte *ie; word Info_Number; byte *Info_Element; word Info_Mask = 0; static byte charges[5] = {4, 0, 0, 0, 0}; static byte cause[] = {0x02, 0x80, 0x00}; APPL *appl; dbug(1, dprintf("InfoParse ")); if ( !plci->appl && !plci->State && plci->Sig.Ind != NCR_FACILITY ) { dbug(1, dprintf("NoParse ")); return; } cause[2] = 0; for (i = 0; i < MAXPARMSIDS; i++) { ie = parms[i]; Info_Number = 0; Info_Element = ie; if (ie[0]) { switch (i) { case 0: dbug(1, dprintf("CPN ")); Info_Number = 0x0070; Info_Mask = 0x80; break; case 7: /* ESC_CAU */ dbug(1, dprintf("cau(0x%x)", ie[2])); Info_Number = 0x0008; Info_Mask = 0x00; cause[2] = ie[2]; Info_Element = NULL; break; case 8: /* display */ dbug(1, dprintf("display(%d)", i)); Info_Number = 0x0028; Info_Mask = 0x04; break; case 9: /* Date display */ dbug(1, dprintf("date(%d)", i)); Info_Number = 0x0029; Info_Mask = 0x02; break; case 10: /* charges */ for (j = 0; j < 4; j++) charges[1 + j] = 0; for (j = 0; j < ie[0] && !(ie[1 + j] & 0x80); j++); for (k = 1, j++; j < ie[0] && k <= 4; j++, k++) charges[k] = ie[1 + j]; Info_Number = 0x4000; Info_Mask = 0x40; Info_Element = charges; break; case 11: /* user user info */ dbug(1, dprintf("uui")); Info_Number = 0x007E; Info_Mask = 0x08; break; case 12: /* congestion receiver ready */ dbug(1, dprintf("clRDY")); Info_Number = 0x00B0; Info_Mask = 0x08; Info_Element = ""; break; case 13: /* congestion receiver not ready */ dbug(1, dprintf("clNRDY")); Info_Number = 0x00BF; Info_Mask = 0x08; Info_Element = ""; break; case 15: /* Keypad Facility */ dbug(1, dprintf("KEY")); Info_Number = 0x002C; Info_Mask = 0x20; break; case 16: /* Channel Id */ dbug(1, dprintf("CHI")); Info_Number = 0x0018; Info_Mask = 0x100; mixer_set_bchannel_id(plci, Info_Element); break; case 17: /* if no 1tr6 cause, send full cause, else esc_cause */ dbug(1, dprintf("q9cau(0x%x)", ie[2])); if (!cause[2] || cause[2] < 0x80) break; /* eg. layer 1 error */ Info_Number = 0x0008; Info_Mask = 0x01; if (cause[2] != ie[2]) Info_Element = cause; break; case 19: /* Redirected Number */ dbug(1, dprintf("RDN")); Info_Number = 0x0074; Info_Mask = 0x400; break; case 22: /* Redirecing Number */ dbug(1, dprintf("RIN")); Info_Number = 0x0076; Info_Mask = 0x400; break; case 23: /* Notification Indicator */ dbug(1, dprintf("NI")); Info_Number = (word)NI; Info_Mask = 0x210; break; case 26: /* Call State */ dbug(1, dprintf("CST")); Info_Number = (word)CST; Info_Mask = 0x01; /* do with cause i.e. for now */ break; case MAXPARMSIDS - 2: /* Escape Message Type, must be the last indication */ dbug(1, dprintf("ESC/MT[0x%x]", ie[3])); Info_Number = 0x8000 | ie[3]; if (iesent) Info_Mask = 0xffff; else Info_Mask = 0x10; Info_Element = ""; break; default: Info_Number = 0; Info_Mask = 0; Info_Element = ""; break; } } if (plci->Sig.Ind == NCR_FACILITY) /* check controller broadcast */ { for (j = 0; j < max_appl; j++) { appl = &application[j]; if (Info_Number && appl->Id && plci->adapter->Info_Mask[appl->Id - 1] & Info_Mask) { dbug(1, dprintf("NCR_Ind")); iesent = true; sendf(&application[j], _INFO_I, Id & 0x0f, 0, "wS", Info_Number, Info_Element); } } } else if (!plci->appl) { /* overlap receiving broadcast */ if (Info_Number == CPN || Info_Number == KEY || Info_Number == NI || Info_Number == DSP || Info_Number == UUI) { for (j = 0; j < max_appl; j++) { if (test_c_ind_mask_bit(plci, j)) { dbug(1, dprintf("Ovl_Ind")); iesent = true; sendf(&application[j], _INFO_I, Id, 0, "wS", Info_Number, Info_Element); } } } } /* all other signalling states */ else if (Info_Number && plci->adapter->Info_Mask[plci->appl->Id - 1] & Info_Mask) { dbug(1, dprintf("Std_Ind")); iesent = true; sendf(plci->appl, _INFO_I, Id, 0, "wS", Info_Number, Info_Element); } } } static byte SendMultiIE(PLCI *plci, dword Id, byte **parms, byte ie_type, dword info_mask, byte setupParse) { word i; word j; byte *ie; word Info_Number; byte *Info_Element; APPL *appl; word Info_Mask = 0; byte iesent = 0; if ( !plci->appl && !plci->State && plci->Sig.Ind != NCR_FACILITY && !setupParse ) { dbug(1, dprintf("NoM-IEParse ")); return 0; } dbug(1, dprintf("M-IEParse ")); for (i = 0; i < MAX_MULTI_IE; i++) { ie = parms[i]; Info_Number = 0; Info_Element = ie; if (ie[0]) { dbug(1, dprintf("[Ind0x%x]:IE=0x%x", plci->Sig.Ind, ie_type)); Info_Number = (word)ie_type; Info_Mask = (word)info_mask; } if (plci->Sig.Ind == NCR_FACILITY) /* check controller broadcast */ { for (j = 0; j < max_appl; j++) { appl = &application[j]; if (Info_Number && appl->Id && plci->adapter->Info_Mask[appl->Id - 1] & Info_Mask) { iesent = true; dbug(1, dprintf("Mlt_NCR_Ind")); sendf(&application[j], _INFO_I, Id & 0x0f, 0, "wS", Info_Number, Info_Element); } } } else if (!plci->appl && Info_Number) { /* overlap receiving broadcast */ for (j = 0; j < max_appl; j++) { if (test_c_ind_mask_bit(plci, j)) { iesent = true; dbug(1, dprintf("Mlt_Ovl_Ind")); sendf(&application[j] , _INFO_I, Id, 0, "wS", Info_Number, Info_Element); } } } /* all other signalling states */ else if (Info_Number && plci->adapter->Info_Mask[plci->appl->Id - 1] & Info_Mask) { iesent = true; dbug(1, dprintf("Mlt_Std_Ind")); sendf(plci->appl, _INFO_I, Id, 0, "wS", Info_Number, Info_Element); } } return iesent; } static void SendSSExtInd(APPL *appl, PLCI *plci, dword Id, byte **parms) { word i; /* Format of multi_ssext_parms[i][]: 0 byte length 1 byte SSEXTIE 2 byte SSEXT_REQ/SSEXT_IND 3 byte length 4 word SSExtCommand 6... Params */ if ( plci && plci->State && plci->Sig.Ind != NCR_FACILITY ) for (i = 0; i < MAX_MULTI_IE; i++) { if (parms[i][0] < 6) continue; if (parms[i][2] == SSEXT_REQ) continue; if (appl) { parms[i][0] = 0; /* kill it */ sendf(appl, _MANUFACTURER_I, Id, 0, "dwS", _DI_MANU_ID, _DI_SSEXT_CTRL, &parms[i][3]); } else if (plci->appl) { parms[i][0] = 0; /* kill it */ sendf(plci->appl, _MANUFACTURER_I, Id, 0, "dwS", _DI_MANU_ID, _DI_SSEXT_CTRL, &parms[i][3]); } } }; static void nl_ind(PLCI *plci) { byte ch; word ncci; dword Id; DIVA_CAPI_ADAPTER *a; word NCCIcode; APPL *APPLptr; word count; word Num; word i, ncpi_state; byte len, ncci_state; word msg; word info = 0; word fax_feature_bits; byte fax_send_edata_ack; static byte v120_header_buffer[2 + 3]; static word fax_info[] = { 0, /* T30_SUCCESS */ _FAX_NO_CONNECTION, /* T30_ERR_NO_DIS_RECEIVED */ _FAX_PROTOCOL_ERROR, /* T30_ERR_TIMEOUT_NO_RESPONSE */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_RESPONSE */ _FAX_PROTOCOL_ERROR, /* T30_ERR_TOO_MANY_REPEATS */ _FAX_PROTOCOL_ERROR, /* T30_ERR_UNEXPECTED_MESSAGE */ _FAX_REMOTE_ABORT, /* T30_ERR_UNEXPECTED_DCN */ _FAX_LOCAL_ABORT, /* T30_ERR_DTC_UNSUPPORTED */ _FAX_TRAINING_ERROR, /* T30_ERR_ALL_RATES_FAILED */ _FAX_TRAINING_ERROR, /* T30_ERR_TOO_MANY_TRAINS */ _FAX_PARAMETER_ERROR, /* T30_ERR_RECEIVE_CORRUPTED */ _FAX_REMOTE_ABORT, /* T30_ERR_UNEXPECTED_DISC */ _FAX_LOCAL_ABORT, /* T30_ERR_APPLICATION_DISC */ _FAX_REMOTE_REJECT, /* T30_ERR_INCOMPATIBLE_DIS */ _FAX_LOCAL_ABORT, /* T30_ERR_INCOMPATIBLE_DCS */ _FAX_PROTOCOL_ERROR, /* T30_ERR_TIMEOUT_NO_COMMAND */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_COMMAND */ _FAX_PROTOCOL_ERROR, /* T30_ERR_TIMEOUT_COMMAND_TOO_LONG */ _FAX_PROTOCOL_ERROR, /* T30_ERR_TIMEOUT_RESPONSE_TOO_LONG */ _FAX_NO_CONNECTION, /* T30_ERR_NOT_IDENTIFIED */ _FAX_PROTOCOL_ERROR, /* T30_ERR_SUPERVISORY_TIMEOUT */ _FAX_PARAMETER_ERROR, /* T30_ERR_TOO_LONG_SCAN_LINE */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_PAGE_AFTER_MPS */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_PAGE_AFTER_CFR */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_DCS_AFTER_FTT */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_DCS_AFTER_EOM */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_DCS_AFTER_MPS */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_DCN_AFTER_MCF */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_DCN_AFTER_RTN */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_CFR */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_MCF_AFTER_EOP */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_MCF_AFTER_EOM */ _FAX_PROTOCOL_ERROR, /* T30_ERR_RETRY_NO_MCF_AFTER_MPS */ 0x331d, /* T30_ERR_SUB_SEP_UNSUPPORTED */ 0x331e, /* T30_ERR_PWD_UNSUPPORTED */ 0x331f, /* T30_ERR_SUB_SEP_PWD_UNSUPPORTED */ _FAX_PROTOCOL_ERROR, /* T30_ERR_INVALID_COMMAND_FRAME */ _FAX_PARAMETER_ERROR, /* T30_ERR_UNSUPPORTED_PAGE_CODING */ _FAX_PARAMETER_ERROR, /* T30_ERR_INVALID_PAGE_CODING */ _FAX_REMOTE_REJECT, /* T30_ERR_INCOMPATIBLE_PAGE_CONFIG */ _FAX_LOCAL_ABORT, /* T30_ERR_TIMEOUT_FROM_APPLICATION */ _FAX_PROTOCOL_ERROR, /* T30_ERR_V34FAX_NO_REACTION_ON_MARK */ _FAX_PROTOCOL_ERROR, /* T30_ERR_V34FAX_TRAINING_TIMEOUT */ _FAX_PROTOCOL_ERROR, /* T30_ERR_V34FAX_UNEXPECTED_V21 */ _FAX_PROTOCOL_ERROR, /* T30_ERR_V34FAX_PRIMARY_CTS_ON */ _FAX_LOCAL_ABORT, /* T30_ERR_V34FAX_TURNAROUND_POLLING */ _FAX_LOCAL_ABORT /* T30_ERR_V34FAX_V8_INCOMPATIBILITY */ }; byte dtmf_code_buffer[CAPIDTMF_RECV_DIGIT_BUFFER_SIZE + 1]; static word rtp_info[] = { GOOD, /* RTP_SUCCESS */ 0x3600 /* RTP_ERR_SSRC_OR_PAYLOAD_CHANGE */ }; static dword udata_forwarding_table[0x100 / sizeof(dword)] = { 0x0020301e, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000 }; ch = plci->NL.IndCh; a = plci->adapter; ncci = a->ch_ncci[ch]; Id = (((dword)(ncci ? ncci : ch)) << 16) | (((word) plci->Id) << 8) | a->Id; if (plci->tel) Id |= EXT_CONTROLLER; APPLptr = plci->appl; dbug(1, dprintf("NL_IND-Id(NL:0x%x)=0x%08lx,plci=%x,tel=%x,state=0x%x,ch=0x%x,chs=%d,Ind=%x", plci->NL.Id, Id, plci->Id, plci->tel, plci->State, ch, plci->channels, plci->NL.Ind & 0x0f)); /* in the case if no connect_active_Ind was sent to the appl we wait for */ if (plci->nl_remove_id) { plci->NL.RNR = 2; /* discard */ dbug(1, dprintf("NL discard while remove pending")); return; } if ((plci->NL.Ind & 0x0f) == N_CONNECT) { if (plci->State == INC_DIS_PENDING || plci->State == OUTG_DIS_PENDING || plci->State == IDLE) { plci->NL.RNR = 2; /* discard */ dbug(1, dprintf("discard n_connect")); return; } if (plci->State < INC_ACT_PENDING) { plci->NL.RNR = 1; /* flow control */ channel_x_off(plci, ch, N_XON_CONNECT_IND); return; } } if (!APPLptr) /* no application or invalid data */ { /* while reloading the DSP */ dbug(1, dprintf("discard1")); plci->NL.RNR = 2; return; } if (((plci->NL.Ind & 0x0f) == N_UDATA) && (((plci->B2_prot != B2_SDLC) && ((plci->B1_resource == 17) || (plci->B1_resource == 18))) || (plci->B2_prot == 7) || (plci->B3_prot == 7))) { plci->ncpi_buffer[0] = 0; ncpi_state = plci->ncpi_state; if (plci->NL.complete == 1) { byte *data = &plci->NL.RBuffer->P[0]; if ((plci->NL.RBuffer->length >= 12) && ((*data == DSP_UDATA_INDICATION_DCD_ON) || (*data == DSP_UDATA_INDICATION_CTS_ON))) { word conn_opt, ncpi_opt = 0x00; /* HexDump ("MDM N_UDATA:", plci->NL.RBuffer->length, data); */ if (*data == DSP_UDATA_INDICATION_DCD_ON) plci->ncpi_state |= NCPI_MDM_DCD_ON_RECEIVED; if (*data == DSP_UDATA_INDICATION_CTS_ON) plci->ncpi_state |= NCPI_MDM_CTS_ON_RECEIVED; data++; /* indication code */ data += 2; /* timestamp */ if ((*data == DSP_CONNECTED_NORM_V18) || (*data == DSP_CONNECTED_NORM_VOWN)) ncpi_state &= ~(NCPI_MDM_DCD_ON_RECEIVED | NCPI_MDM_CTS_ON_RECEIVED); data++; /* connected norm */ conn_opt = GET_WORD(data); data += 2; /* connected options */ PUT_WORD(&(plci->ncpi_buffer[1]), (word)(GET_DWORD(data) & 0x0000FFFF)); if (conn_opt & DSP_CONNECTED_OPTION_MASK_V42) { ncpi_opt |= MDM_NCPI_ECM_V42; } else if (conn_opt & DSP_CONNECTED_OPTION_MASK_MNP) { ncpi_opt |= MDM_NCPI_ECM_MNP; } else { ncpi_opt |= MDM_NCPI_TRANSPARENT; } if (conn_opt & DSP_CONNECTED_OPTION_MASK_COMPRESSION) { ncpi_opt |= MDM_NCPI_COMPRESSED; } PUT_WORD(&(plci->ncpi_buffer[3]), ncpi_opt); plci->ncpi_buffer[0] = 4; plci->ncpi_state |= NCPI_VALID_CONNECT_B3_IND | NCPI_VALID_CONNECT_B3_ACT | NCPI_VALID_DISC_B3_IND; } } if (plci->B3_prot == 7) { if (((a->ncci_state[ncci] == INC_ACT_PENDING) || (a->ncci_state[ncci] == OUTG_CON_PENDING)) && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT)) { a->ncci_state[ncci] = INC_ACT_PENDING; sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "S", plci->ncpi_buffer); plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT; } } if (!((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id - 1]) & ((1L << PRIVATE_V18) | (1L << PRIVATE_VOWN))) || !(ncpi_state & NCPI_MDM_DCD_ON_RECEIVED) || !(ncpi_state & NCPI_MDM_CTS_ON_RECEIVED)) { plci->NL.RNR = 2; return; } } if (plci->NL.complete == 2) { if (((plci->NL.Ind & 0x0f) == N_UDATA) && !(udata_forwarding_table[plci->RData[0].P[0] >> 5] & (1L << (plci->RData[0].P[0] & 0x1f)))) { switch (plci->RData[0].P[0]) { case DTMF_UDATA_INDICATION_FAX_CALLING_TONE: if (plci->dtmf_rec_active & DTMF_LISTEN_ACTIVE_FLAG) sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", SELECTOR_DTMF, "\x01X"); break; case DTMF_UDATA_INDICATION_ANSWER_TONE: if (plci->dtmf_rec_active & DTMF_LISTEN_ACTIVE_FLAG) sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", SELECTOR_DTMF, "\x01Y"); break; case DTMF_UDATA_INDICATION_DIGITS_RECEIVED: dtmf_indication(Id, plci, plci->RData[0].P, plci->RData[0].PLength); break; case DTMF_UDATA_INDICATION_DIGITS_SENT: dtmf_confirmation(Id, plci); break; case UDATA_INDICATION_MIXER_TAP_DATA: capidtmf_recv_process_block(&(plci->capidtmf_state), plci->RData[0].P + 1, (word)(plci->RData[0].PLength - 1)); i = capidtmf_indication(&(plci->capidtmf_state), dtmf_code_buffer + 1); if (i != 0) { dtmf_code_buffer[0] = DTMF_UDATA_INDICATION_DIGITS_RECEIVED; dtmf_indication(Id, plci, dtmf_code_buffer, (word)(i + 1)); } break; case UDATA_INDICATION_MIXER_COEFS_SET: mixer_indication_coefs_set(Id, plci); break; case UDATA_INDICATION_XCONNECT_FROM: mixer_indication_xconnect_from(Id, plci, plci->RData[0].P, plci->RData[0].PLength); break; case UDATA_INDICATION_XCONNECT_TO: mixer_indication_xconnect_to(Id, plci, plci->RData[0].P, plci->RData[0].PLength); break; case LEC_UDATA_INDICATION_DISABLE_DETECT: ec_indication(Id, plci, plci->RData[0].P, plci->RData[0].PLength); break; default: break; } } else { if ((plci->RData[0].PLength != 0) && ((plci->B2_prot == B2_V120_ASYNC) || (plci->B2_prot == B2_V120_ASYNC_V42BIS) || (plci->B2_prot == B2_V120_BIT_TRANSPARENT))) { sendf(plci->appl, _DATA_B3_I, Id, 0, "dwww", plci->RData[1].P, (plci->NL.RNum < 2) ? 0 : plci->RData[1].PLength, plci->RNum, plci->RFlags); } else { sendf(plci->appl, _DATA_B3_I, Id, 0, "dwww", plci->RData[0].P, plci->RData[0].PLength, plci->RNum, plci->RFlags); } } return; } fax_feature_bits = 0; if ((plci->NL.Ind & 0x0f) == N_CONNECT || (plci->NL.Ind & 0x0f) == N_CONNECT_ACK || (plci->NL.Ind & 0x0f) == N_DISC || (plci->NL.Ind & 0x0f) == N_EDATA || (plci->NL.Ind & 0x0f) == N_DISC_ACK) { info = 0; plci->ncpi_buffer[0] = 0; switch (plci->B3_prot) { case 0: /*XPARENT*/ case 1: /*T.90 NL*/ break; /* no network control protocol info - jfr */ case 2: /*ISO8202*/ case 3: /*X25 DCE*/ for (i = 0; i < plci->NL.RLength; i++) plci->ncpi_buffer[4 + i] = plci->NL.RBuffer->P[i]; plci->ncpi_buffer[0] = (byte)(i + 3); plci->ncpi_buffer[1] = (byte)(plci->NL.Ind & N_D_BIT ? 1 : 0); plci->ncpi_buffer[2] = 0; plci->ncpi_buffer[3] = 0; break; case 4: /*T.30 - FAX*/ case 5: /*T.30 - FAX*/ if (plci->NL.RLength >= sizeof(T30_INFO)) { dbug(1, dprintf("FaxStatus %04x", ((T30_INFO *)plci->NL.RBuffer->P)->code)); len = 9; PUT_WORD(&(plci->ncpi_buffer[1]), ((T30_INFO *)plci->NL.RBuffer->P)->rate_div_2400 * 2400); fax_feature_bits = GET_WORD(&((T30_INFO *)plci->NL.RBuffer->P)->feature_bits_low); i = (((T30_INFO *)plci->NL.RBuffer->P)->resolution & T30_RESOLUTION_R8_0770_OR_200) ? 0x0001 : 0x0000; if (plci->B3_prot == 5) { if (!(fax_feature_bits & T30_FEATURE_BIT_ECM)) i |= 0x8000; /* This is not an ECM connection */ if (fax_feature_bits & T30_FEATURE_BIT_T6_CODING) i |= 0x4000; /* This is a connection with MMR compression */ if (fax_feature_bits & T30_FEATURE_BIT_2D_CODING) i |= 0x2000; /* This is a connection with MR compression */ if (fax_feature_bits & T30_FEATURE_BIT_MORE_DOCUMENTS) i |= 0x0004; /* More documents */ if (fax_feature_bits & T30_FEATURE_BIT_POLLING) i |= 0x0002; /* Fax-polling indication */ } dbug(1, dprintf("FAX Options %04x %04x", fax_feature_bits, i)); PUT_WORD(&(plci->ncpi_buffer[3]), i); PUT_WORD(&(plci->ncpi_buffer[5]), ((T30_INFO *)plci->NL.RBuffer->P)->data_format); plci->ncpi_buffer[7] = ((T30_INFO *)plci->NL.RBuffer->P)->pages_low; plci->ncpi_buffer[8] = ((T30_INFO *)plci->NL.RBuffer->P)->pages_high; plci->ncpi_buffer[len] = 0; if (((T30_INFO *)plci->NL.RBuffer->P)->station_id_len) { plci->ncpi_buffer[len] = 20; for (i = 0; i < T30_MAX_STATION_ID_LENGTH; i++) plci->ncpi_buffer[++len] = ((T30_INFO *)plci->NL.RBuffer->P)->station_id[i]; } if (((plci->NL.Ind & 0x0f) == N_DISC) || ((plci->NL.Ind & 0x0f) == N_DISC_ACK)) { if (((T30_INFO *)plci->NL.RBuffer->P)->code < ARRAY_SIZE(fax_info)) info = fax_info[((T30_INFO *)plci->NL.RBuffer->P)->code]; else info = _FAX_PROTOCOL_ERROR; } if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[plci->appl->Id - 1]) & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD))) { i = offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH + ((T30_INFO *)plci->NL.RBuffer->P)->head_line_len; while (i < plci->NL.RBuffer->length) plci->ncpi_buffer[++len] = plci->NL.RBuffer->P[i++]; } plci->ncpi_buffer[0] = len; fax_feature_bits = GET_WORD(&((T30_INFO *)plci->NL.RBuffer->P)->feature_bits_low); PUT_WORD(&((T30_INFO *)plci->fax_connect_info_buffer)->feature_bits_low, fax_feature_bits); plci->ncpi_state |= NCPI_VALID_CONNECT_B3_IND; if (((plci->NL.Ind & 0x0f) == N_CONNECT_ACK) || (((plci->NL.Ind & 0x0f) == N_CONNECT) && (fax_feature_bits & T30_FEATURE_BIT_POLLING)) || (((plci->NL.Ind & 0x0f) == N_EDATA) && ((((T30_INFO *)plci->NL.RBuffer->P)->code == EDATA_T30_TRAIN_OK) || (((T30_INFO *)plci->NL.RBuffer->P)->code == EDATA_T30_DIS) || (((T30_INFO *)plci->NL.RBuffer->P)->code == EDATA_T30_DTC)))) { plci->ncpi_state |= NCPI_VALID_CONNECT_B3_ACT; } if (((plci->NL.Ind & 0x0f) == N_DISC) || ((plci->NL.Ind & 0x0f) == N_DISC_ACK) || (((plci->NL.Ind & 0x0f) == N_EDATA) && (((T30_INFO *)plci->NL.RBuffer->P)->code == EDATA_T30_EOP_CAPI))) { plci->ncpi_state |= NCPI_VALID_CONNECT_B3_ACT | NCPI_VALID_DISC_B3_IND; } } break; case B3_RTP: if (((plci->NL.Ind & 0x0f) == N_DISC) || ((plci->NL.Ind & 0x0f) == N_DISC_ACK)) { if (plci->NL.RLength != 0) { info = rtp_info[plci->NL.RBuffer->P[0]]; plci->ncpi_buffer[0] = plci->NL.RLength - 1; for (i = 1; i < plci->NL.RLength; i++) plci->ncpi_buffer[i] = plci->NL.RBuffer->P[i]; } } break; } plci->NL.RNR = 2; } switch (plci->NL.Ind & 0x0f) { case N_EDATA: if ((plci->B3_prot == 4) || (plci->B3_prot == 5)) { dbug(1, dprintf("EDATA ncci=0x%x state=%d code=%02x", ncci, a->ncci_state[ncci], ((T30_INFO *)plci->NL.RBuffer->P)->code)); fax_send_edata_ack = (((T30_INFO *)(plci->fax_connect_info_buffer))->operating_mode == T30_OPERATING_MODE_CAPI_NEG); if ((plci->nsf_control_bits & T30_NSF_CONTROL_BIT_ENABLE_NSF) && (plci->nsf_control_bits & (T30_NSF_CONTROL_BIT_NEGOTIATE_IND | T30_NSF_CONTROL_BIT_NEGOTIATE_RESP)) && (((T30_INFO *)plci->NL.RBuffer->P)->code == EDATA_T30_DIS) && (a->ncci_state[ncci] == OUTG_CON_PENDING) && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_NEGOTIATE_B3_SENT)) { ((T30_INFO *)(plci->fax_connect_info_buffer))->code = ((T30_INFO *)plci->NL.RBuffer->P)->code; sendf(plci->appl, _MANUFACTURER_I, Id, 0, "dwbS", _DI_MANU_ID, _DI_NEGOTIATE_B3, (byte)(plci->ncpi_buffer[0] + 1), plci->ncpi_buffer); plci->ncpi_state |= NCPI_NEGOTIATE_B3_SENT; if (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_NEGOTIATE_RESP) fax_send_edata_ack = false; } if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS) { switch (((T30_INFO *)plci->NL.RBuffer->P)->code) { case EDATA_T30_DIS: if ((a->ncci_state[ncci] == OUTG_CON_PENDING) && !(GET_WORD(&((T30_INFO *)plci->fax_connect_info_buffer)->control_bits_low) & T30_CONTROL_BIT_REQUEST_POLLING) && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT)) { a->ncci_state[ncci] = INC_ACT_PENDING; if (plci->B3_prot == 4) sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); else sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "S", plci->ncpi_buffer); plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT; } break; case EDATA_T30_TRAIN_OK: if ((a->ncci_state[ncci] == INC_ACT_PENDING) && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT)) { if (plci->B3_prot == 4) sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); else sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "S", plci->ncpi_buffer); plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT; } break; case EDATA_T30_EOP_CAPI: if (a->ncci_state[ncci] == CONNECTED) { sendf(plci->appl, _DISCONNECT_B3_I, Id, 0, "wS", GOOD, plci->ncpi_buffer); a->ncci_state[ncci] = INC_DIS_PENDING; plci->ncpi_state = 0; fax_send_edata_ack = false; } break; } } else { switch (((T30_INFO *)plci->NL.RBuffer->P)->code) { case EDATA_T30_TRAIN_OK: if ((a->ncci_state[ncci] == INC_ACT_PENDING) && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT)) { if (plci->B3_prot == 4) sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); else sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "S", plci->ncpi_buffer); plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT; } break; } } if (fax_send_edata_ack) { ((T30_INFO *)(plci->fax_connect_info_buffer))->code = ((T30_INFO *)plci->NL.RBuffer->P)->code; plci->fax_edata_ack_length = 1; start_internal_command(Id, plci, fax_edata_ack_command); } } else { dbug(1, dprintf("EDATA ncci=0x%x state=%d", ncci, a->ncci_state[ncci])); } break; case N_CONNECT: if (!a->ch_ncci[ch]) { ncci = get_ncci(plci, ch, 0); Id = (Id & 0xffff) | (((dword) ncci) << 16); } dbug(1, dprintf("N_CONNECT: ch=%d state=%d plci=%lx plci_Id=%lx plci_State=%d", ch, a->ncci_state[ncci], a->ncci_plci[ncci], plci->Id, plci->State)); msg = _CONNECT_B3_I; if (a->ncci_state[ncci] == IDLE) plci->channels++; else if (plci->B3_prot == 1) msg = _CONNECT_B3_T90_ACTIVE_I; a->ncci_state[ncci] = INC_CON_PENDING; if (plci->B3_prot == 4) sendf(plci->appl, msg, Id, 0, "s", ""); else sendf(plci->appl, msg, Id, 0, "S", plci->ncpi_buffer); break; case N_CONNECT_ACK: dbug(1, dprintf("N_connect_Ack")); if (plci->internal_command_queue[0] && ((plci->adjust_b_state == ADJUST_B_CONNECT_2) || (plci->adjust_b_state == ADJUST_B_CONNECT_3) || (plci->adjust_b_state == ADJUST_B_CONNECT_4))) { (*(plci->internal_command_queue[0]))(Id, plci, 0); if (!plci->internal_command) next_internal_command(Id, plci); break; } msg = _CONNECT_B3_ACTIVE_I; if (plci->B3_prot == 1) { if (a->ncci_state[ncci] != OUTG_CON_PENDING) msg = _CONNECT_B3_T90_ACTIVE_I; a->ncci_state[ncci] = INC_ACT_PENDING; sendf(plci->appl, msg, Id, 0, "S", plci->ncpi_buffer); } else if ((plci->B3_prot == 4) || (plci->B3_prot == 5) || (plci->B3_prot == 7)) { if ((a->ncci_state[ncci] == OUTG_CON_PENDING) && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT)) { a->ncci_state[ncci] = INC_ACT_PENDING; if (plci->B3_prot == 4) sendf(plci->appl, msg, Id, 0, "s", ""); else sendf(plci->appl, msg, Id, 0, "S", plci->ncpi_buffer); plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT; } } else { a->ncci_state[ncci] = INC_ACT_PENDING; sendf(plci->appl, msg, Id, 0, "S", plci->ncpi_buffer); } if (plci->adjust_b_restore) { plci->adjust_b_restore = false; start_internal_command(Id, plci, adjust_b_restore); } break; case N_DISC: case N_DISC_ACK: if (plci->internal_command_queue[0] && ((plci->internal_command == FAX_DISCONNECT_COMMAND_1) || (plci->internal_command == FAX_DISCONNECT_COMMAND_2) || (plci->internal_command == FAX_DISCONNECT_COMMAND_3))) { (*(plci->internal_command_queue[0]))(Id, plci, 0); if (!plci->internal_command) next_internal_command(Id, plci); } ncci_state = a->ncci_state[ncci]; ncci_remove(plci, ncci, false); /* with N_DISC or N_DISC_ACK the IDI frees the respective */ /* channel, so we cannot store the state in ncci_state! The */ /* information which channel we received a N_DISC is thus */ /* stored in the inc_dis_ncci_table buffer. */ for (i = 0; plci->inc_dis_ncci_table[i]; i++); plci->inc_dis_ncci_table[i] = (byte) ncci; /* need a connect_b3_ind before a disconnect_b3_ind with FAX */ if (!plci->channels && (plci->B1_resource == 16) && (plci->State <= CONNECTED)) { len = 9; i = ((T30_INFO *)plci->fax_connect_info_buffer)->rate_div_2400 * 2400; PUT_WORD(&plci->ncpi_buffer[1], i); PUT_WORD(&plci->ncpi_buffer[3], 0); i = ((T30_INFO *)plci->fax_connect_info_buffer)->data_format; PUT_WORD(&plci->ncpi_buffer[5], i); PUT_WORD(&plci->ncpi_buffer[7], 0); plci->ncpi_buffer[len] = 0; plci->ncpi_buffer[0] = len; if (plci->B3_prot == 4) sendf(plci->appl, _CONNECT_B3_I, Id, 0, "s", ""); else { if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[plci->appl->Id - 1]) & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD))) { plci->ncpi_buffer[++len] = 0; plci->ncpi_buffer[++len] = 0; plci->ncpi_buffer[++len] = 0; plci->ncpi_buffer[0] = len; } sendf(plci->appl, _CONNECT_B3_I, Id, 0, "S", plci->ncpi_buffer); } sendf(plci->appl, _DISCONNECT_B3_I, Id, 0, "wS", info, plci->ncpi_buffer); plci->ncpi_state = 0; sig_req(plci, HANGUP, 0); send_req(plci); plci->State = OUTG_DIS_PENDING; /* disc here */ } else if ((a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS) && ((plci->B3_prot == 4) || (plci->B3_prot == 5)) && ((ncci_state == INC_DIS_PENDING) || (ncci_state == IDLE))) { if (ncci_state == IDLE) { if (plci->channels) plci->channels--; if ((plci->State == IDLE || plci->State == SUSPENDING) && !plci->channels) { if (plci->State == SUSPENDING) { sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", (word)3, "\x03\x04\x00\x00"); sendf(plci->appl, _DISCONNECT_I, Id & 0xffffL, 0, "w", 0); } plci_remove(plci); plci->State = IDLE; } } } else if (plci->channels) { sendf(plci->appl, _DISCONNECT_B3_I, Id, 0, "wS", info, plci->ncpi_buffer); plci->ncpi_state = 0; if ((ncci_state == OUTG_REJ_PENDING) && ((plci->B3_prot != B3_T90NL) && (plci->B3_prot != B3_ISO8208) && (plci->B3_prot != B3_X25_DCE))) { sig_req(plci, HANGUP, 0); send_req(plci); plci->State = OUTG_DIS_PENDING; } } break; case N_RESET: a->ncci_state[ncci] = INC_RES_PENDING; sendf(plci->appl, _RESET_B3_I, Id, 0, "S", plci->ncpi_buffer); break; case N_RESET_ACK: a->ncci_state[ncci] = CONNECTED; sendf(plci->appl, _RESET_B3_I, Id, 0, "S", plci->ncpi_buffer); break; case N_UDATA: if (!(udata_forwarding_table[plci->NL.RBuffer->P[0] >> 5] & (1L << (plci->NL.RBuffer->P[0] & 0x1f)))) { plci->RData[0].P = plci->internal_ind_buffer + (-((int)(long)(plci->internal_ind_buffer)) & 3); plci->RData[0].PLength = INTERNAL_IND_BUFFER_SIZE; plci->NL.R = plci->RData; plci->NL.RNum = 1; return; } case N_BDATA: case N_DATA: if (((a->ncci_state[ncci] != CONNECTED) && (plci->B2_prot == 1)) /* transparent */ || (a->ncci_state[ncci] == IDLE) || (a->ncci_state[ncci] == INC_DIS_PENDING)) { plci->NL.RNR = 2; break; } if ((a->ncci_state[ncci] != CONNECTED) && (a->ncci_state[ncci] != OUTG_DIS_PENDING) && (a->ncci_state[ncci] != OUTG_REJ_PENDING)) { dbug(1, dprintf("flow control")); plci->NL.RNR = 1; /* flow control */ channel_x_off(plci, ch, 0); break; } NCCIcode = ncci | (((word)a->Id) << 8); /* count all buffers within the Application pool */ /* belonging to the same NCCI. If this is below the */ /* number of buffers available per NCCI we accept */ /* this packet, otherwise we reject it */ count = 0; Num = 0xffff; for (i = 0; i < APPLptr->MaxBuffer; i++) { if (NCCIcode == APPLptr->DataNCCI[i]) count++; if (!APPLptr->DataNCCI[i] && Num == 0xffff) Num = i; } if (count >= APPLptr->MaxNCCIData || Num == 0xffff) { dbug(3, dprintf("Flow-Control")); plci->NL.RNR = 1; if (++(APPLptr->NCCIDataFlowCtrlTimer) >= (word)((a->manufacturer_features & MANUFACTURER_FEATURE_OOB_CHANNEL) ? 40 : 2000)) { plci->NL.RNR = 2; dbug(3, dprintf("DiscardData")); } else { channel_x_off(plci, ch, 0); } break; } else { APPLptr->NCCIDataFlowCtrlTimer = 0; } plci->RData[0].P = ReceiveBufferGet(APPLptr, Num); if (!plci->RData[0].P) { plci->NL.RNR = 1; channel_x_off(plci, ch, 0); break; } APPLptr->DataNCCI[Num] = NCCIcode; APPLptr->DataFlags[Num] = (plci->Id << 8) | (plci->NL.Ind >> 4); dbug(3, dprintf("Buffer(%d), Max = %d", Num, APPLptr->MaxBuffer)); plci->RNum = Num; plci->RFlags = plci->NL.Ind >> 4; plci->RData[0].PLength = APPLptr->MaxDataLength; plci->NL.R = plci->RData; if ((plci->NL.RLength != 0) && ((plci->B2_prot == B2_V120_ASYNC) || (plci->B2_prot == B2_V120_ASYNC_V42BIS) || (plci->B2_prot == B2_V120_BIT_TRANSPARENT))) { plci->RData[1].P = plci->RData[0].P; plci->RData[1].PLength = plci->RData[0].PLength; plci->RData[0].P = v120_header_buffer + (-((unsigned long)v120_header_buffer) & 3); if ((plci->NL.RBuffer->P[0] & V120_HEADER_EXTEND_BIT) || (plci->NL.RLength == 1)) plci->RData[0].PLength = 1; else plci->RData[0].PLength = 2; if (plci->NL.RBuffer->P[0] & V120_HEADER_BREAK_BIT) plci->RFlags |= 0x0010; if (plci->NL.RBuffer->P[0] & (V120_HEADER_C1_BIT | V120_HEADER_C2_BIT)) plci->RFlags |= 0x8000; plci->NL.RNum = 2; } else { if ((plci->NL.Ind & 0x0f) == N_UDATA) plci->RFlags |= 0x0010; else if ((plci->B3_prot == B3_RTP) && ((plci->NL.Ind & 0x0f) == N_BDATA)) plci->RFlags |= 0x0001; plci->NL.RNum = 1; } break; case N_DATA_ACK: data_ack(plci, ch); break; default: plci->NL.RNR = 2; break; } } /*------------------------------------------------------------------*/ /* find a free PLCI */ /*------------------------------------------------------------------*/ static word get_plci(DIVA_CAPI_ADAPTER *a) { word i, j; PLCI *plci; dump_plcis(a); for (i = 0; i < a->max_plci && a->plci[i].Id; i++); if (i == a->max_plci) { dbug(1, dprintf("get_plci: out of PLCIs")); return 0; } plci = &a->plci[i]; plci->Id = (byte)(i + 1); plci->Sig.Id = 0; plci->NL.Id = 0; plci->sig_req = 0; plci->nl_req = 0; plci->appl = NULL; plci->relatedPTYPLCI = NULL; plci->State = IDLE; plci->SuppState = IDLE; plci->channels = 0; plci->tel = 0; plci->B1_resource = 0; plci->B2_prot = 0; plci->B3_prot = 0; plci->command = 0; plci->m_command = 0; init_internal_command_queue(plci); plci->number = 0; plci->req_in_start = 0; plci->req_in = 0; plci->req_out = 0; plci->msg_in_write_pos = MSG_IN_QUEUE_SIZE; plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE; plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE; plci->data_sent = false; plci->send_disc = 0; plci->sig_global_req = 0; plci->sig_remove_id = 0; plci->nl_global_req = 0; plci->nl_remove_id = 0; plci->adv_nl = 0; plci->manufacturer = false; plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE; plci->spoofed_msg = 0; plci->ptyState = 0; plci->cr_enquiry = false; plci->hangup_flow_ctrl_timer = 0; plci->ncci_ring_list = 0; for (j = 0; j < MAX_CHANNELS_PER_PLCI; j++) plci->inc_dis_ncci_table[j] = 0; clear_c_ind_mask(plci); set_group_ind_mask(plci); plci->fax_connect_info_length = 0; plci->nsf_control_bits = 0; plci->ncpi_state = 0x00; plci->ncpi_buffer[0] = 0; plci->requested_options_conn = 0; plci->requested_options = 0; plci->notifiedcall = 0; plci->vswitchstate = 0; plci->vsprot = 0; plci->vsprotdialect = 0; init_b1_config(plci); dbug(1, dprintf("get_plci(%x)", plci->Id)); return i + 1; } /*------------------------------------------------------------------*/ /* put a parameter in the parameter buffer */ /*------------------------------------------------------------------*/ static void add_p(PLCI *plci, byte code, byte *p) { word p_length; p_length = 0; if (p) p_length = p[0]; add_ie(plci, code, p, p_length); } /*------------------------------------------------------------------*/ /* put a structure in the parameter buffer */ /*------------------------------------------------------------------*/ static void add_s(PLCI *plci, byte code, API_PARSE *p) { if (p) add_ie(plci, code, p->info, (word)p->length); } /*------------------------------------------------------------------*/ /* put multiple structures in the parameter buffer */ /*------------------------------------------------------------------*/ static void add_ss(PLCI *plci, byte code, API_PARSE *p) { byte i; if (p) { dbug(1, dprintf("add_ss(%x,len=%d)", code, p->length)); for (i = 2; i < (byte)p->length; i += p->info[i] + 2) { dbug(1, dprintf("add_ss_ie(%x,len=%d)", p->info[i - 1], p->info[i])); add_ie(plci, p->info[i - 1], (byte *)&(p->info[i]), (word)p->info[i]); } } } /*------------------------------------------------------------------*/ /* return the channel number sent by the application in a esc_chi */ /*------------------------------------------------------------------*/ static byte getChannel(API_PARSE *p) { byte i; if (p) { for (i = 2; i < (byte)p->length; i += p->info[i] + 2) { if (p->info[i] == 2) { if (p->info[i - 1] == ESC && p->info[i + 1] == CHI) return (p->info[i + 2]); } } } return 0; } /*------------------------------------------------------------------*/ /* put an information element in the parameter buffer */ /*------------------------------------------------------------------*/ static void add_ie(PLCI *plci, byte code, byte *p, word p_length) { word i; if (!(code & 0x80) && !p_length) return; if (plci->req_in == plci->req_in_start) { plci->req_in += 2; } else { plci->req_in--; } plci->RBuffer[plci->req_in++] = code; if (p) { plci->RBuffer[plci->req_in++] = (byte)p_length; for (i = 0; i < p_length; i++) plci->RBuffer[plci->req_in++] = p[1 + i]; } plci->RBuffer[plci->req_in++] = 0; } /*------------------------------------------------------------------*/ /* put a unstructured data into the buffer */ /*------------------------------------------------------------------*/ static void add_d(PLCI *plci, word length, byte *p) { word i; if (plci->req_in == plci->req_in_start) { plci->req_in += 2; } else { plci->req_in--; } for (i = 0; i < length; i++) plci->RBuffer[plci->req_in++] = p[i]; } /*------------------------------------------------------------------*/ /* put parameters from the Additional Info parameter in the */ /* parameter buffer */ /*------------------------------------------------------------------*/ static void add_ai(PLCI *plci, API_PARSE *ai) { word i; API_PARSE ai_parms[5]; for (i = 0; i < 5; i++) ai_parms[i].length = 0; if (!ai->length) return; if (api_parse(&ai->info[1], (word)ai->length, "ssss", ai_parms)) return; add_s(plci, KEY, &ai_parms[1]); add_s(plci, UUI, &ai_parms[2]); add_ss(plci, FTY, &ai_parms[3]); } /*------------------------------------------------------------------*/ /* put parameter for b1 protocol in the parameter buffer */ /*------------------------------------------------------------------*/ static word add_b1(PLCI *plci, API_PARSE *bp, word b_channel_info, word b1_facilities) { API_PARSE bp_parms[8]; API_PARSE mdm_cfg[9]; API_PARSE global_config[2]; byte cai[256]; byte resource[] = {5, 9, 13, 12, 16, 39, 9, 17, 17, 18}; byte voice_cai[] = "\x06\x14\x00\x00\x00\x00\x08"; word i; API_PARSE mdm_cfg_v18[4]; word j, n, w; dword d; for (i = 0; i < 8; i++) bp_parms[i].length = 0; for (i = 0; i < 2; i++) global_config[i].length = 0; dbug(1, dprintf("add_b1")); api_save_msg(bp, "s", &plci->B_protocol); if (b_channel_info == 2) { plci->B1_resource = 0; adjust_b1_facilities(plci, plci->B1_resource, b1_facilities); add_p(plci, CAI, "\x01\x00"); dbug(1, dprintf("Cai=1,0 (no resource)")); return 0; } if (plci->tel == CODEC_PERMANENT) return 0; else if (plci->tel == CODEC) { plci->B1_resource = 1; adjust_b1_facilities(plci, plci->B1_resource, b1_facilities); add_p(plci, CAI, "\x01\x01"); dbug(1, dprintf("Cai=1,1 (Codec)")); return 0; } else if (plci->tel == ADV_VOICE) { plci->B1_resource = add_b1_facilities(plci, 9, (word)(b1_facilities | B1_FACILITY_VOICE)); adjust_b1_facilities(plci, plci->B1_resource, (word)(b1_facilities | B1_FACILITY_VOICE)); voice_cai[1] = plci->B1_resource; PUT_WORD(&voice_cai[5], plci->appl->MaxDataLength); add_p(plci, CAI, voice_cai); dbug(1, dprintf("Cai=1,0x%x (AdvVoice)", voice_cai[1])); return 0; } plci->call_dir &= ~(CALL_DIR_ORIGINATE | CALL_DIR_ANSWER); if (plci->call_dir & CALL_DIR_OUT) plci->call_dir |= CALL_DIR_ORIGINATE; else if (plci->call_dir & CALL_DIR_IN) plci->call_dir |= CALL_DIR_ANSWER; if (!bp->length) { plci->B1_resource = 0x5; adjust_b1_facilities(plci, plci->B1_resource, b1_facilities); add_p(plci, CAI, "\x01\x05"); return 0; } dbug(1, dprintf("b_prot_len=%d", (word)bp->length)); if (bp->length > 256) return _WRONG_MESSAGE_FORMAT; if (api_parse(&bp->info[1], (word)bp->length, "wwwsssb", bp_parms)) { bp_parms[6].length = 0; if (api_parse(&bp->info[1], (word)bp->length, "wwwsss", bp_parms)) { dbug(1, dprintf("b-form.!")); return _WRONG_MESSAGE_FORMAT; } } else if (api_parse(&bp->info[1], (word)bp->length, "wwwssss", bp_parms)) { dbug(1, dprintf("b-form.!")); return _WRONG_MESSAGE_FORMAT; } if (bp_parms[6].length) { if (api_parse(&bp_parms[6].info[1], (word)bp_parms[6].length, "w", global_config)) { return _WRONG_MESSAGE_FORMAT; } switch (GET_WORD(global_config[0].info)) { case 1: plci->call_dir = (plci->call_dir & ~CALL_DIR_ANSWER) | CALL_DIR_ORIGINATE; break; case 2: plci->call_dir = (plci->call_dir & ~CALL_DIR_ORIGINATE) | CALL_DIR_ANSWER; break; } } dbug(1, dprintf("call_dir=%04x", plci->call_dir)); if ((GET_WORD(bp_parms[0].info) == B1_RTP) && (plci->adapter->man_profile.private_options & (1L << PRIVATE_RTP))) { plci->B1_resource = add_b1_facilities(plci, 31, (word)(b1_facilities & ~B1_FACILITY_VOICE)); adjust_b1_facilities(plci, plci->B1_resource, (word)(b1_facilities & ~B1_FACILITY_VOICE)); cai[1] = plci->B1_resource; cai[2] = 0; cai[3] = 0; cai[4] = 0; PUT_WORD(&cai[5], plci->appl->MaxDataLength); for (i = 0; i < bp_parms[3].length; i++) cai[7 + i] = bp_parms[3].info[1 + i]; cai[0] = 6 + bp_parms[3].length; add_p(plci, CAI, cai); return 0; } if ((GET_WORD(bp_parms[0].info) == B1_PIAFS) && (plci->adapter->man_profile.private_options & (1L << PRIVATE_PIAFS))) { plci->B1_resource = add_b1_facilities(plci, 35/* PIAFS HARDWARE FACILITY */, (word)(b1_facilities & ~B1_FACILITY_VOICE)); adjust_b1_facilities(plci, plci->B1_resource, (word)(b1_facilities & ~B1_FACILITY_VOICE)); cai[1] = plci->B1_resource; cai[2] = 0; cai[3] = 0; cai[4] = 0; PUT_WORD(&cai[5], plci->appl->MaxDataLength); cai[0] = 6; add_p(plci, CAI, cai); return 0; } if ((GET_WORD(bp_parms[0].info) >= 32) || (!((1L << GET_WORD(bp_parms[0].info)) & plci->adapter->profile.B1_Protocols) && ((GET_WORD(bp_parms[0].info) != 3) || !((1L << B1_HDLC) & plci->adapter->profile.B1_Protocols) || ((bp_parms[3].length != 0) && (GET_WORD(&bp_parms[3].info[1]) != 0) && (GET_WORD(&bp_parms[3].info[1]) != 56000))))) { return _B1_NOT_SUPPORTED; } plci->B1_resource = add_b1_facilities(plci, resource[GET_WORD(bp_parms[0].info)], (word)(b1_facilities & ~B1_FACILITY_VOICE)); adjust_b1_facilities(plci, plci->B1_resource, (word)(b1_facilities & ~B1_FACILITY_VOICE)); cai[0] = 6; cai[1] = plci->B1_resource; for (i = 2; i < sizeof(cai); i++) cai[i] = 0; if ((GET_WORD(bp_parms[0].info) == B1_MODEM_ALL_NEGOTIATE) || (GET_WORD(bp_parms[0].info) == B1_MODEM_ASYNC) || (GET_WORD(bp_parms[0].info) == B1_MODEM_SYNC_HDLC)) { /* B1 - modem */ for (i = 0; i < 7; i++) mdm_cfg[i].length = 0; if (bp_parms[3].length) { if (api_parse(&bp_parms[3].info[1], (word)bp_parms[3].length, "wwwwww", mdm_cfg)) { return (_WRONG_MESSAGE_FORMAT); } cai[2] = 0; /* Bit rate for adaptation */ dbug(1, dprintf("MDM Max Bit Rate:<%d>", GET_WORD(mdm_cfg[0].info))); PUT_WORD(&cai[13], 0); /* Min Tx speed */ PUT_WORD(&cai[15], GET_WORD(mdm_cfg[0].info)); /* Max Tx speed */ PUT_WORD(&cai[17], 0); /* Min Rx speed */ PUT_WORD(&cai[19], GET_WORD(mdm_cfg[0].info)); /* Max Rx speed */ cai[3] = 0; /* Async framing parameters */ switch (GET_WORD(mdm_cfg[2].info)) { /* Parity */ case 1: /* odd parity */ cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_ODD); dbug(1, dprintf("MDM: odd parity")); break; case 2: /* even parity */ cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_EVEN); dbug(1, dprintf("MDM: even parity")); break; default: dbug(1, dprintf("MDM: no parity")); break; } switch (GET_WORD(mdm_cfg[3].info)) { /* stop bits */ case 1: /* 2 stop bits */ cai[3] |= DSP_CAI_ASYNC_TWO_STOP_BITS; dbug(1, dprintf("MDM: 2 stop bits")); break; default: dbug(1, dprintf("MDM: 1 stop bit")); break; } switch (GET_WORD(mdm_cfg[1].info)) { /* char length */ case 5: cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_5; dbug(1, dprintf("MDM: 5 bits")); break; case 6: cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_6; dbug(1, dprintf("MDM: 6 bits")); break; case 7: cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_7; dbug(1, dprintf("MDM: 7 bits")); break; default: dbug(1, dprintf("MDM: 8 bits")); break; } cai[7] = 0; /* Line taking options */ cai[8] = 0; /* Modulation negotiation options */ cai[9] = 0; /* Modulation options */ if (((plci->call_dir & CALL_DIR_ORIGINATE) != 0) ^ ((plci->call_dir & CALL_DIR_OUT) != 0)) { cai[9] |= DSP_CAI_MODEM_REVERSE_DIRECTION; dbug(1, dprintf("MDM: Reverse direction")); } if (GET_WORD(mdm_cfg[4].info) & MDM_CAPI_DISABLE_RETRAIN) { cai[9] |= DSP_CAI_MODEM_DISABLE_RETRAIN; dbug(1, dprintf("MDM: Disable retrain")); } if (GET_WORD(mdm_cfg[4].info) & MDM_CAPI_DISABLE_RING_TONE) { cai[7] |= DSP_CAI_MODEM_DISABLE_CALLING_TONE | DSP_CAI_MODEM_DISABLE_ANSWER_TONE; dbug(1, dprintf("MDM: Disable ring tone")); } if (GET_WORD(mdm_cfg[4].info) & MDM_CAPI_GUARD_1800) { cai[8] |= DSP_CAI_MODEM_GUARD_TONE_1800HZ; dbug(1, dprintf("MDM: 1800 guard tone")); } else if (GET_WORD(mdm_cfg[4].info) & MDM_CAPI_GUARD_550) { cai[8] |= DSP_CAI_MODEM_GUARD_TONE_550HZ; dbug(1, dprintf("MDM: 550 guard tone")); } if ((GET_WORD(mdm_cfg[5].info) & 0x00ff) == MDM_CAPI_NEG_V100) { cai[8] |= DSP_CAI_MODEM_NEGOTIATE_V100; dbug(1, dprintf("MDM: V100")); } else if ((GET_WORD(mdm_cfg[5].info) & 0x00ff) == MDM_CAPI_NEG_MOD_CLASS) { cai[8] |= DSP_CAI_MODEM_NEGOTIATE_IN_CLASS; dbug(1, dprintf("MDM: IN CLASS")); } else if ((GET_WORD(mdm_cfg[5].info) & 0x00ff) == MDM_CAPI_NEG_DISABLED) { cai[8] |= DSP_CAI_MODEM_NEGOTIATE_DISABLED; dbug(1, dprintf("MDM: DISABLED")); } cai[0] = 20; if ((plci->adapter->man_profile.private_options & (1L << PRIVATE_V18)) && (GET_WORD(mdm_cfg[5].info) & 0x8000)) /* Private V.18 enable */ { plci->requested_options |= 1L << PRIVATE_V18; } if (GET_WORD(mdm_cfg[5].info) & 0x4000) /* Private VOWN enable */ plci->requested_options |= 1L << PRIVATE_VOWN; if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id - 1]) & ((1L << PRIVATE_V18) | (1L << PRIVATE_VOWN))) { if (!api_parse(&bp_parms[3].info[1], (word)bp_parms[3].length, "wwwwwws", mdm_cfg)) { i = 27; if (mdm_cfg[6].length >= 4) { d = GET_DWORD(&mdm_cfg[6].info[1]); cai[7] |= (byte) d; /* line taking options */ cai[9] |= (byte)(d >> 8); /* modulation options */ cai[++i] = (byte)(d >> 16); /* vown modulation options */ cai[++i] = (byte)(d >> 24); if (mdm_cfg[6].length >= 8) { d = GET_DWORD(&mdm_cfg[6].info[5]); cai[10] |= (byte) d; /* disabled modulations mask */ cai[11] |= (byte)(d >> 8); if (mdm_cfg[6].length >= 12) { d = GET_DWORD(&mdm_cfg[6].info[9]); cai[12] = (byte) d; /* enabled modulations mask */ cai[++i] = (byte)(d >> 8); /* vown enabled modulations */ cai[++i] = (byte)(d >> 16); cai[++i] = (byte)(d >> 24); cai[++i] = 0; if (mdm_cfg[6].length >= 14) { w = GET_WORD(&mdm_cfg[6].info[13]); if (w != 0) PUT_WORD(&cai[13], w); /* min tx speed */ if (mdm_cfg[6].length >= 16) { w = GET_WORD(&mdm_cfg[6].info[15]); if (w != 0) PUT_WORD(&cai[15], w); /* max tx speed */ if (mdm_cfg[6].length >= 18) { w = GET_WORD(&mdm_cfg[6].info[17]); if (w != 0) PUT_WORD(&cai[17], w); /* min rx speed */ if (mdm_cfg[6].length >= 20) { w = GET_WORD(&mdm_cfg[6].info[19]); if (w != 0) PUT_WORD(&cai[19], w); /* max rx speed */ if (mdm_cfg[6].length >= 22) { w = GET_WORD(&mdm_cfg[6].info[21]); cai[23] = (byte)(-((short) w)); /* transmit level */ if (mdm_cfg[6].length >= 24) { w = GET_WORD(&mdm_cfg[6].info[23]); cai[22] |= (byte) w; /* info options mask */ cai[21] |= (byte)(w >> 8); /* disabled symbol rates */ } } } } } } } } } cai[27] = i - 27; i++; if (!api_parse(&bp_parms[3].info[1], (word)bp_parms[3].length, "wwwwwwss", mdm_cfg)) { if (!api_parse(&mdm_cfg[7].info[1], (word)mdm_cfg[7].length, "sss", mdm_cfg_v18)) { for (n = 0; n < 3; n++) { cai[i] = (byte)(mdm_cfg_v18[n].length); for (j = 1; j < ((word)(cai[i] + 1)); j++) cai[i + j] = mdm_cfg_v18[n].info[j]; i += cai[i] + 1; } } } cai[0] = (byte)(i - 1); } } } } if (GET_WORD(bp_parms[0].info) == 2 || /* V.110 async */ GET_WORD(bp_parms[0].info) == 3) /* V.110 sync */ { if (bp_parms[3].length) { dbug(1, dprintf("V.110,%d", GET_WORD(&bp_parms[3].info[1]))); switch (GET_WORD(&bp_parms[3].info[1])) { /* Rate */ case 0: case 56000: if (GET_WORD(bp_parms[0].info) == 3) { /* V.110 sync 56k */ dbug(1, dprintf("56k sync HSCX")); cai[1] = 8; cai[2] = 0; cai[3] = 0; } else if (GET_WORD(bp_parms[0].info) == 2) { dbug(1, dprintf("56k async DSP")); cai[2] = 9; } break; case 50: cai[2] = 1; break; case 75: cai[2] = 1; break; case 110: cai[2] = 1; break; case 150: cai[2] = 1; break; case 200: cai[2] = 1; break; case 300: cai[2] = 1; break; case 600: cai[2] = 1; break; case 1200: cai[2] = 2; break; case 2400: cai[2] = 3; break; case 4800: cai[2] = 4; break; case 7200: cai[2] = 10; break; case 9600: cai[2] = 5; break; case 12000: cai[2] = 13; break; case 24000: cai[2] = 0; break; case 14400: cai[2] = 11; break; case 19200: cai[2] = 6; break; case 28800: cai[2] = 12; break; case 38400: cai[2] = 7; break; case 48000: cai[2] = 8; break; case 76: cai[2] = 15; break; /* 75/1200 */ case 1201: cai[2] = 14; break; /* 1200/75 */ case 56001: cai[2] = 9; break; /* V.110 56000 */ default: return _B1_PARM_NOT_SUPPORTED; } cai[3] = 0; if (cai[1] == 13) /* v.110 async */ { if (bp_parms[3].length >= 8) { switch (GET_WORD(&bp_parms[3].info[3])) { /* char length */ case 5: cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_5; break; case 6: cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_6; break; case 7: cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_7; break; } switch (GET_WORD(&bp_parms[3].info[5])) { /* Parity */ case 1: /* odd parity */ cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_ODD); break; case 2: /* even parity */ cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_EVEN); break; } switch (GET_WORD(&bp_parms[3].info[7])) { /* stop bits */ case 1: /* 2 stop bits */ cai[3] |= DSP_CAI_ASYNC_TWO_STOP_BITS; break; } } } } else if (cai[1] == 8 || GET_WORD(bp_parms[0].info) == 3) { dbug(1, dprintf("V.110 default 56k sync")); cai[1] = 8; cai[2] = 0; cai[3] = 0; } else { dbug(1, dprintf("V.110 default 9600 async")); cai[2] = 5; } } PUT_WORD(&cai[5], plci->appl->MaxDataLength); dbug(1, dprintf("CAI[%d]=%x,%x,%x,%x,%x,%x", cai[0], cai[1], cai[2], cai[3], cai[4], cai[5], cai[6])); /* HexDump ("CAI", sizeof(cai), &cai[0]); */ add_p(plci, CAI, cai); return 0; } /*------------------------------------------------------------------*/ /* put parameter for b2 and B3 protocol in the parameter buffer */ /*------------------------------------------------------------------*/ static word add_b23(PLCI *plci, API_PARSE *bp) { word i, fax_control_bits; byte pos, len; byte SAPI = 0x40; /* default SAPI 16 for x.31 */ API_PARSE bp_parms[8]; API_PARSE *b1_config; API_PARSE *b2_config; API_PARSE b2_config_parms[8]; API_PARSE *b3_config; API_PARSE b3_config_parms[6]; API_PARSE global_config[2]; static byte llc[3] = {2,0,0}; static byte dlc[20] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; static byte nlc[256]; static byte lli[12] = {1,1}; const byte llc2_out[] = {1,2,4,6,2,0,0,0, X75_V42BIS,V120_L2,V120_V42BIS,V120_L2,6}; const byte llc2_in[] = {1,3,4,6,3,0,0,0, X75_V42BIS,V120_L2,V120_V42BIS,V120_L2,6}; const byte llc3[] = {4,3,2,2,6,6,0}; const byte header[] = {0,2,3,3,0,0,0}; for (i = 0; i < 8; i++) bp_parms[i].length = 0; for (i = 0; i < 6; i++) b2_config_parms[i].length = 0; for (i = 0; i < 5; i++) b3_config_parms[i].length = 0; lli[0] = 1; lli[1] = 1; if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XONOFF_FLOW_CONTROL) lli[1] |= 2; if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_OOB_CHANNEL) lli[1] |= 4; if ((lli[1] & 0x02) && (diva_xdi_extended_features & DIVA_CAPI_USE_CMA)) { lli[1] |= 0x10; if (plci->rx_dma_descriptor <= 0) { plci->rx_dma_descriptor = diva_get_dma_descriptor(plci, &plci->rx_dma_magic); if (plci->rx_dma_descriptor >= 0) plci->rx_dma_descriptor++; } if (plci->rx_dma_descriptor > 0) { lli[0] = 6; lli[1] |= 0x40; lli[2] = (byte)(plci->rx_dma_descriptor - 1); lli[3] = (byte)plci->rx_dma_magic; lli[4] = (byte)(plci->rx_dma_magic >> 8); lli[5] = (byte)(plci->rx_dma_magic >> 16); lli[6] = (byte)(plci->rx_dma_magic >> 24); } } if (DIVA_CAPI_SUPPORTS_NO_CANCEL(plci->adapter)) { lli[1] |= 0x20; } dbug(1, dprintf("add_b23")); api_save_msg(bp, "s", &plci->B_protocol); if (!bp->length && plci->tel) { plci->adv_nl = true; dbug(1, dprintf("Default adv.Nl")); add_p(plci, LLI, lli); plci->B2_prot = 1 /*XPARENT*/; plci->B3_prot = 0 /*XPARENT*/; llc[1] = 2; llc[2] = 4; add_p(plci, LLC, llc); dlc[0] = 2; PUT_WORD(&dlc[1], plci->appl->MaxDataLength); add_p(plci, DLC, dlc); return 0; } if (!bp->length) /*default*/ { dbug(1, dprintf("ret default")); add_p(plci, LLI, lli); plci->B2_prot = 0 /*X.75 */; plci->B3_prot = 0 /*XPARENT*/; llc[1] = 1; llc[2] = 4; add_p(plci, LLC, llc); dlc[0] = 2; PUT_WORD(&dlc[1], plci->appl->MaxDataLength); add_p(plci, DLC, dlc); return 0; } dbug(1, dprintf("b_prot_len=%d", (word)bp->length)); if ((word)bp->length > 256) return _WRONG_MESSAGE_FORMAT; if (api_parse(&bp->info[1], (word)bp->length, "wwwsssb", bp_parms)) { bp_parms[6].length = 0; if (api_parse(&bp->info[1], (word)bp->length, "wwwsss", bp_parms)) { dbug(1, dprintf("b-form.!")); return _WRONG_MESSAGE_FORMAT; } } else if (api_parse(&bp->info[1], (word)bp->length, "wwwssss", bp_parms)) { dbug(1, dprintf("b-form.!")); return _WRONG_MESSAGE_FORMAT; } if (plci->tel == ADV_VOICE) /* transparent B on advanced voice */ { if (GET_WORD(bp_parms[1].info) != 1 || GET_WORD(bp_parms[2].info) != 0) return _B2_NOT_SUPPORTED; plci->adv_nl = true; } else if (plci->tel) return _B2_NOT_SUPPORTED; if ((GET_WORD(bp_parms[1].info) == B2_RTP) && (GET_WORD(bp_parms[2].info) == B3_RTP) && (plci->adapter->man_profile.private_options & (1L << PRIVATE_RTP))) { add_p(plci, LLI, lli); plci->B2_prot = (byte) GET_WORD(bp_parms[1].info); plci->B3_prot = (byte) GET_WORD(bp_parms[2].info); llc[1] = (plci->call_dir & (CALL_DIR_ORIGINATE | CALL_DIR_FORCE_OUTG_NL)) ? 14 : 13; llc[2] = 4; add_p(plci, LLC, llc); dlc[0] = 2; PUT_WORD(&dlc[1], plci->appl->MaxDataLength); dlc[3] = 3; /* Addr A */ dlc[4] = 1; /* Addr B */ dlc[5] = 7; /* modulo mode */ dlc[6] = 7; /* window size */ dlc[7] = 0; /* XID len Lo */ dlc[8] = 0; /* XID len Hi */ for (i = 0; i < bp_parms[4].length; i++) dlc[9 + i] = bp_parms[4].info[1 + i]; dlc[0] = (byte)(8 + bp_parms[4].length); add_p(plci, DLC, dlc); for (i = 0; i < bp_parms[5].length; i++) nlc[1 + i] = bp_parms[5].info[1 + i]; nlc[0] = (byte)(bp_parms[5].length); add_p(plci, NLC, nlc); return 0; } if ((GET_WORD(bp_parms[1].info) >= 32) || (!((1L << GET_WORD(bp_parms[1].info)) & plci->adapter->profile.B2_Protocols) && ((GET_WORD(bp_parms[1].info) != B2_PIAFS) || !(plci->adapter->man_profile.private_options & (1L << PRIVATE_PIAFS))))) { return _B2_NOT_SUPPORTED; } if ((GET_WORD(bp_parms[2].info) >= 32) || !((1L << GET_WORD(bp_parms[2].info)) & plci->adapter->profile.B3_Protocols)) { return _B3_NOT_SUPPORTED; } if ((GET_WORD(bp_parms[1].info) != B2_SDLC) && ((GET_WORD(bp_parms[0].info) == B1_MODEM_ALL_NEGOTIATE) || (GET_WORD(bp_parms[0].info) == B1_MODEM_ASYNC) || (GET_WORD(bp_parms[0].info) == B1_MODEM_SYNC_HDLC))) { return (add_modem_b23(plci, bp_parms)); } add_p(plci, LLI, lli); plci->B2_prot = (byte)GET_WORD(bp_parms[1].info); plci->B3_prot = (byte)GET_WORD(bp_parms[2].info); if (plci->B2_prot == 12) SAPI = 0; /* default SAPI D-channel */ if (bp_parms[6].length) { if (api_parse(&bp_parms[6].info[1], (word)bp_parms[6].length, "w", global_config)) { return _WRONG_MESSAGE_FORMAT; } switch (GET_WORD(global_config[0].info)) { case 1: plci->call_dir = (plci->call_dir & ~CALL_DIR_ANSWER) | CALL_DIR_ORIGINATE; break; case 2: plci->call_dir = (plci->call_dir & ~CALL_DIR_ORIGINATE) | CALL_DIR_ANSWER; break; } } dbug(1, dprintf("call_dir=%04x", plci->call_dir)); if (plci->B2_prot == B2_PIAFS) llc[1] = PIAFS_CRC; else /* IMPLEMENT_PIAFS */ { llc[1] = (plci->call_dir & (CALL_DIR_ORIGINATE | CALL_DIR_FORCE_OUTG_NL)) ? llc2_out[GET_WORD(bp_parms[1].info)] : llc2_in[GET_WORD(bp_parms[1].info)]; } llc[2] = llc3[GET_WORD(bp_parms[2].info)]; add_p(plci, LLC, llc); dlc[0] = 2; PUT_WORD(&dlc[1], plci->appl->MaxDataLength + header[GET_WORD(bp_parms[2].info)]); b1_config = &bp_parms[3]; nlc[0] = 0; if (plci->B3_prot == 4 || plci->B3_prot == 5) { for (i = 0; i < sizeof(T30_INFO); i++) nlc[i] = 0; nlc[0] = sizeof(T30_INFO); if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS) ((T30_INFO *)&nlc[1])->operating_mode = T30_OPERATING_MODE_CAPI; ((T30_INFO *)&nlc[1])->rate_div_2400 = 0xff; if (b1_config->length >= 2) { ((T30_INFO *)&nlc[1])->rate_div_2400 = (byte)(GET_WORD(&b1_config->info[1]) / 2400); } } b2_config = &bp_parms[4]; if (llc[1] == PIAFS_CRC) { if (plci->B3_prot != B3_TRANSPARENT) { return _B_STACK_NOT_SUPPORTED; } if (b2_config->length && api_parse(&b2_config->info[1], (word)b2_config->length, "bwww", b2_config_parms)) { return _WRONG_MESSAGE_FORMAT; } PUT_WORD(&dlc[1], plci->appl->MaxDataLength); dlc[3] = 0; /* Addr A */ dlc[4] = 0; /* Addr B */ dlc[5] = 0; /* modulo mode */ dlc[6] = 0; /* window size */ if (b2_config->length >= 7) { dlc[7] = 7; dlc[8] = 0; dlc[9] = b2_config_parms[0].info[0]; /* PIAFS protocol Speed configuration */ dlc[10] = b2_config_parms[1].info[0]; /* V.42bis P0 */ dlc[11] = b2_config_parms[1].info[1]; /* V.42bis P0 */ dlc[12] = b2_config_parms[2].info[0]; /* V.42bis P1 */ dlc[13] = b2_config_parms[2].info[1]; /* V.42bis P1 */ dlc[14] = b2_config_parms[3].info[0]; /* V.42bis P2 */ dlc[15] = b2_config_parms[3].info[1]; /* V.42bis P2 */ dlc[0] = 15; if (b2_config->length >= 8) { /* PIAFS control abilities */ dlc[7] = 10; dlc[16] = 2; /* Length of PIAFS extension */ dlc[17] = PIAFS_UDATA_ABILITIES; /* control (UDATA) ability */ dlc[18] = b2_config_parms[4].info[0]; /* value */ dlc[0] = 18; } } else /* default values, 64K, variable, no compression */ { dlc[7] = 7; dlc[8] = 0; dlc[9] = 0x03; /* PIAFS protocol Speed configuration */ dlc[10] = 0x03; /* V.42bis P0 */ dlc[11] = 0; /* V.42bis P0 */ dlc[12] = 0; /* V.42bis P1 */ dlc[13] = 0; /* V.42bis P1 */ dlc[14] = 0; /* V.42bis P2 */ dlc[15] = 0; /* V.42bis P2 */ dlc[0] = 15; } add_p(plci, DLC, dlc); } else if ((llc[1] == V120_L2) || (llc[1] == V120_V42BIS)) { if (plci->B3_prot != B3_TRANSPARENT) return _B_STACK_NOT_SUPPORTED; dlc[0] = 6; PUT_WORD(&dlc[1], GET_WORD(&dlc[1]) + 2); dlc[3] = 0x08; dlc[4] = 0x01; dlc[5] = 127; dlc[6] = 7; if (b2_config->length != 0) { if ((llc[1] == V120_V42BIS) && api_parse(&b2_config->info[1], (word)b2_config->length, "bbbbwww", b2_config_parms)) { return _WRONG_MESSAGE_FORMAT; } dlc[3] = (byte)((b2_config->info[2] << 3) | ((b2_config->info[1] >> 5) & 0x04)); dlc[4] = (byte)((b2_config->info[1] << 1) | 0x01); if (b2_config->info[3] != 128) { dbug(1, dprintf("1D-dlc= %x %x %x %x %x", dlc[0], dlc[1], dlc[2], dlc[3], dlc[4])); return _B2_PARM_NOT_SUPPORTED; } dlc[5] = (byte)(b2_config->info[3] - 1); dlc[6] = b2_config->info[4]; if (llc[1] == V120_V42BIS) { if (b2_config->length >= 10) { dlc[7] = 6; dlc[8] = 0; dlc[9] = b2_config_parms[4].info[0]; dlc[10] = b2_config_parms[4].info[1]; dlc[11] = b2_config_parms[5].info[0]; dlc[12] = b2_config_parms[5].info[1]; dlc[13] = b2_config_parms[6].info[0]; dlc[14] = b2_config_parms[6].info[1]; dlc[0] = 14; dbug(1, dprintf("b2_config_parms[4].info[0] [1]: %x %x", b2_config_parms[4].info[0], b2_config_parms[4].info[1])); dbug(1, dprintf("b2_config_parms[5].info[0] [1]: %x %x", b2_config_parms[5].info[0], b2_config_parms[5].info[1])); dbug(1, dprintf("b2_config_parms[6].info[0] [1]: %x %x", b2_config_parms[6].info[0], b2_config_parms[6].info[1])); } else { dlc[6] = 14; } } } } else { if (b2_config->length) { dbug(1, dprintf("B2-Config")); if (llc[1] == X75_V42BIS) { if (api_parse(&b2_config->info[1], (word)b2_config->length, "bbbbwww", b2_config_parms)) { return _WRONG_MESSAGE_FORMAT; } } else { if (api_parse(&b2_config->info[1], (word)b2_config->length, "bbbbs", b2_config_parms)) { return _WRONG_MESSAGE_FORMAT; } } /* if B2 Protocol is LAPD, b2_config structure is different */ if (llc[1] == 6) { dlc[0] = 4; if (b2_config->length >= 1) dlc[2] = b2_config->info[1]; /* TEI */ else dlc[2] = 0x01; if ((b2_config->length >= 2) && (plci->B2_prot == 12)) { SAPI = b2_config->info[2]; /* SAPI */ } dlc[1] = SAPI; if ((b2_config->length >= 3) && (b2_config->info[3] == 128)) { dlc[3] = 127; /* Mode */ } else { dlc[3] = 7; /* Mode */ } if (b2_config->length >= 4) dlc[4] = b2_config->info[4]; /* Window */ else dlc[4] = 1; dbug(1, dprintf("D-dlc[%d]=%x,%x,%x,%x", dlc[0], dlc[1], dlc[2], dlc[3], dlc[4])); if (b2_config->length > 5) return _B2_PARM_NOT_SUPPORTED; } else { dlc[0] = (byte)(b2_config_parms[4].length + 6); dlc[3] = b2_config->info[1]; dlc[4] = b2_config->info[2]; if (b2_config->info[3] != 8 && b2_config->info[3] != 128) { dbug(1, dprintf("1D-dlc= %x %x %x %x %x", dlc[0], dlc[1], dlc[2], dlc[3], dlc[4])); return _B2_PARM_NOT_SUPPORTED; } dlc[5] = (byte)(b2_config->info[3] - 1); dlc[6] = b2_config->info[4]; if (dlc[6] > dlc[5]) { dbug(1, dprintf("2D-dlc= %x %x %x %x %x %x %x", dlc[0], dlc[1], dlc[2], dlc[3], dlc[4], dlc[5], dlc[6])); return _B2_PARM_NOT_SUPPORTED; } if (llc[1] == X75_V42BIS) { if (b2_config->length >= 10) { dlc[7] = 6; dlc[8] = 0; dlc[9] = b2_config_parms[4].info[0]; dlc[10] = b2_config_parms[4].info[1]; dlc[11] = b2_config_parms[5].info[0]; dlc[12] = b2_config_parms[5].info[1]; dlc[13] = b2_config_parms[6].info[0]; dlc[14] = b2_config_parms[6].info[1]; dlc[0] = 14; dbug(1, dprintf("b2_config_parms[4].info[0] [1]: %x %x", b2_config_parms[4].info[0], b2_config_parms[4].info[1])); dbug(1, dprintf("b2_config_parms[5].info[0] [1]: %x %x", b2_config_parms[5].info[0], b2_config_parms[5].info[1])); dbug(1, dprintf("b2_config_parms[6].info[0] [1]: %x %x", b2_config_parms[6].info[0], b2_config_parms[6].info[1])); } else { dlc[6] = 14; } } else { PUT_WORD(&dlc[7], (word)b2_config_parms[4].length); for (i = 0; i < b2_config_parms[4].length; i++) dlc[11 + i] = b2_config_parms[4].info[1 + i]; } } } } add_p(plci, DLC, dlc); b3_config = &bp_parms[5]; if (b3_config->length) { if (plci->B3_prot == 4 || plci->B3_prot == 5) { if (api_parse(&b3_config->info[1], (word)b3_config->length, "wwss", b3_config_parms)) { return _WRONG_MESSAGE_FORMAT; } i = GET_WORD((byte *)(b3_config_parms[0].info)); ((T30_INFO *)&nlc[1])->resolution = (byte)(((i & 0x0001) || ((plci->B3_prot == 4) && (((byte)(GET_WORD((byte *)b3_config_parms[1].info))) != 5))) ? T30_RESOLUTION_R8_0770_OR_200 : 0); ((T30_INFO *)&nlc[1])->data_format = (byte)(GET_WORD((byte *)b3_config_parms[1].info)); fax_control_bits = T30_CONTROL_BIT_ALL_FEATURES; if ((((T30_INFO *)&nlc[1])->rate_div_2400 != 0) && (((T30_INFO *)&nlc[1])->rate_div_2400 <= 6)) fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_V34FAX; if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS) { if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id - 1]) & (1L << PRIVATE_FAX_PAPER_FORMATS)) { ((T30_INFO *)&nlc[1])->resolution |= T30_RESOLUTION_R8_1540 | T30_RESOLUTION_R16_1540_OR_400 | T30_RESOLUTION_300_300 | T30_RESOLUTION_INCH_BASED | T30_RESOLUTION_METRIC_BASED; } ((T30_INFO *)&nlc[1])->recording_properties = T30_RECORDING_WIDTH_ISO_A3 | (T30_RECORDING_LENGTH_UNLIMITED << 2) | (T30_MIN_SCANLINE_TIME_00_00_00 << 4); } if (plci->B3_prot == 5) { if (i & 0x0002) /* Accept incoming fax-polling requests */ fax_control_bits |= T30_CONTROL_BIT_ACCEPT_POLLING; if (i & 0x2000) /* Do not use MR compression */ fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_2D_CODING; if (i & 0x4000) /* Do not use MMR compression */ fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_T6_CODING; if (i & 0x8000) /* Do not use ECM */ fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_ECM; if (plci->fax_connect_info_length != 0) { ((T30_INFO *)&nlc[1])->resolution = ((T30_INFO *)plci->fax_connect_info_buffer)->resolution; ((T30_INFO *)&nlc[1])->data_format = ((T30_INFO *)plci->fax_connect_info_buffer)->data_format; ((T30_INFO *)&nlc[1])->recording_properties = ((T30_INFO *)plci->fax_connect_info_buffer)->recording_properties; fax_control_bits |= GET_WORD(&((T30_INFO *)plci->fax_connect_info_buffer)->control_bits_low) & (T30_CONTROL_BIT_REQUEST_POLLING | T30_CONTROL_BIT_MORE_DOCUMENTS); } } /* copy station id to NLC */ for (i = 0; i < T30_MAX_STATION_ID_LENGTH; i++) { if (i < b3_config_parms[2].length) { ((T30_INFO *)&nlc[1])->station_id[i] = ((byte *)b3_config_parms[2].info)[1 + i]; } else { ((T30_INFO *)&nlc[1])->station_id[i] = ' '; } } ((T30_INFO *)&nlc[1])->station_id_len = T30_MAX_STATION_ID_LENGTH; /* copy head line to NLC */ if (b3_config_parms[3].length) { pos = (byte)(fax_head_line_time(&(((T30_INFO *)&nlc[1])->station_id[T30_MAX_STATION_ID_LENGTH]))); if (pos != 0) { if (CAPI_MAX_DATE_TIME_LENGTH + 2 + b3_config_parms[3].length > CAPI_MAX_HEAD_LINE_SPACE) pos = 0; else { nlc[1 + offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH + pos++] = ' '; nlc[1 + offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH + pos++] = ' '; len = (byte)b3_config_parms[2].length; if (len > 20) len = 20; if (CAPI_MAX_DATE_TIME_LENGTH + 2 + len + 2 + b3_config_parms[3].length <= CAPI_MAX_HEAD_LINE_SPACE) { for (i = 0; i < len; i++) nlc[1 + offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH + pos++] = ((byte *)b3_config_parms[2].info)[1 + i]; nlc[1 + offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH + pos++] = ' '; nlc[1 + offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH + pos++] = ' '; } } } len = (byte)b3_config_parms[3].length; if (len > CAPI_MAX_HEAD_LINE_SPACE - pos) len = (byte)(CAPI_MAX_HEAD_LINE_SPACE - pos); ((T30_INFO *)&nlc[1])->head_line_len = (byte)(pos + len); nlc[0] += (byte)(pos + len); for (i = 0; i < len; i++) nlc[1 + offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH + pos++] = ((byte *)b3_config_parms[3].info)[1 + i]; } else ((T30_INFO *)&nlc[1])->head_line_len = 0; plci->nsf_control_bits = 0; if (plci->B3_prot == 5) { if ((plci->adapter->man_profile.private_options & (1L << PRIVATE_FAX_SUB_SEP_PWD)) && (GET_WORD((byte *)b3_config_parms[1].info) & 0x8000)) /* Private SUB/SEP/PWD enable */ { plci->requested_options |= 1L << PRIVATE_FAX_SUB_SEP_PWD; } if ((plci->adapter->man_profile.private_options & (1L << PRIVATE_FAX_NONSTANDARD)) && (GET_WORD((byte *)b3_config_parms[1].info) & 0x4000)) /* Private non-standard facilities enable */ { plci->requested_options |= 1L << PRIVATE_FAX_NONSTANDARD; } if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id - 1]) & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD))) { if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id - 1]) & (1L << PRIVATE_FAX_SUB_SEP_PWD)) { fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SUBADDRESS | T30_CONTROL_BIT_ACCEPT_PASSWORD; if (fax_control_bits & T30_CONTROL_BIT_ACCEPT_POLLING) fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SEL_POLLING; } len = nlc[0]; pos = offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH; if (pos < plci->fax_connect_info_length) { for (i = 1 + plci->fax_connect_info_buffer[pos]; i != 0; i--) nlc[++len] = plci->fax_connect_info_buffer[pos++]; } else nlc[++len] = 0; if (pos < plci->fax_connect_info_length) { for (i = 1 + plci->fax_connect_info_buffer[pos]; i != 0; i--) nlc[++len] = plci->fax_connect_info_buffer[pos++]; } else nlc[++len] = 0; if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id - 1]) & (1L << PRIVATE_FAX_NONSTANDARD)) { if ((pos < plci->fax_connect_info_length) && (plci->fax_connect_info_buffer[pos] != 0)) { if ((plci->fax_connect_info_buffer[pos] >= 3) && (plci->fax_connect_info_buffer[pos + 1] >= 2)) plci->nsf_control_bits = GET_WORD(&plci->fax_connect_info_buffer[pos + 2]); for (i = 1 + plci->fax_connect_info_buffer[pos]; i != 0; i--) nlc[++len] = plci->fax_connect_info_buffer[pos++]; } else { if (api_parse(&b3_config->info[1], (word)b3_config->length, "wwsss", b3_config_parms)) { dbug(1, dprintf("non-standard facilities info missing or wrong format")); nlc[++len] = 0; } else { if ((b3_config_parms[4].length >= 3) && (b3_config_parms[4].info[1] >= 2)) plci->nsf_control_bits = GET_WORD(&b3_config_parms[4].info[2]); nlc[++len] = (byte)(b3_config_parms[4].length); for (i = 0; i < b3_config_parms[4].length; i++) nlc[++len] = b3_config_parms[4].info[1 + i]; } } } nlc[0] = len; if ((plci->nsf_control_bits & T30_NSF_CONTROL_BIT_ENABLE_NSF) && (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_NEGOTIATE_RESP)) { ((T30_INFO *)&nlc[1])->operating_mode = T30_OPERATING_MODE_CAPI_NEG; } } } PUT_WORD(&(((T30_INFO *)&nlc[1])->control_bits_low), fax_control_bits); len = offsetof(T30_INFO, station_id) + T30_MAX_STATION_ID_LENGTH; for (i = 0; i < len; i++) plci->fax_connect_info_buffer[i] = nlc[1 + i]; ((T30_INFO *) plci->fax_connect_info_buffer)->head_line_len = 0; i += ((T30_INFO *)&nlc[1])->head_line_len; while (i < nlc[0]) plci->fax_connect_info_buffer[len++] = nlc[++i]; plci->fax_connect_info_length = len; } else { nlc[0] = 14; if (b3_config->length != 16) return _B3_PARM_NOT_SUPPORTED; for (i = 0; i < 12; i++) nlc[1 + i] = b3_config->info[1 + i]; if (GET_WORD(&b3_config->info[13]) != 8 && GET_WORD(&b3_config->info[13]) != 128) return _B3_PARM_NOT_SUPPORTED; nlc[13] = b3_config->info[13]; if (GET_WORD(&b3_config->info[15]) >= nlc[13]) return _B3_PARM_NOT_SUPPORTED; nlc[14] = b3_config->info[15]; } } else { if (plci->B3_prot == 4 || plci->B3_prot == 5 /*T.30 - FAX*/) return _B3_PARM_NOT_SUPPORTED; } add_p(plci, NLC, nlc); return 0; } /*----------------------------------------------------------------*/ /* make the same as add_b23, but only for the modem related */ /* L2 and L3 B-Chan protocol. */ /* */ /* Enabled L2 and L3 Configurations: */ /* If L1 == Modem all negotiation */ /* only L2 == Modem with full negotiation is allowed */ /* If L1 == Modem async or sync */ /* only L2 == Transparent is allowed */ /* L3 == Modem or L3 == Transparent are allowed */ /* B2 Configuration for modem: */ /* word : enable/disable compression, bitoptions */ /* B3 Configuration for modem: */ /* empty */ /*----------------------------------------------------------------*/ static word add_modem_b23(PLCI *plci, API_PARSE *bp_parms) { static byte lli[12] = {1,1}; static byte llc[3] = {2,0,0}; static byte dlc[16] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; API_PARSE mdm_config[2]; word i; word b2_config = 0; for (i = 0; i < 2; i++) mdm_config[i].length = 0; for (i = 0; i < sizeof(dlc); i++) dlc[i] = 0; if (((GET_WORD(bp_parms[0].info) == B1_MODEM_ALL_NEGOTIATE) && (GET_WORD(bp_parms[1].info) != B2_MODEM_EC_COMPRESSION)) || ((GET_WORD(bp_parms[0].info) != B1_MODEM_ALL_NEGOTIATE) && (GET_WORD(bp_parms[1].info) != B2_TRANSPARENT))) { return (_B_STACK_NOT_SUPPORTED); } if ((GET_WORD(bp_parms[2].info) != B3_MODEM) && (GET_WORD(bp_parms[2].info) != B3_TRANSPARENT)) { return (_B_STACK_NOT_SUPPORTED); } plci->B2_prot = (byte) GET_WORD(bp_parms[1].info); plci->B3_prot = (byte) GET_WORD(bp_parms[2].info); if ((GET_WORD(bp_parms[1].info) == B2_MODEM_EC_COMPRESSION) && bp_parms[4].length) { if (api_parse(&bp_parms[4].info[1], (word)bp_parms[4].length, "w", mdm_config)) { return (_WRONG_MESSAGE_FORMAT); } b2_config = GET_WORD(mdm_config[0].info); } /* OK, L2 is modem */ lli[0] = 1; lli[1] = 1; if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XONOFF_FLOW_CONTROL) lli[1] |= 2; if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_OOB_CHANNEL) lli[1] |= 4; if ((lli[1] & 0x02) && (diva_xdi_extended_features & DIVA_CAPI_USE_CMA)) { lli[1] |= 0x10; if (plci->rx_dma_descriptor <= 0) { plci->rx_dma_descriptor = diva_get_dma_descriptor(plci, &plci->rx_dma_magic); if (plci->rx_dma_descriptor >= 0) plci->rx_dma_descriptor++; } if (plci->rx_dma_descriptor > 0) { lli[1] |= 0x40; lli[0] = 6; lli[2] = (byte)(plci->rx_dma_descriptor - 1); lli[3] = (byte)plci->rx_dma_magic; lli[4] = (byte)(plci->rx_dma_magic >> 8); lli[5] = (byte)(plci->rx_dma_magic >> 16); lli[6] = (byte)(plci->rx_dma_magic >> 24); } } if (DIVA_CAPI_SUPPORTS_NO_CANCEL(plci->adapter)) { lli[1] |= 0x20; } llc[1] = (plci->call_dir & (CALL_DIR_ORIGINATE | CALL_DIR_FORCE_OUTG_NL)) ? /*V42*/ 10 : /*V42_IN*/ 9; llc[2] = 4; /* pass L3 always transparent */ add_p(plci, LLI, lli); add_p(plci, LLC, llc); i = 1; PUT_WORD(&dlc[i], plci->appl->MaxDataLength); i += 2; if (GET_WORD(bp_parms[1].info) == B2_MODEM_EC_COMPRESSION) { if (bp_parms[4].length) { dbug(1, dprintf("MDM b2_config=%02x", b2_config)); dlc[i++] = 3; /* Addr A */ dlc[i++] = 1; /* Addr B */ dlc[i++] = 7; /* modulo mode */ dlc[i++] = 7; /* window size */ dlc[i++] = 0; /* XID len Lo */ dlc[i++] = 0; /* XID len Hi */ if (b2_config & MDM_B2_DISABLE_V42bis) { dlc[i] |= DLC_MODEMPROT_DISABLE_V42_V42BIS; } if (b2_config & MDM_B2_DISABLE_MNP) { dlc[i] |= DLC_MODEMPROT_DISABLE_MNP_MNP5; } if (b2_config & MDM_B2_DISABLE_TRANS) { dlc[i] |= DLC_MODEMPROT_REQUIRE_PROTOCOL; } if (b2_config & MDM_B2_DISABLE_V42) { dlc[i] |= DLC_MODEMPROT_DISABLE_V42_DETECT; } if (b2_config & MDM_B2_DISABLE_COMP) { dlc[i] |= DLC_MODEMPROT_DISABLE_COMPRESSION; } i++; } } else { dlc[i++] = 3; /* Addr A */ dlc[i++] = 1; /* Addr B */ dlc[i++] = 7; /* modulo mode */ dlc[i++] = 7; /* window size */ dlc[i++] = 0; /* XID len Lo */ dlc[i++] = 0; /* XID len Hi */ dlc[i++] = DLC_MODEMPROT_DISABLE_V42_V42BIS | DLC_MODEMPROT_DISABLE_MNP_MNP5 | DLC_MODEMPROT_DISABLE_V42_DETECT | DLC_MODEMPROT_DISABLE_COMPRESSION; } dlc[0] = (byte)(i - 1); /* HexDump ("DLC", sizeof(dlc), &dlc[0]); */ add_p(plci, DLC, dlc); return (0); } /*------------------------------------------------------------------*/ /* send a request for the signaling entity */ /*------------------------------------------------------------------*/ static void sig_req(PLCI *plci, byte req, byte Id) { if (!plci) return; if (plci->adapter->adapter_disabled) return; dbug(1, dprintf("sig_req(%x)", req)); if (req == REMOVE) plci->sig_remove_id = plci->Sig.Id; if (plci->req_in == plci->req_in_start) { plci->req_in += 2; plci->RBuffer[plci->req_in++] = 0; } PUT_WORD(&plci->RBuffer[plci->req_in_start], plci->req_in-plci->req_in_start - 2); plci->RBuffer[plci->req_in++] = Id; /* sig/nl flag */ plci->RBuffer[plci->req_in++] = req; /* request */ plci->RBuffer[plci->req_in++] = 0; /* channel */ plci->req_in_start = plci->req_in; } /*------------------------------------------------------------------*/ /* send a request for the network layer entity */ /*------------------------------------------------------------------*/ static void nl_req_ncci(PLCI *plci, byte req, byte ncci) { if (!plci) return; if (plci->adapter->adapter_disabled) return; dbug(1, dprintf("nl_req %02x %02x %02x", plci->Id, req, ncci)); if (req == REMOVE) { plci->nl_remove_id = plci->NL.Id; ncci_remove(plci, 0, (byte)(ncci != 0)); ncci = 0; } if (plci->req_in == plci->req_in_start) { plci->req_in += 2; plci->RBuffer[plci->req_in++] = 0; } PUT_WORD(&plci->RBuffer[plci->req_in_start], plci->req_in-plci->req_in_start - 2); plci->RBuffer[plci->req_in++] = 1; /* sig/nl flag */ plci->RBuffer[plci->req_in++] = req; /* request */ plci->RBuffer[plci->req_in++] = plci->adapter->ncci_ch[ncci]; /* channel */ plci->req_in_start = plci->req_in; } static void send_req(PLCI *plci) { ENTITY *e; word l; /* word i; */ if (!plci) return; if (plci->adapter->adapter_disabled) return; channel_xmit_xon(plci); /* if nothing to do, return */ if (plci->req_in == plci->req_out) return; dbug(1, dprintf("send_req(in=%d,out=%d)", plci->req_in, plci->req_out)); if (plci->nl_req || plci->sig_req) return; l = GET_WORD(&plci->RBuffer[plci->req_out]); plci->req_out += 2; plci->XData[0].P = &plci->RBuffer[plci->req_out]; plci->req_out += l; if (plci->RBuffer[plci->req_out] == 1) { e = &plci->NL; plci->req_out++; e->Req = plci->nl_req = plci->RBuffer[plci->req_out++]; e->ReqCh = plci->RBuffer[plci->req_out++]; if (!(e->Id & 0x1f)) { e->Id = NL_ID; plci->RBuffer[plci->req_out - 4] = CAI; plci->RBuffer[plci->req_out - 3] = 1; plci->RBuffer[plci->req_out - 2] = (plci->Sig.Id == 0xff) ? 0 : plci->Sig.Id; plci->RBuffer[plci->req_out - 1] = 0; l += 3; plci->nl_global_req = plci->nl_req; } dbug(1, dprintf("%x:NLREQ(%x:%x:%x)", plci->adapter->Id, e->Id, e->Req, e->ReqCh)); } else { e = &plci->Sig; if (plci->RBuffer[plci->req_out]) e->Id = plci->RBuffer[plci->req_out]; plci->req_out++; e->Req = plci->sig_req = plci->RBuffer[plci->req_out++]; e->ReqCh = plci->RBuffer[plci->req_out++]; if (!(e->Id & 0x1f)) plci->sig_global_req = plci->sig_req; dbug(1, dprintf("%x:SIGREQ(%x:%x:%x)", plci->adapter->Id, e->Id, e->Req, e->ReqCh)); } plci->XData[0].PLength = l; e->X = plci->XData; plci->adapter->request(e); dbug(1, dprintf("send_ok")); } static void send_data(PLCI *plci) { DIVA_CAPI_ADAPTER *a; DATA_B3_DESC *data; NCCI *ncci_ptr; word ncci; if (!plci->nl_req && plci->ncci_ring_list) { a = plci->adapter; ncci = plci->ncci_ring_list; do { ncci = a->ncci_next[ncci]; ncci_ptr = &(a->ncci[ncci]); if (!(a->ncci_ch[ncci] && (a->ch_flow_control[a->ncci_ch[ncci]] & N_OK_FC_PENDING))) { if (ncci_ptr->data_pending) { if ((a->ncci_state[ncci] == CONNECTED) || (a->ncci_state[ncci] == INC_ACT_PENDING) || (plci->send_disc == ncci)) { data = &(ncci_ptr->DBuffer[ncci_ptr->data_out]); if ((plci->B2_prot == B2_V120_ASYNC) || (plci->B2_prot == B2_V120_ASYNC_V42BIS) || (plci->B2_prot == B2_V120_BIT_TRANSPARENT)) { plci->NData[1].P = TransmitBufferGet(plci->appl, data->P); plci->NData[1].PLength = data->Length; if (data->Flags & 0x10) plci->NData[0].P = v120_break_header; else plci->NData[0].P = v120_default_header; plci->NData[0].PLength = 1; plci->NL.XNum = 2; plci->NL.Req = plci->nl_req = (byte)((data->Flags & 0x07) << 4 | N_DATA); } else { plci->NData[0].P = TransmitBufferGet(plci->appl, data->P); plci->NData[0].PLength = data->Length; if (data->Flags & 0x10) plci->NL.Req = plci->nl_req = (byte)N_UDATA; else if ((plci->B3_prot == B3_RTP) && (data->Flags & 0x01)) plci->NL.Req = plci->nl_req = (byte)N_BDATA; else plci->NL.Req = plci->nl_req = (byte)((data->Flags & 0x07) << 4 | N_DATA); } plci->NL.X = plci->NData; plci->NL.ReqCh = a->ncci_ch[ncci]; dbug(1, dprintf("%x:DREQ(%x:%x)", a->Id, plci->NL.Id, plci->NL.Req)); plci->data_sent = true; plci->data_sent_ptr = data->P; a->request(&plci->NL); } else { cleanup_ncci_data(plci, ncci); } } else if (plci->send_disc == ncci) { /* dprintf("N_DISC"); */ plci->NData[0].PLength = 0; plci->NL.ReqCh = a->ncci_ch[ncci]; plci->NL.Req = plci->nl_req = N_DISC; a->request(&plci->NL); plci->command = _DISCONNECT_B3_R; plci->send_disc = 0; } } } while (!plci->nl_req && (ncci != plci->ncci_ring_list)); plci->ncci_ring_list = ncci; } } static void listen_check(DIVA_CAPI_ADAPTER *a) { word i, j; PLCI *plci; byte activnotifiedcalls = 0; dbug(1, dprintf("listen_check(%d,%d)", a->listen_active, a->max_listen)); if (!remove_started && !a->adapter_disabled) { for (i = 0; i < a->max_plci; i++) { plci = &(a->plci[i]); if (plci->notifiedcall) activnotifiedcalls++; } dbug(1, dprintf("listen_check(%d)", activnotifiedcalls)); for (i = a->listen_active; i < ((word)(a->max_listen + activnotifiedcalls)); i++) { if ((j = get_plci(a))) { a->listen_active++; plci = &a->plci[j - 1]; plci->State = LISTENING; add_p(plci, OAD, "\x01\xfd"); add_p(plci, KEY, "\x04\x43\x41\x32\x30"); add_p(plci, CAI, "\x01\xc0"); add_p(plci, UID, "\x06\x43\x61\x70\x69\x32\x30"); add_p(plci, LLI, "\x01\xc4"); /* support Dummy CR FAC + MWI + SpoofNotify */ add_p(plci, SHIFT | 6, NULL); add_p(plci, SIN, "\x02\x00\x00"); plci->internal_command = LISTEN_SIG_ASSIGN_PEND; /* do indicate_req if OK */ sig_req(plci, ASSIGN, DSIG_ID); send_req(plci); } } } } /*------------------------------------------------------------------*/ /* functions for all parameters sent in INDs */ /*------------------------------------------------------------------*/ static void IndParse(PLCI *plci, word *parms_id, byte **parms, byte multiIEsize) { word ploc; /* points to current location within packet */ byte w; byte wlen; byte codeset, lock; byte *in; word i; word code; word mIEindex = 0; ploc = 0; codeset = 0; lock = 0; in = plci->Sig.RBuffer->P; for (i = 0; i < parms_id[0]; i++) /* multiIE parms_id contains just the 1st */ { /* element but parms array is larger */ parms[i] = (byte *)""; } for (i = 0; i < multiIEsize; i++) { parms[i] = (byte *)""; } while (ploc < plci->Sig.RBuffer->length - 1) { /* read information element id and length */ w = in[ploc]; if (w & 0x80) { /* w &=0xf0; removed, cannot detect congestion levels */ /* upper 4 bit masked with w==SHIFT now */ wlen = 0; } else { wlen = (byte)(in[ploc + 1] + 1); } /* check if length valid (not exceeding end of packet) */ if ((ploc + wlen) > 270) return; if (lock & 0x80) lock &= 0x7f; else codeset = lock; if ((w & 0xf0) == SHIFT) { codeset = in[ploc]; if (!(codeset & 0x08)) lock = (byte)(codeset & 7); codeset &= 7; lock |= 0x80; } else { if (w == ESC && wlen >= 3) code = in[ploc + 2] | 0x800; else code = w; code |= (codeset << 8); for (i = 1; i < parms_id[0] + 1 && parms_id[i] != code; i++); if (i < parms_id[0] + 1) { if (!multiIEsize) { /* with multiIEs use next field index, */ mIEindex = i - 1; /* with normal IEs use same index like parms_id */ } parms[mIEindex] = &in[ploc + 1]; dbug(1, dprintf("mIE[%d]=0x%x", *parms[mIEindex], in[ploc])); if (parms_id[i] == OAD || parms_id[i] == CONN_NR || parms_id[i] == CAD) { if (in[ploc + 2] & 0x80) { in[ploc + 0] = (byte)(in[ploc + 1] + 1); in[ploc + 1] = (byte)(in[ploc + 2] & 0x7f); in[ploc + 2] = 0x80; parms[mIEindex] = &in[ploc]; } } mIEindex++; /* effects multiIEs only */ } } ploc += (wlen + 1); } return; } /*------------------------------------------------------------------*/ /* try to match a cip from received BC and HLC */ /*------------------------------------------------------------------*/ static byte ie_compare(byte *ie1, byte *ie2) { word i; if (!ie1 || !ie2) return false; if (!ie1[0]) return false; for (i = 0; i < (word)(ie1[0] + 1); i++) if (ie1[i] != ie2[i]) return false; return true; } static word find_cip(DIVA_CAPI_ADAPTER *a, byte *bc, byte *hlc) { word i; word j; for (i = 9; i && !ie_compare(bc, cip_bc[i][a->u_law]); i--); for (j = 16; j < 29 && (!ie_compare(bc, cip_bc[j][a->u_law]) || !ie_compare(hlc, cip_hlc[j])); j++); if (j == 29) return i; return j; } static byte AddInfo(byte **add_i, byte **fty_i, byte *esc_chi, byte *facility) { byte i; byte j; byte k; byte flen; byte len = 0; /* facility is a nested structure */ /* FTY can be more than once */ if (esc_chi[0] && !(esc_chi[esc_chi[0]] & 0x7f)) { add_i[0] = (byte *)"\x02\x02\x00"; /* use neither b nor d channel */ } else { add_i[0] = (byte *)""; } if (!fty_i[0][0]) { add_i[3] = (byte *)""; } else { /* facility array found */ for (i = 0, j = 1; i < MAX_MULTI_IE && fty_i[i][0]; i++) { dbug(1, dprintf("AddIFac[%d]", fty_i[i][0])); len += fty_i[i][0]; len += 2; flen = fty_i[i][0]; facility[j++] = 0x1c; /* copy fac IE */ for (k = 0; k <= flen; k++, j++) { facility[j] = fty_i[i][k]; /* dbug(1, dprintf("%x ",facility[j])); */ } } facility[0] = len; add_i[3] = facility; } /* dbug(1, dprintf("FacArrLen=%d ",len)); */ len = add_i[0][0] + add_i[1][0] + add_i[2][0] + add_i[3][0]; len += 4; /* calculate length of all */ return (len); } /*------------------------------------------------------------------*/ /* voice and codec features */ /*------------------------------------------------------------------*/ static void SetVoiceChannel(PLCI *plci, byte *chi, DIVA_CAPI_ADAPTER *a) { byte voice_chi[] = "\x02\x18\x01"; byte channel; channel = chi[chi[0]] & 0x3; dbug(1, dprintf("ExtDevON(Ch=0x%x)", channel)); voice_chi[2] = (channel) ? channel : 1; add_p(plci, FTY, "\x02\x01\x07"); /* B On, default on 1 */ add_p(plci, ESC, voice_chi); /* Channel */ sig_req(plci, TEL_CTRL, 0); send_req(plci); if (a->AdvSignalPLCI) { adv_voice_write_coefs(a->AdvSignalPLCI, ADV_VOICE_WRITE_ACTIVATION); } } static void VoiceChannelOff(PLCI *plci) { dbug(1, dprintf("ExtDevOFF")); add_p(plci, FTY, "\x02\x01\x08"); /* B Off */ sig_req(plci, TEL_CTRL, 0); send_req(plci); if (plci->adapter->AdvSignalPLCI) { adv_voice_clear_config(plci->adapter->AdvSignalPLCI); } } static word AdvCodecSupport(DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, byte hook_listen) { word j; PLCI *splci; /* check if hardware supports handset with hook states (adv.codec) */ /* or if just a on board codec is supported */ /* the advanced codec plci is just for internal use */ /* diva Pro with on-board codec: */ if (a->profile.Global_Options & HANDSET) { /* new call, but hook states are already signalled */ if (a->AdvCodecFLAG) { if (a->AdvSignalAppl != appl || a->AdvSignalPLCI) { dbug(1, dprintf("AdvSigPlci=0x%x", a->AdvSignalPLCI)); return 0x2001; /* codec in use by another application */ } if (plci != NULL) { a->AdvSignalPLCI = plci; plci->tel = ADV_VOICE; } return 0; /* adv codec still used */ } if ((j = get_plci(a))) { splci = &a->plci[j - 1]; splci->tel = CODEC_PERMANENT; /* hook_listen indicates if a facility_req with handset/hook support */ /* was sent. Otherwise if just a call on an external device was made */ /* the codec will be used but the hook info will be discarded (just */ /* the external controller is in use */ if (hook_listen) splci->State = ADVANCED_VOICE_SIG; else { splci->State = ADVANCED_VOICE_NOSIG; if (plci) { plci->spoofed_msg = SPOOFING_REQUIRED; } /* indicate D-ch connect if */ } /* codec is connected OK */ if (plci != NULL) { a->AdvSignalPLCI = plci; plci->tel = ADV_VOICE; } a->AdvSignalAppl = appl; a->AdvCodecFLAG = true; a->AdvCodecPLCI = splci; add_p(splci, CAI, "\x01\x15"); add_p(splci, LLI, "\x01\x00"); add_p(splci, ESC, "\x02\x18\x00"); add_p(splci, UID, "\x06\x43\x61\x70\x69\x32\x30"); splci->internal_command = PERM_COD_ASSIGN; dbug(1, dprintf("Codec Assign")); sig_req(splci, ASSIGN, DSIG_ID); send_req(splci); } else { return 0x2001; /* wrong state, no more plcis */ } } else if (a->profile.Global_Options & ON_BOARD_CODEC) { if (hook_listen) return 0x300B; /* Facility not supported */ /* no hook with SCOM */ if (plci != NULL) plci->tel = CODEC; dbug(1, dprintf("S/SCOM codec")); /* first time we use the scom-s codec we must shut down the internal */ /* handset application of the card. This can be done by an assign with */ /* a cai with the 0x80 bit set. Assign return code is 'out of resource'*/ if (!a->scom_appl_disable) { if ((j = get_plci(a))) { splci = &a->plci[j - 1]; add_p(splci, CAI, "\x01\x80"); add_p(splci, UID, "\x06\x43\x61\x70\x69\x32\x30"); sig_req(splci, ASSIGN, 0xC0); /* 0xc0 is the TEL_ID */ send_req(splci); a->scom_appl_disable = true; } else{ return 0x2001; /* wrong state, no more plcis */ } } } else return 0x300B; /* Facility not supported */ return 0; } static void CodecIdCheck(DIVA_CAPI_ADAPTER *a, PLCI *plci) { dbug(1, dprintf("CodecIdCheck")); if (a->AdvSignalPLCI == plci) { dbug(1, dprintf("PLCI owns codec")); VoiceChannelOff(a->AdvCodecPLCI); if (a->AdvCodecPLCI->State == ADVANCED_VOICE_NOSIG) { dbug(1, dprintf("remove temp codec PLCI")); plci_remove(a->AdvCodecPLCI); a->AdvCodecFLAG = 0; a->AdvCodecPLCI = NULL; a->AdvSignalAppl = NULL; } a->AdvSignalPLCI = NULL; } } /* ------------------------------------------------------------------- Ask for physical address of card on PCI bus ------------------------------------------------------------------- */ static void diva_ask_for_xdi_sdram_bar(DIVA_CAPI_ADAPTER *a, IDI_SYNC_REQ *preq) { a->sdram_bar = 0; if (diva_xdi_extended_features & DIVA_CAPI_XDI_PROVIDES_SDRAM_BAR) { ENTITY *e = (ENTITY *)preq; e->user[0] = a->Id - 1; preq->xdi_sdram_bar.info.bar = 0; preq->xdi_sdram_bar.Req = 0; preq->xdi_sdram_bar.Rc = IDI_SYNC_REQ_XDI_GET_ADAPTER_SDRAM_BAR; (*(a->request))(e); a->sdram_bar = preq->xdi_sdram_bar.info.bar; dbug(3, dprintf("A(%d) SDRAM BAR = %08x", a->Id, a->sdram_bar)); } } /* ------------------------------------------------------------------- Ask XDI about extended features ------------------------------------------------------------------- */ static void diva_get_extended_adapter_features(DIVA_CAPI_ADAPTER *a) { IDI_SYNC_REQ *preq; char buffer[((sizeof(preq->xdi_extended_features) + 4) > sizeof(ENTITY)) ? (sizeof(preq->xdi_extended_features) + 4) : sizeof(ENTITY)]; char features[4]; preq = (IDI_SYNC_REQ *)&buffer[0]; if (!diva_xdi_extended_features) { ENTITY *e = (ENTITY *)preq; diva_xdi_extended_features |= 0x80000000; e->user[0] = a->Id - 1; preq->xdi_extended_features.Req = 0; preq->xdi_extended_features.Rc = IDI_SYNC_REQ_XDI_GET_EXTENDED_FEATURES; preq->xdi_extended_features.info.buffer_length_in_bytes = sizeof(features); preq->xdi_extended_features.info.features = &features[0]; (*(a->request))(e); if (features[0] & DIVA_XDI_EXTENDED_FEATURES_VALID) { /* Check features located in the byte '0' */ if (features[0] & DIVA_XDI_EXTENDED_FEATURE_CMA) { diva_xdi_extended_features |= DIVA_CAPI_USE_CMA; } if (features[0] & DIVA_XDI_EXTENDED_FEATURE_RX_DMA) { diva_xdi_extended_features |= DIVA_CAPI_XDI_PROVIDES_RX_DMA; dbug(1, dprintf("XDI provides RxDMA")); } if (features[0] & DIVA_XDI_EXTENDED_FEATURE_SDRAM_BAR) { diva_xdi_extended_features |= DIVA_CAPI_XDI_PROVIDES_SDRAM_BAR; } if (features[0] & DIVA_XDI_EXTENDED_FEATURE_NO_CANCEL_RC) { diva_xdi_extended_features |= DIVA_CAPI_XDI_PROVIDES_NO_CANCEL; dbug(3, dprintf("XDI provides NO_CANCEL_RC feature")); } } } diva_ask_for_xdi_sdram_bar(a, preq); } /*------------------------------------------------------------------*/ /* automatic law */ /*------------------------------------------------------------------*/ /* called from OS specific part after init time to get the Law */ /* a-law (Euro) and u-law (us,japan) use different BCs in the Setup message */ void AutomaticLaw(DIVA_CAPI_ADAPTER *a) { word j; PLCI *splci; if (a->automatic_law) { return; } if ((j = get_plci(a))) { diva_get_extended_adapter_features(a); splci = &a->plci[j - 1]; a->automatic_lawPLCI = splci; a->automatic_law = 1; add_p(splci, CAI, "\x01\x80"); add_p(splci, UID, "\x06\x43\x61\x70\x69\x32\x30"); splci->internal_command = USELAW_REQ; splci->command = 0; splci->number = 0; sig_req(splci, ASSIGN, DSIG_ID); send_req(splci); } } /* called from OS specific part if an application sends an Capi20Release */ word CapiRelease(word Id) { word i, j, appls_found; PLCI *plci; APPL *this; DIVA_CAPI_ADAPTER *a; if (!Id) { dbug(0, dprintf("A: CapiRelease(Id==0)")); return (_WRONG_APPL_ID); } this = &application[Id - 1]; /* get application pointer */ for (i = 0, appls_found = 0; i < max_appl; i++) { if (application[i].Id) /* an application has been found */ { appls_found++; } } for (i = 0; i < max_adapter; i++) /* scan all adapters... */ { a = &adapter[i]; if (a->request) { a->Info_Mask[Id - 1] = 0; a->CIP_Mask[Id - 1] = 0; a->Notification_Mask[Id - 1] = 0; a->codec_listen[Id - 1] = NULL; a->requested_options_table[Id - 1] = 0; for (j = 0; j < a->max_plci; j++) /* and all PLCIs connected */ { /* with this application */ plci = &a->plci[j]; if (plci->Id) /* if plci owns no application */ { /* it may be not jet connected */ if (plci->State == INC_CON_PENDING || plci->State == INC_CON_ALERT) { if (test_c_ind_mask_bit(plci, (word)(Id - 1))) { clear_c_ind_mask_bit(plci, (word)(Id - 1)); if (c_ind_mask_empty(plci)) { sig_req(plci, HANGUP, 0); send_req(plci); plci->State = OUTG_DIS_PENDING; } } } if (test_c_ind_mask_bit(plci, (word)(Id - 1))) { clear_c_ind_mask_bit(plci, (word)(Id - 1)); if (c_ind_mask_empty(plci)) { if (!plci->appl) { plci_remove(plci); plci->State = IDLE; } } } if (plci->appl == this) { plci->appl = NULL; plci_remove(plci); plci->State = IDLE; } } } listen_check(a); if (a->flag_dynamic_l1_down) { if (appls_found == 1) /* last application does a capi release */ { if ((j = get_plci(a))) { plci = &a->plci[j - 1]; plci->command = 0; add_p(plci, OAD, "\x01\xfd"); add_p(plci, CAI, "\x01\x80"); add_p(plci, UID, "\x06\x43\x61\x70\x69\x32\x30"); add_p(plci, SHIFT | 6, NULL); add_p(plci, SIN, "\x02\x00\x00"); plci->internal_command = REM_L1_SIG_ASSIGN_PEND; sig_req(plci, ASSIGN, DSIG_ID); add_p(plci, FTY, "\x02\xff\x06"); /* l1 down */ sig_req(plci, SIG_CTRL, 0); send_req(plci); } } } if (a->AdvSignalAppl == this) { this->NullCREnable = false; if (a->AdvCodecPLCI) { plci_remove(a->AdvCodecPLCI); a->AdvCodecPLCI->tel = 0; a->AdvCodecPLCI->adv_nl = 0; } a->AdvSignalAppl = NULL; a->AdvSignalPLCI = NULL; a->AdvCodecFLAG = 0; a->AdvCodecPLCI = NULL; } } } this->Id = 0; return GOOD; } static word plci_remove_check(PLCI *plci) { if (!plci) return true; if (!plci->NL.Id && c_ind_mask_empty(plci)) { if (plci->Sig.Id == 0xff) plci->Sig.Id = 0; if (!plci->Sig.Id) { dbug(1, dprintf("plci_remove_complete(%x)", plci->Id)); dbug(1, dprintf("tel=0x%x,Sig=0x%x", plci->tel, plci->Sig.Id)); if (plci->Id) { CodecIdCheck(plci->adapter, plci); clear_b1_config(plci); ncci_remove(plci, 0, false); plci_free_msg_in_queue(plci); channel_flow_control_remove(plci); plci->Id = 0; plci->State = IDLE; plci->channels = 0; plci->appl = NULL; plci->notifiedcall = 0; } listen_check(plci->adapter); return true; } } return false; } /*------------------------------------------------------------------*/ static byte plci_nl_busy(PLCI *plci) { /* only applicable for non-multiplexed protocols */ return (plci->nl_req || (plci->ncci_ring_list && plci->adapter->ncci_ch[plci->ncci_ring_list] && (plci->adapter->ch_flow_control[plci->adapter->ncci_ch[plci->ncci_ring_list]] & N_OK_FC_PENDING))); } /*------------------------------------------------------------------*/ /* DTMF facilities */ /*------------------------------------------------------------------*/ static struct { byte send_mask; byte listen_mask; byte character; byte code; } dtmf_digit_map[] = { { 0x01, 0x01, 0x23, DTMF_DIGIT_TONE_CODE_HASHMARK }, { 0x01, 0x01, 0x2a, DTMF_DIGIT_TONE_CODE_STAR }, { 0x01, 0x01, 0x30, DTMF_DIGIT_TONE_CODE_0 }, { 0x01, 0x01, 0x31, DTMF_DIGIT_TONE_CODE_1 }, { 0x01, 0x01, 0x32, DTMF_DIGIT_TONE_CODE_2 }, { 0x01, 0x01, 0x33, DTMF_DIGIT_TONE_CODE_3 }, { 0x01, 0x01, 0x34, DTMF_DIGIT_TONE_CODE_4 }, { 0x01, 0x01, 0x35, DTMF_DIGIT_TONE_CODE_5 }, { 0x01, 0x01, 0x36, DTMF_DIGIT_TONE_CODE_6 }, { 0x01, 0x01, 0x37, DTMF_DIGIT_TONE_CODE_7 }, { 0x01, 0x01, 0x38, DTMF_DIGIT_TONE_CODE_8 }, { 0x01, 0x01, 0x39, DTMF_DIGIT_TONE_CODE_9 }, { 0x01, 0x01, 0x41, DTMF_DIGIT_TONE_CODE_A }, { 0x01, 0x01, 0x42, DTMF_DIGIT_TONE_CODE_B }, { 0x01, 0x01, 0x43, DTMF_DIGIT_TONE_CODE_C }, { 0x01, 0x01, 0x44, DTMF_DIGIT_TONE_CODE_D }, { 0x01, 0x00, 0x61, DTMF_DIGIT_TONE_CODE_A }, { 0x01, 0x00, 0x62, DTMF_DIGIT_TONE_CODE_B }, { 0x01, 0x00, 0x63, DTMF_DIGIT_TONE_CODE_C }, { 0x01, 0x00, 0x64, DTMF_DIGIT_TONE_CODE_D }, { 0x04, 0x04, 0x80, DTMF_SIGNAL_NO_TONE }, { 0x00, 0x04, 0x81, DTMF_SIGNAL_UNIDENTIFIED_TONE }, { 0x04, 0x04, 0x82, DTMF_SIGNAL_DIAL_TONE }, { 0x04, 0x04, 0x83, DTMF_SIGNAL_PABX_INTERNAL_DIAL_TONE }, { 0x04, 0x04, 0x84, DTMF_SIGNAL_SPECIAL_DIAL_TONE }, { 0x04, 0x04, 0x85, DTMF_SIGNAL_SECOND_DIAL_TONE }, { 0x04, 0x04, 0x86, DTMF_SIGNAL_RINGING_TONE }, { 0x04, 0x04, 0x87, DTMF_SIGNAL_SPECIAL_RINGING_TONE }, { 0x04, 0x04, 0x88, DTMF_SIGNAL_BUSY_TONE }, { 0x04, 0x04, 0x89, DTMF_SIGNAL_CONGESTION_TONE }, { 0x04, 0x04, 0x8a, DTMF_SIGNAL_SPECIAL_INFORMATION_TONE }, { 0x04, 0x04, 0x8b, DTMF_SIGNAL_COMFORT_TONE }, { 0x04, 0x04, 0x8c, DTMF_SIGNAL_HOLD_TONE }, { 0x04, 0x04, 0x8d, DTMF_SIGNAL_RECORD_TONE }, { 0x04, 0x04, 0x8e, DTMF_SIGNAL_CALLER_WAITING_TONE }, { 0x04, 0x04, 0x8f, DTMF_SIGNAL_CALL_WAITING_TONE }, { 0x04, 0x04, 0x90, DTMF_SIGNAL_PAY_TONE }, { 0x04, 0x04, 0x91, DTMF_SIGNAL_POSITIVE_INDICATION_TONE }, { 0x04, 0x04, 0x92, DTMF_SIGNAL_NEGATIVE_INDICATION_TONE }, { 0x04, 0x04, 0x93, DTMF_SIGNAL_WARNING_TONE }, { 0x04, 0x04, 0x94, DTMF_SIGNAL_INTRUSION_TONE }, { 0x04, 0x04, 0x95, DTMF_SIGNAL_CALLING_CARD_SERVICE_TONE }, { 0x04, 0x04, 0x96, DTMF_SIGNAL_PAYPHONE_RECOGNITION_TONE }, { 0x04, 0x04, 0x97, DTMF_SIGNAL_CPE_ALERTING_SIGNAL }, { 0x04, 0x04, 0x98, DTMF_SIGNAL_OFF_HOOK_WARNING_TONE }, { 0x04, 0x04, 0xbf, DTMF_SIGNAL_INTERCEPT_TONE }, { 0x04, 0x04, 0xc0, DTMF_SIGNAL_MODEM_CALLING_TONE }, { 0x04, 0x04, 0xc1, DTMF_SIGNAL_FAX_CALLING_TONE }, { 0x04, 0x04, 0xc2, DTMF_SIGNAL_ANSWER_TONE }, { 0x04, 0x04, 0xc3, DTMF_SIGNAL_REVERSED_ANSWER_TONE }, { 0x04, 0x04, 0xc4, DTMF_SIGNAL_ANSAM_TONE }, { 0x04, 0x04, 0xc5, DTMF_SIGNAL_REVERSED_ANSAM_TONE }, { 0x04, 0x04, 0xc6, DTMF_SIGNAL_BELL103_ANSWER_TONE }, { 0x04, 0x04, 0xc7, DTMF_SIGNAL_FAX_FLAGS }, { 0x04, 0x04, 0xc8, DTMF_SIGNAL_G2_FAX_GROUP_ID }, { 0x00, 0x04, 0xc9, DTMF_SIGNAL_HUMAN_SPEECH }, { 0x04, 0x04, 0xca, DTMF_SIGNAL_ANSWERING_MACHINE_390 }, { 0x02, 0x02, 0xf1, DTMF_MF_DIGIT_TONE_CODE_1 }, { 0x02, 0x02, 0xf2, DTMF_MF_DIGIT_TONE_CODE_2 }, { 0x02, 0x02, 0xf3, DTMF_MF_DIGIT_TONE_CODE_3 }, { 0x02, 0x02, 0xf4, DTMF_MF_DIGIT_TONE_CODE_4 }, { 0x02, 0x02, 0xf5, DTMF_MF_DIGIT_TONE_CODE_5 }, { 0x02, 0x02, 0xf6, DTMF_MF_DIGIT_TONE_CODE_6 }, { 0x02, 0x02, 0xf7, DTMF_MF_DIGIT_TONE_CODE_7 }, { 0x02, 0x02, 0xf8, DTMF_MF_DIGIT_TONE_CODE_8 }, { 0x02, 0x02, 0xf9, DTMF_MF_DIGIT_TONE_CODE_9 }, { 0x02, 0x02, 0xfa, DTMF_MF_DIGIT_TONE_CODE_0 }, { 0x02, 0x02, 0xfb, DTMF_MF_DIGIT_TONE_CODE_K1 }, { 0x02, 0x02, 0xfc, DTMF_MF_DIGIT_TONE_CODE_K2 }, { 0x02, 0x02, 0xfd, DTMF_MF_DIGIT_TONE_CODE_KP }, { 0x02, 0x02, 0xfe, DTMF_MF_DIGIT_TONE_CODE_S1 }, { 0x02, 0x02, 0xff, DTMF_MF_DIGIT_TONE_CODE_ST }, }; #define DTMF_DIGIT_MAP_ENTRIES ARRAY_SIZE(dtmf_digit_map) static void dtmf_enable_receiver(PLCI *plci, byte enable_mask) { word min_digit_duration, min_gap_duration; dbug(1, dprintf("[%06lx] %s,%d: dtmf_enable_receiver %02x", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, enable_mask)); if (enable_mask != 0) { min_digit_duration = (plci->dtmf_rec_pulse_ms == 0) ? 40 : plci->dtmf_rec_pulse_ms; min_gap_duration = (plci->dtmf_rec_pause_ms == 0) ? 40 : plci->dtmf_rec_pause_ms; plci->internal_req_buffer[0] = DTMF_UDATA_REQUEST_ENABLE_RECEIVER; PUT_WORD(&plci->internal_req_buffer[1], min_digit_duration); PUT_WORD(&plci->internal_req_buffer[3], min_gap_duration); plci->NData[0].PLength = 5; PUT_WORD(&plci->internal_req_buffer[5], INTERNAL_IND_BUFFER_SIZE); plci->NData[0].PLength += 2; capidtmf_recv_enable(&(plci->capidtmf_state), min_digit_duration, min_gap_duration); } else { plci->internal_req_buffer[0] = DTMF_UDATA_REQUEST_DISABLE_RECEIVER; plci->NData[0].PLength = 1; capidtmf_recv_disable(&(plci->capidtmf_state)); } plci->NData[0].P = plci->internal_req_buffer; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_UDATA; plci->adapter->request(&plci->NL); } static void dtmf_send_digits(PLCI *plci, byte *digit_buffer, word digit_count) { word w, i; dbug(1, dprintf("[%06lx] %s,%d: dtmf_send_digits %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, digit_count)); plci->internal_req_buffer[0] = DTMF_UDATA_REQUEST_SEND_DIGITS; w = (plci->dtmf_send_pulse_ms == 0) ? 40 : plci->dtmf_send_pulse_ms; PUT_WORD(&plci->internal_req_buffer[1], w); w = (plci->dtmf_send_pause_ms == 0) ? 40 : plci->dtmf_send_pause_ms; PUT_WORD(&plci->internal_req_buffer[3], w); for (i = 0; i < digit_count; i++) { w = 0; while ((w < DTMF_DIGIT_MAP_ENTRIES) && (digit_buffer[i] != dtmf_digit_map[w].character)) { w++; } plci->internal_req_buffer[5 + i] = (w < DTMF_DIGIT_MAP_ENTRIES) ? dtmf_digit_map[w].code : DTMF_DIGIT_TONE_CODE_STAR; } plci->NData[0].PLength = 5 + digit_count; plci->NData[0].P = plci->internal_req_buffer; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_UDATA; plci->adapter->request(&plci->NL); } static void dtmf_rec_clear_config(PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: dtmf_rec_clear_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); plci->dtmf_rec_active = 0; plci->dtmf_rec_pulse_ms = 0; plci->dtmf_rec_pause_ms = 0; capidtmf_init(&(plci->capidtmf_state), plci->adapter->u_law); } static void dtmf_send_clear_config(PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: dtmf_send_clear_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); plci->dtmf_send_requests = 0; plci->dtmf_send_pulse_ms = 0; plci->dtmf_send_pause_ms = 0; } static void dtmf_prepare_switch(dword Id, PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: dtmf_prepare_switch", UnMapId(Id), (char *)(FILE_), __LINE__)); while (plci->dtmf_send_requests != 0) dtmf_confirmation(Id, plci); } static word dtmf_save_config(dword Id, PLCI *plci, byte Rc) { dbug(1, dprintf("[%06lx] %s,%d: dtmf_save_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); return (GOOD); } static word dtmf_restore_config(dword Id, PLCI *plci, byte Rc) { word Info; dbug(1, dprintf("[%06lx] %s,%d: dtmf_restore_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); Info = GOOD; if (plci->B1_facilities & B1_FACILITY_DTMFR) { switch (plci->adjust_b_state) { case ADJUST_B_RESTORE_DTMF_1: plci->internal_command = plci->adjust_b_command; if (plci_nl_busy(plci)) { plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1; break; } dtmf_enable_receiver(plci, plci->dtmf_rec_active); plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_2; break; case ADJUST_B_RESTORE_DTMF_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Reenable DTMF receiver failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } break; } } return (Info); } static void dtmf_command(dword Id, PLCI *plci, byte Rc) { word internal_command, Info; byte mask; byte result[4]; dbug(1, dprintf("[%06lx] %s,%d: dtmf_command %02x %04x %04x %d %d %d %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command, plci->dtmf_cmd, plci->dtmf_rec_pulse_ms, plci->dtmf_rec_pause_ms, plci->dtmf_send_pulse_ms, plci->dtmf_send_pause_ms)); Info = GOOD; result[0] = 2; PUT_WORD(&result[1], DTMF_SUCCESS); internal_command = plci->internal_command; plci->internal_command = 0; mask = 0x01; switch (plci->dtmf_cmd) { case DTMF_LISTEN_TONE_START: mask <<= 1; case DTMF_LISTEN_MF_START: mask <<= 1; case DTMF_LISTEN_START: switch (internal_command) { default: adjust_b1_resource(Id, plci, NULL, (word)(plci->B1_facilities | B1_FACILITY_DTMFR), DTMF_COMMAND_1); case DTMF_COMMAND_1: if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Load DTMF failed", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; break; } if (plci->internal_command) return; case DTMF_COMMAND_2: if (plci_nl_busy(plci)) { plci->internal_command = DTMF_COMMAND_2; return; } plci->internal_command = DTMF_COMMAND_3; dtmf_enable_receiver(plci, (byte)(plci->dtmf_rec_active | mask)); return; case DTMF_COMMAND_3: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Enable DTMF receiver failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _FACILITY_NOT_SUPPORTED; break; } plci->tone_last_indication_code = DTMF_SIGNAL_NO_TONE; plci->dtmf_rec_active |= mask; break; } break; case DTMF_LISTEN_TONE_STOP: mask <<= 1; case DTMF_LISTEN_MF_STOP: mask <<= 1; case DTMF_LISTEN_STOP: switch (internal_command) { default: plci->dtmf_rec_active &= ~mask; if (plci->dtmf_rec_active) break; /* case DTMF_COMMAND_1: if (plci->dtmf_rec_active) { if (plci_nl_busy (plci)) { plci->internal_command = DTMF_COMMAND_1; return; } plci->dtmf_rec_active &= ~mask; plci->internal_command = DTMF_COMMAND_2; dtmf_enable_receiver (plci, false); return; } Rc = OK; case DTMF_COMMAND_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug (1, dprintf("[%06lx] %s,%d: Disable DTMF receiver failed %02x", UnMapId (Id), (char far *)(FILE_), __LINE__, Rc)); Info = _FACILITY_NOT_SUPPORTED; break; } */ adjust_b1_resource(Id, plci, NULL, (word)(plci->B1_facilities & ~(B1_FACILITY_DTMFX | B1_FACILITY_DTMFR)), DTMF_COMMAND_3); case DTMF_COMMAND_3: if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Unload DTMF failed", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; break; } if (plci->internal_command) return; break; } break; case DTMF_SEND_TONE: mask <<= 1; case DTMF_SEND_MF: mask <<= 1; case DTMF_DIGITS_SEND: switch (internal_command) { default: adjust_b1_resource(Id, plci, NULL, (word)(plci->B1_facilities | ((plci->dtmf_parameter_length != 0) ? B1_FACILITY_DTMFX | B1_FACILITY_DTMFR : B1_FACILITY_DTMFX)), DTMF_COMMAND_1); case DTMF_COMMAND_1: if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Load DTMF failed", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; break; } if (plci->internal_command) return; case DTMF_COMMAND_2: if (plci_nl_busy(plci)) { plci->internal_command = DTMF_COMMAND_2; return; } plci->dtmf_msg_number_queue[(plci->dtmf_send_requests)++] = plci->number; plci->internal_command = DTMF_COMMAND_3; dtmf_send_digits(plci, &plci->saved_msg.parms[3].info[1], plci->saved_msg.parms[3].length); return; case DTMF_COMMAND_3: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Send DTMF digits failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); if (plci->dtmf_send_requests != 0) (plci->dtmf_send_requests)--; Info = _FACILITY_NOT_SUPPORTED; break; } return; } break; } sendf(plci->appl, _FACILITY_R | CONFIRM, Id & 0xffffL, plci->number, "wws", Info, SELECTOR_DTMF, result); } static byte dtmf_request(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word Info; word i, j; byte mask; API_PARSE dtmf_parms[5]; byte result[40]; dbug(1, dprintf("[%06lx] %s,%d: dtmf_request", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = GOOD; result[0] = 2; PUT_WORD(&result[1], DTMF_SUCCESS); if (!(a->profile.Global_Options & GL_DTMF_SUPPORTED)) { dbug(1, dprintf("[%06lx] %s,%d: Facility not supported", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; } else if (api_parse(&msg[1].info[1], msg[1].length, "w", dtmf_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; } else if ((GET_WORD(dtmf_parms[0].info) == DTMF_GET_SUPPORTED_DETECT_CODES) || (GET_WORD(dtmf_parms[0].info) == DTMF_GET_SUPPORTED_SEND_CODES)) { if (!((a->requested_options_table[appl->Id - 1]) & (1L << PRIVATE_DTMF_TONE))) { dbug(1, dprintf("[%06lx] %s,%d: DTMF unknown request %04x", UnMapId(Id), (char *)(FILE_), __LINE__, GET_WORD(dtmf_parms[0].info))); PUT_WORD(&result[1], DTMF_UNKNOWN_REQUEST); } else { for (i = 0; i < 32; i++) result[4 + i] = 0; if (GET_WORD(dtmf_parms[0].info) == DTMF_GET_SUPPORTED_DETECT_CODES) { for (i = 0; i < DTMF_DIGIT_MAP_ENTRIES; i++) { if (dtmf_digit_map[i].listen_mask != 0) result[4 + (dtmf_digit_map[i].character >> 3)] |= (1 << (dtmf_digit_map[i].character & 0x7)); } } else { for (i = 0; i < DTMF_DIGIT_MAP_ENTRIES; i++) { if (dtmf_digit_map[i].send_mask != 0) result[4 + (dtmf_digit_map[i].character >> 3)] |= (1 << (dtmf_digit_map[i].character & 0x7)); } } result[0] = 3 + 32; result[3] = 32; } } else if (plci == NULL) { dbug(1, dprintf("[%06lx] %s,%d: Wrong PLCI", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_IDENTIFIER; } else { if (!plci->State || !plci->NL.Id || plci->nl_remove_id) { dbug(1, dprintf("[%06lx] %s,%d: Wrong state", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_STATE; } else { plci->command = 0; plci->dtmf_cmd = GET_WORD(dtmf_parms[0].info); mask = 0x01; switch (plci->dtmf_cmd) { case DTMF_LISTEN_TONE_START: case DTMF_LISTEN_TONE_STOP: mask <<= 1; case DTMF_LISTEN_MF_START: case DTMF_LISTEN_MF_STOP: mask <<= 1; if (!((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[appl->Id - 1]) & (1L << PRIVATE_DTMF_TONE))) { dbug(1, dprintf("[%06lx] %s,%d: DTMF unknown request %04x", UnMapId(Id), (char *)(FILE_), __LINE__, GET_WORD(dtmf_parms[0].info))); PUT_WORD(&result[1], DTMF_UNKNOWN_REQUEST); break; } case DTMF_LISTEN_START: case DTMF_LISTEN_STOP: if (!(a->manufacturer_features & MANUFACTURER_FEATURE_HARDDTMF) && !(a->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE)) { dbug(1, dprintf("[%06lx] %s,%d: Facility not supported", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; break; } if (mask & DTMF_LISTEN_ACTIVE_FLAG) { if (api_parse(&msg[1].info[1], msg[1].length, "wwws", dtmf_parms)) { plci->dtmf_rec_pulse_ms = 0; plci->dtmf_rec_pause_ms = 0; } else { plci->dtmf_rec_pulse_ms = GET_WORD(dtmf_parms[1].info); plci->dtmf_rec_pause_ms = GET_WORD(dtmf_parms[2].info); } } start_internal_command(Id, plci, dtmf_command); return (false); case DTMF_SEND_TONE: mask <<= 1; case DTMF_SEND_MF: mask <<= 1; if (!((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[appl->Id - 1]) & (1L << PRIVATE_DTMF_TONE))) { dbug(1, dprintf("[%06lx] %s,%d: DTMF unknown request %04x", UnMapId(Id), (char *)(FILE_), __LINE__, GET_WORD(dtmf_parms[0].info))); PUT_WORD(&result[1], DTMF_UNKNOWN_REQUEST); break; } case DTMF_DIGITS_SEND: if (api_parse(&msg[1].info[1], msg[1].length, "wwws", dtmf_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; break; } if (mask & DTMF_LISTEN_ACTIVE_FLAG) { plci->dtmf_send_pulse_ms = GET_WORD(dtmf_parms[1].info); plci->dtmf_send_pause_ms = GET_WORD(dtmf_parms[2].info); } i = 0; j = 0; while ((i < dtmf_parms[3].length) && (j < DTMF_DIGIT_MAP_ENTRIES)) { j = 0; while ((j < DTMF_DIGIT_MAP_ENTRIES) && ((dtmf_parms[3].info[i + 1] != dtmf_digit_map[j].character) || ((dtmf_digit_map[j].send_mask & mask) == 0))) { j++; } i++; } if (j == DTMF_DIGIT_MAP_ENTRIES) { dbug(1, dprintf("[%06lx] %s,%d: Incorrect DTMF digit %02x", UnMapId(Id), (char *)(FILE_), __LINE__, dtmf_parms[3].info[i])); PUT_WORD(&result[1], DTMF_INCORRECT_DIGIT); break; } if (plci->dtmf_send_requests >= ARRAY_SIZE(plci->dtmf_msg_number_queue)) { dbug(1, dprintf("[%06lx] %s,%d: DTMF request overrun", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_STATE; break; } api_save_msg(dtmf_parms, "wwws", &plci->saved_msg); start_internal_command(Id, plci, dtmf_command); return (false); default: dbug(1, dprintf("[%06lx] %s,%d: DTMF unknown request %04x", UnMapId(Id), (char *)(FILE_), __LINE__, plci->dtmf_cmd)); PUT_WORD(&result[1], DTMF_UNKNOWN_REQUEST); } } } sendf(appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number, "wws", Info, SELECTOR_DTMF, result); return (false); } static void dtmf_confirmation(dword Id, PLCI *plci) { word i; byte result[4]; dbug(1, dprintf("[%06lx] %s,%d: dtmf_confirmation", UnMapId(Id), (char *)(FILE_), __LINE__)); result[0] = 2; PUT_WORD(&result[1], DTMF_SUCCESS); if (plci->dtmf_send_requests != 0) { sendf(plci->appl, _FACILITY_R | CONFIRM, Id & 0xffffL, plci->dtmf_msg_number_queue[0], "wws", GOOD, SELECTOR_DTMF, result); (plci->dtmf_send_requests)--; for (i = 0; i < plci->dtmf_send_requests; i++) plci->dtmf_msg_number_queue[i] = plci->dtmf_msg_number_queue[i + 1]; } } static void dtmf_indication(dword Id, PLCI *plci, byte *msg, word length) { word i, j, n; dbug(1, dprintf("[%06lx] %s,%d: dtmf_indication", UnMapId(Id), (char *)(FILE_), __LINE__)); n = 0; for (i = 1; i < length; i++) { j = 0; while ((j < DTMF_DIGIT_MAP_ENTRIES) && ((msg[i] != dtmf_digit_map[j].code) || ((dtmf_digit_map[j].listen_mask & plci->dtmf_rec_active) == 0))) { j++; } if (j < DTMF_DIGIT_MAP_ENTRIES) { if ((dtmf_digit_map[j].listen_mask & DTMF_TONE_LISTEN_ACTIVE_FLAG) && (plci->tone_last_indication_code == DTMF_SIGNAL_NO_TONE) && (dtmf_digit_map[j].character != DTMF_SIGNAL_UNIDENTIFIED_TONE)) { if (n + 1 == i) { for (i = length; i > n + 1; i--) msg[i] = msg[i - 1]; length++; i++; } msg[++n] = DTMF_SIGNAL_UNIDENTIFIED_TONE; } plci->tone_last_indication_code = dtmf_digit_map[j].character; msg[++n] = dtmf_digit_map[j].character; } } if (n != 0) { msg[0] = (byte) n; sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "wS", SELECTOR_DTMF, msg); } } /*------------------------------------------------------------------*/ /* DTMF parameters */ /*------------------------------------------------------------------*/ static void dtmf_parameter_write(PLCI *plci) { word i; byte parameter_buffer[DTMF_PARAMETER_BUFFER_SIZE + 2]; dbug(1, dprintf("[%06lx] %s,%d: dtmf_parameter_write", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); parameter_buffer[0] = plci->dtmf_parameter_length + 1; parameter_buffer[1] = DSP_CTRL_SET_DTMF_PARAMETERS; for (i = 0; i < plci->dtmf_parameter_length; i++) parameter_buffer[2 + i] = plci->dtmf_parameter_buffer[i]; add_p(plci, FTY, parameter_buffer); sig_req(plci, TEL_CTRL, 0); send_req(plci); } static void dtmf_parameter_clear_config(PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: dtmf_parameter_clear_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); plci->dtmf_parameter_length = 0; } static void dtmf_parameter_prepare_switch(dword Id, PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: dtmf_parameter_prepare_switch", UnMapId(Id), (char *)(FILE_), __LINE__)); } static word dtmf_parameter_save_config(dword Id, PLCI *plci, byte Rc) { dbug(1, dprintf("[%06lx] %s,%d: dtmf_parameter_save_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); return (GOOD); } static word dtmf_parameter_restore_config(dword Id, PLCI *plci, byte Rc) { word Info; dbug(1, dprintf("[%06lx] %s,%d: dtmf_parameter_restore_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); Info = GOOD; if ((plci->B1_facilities & B1_FACILITY_DTMFR) && (plci->dtmf_parameter_length != 0)) { switch (plci->adjust_b_state) { case ADJUST_B_RESTORE_DTMF_PARAMETER_1: plci->internal_command = plci->adjust_b_command; if (plci->sig_req) { plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_PARAMETER_1; break; } dtmf_parameter_write(plci); plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_PARAMETER_2; break; case ADJUST_B_RESTORE_DTMF_PARAMETER_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Restore DTMF parameters failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } break; } } return (Info); } /*------------------------------------------------------------------*/ /* Line interconnect facilities */ /*------------------------------------------------------------------*/ LI_CONFIG *li_config_table; word li_total_channels; /*------------------------------------------------------------------*/ /* translate a CHI information element to a channel number */ /* returns 0xff - any channel */ /* 0xfe - chi wrong coding */ /* 0xfd - D-channel */ /* 0x00 - no channel */ /* else channel number / PRI: timeslot */ /* if channels is provided we accept more than one channel. */ /*------------------------------------------------------------------*/ static byte chi_to_channel(byte *chi, dword *pchannelmap) { int p; int i; dword map; byte excl; byte ofs; byte ch; if (pchannelmap) *pchannelmap = 0; if (!chi[0]) return 0xff; excl = 0; if (chi[1] & 0x20) { if (chi[0] == 1 && chi[1] == 0xac) return 0xfd; /* exclusive d-channel */ for (i = 1; i < chi[0] && !(chi[i] & 0x80); i++); if (i == chi[0] || !(chi[i] & 0x80)) return 0xfe; if ((chi[1] | 0xc8) != 0xe9) return 0xfe; if (chi[1] & 0x08) excl = 0x40; /* int. id present */ if (chi[1] & 0x40) { p = i + 1; for (i = p; i < chi[0] && !(chi[i] & 0x80); i++); if (i == chi[0] || !(chi[i] & 0x80)) return 0xfe; } /* coding standard, Number/Map, Channel Type */ p = i + 1; for (i = p; i < chi[0] && !(chi[i] & 0x80); i++); if (i == chi[0] || !(chi[i] & 0x80)) return 0xfe; if ((chi[p] | 0xd0) != 0xd3) return 0xfe; /* Number/Map */ if (chi[p] & 0x10) { /* map */ if ((chi[0] - p) == 4) ofs = 0; else if ((chi[0] - p) == 3) ofs = 1; else return 0xfe; ch = 0; map = 0; for (i = 0; i < 4 && p < chi[0]; i++) { p++; ch += 8; map <<= 8; if (chi[p]) { for (ch = 0; !(chi[p] & (1 << ch)); ch++); map |= chi[p]; } } ch += ofs; map <<= ofs; } else { /* number */ p = i + 1; ch = chi[p] & 0x3f; if (pchannelmap) { if ((byte)(chi[0] - p) > 30) return 0xfe; map = 0; for (i = p; i <= chi[0]; i++) { if ((chi[i] & 0x7f) > 31) return 0xfe; map |= (1L << (chi[i] & 0x7f)); } } else { if (p != chi[0]) return 0xfe; if (ch > 31) return 0xfe; map = (1L << ch); } if (chi[p] & 0x40) return 0xfe; } if (pchannelmap) *pchannelmap = map; else if (map != ((dword)(1L << ch))) return 0xfe; return (byte)(excl | ch); } else { /* not PRI */ for (i = 1; i < chi[0] && !(chi[i] & 0x80); i++); if (i != chi[0] || !(chi[i] & 0x80)) return 0xfe; if (chi[1] & 0x08) excl = 0x40; switch (chi[1] | 0x98) { case 0x98: return 0; case 0x99: if (pchannelmap) *pchannelmap = 2; return excl | 1; case 0x9a: if (pchannelmap) *pchannelmap = 4; return excl | 2; case 0x9b: return 0xff; case 0x9c: return 0xfd; /* d-ch */ default: return 0xfe; } } } static void mixer_set_bchannel_id_esc(PLCI *plci, byte bchannel_id) { DIVA_CAPI_ADAPTER *a; PLCI *splci; byte old_id; a = plci->adapter; old_id = plci->li_bchannel_id; if (a->li_pri) { if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci)) li_config_table[a->li_base + (old_id - 1)].plci = NULL; plci->li_bchannel_id = (bchannel_id & 0x1f) + 1; if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL) li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci; } else { if (((bchannel_id & 0x03) == 1) || ((bchannel_id & 0x03) == 2)) { if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci)) li_config_table[a->li_base + (old_id - 1)].plci = NULL; plci->li_bchannel_id = bchannel_id & 0x03; if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI != plci) && (a->AdvSignalPLCI->tel == ADV_VOICE)) { splci = a->AdvSignalPLCI; if (li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci == NULL) { if ((splci->li_bchannel_id != 0) && (li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci == splci)) { li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci = NULL; } splci->li_bchannel_id = 3 - plci->li_bchannel_id; li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci = splci; dbug(1, dprintf("[%06lx] %s,%d: adv_voice_set_bchannel_id_esc %d", (dword)((splci->Id << 8) | UnMapController(splci->adapter->Id)), (char *)(FILE_), __LINE__, splci->li_bchannel_id)); } } if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL) li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci; } } if ((old_id == 0) && (plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { mixer_clear_config(plci); } dbug(1, dprintf("[%06lx] %s,%d: mixer_set_bchannel_id_esc %d %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, bchannel_id, plci->li_bchannel_id)); } static void mixer_set_bchannel_id(PLCI *plci, byte *chi) { DIVA_CAPI_ADAPTER *a; PLCI *splci; byte ch, old_id; a = plci->adapter; old_id = plci->li_bchannel_id; ch = chi_to_channel(chi, NULL); if (!(ch & 0x80)) { if (a->li_pri) { if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci)) li_config_table[a->li_base + (old_id - 1)].plci = NULL; plci->li_bchannel_id = (ch & 0x1f) + 1; if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL) li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci; } else { if (((ch & 0x1f) == 1) || ((ch & 0x1f) == 2)) { if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci)) li_config_table[a->li_base + (old_id - 1)].plci = NULL; plci->li_bchannel_id = ch & 0x1f; if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI != plci) && (a->AdvSignalPLCI->tel == ADV_VOICE)) { splci = a->AdvSignalPLCI; if (li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci == NULL) { if ((splci->li_bchannel_id != 0) && (li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci == splci)) { li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci = NULL; } splci->li_bchannel_id = 3 - plci->li_bchannel_id; li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci = splci; dbug(1, dprintf("[%06lx] %s,%d: adv_voice_set_bchannel_id %d", (dword)((splci->Id << 8) | UnMapController(splci->adapter->Id)), (char *)(FILE_), __LINE__, splci->li_bchannel_id)); } } if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL) li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci; } } } if ((old_id == 0) && (plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { mixer_clear_config(plci); } dbug(1, dprintf("[%06lx] %s,%d: mixer_set_bchannel_id %02x %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, ch, plci->li_bchannel_id)); } #define MIXER_MAX_DUMP_CHANNELS 34 static void mixer_calculate_coefs(DIVA_CAPI_ADAPTER *a) { static char hex_digit_table[0x10] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'}; word n, i, j; char *p; char hex_line[2 * MIXER_MAX_DUMP_CHANNELS + MIXER_MAX_DUMP_CHANNELS / 8 + 4]; dbug(1, dprintf("[%06lx] %s,%d: mixer_calculate_coefs", (dword)(UnMapController(a->Id)), (char *)(FILE_), __LINE__)); for (i = 0; i < li_total_channels; i++) { li_config_table[i].channel &= LI_CHANNEL_ADDRESSES_SET; if (li_config_table[i].chflags != 0) li_config_table[i].channel |= LI_CHANNEL_INVOLVED; else { for (j = 0; j < li_total_channels; j++) { if (((li_config_table[i].flag_table[j]) != 0) || ((li_config_table[j].flag_table[i]) != 0)) { li_config_table[i].channel |= LI_CHANNEL_INVOLVED; } if (((li_config_table[i].flag_table[j] & LI_FLAG_CONFERENCE) != 0) || ((li_config_table[j].flag_table[i] & LI_FLAG_CONFERENCE) != 0)) { li_config_table[i].channel |= LI_CHANNEL_CONFERENCE; } } } } for (i = 0; i < li_total_channels; i++) { for (j = 0; j < li_total_channels; j++) { li_config_table[i].coef_table[j] &= ~(LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC); if (li_config_table[i].flag_table[j] & LI_FLAG_CONFERENCE) li_config_table[i].coef_table[j] |= LI_COEF_CH_CH; } } for (n = 0; n < li_total_channels; n++) { if (li_config_table[n].channel & LI_CHANNEL_CONFERENCE) { for (i = 0; i < li_total_channels; i++) { if (li_config_table[i].channel & LI_CHANNEL_CONFERENCE) { for (j = 0; j < li_total_channels; j++) { li_config_table[i].coef_table[j] |= li_config_table[i].coef_table[n] & li_config_table[n].coef_table[j]; } } } } } for (i = 0; i < li_total_channels; i++) { if (li_config_table[i].channel & LI_CHANNEL_INVOLVED) { li_config_table[i].coef_table[i] &= ~LI_COEF_CH_CH; for (j = 0; j < li_total_channels; j++) { if (li_config_table[i].coef_table[j] & LI_COEF_CH_CH) li_config_table[i].flag_table[j] |= LI_FLAG_CONFERENCE; } if (li_config_table[i].flag_table[i] & LI_FLAG_CONFERENCE) li_config_table[i].coef_table[i] |= LI_COEF_CH_CH; } } for (i = 0; i < li_total_channels; i++) { if (li_config_table[i].channel & LI_CHANNEL_INVOLVED) { for (j = 0; j < li_total_channels; j++) { if (li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT) li_config_table[i].coef_table[j] |= LI_COEF_CH_CH; if (li_config_table[i].flag_table[j] & LI_FLAG_MONITOR) li_config_table[i].coef_table[j] |= LI_COEF_CH_PC; if (li_config_table[i].flag_table[j] & LI_FLAG_MIX) li_config_table[i].coef_table[j] |= LI_COEF_PC_CH; if (li_config_table[i].flag_table[j] & LI_FLAG_PCCONNECT) li_config_table[i].coef_table[j] |= LI_COEF_PC_PC; } if (li_config_table[i].chflags & LI_CHFLAG_MONITOR) { for (j = 0; j < li_total_channels; j++) { if (li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT) { li_config_table[i].coef_table[j] |= LI_COEF_CH_PC; if (li_config_table[j].chflags & LI_CHFLAG_MIX) li_config_table[i].coef_table[j] |= LI_COEF_PC_CH | LI_COEF_PC_PC; } } } if (li_config_table[i].chflags & LI_CHFLAG_MIX) { for (j = 0; j < li_total_channels; j++) { if (li_config_table[j].flag_table[i] & LI_FLAG_INTERCONNECT) li_config_table[j].coef_table[i] |= LI_COEF_PC_CH; } } if (li_config_table[i].chflags & LI_CHFLAG_LOOP) { for (j = 0; j < li_total_channels; j++) { if (li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT) { for (n = 0; n < li_total_channels; n++) { if (li_config_table[n].flag_table[i] & LI_FLAG_INTERCONNECT) { li_config_table[n].coef_table[j] |= LI_COEF_CH_CH; if (li_config_table[j].chflags & LI_CHFLAG_MIX) { li_config_table[n].coef_table[j] |= LI_COEF_PC_CH; if (li_config_table[n].chflags & LI_CHFLAG_MONITOR) li_config_table[n].coef_table[j] |= LI_COEF_CH_PC | LI_COEF_PC_PC; } else if (li_config_table[n].chflags & LI_CHFLAG_MONITOR) li_config_table[n].coef_table[j] |= LI_COEF_CH_PC; } } } } } } } for (i = 0; i < li_total_channels; i++) { if (li_config_table[i].channel & LI_CHANNEL_INVOLVED) { if (li_config_table[i].chflags & (LI_CHFLAG_MONITOR | LI_CHFLAG_MIX | LI_CHFLAG_LOOP)) li_config_table[i].channel |= LI_CHANNEL_ACTIVE; if (li_config_table[i].chflags & LI_CHFLAG_MONITOR) li_config_table[i].channel |= LI_CHANNEL_RX_DATA; if (li_config_table[i].chflags & LI_CHFLAG_MIX) li_config_table[i].channel |= LI_CHANNEL_TX_DATA; for (j = 0; j < li_total_channels; j++) { if ((li_config_table[i].flag_table[j] & (LI_FLAG_INTERCONNECT | LI_FLAG_PCCONNECT | LI_FLAG_CONFERENCE | LI_FLAG_MONITOR)) || (li_config_table[j].flag_table[i] & (LI_FLAG_INTERCONNECT | LI_FLAG_PCCONNECT | LI_FLAG_CONFERENCE | LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX))) { li_config_table[i].channel |= LI_CHANNEL_ACTIVE; } if (li_config_table[i].flag_table[j] & (LI_FLAG_PCCONNECT | LI_FLAG_MONITOR)) li_config_table[i].channel |= LI_CHANNEL_RX_DATA; if (li_config_table[j].flag_table[i] & (LI_FLAG_PCCONNECT | LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX)) li_config_table[i].channel |= LI_CHANNEL_TX_DATA; } if (!(li_config_table[i].channel & LI_CHANNEL_ACTIVE)) { li_config_table[i].coef_table[i] |= LI_COEF_PC_CH | LI_COEF_CH_PC; li_config_table[i].channel |= LI_CHANNEL_TX_DATA | LI_CHANNEL_RX_DATA; } } } for (i = 0; i < li_total_channels; i++) { if (li_config_table[i].channel & LI_CHANNEL_INVOLVED) { j = 0; while ((j < li_total_channels) && !(li_config_table[i].flag_table[j] & LI_FLAG_ANNOUNCEMENT)) j++; if (j < li_total_channels) { for (j = 0; j < li_total_channels; j++) { li_config_table[i].coef_table[j] &= ~(LI_COEF_CH_CH | LI_COEF_PC_CH); if (li_config_table[i].flag_table[j] & LI_FLAG_ANNOUNCEMENT) li_config_table[i].coef_table[j] |= LI_COEF_PC_CH; } } } } n = li_total_channels; if (n > MIXER_MAX_DUMP_CHANNELS) n = MIXER_MAX_DUMP_CHANNELS; p = hex_line; for (j = 0; j < n; j++) { if ((j & 0x7) == 0) *(p++) = ' '; *(p++) = hex_digit_table[li_config_table[j].curchnl >> 4]; *(p++) = hex_digit_table[li_config_table[j].curchnl & 0xf]; } *p = '\0'; dbug(1, dprintf("[%06lx] CURRENT %s", (dword)(UnMapController(a->Id)), (char *)hex_line)); p = hex_line; for (j = 0; j < n; j++) { if ((j & 0x7) == 0) *(p++) = ' '; *(p++) = hex_digit_table[li_config_table[j].channel >> 4]; *(p++) = hex_digit_table[li_config_table[j].channel & 0xf]; } *p = '\0'; dbug(1, dprintf("[%06lx] CHANNEL %s", (dword)(UnMapController(a->Id)), (char *)hex_line)); p = hex_line; for (j = 0; j < n; j++) { if ((j & 0x7) == 0) *(p++) = ' '; *(p++) = hex_digit_table[li_config_table[j].chflags >> 4]; *(p++) = hex_digit_table[li_config_table[j].chflags & 0xf]; } *p = '\0'; dbug(1, dprintf("[%06lx] CHFLAG %s", (dword)(UnMapController(a->Id)), (char *)hex_line)); for (i = 0; i < n; i++) { p = hex_line; for (j = 0; j < n; j++) { if ((j & 0x7) == 0) *(p++) = ' '; *(p++) = hex_digit_table[li_config_table[i].flag_table[j] >> 4]; *(p++) = hex_digit_table[li_config_table[i].flag_table[j] & 0xf]; } *p = '\0'; dbug(1, dprintf("[%06lx] FLAG[%02x]%s", (dword)(UnMapController(a->Id)), i, (char *)hex_line)); } for (i = 0; i < n; i++) { p = hex_line; for (j = 0; j < n; j++) { if ((j & 0x7) == 0) *(p++) = ' '; *(p++) = hex_digit_table[li_config_table[i].coef_table[j] >> 4]; *(p++) = hex_digit_table[li_config_table[i].coef_table[j] & 0xf]; } *p = '\0'; dbug(1, dprintf("[%06lx] COEF[%02x]%s", (dword)(UnMapController(a->Id)), i, (char *)hex_line)); } } static struct { byte mask; byte line_flags; } mixer_write_prog_pri[] = { { LI_COEF_CH_CH, 0 }, { LI_COEF_CH_PC, MIXER_COEF_LINE_TO_PC_FLAG }, { LI_COEF_PC_CH, MIXER_COEF_LINE_FROM_PC_FLAG }, { LI_COEF_PC_PC, MIXER_COEF_LINE_TO_PC_FLAG | MIXER_COEF_LINE_FROM_PC_FLAG } }; static struct { byte from_ch; byte to_ch; byte mask; byte xconnect_override; } mixer_write_prog_bri[] = { { 0, 0, LI_COEF_CH_CH, 0x01 }, /* B to B */ { 1, 0, LI_COEF_CH_CH, 0x01 }, /* Alt B to B */ { 0, 0, LI_COEF_PC_CH, 0x80 }, /* PC to B */ { 1, 0, LI_COEF_PC_CH, 0x01 }, /* Alt PC to B */ { 2, 0, LI_COEF_CH_CH, 0x00 }, /* IC to B */ { 3, 0, LI_COEF_CH_CH, 0x00 }, /* Alt IC to B */ { 0, 0, LI_COEF_CH_PC, 0x80 }, /* B to PC */ { 1, 0, LI_COEF_CH_PC, 0x01 }, /* Alt B to PC */ { 0, 0, LI_COEF_PC_PC, 0x01 }, /* PC to PC */ { 1, 0, LI_COEF_PC_PC, 0x01 }, /* Alt PC to PC */ { 2, 0, LI_COEF_CH_PC, 0x00 }, /* IC to PC */ { 3, 0, LI_COEF_CH_PC, 0x00 }, /* Alt IC to PC */ { 0, 2, LI_COEF_CH_CH, 0x00 }, /* B to IC */ { 1, 2, LI_COEF_CH_CH, 0x00 }, /* Alt B to IC */ { 0, 2, LI_COEF_PC_CH, 0x00 }, /* PC to IC */ { 1, 2, LI_COEF_PC_CH, 0x00 }, /* Alt PC to IC */ { 2, 2, LI_COEF_CH_CH, 0x00 }, /* IC to IC */ { 3, 2, LI_COEF_CH_CH, 0x00 }, /* Alt IC to IC */ { 1, 1, LI_COEF_CH_CH, 0x01 }, /* Alt B to Alt B */ { 0, 1, LI_COEF_CH_CH, 0x01 }, /* B to Alt B */ { 1, 1, LI_COEF_PC_CH, 0x80 }, /* Alt PC to Alt B */ { 0, 1, LI_COEF_PC_CH, 0x01 }, /* PC to Alt B */ { 3, 1, LI_COEF_CH_CH, 0x00 }, /* Alt IC to Alt B */ { 2, 1, LI_COEF_CH_CH, 0x00 }, /* IC to Alt B */ { 1, 1, LI_COEF_CH_PC, 0x80 }, /* Alt B to Alt PC */ { 0, 1, LI_COEF_CH_PC, 0x01 }, /* B to Alt PC */ { 1, 1, LI_COEF_PC_PC, 0x01 }, /* Alt PC to Alt PC */ { 0, 1, LI_COEF_PC_PC, 0x01 }, /* PC to Alt PC */ { 3, 1, LI_COEF_CH_PC, 0x00 }, /* Alt IC to Alt PC */ { 2, 1, LI_COEF_CH_PC, 0x00 }, /* IC to Alt PC */ { 1, 3, LI_COEF_CH_CH, 0x00 }, /* Alt B to Alt IC */ { 0, 3, LI_COEF_CH_CH, 0x00 }, /* B to Alt IC */ { 1, 3, LI_COEF_PC_CH, 0x00 }, /* Alt PC to Alt IC */ { 0, 3, LI_COEF_PC_CH, 0x00 }, /* PC to Alt IC */ { 3, 3, LI_COEF_CH_CH, 0x00 }, /* Alt IC to Alt IC */ { 2, 3, LI_COEF_CH_CH, 0x00 } /* IC to Alt IC */ }; static byte mixer_swapped_index_bri[] = { 18, /* B to B */ 19, /* Alt B to B */ 20, /* PC to B */ 21, /* Alt PC to B */ 22, /* IC to B */ 23, /* Alt IC to B */ 24, /* B to PC */ 25, /* Alt B to PC */ 26, /* PC to PC */ 27, /* Alt PC to PC */ 28, /* IC to PC */ 29, /* Alt IC to PC */ 30, /* B to IC */ 31, /* Alt B to IC */ 32, /* PC to IC */ 33, /* Alt PC to IC */ 34, /* IC to IC */ 35, /* Alt IC to IC */ 0, /* Alt B to Alt B */ 1, /* B to Alt B */ 2, /* Alt PC to Alt B */ 3, /* PC to Alt B */ 4, /* Alt IC to Alt B */ 5, /* IC to Alt B */ 6, /* Alt B to Alt PC */ 7, /* B to Alt PC */ 8, /* Alt PC to Alt PC */ 9, /* PC to Alt PC */ 10, /* Alt IC to Alt PC */ 11, /* IC to Alt PC */ 12, /* Alt B to Alt IC */ 13, /* B to Alt IC */ 14, /* Alt PC to Alt IC */ 15, /* PC to Alt IC */ 16, /* Alt IC to Alt IC */ 17 /* IC to Alt IC */ }; static struct { byte mask; byte from_pc; byte to_pc; } xconnect_write_prog[] = { { LI_COEF_CH_CH, false, false }, { LI_COEF_CH_PC, false, true }, { LI_COEF_PC_CH, true, false }, { LI_COEF_PC_PC, true, true } }; static void xconnect_query_addresses(PLCI *plci) { DIVA_CAPI_ADAPTER *a; word w, ch; byte *p; dbug(1, dprintf("[%06lx] %s,%d: xconnect_query_addresses", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); a = plci->adapter; if (a->li_pri && ((plci->li_bchannel_id == 0) || (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci != plci))) { dbug(1, dprintf("[%06x] %s,%d: Channel id wiped out", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); return; } p = plci->internal_req_buffer; ch = (a->li_pri) ? plci->li_bchannel_id - 1 : 0; *(p++) = UDATA_REQUEST_XCONNECT_FROM; w = ch; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); w = ch | XCONNECT_CHANNEL_PORT_PC; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); plci->NData[0].P = plci->internal_req_buffer; plci->NData[0].PLength = p - plci->internal_req_buffer; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_UDATA; plci->adapter->request(&plci->NL); } static void xconnect_write_coefs(PLCI *plci, word internal_command) { dbug(1, dprintf("[%06lx] %s,%d: xconnect_write_coefs %04x", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, internal_command)); plci->li_write_command = internal_command; plci->li_write_channel = 0; } static byte xconnect_write_coefs_process(dword Id, PLCI *plci, byte Rc) { DIVA_CAPI_ADAPTER *a; word w, n, i, j, r, s, to_ch; dword d; byte *p; struct xconnect_transfer_address_s *transfer_address; byte ch_map[MIXER_CHANNELS_BRI]; dbug(1, dprintf("[%06x] %s,%d: xconnect_write_coefs_process %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->li_write_channel)); a = plci->adapter; if ((plci->li_bchannel_id == 0) || (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci != plci)) { dbug(1, dprintf("[%06x] %s,%d: Channel id wiped out", UnMapId(Id), (char *)(FILE_), __LINE__)); return (true); } i = a->li_base + (plci->li_bchannel_id - 1); j = plci->li_write_channel; p = plci->internal_req_buffer; if (j != 0) { if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: LI write coefs failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); return (false); } } if (li_config_table[i].adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) { r = 0; s = 0; if (j < li_total_channels) { if (li_config_table[i].channel & LI_CHANNEL_ADDRESSES_SET) { s = ((li_config_table[i].send_b.card_address.low | li_config_table[i].send_b.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_PC | LI_COEF_PC_PC)) & ((li_config_table[i].send_pc.card_address.low | li_config_table[i].send_pc.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_PC_CH)); } r = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4)); while ((j < li_total_channels) && ((r == 0) || (!(li_config_table[j].channel & LI_CHANNEL_ADDRESSES_SET)) || (!li_config_table[j].adapter->li_pri && (j >= li_config_table[j].adapter->li_base + MIXER_BCHANNELS_BRI)) || (((li_config_table[j].send_b.card_address.low != li_config_table[i].send_b.card_address.low) || (li_config_table[j].send_b.card_address.high != li_config_table[i].send_b.card_address.high)) && (!(a->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT) || !(li_config_table[j].adapter->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT))) || ((li_config_table[j].adapter->li_base != a->li_base) && !(r & s & ((li_config_table[j].send_b.card_address.low | li_config_table[j].send_b.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_PC_CH | LI_COEF_PC_PC)) & ((li_config_table[j].send_pc.card_address.low | li_config_table[j].send_pc.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_CH_PC)))))) { j++; if (j < li_total_channels) r = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4)); } } if (j < li_total_channels) { plci->internal_command = plci->li_write_command; if (plci_nl_busy(plci)) return (true); to_ch = (a->li_pri) ? plci->li_bchannel_id - 1 : 0; *(p++) = UDATA_REQUEST_XCONNECT_TO; do { if (li_config_table[j].adapter->li_base != a->li_base) { r &= s & ((li_config_table[j].send_b.card_address.low | li_config_table[j].send_b.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_PC_CH | LI_COEF_PC_PC)) & ((li_config_table[j].send_pc.card_address.low | li_config_table[j].send_pc.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_CH_PC)); } n = 0; do { if (r & xconnect_write_prog[n].mask) { if (xconnect_write_prog[n].from_pc) transfer_address = &(li_config_table[j].send_pc); else transfer_address = &(li_config_table[j].send_b); d = transfer_address->card_address.low; *(p++) = (byte) d; *(p++) = (byte)(d >> 8); *(p++) = (byte)(d >> 16); *(p++) = (byte)(d >> 24); d = transfer_address->card_address.high; *(p++) = (byte) d; *(p++) = (byte)(d >> 8); *(p++) = (byte)(d >> 16); *(p++) = (byte)(d >> 24); d = transfer_address->offset; *(p++) = (byte) d; *(p++) = (byte)(d >> 8); *(p++) = (byte)(d >> 16); *(p++) = (byte)(d >> 24); w = xconnect_write_prog[n].to_pc ? to_ch | XCONNECT_CHANNEL_PORT_PC : to_ch; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); w = ((li_config_table[i].coef_table[j] & xconnect_write_prog[n].mask) == 0) ? 0x01 : (li_config_table[i].adapter->u_law ? (li_config_table[j].adapter->u_law ? 0x80 : 0x86) : (li_config_table[j].adapter->u_law ? 0x7a : 0x80)); *(p++) = (byte) w; *(p++) = (byte) 0; li_config_table[i].coef_table[j] ^= xconnect_write_prog[n].mask << 4; } n++; } while ((n < ARRAY_SIZE(xconnect_write_prog)) && ((p - plci->internal_req_buffer) + 16 < INTERNAL_REQ_BUFFER_SIZE)); if (n == ARRAY_SIZE(xconnect_write_prog)) { do { j++; if (j < li_total_channels) r = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4)); } while ((j < li_total_channels) && ((r == 0) || (!(li_config_table[j].channel & LI_CHANNEL_ADDRESSES_SET)) || (!li_config_table[j].adapter->li_pri && (j >= li_config_table[j].adapter->li_base + MIXER_BCHANNELS_BRI)) || (((li_config_table[j].send_b.card_address.low != li_config_table[i].send_b.card_address.low) || (li_config_table[j].send_b.card_address.high != li_config_table[i].send_b.card_address.high)) && (!(a->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT) || !(li_config_table[j].adapter->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT))) || ((li_config_table[j].adapter->li_base != a->li_base) && !(r & s & ((li_config_table[j].send_b.card_address.low | li_config_table[j].send_b.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_PC_CH | LI_COEF_PC_PC)) & ((li_config_table[j].send_pc.card_address.low | li_config_table[j].send_pc.card_address.high) ? (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_CH_PC)))))); } } while ((j < li_total_channels) && ((p - plci->internal_req_buffer) + 16 < INTERNAL_REQ_BUFFER_SIZE)); } else if (j == li_total_channels) { plci->internal_command = plci->li_write_command; if (plci_nl_busy(plci)) return (true); if (a->li_pri) { *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_PRI_SYNC; w = 0; if (li_config_table[i].channel & LI_CHANNEL_TX_DATA) w |= MIXER_FEATURE_ENABLE_TX_DATA; if (li_config_table[i].channel & LI_CHANNEL_RX_DATA) w |= MIXER_FEATURE_ENABLE_RX_DATA; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); } else { *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_BRI; w = 0; if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI) && (ADV_VOICE_NEW_COEF_BASE + sizeof(word) <= a->adv_voice_coef_length)) { w = GET_WORD(a->adv_voice_coef_buffer + ADV_VOICE_NEW_COEF_BASE); } if (li_config_table[i].channel & LI_CHANNEL_TX_DATA) w |= MIXER_FEATURE_ENABLE_TX_DATA; if (li_config_table[i].channel & LI_CHANNEL_RX_DATA) w |= MIXER_FEATURE_ENABLE_RX_DATA; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); for (j = 0; j < sizeof(ch_map); j += 2) { if (plci->li_bchannel_id == 2) { ch_map[j] = (byte)(j + 1); ch_map[j + 1] = (byte) j; } else { ch_map[j] = (byte) j; ch_map[j + 1] = (byte)(j + 1); } } for (n = 0; n < ARRAY_SIZE(mixer_write_prog_bri); n++) { i = a->li_base + ch_map[mixer_write_prog_bri[n].to_ch]; j = a->li_base + ch_map[mixer_write_prog_bri[n].from_ch]; if (li_config_table[i].channel & li_config_table[j].channel & LI_CHANNEL_INVOLVED) { *p = (mixer_write_prog_bri[n].xconnect_override != 0) ? mixer_write_prog_bri[n].xconnect_override : ((li_config_table[i].coef_table[j] & mixer_write_prog_bri[n].mask) ? 0x80 : 0x01); if ((i >= a->li_base + MIXER_BCHANNELS_BRI) || (j >= a->li_base + MIXER_BCHANNELS_BRI)) { w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4)); li_config_table[i].coef_table[j] ^= (w & mixer_write_prog_bri[n].mask) << 4; } } else { *p = 0x00; if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI->tel == ADV_VOICE)) { w = (plci == a->AdvSignalPLCI) ? n : mixer_swapped_index_bri[n]; if (ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w < a->adv_voice_coef_length) *p = a->adv_voice_coef_buffer[ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w]; } } p++; } } j = li_total_channels + 1; } } else { if (j <= li_total_channels) { plci->internal_command = plci->li_write_command; if (plci_nl_busy(plci)) return (true); if (j < a->li_base) j = a->li_base; if (a->li_pri) { *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_PRI_SYNC; w = 0; if (li_config_table[i].channel & LI_CHANNEL_TX_DATA) w |= MIXER_FEATURE_ENABLE_TX_DATA; if (li_config_table[i].channel & LI_CHANNEL_RX_DATA) w |= MIXER_FEATURE_ENABLE_RX_DATA; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); for (n = 0; n < ARRAY_SIZE(mixer_write_prog_pri); n++) { *(p++) = (byte)((plci->li_bchannel_id - 1) | mixer_write_prog_pri[n].line_flags); for (j = a->li_base; j < a->li_base + MIXER_CHANNELS_PRI; j++) { w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4)); if (w & mixer_write_prog_pri[n].mask) { *(p++) = (li_config_table[i].coef_table[j] & mixer_write_prog_pri[n].mask) ? 0x80 : 0x01; li_config_table[i].coef_table[j] ^= mixer_write_prog_pri[n].mask << 4; } else *(p++) = 0x00; } *(p++) = (byte)((plci->li_bchannel_id - 1) | MIXER_COEF_LINE_ROW_FLAG | mixer_write_prog_pri[n].line_flags); for (j = a->li_base; j < a->li_base + MIXER_CHANNELS_PRI; j++) { w = ((li_config_table[j].coef_table[i] & 0xf) ^ (li_config_table[j].coef_table[i] >> 4)); if (w & mixer_write_prog_pri[n].mask) { *(p++) = (li_config_table[j].coef_table[i] & mixer_write_prog_pri[n].mask) ? 0x80 : 0x01; li_config_table[j].coef_table[i] ^= mixer_write_prog_pri[n].mask << 4; } else *(p++) = 0x00; } } } else { *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_BRI; w = 0; if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI) && (ADV_VOICE_NEW_COEF_BASE + sizeof(word) <= a->adv_voice_coef_length)) { w = GET_WORD(a->adv_voice_coef_buffer + ADV_VOICE_NEW_COEF_BASE); } if (li_config_table[i].channel & LI_CHANNEL_TX_DATA) w |= MIXER_FEATURE_ENABLE_TX_DATA; if (li_config_table[i].channel & LI_CHANNEL_RX_DATA) w |= MIXER_FEATURE_ENABLE_RX_DATA; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); for (j = 0; j < sizeof(ch_map); j += 2) { if (plci->li_bchannel_id == 2) { ch_map[j] = (byte)(j + 1); ch_map[j + 1] = (byte) j; } else { ch_map[j] = (byte) j; ch_map[j + 1] = (byte)(j + 1); } } for (n = 0; n < ARRAY_SIZE(mixer_write_prog_bri); n++) { i = a->li_base + ch_map[mixer_write_prog_bri[n].to_ch]; j = a->li_base + ch_map[mixer_write_prog_bri[n].from_ch]; if (li_config_table[i].channel & li_config_table[j].channel & LI_CHANNEL_INVOLVED) { *p = ((li_config_table[i].coef_table[j] & mixer_write_prog_bri[n].mask) ? 0x80 : 0x01); w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4)); li_config_table[i].coef_table[j] ^= (w & mixer_write_prog_bri[n].mask) << 4; } else { *p = 0x00; if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI->tel == ADV_VOICE)) { w = (plci == a->AdvSignalPLCI) ? n : mixer_swapped_index_bri[n]; if (ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w < a->adv_voice_coef_length) *p = a->adv_voice_coef_buffer[ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w]; } } p++; } } j = li_total_channels + 1; } } plci->li_write_channel = j; if (p != plci->internal_req_buffer) { plci->NData[0].P = plci->internal_req_buffer; plci->NData[0].PLength = p - plci->internal_req_buffer; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_UDATA; plci->adapter->request(&plci->NL); } return (true); } static void mixer_notify_update(PLCI *plci, byte others) { DIVA_CAPI_ADAPTER *a; word i, w; PLCI *notify_plci; byte msg[sizeof(CAPI_MSG_HEADER) + 6]; dbug(1, dprintf("[%06lx] %s,%d: mixer_notify_update %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, others)); a = plci->adapter; if (a->profile.Global_Options & GL_LINE_INTERCONNECT_SUPPORTED) { if (others) plci->li_notify_update = true; i = 0; do { notify_plci = NULL; if (others) { while ((i < li_total_channels) && (li_config_table[i].plci == NULL)) i++; if (i < li_total_channels) notify_plci = li_config_table[i++].plci; } else { if ((plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { notify_plci = plci; } } if ((notify_plci != NULL) && !notify_plci->li_notify_update && (notify_plci->appl != NULL) && (notify_plci->State) && notify_plci->NL.Id && !notify_plci->nl_remove_id) { notify_plci->li_notify_update = true; ((CAPI_MSG *) msg)->header.length = 18; ((CAPI_MSG *) msg)->header.appl_id = notify_plci->appl->Id; ((CAPI_MSG *) msg)->header.command = _FACILITY_R; ((CAPI_MSG *) msg)->header.number = 0; ((CAPI_MSG *) msg)->header.controller = notify_plci->adapter->Id; ((CAPI_MSG *) msg)->header.plci = notify_plci->Id; ((CAPI_MSG *) msg)->header.ncci = 0; ((CAPI_MSG *) msg)->info.facility_req.Selector = SELECTOR_LINE_INTERCONNECT; ((CAPI_MSG *) msg)->info.facility_req.structs[0] = 3; ((CAPI_MSG *) msg)->info.facility_req.structs[1] = LI_REQ_SILENT_UPDATE & 0xff; ((CAPI_MSG *) msg)->info.facility_req.structs[2] = LI_REQ_SILENT_UPDATE >> 8; ((CAPI_MSG *) msg)->info.facility_req.structs[3] = 0; w = api_put(notify_plci->appl, (CAPI_MSG *) msg); if (w != _QUEUE_FULL) { if (w != 0) { dbug(1, dprintf("[%06lx] %s,%d: Interconnect notify failed %06x %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, (dword)((notify_plci->Id << 8) | UnMapController(notify_plci->adapter->Id)), w)); } notify_plci->li_notify_update = false; } } } while (others && (notify_plci != NULL)); if (others) plci->li_notify_update = false; } } static void mixer_clear_config(PLCI *plci) { DIVA_CAPI_ADAPTER *a; word i, j; dbug(1, dprintf("[%06lx] %s,%d: mixer_clear_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); plci->li_notify_update = false; plci->li_plci_b_write_pos = 0; plci->li_plci_b_read_pos = 0; plci->li_plci_b_req_pos = 0; a = plci->adapter; if ((plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { i = a->li_base + (plci->li_bchannel_id - 1); li_config_table[i].curchnl = 0; li_config_table[i].channel = 0; li_config_table[i].chflags = 0; for (j = 0; j < li_total_channels; j++) { li_config_table[j].flag_table[i] = 0; li_config_table[i].flag_table[j] = 0; li_config_table[i].coef_table[j] = 0; li_config_table[j].coef_table[i] = 0; } if (!a->li_pri) { li_config_table[i].coef_table[i] |= LI_COEF_CH_PC_SET | LI_COEF_PC_CH_SET; if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI)) { i = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1); li_config_table[i].curchnl = 0; li_config_table[i].channel = 0; li_config_table[i].chflags = 0; for (j = 0; j < li_total_channels; j++) { li_config_table[i].flag_table[j] = 0; li_config_table[j].flag_table[i] = 0; li_config_table[i].coef_table[j] = 0; li_config_table[j].coef_table[i] = 0; } if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) { i = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id); li_config_table[i].curchnl = 0; li_config_table[i].channel = 0; li_config_table[i].chflags = 0; for (j = 0; j < li_total_channels; j++) { li_config_table[i].flag_table[j] = 0; li_config_table[j].flag_table[i] = 0; li_config_table[i].coef_table[j] = 0; li_config_table[j].coef_table[i] = 0; } } } } } } static void mixer_prepare_switch(dword Id, PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: mixer_prepare_switch", UnMapId(Id), (char *)(FILE_), __LINE__)); do { mixer_indication_coefs_set(Id, plci); } while (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos); } static word mixer_save_config(dword Id, PLCI *plci, byte Rc) { DIVA_CAPI_ADAPTER *a; word i, j; dbug(1, dprintf("[%06lx] %s,%d: mixer_save_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); a = plci->adapter; if ((plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { i = a->li_base + (plci->li_bchannel_id - 1); for (j = 0; j < li_total_channels; j++) { li_config_table[i].coef_table[j] &= 0xf; li_config_table[j].coef_table[i] &= 0xf; } if (!a->li_pri) li_config_table[i].coef_table[i] |= LI_COEF_CH_PC_SET | LI_COEF_PC_CH_SET; } return (GOOD); } static word mixer_restore_config(dword Id, PLCI *plci, byte Rc) { DIVA_CAPI_ADAPTER *a; word Info; dbug(1, dprintf("[%06lx] %s,%d: mixer_restore_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); Info = GOOD; a = plci->adapter; if ((plci->B1_facilities & B1_FACILITY_MIXER) && (plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { switch (plci->adjust_b_state) { case ADJUST_B_RESTORE_MIXER_1: if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) { plci->internal_command = plci->adjust_b_command; if (plci_nl_busy(plci)) { plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_1; break; } xconnect_query_addresses(plci); plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_2; break; } plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_5; Rc = OK; case ADJUST_B_RESTORE_MIXER_2: case ADJUST_B_RESTORE_MIXER_3: case ADJUST_B_RESTORE_MIXER_4: if ((Rc != OK) && (Rc != OK_FC) && (Rc != 0)) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B query addresses failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } if (Rc == OK) { if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_2) plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_3; else if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_4) plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_5; } else if (Rc == 0) { if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_2) plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_4; else if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_3) plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_5; } if (plci->adjust_b_state != ADJUST_B_RESTORE_MIXER_5) { plci->internal_command = plci->adjust_b_command; break; } case ADJUST_B_RESTORE_MIXER_5: xconnect_write_coefs(plci, plci->adjust_b_command); plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_6; Rc = OK; case ADJUST_B_RESTORE_MIXER_6: if (!xconnect_write_coefs_process(Id, plci, Rc)) { dbug(1, dprintf("[%06lx] %s,%d: Write mixer coefs failed", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; break; } if (plci->internal_command) break; plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_7; case ADJUST_B_RESTORE_MIXER_7: break; } } return (Info); } static void mixer_command(dword Id, PLCI *plci, byte Rc) { DIVA_CAPI_ADAPTER *a; word i, internal_command; dbug(1, dprintf("[%06lx] %s,%d: mixer_command %02x %04x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command, plci->li_cmd)); a = plci->adapter; internal_command = plci->internal_command; plci->internal_command = 0; switch (plci->li_cmd) { case LI_REQ_CONNECT: case LI_REQ_DISCONNECT: case LI_REQ_SILENT_UPDATE: switch (internal_command) { default: if (plci->li_channel_bits & LI_CHANNEL_INVOLVED) { adjust_b1_resource(Id, plci, NULL, (word)(plci->B1_facilities | B1_FACILITY_MIXER), MIXER_COMMAND_1); } case MIXER_COMMAND_1: if (plci->li_channel_bits & LI_CHANNEL_INVOLVED) { if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Load mixer failed", UnMapId(Id), (char *)(FILE_), __LINE__)); break; } if (plci->internal_command) return; } plci->li_plci_b_req_pos = plci->li_plci_b_write_pos; if ((plci->li_channel_bits & LI_CHANNEL_INVOLVED) || ((get_b1_facilities(plci, plci->B1_resource) & B1_FACILITY_MIXER) && (add_b1_facilities(plci, plci->B1_resource, (word)(plci->B1_facilities & ~B1_FACILITY_MIXER)) == plci->B1_resource))) { xconnect_write_coefs(plci, MIXER_COMMAND_2); } else { do { mixer_indication_coefs_set(Id, plci); } while (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos); } case MIXER_COMMAND_2: if ((plci->li_channel_bits & LI_CHANNEL_INVOLVED) || ((get_b1_facilities(plci, plci->B1_resource) & B1_FACILITY_MIXER) && (add_b1_facilities(plci, plci->B1_resource, (word)(plci->B1_facilities & ~B1_FACILITY_MIXER)) == plci->B1_resource))) { if (!xconnect_write_coefs_process(Id, plci, Rc)) { dbug(1, dprintf("[%06lx] %s,%d: Write mixer coefs failed", UnMapId(Id), (char *)(FILE_), __LINE__)); if (plci->li_plci_b_write_pos != plci->li_plci_b_req_pos) { do { plci->li_plci_b_write_pos = (plci->li_plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES - 1 : plci->li_plci_b_write_pos - 1; i = (plci->li_plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES - 1 : plci->li_plci_b_write_pos - 1; } while ((plci->li_plci_b_write_pos != plci->li_plci_b_req_pos) && !(plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG)); } break; } if (plci->internal_command) return; } if (!(plci->li_channel_bits & LI_CHANNEL_INVOLVED)) { adjust_b1_resource(Id, plci, NULL, (word)(plci->B1_facilities & ~B1_FACILITY_MIXER), MIXER_COMMAND_3); } case MIXER_COMMAND_3: if (!(plci->li_channel_bits & LI_CHANNEL_INVOLVED)) { if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Unload mixer failed", UnMapId(Id), (char *)(FILE_), __LINE__)); break; } if (plci->internal_command) return; } break; } break; } if ((plci->li_bchannel_id == 0) || (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci != plci)) { dbug(1, dprintf("[%06x] %s,%d: Channel id wiped out %d", UnMapId(Id), (char *)(FILE_), __LINE__, (int)(plci->li_bchannel_id))); } else { i = a->li_base + (plci->li_bchannel_id - 1); li_config_table[i].curchnl = plci->li_channel_bits; if (!a->li_pri && (plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI)) { i = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1); li_config_table[i].curchnl = plci->li_channel_bits; if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) { i = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id); li_config_table[i].curchnl = plci->li_channel_bits; } } } } static void li_update_connect(dword Id, DIVA_CAPI_ADAPTER *a, PLCI *plci, dword plci_b_id, byte connect, dword li_flags) { word i, ch_a, ch_a_v, ch_a_s, ch_b, ch_b_v, ch_b_s; PLCI *plci_b; DIVA_CAPI_ADAPTER *a_b; a_b = &(adapter[MapController((byte)(plci_b_id & 0x7f)) - 1]); plci_b = &(a_b->plci[((plci_b_id >> 8) & 0xff) - 1]); ch_a = a->li_base + (plci->li_bchannel_id - 1); if (!a->li_pri && (plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI) && (Id & EXT_CONTROLLER)) { ch_a_v = ch_a + MIXER_IC_CHANNEL_BASE; ch_a_s = (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ? a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id) : ch_a_v; } else { ch_a_v = ch_a; ch_a_s = ch_a; } ch_b = a_b->li_base + (plci_b->li_bchannel_id - 1); if (!a_b->li_pri && (plci_b->tel == ADV_VOICE) && (plci_b == a_b->AdvSignalPLCI) && (plci_b_id & EXT_CONTROLLER)) { ch_b_v = ch_b + MIXER_IC_CHANNEL_BASE; ch_b_s = (a_b->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ? a_b->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci_b->li_bchannel_id) : ch_b_v; } else { ch_b_v = ch_b; ch_b_s = ch_b; } if (connect) { li_config_table[ch_a].flag_table[ch_a_v] &= ~LI_FLAG_MONITOR; li_config_table[ch_a].flag_table[ch_a_s] &= ~LI_FLAG_MONITOR; li_config_table[ch_a_v].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX); li_config_table[ch_a_s].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX); } li_config_table[ch_a].flag_table[ch_b_v] &= ~LI_FLAG_MONITOR; li_config_table[ch_a].flag_table[ch_b_s] &= ~LI_FLAG_MONITOR; li_config_table[ch_b_v].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX); li_config_table[ch_b_s].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX); if (ch_a_v == ch_b_v) { li_config_table[ch_a_v].flag_table[ch_b_v] &= ~LI_FLAG_CONFERENCE; li_config_table[ch_a_s].flag_table[ch_b_s] &= ~LI_FLAG_CONFERENCE; } else { if (li_config_table[ch_a_v].flag_table[ch_b_v] & LI_FLAG_CONFERENCE) { for (i = 0; i < li_total_channels; i++) { if (i != ch_a_v) li_config_table[ch_a_v].flag_table[i] &= ~LI_FLAG_CONFERENCE; } } if (li_config_table[ch_a_s].flag_table[ch_b_v] & LI_FLAG_CONFERENCE) { for (i = 0; i < li_total_channels; i++) { if (i != ch_a_s) li_config_table[ch_a_s].flag_table[i] &= ~LI_FLAG_CONFERENCE; } } if (li_config_table[ch_b_v].flag_table[ch_a_v] & LI_FLAG_CONFERENCE) { for (i = 0; i < li_total_channels; i++) { if (i != ch_a_v) li_config_table[i].flag_table[ch_a_v] &= ~LI_FLAG_CONFERENCE; } } if (li_config_table[ch_b_v].flag_table[ch_a_s] & LI_FLAG_CONFERENCE) { for (i = 0; i < li_total_channels; i++) { if (i != ch_a_s) li_config_table[i].flag_table[ch_a_s] &= ~LI_FLAG_CONFERENCE; } } } if (li_flags & LI_FLAG_CONFERENCE_A_B) { li_config_table[ch_b_v].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE; li_config_table[ch_b_s].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE; li_config_table[ch_b_v].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE; li_config_table[ch_b_s].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE; } if (li_flags & LI_FLAG_CONFERENCE_B_A) { li_config_table[ch_a_v].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE; li_config_table[ch_a_v].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE; li_config_table[ch_a_s].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE; li_config_table[ch_a_s].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE; } if (li_flags & LI_FLAG_MONITOR_A) { li_config_table[ch_a].flag_table[ch_a_v] |= LI_FLAG_MONITOR; li_config_table[ch_a].flag_table[ch_a_s] |= LI_FLAG_MONITOR; } if (li_flags & LI_FLAG_MONITOR_B) { li_config_table[ch_a].flag_table[ch_b_v] |= LI_FLAG_MONITOR; li_config_table[ch_a].flag_table[ch_b_s] |= LI_FLAG_MONITOR; } if (li_flags & LI_FLAG_ANNOUNCEMENT_A) { li_config_table[ch_a_v].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT; li_config_table[ch_a_s].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT; } if (li_flags & LI_FLAG_ANNOUNCEMENT_B) { li_config_table[ch_b_v].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT; li_config_table[ch_b_s].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT; } if (li_flags & LI_FLAG_MIX_A) { li_config_table[ch_a_v].flag_table[ch_a] |= LI_FLAG_MIX; li_config_table[ch_a_s].flag_table[ch_a] |= LI_FLAG_MIX; } if (li_flags & LI_FLAG_MIX_B) { li_config_table[ch_b_v].flag_table[ch_a] |= LI_FLAG_MIX; li_config_table[ch_b_s].flag_table[ch_a] |= LI_FLAG_MIX; } if (ch_a_v != ch_a_s) { li_config_table[ch_a_v].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE; li_config_table[ch_a_s].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE; } if (ch_b_v != ch_b_s) { li_config_table[ch_b_v].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE; li_config_table[ch_b_s].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE; } } static void li2_update_connect(dword Id, DIVA_CAPI_ADAPTER *a, PLCI *plci, dword plci_b_id, byte connect, dword li_flags) { word ch_a, ch_a_v, ch_a_s, ch_b, ch_b_v, ch_b_s; PLCI *plci_b; DIVA_CAPI_ADAPTER *a_b; a_b = &(adapter[MapController((byte)(plci_b_id & 0x7f)) - 1]); plci_b = &(a_b->plci[((plci_b_id >> 8) & 0xff) - 1]); ch_a = a->li_base + (plci->li_bchannel_id - 1); if (!a->li_pri && (plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI) && (Id & EXT_CONTROLLER)) { ch_a_v = ch_a + MIXER_IC_CHANNEL_BASE; ch_a_s = (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ? a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id) : ch_a_v; } else { ch_a_v = ch_a; ch_a_s = ch_a; } ch_b = a_b->li_base + (plci_b->li_bchannel_id - 1); if (!a_b->li_pri && (plci_b->tel == ADV_VOICE) && (plci_b == a_b->AdvSignalPLCI) && (plci_b_id & EXT_CONTROLLER)) { ch_b_v = ch_b + MIXER_IC_CHANNEL_BASE; ch_b_s = (a_b->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ? a_b->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci_b->li_bchannel_id) : ch_b_v; } else { ch_b_v = ch_b; ch_b_s = ch_b; } if (connect) { li_config_table[ch_b].flag_table[ch_b_v] &= ~LI_FLAG_MONITOR; li_config_table[ch_b].flag_table[ch_b_s] &= ~LI_FLAG_MONITOR; li_config_table[ch_b_v].flag_table[ch_b] &= ~LI_FLAG_MIX; li_config_table[ch_b_s].flag_table[ch_b] &= ~LI_FLAG_MIX; li_config_table[ch_b].flag_table[ch_b] &= ~LI_FLAG_PCCONNECT; li_config_table[ch_b].chflags &= ~(LI_CHFLAG_MONITOR | LI_CHFLAG_MIX | LI_CHFLAG_LOOP); } li_config_table[ch_b_v].flag_table[ch_a_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); li_config_table[ch_b_s].flag_table[ch_a_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); li_config_table[ch_b_v].flag_table[ch_a_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); li_config_table[ch_b_s].flag_table[ch_a_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); li_config_table[ch_a_v].flag_table[ch_b_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); li_config_table[ch_a_v].flag_table[ch_b_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); li_config_table[ch_a_s].flag_table[ch_b_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); li_config_table[ch_a_s].flag_table[ch_b_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE); if (li_flags & LI2_FLAG_INTERCONNECT_A_B) { li_config_table[ch_b_v].flag_table[ch_a_v] |= LI_FLAG_INTERCONNECT; li_config_table[ch_b_s].flag_table[ch_a_v] |= LI_FLAG_INTERCONNECT; li_config_table[ch_b_v].flag_table[ch_a_s] |= LI_FLAG_INTERCONNECT; li_config_table[ch_b_s].flag_table[ch_a_s] |= LI_FLAG_INTERCONNECT; } if (li_flags & LI2_FLAG_INTERCONNECT_B_A) { li_config_table[ch_a_v].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT; li_config_table[ch_a_v].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT; li_config_table[ch_a_s].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT; li_config_table[ch_a_s].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT; } if (li_flags & LI2_FLAG_MONITOR_B) { li_config_table[ch_b].flag_table[ch_b_v] |= LI_FLAG_MONITOR; li_config_table[ch_b].flag_table[ch_b_s] |= LI_FLAG_MONITOR; } if (li_flags & LI2_FLAG_MIX_B) { li_config_table[ch_b_v].flag_table[ch_b] |= LI_FLAG_MIX; li_config_table[ch_b_s].flag_table[ch_b] |= LI_FLAG_MIX; } if (li_flags & LI2_FLAG_MONITOR_X) li_config_table[ch_b].chflags |= LI_CHFLAG_MONITOR; if (li_flags & LI2_FLAG_MIX_X) li_config_table[ch_b].chflags |= LI_CHFLAG_MIX; if (li_flags & LI2_FLAG_LOOP_B) { li_config_table[ch_b_v].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT; li_config_table[ch_b_s].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT; li_config_table[ch_b_v].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT; li_config_table[ch_b_s].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT; } if (li_flags & LI2_FLAG_LOOP_PC) li_config_table[ch_b].flag_table[ch_b] |= LI_FLAG_PCCONNECT; if (li_flags & LI2_FLAG_LOOP_X) li_config_table[ch_b].chflags |= LI_CHFLAG_LOOP; if (li_flags & LI2_FLAG_PCCONNECT_A_B) li_config_table[ch_b_s].flag_table[ch_a_s] |= LI_FLAG_PCCONNECT; if (li_flags & LI2_FLAG_PCCONNECT_B_A) li_config_table[ch_a_s].flag_table[ch_b_s] |= LI_FLAG_PCCONNECT; if (ch_a_v != ch_a_s) { li_config_table[ch_a_v].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE; li_config_table[ch_a_s].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE; } if (ch_b_v != ch_b_s) { li_config_table[ch_b_v].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE; li_config_table[ch_b_s].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE; } } static word li_check_main_plci(dword Id, PLCI *plci) { if (plci == NULL) { dbug(1, dprintf("[%06lx] %s,%d: Wrong PLCI", UnMapId(Id), (char *)(FILE_), __LINE__)); return (_WRONG_IDENTIFIER); } if (!plci->State || !plci->NL.Id || plci->nl_remove_id || (plci->li_bchannel_id == 0)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong state", UnMapId(Id), (char *)(FILE_), __LINE__)); return (_WRONG_STATE); } li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci = plci; return (GOOD); } static PLCI *li_check_plci_b(dword Id, PLCI *plci, dword plci_b_id, word plci_b_write_pos, byte *p_result) { byte ctlr_b; PLCI *plci_b; if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos : LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 2) { dbug(1, dprintf("[%06lx] %s,%d: LI request overrun", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(p_result, _REQUEST_NOT_ALLOWED_IN_THIS_STATE); return (NULL); } ctlr_b = 0; if ((plci_b_id & 0x7f) != 0) { ctlr_b = MapController((byte)(plci_b_id & 0x7f)); if ((ctlr_b > max_adapter) || ((ctlr_b != 0) && (adapter[ctlr_b - 1].request == NULL))) ctlr_b = 0; } if ((ctlr_b == 0) || (((plci_b_id >> 8) & 0xff) == 0) || (((plci_b_id >> 8) & 0xff) > adapter[ctlr_b - 1].max_plci)) { dbug(1, dprintf("[%06lx] %s,%d: LI invalid second PLCI %08lx", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b_id)); PUT_WORD(p_result, _WRONG_IDENTIFIER); return (NULL); } plci_b = &(adapter[ctlr_b - 1].plci[((plci_b_id >> 8) & 0xff) - 1]); if (!plci_b->State || !plci_b->NL.Id || plci_b->nl_remove_id || (plci_b->li_bchannel_id == 0)) { dbug(1, dprintf("[%06lx] %s,%d: LI peer in wrong state %08lx", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b_id)); PUT_WORD(p_result, _REQUEST_NOT_ALLOWED_IN_THIS_STATE); return (NULL); } li_config_table[plci_b->adapter->li_base + (plci_b->li_bchannel_id - 1)].plci = plci_b; if (((byte)(plci_b_id & ~EXT_CONTROLLER)) != ((byte)(UnMapController(plci->adapter->Id) & ~EXT_CONTROLLER)) && (!(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) || !(plci_b->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT))) { dbug(1, dprintf("[%06lx] %s,%d: LI not on same ctrl %08lx", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b_id)); PUT_WORD(p_result, _WRONG_IDENTIFIER); return (NULL); } if (!(get_b1_facilities(plci_b, add_b1_facilities(plci_b, plci_b->B1_resource, (word)(plci_b->B1_facilities | B1_FACILITY_MIXER))) & B1_FACILITY_MIXER)) { dbug(1, dprintf("[%06lx] %s,%d: Interconnect peer cannot mix %d", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b->B1_resource)); PUT_WORD(p_result, _REQUEST_NOT_ALLOWED_IN_THIS_STATE); return (NULL); } return (plci_b); } static PLCI *li2_check_plci_b(dword Id, PLCI *plci, dword plci_b_id, word plci_b_write_pos, byte *p_result) { byte ctlr_b; PLCI *plci_b; if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos : LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 2) { dbug(1, dprintf("[%06lx] %s,%d: LI request overrun", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(p_result, _WRONG_STATE); return (NULL); } ctlr_b = 0; if ((plci_b_id & 0x7f) != 0) { ctlr_b = MapController((byte)(plci_b_id & 0x7f)); if ((ctlr_b > max_adapter) || ((ctlr_b != 0) && (adapter[ctlr_b - 1].request == NULL))) ctlr_b = 0; } if ((ctlr_b == 0) || (((plci_b_id >> 8) & 0xff) == 0) || (((plci_b_id >> 8) & 0xff) > adapter[ctlr_b - 1].max_plci)) { dbug(1, dprintf("[%06lx] %s,%d: LI invalid second PLCI %08lx", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b_id)); PUT_WORD(p_result, _WRONG_IDENTIFIER); return (NULL); } plci_b = &(adapter[ctlr_b - 1].plci[((plci_b_id >> 8) & 0xff) - 1]); if (!plci_b->State || !plci_b->NL.Id || plci_b->nl_remove_id || (plci_b->li_bchannel_id == 0) || (li_config_table[plci_b->adapter->li_base + (plci_b->li_bchannel_id - 1)].plci != plci_b)) { dbug(1, dprintf("[%06lx] %s,%d: LI peer in wrong state %08lx", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b_id)); PUT_WORD(p_result, _WRONG_STATE); return (NULL); } if (((byte)(plci_b_id & ~EXT_CONTROLLER)) != ((byte)(UnMapController(plci->adapter->Id) & ~EXT_CONTROLLER)) && (!(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) || !(plci_b->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT))) { dbug(1, dprintf("[%06lx] %s,%d: LI not on same ctrl %08lx", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b_id)); PUT_WORD(p_result, _WRONG_IDENTIFIER); return (NULL); } if (!(get_b1_facilities(plci_b, add_b1_facilities(plci_b, plci_b->B1_resource, (word)(plci_b->B1_facilities | B1_FACILITY_MIXER))) & B1_FACILITY_MIXER)) { dbug(1, dprintf("[%06lx] %s,%d: Interconnect peer cannot mix %d", UnMapId(Id), (char *)(FILE_), __LINE__, plci_b->B1_resource)); PUT_WORD(p_result, _WRONG_STATE); return (NULL); } return (plci_b); } static byte mixer_request(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word Info; word i; dword d, li_flags, plci_b_id; PLCI *plci_b; API_PARSE li_parms[3]; API_PARSE li_req_parms[3]; API_PARSE li_participant_struct[2]; API_PARSE li_participant_parms[3]; word participant_parms_pos; byte result_buffer[32]; byte *result; word result_pos; word plci_b_write_pos; dbug(1, dprintf("[%06lx] %s,%d: mixer_request", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = GOOD; result = result_buffer; result_buffer[0] = 0; if (!(a->profile.Global_Options & GL_LINE_INTERCONNECT_SUPPORTED)) { dbug(1, dprintf("[%06lx] %s,%d: Facility not supported", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; } else if (api_parse(&msg[1].info[1], msg[1].length, "ws", li_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; } else { result_buffer[0] = 3; PUT_WORD(&result_buffer[1], GET_WORD(li_parms[0].info)); result_buffer[3] = 0; switch (GET_WORD(li_parms[0].info)) { case LI_GET_SUPPORTED_SERVICES: if (appl->appl_flags & APPL_FLAG_OLD_LI_SPEC) { result_buffer[0] = 17; result_buffer[3] = 14; PUT_WORD(&result_buffer[4], GOOD); d = 0; if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_CH_CH) d |= LI_CONFERENCING_SUPPORTED; if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_CH_PC) d |= LI_MONITORING_SUPPORTED; if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_PC_CH) d |= LI_ANNOUNCEMENTS_SUPPORTED | LI_MIXING_SUPPORTED; if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) d |= LI_CROSS_CONTROLLER_SUPPORTED; PUT_DWORD(&result_buffer[6], d); if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) { d = 0; for (i = 0; i < li_total_channels; i++) { if ((li_config_table[i].adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) && (li_config_table[i].adapter->li_pri || (i < li_config_table[i].adapter->li_base + MIXER_BCHANNELS_BRI))) { d++; } } } else { d = a->li_pri ? a->li_channels : MIXER_BCHANNELS_BRI; } PUT_DWORD(&result_buffer[10], d / 2); PUT_DWORD(&result_buffer[14], d); } else { result_buffer[0] = 25; result_buffer[3] = 22; PUT_WORD(&result_buffer[4], GOOD); d = LI2_ASYMMETRIC_SUPPORTED | LI2_B_LOOPING_SUPPORTED | LI2_X_LOOPING_SUPPORTED; if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_CH_PC) d |= LI2_MONITORING_SUPPORTED | LI2_REMOTE_MONITORING_SUPPORTED; if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_PC_CH) d |= LI2_MIXING_SUPPORTED | LI2_REMOTE_MIXING_SUPPORTED; if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_PC_PC) d |= LI2_PC_LOOPING_SUPPORTED; if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) d |= LI2_CROSS_CONTROLLER_SUPPORTED; PUT_DWORD(&result_buffer[6], d); d = a->li_pri ? a->li_channels : MIXER_BCHANNELS_BRI; PUT_DWORD(&result_buffer[10], d / 2); PUT_DWORD(&result_buffer[14], d - 1); if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) { d = 0; for (i = 0; i < li_total_channels; i++) { if ((li_config_table[i].adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT) && (li_config_table[i].adapter->li_pri || (i < li_config_table[i].adapter->li_base + MIXER_BCHANNELS_BRI))) { d++; } } } PUT_DWORD(&result_buffer[18], d / 2); PUT_DWORD(&result_buffer[22], d - 1); } break; case LI_REQ_CONNECT: if (li_parms[1].length == 8) { appl->appl_flags |= APPL_FLAG_OLD_LI_SPEC; if (api_parse(&li_parms[1].info[1], li_parms[1].length, "dd", li_req_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; break; } plci_b_id = GET_DWORD(li_req_parms[0].info) & 0xffff; li_flags = GET_DWORD(li_req_parms[1].info); Info = li_check_main_plci(Id, plci); result_buffer[0] = 9; result_buffer[3] = 6; PUT_DWORD(&result_buffer[4], plci_b_id); PUT_WORD(&result_buffer[8], GOOD); if (Info != GOOD) break; result = plci->saved_msg.info; for (i = 0; i <= result_buffer[0]; i++) result[i] = result_buffer[i]; plci_b_write_pos = plci->li_plci_b_write_pos; plci_b = li_check_plci_b(Id, plci, plci_b_id, plci_b_write_pos, &result[8]); if (plci_b == NULL) break; li_update_connect(Id, a, plci, plci_b_id, true, li_flags); plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_LAST_FLAG; plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; plci->li_plci_b_write_pos = plci_b_write_pos; } else { appl->appl_flags &= ~APPL_FLAG_OLD_LI_SPEC; if (api_parse(&li_parms[1].info[1], li_parms[1].length, "ds", li_req_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; break; } li_flags = GET_DWORD(li_req_parms[0].info) & ~(LI2_FLAG_INTERCONNECT_A_B | LI2_FLAG_INTERCONNECT_B_A); Info = li_check_main_plci(Id, plci); result_buffer[0] = 7; result_buffer[3] = 4; PUT_WORD(&result_buffer[4], Info); result_buffer[6] = 0; if (Info != GOOD) break; result = plci->saved_msg.info; for (i = 0; i <= result_buffer[0]; i++) result[i] = result_buffer[i]; plci_b_write_pos = plci->li_plci_b_write_pos; participant_parms_pos = 0; result_pos = 7; li2_update_connect(Id, a, plci, UnMapId(Id), true, li_flags); while (participant_parms_pos < li_req_parms[1].length) { result[result_pos] = 6; result_pos += 7; PUT_DWORD(&result[result_pos - 6], 0); PUT_WORD(&result[result_pos - 2], GOOD); if (api_parse(&li_req_parms[1].info[1 + participant_parms_pos], (word)(li_parms[1].length - participant_parms_pos), "s", li_participant_struct)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(&result[result_pos - 2], _WRONG_MESSAGE_FORMAT); break; } if (api_parse(&li_participant_struct[0].info[1], li_participant_struct[0].length, "dd", li_participant_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(&result[result_pos - 2], _WRONG_MESSAGE_FORMAT); break; } plci_b_id = GET_DWORD(li_participant_parms[0].info) & 0xffff; li_flags = GET_DWORD(li_participant_parms[1].info); PUT_DWORD(&result[result_pos - 6], plci_b_id); if (sizeof(result) - result_pos < 7) { dbug(1, dprintf("[%06lx] %s,%d: LI result overrun", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(&result[result_pos - 2], _WRONG_STATE); break; } plci_b = li2_check_plci_b(Id, plci, plci_b_id, plci_b_write_pos, &result[result_pos - 2]); if (plci_b != NULL) { li2_update_connect(Id, a, plci, plci_b_id, true, li_flags); plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | ((li_flags & (LI2_FLAG_INTERCONNECT_A_B | LI2_FLAG_INTERCONNECT_B_A | LI2_FLAG_PCCONNECT_A_B | LI2_FLAG_PCCONNECT_B_A)) ? 0 : LI_PLCI_B_DISC_FLAG); plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; } participant_parms_pos = (word)((&li_participant_struct[0].info[1 + li_participant_struct[0].length]) - (&li_req_parms[1].info[1])); } result[0] = (byte)(result_pos - 1); result[3] = (byte)(result_pos - 4); result[6] = (byte)(result_pos - 7); i = (plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES - 1 : plci_b_write_pos - 1; if ((plci_b_write_pos == plci->li_plci_b_read_pos) || (plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG)) { plci->li_plci_b_queue[plci_b_write_pos] = LI_PLCI_B_SKIP_FLAG | LI_PLCI_B_LAST_FLAG; plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; } else plci->li_plci_b_queue[i] |= LI_PLCI_B_LAST_FLAG; plci->li_plci_b_write_pos = plci_b_write_pos; } mixer_calculate_coefs(a); plci->li_channel_bits = li_config_table[a->li_base + (plci->li_bchannel_id - 1)].channel; mixer_notify_update(plci, true); sendf(appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number, "wwS", Info, SELECTOR_LINE_INTERCONNECT, result); plci->command = 0; plci->li_cmd = GET_WORD(li_parms[0].info); start_internal_command(Id, plci, mixer_command); return (false); case LI_REQ_DISCONNECT: if (li_parms[1].length == 4) { appl->appl_flags |= APPL_FLAG_OLD_LI_SPEC; if (api_parse(&li_parms[1].info[1], li_parms[1].length, "d", li_req_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; break; } plci_b_id = GET_DWORD(li_req_parms[0].info) & 0xffff; Info = li_check_main_plci(Id, plci); result_buffer[0] = 9; result_buffer[3] = 6; PUT_DWORD(&result_buffer[4], GET_DWORD(li_req_parms[0].info)); PUT_WORD(&result_buffer[8], GOOD); if (Info != GOOD) break; result = plci->saved_msg.info; for (i = 0; i <= result_buffer[0]; i++) result[i] = result_buffer[i]; plci_b_write_pos = plci->li_plci_b_write_pos; plci_b = li_check_plci_b(Id, plci, plci_b_id, plci_b_write_pos, &result[8]); if (plci_b == NULL) break; li_update_connect(Id, a, plci, plci_b_id, false, 0); plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_DISC_FLAG | LI_PLCI_B_LAST_FLAG; plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; plci->li_plci_b_write_pos = plci_b_write_pos; } else { appl->appl_flags &= ~APPL_FLAG_OLD_LI_SPEC; if (api_parse(&li_parms[1].info[1], li_parms[1].length, "s", li_req_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; break; } Info = li_check_main_plci(Id, plci); result_buffer[0] = 7; result_buffer[3] = 4; PUT_WORD(&result_buffer[4], Info); result_buffer[6] = 0; if (Info != GOOD) break; result = plci->saved_msg.info; for (i = 0; i <= result_buffer[0]; i++) result[i] = result_buffer[i]; plci_b_write_pos = plci->li_plci_b_write_pos; participant_parms_pos = 0; result_pos = 7; while (participant_parms_pos < li_req_parms[0].length) { result[result_pos] = 6; result_pos += 7; PUT_DWORD(&result[result_pos - 6], 0); PUT_WORD(&result[result_pos - 2], GOOD); if (api_parse(&li_req_parms[0].info[1 + participant_parms_pos], (word)(li_parms[1].length - participant_parms_pos), "s", li_participant_struct)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(&result[result_pos - 2], _WRONG_MESSAGE_FORMAT); break; } if (api_parse(&li_participant_struct[0].info[1], li_participant_struct[0].length, "d", li_participant_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(&result[result_pos - 2], _WRONG_MESSAGE_FORMAT); break; } plci_b_id = GET_DWORD(li_participant_parms[0].info) & 0xffff; PUT_DWORD(&result[result_pos - 6], plci_b_id); if (sizeof(result) - result_pos < 7) { dbug(1, dprintf("[%06lx] %s,%d: LI result overrun", UnMapId(Id), (char *)(FILE_), __LINE__)); PUT_WORD(&result[result_pos - 2], _WRONG_STATE); break; } plci_b = li2_check_plci_b(Id, plci, plci_b_id, plci_b_write_pos, &result[result_pos - 2]); if (plci_b != NULL) { li2_update_connect(Id, a, plci, plci_b_id, false, 0); plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_DISC_FLAG; plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; } participant_parms_pos = (word)((&li_participant_struct[0].info[1 + li_participant_struct[0].length]) - (&li_req_parms[0].info[1])); } result[0] = (byte)(result_pos - 1); result[3] = (byte)(result_pos - 4); result[6] = (byte)(result_pos - 7); i = (plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES - 1 : plci_b_write_pos - 1; if ((plci_b_write_pos == plci->li_plci_b_read_pos) || (plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG)) { plci->li_plci_b_queue[plci_b_write_pos] = LI_PLCI_B_SKIP_FLAG | LI_PLCI_B_LAST_FLAG; plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; } else plci->li_plci_b_queue[i] |= LI_PLCI_B_LAST_FLAG; plci->li_plci_b_write_pos = plci_b_write_pos; } mixer_calculate_coefs(a); plci->li_channel_bits = li_config_table[a->li_base + (plci->li_bchannel_id - 1)].channel; mixer_notify_update(plci, true); sendf(appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number, "wwS", Info, SELECTOR_LINE_INTERCONNECT, result); plci->command = 0; plci->li_cmd = GET_WORD(li_parms[0].info); start_internal_command(Id, plci, mixer_command); return (false); case LI_REQ_SILENT_UPDATE: if (!plci || !plci->State || !plci->NL.Id || plci->nl_remove_id || (plci->li_bchannel_id == 0) || (li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci != plci)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong state", UnMapId(Id), (char *)(FILE_), __LINE__)); return (false); } plci_b_write_pos = plci->li_plci_b_write_pos; if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos : LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 2) { dbug(1, dprintf("[%06lx] %s,%d: LI request overrun", UnMapId(Id), (char *)(FILE_), __LINE__)); return (false); } i = (plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES - 1 : plci_b_write_pos - 1; if ((plci_b_write_pos == plci->li_plci_b_read_pos) || (plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG)) { plci->li_plci_b_queue[plci_b_write_pos] = LI_PLCI_B_SKIP_FLAG | LI_PLCI_B_LAST_FLAG; plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; } else plci->li_plci_b_queue[i] |= LI_PLCI_B_LAST_FLAG; plci->li_plci_b_write_pos = plci_b_write_pos; plci->li_channel_bits = li_config_table[a->li_base + (plci->li_bchannel_id - 1)].channel; plci->command = 0; plci->li_cmd = GET_WORD(li_parms[0].info); start_internal_command(Id, plci, mixer_command); return (false); default: dbug(1, dprintf("[%06lx] %s,%d: LI unknown request %04x", UnMapId(Id), (char *)(FILE_), __LINE__, GET_WORD(li_parms[0].info))); Info = _FACILITY_NOT_SUPPORTED; } } sendf(appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number, "wwS", Info, SELECTOR_LINE_INTERCONNECT, result); return (false); } static void mixer_indication_coefs_set(dword Id, PLCI *plci) { dword d; byte result[12]; dbug(1, dprintf("[%06lx] %s,%d: mixer_indication_coefs_set", UnMapId(Id), (char *)(FILE_), __LINE__)); if (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos) { do { d = plci->li_plci_b_queue[plci->li_plci_b_read_pos]; if (!(d & LI_PLCI_B_SKIP_FLAG)) { if (plci->appl->appl_flags & APPL_FLAG_OLD_LI_SPEC) { if (d & LI_PLCI_B_DISC_FLAG) { result[0] = 5; PUT_WORD(&result[1], LI_IND_DISCONNECT); result[3] = 2; PUT_WORD(&result[4], _LI_USER_INITIATED); } else { result[0] = 7; PUT_WORD(&result[1], LI_IND_CONNECT_ACTIVE); result[3] = 4; PUT_DWORD(&result[4], d & ~LI_PLCI_B_FLAG_MASK); } } else { if (d & LI_PLCI_B_DISC_FLAG) { result[0] = 9; PUT_WORD(&result[1], LI_IND_DISCONNECT); result[3] = 6; PUT_DWORD(&result[4], d & ~LI_PLCI_B_FLAG_MASK); PUT_WORD(&result[8], _LI_USER_INITIATED); } else { result[0] = 7; PUT_WORD(&result[1], LI_IND_CONNECT_ACTIVE); result[3] = 4; PUT_DWORD(&result[4], d & ~LI_PLCI_B_FLAG_MASK); } } sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", SELECTOR_LINE_INTERCONNECT, result); } plci->li_plci_b_read_pos = (plci->li_plci_b_read_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci->li_plci_b_read_pos + 1; } while (!(d & LI_PLCI_B_LAST_FLAG) && (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos)); } } static void mixer_indication_xconnect_from(dword Id, PLCI *plci, byte *msg, word length) { word i, j, ch; struct xconnect_transfer_address_s s, *p; DIVA_CAPI_ADAPTER *a; dbug(1, dprintf("[%06lx] %s,%d: mixer_indication_xconnect_from %d", UnMapId(Id), (char *)(FILE_), __LINE__, (int)length)); a = plci->adapter; i = 1; for (i = 1; i < length; i += 16) { s.card_address.low = msg[i] | (msg[i + 1] << 8) | (((dword)(msg[i + 2])) << 16) | (((dword)(msg[i + 3])) << 24); s.card_address.high = msg[i + 4] | (msg[i + 5] << 8) | (((dword)(msg[i + 6])) << 16) | (((dword)(msg[i + 7])) << 24); s.offset = msg[i + 8] | (msg[i + 9] << 8) | (((dword)(msg[i + 10])) << 16) | (((dword)(msg[i + 11])) << 24); ch = msg[i + 12] | (msg[i + 13] << 8); j = ch & XCONNECT_CHANNEL_NUMBER_MASK; if (!a->li_pri && (plci->li_bchannel_id == 2)) j = 1 - j; j += a->li_base; if (ch & XCONNECT_CHANNEL_PORT_PC) p = &(li_config_table[j].send_pc); else p = &(li_config_table[j].send_b); p->card_address.low = s.card_address.low; p->card_address.high = s.card_address.high; p->offset = s.offset; li_config_table[j].channel |= LI_CHANNEL_ADDRESSES_SET; } if (plci->internal_command_queue[0] && ((plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_2) || (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_3) || (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_4))) { (*(plci->internal_command_queue[0]))(Id, plci, 0); if (!plci->internal_command) next_internal_command(Id, plci); } mixer_notify_update(plci, true); } static void mixer_indication_xconnect_to(dword Id, PLCI *plci, byte *msg, word length) { dbug(1, dprintf("[%06lx] %s,%d: mixer_indication_xconnect_to %d", UnMapId(Id), (char *)(FILE_), __LINE__, (int) length)); } static byte mixer_notify_source_removed(PLCI *plci, dword plci_b_id) { word plci_b_write_pos; plci_b_write_pos = plci->li_plci_b_write_pos; if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos : LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 1) { dbug(1, dprintf("[%06lx] %s,%d: LI request overrun", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); return (false); } plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_DISC_FLAG; plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES - 1) ? 0 : plci_b_write_pos + 1; plci->li_plci_b_write_pos = plci_b_write_pos; return (true); } static void mixer_remove(PLCI *plci) { DIVA_CAPI_ADAPTER *a; PLCI *notify_plci; dword plci_b_id; word i, j; dbug(1, dprintf("[%06lx] %s,%d: mixer_remove", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); a = plci->adapter; plci_b_id = (plci->Id << 8) | UnMapController(plci->adapter->Id); if (a->profile.Global_Options & GL_LINE_INTERCONNECT_SUPPORTED) { if ((plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { i = a->li_base + (plci->li_bchannel_id - 1); if ((li_config_table[i].curchnl | li_config_table[i].channel) & LI_CHANNEL_INVOLVED) { for (j = 0; j < li_total_channels; j++) { if ((li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT) || (li_config_table[j].flag_table[i] & LI_FLAG_INTERCONNECT)) { notify_plci = li_config_table[j].plci; if ((notify_plci != NULL) && (notify_plci != plci) && (notify_plci->appl != NULL) && !(notify_plci->appl->appl_flags & APPL_FLAG_OLD_LI_SPEC) && (notify_plci->State) && notify_plci->NL.Id && !notify_plci->nl_remove_id) { mixer_notify_source_removed(notify_plci, plci_b_id); } } } mixer_clear_config(plci); mixer_calculate_coefs(a); mixer_notify_update(plci, true); } li_config_table[i].plci = NULL; plci->li_bchannel_id = 0; } } } /*------------------------------------------------------------------*/ /* Echo canceller facilities */ /*------------------------------------------------------------------*/ static void ec_write_parameters(PLCI *plci) { word w; byte parameter_buffer[6]; dbug(1, dprintf("[%06lx] %s,%d: ec_write_parameters", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); parameter_buffer[0] = 5; parameter_buffer[1] = DSP_CTRL_SET_LEC_PARAMETERS; PUT_WORD(¶meter_buffer[2], plci->ec_idi_options); plci->ec_idi_options &= ~LEC_RESET_COEFFICIENTS; w = (plci->ec_tail_length == 0) ? 128 : plci->ec_tail_length; PUT_WORD(¶meter_buffer[4], w); add_p(plci, FTY, parameter_buffer); sig_req(plci, TEL_CTRL, 0); send_req(plci); } static void ec_clear_config(PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: ec_clear_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); plci->ec_idi_options = LEC_ENABLE_ECHO_CANCELLER | LEC_MANUAL_DISABLE | LEC_ENABLE_NONLINEAR_PROCESSING; plci->ec_tail_length = 0; } static void ec_prepare_switch(dword Id, PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: ec_prepare_switch", UnMapId(Id), (char *)(FILE_), __LINE__)); } static word ec_save_config(dword Id, PLCI *plci, byte Rc) { dbug(1, dprintf("[%06lx] %s,%d: ec_save_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); return (GOOD); } static word ec_restore_config(dword Id, PLCI *plci, byte Rc) { word Info; dbug(1, dprintf("[%06lx] %s,%d: ec_restore_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); Info = GOOD; if (plci->B1_facilities & B1_FACILITY_EC) { switch (plci->adjust_b_state) { case ADJUST_B_RESTORE_EC_1: plci->internal_command = plci->adjust_b_command; if (plci->sig_req) { plci->adjust_b_state = ADJUST_B_RESTORE_EC_1; break; } ec_write_parameters(plci); plci->adjust_b_state = ADJUST_B_RESTORE_EC_2; break; case ADJUST_B_RESTORE_EC_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Restore EC failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } break; } } return (Info); } static void ec_command(dword Id, PLCI *plci, byte Rc) { word internal_command, Info; byte result[8]; dbug(1, dprintf("[%06lx] %s,%d: ec_command %02x %04x %04x %04x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command, plci->ec_cmd, plci->ec_idi_options, plci->ec_tail_length)); Info = GOOD; if (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) { result[0] = 2; PUT_WORD(&result[1], EC_SUCCESS); } else { result[0] = 5; PUT_WORD(&result[1], plci->ec_cmd); result[3] = 2; PUT_WORD(&result[4], GOOD); } internal_command = plci->internal_command; plci->internal_command = 0; switch (plci->ec_cmd) { case EC_ENABLE_OPERATION: case EC_FREEZE_COEFFICIENTS: case EC_RESUME_COEFFICIENT_UPDATE: case EC_RESET_COEFFICIENTS: switch (internal_command) { default: adjust_b1_resource(Id, plci, NULL, (word)(plci->B1_facilities | B1_FACILITY_EC), EC_COMMAND_1); case EC_COMMAND_1: if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Load EC failed", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; break; } if (plci->internal_command) return; case EC_COMMAND_2: if (plci->sig_req) { plci->internal_command = EC_COMMAND_2; return; } plci->internal_command = EC_COMMAND_3; ec_write_parameters(plci); return; case EC_COMMAND_3: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Enable EC failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _FACILITY_NOT_SUPPORTED; break; } break; } break; case EC_DISABLE_OPERATION: switch (internal_command) { default: case EC_COMMAND_1: if (plci->B1_facilities & B1_FACILITY_EC) { if (plci->sig_req) { plci->internal_command = EC_COMMAND_1; return; } plci->internal_command = EC_COMMAND_2; ec_write_parameters(plci); return; } Rc = OK; case EC_COMMAND_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Disable EC failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _FACILITY_NOT_SUPPORTED; break; } adjust_b1_resource(Id, plci, NULL, (word)(plci->B1_facilities & ~B1_FACILITY_EC), EC_COMMAND_3); case EC_COMMAND_3: if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Unload EC failed", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; break; } if (plci->internal_command) return; break; } break; } sendf(plci->appl, _FACILITY_R | CONFIRM, Id & 0xffffL, plci->number, "wws", Info, (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) ? PRIV_SELECTOR_ECHO_CANCELLER : SELECTOR_ECHO_CANCELLER, result); } static byte ec_request(dword Id, word Number, DIVA_CAPI_ADAPTER *a, PLCI *plci, APPL *appl, API_PARSE *msg) { word Info; word opt; API_PARSE ec_parms[3]; byte result[16]; dbug(1, dprintf("[%06lx] %s,%d: ec_request", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = GOOD; result[0] = 0; if (!(a->man_profile.private_options & (1L << PRIVATE_ECHO_CANCELLER))) { dbug(1, dprintf("[%06lx] %s,%d: Facility not supported", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _FACILITY_NOT_SUPPORTED; } else { if (appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) { if (api_parse(&msg[1].info[1], msg[1].length, "w", ec_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; } else { if (plci == NULL) { dbug(1, dprintf("[%06lx] %s,%d: Wrong PLCI", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_IDENTIFIER; } else if (!plci->State || !plci->NL.Id || plci->nl_remove_id) { dbug(1, dprintf("[%06lx] %s,%d: Wrong state", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_STATE; } else { plci->command = 0; plci->ec_cmd = GET_WORD(ec_parms[0].info); plci->ec_idi_options &= ~(LEC_MANUAL_DISABLE | LEC_RESET_COEFFICIENTS); result[0] = 2; PUT_WORD(&result[1], EC_SUCCESS); if (msg[1].length >= 4) { opt = GET_WORD(&ec_parms[0].info[2]); plci->ec_idi_options &= ~(LEC_ENABLE_NONLINEAR_PROCESSING | LEC_ENABLE_2100HZ_DETECTOR | LEC_REQUIRE_2100HZ_REVERSALS); if (!(opt & EC_DISABLE_NON_LINEAR_PROCESSING)) plci->ec_idi_options |= LEC_ENABLE_NONLINEAR_PROCESSING; if (opt & EC_DETECT_DISABLE_TONE) plci->ec_idi_options |= LEC_ENABLE_2100HZ_DETECTOR; if (!(opt & EC_DO_NOT_REQUIRE_REVERSALS)) plci->ec_idi_options |= LEC_REQUIRE_2100HZ_REVERSALS; if (msg[1].length >= 6) { plci->ec_tail_length = GET_WORD(&ec_parms[0].info[4]); } } switch (plci->ec_cmd) { case EC_ENABLE_OPERATION: plci->ec_idi_options &= ~LEC_FREEZE_COEFFICIENTS; start_internal_command(Id, plci, ec_command); return (false); case EC_DISABLE_OPERATION: plci->ec_idi_options = LEC_ENABLE_ECHO_CANCELLER | LEC_MANUAL_DISABLE | LEC_ENABLE_NONLINEAR_PROCESSING | LEC_RESET_COEFFICIENTS; start_internal_command(Id, plci, ec_command); return (false); case EC_FREEZE_COEFFICIENTS: plci->ec_idi_options |= LEC_FREEZE_COEFFICIENTS; start_internal_command(Id, plci, ec_command); return (false); case EC_RESUME_COEFFICIENT_UPDATE: plci->ec_idi_options &= ~LEC_FREEZE_COEFFICIENTS; start_internal_command(Id, plci, ec_command); return (false); case EC_RESET_COEFFICIENTS: plci->ec_idi_options |= LEC_RESET_COEFFICIENTS; start_internal_command(Id, plci, ec_command); return (false); default: dbug(1, dprintf("[%06lx] %s,%d: EC unknown request %04x", UnMapId(Id), (char *)(FILE_), __LINE__, plci->ec_cmd)); PUT_WORD(&result[1], EC_UNSUPPORTED_OPERATION); } } } } else { if (api_parse(&msg[1].info[1], msg[1].length, "ws", ec_parms)) { dbug(1, dprintf("[%06lx] %s,%d: Wrong message format", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_MESSAGE_FORMAT; } else { if (GET_WORD(ec_parms[0].info) == EC_GET_SUPPORTED_SERVICES) { result[0] = 11; PUT_WORD(&result[1], EC_GET_SUPPORTED_SERVICES); result[3] = 8; PUT_WORD(&result[4], GOOD); PUT_WORD(&result[6], 0x0007); PUT_WORD(&result[8], LEC_MAX_SUPPORTED_TAIL_LENGTH); PUT_WORD(&result[10], 0); } else if (plci == NULL) { dbug(1, dprintf("[%06lx] %s,%d: Wrong PLCI", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_IDENTIFIER; } else if (!plci->State || !plci->NL.Id || plci->nl_remove_id) { dbug(1, dprintf("[%06lx] %s,%d: Wrong state", UnMapId(Id), (char *)(FILE_), __LINE__)); Info = _WRONG_STATE; } else { plci->command = 0; plci->ec_cmd = GET_WORD(ec_parms[0].info); plci->ec_idi_options &= ~(LEC_MANUAL_DISABLE | LEC_RESET_COEFFICIENTS); result[0] = 5; PUT_WORD(&result[1], plci->ec_cmd); result[3] = 2; PUT_WORD(&result[4], GOOD); plci->ec_idi_options &= ~(LEC_ENABLE_NONLINEAR_PROCESSING | LEC_ENABLE_2100HZ_DETECTOR | LEC_REQUIRE_2100HZ_REVERSALS); plci->ec_tail_length = 0; if (ec_parms[1].length >= 2) { opt = GET_WORD(&ec_parms[1].info[1]); if (opt & EC_ENABLE_NON_LINEAR_PROCESSING) plci->ec_idi_options |= LEC_ENABLE_NONLINEAR_PROCESSING; if (opt & EC_DETECT_DISABLE_TONE) plci->ec_idi_options |= LEC_ENABLE_2100HZ_DETECTOR; if (!(opt & EC_DO_NOT_REQUIRE_REVERSALS)) plci->ec_idi_options |= LEC_REQUIRE_2100HZ_REVERSALS; if (ec_parms[1].length >= 4) { plci->ec_tail_length = GET_WORD(&ec_parms[1].info[3]); } } switch (plci->ec_cmd) { case EC_ENABLE_OPERATION: plci->ec_idi_options &= ~LEC_FREEZE_COEFFICIENTS; start_internal_command(Id, plci, ec_command); return (false); case EC_DISABLE_OPERATION: plci->ec_idi_options = LEC_ENABLE_ECHO_CANCELLER | LEC_MANUAL_DISABLE | LEC_ENABLE_NONLINEAR_PROCESSING | LEC_RESET_COEFFICIENTS; start_internal_command(Id, plci, ec_command); return (false); default: dbug(1, dprintf("[%06lx] %s,%d: EC unknown request %04x", UnMapId(Id), (char *)(FILE_), __LINE__, plci->ec_cmd)); PUT_WORD(&result[4], _FACILITY_SPECIFIC_FUNCTION_NOT_SUPP); } } } } } sendf(appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number, "wws", Info, (appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) ? PRIV_SELECTOR_ECHO_CANCELLER : SELECTOR_ECHO_CANCELLER, result); return (false); } static void ec_indication(dword Id, PLCI *plci, byte *msg, word length) { byte result[8]; dbug(1, dprintf("[%06lx] %s,%d: ec_indication", UnMapId(Id), (char *)(FILE_), __LINE__)); if (!(plci->ec_idi_options & LEC_MANUAL_DISABLE)) { if (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) { result[0] = 2; PUT_WORD(&result[1], 0); switch (msg[1]) { case LEC_DISABLE_TYPE_CONTIGNUOUS_2100HZ: PUT_WORD(&result[1], EC_BYPASS_DUE_TO_CONTINUOUS_2100HZ); break; case LEC_DISABLE_TYPE_REVERSED_2100HZ: PUT_WORD(&result[1], EC_BYPASS_DUE_TO_REVERSED_2100HZ); break; case LEC_DISABLE_RELEASED: PUT_WORD(&result[1], EC_BYPASS_RELEASED); break; } } else { result[0] = 5; PUT_WORD(&result[1], EC_BYPASS_INDICATION); result[3] = 2; PUT_WORD(&result[4], 0); switch (msg[1]) { case LEC_DISABLE_TYPE_CONTIGNUOUS_2100HZ: PUT_WORD(&result[4], EC_BYPASS_DUE_TO_CONTINUOUS_2100HZ); break; case LEC_DISABLE_TYPE_REVERSED_2100HZ: PUT_WORD(&result[4], EC_BYPASS_DUE_TO_REVERSED_2100HZ); break; case LEC_DISABLE_RELEASED: PUT_WORD(&result[4], EC_BYPASS_RELEASED); break; } } sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) ? PRIV_SELECTOR_ECHO_CANCELLER : SELECTOR_ECHO_CANCELLER, result); } } /*------------------------------------------------------------------*/ /* Advanced voice */ /*------------------------------------------------------------------*/ static void adv_voice_write_coefs(PLCI *plci, word write_command) { DIVA_CAPI_ADAPTER *a; word i; byte *p; word w, n, j, k; byte ch_map[MIXER_CHANNELS_BRI]; byte coef_buffer[ADV_VOICE_COEF_BUFFER_SIZE + 2]; dbug(1, dprintf("[%06lx] %s,%d: adv_voice_write_coefs %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, write_command)); a = plci->adapter; p = coef_buffer + 1; *(p++) = DSP_CTRL_OLD_SET_MIXER_COEFFICIENTS; i = 0; while (i + sizeof(word) <= a->adv_voice_coef_length) { PUT_WORD(p, GET_WORD(a->adv_voice_coef_buffer + i)); p += 2; i += 2; } while (i < ADV_VOICE_OLD_COEF_COUNT * sizeof(word)) { PUT_WORD(p, 0x8000); p += 2; i += 2; } if (!a->li_pri && (plci->li_bchannel_id == 0)) { if ((li_config_table[a->li_base].plci == NULL) && (li_config_table[a->li_base + 1].plci != NULL)) { plci->li_bchannel_id = 1; li_config_table[a->li_base].plci = plci; dbug(1, dprintf("[%06lx] %s,%d: adv_voice_set_bchannel_id %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, plci->li_bchannel_id)); } else if ((li_config_table[a->li_base].plci != NULL) && (li_config_table[a->li_base + 1].plci == NULL)) { plci->li_bchannel_id = 2; li_config_table[a->li_base + 1].plci = plci; dbug(1, dprintf("[%06lx] %s,%d: adv_voice_set_bchannel_id %d", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, plci->li_bchannel_id)); } } if (!a->li_pri && (plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { i = a->li_base + (plci->li_bchannel_id - 1); switch (write_command) { case ADV_VOICE_WRITE_ACTIVATION: j = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1); k = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id); if (!(plci->B1_facilities & B1_FACILITY_MIXER)) { li_config_table[j].flag_table[i] |= LI_FLAG_CONFERENCE | LI_FLAG_MIX; li_config_table[i].flag_table[j] |= LI_FLAG_CONFERENCE | LI_FLAG_MONITOR; } if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) { li_config_table[k].flag_table[i] |= LI_FLAG_CONFERENCE | LI_FLAG_MIX; li_config_table[i].flag_table[k] |= LI_FLAG_CONFERENCE | LI_FLAG_MONITOR; li_config_table[k].flag_table[j] |= LI_FLAG_CONFERENCE; li_config_table[j].flag_table[k] |= LI_FLAG_CONFERENCE; } mixer_calculate_coefs(a); li_config_table[i].curchnl = li_config_table[i].channel; li_config_table[j].curchnl = li_config_table[j].channel; if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) li_config_table[k].curchnl = li_config_table[k].channel; break; case ADV_VOICE_WRITE_DEACTIVATION: for (j = 0; j < li_total_channels; j++) { li_config_table[i].flag_table[j] = 0; li_config_table[j].flag_table[i] = 0; } k = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1); for (j = 0; j < li_total_channels; j++) { li_config_table[k].flag_table[j] = 0; li_config_table[j].flag_table[k] = 0; } if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) { k = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id); for (j = 0; j < li_total_channels; j++) { li_config_table[k].flag_table[j] = 0; li_config_table[j].flag_table[k] = 0; } } mixer_calculate_coefs(a); break; } if (plci->B1_facilities & B1_FACILITY_MIXER) { w = 0; if (ADV_VOICE_NEW_COEF_BASE + sizeof(word) <= a->adv_voice_coef_length) w = GET_WORD(a->adv_voice_coef_buffer + ADV_VOICE_NEW_COEF_BASE); if (li_config_table[i].channel & LI_CHANNEL_TX_DATA) w |= MIXER_FEATURE_ENABLE_TX_DATA; if (li_config_table[i].channel & LI_CHANNEL_RX_DATA) w |= MIXER_FEATURE_ENABLE_RX_DATA; *(p++) = (byte) w; *(p++) = (byte)(w >> 8); for (j = 0; j < sizeof(ch_map); j += 2) { ch_map[j] = (byte)(j + (plci->li_bchannel_id - 1)); ch_map[j + 1] = (byte)(j + (2 - plci->li_bchannel_id)); } for (n = 0; n < ARRAY_SIZE(mixer_write_prog_bri); n++) { i = a->li_base + ch_map[mixer_write_prog_bri[n].to_ch]; j = a->li_base + ch_map[mixer_write_prog_bri[n].from_ch]; if (li_config_table[i].channel & li_config_table[j].channel & LI_CHANNEL_INVOLVED) { *(p++) = ((li_config_table[i].coef_table[j] & mixer_write_prog_bri[n].mask) ? 0x80 : 0x01); w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4)); li_config_table[i].coef_table[j] ^= (w & mixer_write_prog_bri[n].mask) << 4; } else { *(p++) = (ADV_VOICE_NEW_COEF_BASE + sizeof(word) + n < a->adv_voice_coef_length) ? a->adv_voice_coef_buffer[ADV_VOICE_NEW_COEF_BASE + sizeof(word) + n] : 0x00; } } } else { for (i = ADV_VOICE_NEW_COEF_BASE; i < a->adv_voice_coef_length; i++) *(p++) = a->adv_voice_coef_buffer[i]; } } else { for (i = ADV_VOICE_NEW_COEF_BASE; i < a->adv_voice_coef_length; i++) *(p++) = a->adv_voice_coef_buffer[i]; } coef_buffer[0] = (p - coef_buffer) - 1; add_p(plci, FTY, coef_buffer); sig_req(plci, TEL_CTRL, 0); send_req(plci); } static void adv_voice_clear_config(PLCI *plci) { DIVA_CAPI_ADAPTER *a; word i, j; dbug(1, dprintf("[%06lx] %s,%d: adv_voice_clear_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); a = plci->adapter; if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI)) { a->adv_voice_coef_length = 0; if (!a->li_pri && (plci->li_bchannel_id != 0) && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { i = a->li_base + (plci->li_bchannel_id - 1); li_config_table[i].curchnl = 0; li_config_table[i].channel = 0; li_config_table[i].chflags = 0; for (j = 0; j < li_total_channels; j++) { li_config_table[i].flag_table[j] = 0; li_config_table[j].flag_table[i] = 0; li_config_table[i].coef_table[j] = 0; li_config_table[j].coef_table[i] = 0; } li_config_table[i].coef_table[i] |= LI_COEF_CH_PC_SET | LI_COEF_PC_CH_SET; i = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1); li_config_table[i].curchnl = 0; li_config_table[i].channel = 0; li_config_table[i].chflags = 0; for (j = 0; j < li_total_channels; j++) { li_config_table[i].flag_table[j] = 0; li_config_table[j].flag_table[i] = 0; li_config_table[i].coef_table[j] = 0; li_config_table[j].coef_table[i] = 0; } if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) { i = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id); li_config_table[i].curchnl = 0; li_config_table[i].channel = 0; li_config_table[i].chflags = 0; for (j = 0; j < li_total_channels; j++) { li_config_table[i].flag_table[j] = 0; li_config_table[j].flag_table[i] = 0; li_config_table[i].coef_table[j] = 0; li_config_table[j].coef_table[i] = 0; } } } } } static void adv_voice_prepare_switch(dword Id, PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: adv_voice_prepare_switch", UnMapId(Id), (char *)(FILE_), __LINE__)); } static word adv_voice_save_config(dword Id, PLCI *plci, byte Rc) { dbug(1, dprintf("[%06lx] %s,%d: adv_voice_save_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); return (GOOD); } static word adv_voice_restore_config(dword Id, PLCI *plci, byte Rc) { DIVA_CAPI_ADAPTER *a; word Info; dbug(1, dprintf("[%06lx] %s,%d: adv_voice_restore_config %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); Info = GOOD; a = plci->adapter; if ((plci->B1_facilities & B1_FACILITY_VOICE) && (plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI)) { switch (plci->adjust_b_state) { case ADJUST_B_RESTORE_VOICE_1: plci->internal_command = plci->adjust_b_command; if (plci->sig_req) { plci->adjust_b_state = ADJUST_B_RESTORE_VOICE_1; break; } adv_voice_write_coefs(plci, ADV_VOICE_WRITE_UPDATE); plci->adjust_b_state = ADJUST_B_RESTORE_VOICE_2; break; case ADJUST_B_RESTORE_VOICE_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Restore voice config failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } break; } } return (Info); } /*------------------------------------------------------------------*/ /* B1 resource switching */ /*------------------------------------------------------------------*/ static byte b1_facilities_table[] = { 0x00, /* 0 No bchannel resources */ 0x00, /* 1 Codec (automatic law) */ 0x00, /* 2 Codec (A-law) */ 0x00, /* 3 Codec (y-law) */ 0x00, /* 4 HDLC for X.21 */ 0x00, /* 5 HDLC */ 0x00, /* 6 External Device 0 */ 0x00, /* 7 External Device 1 */ 0x00, /* 8 HDLC 56k */ 0x00, /* 9 Transparent */ 0x00, /* 10 Loopback to network */ 0x00, /* 11 Test pattern to net */ 0x00, /* 12 Rate adaptation sync */ 0x00, /* 13 Rate adaptation async */ 0x00, /* 14 R-Interface */ 0x00, /* 15 HDLC 128k leased line */ 0x00, /* 16 FAX */ 0x00, /* 17 Modem async */ 0x00, /* 18 Modem sync HDLC */ 0x00, /* 19 V.110 async HDLC */ 0x12, /* 20 Adv voice (Trans,mixer) */ 0x00, /* 21 Codec connected to IC */ 0x0c, /* 22 Trans,DTMF */ 0x1e, /* 23 Trans,DTMF+mixer */ 0x1f, /* 24 Trans,DTMF+mixer+local */ 0x13, /* 25 Trans,mixer+local */ 0x12, /* 26 HDLC,mixer */ 0x12, /* 27 HDLC 56k,mixer */ 0x2c, /* 28 Trans,LEC+DTMF */ 0x3e, /* 29 Trans,LEC+DTMF+mixer */ 0x3f, /* 30 Trans,LEC+DTMF+mixer+local */ 0x2c, /* 31 RTP,LEC+DTMF */ 0x3e, /* 32 RTP,LEC+DTMF+mixer */ 0x3f, /* 33 RTP,LEC+DTMF+mixer+local */ 0x00, /* 34 Signaling task */ 0x00, /* 35 PIAFS */ 0x0c, /* 36 Trans,DTMF+TONE */ 0x1e, /* 37 Trans,DTMF+TONE+mixer */ 0x1f /* 38 Trans,DTMF+TONE+mixer+local*/ }; static word get_b1_facilities(PLCI *plci, byte b1_resource) { word b1_facilities; b1_facilities = b1_facilities_table[b1_resource]; if ((b1_resource == 9) || (b1_resource == 20) || (b1_resource == 25)) { if (!(((plci->requested_options_conn | plci->requested_options) & (1L << PRIVATE_DTMF_TONE)) || (plci->appl && (plci->adapter->requested_options_table[plci->appl->Id - 1] & (1L << PRIVATE_DTMF_TONE))))) { if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_SEND) b1_facilities |= B1_FACILITY_DTMFX; if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE) b1_facilities |= B1_FACILITY_DTMFR; } } if ((b1_resource == 17) || (b1_resource == 18)) { if (plci->adapter->manufacturer_features & (MANUFACTURER_FEATURE_V18 | MANUFACTURER_FEATURE_VOWN)) b1_facilities |= B1_FACILITY_DTMFX | B1_FACILITY_DTMFR; } /* dbug (1, dprintf("[%06lx] %s,%d: get_b1_facilities %d %04x", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char far *)(FILE_), __LINE__, b1_resource, b1_facilites)); */ return (b1_facilities); } static byte add_b1_facilities(PLCI *plci, byte b1_resource, word b1_facilities) { byte b; switch (b1_resource) { case 5: case 26: if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE)) b = 26; else b = 5; break; case 8: case 27: if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE)) b = 27; else b = 8; break; case 9: case 20: case 22: case 23: case 24: case 25: case 28: case 29: case 30: case 36: case 37: case 38: if (b1_facilities & B1_FACILITY_EC) { if (b1_facilities & B1_FACILITY_LOCAL) b = 30; else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE)) b = 29; else b = 28; } else if ((b1_facilities & (B1_FACILITY_DTMFX | B1_FACILITY_DTMFR | B1_FACILITY_MIXER)) && (((plci->requested_options_conn | plci->requested_options) & (1L << PRIVATE_DTMF_TONE)) || (plci->appl && (plci->adapter->requested_options_table[plci->appl->Id - 1] & (1L << PRIVATE_DTMF_TONE))))) { if (b1_facilities & B1_FACILITY_LOCAL) b = 38; else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE)) b = 37; else b = 36; } else if (((plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_HARDDTMF) && !(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE)) || ((b1_facilities & B1_FACILITY_DTMFR) && ((b1_facilities & B1_FACILITY_MIXER) || !(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE))) || ((b1_facilities & B1_FACILITY_DTMFX) && ((b1_facilities & B1_FACILITY_MIXER) || !(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_SEND)))) { if (b1_facilities & B1_FACILITY_LOCAL) b = 24; else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE)) b = 23; else b = 22; } else { if (b1_facilities & B1_FACILITY_LOCAL) b = 25; else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE)) b = 20; else b = 9; } break; case 31: case 32: case 33: if (b1_facilities & B1_FACILITY_LOCAL) b = 33; else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE)) b = 32; else b = 31; break; default: b = b1_resource; } dbug(1, dprintf("[%06lx] %s,%d: add_b1_facilities %d %04x %d %04x", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, b1_resource, b1_facilities, b, get_b1_facilities(plci, b))); return (b); } static void adjust_b1_facilities(PLCI *plci, byte new_b1_resource, word new_b1_facilities) { word removed_facilities; dbug(1, dprintf("[%06lx] %s,%d: adjust_b1_facilities %d %04x %04x", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__, new_b1_resource, new_b1_facilities, new_b1_facilities & get_b1_facilities(plci, new_b1_resource))); new_b1_facilities &= get_b1_facilities(plci, new_b1_resource); removed_facilities = plci->B1_facilities & ~new_b1_facilities; if (removed_facilities & B1_FACILITY_EC) ec_clear_config(plci); if (removed_facilities & B1_FACILITY_DTMFR) { dtmf_rec_clear_config(plci); dtmf_parameter_clear_config(plci); } if (removed_facilities & B1_FACILITY_DTMFX) dtmf_send_clear_config(plci); if (removed_facilities & B1_FACILITY_MIXER) mixer_clear_config(plci); if (removed_facilities & B1_FACILITY_VOICE) adv_voice_clear_config(plci); plci->B1_facilities = new_b1_facilities; } static void adjust_b_clear(PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: adjust_b_clear", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); plci->adjust_b_restore = false; } static word adjust_b_process(dword Id, PLCI *plci, byte Rc) { word Info; byte b1_resource; NCCI *ncci_ptr; API_PARSE bp[2]; dbug(1, dprintf("[%06lx] %s,%d: adjust_b_process %02x %d", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->adjust_b_state)); Info = GOOD; switch (plci->adjust_b_state) { case ADJUST_B_START: if ((plci->adjust_b_parms_msg == NULL) && (plci->adjust_b_mode & ADJUST_B_MODE_SWITCH_L1) && ((plci->adjust_b_mode & ~(ADJUST_B_MODE_SAVE | ADJUST_B_MODE_SWITCH_L1 | ADJUST_B_MODE_NO_RESOURCE | ADJUST_B_MODE_RESTORE)) == 0)) { b1_resource = (plci->adjust_b_mode == ADJUST_B_MODE_NO_RESOURCE) ? 0 : add_b1_facilities(plci, plci->B1_resource, plci->adjust_b_facilities); if (b1_resource == plci->B1_resource) { adjust_b1_facilities(plci, b1_resource, plci->adjust_b_facilities); break; } if (plci->adjust_b_facilities & ~get_b1_facilities(plci, b1_resource)) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B nonsupported facilities %d %d %04x", UnMapId(Id), (char *)(FILE_), __LINE__, plci->B1_resource, b1_resource, plci->adjust_b_facilities)); Info = _WRONG_STATE; break; } } if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE) { mixer_prepare_switch(Id, plci); dtmf_prepare_switch(Id, plci); dtmf_parameter_prepare_switch(Id, plci); ec_prepare_switch(Id, plci); adv_voice_prepare_switch(Id, plci); } plci->adjust_b_state = ADJUST_B_SAVE_MIXER_1; Rc = OK; case ADJUST_B_SAVE_MIXER_1: if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE) { Info = mixer_save_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_SAVE_DTMF_1; Rc = OK; case ADJUST_B_SAVE_DTMF_1: if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE) { Info = dtmf_save_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_REMOVE_L23_1; case ADJUST_B_REMOVE_L23_1: if ((plci->adjust_b_mode & ADJUST_B_MODE_REMOVE_L23) && plci->NL.Id && !plci->nl_remove_id) { plci->internal_command = plci->adjust_b_command; if (plci->adjust_b_ncci != 0) { ncci_ptr = &(plci->adapter->ncci[plci->adjust_b_ncci]); while (ncci_ptr->data_pending) { plci->data_sent_ptr = ncci_ptr->DBuffer[ncci_ptr->data_out].P; data_rc(plci, plci->adapter->ncci_ch[plci->adjust_b_ncci]); } while (ncci_ptr->data_ack_pending) data_ack(plci, plci->adapter->ncci_ch[plci->adjust_b_ncci]); } nl_req_ncci(plci, REMOVE, (byte)((plci->adjust_b_mode & ADJUST_B_MODE_CONNECT) ? plci->adjust_b_ncci : 0)); send_req(plci); plci->adjust_b_state = ADJUST_B_REMOVE_L23_2; break; } plci->adjust_b_state = ADJUST_B_REMOVE_L23_2; Rc = OK; case ADJUST_B_REMOVE_L23_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B remove failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } if (plci->adjust_b_mode & ADJUST_B_MODE_REMOVE_L23) { if (plci_nl_busy(plci)) { plci->internal_command = plci->adjust_b_command; break; } } plci->adjust_b_state = ADJUST_B_SAVE_EC_1; Rc = OK; case ADJUST_B_SAVE_EC_1: if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE) { Info = ec_save_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_SAVE_DTMF_PARAMETER_1; Rc = OK; case ADJUST_B_SAVE_DTMF_PARAMETER_1: if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE) { Info = dtmf_parameter_save_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_SAVE_VOICE_1; Rc = OK; case ADJUST_B_SAVE_VOICE_1: if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE) { Info = adv_voice_save_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_SWITCH_L1_1; case ADJUST_B_SWITCH_L1_1: if (plci->adjust_b_mode & ADJUST_B_MODE_SWITCH_L1) { if (plci->sig_req) { plci->internal_command = plci->adjust_b_command; break; } if (plci->adjust_b_parms_msg != NULL) api_load_msg(plci->adjust_b_parms_msg, bp); else api_load_msg(&plci->B_protocol, bp); Info = add_b1(plci, bp, (word)((plci->adjust_b_mode & ADJUST_B_MODE_NO_RESOURCE) ? 2 : 0), plci->adjust_b_facilities); if (Info != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B invalid L1 parameters %d %04x", UnMapId(Id), (char *)(FILE_), __LINE__, plci->B1_resource, plci->adjust_b_facilities)); break; } plci->internal_command = plci->adjust_b_command; sig_req(plci, RESOURCES, 0); send_req(plci); plci->adjust_b_state = ADJUST_B_SWITCH_L1_2; break; } plci->adjust_b_state = ADJUST_B_SWITCH_L1_2; Rc = OK; case ADJUST_B_SWITCH_L1_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B switch failed %02x %d %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->B1_resource, plci->adjust_b_facilities)); Info = _WRONG_STATE; break; } plci->adjust_b_state = ADJUST_B_RESTORE_VOICE_1; Rc = OK; case ADJUST_B_RESTORE_VOICE_1: case ADJUST_B_RESTORE_VOICE_2: if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE) { Info = adv_voice_restore_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_PARAMETER_1; Rc = OK; case ADJUST_B_RESTORE_DTMF_PARAMETER_1: case ADJUST_B_RESTORE_DTMF_PARAMETER_2: if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE) { Info = dtmf_parameter_restore_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_RESTORE_EC_1; Rc = OK; case ADJUST_B_RESTORE_EC_1: case ADJUST_B_RESTORE_EC_2: if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE) { Info = ec_restore_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_ASSIGN_L23_1; case ADJUST_B_ASSIGN_L23_1: if (plci->adjust_b_mode & ADJUST_B_MODE_ASSIGN_L23) { if (plci_nl_busy(plci)) { plci->internal_command = plci->adjust_b_command; break; } if (plci->adjust_b_mode & ADJUST_B_MODE_CONNECT) plci->call_dir |= CALL_DIR_FORCE_OUTG_NL; if (plci->adjust_b_parms_msg != NULL) api_load_msg(plci->adjust_b_parms_msg, bp); else api_load_msg(&plci->B_protocol, bp); Info = add_b23(plci, bp); if (Info != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B invalid L23 parameters %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Info)); break; } plci->internal_command = plci->adjust_b_command; nl_req_ncci(plci, ASSIGN, 0); send_req(plci); plci->adjust_b_state = ADJUST_B_ASSIGN_L23_2; break; } plci->adjust_b_state = ADJUST_B_ASSIGN_L23_2; Rc = ASSIGN_OK; case ADJUST_B_ASSIGN_L23_2: if ((Rc != OK) && (Rc != OK_FC) && (Rc != ASSIGN_OK)) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B assign failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } if (plci->adjust_b_mode & ADJUST_B_MODE_ASSIGN_L23) { if (Rc != ASSIGN_OK) { plci->internal_command = plci->adjust_b_command; break; } } if (plci->adjust_b_mode & ADJUST_B_MODE_USER_CONNECT) { plci->adjust_b_restore = true; break; } plci->adjust_b_state = ADJUST_B_CONNECT_1; case ADJUST_B_CONNECT_1: if (plci->adjust_b_mode & ADJUST_B_MODE_CONNECT) { plci->internal_command = plci->adjust_b_command; if (plci_nl_busy(plci)) break; nl_req_ncci(plci, N_CONNECT, 0); send_req(plci); plci->adjust_b_state = ADJUST_B_CONNECT_2; break; } plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1; Rc = OK; case ADJUST_B_CONNECT_2: case ADJUST_B_CONNECT_3: case ADJUST_B_CONNECT_4: if ((Rc != OK) && (Rc != OK_FC) && (Rc != 0)) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B connect failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } if (Rc == OK) { if (plci->adjust_b_mode & ADJUST_B_MODE_CONNECT) { get_ncci(plci, (byte)(Id >> 16), plci->adjust_b_ncci); Id = (Id & 0xffff) | (((dword)(plci->adjust_b_ncci)) << 16); } if (plci->adjust_b_state == ADJUST_B_CONNECT_2) plci->adjust_b_state = ADJUST_B_CONNECT_3; else if (plci->adjust_b_state == ADJUST_B_CONNECT_4) plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1; } else if (Rc == 0) { if (plci->adjust_b_state == ADJUST_B_CONNECT_2) plci->adjust_b_state = ADJUST_B_CONNECT_4; else if (plci->adjust_b_state == ADJUST_B_CONNECT_3) plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1; } if (plci->adjust_b_state != ADJUST_B_RESTORE_DTMF_1) { plci->internal_command = plci->adjust_b_command; break; } Rc = OK; case ADJUST_B_RESTORE_DTMF_1: case ADJUST_B_RESTORE_DTMF_2: if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE) { Info = dtmf_restore_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_1; Rc = OK; case ADJUST_B_RESTORE_MIXER_1: case ADJUST_B_RESTORE_MIXER_2: case ADJUST_B_RESTORE_MIXER_3: case ADJUST_B_RESTORE_MIXER_4: case ADJUST_B_RESTORE_MIXER_5: case ADJUST_B_RESTORE_MIXER_6: case ADJUST_B_RESTORE_MIXER_7: if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE) { Info = mixer_restore_config(Id, plci, Rc); if ((Info != GOOD) || plci->internal_command) break; } plci->adjust_b_state = ADJUST_B_END; case ADJUST_B_END: break; } return (Info); } static void adjust_b1_resource(dword Id, PLCI *plci, API_SAVE *bp_msg, word b1_facilities, word internal_command) { dbug(1, dprintf("[%06lx] %s,%d: adjust_b1_resource %d %04x", UnMapId(Id), (char *)(FILE_), __LINE__, plci->B1_resource, b1_facilities)); plci->adjust_b_parms_msg = bp_msg; plci->adjust_b_facilities = b1_facilities; plci->adjust_b_command = internal_command; plci->adjust_b_ncci = (word)(Id >> 16); if ((bp_msg == NULL) && (plci->B1_resource == 0)) plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_NO_RESOURCE | ADJUST_B_MODE_SWITCH_L1; else plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_SWITCH_L1 | ADJUST_B_MODE_RESTORE; plci->adjust_b_state = ADJUST_B_START; dbug(1, dprintf("[%06lx] %s,%d: Adjust B1 resource %d %04x...", UnMapId(Id), (char *)(FILE_), __LINE__, plci->B1_resource, b1_facilities)); } static void adjust_b_restore(dword Id, PLCI *plci, byte Rc) { word internal_command; dbug(1, dprintf("[%06lx] %s,%d: adjust_b_restore %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; if (plci->req_in != 0) { plci->internal_command = ADJUST_B_RESTORE_1; break; } Rc = OK; case ADJUST_B_RESTORE_1: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B enqueued failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); } plci->adjust_b_parms_msg = NULL; plci->adjust_b_facilities = plci->B1_facilities; plci->adjust_b_command = ADJUST_B_RESTORE_2; plci->adjust_b_ncci = (word)(Id >> 16); plci->adjust_b_mode = ADJUST_B_MODE_RESTORE; plci->adjust_b_state = ADJUST_B_START; dbug(1, dprintf("[%06lx] %s,%d: Adjust B restore...", UnMapId(Id), (char *)(FILE_), __LINE__)); case ADJUST_B_RESTORE_2: if (adjust_b_process(Id, plci, Rc) != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Adjust B restore failed", UnMapId(Id), (char *)(FILE_), __LINE__)); } if (plci->internal_command) break; break; } } static void reset_b3_command(dword Id, PLCI *plci, byte Rc) { word Info; word internal_command; dbug(1, dprintf("[%06lx] %s,%d: reset_b3_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); Info = GOOD; internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; plci->adjust_b_parms_msg = NULL; plci->adjust_b_facilities = plci->B1_facilities; plci->adjust_b_command = RESET_B3_COMMAND_1; plci->adjust_b_ncci = (word)(Id >> 16); plci->adjust_b_mode = ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_ASSIGN_L23 | ADJUST_B_MODE_CONNECT; plci->adjust_b_state = ADJUST_B_START; dbug(1, dprintf("[%06lx] %s,%d: Reset B3...", UnMapId(Id), (char *)(FILE_), __LINE__)); case RESET_B3_COMMAND_1: Info = adjust_b_process(Id, plci, Rc); if (Info != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Reset failed", UnMapId(Id), (char *)(FILE_), __LINE__)); break; } if (plci->internal_command) return; break; } /* sendf (plci->appl, _RESET_B3_R | CONFIRM, Id, plci->number, "w", Info);*/ sendf(plci->appl, _RESET_B3_I, Id, 0, "s", ""); } static void select_b_command(dword Id, PLCI *plci, byte Rc) { word Info; word internal_command; byte esc_chi[3]; dbug(1, dprintf("[%06lx] %s,%d: select_b_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); Info = GOOD; internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; plci->adjust_b_parms_msg = &plci->saved_msg; if ((plci->tel == ADV_VOICE) && (plci == plci->adapter->AdvSignalPLCI)) plci->adjust_b_facilities = plci->B1_facilities | B1_FACILITY_VOICE; else plci->adjust_b_facilities = plci->B1_facilities & ~B1_FACILITY_VOICE; plci->adjust_b_command = SELECT_B_COMMAND_1; plci->adjust_b_ncci = (word)(Id >> 16); if (plci->saved_msg.parms[0].length == 0) { plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_SWITCH_L1 | ADJUST_B_MODE_NO_RESOURCE; } else { plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_SWITCH_L1 | ADJUST_B_MODE_ASSIGN_L23 | ADJUST_B_MODE_USER_CONNECT | ADJUST_B_MODE_RESTORE; } plci->adjust_b_state = ADJUST_B_START; dbug(1, dprintf("[%06lx] %s,%d: Select B protocol...", UnMapId(Id), (char *)(FILE_), __LINE__)); case SELECT_B_COMMAND_1: Info = adjust_b_process(Id, plci, Rc); if (Info != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: Select B protocol failed", UnMapId(Id), (char *)(FILE_), __LINE__)); break; } if (plci->internal_command) return; if (plci->tel == ADV_VOICE) { esc_chi[0] = 0x02; esc_chi[1] = 0x18; esc_chi[2] = plci->b_channel; SetVoiceChannel(plci->adapter->AdvCodecPLCI, esc_chi, plci->adapter); } break; } sendf(plci->appl, _SELECT_B_REQ | CONFIRM, Id, plci->number, "w", Info); } static void fax_connect_ack_command(dword Id, PLCI *plci, byte Rc) { word internal_command; dbug(1, dprintf("[%06lx] %s,%d: fax_connect_ack_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; case FAX_CONNECT_ACK_COMMAND_1: if (plci_nl_busy(plci)) { plci->internal_command = FAX_CONNECT_ACK_COMMAND_1; return; } plci->internal_command = FAX_CONNECT_ACK_COMMAND_2; plci->NData[0].P = plci->fax_connect_info_buffer; plci->NData[0].PLength = plci->fax_connect_info_length; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_CONNECT_ACK; plci->adapter->request(&plci->NL); return; case FAX_CONNECT_ACK_COMMAND_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: FAX issue CONNECT ACK failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); break; } } if ((plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT) && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT)) { if (plci->B3_prot == 4) sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); else sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "S", plci->ncpi_buffer); plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT; } } static void fax_edata_ack_command(dword Id, PLCI *plci, byte Rc) { word internal_command; dbug(1, dprintf("[%06lx] %s,%d: fax_edata_ack_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; case FAX_EDATA_ACK_COMMAND_1: if (plci_nl_busy(plci)) { plci->internal_command = FAX_EDATA_ACK_COMMAND_1; return; } plci->internal_command = FAX_EDATA_ACK_COMMAND_2; plci->NData[0].P = plci->fax_connect_info_buffer; plci->NData[0].PLength = plci->fax_edata_ack_length; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_EDATA; plci->adapter->request(&plci->NL); return; case FAX_EDATA_ACK_COMMAND_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: FAX issue EDATA ACK failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); break; } } } static void fax_connect_info_command(dword Id, PLCI *plci, byte Rc) { word Info; word internal_command; dbug(1, dprintf("[%06lx] %s,%d: fax_connect_info_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); Info = GOOD; internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; case FAX_CONNECT_INFO_COMMAND_1: if (plci_nl_busy(plci)) { plci->internal_command = FAX_CONNECT_INFO_COMMAND_1; return; } plci->internal_command = FAX_CONNECT_INFO_COMMAND_2; plci->NData[0].P = plci->fax_connect_info_buffer; plci->NData[0].PLength = plci->fax_connect_info_length; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_EDATA; plci->adapter->request(&plci->NL); return; case FAX_CONNECT_INFO_COMMAND_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: FAX setting connect info failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } if (plci_nl_busy(plci)) { plci->internal_command = FAX_CONNECT_INFO_COMMAND_2; return; } plci->command = _CONNECT_B3_R; nl_req_ncci(plci, N_CONNECT, 0); send_req(plci); return; } sendf(plci->appl, _CONNECT_B3_R | CONFIRM, Id, plci->number, "w", Info); } static void fax_adjust_b23_command(dword Id, PLCI *plci, byte Rc) { word Info; word internal_command; dbug(1, dprintf("[%06lx] %s,%d: fax_adjust_b23_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); Info = GOOD; internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; plci->adjust_b_parms_msg = NULL; plci->adjust_b_facilities = plci->B1_facilities; plci->adjust_b_command = FAX_ADJUST_B23_COMMAND_1; plci->adjust_b_ncci = (word)(Id >> 16); plci->adjust_b_mode = ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_ASSIGN_L23; plci->adjust_b_state = ADJUST_B_START; dbug(1, dprintf("[%06lx] %s,%d: FAX adjust B23...", UnMapId(Id), (char *)(FILE_), __LINE__)); case FAX_ADJUST_B23_COMMAND_1: Info = adjust_b_process(Id, plci, Rc); if (Info != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: FAX adjust failed", UnMapId(Id), (char *)(FILE_), __LINE__)); break; } if (plci->internal_command) return; case FAX_ADJUST_B23_COMMAND_2: if (plci_nl_busy(plci)) { plci->internal_command = FAX_ADJUST_B23_COMMAND_2; return; } plci->command = _CONNECT_B3_R; nl_req_ncci(plci, N_CONNECT, 0); send_req(plci); return; } sendf(plci->appl, _CONNECT_B3_R | CONFIRM, Id, plci->number, "w", Info); } static void fax_disconnect_command(dword Id, PLCI *plci, byte Rc) { word internal_command; dbug(1, dprintf("[%06lx] %s,%d: fax_disconnect_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; plci->internal_command = FAX_DISCONNECT_COMMAND_1; return; case FAX_DISCONNECT_COMMAND_1: case FAX_DISCONNECT_COMMAND_2: case FAX_DISCONNECT_COMMAND_3: if ((Rc != OK) && (Rc != OK_FC) && (Rc != 0)) { dbug(1, dprintf("[%06lx] %s,%d: FAX disconnect EDATA failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); break; } if (Rc == OK) { if ((internal_command == FAX_DISCONNECT_COMMAND_1) || (internal_command == FAX_DISCONNECT_COMMAND_2)) { plci->internal_command = FAX_DISCONNECT_COMMAND_2; } } else if (Rc == 0) { if (internal_command == FAX_DISCONNECT_COMMAND_1) plci->internal_command = FAX_DISCONNECT_COMMAND_3; } return; } } static void rtp_connect_b3_req_command(dword Id, PLCI *plci, byte Rc) { word Info; word internal_command; dbug(1, dprintf("[%06lx] %s,%d: rtp_connect_b3_req_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); Info = GOOD; internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; case RTP_CONNECT_B3_REQ_COMMAND_1: if (plci_nl_busy(plci)) { plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_1; return; } plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_2; nl_req_ncci(plci, N_CONNECT, 0); send_req(plci); return; case RTP_CONNECT_B3_REQ_COMMAND_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: RTP setting connect info failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); Info = _WRONG_STATE; break; } if (plci_nl_busy(plci)) { plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_2; return; } plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_3; plci->NData[0].PLength = plci->internal_req_buffer[0]; plci->NData[0].P = plci->internal_req_buffer + 1; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_UDATA; plci->adapter->request(&plci->NL); break; case RTP_CONNECT_B3_REQ_COMMAND_3: return; } sendf(plci->appl, _CONNECT_B3_R | CONFIRM, Id, plci->number, "w", Info); } static void rtp_connect_b3_res_command(dword Id, PLCI *plci, byte Rc) { word internal_command; dbug(1, dprintf("[%06lx] %s,%d: rtp_connect_b3_res_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; case RTP_CONNECT_B3_RES_COMMAND_1: if (plci_nl_busy(plci)) { plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_1; return; } plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_2; nl_req_ncci(plci, N_CONNECT_ACK, (byte)(Id >> 16)); send_req(plci); return; case RTP_CONNECT_B3_RES_COMMAND_2: if ((Rc != OK) && (Rc != OK_FC)) { dbug(1, dprintf("[%06lx] %s,%d: RTP setting connect resp info failed %02x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc)); break; } if (plci_nl_busy(plci)) { plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_2; return; } sendf(plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", ""); plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_3; plci->NData[0].PLength = plci->internal_req_buffer[0]; plci->NData[0].P = plci->internal_req_buffer + 1; plci->NL.X = plci->NData; plci->NL.ReqCh = 0; plci->NL.Req = plci->nl_req = (byte) N_UDATA; plci->adapter->request(&plci->NL); return; case RTP_CONNECT_B3_RES_COMMAND_3: return; } } static void hold_save_command(dword Id, PLCI *plci, byte Rc) { byte SS_Ind[] = "\x05\x02\x00\x02\x00\x00"; /* Hold_Ind struct*/ word Info; word internal_command; dbug(1, dprintf("[%06lx] %s,%d: hold_save_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); Info = GOOD; internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: if (!plci->NL.Id) break; plci->command = 0; plci->adjust_b_parms_msg = NULL; plci->adjust_b_facilities = plci->B1_facilities; plci->adjust_b_command = HOLD_SAVE_COMMAND_1; plci->adjust_b_ncci = (word)(Id >> 16); plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_REMOVE_L23; plci->adjust_b_state = ADJUST_B_START; dbug(1, dprintf("[%06lx] %s,%d: HOLD save...", UnMapId(Id), (char *)(FILE_), __LINE__)); case HOLD_SAVE_COMMAND_1: Info = adjust_b_process(Id, plci, Rc); if (Info != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: HOLD save failed", UnMapId(Id), (char *)(FILE_), __LINE__)); break; } if (plci->internal_command) return; } sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", 3, SS_Ind); } static void retrieve_restore_command(dword Id, PLCI *plci, byte Rc) { byte SS_Ind[] = "\x05\x03\x00\x02\x00\x00"; /* Retrieve_Ind struct*/ word Info; word internal_command; dbug(1, dprintf("[%06lx] %s,%d: retrieve_restore_command %02x %04x", UnMapId(Id), (char *)(FILE_), __LINE__, Rc, plci->internal_command)); Info = GOOD; internal_command = plci->internal_command; plci->internal_command = 0; switch (internal_command) { default: plci->command = 0; plci->adjust_b_parms_msg = NULL; plci->adjust_b_facilities = plci->B1_facilities; plci->adjust_b_command = RETRIEVE_RESTORE_COMMAND_1; plci->adjust_b_ncci = (word)(Id >> 16); plci->adjust_b_mode = ADJUST_B_MODE_ASSIGN_L23 | ADJUST_B_MODE_USER_CONNECT | ADJUST_B_MODE_RESTORE; plci->adjust_b_state = ADJUST_B_START; dbug(1, dprintf("[%06lx] %s,%d: RETRIEVE restore...", UnMapId(Id), (char *)(FILE_), __LINE__)); case RETRIEVE_RESTORE_COMMAND_1: Info = adjust_b_process(Id, plci, Rc); if (Info != GOOD) { dbug(1, dprintf("[%06lx] %s,%d: RETRIEVE restore failed", UnMapId(Id), (char *)(FILE_), __LINE__)); break; } if (plci->internal_command) return; } sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", 3, SS_Ind); } static void init_b1_config(PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: init_b1_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); plci->B1_resource = 0; plci->B1_facilities = 0; plci->li_bchannel_id = 0; mixer_clear_config(plci); ec_clear_config(plci); dtmf_rec_clear_config(plci); dtmf_send_clear_config(plci); dtmf_parameter_clear_config(plci); adv_voice_clear_config(plci); adjust_b_clear(plci); } static void clear_b1_config(PLCI *plci) { dbug(1, dprintf("[%06lx] %s,%d: clear_b1_config", (dword)((plci->Id << 8) | UnMapController(plci->adapter->Id)), (char *)(FILE_), __LINE__)); adv_voice_clear_config(plci); adjust_b_clear(plci); ec_clear_config(plci); dtmf_rec_clear_config(plci); dtmf_send_clear_config(plci); dtmf_parameter_clear_config(plci); if ((plci->li_bchannel_id != 0) && (li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci == plci)) { mixer_clear_config(plci); li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci = NULL; plci->li_bchannel_id = 0; } plci->B1_resource = 0; plci->B1_facilities = 0; } /* ----------------------------------------------------------------- XON protocol local helpers ----------------------------------------------------------------- */ static void channel_flow_control_remove(PLCI *plci) { DIVA_CAPI_ADAPTER *a = plci->adapter; word i; for (i = 1; i < MAX_NL_CHANNEL + 1; i++) { if (a->ch_flow_plci[i] == plci->Id) { a->ch_flow_plci[i] = 0; a->ch_flow_control[i] = 0; } } } static void channel_x_on(PLCI *plci, byte ch) { DIVA_CAPI_ADAPTER *a = plci->adapter; if (a->ch_flow_control[ch] & N_XON_SENT) { a->ch_flow_control[ch] &= ~N_XON_SENT; } } static void channel_x_off(PLCI *plci, byte ch, byte flag) { DIVA_CAPI_ADAPTER *a = plci->adapter; if ((a->ch_flow_control[ch] & N_RX_FLOW_CONTROL_MASK) == 0) { a->ch_flow_control[ch] |= (N_CH_XOFF | flag); a->ch_flow_plci[ch] = plci->Id; a->ch_flow_control_pending++; } } static void channel_request_xon(PLCI *plci, byte ch) { DIVA_CAPI_ADAPTER *a = plci->adapter; if (a->ch_flow_control[ch] & N_CH_XOFF) { a->ch_flow_control[ch] |= N_XON_REQ; a->ch_flow_control[ch] &= ~N_CH_XOFF; a->ch_flow_control[ch] &= ~N_XON_CONNECT_IND; } } static void channel_xmit_extended_xon(PLCI *plci) { DIVA_CAPI_ADAPTER *a; int max_ch = ARRAY_SIZE(a->ch_flow_control); int i, one_requested = 0; if ((!plci) || (!plci->Id) || ((a = plci->adapter) == NULL)) { return; } for (i = 0; i < max_ch; i++) { if ((a->ch_flow_control[i] & N_CH_XOFF) && (a->ch_flow_control[i] & N_XON_CONNECT_IND) && (plci->Id == a->ch_flow_plci[i])) { channel_request_xon(plci, (byte)i); one_requested = 1; } } if (one_requested) { channel_xmit_xon(plci); } } /* Try to xmit next X_ON */ static int find_channel_with_pending_x_on(DIVA_CAPI_ADAPTER *a, PLCI *plci) { int max_ch = ARRAY_SIZE(a->ch_flow_control); int i; if (!(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XONOFF_FLOW_CONTROL)) { return (0); } if (a->last_flow_control_ch >= max_ch) { a->last_flow_control_ch = 1; } for (i = a->last_flow_control_ch; i < max_ch; i++) { if ((a->ch_flow_control[i] & N_XON_REQ) && (plci->Id == a->ch_flow_plci[i])) { a->last_flow_control_ch = i + 1; return (i); } } for (i = 1; i < a->last_flow_control_ch; i++) { if ((a->ch_flow_control[i] & N_XON_REQ) && (plci->Id == a->ch_flow_plci[i])) { a->last_flow_control_ch = i + 1; return (i); } } return (0); } static void channel_xmit_xon(PLCI *plci) { DIVA_CAPI_ADAPTER *a = plci->adapter; byte ch; if (plci->nl_req || !plci->NL.Id || plci->nl_remove_id) { return; } if ((ch = (byte)find_channel_with_pending_x_on(a, plci)) == 0) { return; } a->ch_flow_control[ch] &= ~N_XON_REQ; a->ch_flow_control[ch] |= N_XON_SENT; plci->NL.Req = plci->nl_req = (byte)N_XON; plci->NL.ReqCh = ch; plci->NL.X = plci->NData; plci->NL.XNum = 1; plci->NData[0].P = &plci->RBuffer[0]; plci->NData[0].PLength = 0; plci->adapter->request(&plci->NL); } static int channel_can_xon(PLCI *plci, byte ch) { APPL *APPLptr; DIVA_CAPI_ADAPTER *a; word NCCIcode; dword count; word Num; word i; APPLptr = plci->appl; a = plci->adapter; if (!APPLptr) return (0); NCCIcode = a->ch_ncci[ch] | (((word) a->Id) << 8); /* count all buffers within the Application pool */ /* belonging to the same NCCI. XON if a first is */ /* used. */ count = 0; Num = 0xffff; for (i = 0; i < APPLptr->MaxBuffer; i++) { if (NCCIcode == APPLptr->DataNCCI[i]) count++; if (!APPLptr->DataNCCI[i] && Num == 0xffff) Num = i; } if ((count > 2) || (Num == 0xffff)) { return (0); } return (1); } /*------------------------------------------------------------------*/ static word CPN_filter_ok(byte *cpn, DIVA_CAPI_ADAPTER *a, word offset) { return 1; } /**********************************************************************************/ /* function groups the listening applications according to the CIP mask and the */ /* Info_Mask. Each group gets just one Connect_Ind. Some application manufacturer */ /* are not multi-instance capable, so they start e.g. 30 applications what causes */ /* big problems on application level (one call, 30 Connect_Ind, ect). The */ /* function must be enabled by setting "a->group_optimization_enabled" from the */ /* OS specific part (per adapter). */ /**********************************************************************************/ static void group_optimization(DIVA_CAPI_ADAPTER *a, PLCI *plci) { word i, j, k, busy, group_found; dword info_mask_group[MAX_CIP_TYPES]; dword cip_mask_group[MAX_CIP_TYPES]; word appl_number_group_type[MAX_APPL]; PLCI *auxplci; set_group_ind_mask(plci); /* all APPLs within this inc. call are allowed to dial in */ if (!a->group_optimization_enabled) { dbug(1, dprintf("No group optimization")); return; } dbug(1, dprintf("Group optimization = 0x%x...", a->group_optimization_enabled)); for (i = 0; i < MAX_CIP_TYPES; i++) { info_mask_group[i] = 0; cip_mask_group[i] = 0; } for (i = 0; i < MAX_APPL; i++) { appl_number_group_type[i] = 0; } for (i = 0; i < max_appl; i++) /* check if any multi instance capable application is present */ { /* group_optimization set to 1 means not to optimize multi-instance capable applications (default) */ if (application[i].Id && (application[i].MaxNCCI) > 1 && (a->CIP_Mask[i]) && (a->group_optimization_enabled == 1)) { dbug(1, dprintf("Multi-Instance capable, no optimization required")); return; /* allow good application unfiltered access */ } } for (i = 0; i < max_appl; i++) /* Build CIP Groups */ { if (application[i].Id && a->CIP_Mask[i]) { for (k = 0, busy = false; k < a->max_plci; k++) { if (a->plci[k].Id) { auxplci = &a->plci[k]; if (auxplci->appl == &application[i]) /* application has a busy PLCI */ { busy = true; dbug(1, dprintf("Appl 0x%x is busy", i + 1)); } else if (test_c_ind_mask_bit(auxplci, i)) /* application has an incoming call pending */ { busy = true; dbug(1, dprintf("Appl 0x%x has inc. call pending", i + 1)); } } } for (j = 0, group_found = 0; j <= (MAX_CIP_TYPES) && !busy && !group_found; j++) /* build groups with free applications only */ { if (j == MAX_CIP_TYPES) /* all groups are in use but group still not found */ { /* the MAX_CIP_TYPES group enables all calls because of field overflow */ appl_number_group_type[i] = MAX_CIP_TYPES; group_found = true; dbug(1, dprintf("Field overflow appl 0x%x", i + 1)); } else if ((info_mask_group[j] == a->CIP_Mask[i]) && (cip_mask_group[j] == a->Info_Mask[i])) { /* is group already present ? */ appl_number_group_type[i] = j | 0x80; /* store the group number for each application */ group_found = true; dbug(1, dprintf("Group 0x%x found with appl 0x%x, CIP=0x%lx", appl_number_group_type[i], i + 1, info_mask_group[j])); } else if (!info_mask_group[j]) { /* establish a new group */ appl_number_group_type[i] = j | 0x80; /* store the group number for each application */ info_mask_group[j] = a->CIP_Mask[i]; /* store the new CIP mask for the new group */ cip_mask_group[j] = a->Info_Mask[i]; /* store the new Info_Mask for this new group */ group_found = true; dbug(1, dprintf("New Group 0x%x established with appl 0x%x, CIP=0x%lx", appl_number_group_type[i], i + 1, info_mask_group[j])); } } } } for (i = 0; i < max_appl; i++) /* Build group_optimization_mask_table */ { if (appl_number_group_type[i]) /* application is free, has listens and is member of a group */ { if (appl_number_group_type[i] == MAX_CIP_TYPES) { dbug(1, dprintf("OverflowGroup 0x%x, valid appl = 0x%x, call enabled", appl_number_group_type[i], i + 1)); } else { dbug(1, dprintf("Group 0x%x, valid appl = 0x%x", appl_number_group_type[i], i + 1)); for (j = i + 1; j < max_appl; j++) /* search other group members and mark them as busy */ { if (appl_number_group_type[i] == appl_number_group_type[j]) { dbug(1, dprintf("Appl 0x%x is member of group 0x%x, no call", j + 1, appl_number_group_type[j])); clear_group_ind_mask_bit(plci, j); /* disable call on other group members */ appl_number_group_type[j] = 0; /* remove disabled group member from group list */ } } } } else /* application should not get a call */ { clear_group_ind_mask_bit(plci, i); } } } /* OS notifies the driver about a application Capi_Register */ word CapiRegister(word id) { word i, j, appls_found; PLCI *plci; DIVA_CAPI_ADAPTER *a; for (i = 0, appls_found = 0; i < max_appl; i++) { if (application[i].Id && (application[i].Id != id)) { appls_found++; /* an application has been found */ } } if (appls_found) return true; for (i = 0; i < max_adapter; i++) /* scan all adapters... */ { a = &adapter[i]; if (a->request) { if (a->flag_dynamic_l1_down) /* remove adapter from L1 tristate (Huntgroup) */ { if (!appls_found) /* first application does a capi register */ { if ((j = get_plci(a))) /* activate L1 of all adapters */ { plci = &a->plci[j - 1]; plci->command = 0; add_p(plci, OAD, "\x01\xfd"); add_p(plci, CAI, "\x01\x80"); add_p(plci, UID, "\x06\x43\x61\x70\x69\x32\x30"); add_p(plci, SHIFT | 6, NULL); add_p(plci, SIN, "\x02\x00\x00"); plci->internal_command = START_L1_SIG_ASSIGN_PEND; sig_req(plci, ASSIGN, DSIG_ID); add_p(plci, FTY, "\x02\xff\x07"); /* l1 start */ sig_req(plci, SIG_CTRL, 0); send_req(plci); } } } } } return false; } /*------------------------------------------------------------------*/ /* Functions for virtual Switching e.g. Transfer by join, Conference */ static void VSwitchReqInd(PLCI *plci, dword Id, byte **parms) { word i; /* Format of vswitch_t: 0 byte length 1 byte VSWITCHIE 2 byte VSWITCH_REQ/VSWITCH_IND 3 byte reserved 4 word VSwitchcommand 6 word returnerror 8... Params */ if (!plci || !plci->appl || !plci->State || plci->Sig.Ind == NCR_FACILITY ) return; for (i = 0; i < MAX_MULTI_IE; i++) { if (!parms[i][0]) continue; if (parms[i][0] < 7) { parms[i][0] = 0; /* kill it */ continue; } dbug(1, dprintf("VSwitchReqInd(%d)", parms[i][4])); switch (parms[i][4]) { case VSJOIN: if (!plci->relatedPTYPLCI || (plci->ptyState != S_ECT && plci->relatedPTYPLCI->ptyState != S_ECT)) { /* Error */ break; } /* remember all necessary informations */ if (parms[i][0] != 11 || parms[i][8] != 3) /* Length Test */ { break; } if (parms[i][2] == VSWITCH_IND && parms[i][9] == 1) { /* first indication after ECT-Request on Consultation Call */ plci->vswitchstate = parms[i][9]; parms[i][9] = 2; /* State */ /* now ask first Call to join */ } else if (parms[i][2] == VSWITCH_REQ && parms[i][9] == 3) { /* Answer of VSWITCH_REQ from first Call */ plci->vswitchstate = parms[i][9]; /* tell consultation call to join and the protocol capabilities of the first call */ } else { /* Error */ break; } plci->vsprot = parms[i][10]; /* protocol */ plci->vsprotdialect = parms[i][11]; /* protocoldialect */ /* send join request to related PLCI */ parms[i][1] = VSWITCHIE; parms[i][2] = VSWITCH_REQ; plci->relatedPTYPLCI->command = 0; plci->relatedPTYPLCI->internal_command = VSWITCH_REQ_PEND; add_p(plci->relatedPTYPLCI, ESC, &parms[i][0]); sig_req(plci->relatedPTYPLCI, VSWITCH_REQ, 0); send_req(plci->relatedPTYPLCI); break; case VSTRANSPORT: default: if (plci->relatedPTYPLCI && plci->vswitchstate == 3 && plci->relatedPTYPLCI->vswitchstate == 3) { add_p(plci->relatedPTYPLCI, ESC, &parms[i][0]); sig_req(plci->relatedPTYPLCI, VSWITCH_REQ, 0); send_req(plci->relatedPTYPLCI); } break; } parms[i][0] = 0; /* kill it */ } } /*------------------------------------------------------------------*/ static int diva_get_dma_descriptor(PLCI *plci, dword *dma_magic) { ENTITY e; IDI_SYNC_REQ *pReq = (IDI_SYNC_REQ *)&e; if (!(diva_xdi_extended_features & DIVA_CAPI_XDI_PROVIDES_RX_DMA)) { return (-1); } pReq->xdi_dma_descriptor_operation.Req = 0; pReq->xdi_dma_descriptor_operation.Rc = IDI_SYNC_REQ_DMA_DESCRIPTOR_OPERATION; pReq->xdi_dma_descriptor_operation.info.operation = IDI_SYNC_REQ_DMA_DESCRIPTOR_ALLOC; pReq->xdi_dma_descriptor_operation.info.descriptor_number = -1; pReq->xdi_dma_descriptor_operation.info.descriptor_address = NULL; pReq->xdi_dma_descriptor_operation.info.descriptor_magic = 0; e.user[0] = plci->adapter->Id - 1; plci->adapter->request((ENTITY *)pReq); if (!pReq->xdi_dma_descriptor_operation.info.operation && (pReq->xdi_dma_descriptor_operation.info.descriptor_number >= 0) && pReq->xdi_dma_descriptor_operation.info.descriptor_magic) { *dma_magic = pReq->xdi_dma_descriptor_operation.info.descriptor_magic; dbug(3, dprintf("dma_alloc, a:%d (%d-%08x)", plci->adapter->Id, pReq->xdi_dma_descriptor_operation.info.descriptor_number, *dma_magic)); return (pReq->xdi_dma_descriptor_operation.info.descriptor_number); } else { dbug(1, dprintf("dma_alloc failed")); return (-1); } } static void diva_free_dma_descriptor(PLCI *plci, int nr) { ENTITY e; IDI_SYNC_REQ *pReq = (IDI_SYNC_REQ *)&e; if (nr < 0) { return; } pReq->xdi_dma_descriptor_operation.Req = 0; pReq->xdi_dma_descriptor_operation.Rc = IDI_SYNC_REQ_DMA_DESCRIPTOR_OPERATION; pReq->xdi_dma_descriptor_operation.info.operation = IDI_SYNC_REQ_DMA_DESCRIPTOR_FREE; pReq->xdi_dma_descriptor_operation.info.descriptor_number = nr; pReq->xdi_dma_descriptor_operation.info.descriptor_address = NULL; pReq->xdi_dma_descriptor_operation.info.descriptor_magic = 0; e.user[0] = plci->adapter->Id - 1; plci->adapter->request((ENTITY *)pReq); if (!pReq->xdi_dma_descriptor_operation.info.operation) { dbug(1, dprintf("dma_free(%d)", nr)); } else { dbug(1, dprintf("dma_free failed (%d)", nr)); } } /*------------------------------------------------------------------*/