drivers/isdn/hardware/eicon/message.c

   1 /*
   2  *
   3   Copyright (c) Eicon Networks, 2002.
   4  *
   5   This source file is supplied for the use with
   6   Eicon Networks range of DIVA Server Adapters.
   7  *
   8   Eicon File Revision :    2.1
   9  *
  10   This program is free software; you can redistribute it and/or modify
  11   it under the terms of the GNU General Public License as published by
  12   the Free Software Foundation; either version 2, or (at your option)
  13   any later version.
  14  *
  15   This program is distributed in the hope that it will be useful,
  16   but WITHOUT ANY WARRANTY OF ANY KIND WHATSOEVER INCLUDING ANY
  17   implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  18   See the GNU General Public License for more details.
  19  *
  20   You should have received a copy of the GNU General Public License
  21   along with this program; if not, write to the Free Software
  22   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23  *
  24  */
  25
  26
  27
  28
  29
  30 #include "platform.h"
  31 #include "di_defs.h"
  32 #include "pc.h"
  33 #include "capi20.h"
  34 #include "divacapi.h"
  35 #include "mdm_msg.h"
  36 #include "divasync.h"
  37
  38
  39
  40 #define FILE_ "MESSAGE.C"
  41 #define dprintf
  42
  43
  44
  45
  46
  47
  48
  49
  50
  51 /*------------------------------------------------------------------*/
  52 /* This is options supported for all adapters that are server by    */
  53 /* XDI driver. Allo it is not necessary to ask it from every adapter*/
  54 /* and it is not necessary to save it separate for every adapter    */
  55 /* Macrose defined here have only local meaning                     */
  56 /*------------------------------------------------------------------*/
  57 static dword diva_xdi_extended_features = 0;
  58
  59 #define DIVA_CAPI_USE_CMA                 0x00000001
  60 #define DIVA_CAPI_XDI_PROVIDES_SDRAM_BAR  0x00000002
  61 #define DIVA_CAPI_XDI_PROVIDES_NO_CANCEL  0x00000004
  62 #define DIVA_CAPI_XDI_PROVIDES_RX_DMA     0x00000008
  63
  64 /*
  65   CAPI can request to process all return codes self only if:
  66   protocol code supports this && xdi supports this
  67  */
  68 #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))
  69
  70 /*------------------------------------------------------------------*/
  71 /* local function prototypes                                        */
  72 /*------------------------------------------------------------------*/
  73
  74 static void group_optimization(DIVA_CAPI_ADAPTER   * a, PLCI   * plci);
  75 static void set_group_ind_mask (PLCI   *plci);
  76 static void clear_group_ind_mask_bit (PLCI   *plci, word b);
  77 static byte test_group_ind_mask_bit (PLCI   *plci, word b);
  78 void AutomaticLaw(DIVA_CAPI_ADAPTER   *);
  79 word CapiRelease(word);
  80 word CapiRegister(word);
  81 word api_put(APPL   *, CAPI_MSG   *);
  82 static word api_parse(byte   *, word, byte *, API_PARSE *);
  83 static void api_save_msg(API_PARSE   *in, byte *format, API_SAVE   *out);
  84 static void api_load_msg(API_SAVE   *in, API_PARSE   *out);
  85
  86 word api_remove_start(void);
  87 void api_remove_complete(void);
  88
  89 static void plci_remove(PLCI   *);
  90 static void diva_get_extended_adapter_features (DIVA_CAPI_ADAPTER  * a);
  91 static void diva_ask_for_xdi_sdram_bar (DIVA_CAPI_ADAPTER  *, IDI_SYNC_REQ  *);
  92
  93 void   callback(ENTITY   *);
  94
  95 static void control_rc(PLCI   *, byte, byte, byte, byte, byte);
  96 static void data_rc(PLCI   *, byte);
  97 static void data_ack(PLCI   *, byte);
  98 static void sig_ind(PLCI   *);
  99 static void SendInfo(PLCI   *, dword, byte   * *, byte);
 100 static void SendSetupInfo(APPL   *, PLCI   *, dword, byte   * *, byte);
 101 static void SendSSExtInd(APPL   *, PLCI   * plci, dword Id, byte   * * parms);
 102
 103 static void VSwitchReqInd(PLCI   *plci, dword Id, byte   **parms);
 104
 105 static void nl_ind(PLCI   *);
 106
 107 static byte connect_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 108 static byte connect_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 109 static byte connect_a_res(dword,word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 110 static byte disconnect_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 111 static byte disconnect_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 112 static byte listen_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 113 static byte info_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 114 static byte info_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 115 static byte alert_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 116 static byte facility_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 117 static byte facility_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 118 static byte connect_b3_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 119 static byte connect_b3_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 120 static byte connect_b3_a_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 121 static byte disconnect_b3_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 122 static byte disconnect_b3_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 123 static byte data_b3_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 124 static byte data_b3_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 125 static byte reset_b3_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 126 static byte reset_b3_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 127 static byte connect_b3_t90_a_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 128 static byte select_b_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 129 static byte manufacturer_req(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 130 static byte manufacturer_res(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 131
 132 static word get_plci(DIVA_CAPI_ADAPTER   *);
 133 static void add_p(PLCI   *, byte, byte   *);
 134 static void add_s(PLCI   * plci, byte code, API_PARSE * p);
 135 static void add_ss(PLCI   * plci, byte code, API_PARSE * p);
 136 static void add_ie(PLCI   * plci, byte code, byte   * p, word p_length);
 137 static void add_d(PLCI   *, word, byte   *);
 138 static void add_ai(PLCI   *, API_PARSE *);
 139 static word add_b1(PLCI   *, API_PARSE *, word, word);
 140 static word add_b23(PLCI   *, API_PARSE *);
 141 static word add_modem_b23 (PLCI  * plci, API_PARSE* bp_parms);
 142 static void sig_req(PLCI   *, byte, byte);
 143 static void nl_req_ncci(PLCI   *, byte, byte);
 144 static void send_req(PLCI   *);
 145 static void send_data(PLCI   *);
 146 static word plci_remove_check(PLCI   *);
 147 static void listen_check(DIVA_CAPI_ADAPTER   *);
 148 static byte AddInfo(byte   **, byte   **, byte   *, byte *);
 149 static byte getChannel(API_PARSE *);
 150 static void IndParse(PLCI   *, word *, byte   **, byte);
 151 static byte ie_compare(byte   *, byte *);
 152 static word find_cip(DIVA_CAPI_ADAPTER   *, byte   *, byte   *);
 153 static word CPN_filter_ok(byte   *cpn,DIVA_CAPI_ADAPTER   *,word);
 154
 155 /*
 156   XON protocol helpers
 157   */
 158 static void channel_flow_control_remove (PLCI   * plci);
 159 static void channel_x_off (PLCI   * plci, byte ch, byte flag);
 160 static void channel_x_on (PLCI   * plci, byte ch);
 161 static void channel_request_xon (PLCI   * plci, byte ch);
 162 static void channel_xmit_xon (PLCI   * plci);
 163 static int channel_can_xon (PLCI   * plci, byte ch);
 164 static void channel_xmit_extended_xon (PLCI   * plci);
 165
 166 static byte SendMultiIE(PLCI   * plci, dword Id, byte   * * parms, byte ie_type, dword info_mask, byte setupParse);
 167 static word AdvCodecSupport(DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, byte);
 168 static void CodecIdCheck(DIVA_CAPI_ADAPTER   *, PLCI   *);
 169 static void SetVoiceChannel(PLCI   *, byte   *, DIVA_CAPI_ADAPTER   * );
 170 static void VoiceChannelOff(PLCI   *plci);
 171 static void adv_voice_write_coefs (PLCI   *plci, word write_command);
 172 static void adv_voice_clear_config (PLCI   *plci);
 173
 174 static word get_b1_facilities (PLCI   * plci, byte b1_resource);
 175 static byte add_b1_facilities (PLCI   * plci, byte b1_resource, word b1_facilities);
 176 static void adjust_b1_facilities (PLCI   *plci, byte new_b1_resource, word new_b1_facilities);
 177 static word adjust_b_process (dword Id, PLCI   *plci, byte Rc);
 178 static void adjust_b1_resource (dword Id, PLCI   *plci, API_SAVE   *bp_msg, word b1_facilities, word internal_command);
 179 static void adjust_b_restore (dword Id, PLCI   *plci, byte Rc);
 180 static void reset_b3_command (dword Id, PLCI   *plci, byte Rc);
 181 static void select_b_command (dword Id, PLCI   *plci, byte Rc);
 182 static void fax_connect_ack_command (dword Id, PLCI   *plci, byte Rc);
 183 static void fax_edata_ack_command (dword Id, PLCI   *plci, byte Rc);
 184 static void fax_connect_info_command (dword Id, PLCI   *plci, byte Rc);
 185 static void fax_adjust_b23_command (dword Id, PLCI   *plci, byte Rc);
 186 static void fax_disconnect_command (dword Id, PLCI   *plci, byte Rc);
 187 static void hold_save_command (dword Id, PLCI   *plci, byte Rc);
 188 static void retrieve_restore_command (dword Id, PLCI   *plci, byte Rc);
 189 static void init_b1_config (PLCI   *plci);
 190 static void clear_b1_config (PLCI   *plci);
 191
 192 static void dtmf_command (dword Id, PLCI   *plci, byte Rc);
 193 static byte dtmf_request (dword Id, word Number, DIVA_CAPI_ADAPTER   *a, PLCI   *plci, APPL   *appl, API_PARSE *msg);
 194 static void dtmf_confirmation (dword Id, PLCI   *plci);
 195 static void dtmf_indication (dword Id, PLCI   *plci, byte   *msg, word length);
 196 static void dtmf_parameter_write (PLCI   *plci);
 197
 198
 199 static void mixer_set_bchannel_id_esc (PLCI   *plci, byte bchannel_id);
 200 static void mixer_set_bchannel_id (PLCI   *plci, byte   *chi);
 201 static void mixer_clear_config (PLCI   *plci);
 202 static void mixer_notify_update (PLCI   *plci, byte others);
 203 static void mixer_command (dword Id, PLCI   *plci, byte Rc);
 204 static byte mixer_request (dword Id, word Number, DIVA_CAPI_ADAPTER   *a, PLCI   *plci, APPL   *appl, API_PARSE *msg);
 205 static void mixer_indication_coefs_set (dword Id, PLCI   *plci);
 206 static void mixer_indication_xconnect_from (dword Id, PLCI   *plci, byte   *msg, word length);
 207 static void mixer_indication_xconnect_to (dword Id, PLCI   *plci, byte   *msg, word length);
 208 static void mixer_remove (PLCI   *plci);
 209
 210
 211 static void ec_command (dword Id, PLCI   *plci, byte Rc);
 212 static byte ec_request (dword Id, word Number, DIVA_CAPI_ADAPTER   *a, PLCI   *plci, APPL   *appl, API_PARSE *msg);
 213 static void ec_indication (dword Id, PLCI   *plci, byte   *msg, word length);
 214
 215
 216 static void rtp_connect_b3_req_command (dword Id, PLCI   *plci, byte Rc);
 217 static void rtp_connect_b3_res_command (dword Id, PLCI   *plci, byte Rc);
 218
 219
 220 static int  diva_get_dma_descriptor  (PLCI   *plci, dword   *dma_magic);
 221 static void diva_free_dma_descriptor (PLCI   *plci, int nr);
 222
 223 /*------------------------------------------------------------------*/
 224 /* external function prototypes                                     */
 225 /*------------------------------------------------------------------*/
 226
 227 extern byte MapController (byte);
 228 extern byte UnMapController (byte);
 229 #define MapId(Id) (((Id) & 0xffffff00L) | MapController ((byte)(Id)))
 230 #define UnMapId(Id) (((Id) & 0xffffff00L) | UnMapController ((byte)(Id)))
 231
 232 void   sendf(APPL   *, word, dword, word, byte *, ...);
 233 void   * TransmitBufferSet(APPL   * appl, dword ref);
 234 void   * TransmitBufferGet(APPL   * appl, void   * p);
 235 void TransmitBufferFree(APPL   * appl, void   * p);
 236 void   * ReceiveBufferGet(APPL   * appl, int Num);
 237
 238 int fax_head_line_time (char *buffer);
 239
 240
 241 /*------------------------------------------------------------------*/
 242 /* Global data definitions                                          */
 243 /*------------------------------------------------------------------*/
 244 extern byte max_adapter;
 245 extern byte max_appl;
 246 extern DIVA_CAPI_ADAPTER   * adapter;
 247 extern APPL   * application;
 248
 249
 250
 251
 252
 253
 254
 255 static byte remove_started = false;
 256 static PLCI dummy_plci;
 257
 258
 259 static struct _ftable {
 260   word command;
 261   byte * format;
 262   byte (* function)(dword, word, DIVA_CAPI_ADAPTER   *, PLCI   *, APPL   *, API_PARSE *);
 263 } ftable[] = {
 264   {_DATA_B3_R,                          "dwww",         data_b3_req},
 265   {_DATA_B3_I|RESPONSE,                 "w",            data_b3_res},
 266   {_INFO_R,                             "ss",           info_req},
 267   {_INFO_I|RESPONSE,                    "",             info_res},
 268   {_CONNECT_R,                          "wsssssssss",   connect_req},
 269   {_CONNECT_I|RESPONSE,                 "wsssss",       connect_res},
 270   {_CONNECT_ACTIVE_I|RESPONSE,          "",             connect_a_res},
 271   {_DISCONNECT_R,                       "s",            disconnect_req},
 272   {_DISCONNECT_I|RESPONSE,              "",             disconnect_res},
 273   {_LISTEN_R,                           "dddss",        listen_req},
 274   {_ALERT_R,                            "s",            alert_req},
 275   {_FACILITY_R,                         "ws",           facility_req},
 276   {_FACILITY_I|RESPONSE,                "ws",           facility_res},
 277   {_CONNECT_B3_R,                       "s",            connect_b3_req},
 278   {_CONNECT_B3_I|RESPONSE,              "ws",           connect_b3_res},
 279   {_CONNECT_B3_ACTIVE_I|RESPONSE,       "",             connect_b3_a_res},
 280   {_DISCONNECT_B3_R,                    "s",            disconnect_b3_req},
 281   {_DISCONNECT_B3_I|RESPONSE,           "",             disconnect_b3_res},
 282   {_RESET_B3_R,                         "s",            reset_b3_req},
 283   {_RESET_B3_I|RESPONSE,                "",             reset_b3_res},
 284   {_CONNECT_B3_T90_ACTIVE_I|RESPONSE,   "ws",           connect_b3_t90_a_res},
 285   {_CONNECT_B3_T90_ACTIVE_I|RESPONSE,   "",             connect_b3_t90_a_res},
 286   {_SELECT_B_REQ,                       "s",            select_b_req},
 287   {_MANUFACTURER_R,                     "dws",          manufacturer_req},
 288   {_MANUFACTURER_I|RESPONSE,            "dws",          manufacturer_res},
 289   {_MANUFACTURER_I|RESPONSE,            "",             manufacturer_res}
 290 };
 291
 292 static byte * cip_bc[29][2] = {
 293   { "",                     ""                     }, /* 0 */
 294   { "\x03\x80\x90\xa3",     "\x03\x80\x90\xa2"     }, /* 1 */
 295   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 2 */
 296   { "\x02\x89\x90",         "\x02\x89\x90"         }, /* 3 */
 297   { "\x03\x90\x90\xa3",     "\x03\x90\x90\xa2"     }, /* 4 */
 298   { "\x03\x91\x90\xa5",     "\x03\x91\x90\xa5"     }, /* 5 */
 299   { "\x02\x98\x90",         "\x02\x98\x90"         }, /* 6 */
 300   { "\x04\x88\xc0\xc6\xe6", "\x04\x88\xc0\xc6\xe6" }, /* 7 */
 301   { "\x04\x88\x90\x21\x8f", "\x04\x88\x90\x21\x8f" }, /* 8 */
 302   { "\x03\x91\x90\xa5",     "\x03\x91\x90\xa5"     }, /* 9 */
 303   { "",                     ""                     }, /* 10 */
 304   { "",                     ""                     }, /* 11 */
 305   { "",                     ""                     }, /* 12 */
 306   { "",                     ""                     }, /* 13 */
 307   { "",                     ""                     }, /* 14 */
 308   { "",                     ""                     }, /* 15 */
 309
 310   { "\x03\x80\x90\xa3",     "\x03\x80\x90\xa2"     }, /* 16 */
 311   { "\x03\x90\x90\xa3",     "\x03\x90\x90\xa2"     }, /* 17 */
 312   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 18 */
 313   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 19 */
 314   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 20 */
 315   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 21 */
 316   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 22 */
 317   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 23 */
 318   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 24 */
 319   { "\x02\x88\x90",         "\x02\x88\x90"         }, /* 25 */
 320   { "\x03\x91\x90\xa5",     "\x03\x91\x90\xa5"     }, /* 26 */
 321   { "\x03\x91\x90\xa5",     "\x03\x91\x90\xa5"     }, /* 27 */
 322   { "\x02\x88\x90",         "\x02\x88\x90"         }  /* 28 */
 323 };
 324
 325 static byte * cip_hlc[29] = {
 326   "",                           /* 0 */
 327   "",                           /* 1 */
 328   "",                           /* 2 */
 329   "",                           /* 3 */
 330   "",                           /* 4 */
 331   "",                           /* 5 */
 332   "",                           /* 6 */
 333   "",                           /* 7 */
 334   "",                           /* 8 */
 335   "",                           /* 9 */
 336   "",                           /* 10 */
 337   "",                           /* 11 */
 338   "",                           /* 12 */
 339   "",                           /* 13 */
 340   "",                           /* 14 */
 341   "",                           /* 15 */
 342
 343   "\x02\x91\x81",               /* 16 */
 344   "\x02\x91\x84",               /* 17 */
 345   "\x02\x91\xa1",               /* 18 */
 346   "\x02\x91\xa4",               /* 19 */
 347   "\x02\x91\xa8",               /* 20 */
 348   "\x02\x91\xb1",               /* 21 */
 349   "\x02\x91\xb2",               /* 22 */
 350   "\x02\x91\xb5",               /* 23 */
 351   "\x02\x91\xb8",               /* 24 */
 352   "\x02\x91\xc1",               /* 25 */
 353   "\x02\x91\x81",               /* 26 */
 354   "\x03\x91\xe0\x01",           /* 27 */
 355   "\x03\x91\xe0\x02"            /* 28 */
 356 };
 357
 358 /*------------------------------------------------------------------*/
 359
 360 #define V120_HEADER_LENGTH 1
 361 #define V120_HEADER_EXTEND_BIT  0x80
 362 #define V120_HEADER_BREAK_BIT   0x40
 363 #define V120_HEADER_C1_BIT      0x04
 364 #define V120_HEADER_C2_BIT      0x08
 365 #define V120_HEADER_FLUSH_COND  (V120_HEADER_BREAK_BIT | V120_HEADER_C1_BIT | V120_HEADER_C2_BIT)
 366
 367 static byte v120_default_header[] =
 368 {
 369
 370   0x83                          /*  Ext, BR , res, res, C2 , C1 , B  , F   */
 371
 372 };
 373
 374 static byte v120_break_header[] =
 375 {
 376
 377   0xc3 | V120_HEADER_BREAK_BIT  /*  Ext, BR , res, res, C2 , C1 , B  , F   */
 378
 379 };
 380
 381
 382 /*------------------------------------------------------------------*/
 383 /* API_PUT function                                                 */
 384 /*------------------------------------------------------------------*/
 385
 386 word api_put(APPL   * appl, CAPI_MSG   * msg)
 387 {
 388   word i, j, k, l, n;
 389   word ret;
 390   byte c;
 391   byte controller;
 392   DIVA_CAPI_ADAPTER   * a;
 393   PLCI   * plci;
 394   NCCI   * ncci_ptr;
 395   word ncci;
 396   CAPI_MSG   *m;
 397     API_PARSE msg_parms[MAX_MSG_PARMS+1];
 398
 399   if (msg->header.length < sizeof (msg->header) ||
 400       msg->header.length > MAX_MSG_SIZE) {
 401     dbug(1,dprintf("bad len"));
 402     return _BAD_MSG;
 403   }
 404
 405   controller = (byte)((msg->header.controller &0x7f)-1);
 406
 407   /* controller starts with 0 up to (max_adapter - 1) */
 408   if ( controller >= max_adapter )
 409   {
 410     dbug(1,dprintf("invalid ctrl"));
 411     return _BAD_MSG;
 412   }
 413
 414   a = &adapter[controller];
 415   plci = NULL;
 416   if ((msg->header.plci != 0) && (msg->header.plci <= a->max_plci) && !a->adapter_disabled)
 417   {
 418     dbug(1,dprintf("plci=%x",msg->header.plci));
 419     plci = &a->plci[msg->header.plci-1];
 420     ncci = GET_WORD(&msg->header.ncci);
 421     if (plci->Id
 422      && (plci->appl
 423       || (plci->State == INC_CON_PENDING)
 424       || (plci->State == INC_CON_ALERT)
 425       || (msg->header.command == (_DISCONNECT_I|RESPONSE)))
 426      && ((ncci == 0)
 427       || (msg->header.command == (_DISCONNECT_B3_I|RESPONSE))
 428       || ((ncci < MAX_NCCI+1) && (a->ncci_plci[ncci] == plci->Id))))
 429     {
 430       i = plci->msg_in_read_pos;
 431       j = plci->msg_in_write_pos;
 432       if (j >= i)
 433       {
 434         if (j + msg->header.length + MSG_IN_OVERHEAD <= MSG_IN_QUEUE_SIZE)
 435           i += MSG_IN_QUEUE_SIZE - j;
 436         else
 437           j = 0;
 438       }
 439       else
 440       {
 441
 442         n = (((CAPI_MSG   *)(plci->msg_in_queue))->header.length + MSG_IN_OVERHEAD + 3) & 0xfffc;
 443
 444         if (i > MSG_IN_QUEUE_SIZE - n)
 445           i = MSG_IN_QUEUE_SIZE - n + 1;
 446         i -= j;
 447       }
 448
 449       if (i <= ((msg->header.length + MSG_IN_OVERHEAD + 3) & 0xfffc))
 450
 451       {
 452         dbug(0,dprintf("Q-FULL1(msg) - len=%d write=%d read=%d wrap=%d free=%d",
 453           msg->header.length, plci->msg_in_write_pos,
 454           plci->msg_in_read_pos, plci->msg_in_wrap_pos, i));
 455
 456         return _QUEUE_FULL;
 457       }
 458       c = false;
 459       if ((((byte   *) msg) < ((byte   *)(plci->msg_in_queue)))
 460        || (((byte   *) msg) >= ((byte   *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue)))
 461       {
 462         if (plci->msg_in_write_pos != plci->msg_in_read_pos)
 463           c = true;
 464       }
 465       if (msg->header.command == _DATA_B3_R)
 466       {
 467         if (msg->header.length < 20)
 468         {
 469           dbug(1,dprintf("DATA_B3 REQ wrong length %d", msg->header.length));
 470           return _BAD_MSG;
 471         }
 472         ncci_ptr = &(a->ncci[ncci]);
 473         n = ncci_ptr->data_pending;
 474         l = ncci_ptr->data_ack_pending;
 475         k = plci->msg_in_read_pos;
 476         while (k != plci->msg_in_write_pos)
 477         {
 478           if (k == plci->msg_in_wrap_pos)
 479             k = 0;
 480           if ((((CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[k]))->header.command == _DATA_B3_R)
 481            && (((CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[k]))->header.ncci == ncci))
 482           {
 483             n++;
 484             if (((CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[k]))->info.data_b3_req.Flags & 0x0004)
 485               l++;
 486           }
 487
 488           k += (((CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[k]))->header.length +
 489             MSG_IN_OVERHEAD + 3) & 0xfffc;
 490
 491         }
 492         if ((n >= MAX_DATA_B3) || (l >= MAX_DATA_ACK))
 493         {
 494           dbug(0,dprintf("Q-FULL2(data) - pending=%d/%d ack_pending=%d/%d",
 495                           ncci_ptr->data_pending, n, ncci_ptr->data_ack_pending, l));
 496
 497           return _QUEUE_FULL;
 498         }
 499         if (plci->req_in || plci->internal_command)
 500         {
 501           if ((((byte   *) msg) >= ((byte   *)(plci->msg_in_queue)))
 502            && (((byte   *) msg) < ((byte   *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue)))
 503           {
 504             dbug(0,dprintf("Q-FULL3(requeue)"));
 505
 506             return _QUEUE_FULL;
 507           }
 508           c = true;
 509         }
 510       }
 511       else
 512       {
 513         if (plci->req_in || plci->internal_command)
 514           c = true;
 515         else
 516         {
 517           plci->command = msg->header.command;
 518           plci->number = msg->header.number;
 519         }
 520       }
 521       if (c)
 522       {
 523         dbug(1,dprintf("enqueue msg(0x%04x,0x%x,0x%x) - len=%d write=%d read=%d wrap=%d free=%d",
 524           msg->header.command, plci->req_in, plci->internal_command,
 525           msg->header.length, plci->msg_in_write_pos,
 526           plci->msg_in_read_pos, plci->msg_in_wrap_pos, i));
 527         if (j == 0)
 528           plci->msg_in_wrap_pos = plci->msg_in_write_pos;
 529         m = (CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[j]);
 530         for (i = 0; i < msg->header.length; i++)
 531           ((byte   *)(plci->msg_in_queue))[j++] = ((byte   *) msg)[i];
 532         if (m->header.command == _DATA_B3_R)
 533         {
 534
 535           m->info.data_b3_req.Data = (dword)(long)(TransmitBufferSet (appl, m->info.data_b3_req.Data));
 536
 537         }
 538
 539         j = (j + 3) & 0xfffc;
 540
 541         *((APPL   *   *)(&((byte   *)(plci->msg_in_queue))[j])) = appl;
 542         plci->msg_in_write_pos = j + MSG_IN_OVERHEAD;
 543         return 0;
 544       }
 545     }
 546     else
 547     {
 548       plci = NULL;
 549     }
 550   }
 551   dbug(1,dprintf("com=%x",msg->header.command));
 552
 553   for(j=0;j<MAX_MSG_PARMS+1;j++) msg_parms[j].length = 0;
 554   for(i=0, ret = _BAD_MSG;
 555       i<(sizeof(ftable)/sizeof(struct _ftable));
 556       i++) {
 557
 558     if(ftable[i].command==msg->header.command) {
 559       /* break loop if the message is correct, otherwise continue scan  */
 560       /* (for example: CONNECT_B3_T90_ACT_RES has two specifications)   */
 561       if(!api_parse(msg->info.b,(word)(msg->header.length-12),ftable[i].format,msg_parms)) {
 562         ret = 0;
 563         break;
 564       }
 565       for(j=0;j<MAX_MSG_PARMS+1;j++) msg_parms[j].length = 0;
 566     }
 567   }
 568   if(ret) {
 569     dbug(1,dprintf("BAD_MSG"));
 570     if(plci) plci->command = 0;
 571     return ret;
 572   }
 573
 574
 575   c = ftable[i].function(GET_DWORD(&msg->header.controller),
 576                          msg->header.number,
 577                          a,
 578                          plci,
 579                          appl,
 580                          msg_parms);
 581
 582   channel_xmit_extended_xon (plci);
 583
 584   if(c==1) send_req(plci);
 585   if(c==2 && plci) plci->req_in = plci->req_in_start = plci->req_out = 0;
 586   if(plci && !plci->req_in) plci->command = 0;
 587   return 0;
 588 }
 589
 590
 591 /*------------------------------------------------------------------*/
 592 /* api_parse function, check the format of api messages             */
 593 /*------------------------------------------------------------------*/
 594
 595 word api_parse(byte   * msg, word length, byte * format, API_PARSE * parms)
 596 {
 597   word i;
 598   word p;
 599
 600   for(i=0,p=0; format[i]; i++) {
 601     if(parms)
 602     {
 603       parms[i].info = &msg[p];
 604     }
 605     switch(format[i]) {
 606     case 'b':
 607       p +=1;
 608       break;
 609     case 'w':
 610       p +=2;
 611       break;
 612     case 'd':
 613       p +=4;
 614       break;
 615     case 's':
 616       if(msg[p]==0xff) {
 617         parms[i].info +=2;
 618         parms[i].length = msg[p+1] + (msg[p+2]<<8);
 619         p +=(parms[i].length +3);
 620       }
 621       else {
 622         parms[i].length = msg[p];
 623         p +=(parms[i].length +1);
 624       }
 625       break;
 626     }
 627
 628     if(p>length) return true;
 629   }
 630   if(parms) parms[i].info = NULL;
 631   return false;
 632 }
 633
 634 void api_save_msg(API_PARSE   *in, byte *format, API_SAVE   *out)
 635 {
 636   word i, j, n = 0;
 637   byte   *p;
 638
 639   p = out->info;
 640   for (i = 0; format[i] != '\0'; i++)
 641   {
 642     out->parms[i].info = p;
 643     out->parms[i].length = in[i].length;
 644     switch (format[i])
 645     {
 646     case 'b':
 647       n = 1;
 648       break;
 649     case 'w':
 650       n = 2;
 651       break;
 652     case 'd':
 653       n = 4;
 654       break;
 655     case 's':
 656       n = in[i].length + 1;
 657       break;
 658     }
 659     for (j = 0; j < n; j++)
 660       *(p++) = in[i].info[j];
 661   }
 662   out->parms[i].info = NULL;
 663   out->parms[i].length = 0;
 664 }
 665
 666 void api_load_msg(API_SAVE   *in, API_PARSE   *out)
 667 {
 668   word i;
 669
 670   i = 0;
 671   do
 672   {
 673     out[i].info = in->parms[i].info;
 674     out[i].length = in->parms[i].length;
 675   } while (in->parms[i++].info);
 676 }
 677
 678
 679 /*------------------------------------------------------------------*/
 680 /* CAPI remove function                                             */
 681 /*------------------------------------------------------------------*/
 682
 683 word api_remove_start(void)
 684 {
 685   word i;
 686   word j;
 687
 688   if(!remove_started) {
 689     remove_started = true;
 690     for(i=0;i<max_adapter;i++) {
 691       if(adapter[i].request) {
 692         for(j=0;j<adapter[i].max_plci;j++) {
 693           if(adapter[i].plci[j].Sig.Id) plci_remove(&adapter[i].plci[j]);
 694         }
 695       }
 696     }
 697     return 1;
 698   }
 699   else {
 700     for(i=0;i<max_adapter;i++) {
 701       if(adapter[i].request) {
 702         for(j=0;j<adapter[i].max_plci;j++) {
 703           if(adapter[i].plci[j].Sig.Id) return 1;
 704         }
 705       }
 706     }
 707   }
 708   api_remove_complete();
 709   return 0;
 710 }
 711
 712
 713 /*------------------------------------------------------------------*/
 714 /* internal command queue                                           */
 715 /*------------------------------------------------------------------*/
 716
 717 static void init_internal_command_queue (PLCI   *plci)
 718 {
 719   word i;
 720
 721   dbug (1, dprintf ("%s,%d: init_internal_command_queue",
 722     (char   *)(FILE_), __LINE__));
 723
 724   plci->internal_command = 0;
 725   for (i = 0; i < MAX_INTERNAL_COMMAND_LEVELS; i++)
 726     plci->internal_command_queue[i] = NULL;
 727 }
 728
 729
 730 static void start_internal_command (dword Id, PLCI   *plci, t_std_internal_command command_function)
 731 {
 732   word i;
 733
 734   dbug (1, dprintf ("[%06lx] %s,%d: start_internal_command",
 735     UnMapId (Id), (char   *)(FILE_), __LINE__));
 736
 737   if (plci->internal_command == 0)
 738   {
 739     plci->internal_command_queue[0] = command_function;
 740     (* command_function)(Id, plci, OK);
 741   }
 742   else
 743   {
 744     i = 1;
 745     while (plci->internal_command_queue[i] != 0)
 746       i++;
 747     plci->internal_command_queue[i] = command_function;
 748   }
 749 }
 750
 751
 752 static void next_internal_command (dword Id, PLCI   *plci)
 753 {
 754   word i;
 755
 756   dbug (1, dprintf ("[%06lx] %s,%d: next_internal_command",
 757     UnMapId (Id), (char   *)(FILE_), __LINE__));
 758
 759   plci->internal_command = 0;
 760   plci->internal_command_queue[0] = NULL;
 761   while (plci->internal_command_queue[1] != 0)
 762   {
 763     for (i = 0; i < MAX_INTERNAL_COMMAND_LEVELS - 1; i++)
 764       plci->internal_command_queue[i] = plci->internal_command_queue[i+1];
 765     plci->internal_command_queue[MAX_INTERNAL_COMMAND_LEVELS - 1] = NULL;
 766     (*(plci->internal_command_queue[0]))(Id, plci, OK);
 767     if (plci->internal_command != 0)
 768       return;
 769     plci->internal_command_queue[0] = NULL;
 770   }
 771 }
 772
 773
 774 /*------------------------------------------------------------------*/
 775 /* NCCI allocate/remove function                                    */
 776 /*------------------------------------------------------------------*/
 777
 778 static dword ncci_mapping_bug = 0;
 779
 780 static word get_ncci (PLCI   *plci, byte ch, word force_ncci)
 781 {
 782   DIVA_CAPI_ADAPTER   *a;
 783   word ncci, i, j, k;
 784
 785   a = plci->adapter;
 786   if (!ch || a->ch_ncci[ch])
 787   {
 788     ncci_mapping_bug++;
 789     dbug(1,dprintf("NCCI mapping exists %ld %02x %02x %02x-%02x",
 790       ncci_mapping_bug, ch, force_ncci, a->ncci_ch[a->ch_ncci[ch]], a->ch_ncci[ch]));
 791     ncci = ch;
 792   }
 793   else
 794   {
 795     if (force_ncci)
 796       ncci = force_ncci;
 797     else
 798     {
 799       if ((ch < MAX_NCCI+1) && !a->ncci_ch[ch])
 800         ncci = ch;
 801       else
 802       {
 803         ncci = 1;
 804         while ((ncci < MAX_NCCI+1) && a->ncci_ch[ncci])
 805           ncci++;
 806         if (ncci == MAX_NCCI+1)
 807         {
 808           ncci_mapping_bug++;
 809           i = 1;
 810           do
 811           {
 812             j = 1;
 813             while ((j < MAX_NCCI+1) && (a->ncci_ch[j] != i))
 814               j++;
 815             k = j;
 816             if (j < MAX_NCCI+1)
 817             {
 818               do
 819               {
 820                 j++;
 821               } while ((j < MAX_NCCI+1) && (a->ncci_ch[j] != i));
 822             }
 823           } while ((i < MAX_NL_CHANNEL+1) && (j < MAX_NCCI+1));
 824           if (i < MAX_NL_CHANNEL+1)
 825           {
 826             dbug(1,dprintf("NCCI mapping overflow %ld %02x %02x %02x-%02x-%02x",
 827               ncci_mapping_bug, ch, force_ncci, i, k, j));
 828           }
 829           else
 830           {
 831             dbug(1,dprintf("NCCI mapping overflow %ld %02x %02x",
 832               ncci_mapping_bug, ch, force_ncci));
 833           }
 834           ncci = ch;
 835         }
 836       }
 837       a->ncci_plci[ncci] = plci->Id;
 838       a->ncci_state[ncci] = IDLE;
 839       if (!plci->ncci_ring_list)
 840         plci->ncci_ring_list = ncci;
 841       else
 842         a->ncci_next[ncci] = a->ncci_next[plci->ncci_ring_list];
 843       a->ncci_next[plci->ncci_ring_list] = (byte) ncci;
 844     }
 845     a->ncci_ch[ncci] = ch;
 846     a->ch_ncci[ch] = (byte) ncci;
 847     dbug(1,dprintf("NCCI mapping established %ld %02x %02x %02x-%02x",
 848       ncci_mapping_bug, ch, force_ncci, ch, ncci));
 849   }
 850   return (ncci);
 851 }
 852
 853
 854 static void ncci_free_receive_buffers (PLCI   *plci, word ncci)
 855 {
 856   DIVA_CAPI_ADAPTER   *a;
 857   APPL   *appl;
 858   word i, ncci_code;
 859   dword Id;
 860
 861   a = plci->adapter;
 862   Id = (((dword) ncci) << 16) | (((word)(plci->Id)) << 8) | a->Id;
 863   if (ncci)
 864   {
 865     if (a->ncci_plci[ncci] == plci->Id)
 866     {
 867       if (!plci->appl)
 868       {
 869         ncci_mapping_bug++;
 870         dbug(1,dprintf("NCCI mapping appl expected %ld %08lx",
 871           ncci_mapping_bug, Id));
 872       }
 873       else
 874       {
 875         appl = plci->appl;
 876         ncci_code = ncci | (((word) a->Id) << 8);
 877         for (i = 0; i < appl->MaxBuffer; i++)
 878         {
 879           if ((appl->DataNCCI[i] == ncci_code)
 880            && (((byte)(appl->DataFlags[i] >> 8)) == plci->Id))
 881           {
 882             appl->DataNCCI[i] = 0;
 883           }
 884         }
 885       }
 886     }
 887   }
 888   else
 889   {
 890     for (ncci = 1; ncci < MAX_NCCI+1; ncci++)
 891     {
 892       if (a->ncci_plci[ncci] == plci->Id)
 893       {
 894         if (!plci->appl)
 895         {
 896           ncci_mapping_bug++;
 897           dbug(1,dprintf("NCCI mapping no appl %ld %08lx",
 898             ncci_mapping_bug, Id));
 899         }
 900         else
 901         {
 902           appl = plci->appl;
 903           ncci_code = ncci | (((word) a->Id) << 8);
 904           for (i = 0; i < appl->MaxBuffer; i++)
 905           {
 906             if ((appl->DataNCCI[i] == ncci_code)
 907              && (((byte)(appl->DataFlags[i] >> 8)) == plci->Id))
 908             {
 909               appl->DataNCCI[i] = 0;
 910             }
 911           }
 912         }
 913       }
 914     }
 915   }
 916 }
 917
 918
 919 static void cleanup_ncci_data (PLCI   *plci, word ncci)
 920 {
 921   NCCI   *ncci_ptr;
 922
 923   if (ncci && (plci->adapter->ncci_plci[ncci] == plci->Id))
 924   {
 925     ncci_ptr = &(plci->adapter->ncci[ncci]);
 926     if (plci->appl)
 927     {
 928       while (ncci_ptr->data_pending != 0)
 929       {
 930         if (!plci->data_sent || (ncci_ptr->DBuffer[ncci_ptr->data_out].P != plci->data_sent_ptr))
 931           TransmitBufferFree (plci->appl, ncci_ptr->DBuffer[ncci_ptr->data_out].P);
 932         (ncci_ptr->data_out)++;
 933         if (ncci_ptr->data_out == MAX_DATA_B3)
 934           ncci_ptr->data_out = 0;
 935         (ncci_ptr->data_pending)--;
 936       }
 937     }
 938     ncci_ptr->data_out = 0;
 939     ncci_ptr->data_pending = 0;
 940     ncci_ptr->data_ack_out = 0;
 941     ncci_ptr->data_ack_pending = 0;
 942   }
 943 }
 944
 945
 946 static void ncci_remove (PLCI   *plci, word ncci, byte preserve_ncci)
 947 {
 948   DIVA_CAPI_ADAPTER   *a;
 949   dword Id;
 950   word i;
 951
 952   a = plci->adapter;
 953   Id = (((dword) ncci) << 16) | (((word)(plci->Id)) << 8) | a->Id;
 954   if (!preserve_ncci)
 955     ncci_free_receive_buffers (plci, ncci);
 956   if (ncci)
 957   {
 958     if (a->ncci_plci[ncci] != plci->Id)
 959     {
 960       ncci_mapping_bug++;
 961       dbug(1,dprintf("NCCI mapping doesn't exist %ld %08lx %02x",
 962         ncci_mapping_bug, Id, preserve_ncci));
 963     }
 964     else
 965     {
 966       cleanup_ncci_data (plci, ncci);
 967       dbug(1,dprintf("NCCI mapping released %ld %08lx %02x %02x-%02x",
 968         ncci_mapping_bug, Id, preserve_ncci, a->ncci_ch[ncci], ncci));
 969       a->ch_ncci[a->ncci_ch[ncci]] = 0;
 970       if (!preserve_ncci)
 971       {
 972         a->ncci_ch[ncci] = 0;
 973         a->ncci_plci[ncci] = 0;
 974         a->ncci_state[ncci] = IDLE;
 975         i = plci->ncci_ring_list;
 976         while ((i != 0) && (a->ncci_next[i] != plci->ncci_ring_list) && (a->ncci_next[i] != ncci))
 977           i = a->ncci_next[i];
 978         if ((i != 0) && (a->ncci_next[i] == ncci))
 979         {
 980           if (i == ncci)
 981             plci->ncci_ring_list = 0;
 982           else if (plci->ncci_ring_list == ncci)
 983             plci->ncci_ring_list = i;
 984           a->ncci_next[i] = a->ncci_next[ncci];
 985         }
 986         a->ncci_next[ncci] = 0;
 987       }
 988     }
 989   }
 990   else
 991   {
 992     for (ncci = 1; ncci < MAX_NCCI+1; ncci++)
 993     {
 994       if (a->ncci_plci[ncci] == plci->Id)
 995       {
 996         cleanup_ncci_data (plci, ncci);
 997         dbug(1,dprintf("NCCI mapping released %ld %08lx %02x %02x-%02x",
 998           ncci_mapping_bug, Id, preserve_ncci, a->ncci_ch[ncci], ncci));
 999         a->ch_ncci[a->ncci_ch[ncci]] = 0;
1000         if (!preserve_ncci)
1001         {
1002           a->ncci_ch[ncci] = 0;
1003           a->ncci_plci[ncci] = 0;
1004           a->ncci_state[ncci] = IDLE;
1005           a->ncci_next[ncci] = 0;
1006         }
1007       }
1008     }
1009     if (!preserve_ncci)
1010       plci->ncci_ring_list = 0;
1011   }
1012 }
1013
1014
1015 /*------------------------------------------------------------------*/
1016 /* PLCI remove function                                             */
1017 /*------------------------------------------------------------------*/
1018
1019 static void plci_free_msg_in_queue (PLCI   *plci)
1020 {
1021   word i;
1022
1023   if (plci->appl)
1024   {
1025     i = plci->msg_in_read_pos;
1026     while (i != plci->msg_in_write_pos)
1027     {
1028       if (i == plci->msg_in_wrap_pos)
1029         i = 0;
1030       if (((CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[i]))->header.command == _DATA_B3_R)
1031       {
1032
1033         TransmitBufferFree (plci->appl,
1034           (byte *)(long)(((CAPI_MSG *)(&((byte *)(plci->msg_in_queue))[i]))->info.data_b3_req.Data));
1035
1036       }
1037
1038       i += (((CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[i]))->header.length +
1039         MSG_IN_OVERHEAD + 3) & 0xfffc;
1040
1041     }
1042   }
1043   plci->msg_in_write_pos = MSG_IN_QUEUE_SIZE;
1044   plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE;
1045   plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE;
1046 }
1047
1048
1049 static void plci_remove(PLCI   * plci)
1050 {
1051
1052   if(!plci) {
1053     dbug(1,dprintf("plci_remove(no plci)"));
1054     return;
1055   }
1056   init_internal_command_queue (plci);
1057   dbug(1,dprintf("plci_remove(%x,tel=%x)",plci->Id,plci->tel));
1058   if(plci_remove_check(plci))
1059   {
1060     return;
1061   }
1062   if (plci->Sig.Id == 0xff)
1063   {
1064     dbug(1,dprintf("D-channel X.25 plci->NL.Id:%0x", plci->NL.Id));
1065     if (plci->NL.Id && !plci->nl_remove_id)
1066     {
1067       nl_req_ncci(plci,REMOVE,0);
1068       send_req(plci);
1069     }
1070   }
1071   else
1072   {
1073     if (!plci->sig_remove_id
1074      && (plci->Sig.Id
1075       || (plci->req_in!=plci->req_out)
1076       || (plci->nl_req || plci->sig_req)))
1077     {
1078       sig_req(plci,HANGUP,0);
1079       send_req(plci);
1080     }
1081   }
1082   ncci_remove (plci, 0, false);
1083   plci_free_msg_in_queue (plci);
1084
1085   plci->channels = 0;
1086   plci->appl = NULL;
1087   if ((plci->State == INC_CON_PENDING) || (plci->State == INC_CON_ALERT))
1088     plci->State = OUTG_DIS_PENDING;
1089 }
1090
1091 /*------------------------------------------------------------------*/
1092 /* Application Group function helpers                               */
1093 /*------------------------------------------------------------------*/
1094
1095 static void set_group_ind_mask (PLCI   *plci)
1096 {
1097   word i;
1098
1099   for (i = 0; i < C_IND_MASK_DWORDS; i++)
1100     plci->group_optimization_mask_table[i] = 0xffffffffL;
1101 }
1102
1103 static void clear_group_ind_mask_bit (PLCI   *plci, word b)
1104 {
1105   plci->group_optimization_mask_table[b >> 5] &= ~(1L << (b & 0x1f));
1106 }
1107
1108 static byte test_group_ind_mask_bit (PLCI   *plci, word b)
1109 {
1110   return ((plci->group_optimization_mask_table[b >> 5] & (1L << (b & 0x1f))) != 0);
1111 }
1112
1113 /*------------------------------------------------------------------*/
1114 /* c_ind_mask operations for arbitrary MAX_APPL                     */
1115 /*------------------------------------------------------------------*/
1116
1117 static void clear_c_ind_mask (PLCI   *plci)
1118 {
1119   word i;
1120
1121   for (i = 0; i < C_IND_MASK_DWORDS; i++)
1122     plci->c_ind_mask_table[i] = 0;
1123 }
1124
1125 static byte c_ind_mask_empty (PLCI   *plci)
1126 {
1127   word i;
1128
1129   i = 0;
1130   while ((i < C_IND_MASK_DWORDS) && (plci->c_ind_mask_table[i] == 0))
1131     i++;
1132   return (i == C_IND_MASK_DWORDS);
1133 }
1134
1135 static void set_c_ind_mask_bit (PLCI   *plci, word b)
1136 {
1137   plci->c_ind_mask_table[b >> 5] |= (1L << (b & 0x1f));
1138 }
1139
1140 static void clear_c_ind_mask_bit (PLCI   *plci, word b)
1141 {
1142   plci->c_ind_mask_table[b >> 5] &= ~(1L << (b & 0x1f));
1143 }
1144
1145 static byte test_c_ind_mask_bit (PLCI   *plci, word b)
1146 {
1147   return ((plci->c_ind_mask_table[b >> 5] & (1L << (b & 0x1f))) != 0);
1148 }
1149
1150 static void dump_c_ind_mask (PLCI   *plci)
1151 {
1152 static char hex_digit_table[0x10] =
1153   {'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'};
1154   word i, j, k;
1155   dword d;
1156     char *p;
1157     char buf[40];
1158
1159   for (i = 0; i < C_IND_MASK_DWORDS; i += 4)
1160   {
1161     p = buf + 36;
1162     *p = '\0';
1163     for (j = 0; j < 4; j++)
1164     {
1165       if (i+j < C_IND_MASK_DWORDS)
1166       {
1167         d = plci->c_ind_mask_table[i+j];
1168         for (k = 0; k < 8; k++)
1169         {
1170           *(--p) = hex_digit_table[d & 0xf];
1171           d >>= 4;
1172         }
1173       }
1174       else if (i != 0)
1175       {
1176         for (k = 0; k < 8; k++)
1177           *(--p) = ' ';
1178       }
1179       *(--p) = ' ';
1180     }
1181     dbug(1,dprintf ("c_ind_mask =%s", (char   *) p));
1182   }
1183 }
1184
1185
1186
1187
1188
1189 #define dump_plcis(a)
1190
1191
1192
1193 /*------------------------------------------------------------------*/
1194 /* translation function for each message                            */
1195 /*------------------------------------------------------------------*/
1196
1197 byte connect_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
1198 {
1199   word ch;
1200   word i;
1201   word Info;
1202   word CIP;
1203   byte LinkLayer;
1204   API_PARSE * ai;
1205   API_PARSE * bp;
1206     API_PARSE ai_parms[5];
1207   word channel = 0;
1208   dword ch_mask;
1209   byte m;
1210   static byte esc_chi[35] = {0x02,0x18,0x01};
1211   static byte lli[2] = {0x01,0x00};
1212   byte noCh = 0;
1213   word dir = 0;
1214   byte   *p_chi = "";
1215
1216   for(i=0;i<5;i++) ai_parms[i].length = 0;
1217
1218   dbug(1,dprintf("connect_req(%d)",parms->length));
1219   Info = _WRONG_IDENTIFIER;
1220   if(a)
1221   {
1222     if(a->adapter_disabled)
1223     {
1224       dbug(1,dprintf("adapter disabled"));
1225       Id = ((word)1<<8)|a->Id;
1226       sendf(appl,_CONNECT_R|CONFIRM,Id,Number,"w",0);
1227       sendf(appl, _DISCONNECT_I, Id, 0, "w", _L1_ERROR);
1228       return false;
1229     }
1230     Info = _OUT_OF_PLCI;
1231     if((i=get_plci(a)))
1232     {
1233       Info = 0;
1234       plci = &a->plci[i-1];
1235       plci->appl = appl;
1236       plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE;
1237       /* check 'external controller' bit for codec support */
1238       if(Id & EXT_CONTROLLER)
1239       {
1240         if(AdvCodecSupport(a, plci, appl, 0) )
1241         {
1242           plci->Id = 0;
1243           sendf(appl, _CONNECT_R|CONFIRM, Id, Number, "w", _WRONG_IDENTIFIER);
1244           return 2;
1245         }
1246       }
1247       ai = &parms[9];
1248       bp = &parms[5];
1249       ch = 0;
1250       if(bp->length)LinkLayer = bp->info[3];
1251       else LinkLayer = 0;
1252       if(ai->length)
1253       {
1254         ch=0xffff;
1255         if(!api_parse(&ai->info[1],(word)ai->length,"ssss",ai_parms))
1256         {
1257           ch = 0;
1258           if(ai_parms[0].length)
1259           {
1260             ch = GET_WORD(ai_parms[0].info+1);
1261             if(ch>4) ch=0; /* safety -> ignore ChannelID */
1262             if(ch==4) /* explizit CHI in message */
1263             {
1264               /* check length of B-CH struct */
1265               if((ai_parms[0].info)[3]>=1)
1266               {
1267                 if((ai_parms[0].info)[4]==CHI)
1268                 {
1269                   p_chi = &((ai_parms[0].info)[5]);
1270                 }
1271                 else
1272                 {
1273                   p_chi = &((ai_parms[0].info)[3]);
1274                 }
1275                 if(p_chi[0]>35) /* check length of channel ID */
1276                 {
1277                   Info = _WRONG_MESSAGE_FORMAT;
1278                 }
1279               }
1280               else Info = _WRONG_MESSAGE_FORMAT;
1281             }
1282
1283             if(ch==3 && ai_parms[0].length>=7 && ai_parms[0].length<=36)
1284             {
1285               dir = GET_WORD(ai_parms[0].info+3);
1286               ch_mask = 0;
1287               m = 0x3f;
1288               for(i=0; i+5<=ai_parms[0].length; i++)
1289               {
1290                 if(ai_parms[0].info[i+5]!=0)
1291                 {
1292                   if((ai_parms[0].info[i+5] | m) != 0xff)
1293                     Info = _WRONG_MESSAGE_FORMAT;
1294                   else
1295                   {
1296                     if (ch_mask == 0)
1297                       channel = i;
1298                     ch_mask |= 1L << i;
1299                   }
1300                 }
1301                 m = 0;
1302               }
1303               if (ch_mask == 0)
1304                 Info = _WRONG_MESSAGE_FORMAT;
1305               if (!Info)
1306               {
1307                 if ((ai_parms[0].length == 36) || (ch_mask != ((dword)(1L << channel))))
1308                 {
1309                   esc_chi[0] = (byte)(ai_parms[0].length - 2);
1310                   for(i=0; i+5<=ai_parms[0].length; i++)
1311                     esc_chi[i+3] = ai_parms[0].info[i+5];
1312                 }
1313                 else
1314                   esc_chi[0] = 2;
1315                 esc_chi[2] = (byte)channel;
1316                 plci->b_channel = (byte)channel; /* not correct for ETSI ch 17..31 */
1317                 add_p(plci,LLI,lli);
1318                 add_p(plci,ESC,esc_chi);
1319                 plci->State = LOCAL_CONNECT;
1320                 if(!dir) plci->call_dir |= CALL_DIR_FORCE_OUTG_NL;     /* dir 0=DTE, 1=DCE */
1321               }
1322             }
1323           }
1324         }
1325         else  Info = _WRONG_MESSAGE_FORMAT;
1326       }
1327
1328       dbug(1,dprintf("ch=%x,dir=%x,p_ch=%d",ch,dir,channel));
1329       plci->command = _CONNECT_R;
1330       plci->number = Number;
1331       /* x.31 or D-ch free SAPI in LinkLayer? */
1332       if(ch==1 && LinkLayer!=3 && LinkLayer!=12) noCh = true;
1333       if((ch==0 || ch==2 || noCh || ch==3 || ch==4) && !Info)
1334       {
1335         /* B-channel used for B3 connections (ch==0), or no B channel    */
1336         /* is used (ch==2) or perm. connection (3) is used  do a CALL    */
1337         if(noCh) Info = add_b1(plci,&parms[5],2,0);    /* no resource    */
1338         else     Info = add_b1(plci,&parms[5],ch,0);
1339         add_s(plci,OAD,&parms[2]);
1340         add_s(plci,OSA,&parms[4]);
1341         add_s(plci,BC,&parms[6]);
1342         add_s(plci,LLC,&parms[7]);
1343         add_s(plci,HLC,&parms[8]);
1344         CIP = GET_WORD(parms[0].info);
1345         if (a->Info_Mask[appl->Id-1] & 0x200)
1346         {
1347           /* early B3 connect (CIP mask bit 9) no release after a disc */
1348           add_p(plci,LLI,"\x01\x01");
1349         }
1350         if(GET_WORD(parms[0].info)<29) {
1351           add_p(plci,BC,cip_bc[GET_WORD(parms[0].info)][a->u_law]);
1352           add_p(plci,HLC,cip_hlc[GET_WORD(parms[0].info)]);
1353         }
1354         add_p(plci,UID,"\x06\x43\x61\x70\x69\x32\x30");
1355         sig_req(plci,ASSIGN,DSIG_ID);
1356       }
1357       else if(ch==1) {
1358
1359         /* D-Channel used for B3 connections */
1360         plci->Sig.Id = 0xff;
1361         Info = 0;
1362       }
1363
1364       if(!Info && ch!=2 && !noCh ) {
1365         Info = add_b23(plci,&parms[5]);
1366         if(!Info) {
1367           if(!(plci->tel && !plci->adv_nl))nl_req_ncci(plci,ASSIGN,0);
1368         }
1369       }
1370
1371       if(!Info)
1372       {
1373         if(ch==0 || ch==2 || ch==3 || noCh || ch==4)
1374         {
1375           if(plci->spoofed_msg==SPOOFING_REQUIRED)
1376           {
1377             api_save_msg(parms, "wsssssssss", &plci->saved_msg);
1378             plci->spoofed_msg = CALL_REQ;
1379             plci->internal_command = BLOCK_PLCI;
1380             plci->command = 0;
1381             dbug(1,dprintf("Spoof"));
1382             send_req(plci);
1383             return false;
1384           }
1385           if(ch==4)add_p(plci,CHI,p_chi);
1386           add_s(plci,CPN,&parms[1]);
1387           add_s(plci,DSA,&parms[3]);
1388           if(noCh) add_p(plci,ESC,"\x02\x18\xfd");  /* D-channel, no B-L3 */
1389           add_ai(plci,&parms[9]);
1390           if(!dir)sig_req(plci,CALL_REQ,0);
1391           else
1392           {
1393             plci->command = PERM_LIST_REQ;
1394             plci->appl = appl;
1395             sig_req(plci,LISTEN_REQ,0);
1396             send_req(plci);
1397             return false;
1398           }
1399         }
1400         send_req(plci);
1401         return false;
1402       }
1403       plci->Id = 0;
1404     }
1405   }
1406   sendf(appl,
1407         _CONNECT_R|CONFIRM,
1408         Id,
1409         Number,
1410         "w",Info);
1411   return 2;
1412 }
1413
1414 byte connect_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
1415 {
1416   word i, Info;
1417   word Reject;
1418   static byte cau_t[] = {0,0,0x90,0x91,0xac,0x9d,0x86,0xd8,0x9b};
1419   static byte esc_t[] = {0x03,0x08,0x00,0x00};
1420   API_PARSE * ai;
1421     API_PARSE ai_parms[5];
1422   word ch=0;
1423
1424   if(!plci) {
1425     dbug(1,dprintf("connect_res(no plci)"));
1426     return 0;  /* no plci, no send */
1427   }
1428
1429   dbug(1,dprintf("connect_res(State=0x%x)",plci->State));
1430   for(i=0;i<5;i++) ai_parms[i].length = 0;
1431   ai = &parms[5];
1432   dbug(1,dprintf("ai->length=%d",ai->length));
1433
1434   if(ai->length)
1435   {
1436     if(!api_parse(&ai->info[1],(word)ai->length,"ssss",ai_parms))
1437     {
1438       dbug(1,dprintf("ai_parms[0].length=%d/0x%x",ai_parms[0].length,GET_WORD(ai_parms[0].info+1)));
1439       ch = 0;
1440       if(ai_parms[0].length)
1441       {
1442         ch = GET_WORD(ai_parms[0].info+1);
1443         dbug(1,dprintf("BCH-I=0x%x",ch));
1444       }
1445     }
1446   }
1447
1448   if(plci->State==INC_CON_CONNECTED_ALERT)
1449   {
1450     dbug(1,dprintf("Connected Alert Call_Res"));
1451     if (a->Info_Mask[appl->Id-1] & 0x200)
1452     {
1453     /* early B3 connect (CIP mask bit 9) no release after a disc */
1454       add_p(plci,LLI,"\x01\x01");
1455     }
1456     add_s(plci, CONN_NR, &parms[2]);
1457     add_s(plci, LLC, &parms[4]);
1458     add_ai(plci, &parms[5]);
1459     plci->State = INC_CON_ACCEPT;
1460     sig_req(plci, CALL_RES,0);
1461     return 1;
1462   }
1463   else if(plci->State==INC_CON_PENDING || plci->State==INC_CON_ALERT) {
1464     clear_c_ind_mask_bit (plci, (word)(appl->Id-1));
1465     dump_c_ind_mask (plci);
1466     Reject = GET_WORD(parms[0].info);
1467     dbug(1,dprintf("Reject=0x%x",Reject));
1468     if(Reject)
1469     {
1470       if(c_ind_mask_empty (plci))
1471       {
1472         if((Reject&0xff00)==0x3400)
1473         {
1474           esc_t[2] = ((byte)(Reject&0x00ff)) | 0x80;
1475           add_p(plci,ESC,esc_t);
1476           add_ai(plci, &parms[5]);
1477           sig_req(plci,REJECT,0);
1478         }
1479         else if(Reject==1 || Reject>9)
1480         {
1481           add_ai(plci, &parms[5]);
1482           sig_req(plci,HANGUP,0);
1483         }
1484         else
1485         {
1486           esc_t[2] = cau_t[(Reject&0x000f)];
1487           add_p(plci,ESC,esc_t);
1488           add_ai(plci, &parms[5]);
1489           sig_req(plci,REJECT,0);
1490         }
1491         plci->appl = appl;
1492       }
1493       else
1494       {
1495         sendf(appl, _DISCONNECT_I, Id, 0, "w", _OTHER_APPL_CONNECTED);
1496       }
1497     }
1498     else {
1499       plci->appl = appl;
1500       if(Id & EXT_CONTROLLER){
1501         if(AdvCodecSupport(a, plci, appl, 0)){
1502           dbug(1,dprintf("connect_res(error from AdvCodecSupport)"));
1503           sig_req(plci,HANGUP,0);
1504           return 1;
1505         }
1506         if(plci->tel == ADV_VOICE && a->AdvCodecPLCI)
1507         {
1508           Info = add_b23(plci, &parms[1]);
1509           if (Info)
1510           {
1511             dbug(1,dprintf("connect_res(error from add_b23)"));
1512             sig_req(plci,HANGUP,0);
1513             return 1;
1514           }
1515           if(plci->adv_nl)
1516           {
1517             nl_req_ncci(plci, ASSIGN, 0);
1518           }
1519         }
1520       }
1521       else
1522       {
1523         plci->tel = 0;
1524         if(ch!=2)
1525         {
1526           Info = add_b23(plci, &parms[1]);
1527           if (Info)
1528           {
1529             dbug(1,dprintf("connect_res(error from add_b23 2)"));
1530             sig_req(plci,HANGUP,0);
1531             return 1;
1532           }
1533         }
1534         nl_req_ncci(plci, ASSIGN, 0);
1535       }
1536
1537       if(plci->spoofed_msg==SPOOFING_REQUIRED)
1538       {
1539         api_save_msg(parms, "wsssss", &plci->saved_msg);
1540         plci->spoofed_msg = CALL_RES;
1541         plci->internal_command = BLOCK_PLCI;
1542         plci->command = 0;
1543         dbug(1,dprintf("Spoof"));
1544       }
1545       else
1546       {
1547         add_b1 (plci, &parms[1], ch, plci->B1_facilities);
1548         if (a->Info_Mask[appl->Id-1] & 0x200)
1549         {
1550           /* early B3 connect (CIP mask bit 9) no release after a disc */
1551           add_p(plci,LLI,"\x01\x01");
1552         }
1553         add_s(plci, CONN_NR, &parms[2]);
1554         add_s(plci, LLC, &parms[4]);
1555         add_ai(plci, &parms[5]);
1556         plci->State = INC_CON_ACCEPT;
1557         sig_req(plci, CALL_RES,0);
1558       }
1559
1560       for(i=0; i<max_appl; i++) {
1561         if(test_c_ind_mask_bit (plci, i)) {
1562           sendf(&application[i], _DISCONNECT_I, Id, 0, "w", _OTHER_APPL_CONNECTED);
1563         }
1564       }
1565     }
1566   }
1567   return 1;
1568 }
1569
1570 byte connect_a_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
1571 {
1572   dbug(1,dprintf("connect_a_res"));
1573   return false;
1574 }
1575
1576 byte disconnect_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
1577 {
1578   word Info;
1579   word i;
1580
1581   dbug(1,dprintf("disconnect_req"));
1582
1583   Info = _WRONG_IDENTIFIER;
1584
1585   if(plci)
1586   {
1587     if(plci->State==INC_CON_PENDING || plci->State==INC_CON_ALERT)
1588     {
1589       clear_c_ind_mask_bit (plci, (word)(appl->Id-1));
1590       plci->appl = appl;
1591       for(i=0; i<max_appl; i++)
1592       {
1593         if(test_c_ind_mask_bit (plci, i))
1594           sendf(&application[i], _DISCONNECT_I, Id, 0, "w", 0);
1595       }
1596       plci->State = OUTG_DIS_PENDING;
1597     }
1598     if(plci->Sig.Id && plci->appl)
1599     {
1600       Info = 0;
1601         if(plci->Sig.Id!=0xff)
1602         {
1603           if(plci->State!=INC_DIS_PENDING)
1604           {
1605             add_ai(plci, &msg[0]);
1606             sig_req(plci,HANGUP,0);
1607             plci->State = OUTG_DIS_PENDING;
1608             return 1;
1609           }
1610         }
1611         else
1612         {
1613           if (plci->NL.Id && !plci->nl_remove_id)
1614           {
1615             mixer_remove (plci);
1616             nl_req_ncci(plci,REMOVE,0);
1617           sendf(appl,_DISCONNECT_R|CONFIRM,Id,Number,"w",0);
1618           sendf(appl, _DISCONNECT_I, Id, 0, "w", 0);
1619           plci->State = INC_DIS_PENDING;
1620           }
1621           return 1;
1622         }
1623       }
1624     }
1625
1626   if(!appl)  return false;
1627   sendf(appl, _DISCONNECT_R|CONFIRM, Id, Number, "w",Info);
1628   return false;
1629 }
1630
1631 byte disconnect_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
1632 {
1633   dbug(1,dprintf("disconnect_res"));
1634   if(plci)
1635   {
1636         /* clear ind mask bit, just in case of collsion of          */
1637         /* DISCONNECT_IND and CONNECT_RES                           */
1638     clear_c_ind_mask_bit (plci, (word)(appl->Id-1));
1639     ncci_free_receive_buffers (plci, 0);
1640     if(plci_remove_check(plci))
1641     {
1642       return 0;
1643     }
1644     if(plci->State==INC_DIS_PENDING
1645     || plci->State==SUSPENDING) {
1646       if(c_ind_mask_empty (plci)) {
1647         if(plci->State!=SUSPENDING)plci->State = IDLE;
1648         dbug(1,dprintf("chs=%d",plci->channels));
1649         if(!plci->channels) {
1650           plci_remove(plci);
1651         }
1652       }
1653     }
1654   }
1655   return 0;
1656 }
1657
1658 byte listen_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
1659 {
1660   word Info;
1661   byte i;
1662
1663   dbug(1,dprintf("listen_req(Appl=0x%x)",appl->Id));
1664
1665   Info = _WRONG_IDENTIFIER;
1666   if(a) {
1667     Info = 0;
1668     a->Info_Mask[appl->Id-1] = GET_DWORD(parms[0].info);
1669     a->CIP_Mask[appl->Id-1] = GET_DWORD(parms[1].info);
1670     dbug(1,dprintf("CIP_MASK=0x%lx",GET_DWORD(parms[1].info)));
1671     if (a->Info_Mask[appl->Id-1] & 0x200){ /* early B3 connect provides */
1672       a->Info_Mask[appl->Id-1] |=  0x10;   /* call progression infos    */
1673     }
1674
1675     /* check if external controller listen and switch listen on or off*/
1676     if(Id&EXT_CONTROLLER && GET_DWORD(parms[1].info)){
1677       if(a->profile.Global_Options & ON_BOARD_CODEC) {
1678         dummy_plci.State = IDLE;
1679         a->codec_listen[appl->Id-1] = &dummy_plci;
1680         a->TelOAD[0] = (byte)(parms[3].length);
1681         for(i=1;parms[3].length>=i && i<22;i++) {
1682           a->TelOAD[i] = parms[3].info[i];
1683         }
1684         a->TelOAD[i] = 0;
1685         a->TelOSA[0] = (byte)(parms[4].length);
1686         for(i=1;parms[4].length>=i && i<22;i++) {
1687           a->TelOSA[i] = parms[4].info[i];
1688         }
1689         a->TelOSA[i] = 0;
1690       }
1691       else Info = 0x2002; /* wrong controller, codec not supported */
1692     }
1693     else{               /* clear listen */
1694       a->codec_listen[appl->Id-1] = (PLCI   *)0;
1695     }
1696   }
1697   sendf(appl,
1698         _LISTEN_R|CONFIRM,
1699         Id,
1700         Number,
1701         "w",Info);
1702
1703   if (a) listen_check(a);
1704   return false;
1705 }
1706
1707 byte info_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
1708 {
1709   word i;
1710   API_PARSE * ai;
1711   PLCI   * rc_plci = NULL;
1712     API_PARSE ai_parms[5];
1713   word Info = 0;
1714
1715   dbug(1,dprintf("info_req"));
1716   for(i=0;i<5;i++) ai_parms[i].length = 0;
1717
1718   ai = &msg[1];
1719
1720   if(ai->length)
1721   {
1722     if(api_parse(&ai->info[1],(word)ai->length,"ssss",ai_parms))
1723     {
1724       dbug(1,dprintf("AddInfo wrong"));
1725       Info = _WRONG_MESSAGE_FORMAT;
1726     }
1727   }
1728   if(!a) Info = _WRONG_STATE;
1729
1730   if(!Info && plci)
1731   {                /* no fac, with CPN, or KEY */
1732     rc_plci = plci;
1733     if(!ai_parms[3].length && plci->State && (msg[0].length || ai_parms[1].length) )
1734     {
1735       /* overlap sending option */
1736       dbug(1,dprintf("OvlSnd"));
1737       add_s(plci,CPN,&msg[0]);
1738       add_s(plci,KEY,&ai_parms[1]);
1739       sig_req(plci,INFO_REQ,0);
1740       send_req(plci);
1741       return false;
1742     }
1743
1744     if(plci->State && ai_parms[2].length)
1745     {
1746       /* User_Info option */
1747       dbug(1,dprintf("UUI"));
1748       add_s(plci,UUI,&ai_parms[2]);
1749       sig_req(plci,USER_DATA,0);
1750     }
1751     else if(plci->State && ai_parms[3].length)
1752     {
1753       /* Facility option */
1754       dbug(1,dprintf("FAC"));
1755       add_s(plci,CPN,&msg[0]);
1756       add_ai(plci, &msg[1]);
1757       sig_req(plci,FACILITY_REQ,0);
1758     }
1759     else
1760     {
1761       Info = _WRONG_STATE;
1762     }
1763   }
1764   else if((ai_parms[1].length || ai_parms[2].length || ai_parms[3].length) && !Info)
1765   {
1766     /* NCR_Facility option -> send UUI and Keypad too */
1767     dbug(1,dprintf("NCR_FAC"));
1768     if((i=get_plci(a)))
1769     {
1770       rc_plci = &a->plci[i-1];
1771       appl->NullCREnable  = true;
1772       rc_plci->internal_command = C_NCR_FAC_REQ;
1773       rc_plci->appl = appl;
1774       add_p(rc_plci,CAI,"\x01\x80");
1775       add_p(rc_plci,UID,"\x06\x43\x61\x70\x69\x32\x30");
1776       sig_req(rc_plci,ASSIGN,DSIG_ID);
1777       send_req(rc_plci);
1778     }
1779     else
1780     {
1781       Info = _OUT_OF_PLCI;
1782     }
1783
1784     if(!Info)
1785     {
1786       add_s(rc_plci,CPN,&msg[0]);
1787       add_ai(rc_plci, &msg[1]);
1788       sig_req(rc_plci,NCR_FACILITY,0);
1789       send_req(rc_plci);
1790       return false;
1791      /* for application controlled supplementary services    */
1792     }
1793   }
1794
1795   if (!rc_plci)
1796   {
1797     Info = _WRONG_MESSAGE_FORMAT;
1798   }
1799
1800   if(!Info)
1801   {
1802     send_req(rc_plci);
1803   }
1804   else
1805   {  /* appl is not assigned to a PLCI or error condition */
1806     dbug(1,dprintf("localInfoCon"));
1807     sendf(appl,
1808           _INFO_R|CONFIRM,
1809           Id,
1810           Number,
1811           "w",Info);
1812   }
1813   return false;
1814 }
1815
1816 byte info_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
1817 {
1818   dbug(1,dprintf("info_res"));
1819   return false;
1820 }
1821
1822 byte alert_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
1823 {
1824   word Info;
1825   byte ret;
1826
1827   dbug(1,dprintf("alert_req"));
1828
1829   Info = _WRONG_IDENTIFIER;
1830   ret = false;
1831   if(plci) {
1832     Info = _ALERT_IGNORED;
1833     if(plci->State!=INC_CON_ALERT) {
1834       Info = _WRONG_STATE;
1835       if(plci->State==INC_CON_PENDING) {
1836         Info = 0;
1837         plci->State=INC_CON_ALERT;
1838         add_ai(plci, &msg[0]);
1839         sig_req(plci,CALL_ALERT,0);
1840         ret = 1;
1841       }
1842     }
1843   }
1844   sendf(appl,
1845         _ALERT_R|CONFIRM,
1846         Id,
1847         Number,
1848         "w",Info);
1849   return ret;
1850 }
1851
1852 byte facility_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
1853 {
1854   word Info = 0;
1855   word i    = 0;
1856
1857   word selector;
1858   word SSreq;
1859   long relatedPLCIvalue;
1860   DIVA_CAPI_ADAPTER   * relatedadapter;
1861   byte * SSparms  = "";
1862     byte RCparms[]  = "\x05\x00\x00\x02\x00\x00";
1863     byte SSstruct[] = "\x09\x00\x00\x06\x00\x00\x00\x00\x00\x00";
1864   API_PARSE * parms;
1865     API_PARSE ss_parms[11];
1866   PLCI   *rplci;
1867     byte cai[15];
1868   dword d;
1869     API_PARSE dummy;
1870
1871   dbug(1,dprintf("facility_req"));
1872   for(i=0;i<9;i++) ss_parms[i].length = 0;
1873
1874   parms = &msg[1];
1875
1876   if(!a)
1877   {
1878     dbug(1,dprintf("wrong Ctrl"));
1879     Info = _WRONG_IDENTIFIER;
1880   }
1881
1882   selector = GET_WORD(msg[0].info);
1883
1884   if(!Info)
1885   {
1886     switch(selector)
1887     {
1888       case SELECTOR_HANDSET:
1889         Info = AdvCodecSupport(a, plci, appl, HOOK_SUPPORT);
1890         break;
1891
1892       case SELECTOR_SU_SERV:
1893         if(!msg[1].length)
1894         {
1895           Info = _WRONG_MESSAGE_FORMAT;
1896           break;
1897         }
1898         SSreq = GET_WORD(&(msg[1].info[1]));
1899         PUT_WORD(&RCparms[1],SSreq);
1900         SSparms = RCparms;
1901         switch(SSreq)
1902         {
1903           case S_GET_SUPPORTED_SERVICES:
1904             if((i=get_plci(a)))
1905             {
1906               rplci = &a->plci[i-1];
1907               rplci->appl = appl;
1908               add_p(rplci,CAI,"\x01\x80");
1909               add_p(rplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
1910               sig_req(rplci,ASSIGN,DSIG_ID);
1911               send_req(rplci);
1912             }
1913             else
1914             {
1915               PUT_DWORD(&SSstruct[6], MASK_TERMINAL_PORTABILITY);
1916               SSparms = (byte *)SSstruct;
1917               break;
1918             }
1919             rplci->internal_command = GETSERV_REQ_PEND;
1920             rplci->number = Number;
1921             rplci->appl = appl;
1922             sig_req(rplci,S_SUPPORTED,0);
1923             send_req(rplci);
1924             return false;
1925             break;
1926
1927           case S_LISTEN:
1928             if(parms->length==7)
1929             {
1930               if(api_parse(&parms->info[1],(word)parms->length,"wbd",ss_parms))
1931               {
1932                 dbug(1,dprintf("format wrong"));
1933                 Info = _WRONG_MESSAGE_FORMAT;
1934                 break;
1935               }
1936             }
1937             else
1938             {
1939               Info = _WRONG_MESSAGE_FORMAT;
1940               break;
1941             }
1942             a->Notification_Mask[appl->Id-1] = GET_DWORD(ss_parms[2].info);
1943             if(a->Notification_Mask[appl->Id-1] & SMASK_MWI) /* MWI active? */
1944             {
1945               if((i=get_plci(a)))
1946               {
1947                 rplci = &a->plci[i-1];
1948                 rplci->appl = appl;
1949                 add_p(rplci,CAI,"\x01\x80");
1950                 add_p(rplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
1951                 sig_req(rplci,ASSIGN,DSIG_ID);
1952                 send_req(rplci);
1953               }
1954               else
1955               {
1956                 break;
1957               }
1958               rplci->internal_command = GET_MWI_STATE;
1959               rplci->number = Number;
1960               sig_req(rplci,MWI_POLL,0);
1961               send_req(rplci);
1962             }
1963             break;
1964
1965           case S_HOLD:
1966             api_parse(&parms->info[1],(word)parms->length,"ws",ss_parms);
1967             if(plci && plci->State && plci->SuppState==IDLE)
1968             {
1969               plci->SuppState = HOLD_REQUEST;
1970               plci->command = C_HOLD_REQ;
1971               add_s(plci,CAI,&ss_parms[1]);
1972               sig_req(plci,CALL_HOLD,0);
1973               send_req(plci);
1974               return false;
1975             }
1976             else Info = 0x3010;                    /* wrong state           */
1977             break;
1978           case S_RETRIEVE:
1979             if(plci && plci->State && plci->SuppState==CALL_HELD)
1980             {
1981               if(Id & EXT_CONTROLLER)
1982               {
1983                 if(AdvCodecSupport(a, plci, appl, 0))
1984                 {
1985                   Info = 0x3010;                    /* wrong state           */
1986                   break;
1987                 }
1988               }
1989               else plci->tel = 0;
1990
1991               plci->SuppState = RETRIEVE_REQUEST;
1992               plci->command = C_RETRIEVE_REQ;
1993               if(plci->spoofed_msg==SPOOFING_REQUIRED)
1994               {
1995                 plci->spoofed_msg = CALL_RETRIEVE;
1996                 plci->internal_command = BLOCK_PLCI;
1997                 plci->command = 0;
1998                 dbug(1,dprintf("Spoof"));
1999                 return false;
2000               }
2001               else
2002               {
2003                 sig_req(plci,CALL_RETRIEVE,0);
2004                 send_req(plci);
2005                 return false;
2006               }
2007             }
2008             else Info = 0x3010;                    /* wrong state           */
2009             break;
2010           case S_SUSPEND:
2011             if(parms->length)
2012             {
2013               if(api_parse(&parms->info[1],(word)parms->length,"wbs",ss_parms))
2014               {
2015                 dbug(1,dprintf("format wrong"));
2016                 Info = _WRONG_MESSAGE_FORMAT;
2017                 break;
2018               }
2019             }
2020             if(plci && plci->State)
2021             {
2022               add_s(plci,CAI,&ss_parms[2]);
2023               plci->command = SUSPEND_REQ;
2024               sig_req(plci,SUSPEND,0);
2025               plci->State = SUSPENDING;
2026               send_req(plci);
2027             }
2028             else Info = 0x3010;                    /* wrong state           */
2029             break;
2030
2031           case S_RESUME:
2032             if(!(i=get_plci(a)) )
2033             {
2034               Info = _OUT_OF_PLCI;
2035               break;
2036             }
2037             rplci = &a->plci[i-1];
2038             rplci->appl = appl;
2039             rplci->number = Number;
2040             rplci->tel = 0;
2041             rplci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE;
2042             /* check 'external controller' bit for codec support */
2043             if(Id & EXT_CONTROLLER)
2044             {
2045               if(AdvCodecSupport(a, rplci, appl, 0) )
2046               {
2047                 rplci->Id = 0;
2048                 Info = 0x300A;
2049                 break;
2050               }
2051             }
2052             if(parms->length)
2053             {
2054               if(api_parse(&parms->info[1],(word)parms->length,"wbs",ss_parms))
2055               {
2056                 dbug(1,dprintf("format wrong"));
2057                 rplci->Id = 0;
2058                 Info = _WRONG_MESSAGE_FORMAT;
2059                 break;
2060               }
2061             }
2062             dummy.length = 0;
2063             dummy.info = "\x00";
2064             add_b1(rplci, &dummy, 0, 0);
2065             if (a->Info_Mask[appl->Id-1] & 0x200)
2066             {
2067               /* early B3 connect (CIP mask bit 9) no release after a disc */
2068               add_p(rplci,LLI,"\x01\x01");
2069             }
2070             add_p(rplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
2071             sig_req(rplci,ASSIGN,DSIG_ID);
2072             send_req(rplci);
2073             add_s(rplci,CAI,&ss_parms[2]);
2074             rplci->command = RESUME_REQ;
2075             sig_req(rplci,RESUME,0);
2076             rplci->State = RESUMING;
2077             send_req(rplci);
2078             break;
2079
2080           case S_CONF_BEGIN: /* Request */
2081           case S_CONF_DROP:
2082           case S_CONF_ISOLATE:
2083           case S_CONF_REATTACH:
2084             if(api_parse(&parms->info[1],(word)parms->length,"wbd",ss_parms))
2085             {
2086               dbug(1,dprintf("format wrong"));
2087               Info = _WRONG_MESSAGE_FORMAT;
2088               break;
2089             }
2090             if(plci && plci->State && ((plci->SuppState==IDLE)||(plci->SuppState==CALL_HELD)))
2091             {
2092               d = GET_DWORD(ss_parms[2].info);
2093               if(d>=0x80)
2094               {
2095                 dbug(1,dprintf("format wrong"));
2096                 Info = _WRONG_MESSAGE_FORMAT;
2097                 break;
2098               }
2099               plci->ptyState = (byte)SSreq;
2100               plci->command = 0;
2101               cai[0] = 2;
2102               switch(SSreq)
2103               {
2104               case S_CONF_BEGIN:
2105                   cai[1] = CONF_BEGIN;
2106                   plci->internal_command = CONF_BEGIN_REQ_PEND;
2107                   break;
2108               case S_CONF_DROP:
2109                   cai[1] = CONF_DROP;
2110                   plci->internal_command = CONF_DROP_REQ_PEND;
2111                   break;
2112               case S_CONF_ISOLATE:
2113                   cai[1] = CONF_ISOLATE;
2114                   plci->internal_command = CONF_ISOLATE_REQ_PEND;
2115                   break;
2116               case S_CONF_REATTACH:
2117                   cai[1] = CONF_REATTACH;
2118                   plci->internal_command = CONF_REATTACH_REQ_PEND;
2119                   break;
2120               }
2121               cai[2] = (byte)d; /* Conference Size resp. PartyId */
2122               add_p(plci,CAI,cai);
2123               sig_req(plci,S_SERVICE,0);
2124               send_req(plci);
2125               return false;
2126             }
2127             else Info = 0x3010;                    /* wrong state           */
2128             break;
2129
2130           case S_ECT:
2131           case S_3PTY_BEGIN:
2132           case S_3PTY_END:
2133           case S_CONF_ADD:
2134             if(parms->length==7)
2135             {
2136               if(api_parse(&parms->info[1],(word)parms->length,"wbd",ss_parms))
2137               {
2138                 dbug(1,dprintf("format wrong"));
2139                 Info = _WRONG_MESSAGE_FORMAT;
2140                 break;
2141               }
2142             }
2143             else if(parms->length==8) /* workaround for the T-View-S */
2144             {
2145               if(api_parse(&parms->info[1],(word)parms->length,"wbdb",ss_parms))
2146               {
2147                 dbug(1,dprintf("format wrong"));
2148                 Info = _WRONG_MESSAGE_FORMAT;
2149                 break;
2150               }
2151             }
2152             else
2153             {
2154               Info = _WRONG_MESSAGE_FORMAT;
2155               break;
2156             }
2157             if(!msg[1].length)
2158             {
2159               Info = _WRONG_MESSAGE_FORMAT;
2160               break;
2161             }
2162             if (!plci)
2163             {
2164               Info = _WRONG_IDENTIFIER;
2165               break;
2166             }
2167             relatedPLCIvalue = GET_DWORD(ss_parms[2].info);
2168             relatedPLCIvalue &= 0x0000FFFF;
2169             dbug(1,dprintf("PTY/ECT/addCONF,relPLCI=%lx",relatedPLCIvalue));
2170             /* controller starts with 0 up to (max_adapter - 1) */
2171             if (((relatedPLCIvalue & 0x7f) == 0)
2172              || (MapController ((byte)(relatedPLCIvalue & 0x7f)) == 0)
2173              || (MapController ((byte)(relatedPLCIvalue & 0x7f)) > max_adapter))
2174             {
2175               if(SSreq==S_3PTY_END)
2176               {
2177                 dbug(1, dprintf("wrong Controller use 2nd PLCI=PLCI"));
2178                 rplci = plci;
2179               }
2180               else
2181               {
2182                 Info = 0x3010;                    /* wrong state           */
2183                 break;
2184               }
2185             }
2186             else
2187             {
2188               relatedadapter = &adapter[MapController ((byte)(relatedPLCIvalue & 0x7f))-1];
2189               relatedPLCIvalue >>=8;
2190               /* find PLCI PTR*/
2191               for(i=0,rplci=NULL;i<relatedadapter->max_plci;i++)
2192               {
2193                 if(relatedadapter->plci[i].Id == (byte)relatedPLCIvalue)
2194                 {
2195                   rplci = &relatedadapter->plci[i];
2196                 }
2197               }
2198               if(!rplci || !relatedPLCIvalue)
2199               {
2200                 if(SSreq==S_3PTY_END)
2201                 {
2202                   dbug(1, dprintf("use 2nd PLCI=PLCI"));
2203                   rplci = plci;
2204                 }
2205                 else
2206                 {
2207                   Info = 0x3010;                    /* wrong state           */
2208                   break;
2209                 }
2210               }
2211             }
2212 /*
2213             dbug(1,dprintf("rplci:%x",rplci));
2214             dbug(1,dprintf("plci:%x",plci));
2215             dbug(1,dprintf("rplci->ptyState:%x",rplci->ptyState));
2216             dbug(1,dprintf("plci->ptyState:%x",plci->ptyState));
2217             dbug(1,dprintf("SSreq:%x",SSreq));
2218             dbug(1,dprintf("rplci->internal_command:%x",rplci->internal_command));
2219             dbug(1,dprintf("rplci->appl:%x",rplci->appl));
2220             dbug(1,dprintf("rplci->Id:%x",rplci->Id));
2221 */
2222             /* send PTY/ECT req, cannot check all states because of US stuff */
2223             if( !rplci->internal_command && rplci->appl )
2224             {
2225               plci->command = 0;
2226               rplci->relatedPTYPLCI = plci;
2227               plci->relatedPTYPLCI = rplci;
2228               rplci->ptyState = (byte)SSreq;
2229               if(SSreq==S_ECT)
2230               {
2231                 rplci->internal_command = ECT_REQ_PEND;
2232                 cai[1] = ECT_EXECUTE;
2233
2234                 rplci->vswitchstate=0;
2235                 rplci->vsprot=0;
2236                 rplci->vsprotdialect=0;
2237                 plci->vswitchstate=0;
2238                 plci->vsprot=0;
2239                 plci->vsprotdialect=0;
2240
2241               }
2242               else if(SSreq==S_CONF_ADD)
2243               {
2244                 rplci->internal_command = CONF_ADD_REQ_PEND;
2245                 cai[1] = CONF_ADD;
2246               }
2247               else
2248               {
2249                 rplci->internal_command = PTY_REQ_PEND;
2250                 cai[1] = (byte)(SSreq-3);
2251               }
2252               rplci->number = Number;
2253               if(plci!=rplci) /* explicit invocation */
2254               {
2255                 cai[0] = 2;
2256                 cai[2] = plci->Sig.Id;
2257                 dbug(1,dprintf("explicit invocation"));
2258               }
2259               else
2260               {
2261                 dbug(1,dprintf("implicit invocation"));
2262                 cai[0] = 1;
2263               }
2264               add_p(rplci,CAI,cai);
2265               sig_req(rplci,S_SERVICE,0);
2266               send_req(rplci);
2267               return false;
2268             }
2269             else
2270             {
2271               dbug(0,dprintf("Wrong line"));
2272               Info = 0x3010;                    /* wrong state           */
2273               break;
2274             }
2275             break;
2276
2277           case S_CALL_DEFLECTION:
2278             if(api_parse(&parms->info[1],(word)parms->length,"wbwss",ss_parms))
2279             {
2280               dbug(1,dprintf("format wrong"));
2281               Info = _WRONG_MESSAGE_FORMAT;
2282               break;
2283             }
2284             if (!plci)
2285             {
2286               Info = _WRONG_IDENTIFIER;
2287               break;
2288             }
2289             /* reuse unused screening indicator */
2290             ss_parms[3].info[3] = (byte)GET_WORD(&(ss_parms[2].info[0]));
2291             plci->command = 0;
2292             plci->internal_command = CD_REQ_PEND;
2293             appl->CDEnable = true;
2294             cai[0] = 1;
2295             cai[1] = CALL_DEFLECTION;
2296             add_p(plci,CAI,cai);
2297             add_p(plci,CPN,ss_parms[3].info);
2298             sig_req(plci,S_SERVICE,0);
2299             send_req(plci);
2300             return false;
2301             break;
2302
2303           case S_CALL_FORWARDING_START:
2304             if(api_parse(&parms->info[1],(word)parms->length,"wbdwwsss",ss_parms))
2305             {
2306               dbug(1,dprintf("format wrong"));
2307               Info = _WRONG_MESSAGE_FORMAT;
2308               break;
2309             }
2310
2311             if((i=get_plci(a)))
2312             {
2313               rplci = &a->plci[i-1];
2314               rplci->appl = appl;
2315               add_p(rplci,CAI,"\x01\x80");
2316               add_p(rplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
2317               sig_req(rplci,ASSIGN,DSIG_ID);
2318               send_req(rplci);
2319             }
2320             else
2321             {
2322               Info = _OUT_OF_PLCI;
2323               break;
2324             }
2325
2326             /* reuse unused screening indicator */
2327             rplci->internal_command = CF_START_PEND;
2328             rplci->appl = appl;
2329             rplci->number = Number;
2330             appl->S_Handle = GET_DWORD(&(ss_parms[2].info[0]));
2331             cai[0] = 2;
2332             cai[1] = 0x70|(byte)GET_WORD(&(ss_parms[3].info[0])); /* Function */
2333             cai[2] = (byte)GET_WORD(&(ss_parms[4].info[0])); /* Basic Service */
2334             add_p(rplci,CAI,cai);
2335             add_p(rplci,OAD,ss_parms[5].info);
2336             add_p(rplci,CPN,ss_parms[6].info);
2337             sig_req(rplci,S_SERVICE,0);
2338             send_req(rplci);
2339             return false;
2340             break;
2341
2342           case S_INTERROGATE_DIVERSION:
2343           case S_INTERROGATE_NUMBERS:
2344           case S_CALL_FORWARDING_STOP:
2345           case S_CCBS_REQUEST:
2346           case S_CCBS_DEACTIVATE:
2347           case S_CCBS_INTERROGATE:
2348             switch(SSreq)
2349             {
2350             case S_INTERROGATE_NUMBERS:
2351                 if(api_parse(&parms->info[1],(word)parms->length,"wbd",ss_parms))
2352                 {
2353                   dbug(0,dprintf("format wrong"));
2354                   Info = _WRONG_MESSAGE_FORMAT;
2355                 }
2356                 break;
2357             case S_CCBS_REQUEST:
2358             case S_CCBS_DEACTIVATE:
2359                 if(api_parse(&parms->info[1],(word)parms->length,"wbdw",ss_parms))
2360                 {
2361                   dbug(0,dprintf("format wrong"));
2362                   Info = _WRONG_MESSAGE_FORMAT;
2363                 }
2364                 break;
2365             case S_CCBS_INTERROGATE:
2366                 if(api_parse(&parms->info[1],(word)parms->length,"wbdws",ss_parms))
2367                 {
2368                   dbug(0,dprintf("format wrong"));
2369                   Info = _WRONG_MESSAGE_FORMAT;
2370                 }
2371                 break;
2372             default:
2373             if(api_parse(&parms->info[1],(word)parms->length,"wbdwws",ss_parms))
2374             {
2375               dbug(0,dprintf("format wrong"));
2376               Info = _WRONG_MESSAGE_FORMAT;
2377               break;
2378             }
2379                 break;
2380             }
2381
2382             if(Info) break;
2383             if((i=get_plci(a)))
2384             {
2385               rplci = &a->plci[i-1];
2386               switch(SSreq)
2387               {
2388                 case S_INTERROGATE_DIVERSION: /* use cai with S_SERVICE below */
2389                   cai[1] = 0x60|(byte)GET_WORD(&(ss_parms[3].info[0])); /* Function */
2390                   rplci->internal_command = INTERR_DIVERSION_REQ_PEND; /* move to rplci if assigned */
2391                   break;
2392                 case S_INTERROGATE_NUMBERS: /* use cai with S_SERVICE below */
2393                   cai[1] = DIVERSION_INTERROGATE_NUM; /* Function */
2394                   rplci->internal_command = INTERR_NUMBERS_REQ_PEND; /* move to rplci if assigned */
2395                   break;
2396                 case S_CALL_FORWARDING_STOP:
2397                   rplci->internal_command = CF_STOP_PEND;
2398                   cai[1] = 0x80|(byte)GET_WORD(&(ss_parms[3].info[0])); /* Function */
2399                   break;
2400                 case S_CCBS_REQUEST:
2401                   cai[1] = CCBS_REQUEST;
2402                   rplci->internal_command = CCBS_REQUEST_REQ_PEND;
2403                   break;
2404                 case S_CCBS_DEACTIVATE:
2405                   cai[1] = CCBS_DEACTIVATE;
2406                   rplci->internal_command = CCBS_DEACTIVATE_REQ_PEND;
2407                   break;
2408                 case S_CCBS_INTERROGATE:
2409                   cai[1] = CCBS_INTERROGATE;
2410                   rplci->internal_command = CCBS_INTERROGATE_REQ_PEND;
2411                   break;
2412                 default:
2413                   cai[1] = 0;
2414                 break;
2415               }
2416               rplci->appl = appl;
2417               rplci->number = Number;
2418               add_p(rplci,CAI,"\x01\x80");
2419               add_p(rplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
2420               sig_req(rplci,ASSIGN,DSIG_ID);
2421               send_req(rplci);
2422             }
2423             else
2424             {
2425               Info = _OUT_OF_PLCI;
2426               break;
2427             }
2428
2429             appl->S_Handle = GET_DWORD(&(ss_parms[2].info[0]));
2430             switch(SSreq)
2431             {
2432             case S_INTERROGATE_NUMBERS:
2433                 cai[0] = 1;
2434                 add_p(rplci,CAI,cai);
2435                 break;
2436             case S_CCBS_REQUEST:
2437             case S_CCBS_DEACTIVATE:
2438                 cai[0] = 3;
2439                 PUT_WORD(&cai[2],GET_WORD(&(ss_parms[3].info[0])));
2440                 add_p(rplci,CAI,cai);
2441                 break;
2442             case S_CCBS_INTERROGATE:
2443                 cai[0] = 3;
2444                 PUT_WORD(&cai[2],GET_WORD(&(ss_parms[3].info[0])));
2445                 add_p(rplci,CAI,cai);
2446                 add_p(rplci,OAD,ss_parms[4].info);
2447                 break;
2448             default:
2449             cai[0] = 2;
2450             cai[2] = (byte)GET_WORD(&(ss_parms[4].info[0])); /* Basic Service */
2451             add_p(rplci,CAI,cai);
2452             add_p(rplci,OAD,ss_parms[5].info);
2453                 break;
2454             }
2455
2456             sig_req(rplci,S_SERVICE,0);
2457             send_req(rplci);
2458             return false;
2459             break;
2460
2461           case S_MWI_ACTIVATE:
2462             if(api_parse(&parms->info[1],(word)parms->length,"wbwdwwwssss",ss_parms))
2463             {
2464               dbug(1,dprintf("format wrong"));
2465               Info = _WRONG_MESSAGE_FORMAT;
2466               break;
2467             }
2468             if(!plci)
2469             {
2470               if((i=get_plci(a)))
2471               {
2472                 rplci = &a->plci[i-1];
2473                 rplci->appl = appl;
2474                 rplci->cr_enquiry=true;
2475                 add_p(rplci,CAI,"\x01\x80");
2476                 add_p(rplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
2477                 sig_req(rplci,ASSIGN,DSIG_ID);
2478                 send_req(rplci);
2479               }
2480               else
2481               {
2482                 Info = _OUT_OF_PLCI;
2483                 break;
2484               }
2485             }
2486             else
2487             {
2488               rplci = plci;
2489               rplci->cr_enquiry=false;
2490             }
2491
2492             rplci->command = 0;
2493             rplci->internal_command = MWI_ACTIVATE_REQ_PEND;
2494             rplci->appl = appl;
2495             rplci->number = Number;
2496
2497             cai[0] = 13;
2498             cai[1] = ACTIVATION_MWI; /* Function */
2499             PUT_WORD(&cai[2],GET_WORD(&(ss_parms[2].info[0]))); /* Basic Service */
2500             PUT_DWORD(&cai[4],GET_DWORD(&(ss_parms[3].info[0]))); /* Number of Messages */
2501             PUT_WORD(&cai[8],GET_WORD(&(ss_parms[4].info[0]))); /* Message Status */
2502             PUT_WORD(&cai[10],GET_WORD(&(ss_parms[5].info[0]))); /* Message Reference */
2503             PUT_WORD(&cai[12],GET_WORD(&(ss_parms[6].info[0]))); /* Invocation Mode */
2504             add_p(rplci,CAI,cai);
2505             add_p(rplci,CPN,ss_parms[7].info); /* Receiving User Number */
2506             add_p(rplci,OAD,ss_parms[8].info); /* Controlling User Number */
2507             add_p(rplci,OSA,ss_parms[9].info); /* Controlling User Provided Number */
2508             add_p(rplci,UID,ss_parms[10].info); /* Time */
2509             sig_req(rplci,S_SERVICE,0);
2510             send_req(rplci);
2511             return false;
2512
2513           case S_MWI_DEACTIVATE:
2514             if(api_parse(&parms->info[1],(word)parms->length,"wbwwss",ss_parms))
2515             {
2516               dbug(1,dprintf("format wrong"));
2517               Info = _WRONG_MESSAGE_FORMAT;
2518               break;
2519             }
2520             if(!plci)
2521             {
2522               if((i=get_plci(a)))
2523               {
2524                 rplci = &a->plci[i-1];
2525                 rplci->appl = appl;
2526                 rplci->cr_enquiry=true;
2527                 add_p(rplci,CAI,"\x01\x80");
2528                 add_p(rplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
2529                 sig_req(rplci,ASSIGN,DSIG_ID);
2530                 send_req(rplci);
2531               }
2532               else
2533               {
2534                 Info = _OUT_OF_PLCI;
2535                 break;
2536               }
2537             }
2538             else
2539             {
2540               rplci = plci;
2541               rplci->cr_enquiry=false;
2542             }
2543
2544             rplci->command = 0;
2545             rplci->internal_command = MWI_DEACTIVATE_REQ_PEND;
2546             rplci->appl = appl;
2547             rplci->number = Number;
2548
2549             cai[0] = 5;
2550             cai[1] = DEACTIVATION_MWI; /* Function */
2551             PUT_WORD(&cai[2],GET_WORD(&(ss_parms[2].info[0]))); /* Basic Service */
2552             PUT_WORD(&cai[4],GET_WORD(&(ss_parms[3].info[0]))); /* Invocation Mode */
2553             add_p(rplci,CAI,cai);
2554             add_p(rplci,CPN,ss_parms[4].info); /* Receiving User Number */
2555             add_p(rplci,OAD,ss_parms[5].info); /* Controlling User Number */
2556             sig_req(rplci,S_SERVICE,0);
2557             send_req(rplci);
2558             return false;
2559
2560           default:
2561             Info = 0x300E;  /* not supported */
2562             break;
2563         }
2564         break; /* case SELECTOR_SU_SERV: end */
2565
2566
2567       case SELECTOR_DTMF:
2568         return (dtmf_request (Id, Number, a, plci, appl, msg));
2569
2570
2571
2572       case SELECTOR_LINE_INTERCONNECT:
2573         return (mixer_request (Id, Number, a, plci, appl, msg));
2574
2575
2576
2577       case PRIV_SELECTOR_ECHO_CANCELLER:
2578         appl->appl_flags |= APPL_FLAG_PRIV_EC_SPEC;
2579         return (ec_request (Id, Number, a, plci, appl, msg));
2580
2581       case SELECTOR_ECHO_CANCELLER:
2582         appl->appl_flags &= ~APPL_FLAG_PRIV_EC_SPEC;
2583         return (ec_request (Id, Number, a, plci, appl, msg));
2584
2585
2586       case SELECTOR_V42BIS:
2587       default:
2588         Info = _FACILITY_NOT_SUPPORTED;
2589         break;
2590     } /* end of switch(selector) */
2591   }
2592
2593   dbug(1,dprintf("SendFacRc"));
2594   sendf(appl,
2595         _FACILITY_R|CONFIRM,
2596         Id,
2597         Number,
2598         "wws",Info,selector,SSparms);
2599   return false;
2600 }
2601
2602 byte facility_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
2603 {
2604   dbug(1,dprintf("facility_res"));
2605   return false;
2606 }
2607
2608 byte connect_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
2609 {
2610   word Info = 0;
2611   byte req;
2612   byte len;
2613   word w;
2614   word fax_control_bits, fax_feature_bits, fax_info_change;
2615   API_PARSE * ncpi;
2616     byte pvc[2];
2617
2618     API_PARSE fax_parms[9];
2619   word i;
2620
2621
2622   dbug(1,dprintf("connect_b3_req"));
2623   if(plci)
2624   {
2625     if ((plci->State == IDLE) || (plci->State == OUTG_DIS_PENDING)
2626      || (plci->State == INC_DIS_PENDING) || (plci->SuppState != IDLE))
2627     {
2628       Info = _WRONG_STATE;
2629     }
2630     else
2631     {
2632       /* local reply if assign unsuccessfull
2633          or B3 protocol allows only one layer 3 connection
2634            and already connected
2635              or B2 protocol not any LAPD
2636                and connect_b3_req contradicts originate/answer direction */
2637       if (!plci->NL.Id
2638        || (((plci->B3_prot != B3_T90NL) && (plci->B3_prot != B3_ISO8208) && (plci->B3_prot != B3_X25_DCE))
2639         && ((plci->channels != 0)
2640          || (((plci->B2_prot != B2_SDLC) && (plci->B2_prot != B2_LAPD) && (plci->B2_prot != B2_LAPD_FREE_SAPI_SEL))
2641           && ((plci->call_dir & CALL_DIR_ANSWER) && !(plci->call_dir & CALL_DIR_FORCE_OUTG_NL))))))
2642       {
2643         dbug(1,dprintf("B3 already connected=%d or no NL.Id=0x%x, dir=%d sstate=0x%x",
2644                        plci->channels,plci->NL.Id,plci->call_dir,plci->SuppState));
2645         Info = _WRONG_STATE;
2646         sendf(appl,
2647               _CONNECT_B3_R|CONFIRM,
2648               Id,
2649               Number,
2650               "w",Info);
2651         return false;
2652       }
2653       plci->requested_options_conn = 0;
2654
2655       req = N_CONNECT;
2656       ncpi = &parms[0];
2657       if(plci->B3_prot==2 || plci->B3_prot==3)
2658       {
2659         if(ncpi->length>2)
2660         {
2661           /* check for PVC */
2662           if(ncpi->info[2] || ncpi->info[3])
2663           {
2664             pvc[0] = ncpi->info[3];
2665             pvc[1] = ncpi->info[2];
2666             add_d(plci,2,pvc);
2667             req = N_RESET;
2668           }
2669           else
2670           {
2671             if(ncpi->info[1] &1) req = N_CONNECT | N_D_BIT;
2672             add_d(plci,(word)(ncpi->length-3),&ncpi->info[4]);
2673           }
2674         }
2675       }
2676       else if(plci->B3_prot==5)
2677       {
2678         if (plci->NL.Id && !plci->nl_remove_id)
2679         {
2680           fax_control_bits = GET_WORD(&((T30_INFO   *)plci->fax_connect_info_buffer)->control_bits_low);
2681           fax_feature_bits = GET_WORD(&((T30_INFO   *)plci->fax_connect_info_buffer)->feature_bits_low);
2682           if (!(fax_control_bits & T30_CONTROL_BIT_MORE_DOCUMENTS)
2683            || (fax_feature_bits & T30_FEATURE_BIT_MORE_DOCUMENTS))
2684           {
2685             len = (byte)(&(((T30_INFO *) 0)->universal_6));
2686             fax_info_change = false;
2687             if (ncpi->length >= 4)
2688             {
2689               w = GET_WORD(&ncpi->info[3]);
2690               if ((w & 0x0001) != ((word)(((T30_INFO   *)(plci->fax_connect_info_buffer))->resolution & 0x0001)))
2691               {
2692                 ((T30_INFO   *)(plci->fax_connect_info_buffer))->resolution =
2693                   (byte)((((T30_INFO   *)(plci->fax_connect_info_buffer))->resolution & ~T30_RESOLUTION_R8_0770_OR_200) |
2694                   ((w & 0x0001) ? T30_RESOLUTION_R8_0770_OR_200 : 0));
2695                 fax_info_change = true;
2696               }
2697               fax_control_bits &= ~(T30_CONTROL_BIT_REQUEST_POLLING | T30_CONTROL_BIT_MORE_DOCUMENTS);
2698               if (w & 0x0002)  /* Fax-polling request */
2699                 fax_control_bits |= T30_CONTROL_BIT_REQUEST_POLLING;
2700               if ((w & 0x0004) /* Request to send / poll another document */
2701                && (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_MORE_DOCUMENTS))
2702               {
2703                 fax_control_bits |= T30_CONTROL_BIT_MORE_DOCUMENTS;
2704               }
2705               if (ncpi->length >= 6)
2706               {
2707                 w = GET_WORD(&ncpi->info[5]);
2708                 if (((byte) w) != ((T30_INFO   *)(plci->fax_connect_info_buffer))->data_format)
2709                 {
2710                   ((T30_INFO   *)(plci->fax_connect_info_buffer))->data_format = (byte) w;
2711                   fax_info_change = true;
2712                 }
2713
2714                 if ((a->man_profile.private_options & (1L << PRIVATE_FAX_SUB_SEP_PWD))
2715                  && (GET_WORD(&ncpi->info[5]) & 0x8000)) /* Private SEP/SUB/PWD enable */
2716                 {
2717                   plci->requested_options_conn |= (1L << PRIVATE_FAX_SUB_SEP_PWD);
2718                 }
2719                 if ((a->man_profile.private_options & (1L << PRIVATE_FAX_NONSTANDARD))
2720                  && (GET_WORD(&ncpi->info[5]) & 0x4000)) /* Private non-standard facilities enable */
2721                 {
2722                   plci->requested_options_conn |= (1L << PRIVATE_FAX_NONSTANDARD);
2723                 }
2724                 fax_control_bits &= ~(T30_CONTROL_BIT_ACCEPT_SUBADDRESS | T30_CONTROL_BIT_ACCEPT_SEL_POLLING |
2725                   T30_CONTROL_BIT_ACCEPT_PASSWORD);
2726                 if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[appl->Id-1])
2727                   & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD)))
2728                 {
2729                   if (api_parse (&ncpi->info[1], ncpi->length, "wwwwsss", fax_parms))
2730                     Info = _WRONG_MESSAGE_FORMAT;
2731                   else
2732                   {
2733                     if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[appl->Id-1])
2734                       & (1L << PRIVATE_FAX_SUB_SEP_PWD))
2735       {
2736                     fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SUBADDRESS | T30_CONTROL_BIT_ACCEPT_PASSWORD;
2737                     if (fax_control_bits & T30_CONTROL_BIT_ACCEPT_POLLING)
2738                       fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SEL_POLLING;
2739       }
2740                     w = fax_parms[4].length;
2741                     if (w > 20)
2742                       w = 20;
2743                     ((T30_INFO   *)(plci->fax_connect_info_buffer))->station_id_len = (byte) w;
2744                     for (i = 0; i < w; i++)
2745                       ((T30_INFO   *)(plci->fax_connect_info_buffer))->station_id[i] = fax_parms[4].info[1+i];
2746                     ((T30_INFO   *)(plci->fax_connect_info_buffer))->head_line_len = 0;
2747                     len = (byte)(((T30_INFO *) 0)->station_id + 20);
2748                     w = fax_parms[5].length;
2749                     if (w > 20)
2750                       w = 20;
2751                     plci->fax_connect_info_buffer[len++] = (byte) w;
2752                     for (i = 0; i < w; i++)
2753                       plci->fax_connect_info_buffer[len++] = fax_parms[5].info[1+i];
2754                     w = fax_parms[6].length;
2755                     if (w > 20)
2756                       w = 20;
2757                     plci->fax_connect_info_buffer[len++] = (byte) w;
2758                     for (i = 0; i < w; i++)
2759                       plci->fax_connect_info_buffer[len++] = fax_parms[6].info[1+i];
2760                     if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[appl->Id-1])
2761                       & (1L << PRIVATE_FAX_NONSTANDARD))
2762       {
2763                       if (api_parse (&ncpi->info[1], ncpi->length, "wwwwssss", fax_parms))
2764         {
2765                         dbug(1,dprintf("non-standard facilities info missing or wrong format"));
2766                         plci->fax_connect_info_buffer[len++] = 0;
2767         }
2768                       else
2769                       {
2770           if ((fax_parms[7].length >= 3) && (fax_parms[7].info[1] >= 2))
2771             plci->nsf_control_bits = GET_WORD(&fax_parms[7].info[2]);
2772    plci->fax_connect_info_buffer[len++] = (byte)(fax_parms[7].length);
2773           for (i = 0; i < fax_parms[7].length; i++)
2774      plci->fax_connect_info_buffer[len++] = fax_parms[7].info[1+i];
2775                       }
2776                     }
2777                   }
2778                 }
2779                 else
2780                 {
2781                   len = (byte)(&(((T30_INFO *) 0)->universal_6));
2782                 }
2783                 fax_info_change = true;
2784
2785               }
2786               if (fax_control_bits != GET_WORD(&((T30_INFO   *)plci->fax_connect_info_buffer)->control_bits_low))
2787               {
2788                 PUT_WORD (&((T30_INFO   *)plci->fax_connect_info_buffer)->control_bits_low, fax_control_bits);
2789                 fax_info_change = true;
2790               }
2791             }
2792             if (Info == GOOD)
2793             {
2794               plci->fax_connect_info_length = len;
2795               if (fax_info_change)
2796               {
2797                 if (fax_feature_bits & T30_FEATURE_BIT_MORE_DOCUMENTS)
2798                 {
2799                   start_internal_command (Id, plci, fax_connect_info_command);
2800                   return false;
2801                 }
2802                 else
2803                 {
2804                   start_internal_command (Id, plci, fax_adjust_b23_command);
2805                   return false;
2806                 }
2807               }
2808             }
2809           }
2810           else  Info = _WRONG_STATE;
2811         }
2812         else  Info = _WRONG_STATE;
2813       }
2814
2815       else if (plci->B3_prot == B3_RTP)
2816       {
2817         plci->internal_req_buffer[0] = ncpi->length + 1;
2818         plci->internal_req_buffer[1] = UDATA_REQUEST_RTP_RECONFIGURE;
2819         for (w = 0; w < ncpi->length; w++)
2820           plci->internal_req_buffer[2+w] = ncpi->info[1+w];
2821         start_internal_command (Id, plci, rtp_connect_b3_req_command);
2822         return false;
2823       }
2824
2825       if(!Info)
2826       {
2827         nl_req_ncci(plci,req,0);
2828         return 1;
2829       }
2830     }
2831   }
2832   else Info = _WRONG_IDENTIFIER;
2833
2834   sendf(appl,
2835         _CONNECT_B3_R|CONFIRM,
2836         Id,
2837         Number,
2838         "w",Info);
2839   return false;
2840 }
2841
2842 byte connect_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
2843 {
2844   word ncci;
2845   API_PARSE * ncpi;
2846   byte req;
2847
2848   word w;
2849
2850
2851     API_PARSE fax_parms[9];
2852   word i;
2853   byte len;
2854
2855
2856   dbug(1,dprintf("connect_b3_res"));
2857
2858   ncci = (word)(Id>>16);
2859   if(plci && ncci) {
2860     if(a->ncci_state[ncci]==INC_CON_PENDING) {
2861       if (GET_WORD (&parms[0].info[0]) != 0)
2862       {
2863         a->ncci_state[ncci] = OUTG_REJ_PENDING;
2864         channel_request_xon (plci, a->ncci_ch[ncci]);
2865         channel_xmit_xon (plci);
2866         cleanup_ncci_data (plci, ncci);
2867         nl_req_ncci(plci,N_DISC,(byte)ncci);
2868         return 1;
2869       }
2870       a->ncci_state[ncci] = INC_ACT_PENDING;
2871
2872       req = N_CONNECT_ACK;
2873       ncpi = &parms[1];
2874       if ((plci->B3_prot == 4) || (plci->B3_prot == 5) || (plci->B3_prot == 7))
2875       {
2876
2877         if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[plci->appl->Id-1])
2878           & (1L << PRIVATE_FAX_NONSTANDARD))
2879  {
2880    if (((plci->B3_prot == 4) || (plci->B3_prot == 5))
2881     && (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_ENABLE_NSF)
2882     && (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_NEGOTIATE_RESP))
2883    {
2884             len = ((byte)(((T30_INFO *) 0)->station_id + 20));
2885             if (plci->fax_connect_info_length < len)
2886             {
2887               ((T30_INFO *)(plci->fax_connect_info_buffer))->station_id_len = 0;
2888               ((T30_INFO *)(plci->fax_connect_info_buffer))->head_line_len = 0;
2889             }
2890             if (api_parse (&ncpi->info[1], ncpi->length, "wwwwssss", fax_parms))
2891             {
2892               dbug(1,dprintf("non-standard facilities info missing or wrong format"));
2893             }
2894             else
2895             {
2896               if (plci->fax_connect_info_length <= len)
2897                 plci->fax_connect_info_buffer[len] = 0;
2898               len += 1 + plci->fax_connect_info_buffer[len];
2899               if (plci->fax_connect_info_length <= len)
2900                 plci->fax_connect_info_buffer[len] = 0;
2901               len += 1 + plci->fax_connect_info_buffer[len];
2902               if ((fax_parms[7].length >= 3) && (fax_parms[7].info[1] >= 2))
2903                 plci->nsf_control_bits = GET_WORD(&fax_parms[7].info[2]);
2904               plci->fax_connect_info_buffer[len++] = (byte)(fax_parms[7].length);
2905               for (i = 0; i < fax_parms[7].length; i++)
2906                 plci->fax_connect_info_buffer[len++] = fax_parms[7].info[1+i];
2907             }
2908             plci->fax_connect_info_length = len;
2909             ((T30_INFO *)(plci->fax_connect_info_buffer))->code = 0;
2910             start_internal_command (Id, plci, fax_connect_ack_command);
2911      return false;
2912           }
2913         }
2914
2915         nl_req_ncci(plci,req,(byte)ncci);
2916         if ((plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
2917          && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT))
2918         {
2919           if (plci->B3_prot == 4)
2920             sendf(appl,_CONNECT_B3_ACTIVE_I,Id,0,"s","");
2921           else
2922             sendf(appl,_CONNECT_B3_ACTIVE_I,Id,0,"S",plci->ncpi_buffer);
2923           plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT;
2924         }
2925       }
2926
2927       else if (plci->B3_prot == B3_RTP)
2928       {
2929         plci->internal_req_buffer[0] = ncpi->length + 1;
2930         plci->internal_req_buffer[1] = UDATA_REQUEST_RTP_RECONFIGURE;
2931         for (w = 0; w < ncpi->length; w++)
2932           plci->internal_req_buffer[2+w] = ncpi->info[1+w];
2933         start_internal_command (Id, plci, rtp_connect_b3_res_command);
2934         return false;
2935       }
2936
2937       else
2938       {
2939         if(ncpi->length>2) {
2940           if(ncpi->info[1] &1) req = N_CONNECT_ACK | N_D_BIT;
2941           add_d(plci,(word)(ncpi->length-3),&ncpi->info[4]);
2942         }
2943         nl_req_ncci(plci,req,(byte)ncci);
2944         sendf(appl,_CONNECT_B3_ACTIVE_I,Id,0,"s","");
2945         if (plci->adjust_b_restore)
2946         {
2947           plci->adjust_b_restore = false;
2948           start_internal_command (Id, plci, adjust_b_restore);
2949         }
2950       }
2951       return 1;
2952     }
2953   }
2954   return false;
2955 }
2956
2957 byte connect_b3_a_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
2958 {
2959   word ncci;
2960
2961   ncci = (word)(Id>>16);
2962   dbug(1,dprintf("connect_b3_a_res(ncci=0x%x)",ncci));
2963
2964   if (plci && ncci && (plci->State != IDLE) && (plci->State != INC_DIS_PENDING)
2965    && (plci->State != OUTG_DIS_PENDING))
2966   {
2967     if(a->ncci_state[ncci]==INC_ACT_PENDING) {
2968       a->ncci_state[ncci] = CONNECTED;
2969       if(plci->State!=INC_CON_CONNECTED_ALERT) plci->State = CONNECTED;
2970       channel_request_xon (plci, a->ncci_ch[ncci]);
2971       channel_xmit_xon (plci);
2972     }
2973   }
2974   return false;
2975 }
2976
2977 byte disconnect_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
2978 {
2979   word Info;
2980   word ncci;
2981   API_PARSE * ncpi;
2982
2983   dbug(1,dprintf("disconnect_b3_req"));
2984
2985   Info = _WRONG_IDENTIFIER;
2986   ncci = (word)(Id>>16);
2987   if (plci && ncci)
2988   {
2989     Info = _WRONG_STATE;
2990     if ((a->ncci_state[ncci] == CONNECTED)
2991      || (a->ncci_state[ncci] == OUTG_CON_PENDING)
2992      || (a->ncci_state[ncci] == INC_CON_PENDING)
2993      || (a->ncci_state[ncci] == INC_ACT_PENDING))
2994     {
2995       a->ncci_state[ncci] = OUTG_DIS_PENDING;
2996       channel_request_xon (plci, a->ncci_ch[ncci]);
2997       channel_xmit_xon (plci);
2998
2999       if (a->ncci[ncci].data_pending
3000        && ((plci->B3_prot == B3_TRANSPARENT)
3001         || (plci->B3_prot == B3_T30)
3002         || (plci->B3_prot == B3_T30_WITH_EXTENSIONS)))
3003       {
3004         plci->send_disc = (byte)ncci;
3005         plci->command = 0;
3006         return false;
3007       }
3008       else
3009       {
3010         cleanup_ncci_data (plci, ncci);
3011
3012         if(plci->B3_prot==2 || plci->B3_prot==3)
3013         {
3014           ncpi = &parms[0];
3015           if(ncpi->length>3)
3016           {
3017             add_d(plci, (word)(ncpi->length - 3) ,(byte   *)&(ncpi->info[4]));
3018           }
3019         }
3020         nl_req_ncci(plci,N_DISC,(byte)ncci);
3021       }
3022       return 1;
3023     }
3024   }
3025   sendf(appl,
3026         _DISCONNECT_B3_R|CONFIRM,
3027         Id,
3028         Number,
3029         "w",Info);
3030   return false;
3031 }
3032
3033 byte disconnect_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
3034 {
3035   word ncci;
3036   word i;
3037
3038   ncci = (word)(Id>>16);
3039   dbug(1,dprintf("disconnect_b3_res(ncci=0x%x",ncci));
3040   if(plci && ncci) {
3041     plci->requested_options_conn = 0;
3042     plci->fax_connect_info_length = 0;
3043     plci->ncpi_state = 0x00;
3044     if (((plci->B3_prot != B3_T90NL) && (plci->B3_prot != B3_ISO8208) && (plci->B3_prot != B3_X25_DCE))
3045       && ((plci->B2_prot != B2_LAPD) && (plci->B2_prot != B2_LAPD_FREE_SAPI_SEL)))
3046     {
3047       plci->call_dir |= CALL_DIR_FORCE_OUTG_NL;
3048     }
3049     for(i=0; i<MAX_CHANNELS_PER_PLCI && plci->inc_dis_ncci_table[i]!=(byte)ncci; i++);
3050     if(i<MAX_CHANNELS_PER_PLCI) {
3051       if(plci->channels)plci->channels--;
3052       for(; i<MAX_CHANNELS_PER_PLCI-1; i++) plci->inc_dis_ncci_table[i] = plci->inc_dis_ncci_table[i+1];
3053       plci->inc_dis_ncci_table[MAX_CHANNELS_PER_PLCI-1] = 0;
3054
3055       ncci_free_receive_buffers (plci, ncci);
3056
3057       if((plci->State==IDLE || plci->State==SUSPENDING) && !plci->channels){
3058         if(plci->State == SUSPENDING){
3059           sendf(plci->appl,
3060                 _FACILITY_I,
3061                 Id & 0xffffL,
3062                 0,
3063                 "ws", (word)3, "\x03\x04\x00\x00");
3064           sendf(plci->appl, _DISCONNECT_I, Id & 0xffffL, 0, "w", 0);
3065         }
3066         plci_remove(plci);
3067         plci->State=IDLE;
3068       }
3069     }
3070     else
3071     {
3072       if ((a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS)
3073        && ((plci->B3_prot == 4) || (plci->B3_prot == 5))
3074        && (a->ncci_state[ncci] == INC_DIS_PENDING))
3075       {
3076         ncci_free_receive_buffers (plci, ncci);
3077
3078         nl_req_ncci(plci,N_EDATA,(byte)ncci);
3079
3080         plci->adapter->ncci_state[ncci] = IDLE;
3081         start_internal_command (Id, plci, fax_disconnect_command);
3082         return 1;
3083       }
3084     }
3085   }
3086   return false;
3087 }
3088
3089 byte data_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
3090 {
3091   NCCI   *ncci_ptr;
3092   DATA_B3_DESC   *data;
3093   word Info;
3094   word ncci;
3095   word i;
3096
3097   dbug(1,dprintf("data_b3_req"));
3098
3099   Info = _WRONG_IDENTIFIER;
3100   ncci = (word)(Id>>16);
3101   dbug(1,dprintf("ncci=0x%x, plci=0x%x",ncci,plci));
3102
3103   if (plci && ncci)
3104   {
3105     Info = _WRONG_STATE;
3106     if ((a->ncci_state[ncci] == CONNECTED)
3107      || (a->ncci_state[ncci] == INC_ACT_PENDING))
3108     {
3109         /* queue data */
3110       ncci_ptr = &(a->ncci[ncci]);
3111       i = ncci_ptr->data_out + ncci_ptr->data_pending;
3112       if (i >= MAX_DATA_B3)
3113         i -= MAX_DATA_B3;
3114       data = &(ncci_ptr->DBuffer[i]);
3115       data->Number = Number;
3116       if ((((byte   *)(parms[0].info)) >= ((byte   *)(plci->msg_in_queue)))
3117        && (((byte   *)(parms[0].info)) < ((byte   *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue)))
3118       {
3119
3120         data->P = (byte *)(long)(*((dword *)(parms[0].info)));
3121
3122       }
3123       else
3124         data->P = TransmitBufferSet(appl,*(dword *)parms[0].info);
3125       data->Length = GET_WORD(parms[1].info);
3126       data->Handle = GET_WORD(parms[2].info);
3127       data->Flags = GET_WORD(parms[3].info);
3128       (ncci_ptr->data_pending)++;
3129
3130         /* check for delivery confirmation */
3131       if (data->Flags & 0x0004)
3132       {
3133         i = ncci_ptr->data_ack_out + ncci_ptr->data_ack_pending;
3134         if (i >= MAX_DATA_ACK)
3135           i -= MAX_DATA_ACK;
3136         ncci_ptr->DataAck[i].Number = data->Number;
3137         ncci_ptr->DataAck[i].Handle = data->Handle;
3138         (ncci_ptr->data_ack_pending)++;
3139       }
3140
3141       send_data(plci);
3142       return false;
3143     }
3144   }
3145   if (appl)
3146   {
3147     if (plci)
3148     {
3149       if ((((byte   *)(parms[0].info)) >= ((byte   *)(plci->msg_in_queue)))
3150        && (((byte   *)(parms[0].info)) < ((byte   *)(plci->msg_in_queue)) + sizeof(plci->msg_in_queue)))
3151       {
3152
3153         TransmitBufferFree (appl, (byte *)(long)(*((dword *)(parms[0].info))));
3154
3155       }
3156     }
3157     sendf(appl,
3158           _DATA_B3_R|CONFIRM,
3159           Id,
3160           Number,
3161           "ww",GET_WORD(parms[2].info),Info);
3162   }
3163   return false;
3164 }
3165
3166 byte data_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
3167 {
3168   word n;
3169   word ncci;
3170   word NCCIcode;
3171
3172   dbug(1,dprintf("data_b3_res"));
3173
3174   ncci = (word)(Id>>16);
3175   if(plci && ncci) {
3176     n = GET_WORD(parms[0].info);
3177     dbug(1,dprintf("free(%d)",n));
3178     NCCIcode = ncci | (((word) a->Id) << 8);
3179     if(n<appl->MaxBuffer &&
3180        appl->DataNCCI[n]==NCCIcode &&
3181        (byte)(appl->DataFlags[n]>>8)==plci->Id) {
3182       dbug(1,dprintf("found"));
3183       appl->DataNCCI[n] = 0;
3184
3185       if (channel_can_xon (plci, a->ncci_ch[ncci])) {
3186         channel_request_xon (plci, a->ncci_ch[ncci]);
3187       }
3188       channel_xmit_xon (plci);
3189
3190       if(appl->DataFlags[n] &4) {
3191         nl_req_ncci(plci,N_DATA_ACK,(byte)ncci);
3192         return 1;
3193       }
3194     }
3195   }
3196   return false;
3197 }
3198
3199 byte reset_b3_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
3200 {
3201   word Info;
3202   word ncci;
3203
3204   dbug(1,dprintf("reset_b3_req"));
3205
3206   Info = _WRONG_IDENTIFIER;
3207   ncci = (word)(Id>>16);
3208   if(plci && ncci)
3209   {
3210     Info = _WRONG_STATE;
3211     switch (plci->B3_prot)
3212     {
3213     case B3_ISO8208:
3214     case B3_X25_DCE:
3215       if(a->ncci_state[ncci]==CONNECTED)
3216       {
3217         nl_req_ncci(plci,N_RESET,(byte)ncci);
3218         send_req(plci);
3219         Info = GOOD;
3220       }
3221       break;
3222     case B3_TRANSPARENT:
3223       if(a->ncci_state[ncci]==CONNECTED)
3224       {
3225         start_internal_command (Id, plci, reset_b3_command);
3226         Info = GOOD;
3227       }
3228       break;
3229     }
3230   }
3231   /* reset_b3 must result in a reset_b3_con & reset_b3_Ind */
3232   sendf(appl,
3233         _RESET_B3_R|CONFIRM,
3234         Id,
3235         Number,
3236         "w",Info);
3237   return false;
3238 }
3239
3240 byte reset_b3_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
3241 {
3242   word ncci;
3243
3244   dbug(1,dprintf("reset_b3_res"));
3245
3246   ncci = (word)(Id>>16);
3247   if(plci && ncci) {
3248     switch (plci->B3_prot)
3249     {
3250     case B3_ISO8208:
3251     case B3_X25_DCE:
3252       if(a->ncci_state[ncci]==INC_RES_PENDING)
3253       {
3254         a->ncci_state[ncci] = CONNECTED;
3255         nl_req_ncci(plci,N_RESET_ACK,(byte)ncci);
3256         return true;
3257       }
3258     break;
3259     }
3260   }
3261   return false;
3262 }
3263
3264 byte connect_b3_t90_a_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
3265 {
3266   word ncci;
3267   API_PARSE * ncpi;
3268   byte req;
3269
3270   dbug(1,dprintf("connect_b3_t90_a_res"));
3271
3272   ncci = (word)(Id>>16);
3273   if(plci && ncci) {
3274     if(a->ncci_state[ncci]==INC_ACT_PENDING) {
3275       a->ncci_state[ncci] = CONNECTED;
3276     }
3277     else if(a->ncci_state[ncci]==INC_CON_PENDING) {
3278       a->ncci_state[ncci] = CONNECTED;
3279
3280       req = N_CONNECT_ACK;
3281
3282         /* parms[0]==0 for CAPI original message definition! */
3283       if(parms[0].info) {
3284         ncpi = &parms[1];
3285         if(ncpi->length>2) {
3286           if(ncpi->info[1] &1) req = N_CONNECT_ACK | N_D_BIT;
3287           add_d(plci,(word)(ncpi->length-3),&ncpi->info[4]);
3288         }
3289       }
3290       nl_req_ncci(plci,req,(byte)ncci);
3291       return 1;
3292     }
3293   }
3294   return false;
3295 }
3296
3297
3298 byte select_b_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
3299 {
3300   word Info=0;
3301   word i;
3302   byte tel;
3303     API_PARSE bp_parms[7];
3304
3305   if(!plci || !msg)
3306   {
3307     Info = _WRONG_IDENTIFIER;
3308   }
3309   else
3310   {
3311     dbug(1,dprintf("select_b_req[%d],PLCI=0x%x,Tel=0x%x,NL=0x%x,appl=0x%x,sstate=0x%x",
3312                    msg->length,plci->Id,plci->tel,plci->NL.Id,plci->appl,plci->SuppState));
3313     dbug(1,dprintf("PlciState=0x%x",plci->State));
3314     for(i=0;i<7;i++) bp_parms[i].length = 0;
3315
3316     /* check if no channel is open, no B3 connected only */
3317     if((plci->State == IDLE) || (plci->State == OUTG_DIS_PENDING) || (plci->State == INC_DIS_PENDING)
3318      || (plci->SuppState != IDLE) || plci->channels || plci->nl_remove_id)
3319     {
3320       Info = _WRONG_STATE;
3321     }
3322     /* check message format and fill bp_parms pointer */
3323     else if(msg->length && api_parse(&msg->info[1], (word)msg->length, "wwwsss", bp_parms))
3324     {
3325       Info = _WRONG_MESSAGE_FORMAT;
3326     }
3327     else
3328     {
3329       if((plci->State==INC_CON_PENDING) || (plci->State==INC_CON_ALERT)) /* send alert tone inband to the network, */
3330       {                                                                  /* e.g. Qsig or RBS or Cornet-N or xess PRI */
3331         if(Id & EXT_CONTROLLER)
3332         {
3333           sendf(appl, _SELECT_B_REQ|CONFIRM, Id, Number, "w", 0x2002); /* wrong controller */
3334           return 0;
3335         }
3336         plci->State=INC_CON_CONNECTED_ALERT;
3337         plci->appl = appl;
3338         clear_c_ind_mask_bit (plci, (word)(appl->Id-1));
3339         dump_c_ind_mask (plci);
3340         for(i=0; i<max_appl; i++) /* disconnect the other appls */
3341         {                         /* its quasi a connect        */
3342           if(test_c_ind_mask_bit (plci, i))
3343             sendf(&application[i], _DISCONNECT_I, Id, 0, "w", _OTHER_APPL_CONNECTED);
3344         }
3345       }
3346
3347       api_save_msg(msg, "s", &plci->saved_msg);
3348       tel = plci->tel;
3349       if(Id & EXT_CONTROLLER)
3350       {
3351         if(tel) /* external controller in use by this PLCI */
3352         {
3353           if(a->AdvSignalAppl && a->AdvSignalAppl!=appl)
3354           {
3355             dbug(1,dprintf("Ext_Ctrl in use 1"));
3356             Info = _WRONG_STATE;
3357           }
3358         }
3359         else  /* external controller NOT in use by this PLCI ? */
3360         {
3361           if(a->AdvSignalPLCI)
3362           {
3363             dbug(1,dprintf("Ext_Ctrl in use 2"));
3364             Info = _WRONG_STATE;
3365           }
3366           else /* activate the codec */
3367           {
3368             dbug(1,dprintf("Ext_Ctrl start"));
3369             if(AdvCodecSupport(a, plci, appl, 0) )
3370             {
3371               dbug(1,dprintf("Error in codec procedures"));
3372               Info = _WRONG_STATE;
3373             }
3374             else if(plci->spoofed_msg==SPOOFING_REQUIRED) /* wait until codec is active */
3375             {
3376               plci->spoofed_msg = AWAITING_SELECT_B;
3377               plci->internal_command = BLOCK_PLCI; /* lock other commands */
3378               plci->command = 0;
3379               dbug(1,dprintf("continue if codec loaded"));
3380               return false;
3381             }
3382           }
3383         }
3384       }
3385       else /* external controller bit is OFF */
3386       {
3387         if(tel) /* external controller in use, need to switch off */
3388         {
3389           if(a->AdvSignalAppl==appl)
3390           {
3391             CodecIdCheck(a, plci);
3392             plci->tel = 0;
3393             plci->adv_nl = 0;
3394             dbug(1,dprintf("Ext_Ctrl disable"));
3395           }
3396           else
3397           {
3398             dbug(1,dprintf("Ext_Ctrl not requested"));
3399           }
3400         }
3401       }
3402       if (!Info)
3403       {
3404         if (plci->call_dir & CALL_DIR_OUT)
3405           plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE;
3406         else if (plci->call_dir & CALL_DIR_IN)
3407           plci->call_dir = CALL_DIR_IN | CALL_DIR_ANSWER;
3408         start_internal_command (Id, plci, select_b_command);
3409         return false;
3410       }
3411     }
3412   }
3413   sendf(appl, _SELECT_B_REQ|CONFIRM, Id, Number, "w", Info);
3414   return false;
3415 }
3416
3417 byte manufacturer_req(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * parms)
3418 {
3419   word command;
3420   word i;
3421   word ncci;
3422   API_PARSE * m;
3423     API_PARSE m_parms[5];
3424   word codec;
3425   byte req;
3426   byte ch;
3427   byte dir;
3428   static byte chi[2] = {0x01,0x00};
3429   static byte lli[2] = {0x01,0x00};
3430   static byte codec_cai[2] = {0x01,0x01};
3431   static byte null_msg = {0};
3432   static API_PARSE null_parms = { 0, &null_msg };
3433   PLCI   * v_plci;
3434   word Info=0;
3435
3436   dbug(1,dprintf("manufacturer_req"));
3437   for(i=0;i<5;i++) m_parms[i].length = 0;
3438
3439   if(GET_DWORD(parms[0].info)!=_DI_MANU_ID) {
3440     Info = _WRONG_MESSAGE_FORMAT;
3441   }
3442   command = GET_WORD(parms[1].info);
3443   m = &parms[2];
3444   if (!Info)
3445   {
3446     switch(command) {
3447     case _DI_ASSIGN_PLCI:
3448       if(api_parse(&m->info[1],(word)m->length,"wbbs",m_parms)) {
3449         Info = _WRONG_MESSAGE_FORMAT;
3450         break;
3451       }
3452       codec = GET_WORD(m_parms[0].info);
3453       ch = m_parms[1].info[0];
3454       dir = m_parms[2].info[0];
3455       if((i=get_plci(a))) {
3456         plci = &a->plci[i-1];
3457         plci->appl = appl;
3458         plci->command = _MANUFACTURER_R;
3459         plci->m_command = command;
3460         plci->number = Number;
3461         plci->State = LOCAL_CONNECT;
3462         Id = ( ((word)plci->Id<<8)|plci->adapter->Id|0x80);
3463         dbug(1,dprintf("ManCMD,plci=0x%x",Id));
3464
3465         if((ch==1 || ch==2) && (dir<=2)) {
3466           chi[1] = (byte)(0x80|ch);
3467           lli[1] = 0;
3468           plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE;
3469           switch(codec)
3470           {
3471           case 0:
3472             Info = add_b1(plci,&m_parms[3],0,0);
3473             break;
3474           case 1:
3475             add_p(plci,CAI,codec_cai);
3476             break;
3477           /* manual 'swich on' to the codec support without signalling */
3478           /* first 'assign plci' with this function, then use */
3479           case 2:
3480             if(AdvCodecSupport(a, plci, appl, 0) ) {
3481               Info = _RESOURCE_ERROR;
3482             }
3483             else {
3484               Info = add_b1(plci,&null_parms,0,B1_FACILITY_LOCAL);
3485               lli[1] = 0x10; /* local call codec stream */
3486             }
3487             break;
3488           }
3489
3490           plci->State = LOCAL_CONNECT;
3491           plci->manufacturer = true;
3492           plci->command = _MANUFACTURER_R;
3493           plci->m_command = command;
3494           plci->number = Number;
3495
3496           if(!Info)
3497           {
3498             add_p(plci,LLI,lli);
3499             add_p(plci,CHI,chi);
3500             add_p(plci,UID,"\x06\x43\x61\x70\x69\x32\x30");
3501             sig_req(plci,ASSIGN,DSIG_ID);
3502
3503             if(!codec)
3504             {
3505               Info = add_b23(plci,&m_parms[3]);
3506               if(!Info)
3507               {
3508                 nl_req_ncci(plci,ASSIGN,0);
3509                 send_req(plci);
3510               }
3511             }
3512             if(!Info)
3513             {
3514               dbug(1,dprintf("dir=0x%x,spoof=0x%x",dir,plci->spoofed_msg));
3515               if (plci->spoofed_msg==SPOOFING_REQUIRED)
3516               {
3517                 api_save_msg (m_parms, "wbbs", &plci->saved_msg);
3518                 plci->spoofed_msg = AWAITING_MANUF_CON;
3519                 plci->internal_command = BLOCK_PLCI; /* reject other req meanwhile */
3520                 plci->command = 0;
3521                 send_req(plci);
3522                 return false;
3523               }
3524               if(dir==1) {
3525                 sig_req(plci,CALL_REQ,0);
3526               }
3527               else if(!dir){
3528                 sig_req(plci,LISTEN_REQ,0);
3529               }
3530               send_req(plci);
3531             }
3532             else
3533             {
3534               sendf(appl,
3535                     _MANUFACTURER_R|CONFIRM,
3536                     Id,
3537                     Number,
3538                     "dww",_DI_MANU_ID,command,Info);
3539               return 2;
3540             }
3541           }
3542         }
3543       }
3544       else  Info = _OUT_OF_PLCI;
3545       break;
3546
3547     case _DI_IDI_CTRL:
3548       if(!plci)
3549       {
3550         Info = _WRONG_IDENTIFIER;
3551         break;
3552       }
3553       if(api_parse(&m->info[1],(word)m->length,"bs",m_parms)) {
3554         Info = _WRONG_MESSAGE_FORMAT;
3555         break;
3556       }
3557       req = m_parms[0].info[0];
3558       plci->command = _MANUFACTURER_R;
3559       plci->m_command = command;
3560       plci->number = Number;
3561       if(req==CALL_REQ)
3562       {
3563         plci->b_channel = getChannel(&m_parms[1]);
3564         mixer_set_bchannel_id_esc (plci, plci->b_channel);
3565         if(plci->spoofed_msg==SPOOFING_REQUIRED)
3566         {
3567           plci->spoofed_msg = CALL_REQ | AWAITING_MANUF_CON;
3568           plci->internal_command = BLOCK_PLCI; /* reject other req meanwhile */
3569           plci->command = 0;
3570           break;
3571         }
3572       }
3573       else if(req==LAW_REQ)
3574       {
3575         plci->cr_enquiry = true;
3576       }
3577       add_ss(plci,FTY,&m_parms[1]);
3578       sig_req(plci,req,0);
3579       send_req(plci);
3580       if(req==HANGUP)
3581       {
3582         if (plci->NL.Id && !plci->nl_remove_id)
3583         {
3584           if (plci->channels)
3585           {
3586             for (ncci = 1; ncci < MAX_NCCI+1; ncci++)
3587             {
3588               if ((a->ncci_plci[ncci] == plci->Id) && (a->ncci_state[ncci] == CONNECTED))
3589               {
3590                 a->ncci_state[ncci] = OUTG_DIS_PENDING;
3591                 cleanup_ncci_data (plci, ncci);
3592                 nl_req_ncci(plci,N_DISC,(byte)ncci);
3593               }
3594             }
3595           }
3596           mixer_remove (plci);
3597           nl_req_ncci(plci,REMOVE,0);
3598           send_req(plci);
3599         }
3600       }
3601       break;
3602
3603     case _DI_SIG_CTRL:
3604     /* signalling control for loop activation B-channel */
3605       if(!plci)
3606       {
3607         Info = _WRONG_IDENTIFIER;
3608         break;
3609       }
3610       if(m->length){
3611         plci->command = _MANUFACTURER_R;
3612         plci->number = Number;
3613         add_ss(plci,FTY,m);
3614         sig_req(plci,SIG_CTRL,0);
3615         send_req(plci);
3616       }
3617       else Info = _WRONG_MESSAGE_FORMAT;
3618       break;
3619
3620     case _DI_RXT_CTRL:
3621     /* activation control for receiver/transmitter B-channel */
3622       if(!plci)
3623       {
3624         Info = _WRONG_IDENTIFIER;
3625         break;
3626       }
3627       if(m->length){
3628         plci->command = _MANUFACTURER_R;
3629         plci->number = Number;
3630         add_ss(plci,FTY,m);
3631         sig_req(plci,DSP_CTRL,0);
3632         send_req(plci);
3633       }
3634       else Info = _WRONG_MESSAGE_FORMAT;
3635       break;
3636
3637     case _DI_ADV_CODEC:
3638     case _DI_DSP_CTRL:
3639       /* TEL_CTRL commands to support non standard adjustments: */
3640       /* Ring on/off, Handset micro volume, external micro vol. */
3641       /* handset+external speaker volume, receiver+transm. gain,*/
3642       /* handsfree on (hookinfo off), set mixer command         */
3643
3644       if(command == _DI_ADV_CODEC)
3645       {
3646         if(!a->AdvCodecPLCI) {
3647           Info = _WRONG_STATE;
3648           break;
3649         }
3650         v_plci = a->AdvCodecPLCI;
3651       }
3652       else
3653       {
3654         if (plci
3655          && (m->length >= 3)
3656          && (m->info[1] == 0x1c)
3657          && (m->info[2] >= 1))
3658         {
3659           if (m->info[3] == DSP_CTRL_OLD_SET_MIXER_COEFFICIENTS)
3660           {
3661             if ((plci->tel != ADV_VOICE) || (plci != a->AdvSignalPLCI))
3662             {
3663               Info = _WRONG_STATE;
3664               break;
3665             }
3666             a->adv_voice_coef_length = m->info[2] - 1;
3667             if (a->adv_voice_coef_length > m->length - 3)
3668               a->adv_voice_coef_length = (byte)(m->length - 3);
3669             if (a->adv_voice_coef_length > ADV_VOICE_COEF_BUFFER_SIZE)
3670               a->adv_voice_coef_length = ADV_VOICE_COEF_BUFFER_SIZE;
3671             for (i = 0; i < a->adv_voice_coef_length; i++)
3672               a->adv_voice_coef_buffer[i] = m->info[4 + i];
3673             if (plci->B1_facilities & B1_FACILITY_VOICE)
3674               adv_voice_write_coefs (plci, ADV_VOICE_WRITE_UPDATE);
3675             break;
3676           }
3677           else if (m->info[3] == DSP_CTRL_SET_DTMF_PARAMETERS)
3678           {
3679             if (!(a->manufacturer_features & MANUFACTURER_FEATURE_DTMF_PARAMETERS))
3680             {
3681               Info = _FACILITY_NOT_SUPPORTED;
3682               break;
3683             }
3684
3685             plci->dtmf_parameter_length = m->info[2] - 1;
3686             if (plci->dtmf_parameter_length > m->length - 3)
3687               plci->dtmf_parameter_length = (byte)(m->length - 3);
3688             if (plci->dtmf_parameter_length > DTMF_PARAMETER_BUFFER_SIZE)
3689               plci->dtmf_parameter_length = DTMF_PARAMETER_BUFFER_SIZE;
3690             for (i = 0; i < plci->dtmf_parameter_length; i++)
3691               plci->dtmf_parameter_buffer[i] = m->info[4+i];
3692             if (plci->B1_facilities & B1_FACILITY_DTMFR)
3693               dtmf_parameter_write (plci);
3694             break;
3695
3696           }
3697         }
3698         v_plci = plci;
3699       }
3700
3701       if(!v_plci)
3702       {
3703         Info = _WRONG_IDENTIFIER;
3704         break;
3705       }
3706       if(m->length){
3707         add_ss(v_plci,FTY,m);
3708         sig_req(v_plci,TEL_CTRL,0);
3709         send_req(v_plci);
3710       }
3711       else Info = _WRONG_MESSAGE_FORMAT;
3712
3713       break;
3714
3715     case _DI_OPTIONS_REQUEST:
3716       if(api_parse(&m->info[1],(word)m->length,"d",m_parms)) {
3717         Info = _WRONG_MESSAGE_FORMAT;
3718         break;
3719       }
3720       if (GET_DWORD (m_parms[0].info) & ~a->man_profile.private_options)
3721       {
3722         Info = _FACILITY_NOT_SUPPORTED;
3723         break;
3724       }
3725       a->requested_options_table[appl->Id-1] = GET_DWORD (m_parms[0].info);
3726       break;
3727
3728
3729
3730     default:
3731       Info = _WRONG_MESSAGE_FORMAT;
3732       break;
3733     }
3734   }
3735
3736   sendf(appl,
3737         _MANUFACTURER_R|CONFIRM,
3738         Id,
3739         Number,
3740         "dww",_DI_MANU_ID,command,Info);
3741   return false;
3742 }
3743
3744
3745 byte manufacturer_res(dword Id, word Number, DIVA_CAPI_ADAPTER   * a, PLCI   * plci, APPL   * appl, API_PARSE * msg)
3746 {
3747   word indication;
3748
3749     API_PARSE m_parms[3];
3750   API_PARSE *ncpi;
3751     API_PARSE fax_parms[9];
3752   word i;
3753   byte len;
3754
3755
3756   dbug(1,dprintf("manufacturer_res"));
3757
3758   if ((msg[0].length == 0)
3759    || (msg[1].length == 0)
3760    || (GET_DWORD(msg[0].info)!=_DI_MANU_ID))
3761   {
3762     return false;
3763   }
3764   indication = GET_WORD(msg[1].info);
3765   switch (indication)
3766   {
3767
3768   case _DI_NEGOTIATE_B3:
3769     if(!plci)
3770       break;
3771     if (((plci->B3_prot != 4) && (plci->B3_prot != 5))
3772      || !(plci->ncpi_state & NCPI_NEGOTIATE_B3_SENT))
3773     {
3774       dbug(1,dprintf("wrong state for NEGOTIATE_B3 parameters"));
3775       break;
3776     }
3777     if (api_parse (&msg[2].info[1], msg[2].length, "ws", m_parms))
3778     {
3779       dbug(1,dprintf("wrong format in NEGOTIATE_B3 parameters"));
3780       break;
3781     }
3782     ncpi = &m_parms[1];
3783     len = ((byte)(((T30_INFO *) 0)->station_id + 20));
3784     if (plci->fax_connect_info_length < len)
3785     {
3786       ((T30_INFO *)(plci->fax_connect_info_buffer))->station_id_len = 0;
3787       ((T30_INFO *)(plci->fax_connect_info_buffer))->head_line_len = 0;
3788     }
3789     if (api_parse (&ncpi->info[1], ncpi->length, "wwwwssss", fax_parms))
3790     {
3791       dbug(1,dprintf("non-standard facilities info missing or wrong format"));
3792     }
3793     else
3794     {
3795       if (plci->fax_connect_info_length <= len)
3796         plci->fax_connect_info_buffer[len] = 0;
3797       len += 1 + plci->fax_connect_info_buffer[len];
3798       if (plci->fax_connect_info_length <= len)
3799         plci->fax_connect_info_buffer[len] = 0;
3800       len += 1 + plci->fax_connect_info_buffer[len];
3801       if ((fax_parms[7].length >= 3) && (fax_parms[7].info[1] >= 2))
3802         plci->nsf_control_bits = GET_WORD(&fax_parms[7].info[2]);
3803       plci->fax_connect_info_buffer[len++] = (byte)(fax_parms[7].length);
3804       for (i = 0; i < fax_parms[7].length; i++)
3805         plci->fax_connect_info_buffer[len++] = fax_parms[7].info[1+i];
3806     }
3807     plci->fax_connect_info_length = len;
3808     plci->fax_edata_ack_length = plci->fax_connect_info_length;
3809     start_internal_command (Id, plci, fax_edata_ack_command);
3810     break;
3811
3812   }
3813   return false;
3814 }
3815
3816 /*------------------------------------------------------------------*/
3817 /* IDI callback function                                            */
3818 /*------------------------------------------------------------------*/
3819
3820 void   callback(ENTITY   * e)
3821 {
3822   DIVA_CAPI_ADAPTER   * a;
3823   APPL   * appl;
3824   PLCI   * plci;
3825   CAPI_MSG   *m;
3826   word i, j;
3827   byte rc;
3828   byte ch;
3829   byte req;
3830   byte global_req;
3831   int no_cancel_rc;
3832
3833   dbug(1,dprintf("%x:CB(%x:Req=%x,Rc=%x,Ind=%x)",
3834                  (e->user[0]+1)&0x7fff,e->Id,e->Req,e->Rc,e->Ind));
3835
3836   a = &(adapter[(byte)e->user[0]]);
3837   plci = &(a->plci[e->user[1]]);
3838   no_cancel_rc = DIVA_CAPI_SUPPORTS_NO_CANCEL(a);
3839
3840   /*
3841      If new protocol code and new XDI is used then CAPI should work
3842      fully in accordance with IDI cpec an look on callback field instead
3843      of Rc field for return codes.
3844    */
3845   if (((e->complete == 0xff) && no_cancel_rc) ||
3846       (e->Rc && !no_cancel_rc)) {
3847     rc = e->Rc;
3848     ch = e->RcCh;
3849     req = e->Req;
3850     e->Rc = 0;
3851
3852     if (e->user[0] & 0x8000)
3853     {
3854       /*
3855          If REMOVE request was sent then we have to wait until
3856          return code with Id set to zero arrives.
3857          All other return codes should be ignored.
3858          */
3859       if (req == REMOVE)
3860       {
3861         if (e->Id)
3862         {
3863           dbug(1,dprintf("cancel RC in REMOVE state"));
3864           return;
3865         }
3866         channel_flow_control_remove (plci);
3867         for (i = 0; i < 256; i++)
3868         {
3869           if (a->FlowControlIdTable[i] == plci->nl_remove_id)
3870             a->FlowControlIdTable[i] = 0;
3871         }
3872         plci->nl_remove_id = 0;
3873         if (plci->rx_dma_descriptor > 0) {
3874           diva_free_dma_descriptor (plci, plci->rx_dma_descriptor - 1);
3875           plci->rx_dma_descriptor = 0;
3876         }
3877       }
3878       if (rc == OK_FC)
3879       {
3880         a->FlowControlIdTable[ch] = e->Id;
3881         a->FlowControlSkipTable[ch] = 0;
3882
3883         a->ch_flow_control[ch] |= N_OK_FC_PENDING;
3884         a->ch_flow_plci[ch] = plci->Id;
3885         plci->nl_req = 0;
3886       }
3887       else
3888       {
3889         /*
3890           Cancel return codes self, if feature was requested
3891           */
3892         if (no_cancel_rc && (a->FlowControlIdTable[ch] == e->Id) && e->Id) {
3893           a->FlowControlIdTable[ch] = 0;
3894           if ((rc == OK) && a->FlowControlSkipTable[ch]) {
3895             dbug(3,dprintf ("XDI CAPI: RC cancelled Id:0x02, Ch:%02x",                              e->Id, ch));
3896             return;
3897           }
3898         }
3899
3900         if (a->ch_flow_control[ch] & N_OK_FC_PENDING)
3901         {
3902           a->ch_flow_control[ch] &= ~N_OK_FC_PENDING;
3903           if (ch == e->ReqCh)
3904             plci->nl_req = 0;
3905         }
3906         else
3907           plci->nl_req = 0;
3908       }
3909       if (plci->nl_req)
3910         control_rc (plci, 0, rc, ch, 0, true);
3911       else
3912       {
3913         if (req == N_XON)
3914         {
3915           channel_x_on (plci, ch);
3916           if (plci->internal_command)
3917             control_rc (plci, req, rc, ch, 0, true);
3918         }
3919         else
3920         {
3921           if (plci->nl_global_req)
3922           {
3923             global_req = plci->nl_global_req;
3924             plci->nl_global_req = 0;
3925             if (rc != ASSIGN_OK) {
3926               e->Id = 0;
3927               if (plci->rx_dma_descriptor > 0) {
3928                 diva_free_dma_descriptor (plci, plci->rx_dma_descriptor - 1);
3929                 plci->rx_dma_descriptor = 0;
3930               }
3931             }
3932             channel_xmit_xon (plci);
3933             control_rc (plci, 0, rc, ch, global_req, true);
3934           }
3935           else if (plci->data_sent)
3936           {
3937             channel_xmit_xon (plci);
3938             plci->data_sent = false;
3939             plci->NL.XNum = 1;
3940             data_rc (plci, ch);
3941             if (plci->internal_command)
3942               control_rc (plci, req, rc, ch, 0, true);
3943           }
3944           else
3945           {
3946             channel_xmit_xon (plci);
3947             control_rc (plci, req, rc, ch, 0, true);
3948           }
3949         }
3950       }
3951     }
3952     else
3953     {
3954       /*
3955          If REMOVE request was sent then we have to wait until
3956          return code with Id set to zero arrives.
3957          All other return codes should be ignored.
3958          */
3959       if (req == REMOVE)
3960       {
3961         if (e->Id)
3962         {
3963           dbug(1,dprintf("cancel RC in REMOVE state"));
3964           return;
3965         }
3966         plci->sig_remove_id = 0;
3967       }
3968       plci->sig_req = 0;
3969       if (plci->sig_global_req)
3970       {
3971         global_req = plci->sig_global_req;
3972         plci->sig_global_req = 0;
3973         if (rc != ASSIGN_OK)
3974           e->Id = 0;
3975         channel_xmit_xon (plci);
3976         control_rc (plci, 0, rc, ch, global_req, false);
3977       }
3978       else
3979       {
3980         channel_xmit_xon (plci);
3981         control_rc (plci, req, rc, ch, 0, false);
3982       }
3983     }
3984     /*
3985       Again: in accordance with IDI spec Rc and Ind can't be delivered in the
3986       same callback. Also if new XDI and protocol code used then jump
3987       direct to finish.
3988       */
3989     if (no_cancel_rc) {
3990       channel_xmit_xon(plci);
3991       goto capi_callback_suffix;
3992     }
3993   }
3994
3995   channel_xmit_xon(plci);
3996
3997   if (e->Ind) {
3998     if (e->user[0] &0x8000) {
3999       byte Ind = e->Ind & 0x0f;
4000       byte Ch = e->IndCh;
4001       if (((Ind==N_DISC) || (Ind==N_DISC_ACK)) &&
4002           (a->ch_flow_plci[Ch] == plci->Id)) {
4003         if (a->ch_flow_control[Ch] & N_RX_FLOW_CONTROL_MASK) {
4004           dbug(3,dprintf ("XDI CAPI: I: pending N-XON Ch:%02x", Ch));
4005         }
4006         a->ch_flow_control[Ch] &= ~N_RX_FLOW_CONTROL_MASK;
4007       }
4008       nl_ind(plci);
4009       if ((e->RNR != 1) &&
4010           (a->ch_flow_plci[Ch] == plci->Id) &&
4011           (a->ch_flow_control[Ch] & N_RX_FLOW_CONTROL_MASK)) {
4012         a->ch_flow_control[Ch] &= ~N_RX_FLOW_CONTROL_MASK;
4013         dbug(3,dprintf ("XDI CAPI: I: remove faked N-XON Ch:%02x", Ch));
4014       }
4015     } else {
4016       sig_ind(plci);
4017     }
4018     e->Ind = 0;
4019   }
4020
4021 capi_callback_suffix:
4022
4023   while (!plci->req_in
4024    && !plci->internal_command
4025    && (plci->msg_in_write_pos != plci->msg_in_read_pos))
4026   {
4027     j = (plci->msg_in_read_pos == plci->msg_in_wrap_pos) ? 0 : plci->msg_in_read_pos;
4028
4029     i = (((CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[j]))->header.length + 3) & 0xfffc;
4030
4031     m = (CAPI_MSG   *)(&((byte   *)(plci->msg_in_queue))[j]);
4032     appl = *((APPL   *   *)(&((byte   *)(plci->msg_in_queue))[j+i]));
4033     dbug(1,dprintf("dequeue msg(0x%04x) - write=%d read=%d wrap=%d",
4034       m->header.command, plci->msg_in_write_pos, plci->msg_in_read_pos, plci->msg_in_wrap_pos));
4035     if (plci->msg_in_read_pos == plci->msg_in_wrap_pos)
4036     {
4037       plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE;
4038       plci->msg_in_read_pos = i + MSG_IN_OVERHEAD;
4039     }
4040     else
4041     {
4042       plci->msg_in_read_pos = j + i + MSG_IN_OVERHEAD;
4043     }
4044     if (plci->msg_in_read_pos == plci->msg_in_write_pos)
4045     {
4046       plci->msg_in_write_pos = MSG_IN_QUEUE_SIZE;
4047       plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE;
4048     }
4049     else if (plci->msg_in_read_pos == plci->msg_in_wrap_pos)
4050     {
4051       plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE;
4052       plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE;
4053     }
4054     i = api_put (appl, m);
4055     if (i != 0)
4056     {
4057       if (m->header.command == _DATA_B3_R)
4058
4059         TransmitBufferFree (appl, (byte *)(long)(m->info.data_b3_req.Data));
4060
4061       dbug(1,dprintf("Error 0x%04x from msg(0x%04x)", i, m->header.command));
4062       break;
4063     }
4064
4065     if (plci->li_notify_update)
4066     {
4067       plci->li_notify_update = false;
4068       mixer_notify_update (plci, false);
4069     }
4070
4071   }
4072   send_data(plci);
4073   send_req(plci);
4074 }
4075
4076
4077 void control_rc(PLCI   * plci, byte req, byte rc, byte ch, byte global_req, byte nl_rc)
4078 {
4079   dword Id;
4080   dword rId;
4081   word Number;
4082   word Info=0;
4083   word i;
4084   word ncci;
4085   DIVA_CAPI_ADAPTER   * a;
4086   APPL   * appl;
4087   PLCI   * rplci;
4088     byte SSparms[]  = "\x05\x00\x00\x02\x00\x00";
4089     byte SSstruct[] = "\x09\x00\x00\x06\x00\x00\x00\x00\x00\x00";
4090
4091   if (!plci) {
4092     dbug(0,dprintf("A: control_rc, no plci %02x:%02x:%02x:%02x:%02x", req, rc, ch, global_req, nl_rc));
4093     return;
4094   }
4095   dbug(1,dprintf("req0_in/out=%d/%d",plci->req_in,plci->req_out));
4096   if(plci->req_in!=plci->req_out)
4097   {
4098     if (nl_rc || (global_req != ASSIGN) || (rc == ASSIGN_OK))
4099     {
4100       dbug(1,dprintf("req_1return"));
4101       return;
4102     }
4103     /* cancel outstanding request on the PLCI after SIG ASSIGN failure */
4104   }
4105   plci->req_in = plci->req_in_start = plci->req_out = 0;
4106   dbug(1,dprintf("control_rc"));
4107
4108   appl = plci->appl;
4109   a = plci->adapter;
4110   ncci = a->ch_ncci[ch];
4111   if(appl)
4112   {
4113     Id = (((dword)(ncci ? ncci : ch)) << 16) | ((word)plci->Id << 8) | a->Id;
4114     if(plci->tel && plci->SuppState!=CALL_HELD) Id|=EXT_CONTROLLER;
4115     Number = plci->number;
4116     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));
4117     dbug(1,dprintf("channels=0x%x",plci->channels));
4118     if (plci_remove_check(plci))
4119       return;
4120     if(req==REMOVE && rc==ASSIGN_OK)
4121     {
4122       sig_req(plci,HANGUP,0);
4123       sig_req(plci,REMOVE,0);
4124       send_req(plci);
4125     }
4126     if(plci->command)
4127     {
4128       switch(plci->command)
4129       {
4130       case C_HOLD_REQ:
4131         dbug(1,dprintf("HoldRC=0x%x",rc));
4132         SSparms[1] = (byte)S_HOLD;
4133         if(rc!=OK)
4134         {
4135           plci->SuppState = IDLE;
4136           Info = 0x2001;
4137         }
4138         sendf(appl,_FACILITY_R|CONFIRM,Id,Number,"wws",Info,3,SSparms);
4139         break;
4140
4141       case C_RETRIEVE_REQ:
4142         dbug(1,dprintf("RetrieveRC=0x%x",rc));
4143         SSparms[1] = (byte)S_RETRIEVE;
4144         if(rc!=OK)
4145         {
4146           plci->SuppState = CALL_HELD;
4147           Info = 0x2001;
4148         }
4149         sendf(appl,_FACILITY_R|CONFIRM,Id,Number,"wws",Info,3,SSparms);
4150         break;
4151
4152       case _INFO_R:
4153         dbug(1,dprintf("InfoRC=0x%x",rc));
4154         if(rc!=OK) Info=_WRONG_STATE;
4155         sendf(appl,_INFO_R|CONFIRM,Id,Number,"w",Info);
4156         break;
4157
4158       case _CONNECT_R:
4159         dbug(1,dprintf("Connect_R=0x%x/0x%x/0x%x/0x%x",req,rc,global_req,nl_rc));
4160         if (plci->State == INC_DIS_PENDING)
4161           break;
4162         if(plci->Sig.Id!=0xff)
4163         {
4164           if (((global_req == ASSIGN) && (rc != ASSIGN_OK))
4165            || (!nl_rc && (req == CALL_REQ) && (rc != OK)))
4166           {
4167             dbug(1,dprintf("No more IDs/Call_Req failed"));
4168             sendf(appl,_CONNECT_R|CONFIRM,Id&0xffL,Number,"w",_OUT_OF_PLCI);
4169             plci_remove(plci);
4170             plci->State = IDLE;
4171             break;
4172           }
4173           if(plci->State!=LOCAL_CONNECT)plci->State = OUTG_CON_PENDING;
4174           sendf(appl,_CONNECT_R|CONFIRM,Id,Number,"w",0);
4175         }
4176         else /* D-ch activation */
4177         {
4178           if (rc != ASSIGN_OK)
4179           {
4180             dbug(1,dprintf("No more IDs/X.25 Call_Req failed"));
4181             sendf(appl,_CONNECT_R|CONFIRM,Id&0xffL,Number,"w",_OUT_OF_PLCI);
4182             plci_remove(plci);
4183             plci->State = IDLE;
4184             break;
4185           }
4186           sendf(appl,_CONNECT_R|CONFIRM,Id,Number,"w",0);
4187           sendf(plci->appl,_CONNECT_ACTIVE_I,Id,0,"sss","","","");
4188           plci->State = INC_ACT_PENDING;
4189         }
4190         break;
4191
4192       case _CONNECT_I|RESPONSE:
4193         if (plci->State != INC_DIS_PENDING)
4194           plci->State = INC_CON_ACCEPT;
4195         break;
4196
4197       case _DISCONNECT_R:
4198         if (plci->State == INC_DIS_PENDING)
4199           break;
4200         if(plci->Sig.Id!=0xff)
4201         {
4202           plci->State = OUTG_DIS_PENDING;
4203           sendf(appl,_DISCONNECT_R|CONFIRM,Id,Number,"w",0);
4204         }
4205         break;
4206
4207       case SUSPEND_REQ:
4208         break;
4209
4210       case RESUME_REQ:
4211         break;
4212
4213       case _CONNECT_B3_R:
4214         if(rc!=OK)
4215         {
4216           sendf(appl,_CONNECT_B3_R|CONFIRM,Id,Number,"w",_WRONG_IDENTIFIER);
4217           break;
4218         }
4219         ncci = get_ncci (plci, ch, 0);
4220         Id = (Id & 0xffff) | (((dword) ncci) << 16);
4221         plci->channels++;
4222         if(req==N_RESET)
4223         {
4224           a->ncci_state[ncci] = INC_ACT_PENDING;
4225           sendf(appl,_CONNECT_B3_R|CONFIRM,Id,Number,"w",0);
4226           sendf(appl,_CONNECT_B3_ACTIVE_I,Id,0,"s","");
4227         }
4228         else
4229         {
4230           a->ncci_state[ncci] = OUTG_CON_PENDING;
4231           sendf(appl,_CONNECT_B3_R|CONFIRM,Id,Number,"w",0);
4232         }
4233         break;
4234
4235       case _CONNECT_B3_I|RESPONSE:
4236         break;
4237
4238       case _RESET_B3_R:
4239 /*        sendf(appl,_RESET_B3_R|CONFIRM,Id,Number,"w",0);*/
4240         break;
4241
4242       case _DISCONNECT_B3_R:
4243         sendf(appl,_DISCONNECT_B3_R|CONFIRM,Id,Number,"w",0);
4244         break;
4245
4246       case _MANUFACTURER_R:
4247         break;
4248
4249       case PERM_LIST_REQ:
4250         if(rc!=OK)
4251         {
4252           Info = _WRONG_IDENTIFIER;
4253           sendf(plci->appl,_CONNECT_R|CONFIRM,Id,Number,"w",Info);
4254           plci_remove(plci);
4255         }
4256         else
4257           sendf(plci->appl,_CONNECT_R|CONFIRM,Id,Number,"w",Info);
4258         break;
4259
4260       default:
4261         break;
4262       }
4263       plci->command = 0;
4264     }
4265     else if (plci->internal_command)
4266     {
4267       switch(plci->internal_command)
4268       {
4269       case BLOCK_PLCI:
4270         return;
4271
4272       case GET_MWI_STATE:
4273         if(rc==OK) /* command supported, wait for indication */
4274         {
4275           return;
4276         }
4277         plci_remove(plci);
4278         break;
4279
4280         /* Get Supported Services */
4281       case GETSERV_REQ_PEND:
4282         if(rc==OK) /* command supported, wait for indication */
4283         {
4284           break;
4285         }
4286         PUT_DWORD(&SSstruct[6], MASK_TERMINAL_PORTABILITY);
4287         sendf(appl, _FACILITY_R|CONFIRM, Id, Number, "wws",0,3,SSstruct);
4288         plci_remove(plci);
4289         break;
4290
4291       case INTERR_DIVERSION_REQ_PEND:      /* Interrogate Parameters        */
4292       case INTERR_NUMBERS_REQ_PEND:
4293       case CF_START_PEND:                  /* Call Forwarding Start pending */
4294       case CF_STOP_PEND:                   /* Call Forwarding Stop pending  */
4295       case CCBS_REQUEST_REQ_PEND:
4296       case CCBS_DEACTIVATE_REQ_PEND:
4297       case CCBS_INTERROGATE_REQ_PEND:
4298         switch(plci->internal_command)
4299         {
4300           case INTERR_DIVERSION_REQ_PEND:
4301             SSparms[1] = S_INTERROGATE_DIVERSION;
4302             break;
4303           case INTERR_NUMBERS_REQ_PEND:
4304             SSparms[1] = S_INTERROGATE_NUMBERS;
4305             break;
4306           case CF_START_PEND:
4307             SSparms[1] = S_CALL_FORWARDING_START;
4308             break;
4309           case CF_STOP_PEND:
4310             SSparms[1] = S_CALL_FORWARDING_STOP;
4311             break;
4312           case CCBS_REQUEST_REQ_PEND:
4313             SSparms[1] = S_CCBS_REQUEST;
4314             break;
4315           case CCBS_DEACTIVATE_REQ_PEND:
4316             SSparms[1] = S_CCBS_DEACTIVATE;
4317             break;
4318           case CCBS_INTERROGATE_REQ_PEND:
4319             SSparms[1] = S_CCBS_INTERROGATE;
4320             break;
4321         }
4322         if(global_req==ASSIGN)
4323         {
4324           dbug(1,dprintf("AssignDiversion_RC=0x%x/0x%x",req,rc));
4325           return;
4326         }
4327         if(!plci->appl) break;
4328         if(rc==ISDN_GUARD_REJ)
4329         {
4330           Info = _CAPI_GUARD_ERROR;
4331         }
4332         else if(rc!=OK)
4333         {
4334           Info = _SUPPLEMENTARY_SERVICE_NOT_SUPPORTED;
4335         }
4336         sendf(plci->appl,_FACILITY_R|CONFIRM,Id&0x7,
4337               plci->number,"wws",Info,(word)3,SSparms);
4338         if(Info) plci_remove(plci);
4339         break;
4340
4341         /* 3pty conference pending */
4342       case PTY_REQ_PEND:
4343         if(!plci->relatedPTYPLCI) break;
4344         rplci = plci->relatedPTYPLCI;
4345         SSparms[1] = plci->ptyState;
4346         rId = ((word)rplci->Id<<8)|rplci->adapter->Id;
4347         if(rplci->tel) rId|=EXT_CONTROLLER;
4348         if(rc!=OK)
4349         {
4350           Info = 0x300E; /* not supported */
4351           plci->relatedPTYPLCI = NULL;
4352           plci->ptyState = 0;
4353         }
4354         sendf(rplci->appl,
4355               _FACILITY_R|CONFIRM,
4356               rId,
4357               plci->number,
4358               "wws",Info,(word)3,SSparms);
4359         break;
4360
4361         /* Explicit Call Transfer pending */
4362       case ECT_REQ_PEND:
4363         dbug(1,dprintf("ECT_RC=0x%x/0x%x",req,rc));
4364         if(!plci->relatedPTYPLCI) break;
4365         rplci = plci->relatedPTYPLCI;
4366         SSparms[1] = S_ECT;
4367         rId = ((word)rplci->Id<<8)|rplci->adapter->Id;
4368         if(rplci->tel) rId|=EXT_CONTROLLER;
4369         if(rc!=OK)
4370         {
4371           Info = 0x300E; /* not supported */
4372           plci->relatedPTYPLCI = NULL;
4373           plci->ptyState = 0;
4374         }
4375         sendf(rplci->appl,
4376               _FACILITY_R|CONFIRM,
4377               rId,
4378               plci->number,
4379               "wws",Info,(word)3,SSparms);
4380         break;
4381
4382       case _MANUFACTURER_R:
4383         dbug(1,dprintf("_Manufacturer_R=0x%x/0x%x",req,rc));
4384         if ((global_req == ASSIGN) && (rc != ASSIGN_OK))
4385         {
4386           dbug(1,dprintf("No more IDs"));
4387           sendf(appl,_MANUFACTURER_R|CONFIRM,Id,Number,"dww",_DI_MANU_ID,_MANUFACTURER_R,_OUT_OF_PLCI);
4388           plci_remove(plci);  /* after codec init, internal codec commands pending */
4389         }
4390         break;
4391
4392       case _CONNECT_R:
4393         dbug(1,dprintf("_Connect_R=0x%x/0x%x",req,rc));
4394         if ((global_req == ASSIGN) && (rc != ASSIGN_OK))
4395         {
4396           dbug(1,dprintf("No more IDs"));
4397           sendf(appl,_CONNECT_R|CONFIRM,Id&0xffL,Number,"w",_OUT_OF_PLCI);
4398           plci_remove(plci);  /* after codec init, internal codec commands pending */
4399         }
4400         break;
4401
4402       case PERM_COD_HOOK:                     /* finished with Hook_Ind */
4403         return;
4404
4405       case PERM_COD_CALL:
4406         dbug(1,dprintf("***Codec Connect_Pending A, Rc = 0x%x",rc));
4407         plci->internal_command = PERM_COD_CONN_PEND;
4408         return;
4409
4410       case PERM_COD_ASSIGN:
4411         dbug(1,dprintf("***Codec Assign A, Rc = 0x%x",rc));
4412         if(rc!=ASSIGN_OK) break;
4413         sig_req(plci,CALL_REQ,0);
4414         send_req(plci);
4415         plci->internal_command = PERM_COD_CALL;
4416         return;
4417
4418         /* Null Call Reference Request pending */
4419       case C_NCR_FAC_REQ:
4420         dbug(1,dprintf("NCR_FAC=0x%x/0x%x",req,rc));
4421         if(global_req==ASSIGN)
4422         {
4423           if(rc==ASSIGN_OK)
4424           {
4425             return;
4426           }
4427           else
4428           {
4429             sendf(appl,_INFO_R|CONFIRM,Id&0xf,Number,"w",_WRONG_STATE);
4430             appl->NullCREnable = false;
4431             plci_remove(plci);
4432           }
4433         }
4434         else if(req==NCR_FACILITY)
4435         {
4436           if(rc==OK)
4437           {
4438             sendf(appl,_INFO_R|CONFIRM,Id&0xf,Number,"w",0);
4439           }
4440           else
4441           {
4442             sendf(appl,_INFO_R|CONFIRM,Id&0xf,Number,"w",_WRONG_STATE);
4443             appl->NullCREnable = false;
4444           }
4445           plci_remove(plci);
4446         }
4447         break;
4448
4449       case HOOK_ON_REQ:
4450         if(plci->channels)
4451         {
4452           if(a->ncci_state[ncci]==CONNECTED)
4453           {
4454             a->ncci_state[ncci] = OUTG_DIS_PENDING;
4455             cleanup_ncci_data (plci, ncci);
4456             nl_req_ncci(plci,N_DISC,(byte)ncci);
4457           }
4458           break;
4459         }
4460         break;
4461
4462       case HOOK_OFF_REQ:
4463         if (plci->State == INC_DIS_PENDING)
4464           break;
4465         sig_req(plci,CALL_REQ,0);
4466         send_req(plci);
4467         plci->State=OUTG_CON_PENDING;
4468         break;
4469
4470
4471       case MWI_ACTIVATE_REQ_PEND:
4472       case MWI_DEACTIVATE_REQ_PEND:
4473         if(global_req == ASSIGN && rc==ASSIGN_OK)
4474         {
4475           dbug(1,dprintf("MWI_REQ assigned"));
4476           return;
4477         }
4478         else if(rc!=OK)
4479         {
4480           if(rc==WRONG_IE)
4481           {
4482             Info = 0x2007; /* Illegal message parameter coding */
4483             dbug(1,dprintf("MWI_REQ invalid parameter"));
4484           }
4485           else
4486           {
4487             Info = 0x300B; /* not supported */
4488             dbug(1,dprintf("MWI_REQ not supported"));
4489           }
4490           /* 0x3010: Request not allowed in this state */
4491           PUT_WORD(&SSparms[4],0x300E); /* SS not supported */
4492
4493         }
4494         if(plci->internal_command==MWI_ACTIVATE_REQ_PEND)
4495         {
4496           PUT_WORD(&SSparms[1],S_MWI_ACTIVATE);
4497         }
4498         else PUT_WORD(&SSparms[1],S_MWI_DEACTIVATE);
4499
4500         if(plci->cr_enquiry)
4501         {
4502           sendf(plci->appl,
4503                 _FACILITY_R|CONFIRM,
4504                 Id&0xf,
4505                 plci->number,
4506                 "wws",Info,(word)3,SSparms);
4507           if(rc!=OK) plci_remove(plci);
4508         }
4509         else
4510         {
4511           sendf(plci->appl,
4512                 _FACILITY_R|CONFIRM,
4513                 Id,
4514                 plci->number,
4515                 "wws",Info,(word)3,SSparms);
4516         }
4517         break;
4518
4519       case CONF_BEGIN_REQ_PEND:
4520       case CONF_ADD_REQ_PEND:
4521       case CONF_SPLIT_REQ_PEND:
4522       case CONF_DROP_REQ_PEND:
4523       case CONF_ISOLATE_REQ_PEND:
4524       case CONF_REATTACH_REQ_PEND:
4525         dbug(1,dprintf("CONF_RC=0x%x/0x%x",req,rc));
4526         if((plci->internal_command==CONF_ADD_REQ_PEND)&&(!plci->relatedPTYPLCI)) break;
4527         rplci = plci;
4528         rId = Id;
4529         switch(plci->internal_command)
4530         {
4531           case CONF_BEGIN_REQ_PEND:
4532             SSparms[1] = S_CONF_BEGIN;
4533             break;
4534           case CONF_ADD_REQ_PEND:
4535             SSparms[1] = S_CONF_ADD;
4536             rplci = plci->relatedPTYPLCI;
4537             rId = ((word)rplci->Id<<8)|rplci->adapter->Id;
4538             break;
4539           case CONF_SPLIT_REQ_PEND:
4540             SSparms[1] = S_CONF_SPLIT;
4541             break;
4542           case CONF_DROP_REQ_PEND:
4543             SSparms[1] = S_CONF_DROP;
4544             break;
4545           case CONF_ISOLATE_REQ_PEND:
4546             SSparms[1] = S_CONF_ISOLATE;
4547             break;
4548           case CONF_REATTACH_REQ_PEND:
4549             SSparms[1] = S_CONF_REATTACH;
4550             break;
4551         }
4552
4553         if(rc!=OK)
4554         {
4555           Info = 0x300E; /* not supported */
4556           plci->relatedPTYPLCI = NULL;
4557           plci->ptyState = 0;
4558         }
4559         sendf(rplci->appl,
4560               _FACILITY_R|CONFIRM,
4561               rId,
4562               plci->number,
4563               "wws",Info,(word)3,SSparms);
4564         break;
4565
4566       case VSWITCH_REQ_PEND:
4567         if(rc!=OK)
4568         {
4569           if(plci->relatedPTYPLCI)
4570           {
4571             plci->relatedPTYPLCI->vswitchstate=0;
4572             plci->relatedPTYPLCI->vsprot=0;
4573             plci->relatedPTYPLCI->vsprotdialect=0;
4574           }
4575           plci->vswitchstate=0;
4576           plci->vsprot=0;
4577           plci->vsprotdialect=0;
4578         }
4579         else
4580         {
4581           if(plci->relatedPTYPLCI &&
4582              plci->vswitchstate==1 &&
4583              plci->relatedPTYPLCI->vswitchstate==3) /* join complete */
4584             plci->vswitchstate=3;
4585         }
4586         break;
4587
4588   /* Call Deflection Request pending (SSCT) */
4589       case CD_REQ_PEND:
4590         SSparms[1] = S_CALL_DEFLECTION;
4591         if(rc!=OK)
4592         {
4593           Info = 0x300E; /* not supported */
4594           plci->appl->CDEnable = 0;
4595         }
4596         sendf(plci->appl,_FACILITY_R|CONFIRM,Id,
4597           plci->number,"wws",Info,(word)3,SSparms);
4598         break;
4599
4600       case RTP_CONNECT_B3_REQ_COMMAND_2:
4601         if (rc == OK)
4602         {
4603           ncci = get_ncci (plci, ch, 0);
4604           Id = (Id & 0xffff) | (((dword) ncci) << 16);
4605           plci->channels++;
4606           a->ncci_state[ncci] = OUTG_CON_PENDING;
4607         }
4608
4609       default:
4610         if (plci->internal_command_queue[0])
4611         {
4612           (*(plci->internal_command_queue[0]))(Id, plci, rc);
4613           if (plci->internal_command)
4614             return;
4615         }
4616         break;
4617       }
4618       next_internal_command (Id, plci);
4619     }
4620   }
4621   else /* appl==0 */
4622   {
4623     Id = ((word)plci->Id<<8)|plci->adapter->Id;
4624     if(plci->tel) Id|=EXT_CONTROLLER;
4625
4626     switch(plci->internal_command)
4627     {
4628     case BLOCK_PLCI:
4629       return;
4630
4631     case START_L1_SIG_ASSIGN_PEND:
4632     case REM_L1_SIG_ASSIGN_PEND:
4633       if(global_req == ASSIGN)
4634       {
4635         break;
4636       }
4637       else
4638       {
4639         dbug(1,dprintf("***L1 Req rem PLCI"));
4640         plci->internal_command = 0;
4641         sig_req(plci,REMOVE,0);
4642         send_req(plci);
4643       }
4644       break;
4645
4646       /* Call Deflection Request pending, just no appl ptr assigned */
4647     case CD_REQ_PEND:
4648       SSparms[1] = S_CALL_DEFLECTION;
4649       if(rc!=OK)
4650       {
4651         Info = 0x300E; /* not supported */
4652       }
4653       for(i=0; i<max_appl; i++)
4654       {
4655         if(application[i].CDEnable)
4656         {
4657           if(!application[i].Id) application[i].CDEnable = 0;
4658           else
4659           {
4660             sendf(&application[i],_FACILITY_R|CONFIRM,Id,
4661                   plci->number,"wws",Info,(word)3,SSparms);
4662             if(Info) application[i].CDEnable = 0;
4663           }
4664         }
4665       }
4666       plci->internal_command = 0;
4667       break;
4668
4669     case PERM_COD_HOOK:                   /* finished with Hook_Ind */
4670       return;
4671
4672     case PERM_COD_CALL:
4673       plci->internal_command = PERM_COD_CONN_PEND;
4674       dbug(1,dprintf("***Codec Connect_Pending, Rc = 0x%x",rc));
4675       return;
4676
4677     case PERM_COD_ASSIGN:
4678       dbug(1,dprintf("***Codec Assign, Rc = 0x%x",rc));
4679       plci->internal_command = 0;
4680       if(rc!=ASSIGN_OK) break;
4681       plci->internal_command = PERM_COD_CALL;
4682       sig_req(plci,CALL_REQ,0);
4683       send_req(plci);
4684       return;
4685
4686     case LISTEN_SIG_ASSIGN_PEND:
4687       if(rc == ASSIGN_OK)
4688       {
4689         plci->internal_command = 0;
4690         dbug(1,dprintf("ListenCheck, new SIG_ID = 0x%x",plci->Sig.Id));
4691         add_p(plci,ESC,"\x02\x18\x00");             /* support call waiting */
4692         sig_req(plci,INDICATE_REQ,0);
4693         send_req(plci);
4694       }
4695       else
4696       {
4697         dbug(1,dprintf("ListenCheck failed (assignRc=0x%x)",rc));
4698         a->listen_active--;
4699         plci_remove(plci);
4700         plci->State = IDLE;
4701       }
4702       break;
4703
4704     case USELAW_REQ:
4705       if(global_req == ASSIGN)
4706       {
4707         if (rc==ASSIGN_OK)
4708       {
4709         sig_req(plci,LAW_REQ,0);
4710         send_req(plci);
4711         dbug(1,dprintf("Auto-Law assigned"));
4712         }
4713         else
4714         {
4715           dbug(1,dprintf("Auto-Law assign failed"));
4716           a->automatic_law = 3;
4717           plci->internal_command = 0;
4718           a->automatic_lawPLCI = NULL;
4719         }
4720         break;
4721       }
4722       else if(req == LAW_REQ && rc==OK)
4723       {
4724         dbug(1,dprintf("Auto-Law initiated"));
4725         a->automatic_law = 2;
4726         plci->internal_command = 0;
4727       }
4728       else
4729       {
4730         dbug(1,dprintf("Auto-Law not supported"));
4731         a->automatic_law = 3;
4732         plci->internal_command = 0;
4733         sig_req(plci,REMOVE,0);
4734         send_req(plci);
4735         a->automatic_lawPLCI = NULL;
4736       }
4737       break;
4738     }
4739     plci_remove_check(plci);
4740   }
4741 }
4742
4743 void data_rc(PLCI   * plci, byte ch)
4744 {
4745   dword Id;
4746   DIVA_CAPI_ADAPTER   * a;
4747   NCCI   *ncci_ptr;
4748   DATA_B3_DESC   *data;
4749   word ncci;
4750
4751   if (plci->appl)
4752   {
4753     TransmitBufferFree (plci->appl, plci->data_sent_ptr);
4754     a = plci->adapter;
4755     ncci = a->ch_ncci[ch];
4756     if (ncci && (a->ncci_plci[ncci] == plci->Id))
4757     {
4758       ncci_ptr = &(a->ncci[ncci]);
4759       dbug(1,dprintf("data_out=%d, data_pending=%d",ncci_ptr->data_out,ncci_ptr->data_pending));
4760       if (ncci_ptr->data_pending)
4761       {
4762         data = &(ncci_ptr->DBuffer[ncci_ptr->data_out]);
4763         if (!(data->Flags &4) && a->ncci_state[ncci])
4764         {
4765           Id = (((dword)ncci)<<16)|((word)plci->Id<<8)|a->Id;
4766           if(plci->tel) Id|=EXT_CONTROLLER;
4767           sendf(plci->appl,_DATA_B3_R|CONFIRM,Id,data->Number,
4768                 "ww",data->Handle,0);
4769         }
4770         (ncci_ptr->data_out)++;
4771         if (ncci_ptr->data_out == MAX_DATA_B3)
4772           ncci_ptr->data_out = 0;
4773         (ncci_ptr->data_pending)--;
4774       }
4775     }
4776   }
4777 }
4778
4779 void data_ack(PLCI   * plci, byte ch)
4780 {
4781   dword Id;
4782   DIVA_CAPI_ADAPTER   * a;
4783   NCCI   *ncci_ptr;
4784   word ncci;
4785
4786   a = plci->adapter;
4787   ncci = a->ch_ncci[ch];
4788   ncci_ptr = &(a->ncci[ncci]);
4789   if (ncci_ptr->data_ack_pending)
4790   {
4791     if (a->ncci_state[ncci] && (a->ncci_plci[ncci] == plci->Id))
4792     {
4793       Id = (((dword)ncci)<<16)|((word)plci->Id<<8)|a->Id;
4794       if(plci->tel) Id|=EXT_CONTROLLER;
4795       sendf(plci->appl,_DATA_B3_R|CONFIRM,Id,ncci_ptr->DataAck[ncci_ptr->data_ack_out].Number,
4796             "ww",ncci_ptr->DataAck[ncci_ptr->data_ack_out].Handle,0);
4797     }
4798     (ncci_ptr->data_ack_out)++;
4799     if (ncci_ptr->data_ack_out == MAX_DATA_ACK)
4800       ncci_ptr->data_ack_out = 0;
4801     (ncci_ptr->data_ack_pending)--;
4802   }
4803 }
4804
4805 void sig_ind(PLCI   * plci)
4806 {
4807   dword x_Id;
4808   dword Id;
4809   dword rId;
4810   word Number = 0;
4811   word i;
4812   word cip;
4813   dword cip_mask;
4814   byte   *ie;
4815   DIVA_CAPI_ADAPTER   * a;
4816     API_PARSE saved_parms[MAX_MSG_PARMS+1];
4817 #define MAXPARMSIDS 31
4818     byte   * parms[MAXPARMSIDS];
4819     byte   * add_i[4];
4820     byte   * multi_fac_parms[MAX_MULTI_IE];
4821     byte   * multi_pi_parms [MAX_MULTI_IE];
4822     byte   * multi_ssext_parms [MAX_MULTI_IE];
4823     byte   * multi_CiPN_parms [MAX_MULTI_IE];
4824
4825     byte   * multi_vswitch_parms [MAX_MULTI_IE];
4826
4827   byte ai_len;
4828     byte   *esc_chi = "";
4829     byte   *esc_law = "";
4830     byte   *pty_cai = "";
4831     byte   *esc_cr  = "";
4832     byte   *esc_profile = "";
4833
4834     byte facility[256];
4835   PLCI   * tplci = NULL;
4836   byte chi[] = "\x02\x18\x01";
4837   byte voice_cai[]  = "\x06\x14\x00\x00\x00\x00\x08";
4838     byte resume_cau[] = "\x05\x05\x00\x02\x00\x00";
4839   /* ESC_MSGTYPE must be the last but one message, a new IE has to be */
4840   /* included before the ESC_MSGTYPE and MAXPARMSIDS has to be incremented */
4841   /* SMSG is situated at the end because its 0 (for compatibility reasons */
4842   /* (see Info_Mask Bit 4, first IE. then the message type)           */
4843     word parms_id[] =
4844          {MAXPARMSIDS, CPN, 0xff, DSA, OSA, BC, LLC, HLC, ESC_CAUSE, DSP, DT, CHA,
4845           UUI, CONG_RR, CONG_RNR, ESC_CHI, KEY, CHI, CAU, ESC_LAW,
4846           RDN, RDX, CONN_NR, RIN, NI, CAI, ESC_CR,
4847           CST, ESC_PROFILE, 0xff, ESC_MSGTYPE, SMSG};
4848           /* 14 FTY repl by ESC_CHI */
4849           /* 18 PI  repl by ESC_LAW */
4850          /* removed OAD changed to 0xff for future use, OAD is multiIE now */
4851      word multi_fac_id[] = {1, FTY};
4852      word multi_pi_id[]  = {1, PI};
4853      word multi_CiPN_id[]  = {1, OAD};
4854      word multi_ssext_id[]  = {1, ESC_SSEXT};
4855
4856      word multi_vswitch_id[]  = {1, ESC_VSWITCH};
4857
4858   byte   * cau;
4859   word ncci;
4860     byte SS_Ind[] = "\x05\x02\x00\x02\x00\x00"; /* Hold_Ind struct*/
4861     byte CF_Ind[] = "\x09\x02\x00\x06\x00\x00\x00\x00\x00\x00";
4862     byte Interr_Err_Ind[] = "\x0a\x02\x00\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
4863     byte CONF_Ind[] = "\x09\x16\x00\x06\x00\x00\0x00\0x00\0x00\0x00";
4864   byte force_mt_info = false;
4865   byte dir;
4866   dword d;
4867   word w;
4868
4869   a = plci->adapter;
4870   Id = ((word)plci->Id<<8)|a->Id;
4871   PUT_WORD(&SS_Ind[4],0x0000);
4872
4873   if (plci->sig_remove_id)
4874   {
4875     plci->Sig.RNR = 2; /* discard */
4876     dbug(1,dprintf("SIG discard while remove pending"));
4877     return;
4878   }
4879   if(plci->tel && plci->SuppState!=CALL_HELD) Id|=EXT_CONTROLLER;
4880   dbug(1,dprintf("SigInd-Id=%08lx,plci=%x,tel=%x,state=0x%x,channels=%d,Discflowcl=%d",
4881     Id,plci->Id,plci->tel,plci->State,plci->channels,plci->hangup_flow_ctrl_timer));
4882   if(plci->Sig.Ind==CALL_HOLD_ACK && plci->channels)
4883   {
4884     plci->Sig.RNR = 1;
4885     return;
4886   }
4887   if(plci->Sig.Ind==HANGUP && plci->channels)
4888   {
4889     plci->Sig.RNR = 1;
4890     plci->hangup_flow_ctrl_timer++;
4891     /* recover the network layer after timeout */
4892     if(plci->hangup_flow_ctrl_timer==100)
4893     {
4894       dbug(1,dprintf("Exceptional disc"));
4895       plci->Sig.RNR = 0;
4896       plci->hangup_flow_ctrl_timer = 0;
4897       for (ncci = 1; ncci < MAX_NCCI+1; ncci++)
4898       {
4899         if (a->ncci_plci[ncci] == plci->Id)
4900         {
4901           cleanup_ncci_data (plci, ncci);
4902           if(plci->channels)plci->channels--;
4903           if (plci->appl)
4904             sendf(plci->appl,_DISCONNECT_B3_I, (((dword) ncci) << 16) | Id,0,"ws",0,"");
4905         }
4906       }
4907       if (plci->appl)
4908         sendf(plci->appl, _DISCONNECT_I, Id, 0, "w", 0);
4909       plci_remove(plci);
4910       plci->State=IDLE;
4911     }
4912     return;
4913   }
4914
4915   /* do first parse the info with no OAD in, because OAD will be converted */
4916   /* first the multiple facility IE, then mult. progress ind.              */
4917   /* then the parameters for the info_ind + conn_ind                       */
4918   IndParse(plci,multi_fac_id,multi_fac_parms,MAX_MULTI_IE);
4919   IndParse(plci,multi_pi_id,multi_pi_parms,MAX_MULTI_IE);
4920   IndParse(plci,multi_ssext_id,multi_ssext_parms,MAX_MULTI_IE);
4921
4922   IndParse(plci,multi_vswitch_id,multi_vswitch_parms,MAX_MULTI_IE);
4923
4924   IndParse(plci,parms_id,parms,0);
4925   IndParse(plci,multi_CiPN_id,multi_CiPN_parms,MAX_MULTI_IE);
4926   esc_chi  = parms[14];
4927   esc_law  = parms[18];
4928   pty_cai  = parms[24];
4929   esc_cr   = parms[25];
4930   esc_profile = parms[27];
4931   if(esc_cr[0] && plci)
4932   {
4933     if(plci->cr_enquiry && plci->appl)
4934     {
4935       plci->cr_enquiry = false;
4936       /* d = MANU_ID            */
4937       /* w = m_command          */
4938       /* b = total length       */
4939       /* b = indication type    */
4940       /* b = length of all IEs  */
4941       /* b = IE1                */
4942       /* S = IE1 length + cont. */
4943       /* b = IE2                */
4944       /* S = IE2 lenght + cont. */
4945       sendf(plci->appl,
4946         _MANUFACTURER_I,
4947         Id,
4948         0,
4949         "dwbbbbSbS",_DI_MANU_ID,plci->m_command,
4950         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);
4951     }
4952   }
4953   /* create the additional info structure                                  */
4954   add_i[1] = parms[15]; /* KEY of additional info */
4955   add_i[2] = parms[11]; /* UUI of additional info */
4956   ai_len = AddInfo(add_i,multi_fac_parms, esc_chi, facility);
4957
4958   /* the ESC_LAW indicates if u-Law or a-Law is actually used by the card  */
4959   /* indication returns by the card if requested by the function           */
4960   /* AutomaticLaw() after driver init                                      */
4961   if (a->automatic_law<4)
4962   {
4963     if(esc_law[0]){
4964       if(esc_law[2]){
4965         dbug(0,dprintf("u-Law selected"));
4966         a->u_law = 1;
4967       }
4968       else {
4969         dbug(0,dprintf("a-Law selected"));
4970         a->u_law = 0;
4971       }
4972       a->automatic_law = 4;
4973       if(plci==a->automatic_lawPLCI) {
4974         plci->internal_command = 0;
4975         sig_req(plci,REMOVE,0);
4976         send_req(plci);
4977         a->automatic_lawPLCI = NULL;
4978       }
4979     }
4980     if (esc_profile[0])
4981     {
4982       dbug (1, dprintf ("[%06x] CardProfile: %lx %lx %lx %lx %lx",
4983         UnMapController (a->Id), GET_DWORD (&esc_profile[6]),
4984         GET_DWORD (&esc_profile[10]), GET_DWORD (&esc_profile[14]),
4985         GET_DWORD (&esc_profile[18]), GET_DWORD (&esc_profile[46])));
4986
4987       a->profile.Global_Options &= 0x000000ffL;
4988       a->profile.B1_Protocols &= 0x000003ffL;
4989       a->profile.B2_Protocols &= 0x00001fdfL;
4990       a->profile.B3_Protocols &= 0x000000b7L;
4991
4992       a->profile.Global_Options &= GET_DWORD (&esc_profile[6]) |
4993         GL_BCHANNEL_OPERATION_SUPPORTED;
4994       a->profile.B1_Protocols &= GET_DWORD (&esc_profile[10]);
4995       a->profile.B2_Protocols &= GET_DWORD (&esc_profile[14]);
4996       a->profile.B3_Protocols &= GET_DWORD (&esc_profile[18]);
4997       a->manufacturer_features = GET_DWORD (&esc_profile[46]);
4998       a->man_profile.private_options = 0;
4999
5000       if (a->manufacturer_features & MANUFACTURER_FEATURE_ECHO_CANCELLER)
5001       {
5002         a->man_profile.private_options |= 1L << PRIVATE_ECHO_CANCELLER;
5003         a->profile.Global_Options |= GL_ECHO_CANCELLER_SUPPORTED;
5004       }
5005
5006
5007       if (a->manufacturer_features & MANUFACTURER_FEATURE_RTP)
5008         a->man_profile.private_options |= 1L << PRIVATE_RTP;
5009       a->man_profile.rtp_primary_payloads = GET_DWORD (&esc_profile[50]);
5010       a->man_profile.rtp_additional_payloads = GET_DWORD (&esc_profile[54]);
5011
5012
5013       if (a->manufacturer_features & MANUFACTURER_FEATURE_T38)
5014         a->man_profile.private_options |= 1L << PRIVATE_T38;
5015
5016
5017       if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_SUB_SEP_PWD)
5018         a->man_profile.private_options |= 1L << PRIVATE_FAX_SUB_SEP_PWD;
5019
5020
5021       if (a->manufacturer_features & MANUFACTURER_FEATURE_V18)
5022         a->man_profile.private_options |= 1L << PRIVATE_V18;
5023
5024
5025       if (a->manufacturer_features & MANUFACTURER_FEATURE_DTMF_TONE)
5026         a->man_profile.private_options |= 1L << PRIVATE_DTMF_TONE;
5027
5028
5029       if (a->manufacturer_features & MANUFACTURER_FEATURE_PIAFS)
5030         a->man_profile.private_options |= 1L << PRIVATE_PIAFS;
5031
5032
5033       if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS)
5034         a->man_profile.private_options |= 1L << PRIVATE_FAX_PAPER_FORMATS;
5035
5036
5037       if (a->manufacturer_features & MANUFACTURER_FEATURE_VOWN)
5038         a->man_profile.private_options |= 1L << PRIVATE_VOWN;
5039
5040
5041       if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_NONSTANDARD)
5042         a->man_profile.private_options |= 1L << PRIVATE_FAX_NONSTANDARD;
5043
5044     }
5045     else
5046     {
5047       a->profile.Global_Options &= 0x0000007fL;
5048       a->profile.B1_Protocols &= 0x000003dfL;
5049       a->profile.B2_Protocols &= 0x00001adfL;
5050       a->profile.B3_Protocols &= 0x000000b7L;
5051       a->manufacturer_features &= MANUFACTURER_FEATURE_HARDDTMF;
5052     }
5053     if (a->manufacturer_features & (MANUFACTURER_FEATURE_HARDDTMF |
5054       MANUFACTURER_FEATURE_SOFTDTMF_SEND | MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE))
5055     {
5056       a->profile.Global_Options |= GL_DTMF_SUPPORTED;
5057     }
5058     a->manufacturer_features &= ~MANUFACTURER_FEATURE_OOB_CHANNEL;
5059     dbug (1, dprintf ("[%06x] Profile: %lx %lx %lx %lx %lx",
5060       UnMapController (a->Id), a->profile.Global_Options,
5061       a->profile.B1_Protocols, a->profile.B2_Protocols,
5062       a->profile.B3_Protocols, a->manufacturer_features));
5063   }
5064   /* codec plci for the handset/hook state support is just an internal id  */
5065   if(plci!=a->AdvCodecPLCI)
5066   {
5067     force_mt_info =  SendMultiIE(plci,Id,multi_fac_parms, FTY, 0x20, 0);
5068     force_mt_info |= SendMultiIE(plci,Id,multi_pi_parms, PI, 0x210, 0);
5069     SendSSExtInd(NULL,plci,Id,multi_ssext_parms);
5070     SendInfo(plci,Id, parms, force_mt_info);
5071
5072     VSwitchReqInd(plci,Id,multi_vswitch_parms);
5073
5074   }
5075
5076   /* switch the codec to the b-channel                                     */
5077   if(esc_chi[0] && plci && !plci->SuppState){
5078     plci->b_channel = esc_chi[esc_chi[0]]&0x1f;
5079     mixer_set_bchannel_id_esc (plci, plci->b_channel);
5080     dbug(1,dprintf("storeChannel=0x%x",plci->b_channel));
5081     if(plci->tel==ADV_VOICE && plci->appl) {
5082       SetVoiceChannel(a->AdvCodecPLCI, esc_chi, a);
5083     }
5084   }
5085
5086   if(plci->appl) Number = plci->appl->Number++;
5087
5088   switch(plci->Sig.Ind) {
5089   /* Response to Get_Supported_Services request */
5090   case S_SUPPORTED:
5091     dbug(1,dprintf("S_Supported"));
5092     if(!plci->appl) break;
5093     if(pty_cai[0]==4)
5094     {
5095       PUT_DWORD(&CF_Ind[6],GET_DWORD(&pty_cai[1]) );
5096     }
5097     else
5098     {
5099       PUT_DWORD(&CF_Ind[6],MASK_TERMINAL_PORTABILITY | MASK_HOLD_RETRIEVE);
5100     }
5101     PUT_WORD (&CF_Ind[1], 0);
5102     PUT_WORD (&CF_Ind[4], 0);
5103     sendf(plci->appl,_FACILITY_R|CONFIRM,Id&0x7,plci->number, "wws",0,3,CF_Ind);
5104     plci_remove(plci);
5105     break;
5106
5107   /* Supplementary Service rejected */
5108   case S_SERVICE_REJ:
5109     dbug(1,dprintf("S_Reject=0x%x",pty_cai[5]));
5110     if(!pty_cai[0]) break;
5111     switch (pty_cai[5])
5112     {
5113     case ECT_EXECUTE:
5114     case THREE_PTY_END:
5115     case THREE_PTY_BEGIN:
5116       if(!plci->relatedPTYPLCI) break;
5117       tplci = plci->relatedPTYPLCI;
5118       rId = ( (word)tplci->Id<<8)|tplci->adapter->Id;
5119       if(tplci->tel) rId|=EXT_CONTROLLER;
5120       if(pty_cai[5]==ECT_EXECUTE)
5121       {
5122         PUT_WORD(&SS_Ind[1],S_ECT);
5123
5124         plci->vswitchstate=0;
5125         plci->relatedPTYPLCI->vswitchstate=0;
5126
5127       }
5128       else
5129       {
5130         PUT_WORD(&SS_Ind[1],pty_cai[5]+3);
5131       }
5132       if(pty_cai[2]!=0xff)
5133       {
5134         PUT_WORD(&SS_Ind[4],0x3600|(word)pty_cai[2]);
5135       }
5136       else
5137       {
5138         PUT_WORD(&SS_Ind[4],0x300E);
5139       }
5140       plci->relatedPTYPLCI = NULL;
5141       plci->ptyState = 0;
5142       sendf(tplci->appl,_FACILITY_I,rId,0,"ws",3, SS_Ind);
5143       break;
5144
5145     case CALL_DEFLECTION:
5146       if(pty_cai[2]!=0xff)
5147       {
5148         PUT_WORD(&SS_Ind[4],0x3600|(word)pty_cai[2]);
5149       }
5150       else
5151       {
5152         PUT_WORD(&SS_Ind[4],0x300E);
5153       }
5154       PUT_WORD(&SS_Ind[1],pty_cai[5]);
5155       for(i=0; i<max_appl; i++)
5156       {
5157         if(application[i].CDEnable)
5158         {
5159           if(application[i].Id) sendf(&application[i],_FACILITY_I,Id,0,"ws",3, SS_Ind);
5160           application[i].CDEnable = false;
5161         }
5162       }
5163       break;
5164
5165     case DEACTIVATION_DIVERSION:
5166     case ACTIVATION_DIVERSION:
5167     case DIVERSION_INTERROGATE_CFU:
5168     case DIVERSION_INTERROGATE_CFB:
5169     case DIVERSION_INTERROGATE_CFNR:
5170     case DIVERSION_INTERROGATE_NUM:
5171     case CCBS_REQUEST:
5172     case CCBS_DEACTIVATE:
5173     case CCBS_INTERROGATE:
5174       if(!plci->appl) break;
5175       if(pty_cai[2]!=0xff)
5176       {
5177         PUT_WORD(&Interr_Err_Ind[4],0x3600|(word)pty_cai[2]);
5178       }
5179       else
5180       {
5181         PUT_WORD(&Interr_Err_Ind[4],0x300E);
5182       }
5183       switch (pty_cai[5])
5184       {
5185         case DEACTIVATION_DIVERSION:
5186           dbug(1,dprintf("Deact_Div"));
5187           Interr_Err_Ind[0]=0x9;
5188           Interr_Err_Ind[3]=0x6;
5189           PUT_WORD(&Interr_Err_Ind[1],S_CALL_FORWARDING_STOP);
5190           break;
5191         case ACTIVATION_DIVERSION:
5192           dbug(1,dprintf("Act_Div"));
5193           Interr_Err_Ind[0]=0x9;
5194           Interr_Err_Ind[3]=0x6;
5195           PUT_WORD(&Interr_Err_Ind[1],S_CALL_FORWARDING_START);
5196           break;
5197         case DIVERSION_INTERROGATE_CFU:
5198         case DIVERSION_INTERROGATE_CFB:
5199         case DIVERSION_INTERROGATE_CFNR:
5200           dbug(1,dprintf("Interr_Div"));
5201           Interr_Err_Ind[0]=0xa;
5202           Interr_Err_Ind[3]=0x7;
5203           PUT_WORD(&Interr_Err_Ind[1],S_INTERROGATE_DIVERSION);
5204           break;
5205         case DIVERSION_INTERROGATE_NUM:
5206           dbug(1,dprintf("Interr_Num"));
5207           Interr_Err_Ind[0]=0xa;
5208           Interr_Err_Ind[3]=0x7;
5209           PUT_WORD(&Interr_Err_Ind[1],S_INTERROGATE_NUMBERS);
5210           break;
5211         case CCBS_REQUEST:
5212           dbug(1,dprintf("CCBS Request"));
5213           Interr_Err_Ind[0]=0xd;
5214           Interr_Err_Ind[3]=0xa;
5215           PUT_WORD(&Interr_Err_Ind[1],S_CCBS_REQUEST);
5216           break;
5217         case CCBS_DEACTIVATE:
5218           dbug(1,dprintf("CCBS Deactivate"));
5219           Interr_Err_Ind[0]=0x9;
5220           Interr_Err_Ind[3]=0x6;
5221           PUT_WORD(&Interr_Err_Ind[1],S_CCBS_DEACTIVATE);
5222           break;
5223         case CCBS_INTERROGATE:
5224           dbug(1,dprintf("CCBS Interrogate"));
5225           Interr_Err_Ind[0]=0xb;
5226           Interr_Err_Ind[3]=0x8;
5227           PUT_WORD(&Interr_Err_Ind[1],S_CCBS_INTERROGATE);
5228           break;
5229       }
5230       PUT_DWORD(&Interr_Err_Ind[6],plci->appl->S_Handle);
5231       sendf(plci->appl,_FACILITY_I,Id&0x7,0,"ws",3, Interr_Err_Ind);
5232       plci_remove(plci);
5233       break;
5234     case ACTIVATION_MWI:
5235     case DEACTIVATION_MWI:
5236       if(pty_cai[5]==ACTIVATION_MWI)
5237       {
5238         PUT_WORD(&SS_Ind[1],S_MWI_ACTIVATE);
5239       }
5240       else PUT_WORD(&SS_Ind[1],S_MWI_DEACTIVATE);
5241
5242       if(pty_cai[2]!=0xff)
5243       {
5244         PUT_WORD(&SS_Ind[4],0x3600|(word)pty_cai[2]);
5245       }
5246       else
5247       {
5248         PUT_WORD(&SS_Ind[4],0x300E);
5249       }
5250
5251       if(plci->cr_enquiry)
5252       {
5253         sendf(plci->appl,_FACILITY_I,Id&0xf,0,"ws",3, SS_Ind);
5254         plci_remove(plci);
5255       }
5256       else
5257       {
5258         sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, SS_Ind);
5259       }
5260       break;
5261     case CONF_ADD: /* ERROR */
5262     case CONF_BEGIN:
5263     case CONF_DROP:
5264     case CONF_ISOLATE:
5265     case CONF_REATTACH:
5266       CONF_Ind[0]=9;
5267       CONF_Ind[3]=6;
5268       switch(pty_cai[5])
5269       {
5270       case CONF_BEGIN:
5271           PUT_WORD(&CONF_Ind[1],S_CONF_BEGIN);
5272           plci->ptyState = 0;
5273           break;
5274       case CONF_DROP:
5275           CONF_Ind[0]=5;
5276           CONF_Ind[3]=2;
5277           PUT_WORD(&CONF_Ind[1],S_CONF_DROP);
5278           plci->ptyState = CONNECTED;
5279           break;
5280       case CONF_ISOLATE:
5281           CONF_Ind[0]=5;
5282           CONF_Ind[3]=2;
5283           PUT_WORD(&CONF_Ind[1],S_CONF_ISOLATE);
5284           plci->ptyState = CONNECTED;
5285           break;
5286       case CONF_REATTACH:
5287           CONF_Ind[0]=5;
5288           CONF_Ind[3]=2;
5289           PUT_WORD(&CONF_Ind[1],S_CONF_REATTACH);
5290           plci->ptyState = CONNECTED;
5291           break;
5292       case CONF_ADD:
5293           PUT_WORD(&CONF_Ind[1],S_CONF_ADD);
5294           plci->relatedPTYPLCI = NULL;
5295           tplci=plci->relatedPTYPLCI;
5296           if(tplci) tplci->ptyState = CONNECTED;
5297           plci->ptyState = CONNECTED;
5298           break;
5299       }
5300
5301       if(pty_cai[2]!=0xff)
5302       {
5303         PUT_WORD(&CONF_Ind[4],0x3600|(word)pty_cai[2]);
5304       }
5305       else
5306       {
5307         PUT_WORD(&CONF_Ind[4],0x3303); /* Time-out: network did not respond
5308                                             within the required time */
5309       }
5310
5311       PUT_DWORD(&CONF_Ind[6],0x0);
5312       sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, CONF_Ind);
5313       break;
5314     }
5315     break;
5316
5317   /* Supplementary Service indicates success */
5318   case S_SERVICE:
5319     dbug(1,dprintf("Service_Ind"));
5320     PUT_WORD (&CF_Ind[4], 0);
5321     switch (pty_cai[5])
5322     {
5323     case THREE_PTY_END:
5324     case THREE_PTY_BEGIN:
5325     case ECT_EXECUTE:
5326       if(!plci->relatedPTYPLCI) break;
5327       tplci = plci->relatedPTYPLCI;
5328       rId = ( (word)tplci->Id<<8)|tplci->adapter->Id;
5329       if(tplci->tel) rId|=EXT_CONTROLLER;
5330       if(pty_cai[5]==ECT_EXECUTE)
5331       {
5332         PUT_WORD(&SS_Ind[1],S_ECT);
5333
5334         if(plci->vswitchstate!=3)
5335         {
5336
5337         plci->ptyState = IDLE;
5338         plci->relatedPTYPLCI = NULL;
5339         plci->ptyState = 0;
5340
5341         }
5342
5343         dbug(1,dprintf("ECT OK"));
5344         sendf(tplci->appl,_FACILITY_I,rId,0,"ws",3, SS_Ind);
5345
5346
5347
5348       }
5349       else
5350       {
5351         switch (plci->ptyState)
5352         {
5353         case S_3PTY_BEGIN:
5354           plci->ptyState = CONNECTED;
5355           dbug(1,dprintf("3PTY ON"));
5356           break;
5357
5358         case S_3PTY_END:
5359           plci->ptyState = IDLE;
5360           plci->relatedPTYPLCI = NULL;
5361           plci->ptyState = 0;
5362           dbug(1,dprintf("3PTY OFF"));
5363           break;
5364         }
5365         PUT_WORD(&SS_Ind[1],pty_cai[5]+3);
5366         sendf(tplci->appl,_FACILITY_I,rId,0,"ws",3, SS_Ind);
5367       }
5368       break;
5369
5370     case CALL_DEFLECTION:
5371       PUT_WORD(&SS_Ind[1],pty_cai[5]);
5372       for(i=0; i<max_appl; i++)
5373       {
5374         if(application[i].CDEnable)
5375         {
5376           if(application[i].Id) sendf(&application[i],_FACILITY_I,Id,0,"ws",3, SS_Ind);
5377           application[i].CDEnable = false;
5378         }
5379       }
5380       break;
5381
5382     case DEACTIVATION_DIVERSION:
5383     case ACTIVATION_DIVERSION:
5384       if(!plci->appl) break;
5385       PUT_WORD(&CF_Ind[1],pty_cai[5]+2);
5386       PUT_DWORD(&CF_Ind[6],plci->appl->S_Handle);
5387       sendf(plci->appl,_FACILITY_I,Id&0x7,0,"ws",3, CF_Ind);
5388       plci_remove(plci);
5389       break;
5390
5391     case DIVERSION_INTERROGATE_CFU:
5392     case DIVERSION_INTERROGATE_CFB:
5393     case DIVERSION_INTERROGATE_CFNR:
5394     case DIVERSION_INTERROGATE_NUM:
5395     case CCBS_REQUEST:
5396     case CCBS_DEACTIVATE:
5397     case CCBS_INTERROGATE:
5398       if(!plci->appl) break;
5399       switch (pty_cai[5])
5400       {
5401         case DIVERSION_INTERROGATE_CFU:
5402         case DIVERSION_INTERROGATE_CFB:
5403         case DIVERSION_INTERROGATE_CFNR:
5404           dbug(1,dprintf("Interr_Div"));
5405           PUT_WORD(&pty_cai[1],S_INTERROGATE_DIVERSION);
5406           pty_cai[3]=pty_cai[0]-3; /* Supplementary Service-specific parameter len */
5407           break;
5408         case DIVERSION_INTERROGATE_NUM:
5409           dbug(1,dprintf("Interr_Num"));
5410           PUT_WORD(&pty_cai[1],S_INTERROGATE_NUMBERS);
5411           pty_cai[3]=pty_cai[0]-3; /* Supplementary Service-specific parameter len */
5412           break;
5413         case CCBS_REQUEST:
5414           dbug(1,dprintf("CCBS Request"));
5415           PUT_WORD(&pty_cai[1],S_CCBS_REQUEST);
5416           pty_cai[3]=pty_cai[0]-3; /* Supplementary Service-specific parameter len */
5417           break;
5418         case CCBS_DEACTIVATE:
5419           dbug(1,dprintf("CCBS Deactivate"));
5420           PUT_WORD(&pty_cai[1],S_CCBS_DEACTIVATE);
5421           pty_cai[3]=pty_cai[0]-3; /* Supplementary Service-specific parameter len */
5422           break;
5423         case CCBS_INTERROGATE:
5424           dbug(1,dprintf("CCBS Interrogate"));
5425           PUT_WORD(&pty_cai[1],S_CCBS_INTERROGATE);
5426           pty_cai[3]=pty_cai[0]-3; /* Supplementary Service-specific parameter len */
5427           break;
5428       }
5429       PUT_WORD(&pty_cai[4],0); /* Supplementary Service Reason */
5430       PUT_DWORD(&pty_cai[6],plci->appl->S_Handle);
5431       sendf(plci->appl,_FACILITY_I,Id&0x7,0,"wS",3, pty_cai);
5432       plci_remove(plci);
5433       break;
5434
5435     case ACTIVATION_MWI:
5436     case DEACTIVATION_MWI:
5437       if(pty_cai[5]==ACTIVATION_MWI)
5438       {
5439         PUT_WORD(&SS_Ind[1],S_MWI_ACTIVATE);
5440       }
5441       else PUT_WORD(&SS_Ind[1],S_MWI_DEACTIVATE);
5442       if(plci->cr_enquiry)
5443       {
5444         sendf(plci->appl,_FACILITY_I,Id&0xf,0,"ws",3, SS_Ind);
5445         plci_remove(plci);
5446       }
5447       else
5448       {
5449         sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, SS_Ind);
5450       }
5451       break;
5452     case MWI_INDICATION:
5453       if(pty_cai[0]>=0x12)
5454       {
5455         PUT_WORD(&pty_cai[3],S_MWI_INDICATE);
5456         pty_cai[2]=pty_cai[0]-2; /* len Parameter */
5457         pty_cai[5]=pty_cai[0]-5; /* Supplementary Service-specific parameter len */
5458         if(plci->appl && (a->Notification_Mask[plci->appl->Id-1]&SMASK_MWI))
5459         {
5460           if(plci->internal_command==GET_MWI_STATE) /* result on Message Waiting Listen */
5461           {
5462             sendf(plci->appl,_FACILITY_I,Id&0xf,0,"wS",3, &pty_cai[2]);
5463             plci_remove(plci);
5464             return;
5465           }
5466           else  sendf(plci->appl,_FACILITY_I,Id,0,"wS",3, &pty_cai[2]);
5467           pty_cai[0]=0;
5468         }
5469         else
5470         {
5471           for(i=0; i<max_appl; i++)
5472           {
5473             if(a->Notification_Mask[i]&SMASK_MWI)
5474             {
5475               sendf(&application[i],_FACILITY_I,Id&0x7,0,"wS",3, &pty_cai[2]);
5476               pty_cai[0]=0;
5477             }
5478           }
5479         }
5480
5481         if(!pty_cai[0])
5482         { /* acknowledge */
5483           facility[2]= 0; /* returncode */
5484         }
5485         else facility[2]= 0xff;
5486       }
5487       else
5488       {
5489         /* reject */
5490         facility[2]= 0xff; /* returncode */
5491       }
5492       facility[0]= 2;
5493       facility[1]= MWI_RESPONSE; /* Function */
5494       add_p(plci,CAI,facility);
5495       add_p(plci,ESC,multi_ssext_parms[0]); /* remembered parameter -> only one possible */
5496       sig_req(plci,S_SERVICE,0);
5497       send_req(plci);
5498       plci->command = 0;
5499       next_internal_command (Id, plci);
5500       break;
5501     case CONF_ADD: /* OK */
5502     case CONF_BEGIN:
5503     case CONF_DROP:
5504     case CONF_ISOLATE:
5505     case CONF_REATTACH:
5506     case CONF_PARTYDISC:
5507       CONF_Ind[0]=9;
5508       CONF_Ind[3]=6;
5509       switch(pty_cai[5])
5510       {
5511       case CONF_BEGIN:
5512           PUT_WORD(&CONF_Ind[1],S_CONF_BEGIN);
5513           if(pty_cai[0]==6)
5514           {
5515               d=pty_cai[6];
5516               PUT_DWORD(&CONF_Ind[6],d); /* PartyID */
5517           }
5518           else
5519           {
5520               PUT_DWORD(&CONF_Ind[6],0x0);
5521           }
5522           break;
5523       case CONF_ISOLATE:
5524           PUT_WORD(&CONF_Ind[1],S_CONF_ISOLATE);
5525           CONF_Ind[0]=5;
5526           CONF_Ind[3]=2;
5527           break;
5528       case CONF_REATTACH:
5529           PUT_WORD(&CONF_Ind[1],S_CONF_REATTACH);
5530           CONF_Ind[0]=5;
5531           CONF_Ind[3]=2;
5532           break;
5533       case CONF_DROP:
5534           PUT_WORD(&CONF_Ind[1],S_CONF_DROP);
5535           CONF_Ind[0]=5;
5536           CONF_Ind[3]=2;
5537           break;
5538       case CONF_ADD:
5539           PUT_WORD(&CONF_Ind[1],S_CONF_ADD);
5540           d=pty_cai[6];
5541           PUT_DWORD(&CONF_Ind[6],d); /* PartyID */
5542           tplci=plci->relatedPTYPLCI;
5543           if(tplci) tplci->ptyState = CONNECTED;
5544           break;
5545       case CONF_PARTYDISC:
5546           CONF_Ind[0]=7;
5547           CONF_Ind[3]=4;
5548           PUT_WORD(&CONF_Ind[1],S_CONF_PARTYDISC);
5549           d=pty_cai[6];
5550           PUT_DWORD(&CONF_Ind[4],d); /* PartyID */
5551           break;
5552       }
5553       plci->ptyState = CONNECTED;
5554       sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, CONF_Ind);
5555       break;
5556     case CCBS_INFO_RETAIN:
5557     case CCBS_ERASECALLLINKAGEID:
5558     case CCBS_STOP_ALERTING:
5559       CONF_Ind[0]=5;
5560       CONF_Ind[3]=2;
5561       switch(pty_cai[5])
5562       {
5563       case CCBS_INFO_RETAIN:
5564         PUT_WORD(&CONF_Ind[1],S_CCBS_INFO_RETAIN);
5565         break;
5566       case CCBS_STOP_ALERTING:
5567         PUT_WORD(&CONF_Ind[1],S_CCBS_STOP_ALERTING);
5568     break;
5569       case CCBS_ERASECALLLINKAGEID:
5570         PUT_WORD(&CONF_Ind[1],S_CCBS_ERASECALLLINKAGEID);
5571         CONF_Ind[0]=7;
5572         CONF_Ind[3]=4;
5573         CONF_Ind[6]=0;
5574         CONF_Ind[7]=0;
5575         break;
5576       }
5577       w=pty_cai[6];
5578       PUT_WORD(&CONF_Ind[4],w); /* PartyID */
5579
5580       if(plci->appl && (a->Notification_Mask[plci->appl->Id-1]&SMASK_CCBS))
5581       {
5582         sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, CONF_Ind);
5583       }
5584       else
5585       {
5586         for(i=0; i<max_appl; i++)
5587             if(a->Notification_Mask[i]&SMASK_CCBS)
5588                 sendf(&application[i],_FACILITY_I,Id&0x7,0,"ws",3, CONF_Ind);
5589       }
5590       break;
5591     }
5592     break;
5593   case CALL_HOLD_REJ:
5594     cau = parms[7];
5595     if(cau)
5596     {
5597       i = _L3_CAUSE | cau[2];
5598       if(cau[2]==0) i = 0x3603;
5599     }
5600     else
5601     {
5602       i = 0x3603;
5603     }
5604     PUT_WORD(&SS_Ind[1],S_HOLD);
5605     PUT_WORD(&SS_Ind[4],i);
5606     if(plci->SuppState == HOLD_REQUEST)
5607     {
5608       plci->SuppState = IDLE;
5609       sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, SS_Ind);
5610     }
5611     break;
5612
5613   case CALL_HOLD_ACK:
5614     if(plci->SuppState == HOLD_REQUEST)
5615     {
5616       plci->SuppState = CALL_HELD;
5617       CodecIdCheck(a, plci);
5618       start_internal_command (Id, plci, hold_save_command);
5619     }
5620     break;
5621
5622   case CALL_RETRIEVE_REJ:
5623     cau = parms[7];
5624     if(cau)
5625     {
5626       i = _L3_CAUSE | cau[2];
5627       if(cau[2]==0) i = 0x3603;
5628     }
5629     else
5630     {
5631       i = 0x3603;
5632     }
5633     PUT_WORD(&SS_Ind[1],S_RETRIEVE);
5634     PUT_WORD(&SS_Ind[4],i);
5635     if(plci->SuppState == RETRIEVE_REQUEST)
5636     {
5637       plci->SuppState = CALL_HELD;
5638       CodecIdCheck(a, plci);
5639       sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, SS_Ind);
5640     }
5641     break;
5642
5643   case CALL_RETRIEVE_ACK:
5644     PUT_WORD(&SS_Ind[1],S_RETRIEVE);
5645     if(plci->SuppState == RETRIEVE_REQUEST)
5646     {
5647       plci->SuppState = IDLE;
5648       plci->call_dir |= CALL_DIR_FORCE_OUTG_NL;
5649       plci->b_channel = esc_chi[esc_chi[0]]&0x1f;
5650       if(plci->tel)
5651       {
5652         mixer_set_bchannel_id_esc (plci, plci->b_channel);
5653         dbug(1,dprintf("RetrChannel=0x%x",plci->b_channel));
5654         SetVoiceChannel(a->AdvCodecPLCI, esc_chi, a);
5655         if(plci->B2_prot==B2_TRANSPARENT && plci->B3_prot==B3_TRANSPARENT)
5656         {
5657           dbug(1,dprintf("Get B-ch"));
5658           start_internal_command (Id, plci, retrieve_restore_command);
5659         }
5660         else
5661           sendf(plci->appl,_FACILITY_I,Id,0,"ws",3, SS_Ind);
5662       }
5663       else
5664         start_internal_command (Id, plci, retrieve_restore_command);
5665     }
5666     break;
5667
5668   case INDICATE_IND:
5669     if(plci->State != LISTENING) {
5670       sig_req(plci,HANGUP,0);
5671       send_req(plci);
5672       break;
5673     }
5674     cip = find_cip(a,parms[4],parms[6]);
5675     cip_mask = 1L<<cip;
5676     dbug(1,dprintf("cip=%d,cip_mask=%lx",cip,cip_mask));
5677     clear_c_ind_mask (plci);
5678     if (!remove_started && !a->adapter_disabled)
5679     {
5680       set_c_ind_mask_bit (plci, MAX_APPL);
5681       group_optimization(a, plci);
5682       for(i=0; i<max_appl; i++) {
5683         if(application[i].Id
5684         && (a->CIP_Mask[i]&1 || a->CIP_Mask[i]&cip_mask)
5685         && CPN_filter_ok(parms[0],a,i)
5686         && test_group_ind_mask_bit (plci, i) ) {
5687           dbug(1,dprintf("storedcip_mask[%d]=0x%lx",i,a->CIP_Mask[i] ));
5688           set_c_ind_mask_bit (plci, i);
5689           dump_c_ind_mask (plci);
5690           plci->State = INC_CON_PENDING;
5691           plci->call_dir = (plci->call_dir & ~(CALL_DIR_OUT | CALL_DIR_ORIGINATE)) |
5692             CALL_DIR_IN | CALL_DIR_ANSWER;
5693           if(esc_chi[0]) {
5694             plci->b_channel = esc_chi[esc_chi[0]]&0x1f;
5695             mixer_set_bchannel_id_esc (plci, plci->b_channel);
5696           }
5697           /* if a listen on the ext controller is done, check if hook states */
5698           /* are supported or if just a on board codec must be activated     */
5699           if(a->codec_listen[i] && !a->AdvSignalPLCI) {
5700             if(a->profile.Global_Options & HANDSET)
5701               plci->tel = ADV_VOICE;
5702             else if(a->profile.Global_Options & ON_BOARD_CODEC)
5703               plci->tel = CODEC;
5704             if(plci->tel) Id|=EXT_CONTROLLER;
5705             a->codec_listen[i] = plci;
5706           }
5707
5708           sendf(&application[i],_CONNECT_I,Id,0,
5709                 "wSSSSSSSbSSSSS", cip,    /* CIP                 */
5710                              parms[0],    /* CalledPartyNumber   */
5711                              multi_CiPN_parms[0],    /* CallingPartyNumber  */
5712                              parms[2],    /* CalledPartySubad    */
5713                              parms[3],    /* CallingPartySubad   */
5714                              parms[4],    /* BearerCapability    */
5715                              parms[5],    /* LowLC               */
5716                              parms[6],    /* HighLC              */
5717                              ai_len,      /* nested struct add_i */
5718                              add_i[0],    /* B channel info    */
5719                              add_i[1],    /* keypad facility   */
5720                              add_i[2],    /* user user data    */
5721                              add_i[3],    /* nested facility   */
5722                              multi_CiPN_parms[1]    /* second CiPN(SCR)   */
5723                              );
5724           SendSSExtInd(&application[i],
5725                         plci,
5726                         Id,
5727                         multi_ssext_parms);
5728           SendSetupInfo(&application[i],
5729                         plci,
5730                         Id,
5731                         parms,
5732                         SendMultiIE(plci,Id,multi_pi_parms, PI, 0x210, true));
5733         }
5734       }
5735       clear_c_ind_mask_bit (plci, MAX_APPL);
5736       dump_c_ind_mask (plci);
5737     }
5738     if(c_ind_mask_empty (plci)) {
5739       sig_req(plci,HANGUP,0);
5740       send_req(plci);
5741       plci->State = IDLE;
5742     }
5743     plci->notifiedcall = 0;
5744     a->listen_active--;
5745     listen_check(a);
5746     break;
5747
5748   case CALL_PEND_NOTIFY:
5749     plci->notifiedcall = 1;
5750     listen_check(a);
5751     break;
5752
5753   case CALL_IND:
5754   case CALL_CON:
5755     if(plci->State==ADVANCED_VOICE_SIG || plci->State==ADVANCED_VOICE_NOSIG)
5756     {
5757       if(plci->internal_command==PERM_COD_CONN_PEND)
5758       {
5759         if(plci->State==ADVANCED_VOICE_NOSIG)
5760         {
5761           dbug(1,dprintf("***Codec OK"));
5762           if(a->AdvSignalPLCI)
5763           {
5764             tplci = a->AdvSignalPLCI;
5765             if(tplci->spoofed_msg)
5766             {
5767               dbug(1,dprintf("***Spoofed Msg(0x%x)",tplci->spoofed_msg));
5768               tplci->command = 0;
5769               tplci->internal_command = 0;
5770               x_Id = ((word)tplci->Id<<8)|tplci->adapter->Id | 0x80;
5771               switch (tplci->spoofed_msg)
5772               {
5773               case CALL_RES:
5774                 tplci->command = _CONNECT_I|RESPONSE;
5775                 api_load_msg (&tplci->saved_msg, saved_parms);
5776                 add_b1(tplci,&saved_parms[1],0,tplci->B1_facilities);
5777                 if (tplci->adapter->Info_Mask[tplci->appl->Id-1] & 0x200)
5778                 {
5779                   /* early B3 connect (CIP mask bit 9) no release after a disc */
5780                   add_p(tplci,LLI,"\x01\x01");
5781                 }
5782                 add_s(tplci, CONN_NR, &saved_parms[2]);
5783                 add_s(tplci, LLC, &saved_parms[4]);
5784                 add_ai(tplci, &saved_parms[5]);
5785                 tplci->State = INC_CON_ACCEPT;
5786                 sig_req(tplci, CALL_RES,0);
5787                 send_req(tplci);
5788                 break;
5789
5790               case AWAITING_SELECT_B:
5791                 dbug(1,dprintf("Select_B continue"));
5792                 start_internal_command (x_Id, tplci, select_b_command);
5793                 break;
5794
5795               case AWAITING_MANUF_CON: /* Get_Plci per Manufacturer_Req to ext controller */
5796                 if(!tplci->Sig.Id)
5797                 {
5798                   dbug(1,dprintf("No SigID!"));
5799                   sendf(tplci->appl, _MANUFACTURER_R|CONFIRM,x_Id,tplci->number, "dww",_DI_MANU_ID,_MANUFACTURER_R,_OUT_OF_PLCI);
5800                   plci_remove(tplci);
5801                   break;
5802                 }
5803                 tplci->command = _MANUFACTURER_R;
5804                 api_load_msg (&tplci->saved_msg, saved_parms);
5805                 dir = saved_parms[2].info[0];
5806                 if(dir==1) {
5807                   sig_req(tplci,CALL_REQ,0);
5808                 }
5809                 else if(!dir){
5810                   sig_req(tplci,LISTEN_REQ,0);
5811                 }
5812                 send_req(tplci);
5813                 sendf(tplci->appl, _MANUFACTURER_R|CONFIRM,x_Id,tplci->number, "dww",_DI_MANU_ID,_MANUFACTURER_R,0);
5814                 break;
5815
5816               case (CALL_REQ|AWAITING_MANUF_CON):
5817                 sig_req(tplci,CALL_REQ,0);
5818                 send_req(tplci);
5819                 break;
5820
5821               case CALL_REQ:
5822                 if(!tplci->Sig.Id)
5823                 {
5824                   dbug(1,dprintf("No SigID!"));
5825                   sendf(tplci->appl,_CONNECT_R|CONFIRM,tplci->adapter->Id,0,"w",_OUT_OF_PLCI);
5826                   plci_remove(tplci);
5827                   break;
5828                 }
5829                 tplci->command = _CONNECT_R;
5830                 api_load_msg (&tplci->saved_msg, saved_parms);
5831                 add_s(tplci,CPN,&saved_parms[1]);
5832                 add_s(tplci,DSA,&saved_parms[3]);
5833                 add_ai(tplci,&saved_parms[9]);
5834                 sig_req(tplci,CALL_REQ,0);
5835                 send_req(tplci);
5836                 break;
5837
5838               case CALL_RETRIEVE:
5839                 tplci->command = C_RETRIEVE_REQ;
5840                 sig_req(tplci,CALL_RETRIEVE,0);
5841                 send_req(tplci);
5842                 break;
5843               }
5844               tplci->spoofed_msg = 0;
5845               if (tplci->internal_command == 0)
5846                 next_internal_command (x_Id, tplci);
5847             }
5848           }
5849           next_internal_command (Id, plci);
5850           break;
5851         }
5852         dbug(1,dprintf("***Codec Hook Init Req"));
5853         plci->internal_command = PERM_COD_HOOK;
5854         add_p(plci,FTY,"\x01\x09");             /* Get Hook State*/
5855         sig_req(plci,TEL_CTRL,0);
5856         send_req(plci);
5857       }
5858     }
5859     else if(plci->command != _MANUFACTURER_R  /* old style permanent connect */
5860     && plci->State!=INC_ACT_PENDING)
5861     {
5862       mixer_set_bchannel_id_esc (plci, plci->b_channel);
5863       if(plci->tel == ADV_VOICE && plci->SuppState == IDLE) /* with permanent codec switch on immediately */
5864       {
5865         chi[2] = plci->b_channel;
5866         SetVoiceChannel(a->AdvCodecPLCI, chi, a);
5867       }
5868       sendf(plci->appl,_CONNECT_ACTIVE_I,Id,0,"Sss",parms[21],"","");
5869       plci->State = INC_ACT_PENDING;
5870     }
5871     break;
5872
5873   case TEL_CTRL:
5874     Number = 0;
5875     ie = multi_fac_parms[0]; /* inspect the facility hook indications */
5876     if(plci->State==ADVANCED_VOICE_SIG && ie[0]){
5877       switch (ie[1]&0x91) {
5878         case 0x80:   /* hook off */
5879         case 0x81:
5880           if(plci->internal_command==PERM_COD_HOOK)
5881           {
5882             dbug(1,dprintf("init:hook_off"));
5883             plci->hook_state = ie[1];
5884             next_internal_command (Id, plci);
5885             break;
5886           }
5887           else /* ignore doubled hook indications */
5888           {
5889             if( ((plci->hook_state)&0xf0)==0x80)
5890             {
5891               dbug(1,dprintf("ignore hook"));
5892               break;
5893             }
5894             plci->hook_state = ie[1]&0x91;
5895           }
5896           /* check for incoming call pending */
5897           /* and signal '+'.Appl must decide */
5898           /* with connect_res if call must   */
5899           /* accepted or not                 */
5900           for(i=0, tplci=NULL;i<max_appl;i++){
5901             if(a->codec_listen[i]
5902             && (a->codec_listen[i]->State==INC_CON_PENDING
5903               ||a->codec_listen[i]->State==INC_CON_ALERT) ){
5904               tplci = a->codec_listen[i];
5905               tplci->appl = &application[i];
5906             }
5907           }
5908           /* no incoming call, do outgoing call */
5909           /* and signal '+' if outg. setup   */
5910           if(!a->AdvSignalPLCI && !tplci){
5911             if((i=get_plci(a))) {
5912               a->AdvSignalPLCI = &a->plci[i-1];
5913               tplci = a->AdvSignalPLCI;
5914               tplci->tel  = ADV_VOICE;
5915               PUT_WORD(&voice_cai[5],a->AdvSignalAppl->MaxDataLength);
5916               if (a->Info_Mask[a->AdvSignalAppl->Id-1] & 0x200){
5917                 /* early B3 connect (CIP mask bit 9) no release after a disc */
5918                 add_p(tplci,LLI,"\x01\x01");
5919               }
5920               add_p(tplci, CAI, voice_cai);
5921               add_p(tplci, OAD, a->TelOAD);
5922               add_p(tplci, OSA, a->TelOSA);
5923               add_p(tplci,SHIFT|6,NULL);
5924               add_p(tplci,SIN,"\x02\x01\x00");
5925               add_p(tplci,UID,"\x06\x43\x61\x70\x69\x32\x30");
5926               sig_req(tplci,ASSIGN,DSIG_ID);
5927               a->AdvSignalPLCI->internal_command = HOOK_OFF_REQ;
5928               a->AdvSignalPLCI->command = 0;
5929               tplci->appl = a->AdvSignalAppl;
5930               tplci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE;
5931               send_req(tplci);
5932             }
5933
5934           }
5935
5936           if(!tplci) break;
5937           Id = ((word)tplci->Id<<8)|a->Id;
5938           Id|=EXT_CONTROLLER;
5939           sendf(tplci->appl,
5940                 _FACILITY_I,
5941                 Id,
5942                 0,
5943                 "ws", (word)0, "\x01+");
5944           break;
5945
5946         case 0x90:   /* hook on  */
5947         case 0x91:
5948           if(plci->internal_command==PERM_COD_HOOK)
5949           {
5950             dbug(1,dprintf("init:hook_on"));
5951             plci->hook_state = ie[1]&0x91;
5952             next_internal_command (Id, plci);
5953             break;
5954           }
5955           else /* ignore doubled hook indications */
5956           {
5957             if( ((plci->hook_state)&0xf0)==0x90) break;
5958             plci->hook_state = ie[1]&0x91;
5959           }
5960           /* hangup the adv. voice call and signal '-' to the appl */
5961           if(a->AdvSignalPLCI) {
5962             Id = ((word)a->AdvSignalPLCI->Id<<8)|a->Id;
5963             if(plci->tel) Id|=EXT_CONTROLLER;
5964             sendf(a->AdvSignalAppl,
5965                   _FACILITY_I,
5966                   Id,
5967                   0,
5968                   "ws", (word)0, "\x01-");
5969             a->AdvSignalPLCI->internal_command = HOOK_ON_REQ;
5970             a->AdvSignalPLCI->command = 0;
5971             sig_req(a->AdvSignalPLCI,HANGUP,0);
5972             send_req(a->AdvSignalPLCI);
5973           }
5974           break;
5975       }
5976     }
5977     break;
5978
5979   case RESUME:
5980     clear_c_ind_mask_bit (plci, (word)(plci->appl->Id-1));
5981     PUT_WORD(&resume_cau[4],GOOD);
5982     sendf(plci->appl,_FACILITY_I,Id,0,"ws", (word)3, resume_cau);
5983     break;
5984
5985   case SUSPEND:
5986     clear_c_ind_mask (plci);
5987
5988     if (plci->NL.Id && !plci->nl_remove_id) {
5989       mixer_remove (plci);
5990       nl_req_ncci(plci,REMOVE,0);
5991     }
5992     if (!plci->sig_remove_id) {
5993       plci->internal_command = 0;
5994       sig_req(plci,REMOVE,0);
5995     }
5996     send_req(plci);
5997     if(!plci->channels) {
5998       sendf(plci->appl,_FACILITY_I,Id,0,"ws", (word)3, "\x05\x04\x00\x02\x00\x00");
5999       sendf(plci->appl, _DISCONNECT_I, Id, 0, "w", 0);
6000     }
6001     break;
6002
6003   case SUSPEND_REJ:
6004     break;
6005
6006   case HANGUP:
6007     plci->hangup_flow_ctrl_timer=0;
6008     if(plci->manufacturer && plci->State==LOCAL_CONNECT) break;
6009     cau = parms[7];
6010     if(cau) {
6011       i = _L3_CAUSE | cau[2];
6012       if(cau[2]==0) i = 0;
6013       else if(cau[2]==8) i = _L1_ERROR;
6014       else if(cau[2]==9 || cau[2]==10) i = _L2_ERROR;
6015       else if(cau[2]==5) i = _CAPI_GUARD_ERROR;
6016     }
6017     else {
6018       i = _L3_ERROR;
6019     }
6020
6021     if(plci->State==INC_CON_PENDING || plci->State==INC_CON_ALERT)
6022     {
6023       for(i=0; i<max_appl; i++)
6024       {
6025         if(test_c_ind_mask_bit (plci, i))
6026           sendf(&application[i], _DISCONNECT_I, Id, 0, "w", 0);
6027       }
6028     }
6029     else
6030     {
6031       clear_c_ind_mask (plci);
6032     }
6033     if(!plci->appl)
6034     {
6035       if (plci->State == LISTENING)
6036       {
6037         plci->notifiedcall=0;
6038         a->listen_active--;
6039       }
6040       plci->State = INC_DIS_PENDING;
6041       if(c_ind_mask_empty (plci))
6042       {
6043         plci->State = IDLE;
6044         if (plci->NL.Id && !plci->nl_remove_id)
6045         {
6046           mixer_remove (plci);
6047           nl_req_ncci(plci,REMOVE,0);
6048         }
6049         if (!plci->sig_remove_id)
6050         {
6051           plci->internal_command = 0;
6052           sig_req(plci,REMOVE,0);
6053         }
6054         send_req(plci);
6055       }
6056     }
6057     else
6058     {
6059         /* collision of DISCONNECT or CONNECT_RES with HANGUP can   */
6060         /* result in a second HANGUP! Don't generate another        */
6061         /* DISCONNECT                                               */
6062       if(plci->State!=IDLE && plci->State!=INC_DIS_PENDING)
6063       {
6064         if(plci->State==RESUMING)
6065         {
6066           PUT_WORD(&resume_cau[4],i);
6067           sendf(plci->appl,_FACILITY_I,Id,0,"ws", (word)3, resume_cau);
6068         }
6069         plci->State = INC_DIS_PENDING;
6070         sendf(plci->appl,_DISCONNECT_I,Id,0,"w",i);
6071       }
6072     }
6073     break;
6074
6075   case SSEXT_IND:
6076     SendSSExtInd(NULL,plci,Id,multi_ssext_parms);
6077     break;
6078
6079   case VSWITCH_REQ:
6080     VSwitchReqInd(plci,Id,multi_vswitch_parms);
6081     break;
6082   case VSWITCH_IND:
6083  if(plci->relatedPTYPLCI &&
6084   plci->vswitchstate==3 &&
6085   plci->relatedPTYPLCI->vswitchstate==3 &&
6086   parms[MAXPARMSIDS-1][0])
6087  {
6088   add_p(plci->relatedPTYPLCI,SMSG,parms[MAXPARMSIDS-1]);
6089   sig_req(plci->relatedPTYPLCI,VSWITCH_REQ,0);
6090   send_req(plci->relatedPTYPLCI);
6091  }
6092     else VSwitchReqInd(plci,Id,multi_vswitch_parms);
6093     break;
6094
6095   }
6096 }
6097
6098
6099 static void SendSetupInfo(APPL   * appl, PLCI   * plci, dword Id, byte   * * parms, byte Info_Sent_Flag)
6100 {
6101   word i;
6102   byte   * ie;
6103   word Info_Number;
6104   byte   * Info_Element;
6105   word Info_Mask = 0;
6106
6107   dbug(1,dprintf("SetupInfo"));
6108
6109   for(i=0; i<MAXPARMSIDS; i++) {
6110     ie = parms[i];
6111     Info_Number = 0;
6112     Info_Element = ie;
6113     if(ie[0]) {
6114       switch(i) {
6115       case 0:
6116         dbug(1,dprintf("CPN "));
6117         Info_Number = 0x0070;
6118         Info_Mask   = 0x80;
6119         Info_Sent_Flag = true;
6120         break;
6121       case 8:  /* display      */
6122         dbug(1,dprintf("display(%d)",i));
6123         Info_Number = 0x0028;
6124         Info_Mask = 0x04;
6125         Info_Sent_Flag = true;
6126         break;
6127       case 16: /* Channel Id */
6128         dbug(1,dprintf("CHI"));
6129         Info_Number = 0x0018;
6130         Info_Mask = 0x100;
6131         Info_Sent_Flag = true;
6132         mixer_set_bchannel_id (plci, Info_Element);
6133         break;
6134       case 19: /* Redirected Number */
6135         dbug(1,dprintf("RDN"));
6136         Info_Number = 0x0074;
6137         Info_Mask = 0x400;
6138         Info_Sent_Flag = true;
6139         break;
6140       case 20: /* Redirected Number extended */
6141         dbug(1,dprintf("RDX"));
6142         Info_Number = 0x0073;
6143         Info_Mask = 0x400;
6144         Info_Sent_Flag = true;
6145         break;
6146       case 22: /* Redirecing Number  */
6147         dbug(1,dprintf("RIN"));
6148         Info_Number = 0x0076;
6149         Info_Mask = 0x400;
6150         Info_Sent_Flag = true;
6151         break;
6152       default:
6153         Info_Number = 0;
6154         break;
6155       }
6156     }
6157
6158     if(i==MAXPARMSIDS-2){ /* to indicate the message type "Setup" */
6159       Info_Number = 0x8000 |5;
6160       Info_Mask = 0x10;
6161       Info_Element = "";
6162     }
6163
6164     if(Info_Sent_Flag && Info_Number){
6165       if(plci->adapter->Info_Mask[appl->Id-1] & Info_Mask) {
6166         sendf(appl,_INFO_I,Id,0,"wS",Info_Number,Info_Element);
6167       }
6168     }
6169   }
6170 }
6171
6172
6173 void SendInfo(PLCI   * plci, dword Id, byte   * * parms, byte iesent)
6174 {
6175   word i;
6176   word j;
6177   word k;
6178   byte   * ie;
6179   word Info_Number;
6180   byte   * Info_Element;
6181   word Info_Mask = 0;
6182   static byte charges[5] = {4,0,0,0,0};
6183   static byte cause[] = {0x02,0x80,0x00};
6184   APPL   *appl;
6185
6186   dbug(1,dprintf("InfoParse "));
6187
6188   if(
6189         !plci->appl
6190         && !plci->State
6191         && plci->Sig.Ind!=NCR_FACILITY
6192       )
6193   {
6194     dbug(1,dprintf("NoParse "));
6195     return;
6196   }
6197   cause[2] = 0;
6198   for(i=0; i<MAXPARMSIDS; i++) {
6199     ie = parms[i];
6200     Info_Number = 0;
6201     Info_Element = ie;
6202     if(ie[0]) {
6203       switch(i) {
6204       case 0:
6205         dbug(1,dprintf("CPN "));
6206         Info_Number = 0x0070;
6207         Info_Mask   = 0x80;
6208         break;
6209       case 7: /* ESC_CAU */
6210         dbug(1,dprintf("cau(0x%x)",ie[2]));
6211         Info_Number = 0x0008;
6212         Info_Mask = 0x00;
6213         cause[2] = ie[2];
6214         Info_Element = NULL;
6215         break;
6216       case 8:  /* display      */
6217         dbug(1,dprintf("display(%d)",i));
6218         Info_Number = 0x0028;
6219         Info_Mask = 0x04;
6220         break;
6221       case 9:  /* Date display */
6222         dbug(1,dprintf("date(%d)",i));
6223         Info_Number = 0x0029;
6224         Info_Mask = 0x02;
6225         break;
6226       case 10: /* charges */
6227         for(j=0;j<4;j++) charges[1+j] = 0;
6228         for(j=0; j<ie[0] && !(ie[1+j]&0x80); j++);
6229         for(k=1,j++; j<ie[0] && k<=4; j++,k++) charges[k] = ie[1+j];
6230         Info_Number = 0x4000;
6231         Info_Mask = 0x40;
6232         Info_Element = charges;
6233         break;
6234       case 11: /* user user info */
6235         dbug(1,dprintf("uui"));
6236         Info_Number = 0x007E;
6237         Info_Mask = 0x08;
6238         break;
6239       case 12: /* congestion receiver ready */
6240         dbug(1,dprintf("clRDY"));
6241         Info_Number = 0x00B0;
6242         Info_Mask = 0x08;
6243         Info_Element = "";
6244         break;
6245       case 13: /* congestion receiver not ready */
6246         dbug(1,dprintf("clNRDY"));
6247         Info_Number = 0x00BF;
6248         Info_Mask = 0x08;
6249         Info_Element = "";
6250         break;
6251       case 15: /* Keypad Facility */
6252         dbug(1,dprintf("KEY"));
6253         Info_Number = 0x002C;
6254         Info_Mask = 0x20;
6255         break;
6256       case 16: /* Channel Id */
6257         dbug(1,dprintf("CHI"));
6258         Info_Number = 0x0018;
6259         Info_Mask = 0x100;
6260         mixer_set_bchannel_id (plci, Info_Element);
6261         break;
6262       case 17: /* if no 1tr6 cause, send full cause, else esc_cause */
6263         dbug(1,dprintf("q9cau(0x%x)",ie[2]));
6264         if(!cause[2] || cause[2]<0x80) break;  /* eg. layer 1 error */
6265         Info_Number = 0x0008;
6266         Info_Mask = 0x01;
6267         if(cause[2] != ie[2]) Info_Element = cause;
6268         break;
6269       case 19: /* Redirected Number */
6270         dbug(1,dprintf("RDN"));
6271         Info_Number = 0x0074;
6272         Info_Mask = 0x400;
6273         break;
6274       case 22: /* Redirecing Number  */
6275         dbug(1,dprintf("RIN"));
6276         Info_Number = 0x0076;
6277         Info_Mask = 0x400;
6278         break;
6279       case 23: /* Notification Indicator  */
6280         dbug(1,dprintf("NI"));
6281         Info_Number = (word)NI;
6282         Info_Mask = 0x210;
6283         break;
6284       case 26: /* Call State  */
6285         dbug(1,dprintf("CST"));
6286         Info_Number = (word)CST;
6287         Info_Mask = 0x01; /* do with cause i.e. for now */
6288         break;
6289       case MAXPARMSIDS-2:  /* Escape Message Type, must be the last indication */
6290         dbug(1,dprintf("ESC/MT[0x%x]",ie[3]));
6291         Info_Number = 0x8000 |ie[3];
6292         if(iesent) Info_Mask = 0xffff;
6293         else  Info_Mask = 0x10;
6294         Info_Element = "";
6295         break;
6296       default:
6297         Info_Number  = 0;
6298         Info_Mask    = 0;
6299         Info_Element = "";
6300         break;
6301       }
6302     }
6303
6304     if(plci->Sig.Ind==NCR_FACILITY)           /* check controller broadcast */
6305     {
6306       for(j=0; j<max_appl; j++)
6307       {
6308         appl = &application[j];
6309         if(Info_Number
6310         && appl->Id
6311         && plci->adapter->Info_Mask[appl->Id-1] &Info_Mask)
6312         {
6313           dbug(1,dprintf("NCR_Ind"));
6314           iesent=true;
6315           sendf(&application[j],_INFO_I,Id&0x0f,0,"wS",Info_Number,Info_Element);
6316         }
6317       }
6318     }
6319     else if(!plci->appl)
6320     { /* overlap receiving broadcast */
6321       if(Info_Number==CPN
6322       || Info_Number==KEY
6323       || Info_Number==NI
6324       || Info_Number==DSP
6325       || Info_Number==UUI )
6326       {
6327         for(j=0; j<max_appl; j++)
6328         {
6329           if(test_c_ind_mask_bit (plci, j))
6330           {
6331             dbug(1,dprintf("Ovl_Ind"));
6332             iesent=true;
6333             sendf(&application[j],_INFO_I,Id,0,"wS",Info_Number,Info_Element);
6334           }
6335         }
6336       }
6337     }               /* all other signalling states */
6338     else if(Info_Number
6339     && plci->adapter->Info_Mask[plci->appl->Id-1] &Info_Mask)
6340     {
6341       dbug(1,dprintf("Std_Ind"));
6342       iesent=true;
6343       sendf(plci->appl,_INFO_I,Id,0,"wS",Info_Number,Info_Element);
6344     }
6345   }
6346 }
6347
6348
6349 byte SendMultiIE(PLCI   * plci, dword Id, byte   * * parms, byte ie_type, dword info_mask, byte setupParse)
6350 {
6351   word i;
6352   word j;
6353   byte   * ie;
6354   word Info_Number;
6355   byte   * Info_Element;
6356   APPL   *appl;
6357   word Info_Mask = 0;
6358   byte iesent=0;
6359
6360   if(
6361       !plci->appl
6362       && !plci->State
6363       && plci->Sig.Ind!=NCR_FACILITY
6364       && !setupParse
6365       )
6366   {
6367     dbug(1,dprintf("NoM-IEParse "));
6368     return 0;
6369   }
6370   dbug(1,dprintf("M-IEParse "));
6371
6372   for(i=0; i<MAX_MULTI_IE; i++)
6373   {
6374     ie = parms[i];
6375     Info_Number = 0;
6376     Info_Element = ie;
6377     if(ie[0])
6378     {
6379       dbug(1,dprintf("[Ind0x%x]:IE=0x%x",plci->Sig.Ind,ie_type));
6380       Info_Number = (word)ie_type;
6381       Info_Mask = (word)info_mask;
6382     }
6383
6384     if(plci->Sig.Ind==NCR_FACILITY)           /* check controller broadcast */
6385     {
6386       for(j=0; j<max_appl; j++)
6387       {
6388         appl = &application[j];
6389         if(Info_Number
6390         && appl->Id
6391         && plci->adapter->Info_Mask[appl->Id-1] &Info_Mask)
6392         {
6393           iesent = true;
6394           dbug(1,dprintf("Mlt_NCR_Ind"));
6395           sendf(&application[j],_INFO_I,Id&0x0f,0,"wS",Info_Number,Info_Element);
6396         }
6397       }
6398     }
6399     else if(!plci->appl && Info_Number)
6400     {                                        /* overlap receiving broadcast */
6401       for(j=0; j<max_appl; j++)
6402       {
6403         if(test_c_ind_mask_bit (plci, j))
6404         {
6405           iesent = true;
6406           dbug(1,dprintf("Mlt_Ovl_Ind"));
6407           sendf(&application[j],_INFO_I,Id,0,"wS",Info_Number,Info_Element);
6408         }
6409       }
6410     }                                        /* all other signalling states */
6411     else if(Info_Number
6412     && plci->adapter->Info_Mask[plci->appl->Id-1] &Info_Mask)
6413     {
6414       iesent = true;
6415       dbug(1,dprintf("Mlt_Std_Ind"));
6416       sendf(plci->appl,_INFO_I,Id,0,"wS",Info_Number,Info_Element);
6417     }
6418   }
6419   return iesent;
6420 }
6421
6422 static void SendSSExtInd(APPL   * appl, PLCI   * plci, dword Id, byte   * * parms)
6423 {
6424   word i;
6425    /* Format of multi_ssext_parms[i][]:
6426    0 byte length
6427    1 byte SSEXTIE
6428    2 byte SSEXT_REQ/SSEXT_IND
6429    3 byte length
6430    4 word SSExtCommand
6431    6... Params
6432    */
6433   if(
6434    plci
6435    && plci->State
6436    && plci->Sig.Ind!=NCR_FACILITY
6437     )
6438  for(i=0;i<MAX_MULTI_IE;i++)
6439     {
6440       if(parms[i][0]<6) continue;
6441    if(parms[i][2]==SSEXT_REQ) continue;
6442
6443    if(appl)
6444    {
6445     parms[i][0]=0; /* kill it */
6446     sendf(appl,_MANUFACTURER_I,
6447     Id,
6448     0,
6449     "dwS",
6450     _DI_MANU_ID,
6451     _DI_SSEXT_CTRL,
6452     &parms[i][3]);
6453    }
6454    else if(plci->appl)
6455    {
6456     parms[i][0]=0; /* kill it */
6457     sendf(plci->appl,_MANUFACTURER_I,
6458     Id,
6459     0,
6460     "dwS",
6461     _DI_MANU_ID,
6462     _DI_SSEXT_CTRL,
6463     &parms[i][3]);
6464    }
6465     }
6466 };
6467
6468 void nl_ind(PLCI   * plci)
6469 {
6470   byte ch;
6471   word ncci;
6472   dword Id;
6473   DIVA_CAPI_ADAPTER   * a;
6474   word NCCIcode;
6475   APPL   * APPLptr;
6476   word count;
6477   word Num;
6478   word i, ncpi_state;
6479   byte len, ncci_state;
6480   word msg;
6481   word info = 0;
6482   word fax_feature_bits;
6483   byte fax_send_edata_ack;
6484   static byte v120_header_buffer[2 + 3];
6485   static word fax_info[] = {
6486     0,                     /* T30_SUCCESS                        */
6487     _FAX_NO_CONNECTION,    /* T30_ERR_NO_DIS_RECEIVED            */
6488     _FAX_PROTOCOL_ERROR,   /* T30_ERR_TIMEOUT_NO_RESPONSE        */
6489     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_RESPONSE          */
6490     _FAX_PROTOCOL_ERROR,   /* T30_ERR_TOO_MANY_REPEATS           */
6491     _FAX_PROTOCOL_ERROR,   /* T30_ERR_UNEXPECTED_MESSAGE         */
6492     _FAX_REMOTE_ABORT,     /* T30_ERR_UNEXPECTED_DCN             */
6493     _FAX_LOCAL_ABORT,      /* T30_ERR_DTC_UNSUPPORTED            */
6494     _FAX_TRAINING_ERROR,   /* T30_ERR_ALL_RATES_FAILED           */
6495     _FAX_TRAINING_ERROR,   /* T30_ERR_TOO_MANY_TRAINS            */
6496     _FAX_PARAMETER_ERROR,  /* T30_ERR_RECEIVE_CORRUPTED          */
6497     _FAX_REMOTE_ABORT,     /* T30_ERR_UNEXPECTED_DISC            */
6498     _FAX_LOCAL_ABORT,      /* T30_ERR_APPLICATION_DISC           */
6499     _FAX_REMOTE_REJECT,    /* T30_ERR_INCOMPATIBLE_DIS           */
6500     _FAX_LOCAL_ABORT,      /* T30_ERR_INCOMPATIBLE_DCS           */
6501     _FAX_PROTOCOL_ERROR,   /* T30_ERR_TIMEOUT_NO_COMMAND         */
6502     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_COMMAND           */
6503     _FAX_PROTOCOL_ERROR,   /* T30_ERR_TIMEOUT_COMMAND_TOO_LONG   */
6504     _FAX_PROTOCOL_ERROR,   /* T30_ERR_TIMEOUT_RESPONSE_TOO_LONG  */
6505     _FAX_NO_CONNECTION,    /* T30_ERR_NOT_IDENTIFIED             */
6506     _FAX_PROTOCOL_ERROR,   /* T30_ERR_SUPERVISORY_TIMEOUT        */
6507     _FAX_PARAMETER_ERROR,  /* T30_ERR_TOO_LONG_SCAN_LINE         */
6508     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_PAGE_AFTER_MPS    */
6509     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_PAGE_AFTER_CFR    */
6510     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_DCS_AFTER_FTT     */
6511     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_DCS_AFTER_EOM     */
6512     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_DCS_AFTER_MPS     */
6513     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_DCN_AFTER_MCF     */
6514     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_DCN_AFTER_RTN     */
6515     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_CFR               */
6516     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_MCF_AFTER_EOP     */
6517     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_MCF_AFTER_EOM     */
6518     _FAX_PROTOCOL_ERROR,   /* T30_ERR_RETRY_NO_MCF_AFTER_MPS     */
6519     0x331d,                /* T30_ERR_SUB_SEP_UNSUPPORTED        */
6520     0x331e,                /* T30_ERR_PWD_UNSUPPORTED            */
6521     0x331f,                /* T30_ERR_SUB_SEP_PWD_UNSUPPORTED    */
6522     _FAX_PROTOCOL_ERROR,   /* T30_ERR_INVALID_COMMAND_FRAME      */
6523     _FAX_PARAMETER_ERROR,  /* T30_ERR_UNSUPPORTED_PAGE_CODING    */
6524     _FAX_PARAMETER_ERROR,  /* T30_ERR_INVALID_PAGE_CODING        */
6525     _FAX_REMOTE_REJECT,    /* T30_ERR_INCOMPATIBLE_PAGE_CONFIG   */
6526     _FAX_LOCAL_ABORT,      /* T30_ERR_TIMEOUT_FROM_APPLICATION   */
6527     _FAX_PROTOCOL_ERROR,   /* T30_ERR_V34FAX_NO_REACTION_ON_MARK */
6528     _FAX_PROTOCOL_ERROR,   /* T30_ERR_V34FAX_TRAINING_TIMEOUT    */
6529     _FAX_PROTOCOL_ERROR,   /* T30_ERR_V34FAX_UNEXPECTED_V21      */
6530     _FAX_PROTOCOL_ERROR,   /* T30_ERR_V34FAX_PRIMARY_CTS_ON      */
6531     _FAX_LOCAL_ABORT,      /* T30_ERR_V34FAX_TURNAROUND_POLLING  */
6532     _FAX_LOCAL_ABORT       /* T30_ERR_V34FAX_V8_INCOMPATIBILITY  */
6533   };
6534
6535     byte dtmf_code_buffer[CAPIDTMF_RECV_DIGIT_BUFFER_SIZE + 1];
6536
6537
6538   static word rtp_info[] = {
6539     GOOD,                  /* RTP_SUCCESS                       */
6540     0x3600                 /* RTP_ERR_SSRC_OR_PAYLOAD_CHANGE    */
6541   };
6542
6543   static dword udata_forwarding_table[0x100 / sizeof(dword)] =
6544   {
6545     0x0020301e, 0x00000000, 0x00000000, 0x00000000,
6546     0x00000000, 0x00000000, 0x00000000, 0x00000000
6547   };
6548
6549   ch = plci->NL.IndCh;
6550   a = plci->adapter;
6551   ncci = a->ch_ncci[ch];
6552   Id = (((dword)(ncci ? ncci : ch)) << 16) | (((word) plci->Id) << 8) | a->Id;
6553   if(plci->tel) Id|=EXT_CONTROLLER;
6554   APPLptr = plci->appl;
6555   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",
6556     plci->NL.Id,Id,plci->Id,plci->tel,plci->State,ch,plci->channels,plci->NL.Ind &0x0f));
6557
6558   /* in the case if no connect_active_Ind was sent to the appl we wait for */
6559
6560   if (plci->nl_remove_id)
6561   {
6562     plci->NL.RNR = 2; /* discard */
6563     dbug(1,dprintf("NL discard while remove pending"));
6564     return;
6565   }
6566   if((plci->NL.Ind &0x0f)==N_CONNECT)
6567   {
6568     if(plci->State==INC_DIS_PENDING
6569     || plci->State==OUTG_DIS_PENDING
6570     || plci->State==IDLE)
6571     {
6572       plci->NL.RNR = 2; /* discard */
6573       dbug(1,dprintf("discard n_connect"));
6574       return;
6575     }
6576     if(plci->State < INC_ACT_PENDING)
6577     {
6578       plci->NL.RNR = 1; /* flow control */
6579       channel_x_off (plci, ch, N_XON_CONNECT_IND);
6580       return;
6581     }
6582   }
6583
6584   if(!APPLptr)                         /* no application or invalid data */
6585   {                                    /* while reloading the DSP        */
6586     dbug(1,dprintf("discard1"));
6587     plci->NL.RNR = 2;
6588     return;
6589   }
6590
6591   if (((plci->NL.Ind &0x0f) == N_UDATA)
6592      && (((plci->B2_prot != B2_SDLC) && ((plci->B1_resource == 17) || (plci->B1_resource == 18)))
6593         || (plci->B2_prot == 7)
6594         || (plci->B3_prot == 7)) )
6595   {
6596     plci->ncpi_buffer[0] = 0;
6597
6598     ncpi_state = plci->ncpi_state;
6599     if (plci->NL.complete == 1)
6600     {
6601       byte  * data = &plci->NL.RBuffer->P[0];
6602
6603       if ((plci->NL.RBuffer->length >= 12)
6604         &&( (*data == DSP_UDATA_INDICATION_DCD_ON)
6605           ||(*data == DSP_UDATA_INDICATION_CTS_ON)) )
6606       {
6607         word conn_opt, ncpi_opt = 0x00;
6608 /*      HexDump ("MDM N_UDATA:", plci->NL.RBuffer->length, data); */
6609
6610         if (*data == DSP_UDATA_INDICATION_DCD_ON)
6611           plci->ncpi_state |= NCPI_MDM_DCD_ON_RECEIVED;
6612         if (*data == DSP_UDATA_INDICATION_CTS_ON)
6613           plci->ncpi_state |= NCPI_MDM_CTS_ON_RECEIVED;
6614
6615         data++;    /* indication code */
6616         data += 2; /* timestamp */
6617         if ((*data == DSP_CONNECTED_NORM_V18) || (*data == DSP_CONNECTED_NORM_VOWN))
6618           ncpi_state &= ~(NCPI_MDM_DCD_ON_RECEIVED | NCPI_MDM_CTS_ON_RECEIVED);
6619         data++;    /* connected norm */
6620         conn_opt = GET_WORD(data);
6621         data += 2; /* connected options */
6622
6623         PUT_WORD (&(plci->ncpi_buffer[1]), (word)(GET_DWORD(data) & 0x0000FFFF));
6624
6625         if (conn_opt & DSP_CONNECTED_OPTION_MASK_V42)
6626         {
6627           ncpi_opt |= MDM_NCPI_ECM_V42;
6628         }
6629         else if (conn_opt & DSP_CONNECTED_OPTION_MASK_MNP)
6630         {
6631           ncpi_opt |= MDM_NCPI_ECM_MNP;
6632         }
6633         else
6634         {
6635           ncpi_opt |= MDM_NCPI_TRANSPARENT;
6636         }
6637         if (conn_opt & DSP_CONNECTED_OPTION_MASK_COMPRESSION)
6638         {
6639           ncpi_opt |= MDM_NCPI_COMPRESSED;
6640         }
6641         PUT_WORD (&(plci->ncpi_buffer[3]), ncpi_opt);
6642         plci->ncpi_buffer[0] = 4;
6643
6644         plci->ncpi_state |= NCPI_VALID_CONNECT_B3_IND | NCPI_VALID_CONNECT_B3_ACT | NCPI_VALID_DISC_B3_IND;
6645       }
6646     }
6647     if (plci->B3_prot == 7)
6648     {
6649       if (((a->ncci_state[ncci] == INC_ACT_PENDING) || (a->ncci_state[ncci] == OUTG_CON_PENDING))
6650        && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
6651        && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT))
6652       {
6653         a->ncci_state[ncci] = INC_ACT_PENDING;
6654         sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"S",plci->ncpi_buffer);
6655         plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT;
6656       }
6657     }
6658
6659     if (!((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id-1])
6660         & ((1L << PRIVATE_V18) | (1L << PRIVATE_VOWN)))
6661      || !(ncpi_state & NCPI_MDM_DCD_ON_RECEIVED)
6662      || !(ncpi_state & NCPI_MDM_CTS_ON_RECEIVED))
6663
6664     {
6665       plci->NL.RNR = 2;
6666       return;
6667     }
6668   }
6669
6670   if(plci->NL.complete == 2)
6671     {
6672     if (((plci->NL.Ind &0x0f) == N_UDATA)
6673      && !(udata_forwarding_table[plci->RData[0].P[0] >> 5] & (1L << (plci->RData[0].P[0] & 0x1f))))
6674     {
6675       switch(plci->RData[0].P[0])
6676       {
6677
6678       case DTMF_UDATA_INDICATION_FAX_CALLING_TONE:
6679         if (plci->dtmf_rec_active & DTMF_LISTEN_ACTIVE_FLAG)
6680           sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0,"ws", SELECTOR_DTMF, "\x01X");
6681         break;
6682       case DTMF_UDATA_INDICATION_ANSWER_TONE:
6683         if (plci->dtmf_rec_active & DTMF_LISTEN_ACTIVE_FLAG)
6684           sendf(plci->appl, _FACILITY_I, Id & 0xffffL, 0,"ws", SELECTOR_DTMF, "\x01Y");
6685         break;
6686       case DTMF_UDATA_INDICATION_DIGITS_RECEIVED:
6687         dtmf_indication (Id, plci, plci->RData[0].P, plci->RData[0].PLength);
6688         break;
6689       case DTMF_UDATA_INDICATION_DIGITS_SENT:
6690         dtmf_confirmation (Id, plci);
6691         break;
6692
6693
6694       case UDATA_INDICATION_MIXER_TAP_DATA:
6695         capidtmf_recv_process_block (&(plci->capidtmf_state), plci->RData[0].P + 1, (word)(plci->RData[0].PLength - 1));
6696  i = capidtmf_indication (&(plci->capidtmf_state), dtmf_code_buffer + 1);
6697  if (i != 0)
6698  {
6699    dtmf_code_buffer[0] = DTMF_UDATA_INDICATION_DIGITS_RECEIVED;
6700           dtmf_indication (Id, plci, dtmf_code_buffer, (word)(i + 1));
6701  }
6702         break;
6703
6704
6705       case UDATA_INDICATION_MIXER_COEFS_SET:
6706         mixer_indication_coefs_set (Id, plci);
6707         break;
6708       case UDATA_INDICATION_XCONNECT_FROM:
6709         mixer_indication_xconnect_from (Id, plci, plci->RData[0].P, plci->RData[0].PLength);
6710         break;
6711       case UDATA_INDICATION_XCONNECT_TO:
6712         mixer_indication_xconnect_to (Id, plci, plci->RData[0].P, plci->RData[0].PLength);
6713         break;
6714
6715
6716       case LEC_UDATA_INDICATION_DISABLE_DETECT:
6717         ec_indication (Id, plci, plci->RData[0].P, plci->RData[0].PLength);
6718         break;
6719
6720
6721
6722       default:
6723         break;
6724       }
6725     }
6726     else
6727   {
6728       if ((plci->RData[0].PLength != 0)
6729      && ((plci->B2_prot == B2_V120_ASYNC)
6730       || (plci->B2_prot == B2_V120_ASYNC_V42BIS)
6731       || (plci->B2_prot == B2_V120_BIT_TRANSPARENT)))
6732     {
6733
6734       sendf(plci->appl,_DATA_B3_I,Id,0,
6735             "dwww",
6736             plci->RData[1].P,
6737               (plci->NL.RNum < 2) ? 0 : plci->RData[1].PLength,
6738             plci->RNum,
6739             plci->RFlags);
6740
6741     }
6742     else
6743     {
6744
6745       sendf(plci->appl,_DATA_B3_I,Id,0,
6746             "dwww",
6747             plci->RData[0].P,
6748             plci->RData[0].PLength,
6749             plci->RNum,
6750             plci->RFlags);
6751
6752     }
6753     }
6754     return;
6755   }
6756
6757   fax_feature_bits = 0;
6758   if((plci->NL.Ind &0x0f)==N_CONNECT ||
6759      (plci->NL.Ind &0x0f)==N_CONNECT_ACK ||
6760      (plci->NL.Ind &0x0f)==N_DISC ||
6761      (plci->NL.Ind &0x0f)==N_EDATA ||
6762      (plci->NL.Ind &0x0f)==N_DISC_ACK)
6763   {
6764     info = 0;
6765     plci->ncpi_buffer[0] = 0;
6766     switch (plci->B3_prot) {
6767     case  0: /*XPARENT*/
6768     case  1: /*T.90 NL*/
6769       break;    /* no network control protocol info - jfr */
6770     case  2: /*ISO8202*/
6771     case  3: /*X25 DCE*/
6772       for(i=0; i<plci->NL.RLength; i++) plci->ncpi_buffer[4+i] = plci->NL.RBuffer->P[i];
6773       plci->ncpi_buffer[0] = (byte)(i+3);
6774       plci->ncpi_buffer[1] = (byte)(plci->NL.Ind &N_D_BIT? 1:0);
6775       plci->ncpi_buffer[2] = 0;
6776       plci->ncpi_buffer[3] = 0;
6777       break;
6778     case  4: /*T.30 - FAX*/
6779     case  5: /*T.30 - FAX*/
6780       if(plci->NL.RLength>=sizeof(T30_INFO))
6781       {
6782         dbug(1,dprintf("FaxStatus %04x", ((T30_INFO   *)plci->NL.RBuffer->P)->code));
6783         len = 9;
6784         PUT_WORD(&(plci->ncpi_buffer[1]),((T30_INFO   *)plci->NL.RBuffer->P)->rate_div_2400 * 2400);
6785         fax_feature_bits = GET_WORD(&((T30_INFO   *)plci->NL.RBuffer->P)->feature_bits_low);
6786         i = (((T30_INFO   *)plci->NL.RBuffer->P)->resolution & T30_RESOLUTION_R8_0770_OR_200) ? 0x0001 : 0x0000;
6787         if (plci->B3_prot == 5)
6788         {
6789           if (!(fax_feature_bits & T30_FEATURE_BIT_ECM))
6790             i |= 0x8000; /* This is not an ECM connection */
6791           if (fax_feature_bits & T30_FEATURE_BIT_T6_CODING)
6792             i |= 0x4000; /* This is a connection with MMR compression */
6793           if (fax_feature_bits & T30_FEATURE_BIT_2D_CODING)
6794             i |= 0x2000; /* This is a connection with MR compression */
6795           if (fax_feature_bits & T30_FEATURE_BIT_MORE_DOCUMENTS)
6796             i |= 0x0004; /* More documents */
6797           if (fax_feature_bits & T30_FEATURE_BIT_POLLING)
6798             i |= 0x0002; /* Fax-polling indication */
6799         }
6800         dbug(1,dprintf("FAX Options %04x %04x",fax_feature_bits,i));
6801         PUT_WORD(&(plci->ncpi_buffer[3]),i);
6802         PUT_WORD(&(plci->ncpi_buffer[5]),((T30_INFO   *)plci->NL.RBuffer->P)->data_format);
6803         plci->ncpi_buffer[7] = ((T30_INFO   *)plci->NL.RBuffer->P)->pages_low;
6804         plci->ncpi_buffer[8] = ((T30_INFO   *)plci->NL.RBuffer->P)->pages_high;
6805         plci->ncpi_buffer[len] = 0;
6806         if(((T30_INFO   *)plci->NL.RBuffer->P)->station_id_len)
6807         {
6808           plci->ncpi_buffer[len] = 20;
6809           for (i = 0; i < 20; i++)
6810             plci->ncpi_buffer[++len] = ((T30_INFO   *)plci->NL.RBuffer->P)->station_id[i];
6811         }
6812         if (((plci->NL.Ind & 0x0f) == N_DISC) || ((plci->NL.Ind & 0x0f) == N_DISC_ACK))
6813         {
6814           if (((T30_INFO   *)plci->NL.RBuffer->P)->code < ARRAY_SIZE(fax_info))
6815             info = fax_info[((T30_INFO   *)plci->NL.RBuffer->P)->code];
6816           else
6817             info = _FAX_PROTOCOL_ERROR;
6818         }
6819
6820         if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[plci->appl->Id-1])
6821           & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD)))
6822         {
6823           i = ((word)(((T30_INFO *) 0)->station_id + 20)) + ((T30_INFO   *)plci->NL.RBuffer->P)->head_line_len;
6824           while (i < plci->NL.RBuffer->length)
6825             plci->ncpi_buffer[++len] = plci->NL.RBuffer->P[i++];
6826         }
6827
6828         plci->ncpi_buffer[0] = len;
6829         fax_feature_bits = GET_WORD(&((T30_INFO   *)plci->NL.RBuffer->P)->feature_bits_low);
6830         PUT_WORD(&((T30_INFO   *)plci->fax_connect_info_buffer)->feature_bits_low, fax_feature_bits);
6831
6832         plci->ncpi_state |= NCPI_VALID_CONNECT_B3_IND;
6833  if (((plci->NL.Ind &0x0f) == N_CONNECT_ACK)
6834          || (((plci->NL.Ind &0x0f) == N_CONNECT)
6835           && (fax_feature_bits & T30_FEATURE_BIT_POLLING))
6836          || (((plci->NL.Ind &0x0f) == N_EDATA)
6837           && ((((T30_INFO   *)plci->NL.RBuffer->P)->code == EDATA_T30_TRAIN_OK)
6838            || (((T30_INFO   *)plci->NL.RBuffer->P)->code == EDATA_T30_DIS)
6839            || (((T30_INFO   *)plci->NL.RBuffer->P)->code == EDATA_T30_DTC))))
6840  {
6841           plci->ncpi_state |= NCPI_VALID_CONNECT_B3_ACT;
6842  }
6843  if (((plci->NL.Ind &0x0f) == N_DISC)
6844   || ((plci->NL.Ind &0x0f) == N_DISC_ACK)
6845   || (((plci->NL.Ind &0x0f) == N_EDATA)
6846    && (((T30_INFO   *)plci->NL.RBuffer->P)->code == EDATA_T30_EOP_CAPI)))
6847  {
6848           plci->ncpi_state |= NCPI_VALID_CONNECT_B3_ACT | NCPI_VALID_DISC_B3_IND;
6849  }
6850       }
6851       break;
6852
6853     case B3_RTP:
6854       if (((plci->NL.Ind & 0x0f) == N_DISC) || ((plci->NL.Ind & 0x0f) == N_DISC_ACK))
6855       {
6856         if (plci->NL.RLength != 0)
6857         {
6858           info = rtp_info[plci->NL.RBuffer->P[0]];
6859           plci->ncpi_buffer[0] = plci->NL.RLength - 1;
6860           for (i = 1; i < plci->NL.RLength; i++)
6861             plci->ncpi_buffer[i] = plci->NL.RBuffer->P[i];
6862         }
6863       }
6864       break;
6865
6866     }
6867     plci->NL.RNR = 2;
6868   }
6869   switch(plci->NL.Ind &0x0f) {
6870   case N_EDATA:
6871     if ((plci->B3_prot == 4) || (plci->B3_prot == 5))
6872     {
6873       dbug(1,dprintf("EDATA ncci=0x%x state=%d code=%02x", ncci, a->ncci_state[ncci],
6874         ((T30_INFO   *)plci->NL.RBuffer->P)->code));
6875       fax_send_edata_ack = (((T30_INFO   *)(plci->fax_connect_info_buffer))->operating_mode == T30_OPERATING_MODE_CAPI_NEG);
6876
6877       if ((plci->nsf_control_bits & T30_NSF_CONTROL_BIT_ENABLE_NSF)
6878        && (plci->nsf_control_bits & (T30_NSF_CONTROL_BIT_NEGOTIATE_IND | T30_NSF_CONTROL_BIT_NEGOTIATE_RESP))
6879        && (((T30_INFO   *)plci->NL.RBuffer->P)->code == EDATA_T30_DIS)
6880        && (a->ncci_state[ncci] == OUTG_CON_PENDING)
6881        && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
6882        && !(plci->ncpi_state & NCPI_NEGOTIATE_B3_SENT))
6883       {
6884         ((T30_INFO   *)(plci->fax_connect_info_buffer))->code = ((T30_INFO   *)plci->NL.RBuffer->P)->code;
6885         sendf(plci->appl,_MANUFACTURER_I,Id,0,"dwbS",_DI_MANU_ID,_DI_NEGOTIATE_B3,
6886           (byte)(plci->ncpi_buffer[0] + 1), plci->ncpi_buffer);
6887         plci->ncpi_state |= NCPI_NEGOTIATE_B3_SENT;
6888  if (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_NEGOTIATE_RESP)
6889    fax_send_edata_ack = false;
6890       }
6891
6892       if (a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS)
6893       {
6894         switch (((T30_INFO   *)plci->NL.RBuffer->P)->code)
6895         {
6896         case EDATA_T30_DIS:
6897           if ((a->ncci_state[ncci] == OUTG_CON_PENDING)
6898            && !(GET_WORD(&((T30_INFO   *)plci->fax_connect_info_buffer)->control_bits_low) & T30_CONTROL_BIT_REQUEST_POLLING)
6899            && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
6900            && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT))
6901           {
6902             a->ncci_state[ncci] = INC_ACT_PENDING;
6903             if (plci->B3_prot == 4)
6904               sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"s","");
6905             else
6906               sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"S",plci->ncpi_buffer);
6907             plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT;
6908           }
6909           break;
6910
6911         case EDATA_T30_TRAIN_OK:
6912           if ((a->ncci_state[ncci] == INC_ACT_PENDING)
6913            && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
6914            && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT))
6915           {
6916             if (plci->B3_prot == 4)
6917               sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"s","");
6918             else
6919               sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"S",plci->ncpi_buffer);
6920             plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT;
6921           }
6922           break;
6923
6924         case EDATA_T30_EOP_CAPI:
6925           if (a->ncci_state[ncci] == CONNECTED)
6926           {
6927             sendf(plci->appl,_DISCONNECT_B3_I,Id,0,"wS",GOOD,plci->ncpi_buffer);
6928             a->ncci_state[ncci] = INC_DIS_PENDING;
6929             plci->ncpi_state = 0;
6930      fax_send_edata_ack = false;
6931           }
6932           break;
6933         }
6934       }
6935       else
6936       {
6937         switch (((T30_INFO   *)plci->NL.RBuffer->P)->code)
6938         {
6939         case EDATA_T30_TRAIN_OK:
6940           if ((a->ncci_state[ncci] == INC_ACT_PENDING)
6941            && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
6942            && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT))
6943           {
6944             if (plci->B3_prot == 4)
6945               sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"s","");
6946             else
6947               sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"S",plci->ncpi_buffer);
6948             plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT;
6949           }
6950           break;
6951         }
6952       }
6953       if (fax_send_edata_ack)
6954       {
6955         ((T30_INFO   *)(plci->fax_connect_info_buffer))->code = ((T30_INFO   *)plci->NL.RBuffer->P)->code;
6956  plci->fax_edata_ack_length = 1;
6957         start_internal_command (Id, plci, fax_edata_ack_command);
6958       }
6959     }
6960     else
6961     {
6962       dbug(1,dprintf("EDATA ncci=0x%x state=%d", ncci, a->ncci_state[ncci]));
6963     }
6964     break;
6965   case N_CONNECT:
6966     if (!a->ch_ncci[ch])
6967     {
6968       ncci = get_ncci (plci, ch, 0);
6969       Id = (Id & 0xffff) | (((dword) ncci) << 16);
6970     }
6971     dbug(1,dprintf("N_CONNECT: ch=%d state=%d plci=%lx plci_Id=%lx plci_State=%d",
6972       ch, a->ncci_state[ncci], a->ncci_plci[ncci], plci->Id, plci->State));
6973
6974     msg = _CONNECT_B3_I;
6975     if (a->ncci_state[ncci] == IDLE)
6976       plci->channels++;
6977     else if (plci->B3_prot == 1)
6978       msg = _CONNECT_B3_T90_ACTIVE_I;
6979
6980     a->ncci_state[ncci] = INC_CON_PENDING;
6981     if(plci->B3_prot == 4)
6982       sendf(plci->appl,msg,Id,0,"s","");
6983     else
6984       sendf(plci->appl,msg,Id,0,"S",plci->ncpi_buffer);
6985     break;
6986   case N_CONNECT_ACK:
6987     dbug(1,dprintf("N_connect_Ack"));
6988     if (plci->internal_command_queue[0]
6989      && ((plci->adjust_b_state == ADJUST_B_CONNECT_2)
6990       || (plci->adjust_b_state == ADJUST_B_CONNECT_3)
6991       || (plci->adjust_b_state == ADJUST_B_CONNECT_4)))
6992     {
6993       (*(plci->internal_command_queue[0]))(Id, plci, 0);
6994       if (!plci->internal_command)
6995         next_internal_command (Id, plci);
6996       break;
6997     }
6998     msg = _CONNECT_B3_ACTIVE_I;
6999     if (plci->B3_prot == 1)
7000     {
7001       if (a->ncci_state[ncci] != OUTG_CON_PENDING)
7002         msg = _CONNECT_B3_T90_ACTIVE_I;
7003       a->ncci_state[ncci] = INC_ACT_PENDING;
7004       sendf(plci->appl,msg,Id,0,"S",plci->ncpi_buffer);
7005     }
7006     else if ((plci->B3_prot == 4) || (plci->B3_prot == 5) || (plci->B3_prot == 7))
7007     {
7008       if ((a->ncci_state[ncci] == OUTG_CON_PENDING)
7009        && (plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
7010        && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT))
7011       {
7012         a->ncci_state[ncci] = INC_ACT_PENDING;
7013         if (plci->B3_prot == 4)
7014           sendf(plci->appl,msg,Id,0,"s","");
7015         else
7016           sendf(plci->appl,msg,Id,0,"S",plci->ncpi_buffer);
7017         plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT;
7018       }
7019     }
7020     else
7021     {
7022       a->ncci_state[ncci] = INC_ACT_PENDING;
7023       sendf(plci->appl,msg,Id,0,"S",plci->ncpi_buffer);
7024     }
7025     if (plci->adjust_b_restore)
7026     {
7027       plci->adjust_b_restore = false;
7028       start_internal_command (Id, plci, adjust_b_restore);
7029     }
7030     break;
7031   case N_DISC:
7032   case N_DISC_ACK:
7033     if (plci->internal_command_queue[0]
7034      && ((plci->internal_command == FAX_DISCONNECT_COMMAND_1)
7035       || (plci->internal_command == FAX_DISCONNECT_COMMAND_2)
7036       || (plci->internal_command == FAX_DISCONNECT_COMMAND_3)))
7037     {
7038       (*(plci->internal_command_queue[0]))(Id, plci, 0);
7039       if (!plci->internal_command)
7040         next_internal_command (Id, plci);
7041     }
7042     ncci_state = a->ncci_state[ncci];
7043     ncci_remove (plci, ncci, false);
7044
7045         /* with N_DISC or N_DISC_ACK the IDI frees the respective   */
7046         /* channel, so we cannot store the state in ncci_state! The */
7047         /* information which channel we received a N_DISC is thus   */
7048         /* stored in the inc_dis_ncci_table buffer.                 */
7049     for(i=0; plci->inc_dis_ncci_table[i]; i++);
7050     plci->inc_dis_ncci_table[i] = (byte) ncci;
7051
7052       /* need a connect_b3_ind before a disconnect_b3_ind with FAX */
7053     if (!plci->channels
7054      && (plci->B1_resource == 16)
7055      && (plci->State <= CONNECTED))
7056     {
7057       len = 9;
7058       i = ((T30_INFO   *)plci->fax_connect_info_buffer)->rate_div_2400 * 2400;
7059       PUT_WORD (&plci->ncpi_buffer[1], i);
7060       PUT_WORD (&plci->ncpi_buffer[3], 0);
7061       i = ((T30_INFO   *)plci->fax_connect_info_buffer)->data_format;
7062       PUT_WORD (&plci->ncpi_buffer[5], i);
7063       PUT_WORD (&plci->ncpi_buffer[7], 0);
7064       plci->ncpi_buffer[len] = 0;
7065       plci->ncpi_buffer[0] = len;
7066       if(plci->B3_prot == 4)
7067         sendf(plci->appl,_CONNECT_B3_I,Id,0,"s","");
7068       else
7069       {
7070
7071         if ((plci->requested_options_conn | plci->requested_options | a->requested_options_table[plci->appl->Id-1])
7072           & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD)))
7073         {
7074           plci->ncpi_buffer[++len] = 0;
7075           plci->ncpi_buffer[++len] = 0;
7076           plci->ncpi_buffer[++len] = 0;
7077           plci->ncpi_buffer[0] = len;
7078         }
7079
7080         sendf(plci->appl,_CONNECT_B3_I,Id,0,"S",plci->ncpi_buffer);
7081       }
7082       sendf(plci->appl,_DISCONNECT_B3_I,Id,0,"wS",info,plci->ncpi_buffer);
7083       plci->ncpi_state = 0;
7084       sig_req(plci,HANGUP,0);
7085       send_req(plci);
7086       plci->State = OUTG_DIS_PENDING;
7087       /* disc here */
7088     }
7089     else if ((a->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS)
7090      && ((plci->B3_prot == 4) || (plci->B3_prot == 5))
7091      && ((ncci_state == INC_DIS_PENDING) || (ncci_state == IDLE)))
7092     {
7093       if (ncci_state == IDLE)
7094       {
7095         if (plci->channels)
7096           plci->channels--;
7097         if((plci->State==IDLE || plci->State==SUSPENDING) && !plci->channels){
7098           if(plci->State == SUSPENDING){
7099             sendf(plci->appl,
7100                   _FACILITY_I,
7101                   Id & 0xffffL,
7102                   0,
7103                   "ws", (word)3, "\x03\x04\x00\x00");
7104             sendf(plci->appl, _DISCONNECT_I, Id & 0xffffL, 0, "w", 0);
7105           }
7106           plci_remove(plci);
7107           plci->State=IDLE;
7108         }
7109       }
7110     }
7111     else if (plci->channels)
7112     {
7113       sendf(plci->appl,_DISCONNECT_B3_I,Id,0,"wS",info,plci->ncpi_buffer);
7114       plci->ncpi_state = 0;
7115       if ((ncci_state == OUTG_REJ_PENDING)
7116        && ((plci->B3_prot != B3_T90NL) && (plci->B3_prot != B3_ISO8208) && (plci->B3_prot != B3_X25_DCE)))
7117       {
7118         sig_req(plci,HANGUP,0);
7119         send_req(plci);
7120         plci->State = OUTG_DIS_PENDING;
7121       }
7122     }
7123     break;
7124   case N_RESET:
7125     a->ncci_state[ncci] = INC_RES_PENDING;
7126     sendf(plci->appl,_RESET_B3_I,Id,0,"S",plci->ncpi_buffer);
7127     break;
7128   case N_RESET_ACK:
7129     a->ncci_state[ncci] = CONNECTED;
7130     sendf(plci->appl,_RESET_B3_I,Id,0,"S",plci->ncpi_buffer);
7131     break;
7132
7133   case N_UDATA:
7134     if (!(udata_forwarding_table[plci->NL.RBuffer->P[0] >> 5] & (1L << (plci->NL.RBuffer->P[0] & 0x1f))))
7135     {
7136       plci->RData[0].P = plci->internal_ind_buffer + (-((int)(long)(plci->internal_ind_buffer)) & 3);
7137       plci->RData[0].PLength = INTERNAL_IND_BUFFER_SIZE;
7138       plci->NL.R = plci->RData;
7139       plci->NL.RNum = 1;
7140       return;
7141     }
7142   case N_BDATA:
7143   case N_DATA:
7144     if (((a->ncci_state[ncci] != CONNECTED) && (plci->B2_prot == 1)) /* transparent */
7145      || (a->ncci_state[ncci] == IDLE)
7146      || (a->ncci_state[ncci] == INC_DIS_PENDING))
7147     {
7148       plci->NL.RNR = 2;
7149       break;
7150     }
7151     if ((a->ncci_state[ncci] != CONNECTED)
7152      && (a->ncci_state[ncci] != OUTG_DIS_PENDING)
7153      && (a->ncci_state[ncci] != OUTG_REJ_PENDING))
7154     {
7155       dbug(1,dprintf("flow control"));
7156       plci->NL.RNR = 1; /* flow control  */
7157       channel_x_off (plci, ch, 0);
7158       break;
7159     }
7160
7161     NCCIcode = ncci | (((word)a->Id) << 8);
7162
7163                 /* count all buffers within the Application pool    */
7164                 /* belonging to the same NCCI. If this is below the */
7165                 /* number of buffers available per NCCI we accept   */
7166                 /* this packet, otherwise we reject it              */
7167     count = 0;
7168     Num = 0xffff;
7169     for(i=0; i<APPLptr->MaxBuffer; i++) {
7170       if(NCCIcode==APPLptr->DataNCCI[i]) count++;
7171       if(!APPLptr->DataNCCI[i] && Num==0xffff) Num = i;
7172     }
7173
7174     if(count>=APPLptr->MaxNCCIData || Num==0xffff)
7175     {
7176       dbug(3,dprintf("Flow-Control"));
7177       plci->NL.RNR = 1;
7178       if( ++(APPLptr->NCCIDataFlowCtrlTimer)>=
7179        (word)((a->manufacturer_features & MANUFACTURER_FEATURE_OOB_CHANNEL) ? 40 : 2000))
7180       {
7181         plci->NL.RNR = 2;
7182         dbug(3,dprintf("DiscardData"));
7183       } else {
7184         channel_x_off (plci, ch, 0);
7185       }
7186       break;
7187     }
7188     else
7189     {
7190       APPLptr->NCCIDataFlowCtrlTimer = 0;
7191     }
7192
7193     plci->RData[0].P = ReceiveBufferGet(APPLptr,Num);
7194     if(!plci->RData[0].P) {
7195       plci->NL.RNR = 1;
7196       channel_x_off (plci, ch, 0);
7197       break;
7198     }
7199
7200     APPLptr->DataNCCI[Num] = NCCIcode;
7201     APPLptr->DataFlags[Num] = (plci->Id<<8) | (plci->NL.Ind>>4);
7202     dbug(3,dprintf("Buffer(%d), Max = %d",Num,APPLptr->MaxBuffer));
7203
7204     plci->RNum = Num;
7205     plci->RFlags = plci->NL.Ind>>4;
7206     plci->RData[0].PLength = APPLptr->MaxDataLength;
7207     plci->NL.R = plci->RData;
7208     if ((plci->NL.RLength != 0)
7209      && ((plci->B2_prot == B2_V120_ASYNC)
7210       || (plci->B2_prot == B2_V120_ASYNC_V42BIS)
7211       || (plci->B2_prot == B2_V120_BIT_TRANSPARENT)))
7212     {
7213       plci->RData[1].P = plci->RData[0].P;
7214       plci->RData[1].PLength = plci->RData[0].PLength;
7215       plci->RData[0].P = v120_header_buffer + (-((int) v120_header_buffer) & 3);
7216       if ((plci->NL.RBuffer->P[0] & V120_HEADER_EXTEND_BIT) || (plci->NL.RLength == 1))
7217         plci->RData[0].PLength = 1;
7218       else
7219         plci->RData[0].PLength = 2;
7220       if (plci->NL.RBuffer->P[0] & V120_HEADER_BREAK_BIT)
7221         plci->RFlags |= 0x0010;
7222       if (plci->NL.RBuffer->P[0] & (V120_HEADER_C1_BIT | V120_HEADER_C2_BIT))
7223         plci->RFlags |= 0x8000;
7224       plci->NL.RNum = 2;
7225     }
7226     else
7227     {
7228       if((plci->NL.Ind &0x0f)==N_UDATA)
7229         plci->RFlags |= 0x0010;
7230
7231       else if ((plci->B3_prot == B3_RTP) && ((plci->NL.Ind & 0x0f) == N_BDATA))
7232         plci->RFlags |= 0x0001;
7233
7234       plci->NL.RNum = 1;
7235     }
7236     break;
7237   case N_DATA_ACK:
7238     data_ack (plci, ch);
7239     break;
7240   default:
7241     plci->NL.RNR = 2;
7242     break;
7243   }
7244 }
7245
7246 /*------------------------------------------------------------------*/
7247 /* find a free PLCI                                                 */
7248 /*------------------------------------------------------------------*/
7249
7250 word get_plci(DIVA_CAPI_ADAPTER   * a)
7251 {
7252   word i,j;
7253   PLCI   * plci;
7254
7255   dump_plcis (a);
7256   for(i=0;i<a->max_plci && a->plci[i].Id;i++);
7257   if(i==a->max_plci) {
7258     dbug(1,dprintf("get_plci: out of PLCIs"));
7259     return 0;
7260   }
7261   plci = &a->plci[i];
7262   plci->Id = (byte)(i+1);
7263
7264   plci->Sig.Id = 0;
7265   plci->NL.Id = 0;
7266   plci->sig_req = 0;
7267   plci->nl_req = 0;
7268
7269   plci->appl = NULL;
7270   plci->relatedPTYPLCI = NULL;
7271   plci->State = IDLE;
7272   plci->SuppState = IDLE;
7273   plci->channels = 0;
7274   plci->tel = 0;
7275   plci->B1_resource = 0;
7276   plci->B2_prot = 0;
7277   plci->B3_prot = 0;
7278
7279   plci->command = 0;
7280   plci->m_command = 0;
7281   init_internal_command_queue (plci);
7282   plci->number = 0;
7283   plci->req_in_start = 0;
7284   plci->req_in = 0;
7285   plci->req_out = 0;
7286   plci->msg_in_write_pos = MSG_IN_QUEUE_SIZE;
7287   plci->msg_in_read_pos = MSG_IN_QUEUE_SIZE;
7288   plci->msg_in_wrap_pos = MSG_IN_QUEUE_SIZE;
7289
7290   plci->data_sent = false;
7291   plci->send_disc = 0;
7292   plci->sig_global_req = 0;
7293   plci->sig_remove_id = 0;
7294   plci->nl_global_req = 0;
7295   plci->nl_remove_id = 0;
7296   plci->adv_nl = 0;
7297   plci->manufacturer = false;
7298   plci->call_dir = CALL_DIR_OUT | CALL_DIR_ORIGINATE;
7299   plci->spoofed_msg = 0;
7300   plci->ptyState = 0;
7301   plci->cr_enquiry = false;
7302   plci->hangup_flow_ctrl_timer = 0;
7303
7304   plci->ncci_ring_list = 0;
7305   for(j=0;j<MAX_CHANNELS_PER_PLCI;j++) plci->inc_dis_ncci_table[j] = 0;
7306   clear_c_ind_mask (plci);
7307   set_group_ind_mask (plci);
7308   plci->fax_connect_info_length = 0;
7309   plci->nsf_control_bits = 0;
7310   plci->ncpi_state = 0x00;
7311   plci->ncpi_buffer[0] = 0;
7312
7313   plci->requested_options_conn = 0;
7314   plci->requested_options = 0;
7315   plci->notifiedcall = 0;
7316   plci->vswitchstate = 0;
7317   plci->vsprot = 0;
7318   plci->vsprotdialect = 0;
7319   init_b1_config (plci);
7320   dbug(1,dprintf("get_plci(%x)",plci->Id));
7321   return i+1;
7322 }
7323
7324 /*------------------------------------------------------------------*/
7325 /* put a parameter in the parameter buffer                          */
7326 /*------------------------------------------------------------------*/
7327
7328 static void add_p(PLCI   * plci, byte code, byte   * p)
7329 {
7330   word p_length;
7331
7332   p_length = 0;
7333   if(p) p_length = p[0];
7334   add_ie(plci, code, p, p_length);
7335 }
7336
7337 /*------------------------------------------------------------------*/
7338 /* put a structure in the parameter buffer                          */
7339 /*------------------------------------------------------------------*/
7340 static void add_s(PLCI   * plci, byte code, API_PARSE * p)
7341 {
7342   if(p) add_ie(plci, code, p->info, (word)p->length);
7343 }
7344
7345 /*------------------------------------------------------------------*/
7346 /* put multiple structures in the parameter buffer                  */
7347 /*------------------------------------------------------------------*/
7348 static void add_ss(PLCI   * plci, byte code, API_PARSE * p)
7349 {
7350   byte i;
7351
7352   if(p){
7353     dbug(1,dprintf("add_ss(%x,len=%d)",code,p->length));
7354     for(i=2;i<(byte)p->length;i+=p->info[i]+2){
7355       dbug(1,dprintf("add_ss_ie(%x,len=%d)",p->info[i-1],p->info[i]));
7356       add_ie(plci, p->info[i-1], (byte   *)&(p->info[i]), (word)p->info[i]);
7357     }
7358   }
7359 }
7360
7361 /*------------------------------------------------------------------*/
7362 /* return the channel number sent by the application in a esc_chi   */
7363 /*------------------------------------------------------------------*/
7364 static byte getChannel(API_PARSE * p)
7365 {
7366   byte i;
7367
7368   if(p){
7369     for(i=2;i<(byte)p->length;i+=p->info[i]+2){
7370       if(p->info[i]==2){
7371         if(p->info[i-1]==ESC && p->info[i+1]==CHI) return (p->info[i+2]);
7372       }
7373     }
7374   }
7375   return 0;
7376 }
7377
7378
7379 /*------------------------------------------------------------------*/
7380 /* put an information element in the parameter buffer               */
7381 /*------------------------------------------------------------------*/
7382
7383 static void add_ie(PLCI   * plci, byte code, byte   * p, word p_length)
7384 {
7385   word i;
7386
7387   if(!(code &0x80) && !p_length) return;
7388
7389   if(plci->req_in==plci->req_in_start) {
7390     plci->req_in +=2;
7391   }
7392   else {
7393     plci->req_in--;
7394   }
7395   plci->RBuffer[plci->req_in++] = code;
7396
7397   if(p) {
7398     plci->RBuffer[plci->req_in++] = (byte)p_length;
7399     for(i=0;i<p_length;i++) plci->RBuffer[plci->req_in++] = p[1+i];
7400   }
7401
7402   plci->RBuffer[plci->req_in++] = 0;
7403 }
7404
7405 /*------------------------------------------------------------------*/
7406 /* put a unstructured data into the buffer                          */
7407 /*------------------------------------------------------------------*/
7408
7409 void add_d(PLCI   * plci, word length, byte   * p)
7410 {
7411   word i;
7412
7413   if(plci->req_in==plci->req_in_start) {
7414     plci->req_in +=2;
7415   }
7416   else {
7417     plci->req_in--;
7418   }
7419   for(i=0;i<length;i++) plci->RBuffer[plci->req_in++] = p[i];
7420 }
7421
7422 /*------------------------------------------------------------------*/
7423 /* put parameters from the Additional Info parameter in the         */
7424 /* parameter buffer                                                 */
7425 /*------------------------------------------------------------------*/
7426
7427 void add_ai(PLCI   * plci, API_PARSE * ai)
7428 {
7429   word i;
7430     API_PARSE ai_parms[5];
7431
7432   for(i=0;i<5;i++) ai_parms[i].length = 0;
7433
7434   if(!ai->length)
7435     return;
7436   if(api_parse(&ai->info[1], (word)ai->length, "ssss", ai_parms))
7437     return;
7438
7439   add_s (plci,KEY,&ai_parms[1]);
7440   add_s (plci,UUI,&ai_parms[2]);
7441   add_ss(plci,FTY,&ai_parms[3]);
7442 }
7443
7444 /*------------------------------------------------------------------*/
7445 /* put parameter for b1 protocol in the parameter buffer            */
7446 /*------------------------------------------------------------------*/
7447
7448 word add_b1(PLCI   * plci, API_PARSE * bp, word b_channel_info, word b1_facilities)
7449 {
7450     API_PARSE bp_parms[8];
7451     API_PARSE mdm_cfg[9];
7452     API_PARSE global_config[2];
7453     byte cai[256];
7454   byte resource[] = {5,9,13,12,16,39,9,17,17,18};
7455   byte voice_cai[] = "\x06\x14\x00\x00\x00\x00\x08";
7456   word i;
7457
7458     API_PARSE mdm_cfg_v18[4];
7459   word j, n, w;
7460   dword d;
7461
7462
7463   for(i=0;i<8;i++) bp_parms[i].length = 0;
7464   for(i=0;i<2;i++) global_config[i].length = 0;
7465
7466   dbug(1,dprintf("add_b1"));
7467   api_save_msg(bp, "s", &plci->B_protocol);
7468
7469   if(b_channel_info==2){
7470     plci->B1_resource = 0;
7471     adjust_b1_facilities (plci, plci->B1_resource, b1_facilities);
7472     add_p(plci, CAI, "\x01\x00");
7473     dbug(1,dprintf("Cai=1,0 (no resource)"));
7474     return 0;
7475   }
7476
7477   if(plci->tel == CODEC_PERMANENT) return 0;
7478   else if(plci->tel == CODEC){
7479     plci->B1_resource = 1;
7480     adjust_b1_facilities (plci, plci->B1_resource, b1_facilities);
7481     add_p(plci, CAI, "\x01\x01");
7482     dbug(1,dprintf("Cai=1,1 (Codec)"));
7483     return 0;
7484   }
7485   else if(plci->tel == ADV_VOICE){
7486     plci->B1_resource = add_b1_facilities (plci, 9, (word)(b1_facilities | B1_FACILITY_VOICE));
7487     adjust_b1_facilities (plci, plci->B1_resource, (word)(b1_facilities | B1_FACILITY_VOICE));
7488     voice_cai[1] = plci->B1_resource;
7489     PUT_WORD (&voice_cai[5], plci->appl->MaxDataLength);
7490     add_p(plci, CAI, voice_cai);
7491     dbug(1,dprintf("Cai=1,0x%x (AdvVoice)",voice_cai[1]));
7492     return 0;
7493   }
7494   plci->call_dir &= ~(CALL_DIR_ORIGINATE | CALL_DIR_ANSWER);
7495   if (plci->call_dir & CALL_DIR_OUT)
7496     plci->call_dir |= CALL_DIR_ORIGINATE;
7497   else if (plci->call_dir & CALL_DIR_IN)
7498     plci->call_dir |= CALL_DIR_ANSWER;
7499
7500   if(!bp->length){
7501     plci->B1_resource = 0x5;
7502     adjust_b1_facilities (plci, plci->B1_resource, b1_facilities);
7503     add_p(plci, CAI, "\x01\x05");
7504     return 0;
7505   }
7506
7507   dbug(1,dprintf("b_prot_len=%d",(word)bp->length));
7508   if(bp->length>256) return _WRONG_MESSAGE_FORMAT;
7509   if(api_parse(&bp->info[1], (word)bp->length, "wwwsssb", bp_parms))
7510   {
7511     bp_parms[6].length = 0;
7512     if(api_parse(&bp->info[1], (word)bp->length, "wwwsss", bp_parms))
7513     {
7514       dbug(1,dprintf("b-form.!"));
7515       return _WRONG_MESSAGE_FORMAT;
7516     }
7517   }
7518   else if (api_parse(&bp->info[1], (word)bp->length, "wwwssss", bp_parms))
7519   {
7520     dbug(1,dprintf("b-form.!"));
7521     return _WRONG_MESSAGE_FORMAT;
7522   }
7523
7524   if(bp_parms[6].length)
7525   {
7526     if(api_parse(&bp_parms[6].info[1], (word)bp_parms[6].length, "w", global_config))
7527     {
7528       return _WRONG_MESSAGE_FORMAT;
7529     }
7530     switch(GET_WORD(global_config[0].info))
7531     {
7532     case 1:
7533       plci->call_dir = (plci->call_dir & ~CALL_DIR_ANSWER) | CALL_DIR_ORIGINATE;
7534       break;
7535     case 2:
7536       plci->call_dir = (plci->call_dir & ~CALL_DIR_ORIGINATE) | CALL_DIR_ANSWER;
7537       break;
7538     }
7539   }
7540   dbug(1,dprintf("call_dir=%04x", plci->call_dir));
7541
7542
7543   if ((GET_WORD(bp_parms[0].info) == B1_RTP)
7544    && (plci->adapter->man_profile.private_options & (1L << PRIVATE_RTP)))
7545   {
7546     plci->B1_resource = add_b1_facilities (plci, 31, (word)(b1_facilities & ~B1_FACILITY_VOICE));
7547     adjust_b1_facilities (plci, plci->B1_resource, (word)(b1_facilities & ~B1_FACILITY_VOICE));
7548     cai[1] = plci->B1_resource;
7549     cai[2] = 0;
7550     cai[3] = 0;
7551     cai[4] = 0;
7552     PUT_WORD(&cai[5],plci->appl->MaxDataLength);
7553     for (i = 0; i < bp_parms[3].length; i++)
7554       cai[7+i] = bp_parms[3].info[1+i];
7555     cai[0] = 6 + bp_parms[3].length;
7556     add_p(plci, CAI, cai);
7557     return 0;
7558   }
7559
7560
7561   if ((GET_WORD(bp_parms[0].info) == B1_PIAFS)
7562    && (plci->adapter->man_profile.private_options & (1L << PRIVATE_PIAFS)))
7563   {
7564     plci->B1_resource = add_b1_facilities (plci, 35/* PIAFS HARDWARE FACILITY */, (word)(b1_facilities & ~B1_FACILITY_VOICE));
7565     adjust_b1_facilities (plci, plci->B1_resource, (word)(b1_facilities & ~B1_FACILITY_VOICE));
7566     cai[1] = plci->B1_resource;
7567     cai[2] = 0;
7568     cai[3] = 0;
7569     cai[4] = 0;
7570     PUT_WORD(&cai[5],plci->appl->MaxDataLength);
7571     cai[0] = 6;
7572     add_p(plci, CAI, cai);
7573     return 0;
7574   }
7575
7576
7577   if ((GET_WORD(bp_parms[0].info) >= 32)
7578    || (!((1L << GET_WORD(bp_parms[0].info)) & plci->adapter->profile.B1_Protocols)
7579     && ((GET_WORD(bp_parms[0].info) != 3)
7580      || !((1L << B1_HDLC) & plci->adapter->profile.B1_Protocols)
7581      || ((bp_parms[3].length != 0) && (GET_WORD(&bp_parms[3].info[1]) != 0) && (GET_WORD(&bp_parms[3].info[1]) != 56000)))))
7582   {
7583     return _B1_NOT_SUPPORTED;
7584   }
7585   plci->B1_resource = add_b1_facilities (plci, resource[GET_WORD(bp_parms[0].info)],
7586     (word)(b1_facilities & ~B1_FACILITY_VOICE));
7587   adjust_b1_facilities (plci, plci->B1_resource, (word)(b1_facilities & ~B1_FACILITY_VOICE));
7588   cai[0] = 6;
7589   cai[1] = plci->B1_resource;
7590   for (i=2;i<sizeof(cai);i++) cai[i] = 0;
7591
7592   if ((GET_WORD(bp_parms[0].info) == B1_MODEM_ALL_NEGOTIATE)
7593    || (GET_WORD(bp_parms[0].info) == B1_MODEM_ASYNC)
7594    || (GET_WORD(bp_parms[0].info) == B1_MODEM_SYNC_HDLC))
7595   { /* B1 - modem */
7596     for (i=0;i<7;i++) mdm_cfg[i].length = 0;
7597
7598     if (bp_parms[3].length)
7599     {
7600       if(api_parse(&bp_parms[3].info[1],(word)bp_parms[3].length,"wwwwww", mdm_cfg))
7601       {
7602         return (_WRONG_MESSAGE_FORMAT);
7603       }
7604
7605       cai[2] = 0; /* Bit rate for adaptation */
7606
7607       dbug(1,dprintf("MDM Max Bit Rate:<%d>", GET_WORD(mdm_cfg[0].info)));
7608
7609       PUT_WORD (&cai[13], 0);                          /* Min Tx speed */
7610       PUT_WORD (&cai[15], GET_WORD(mdm_cfg[0].info)); /* Max Tx speed */
7611       PUT_WORD (&cai[17], 0);                          /* Min Rx speed */
7612       PUT_WORD (&cai[19], GET_WORD(mdm_cfg[0].info)); /* Max Rx speed */
7613
7614       cai[3] = 0; /* Async framing parameters */
7615       switch (GET_WORD (mdm_cfg[2].info))
7616       {       /* Parity     */
7617       case 1: /* odd parity */
7618         cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_ODD);
7619         dbug(1,dprintf("MDM: odd parity"));
7620         break;
7621
7622       case 2: /* even parity */
7623         cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_EVEN);
7624         dbug(1,dprintf("MDM: even parity"));
7625         break;
7626
7627       default:
7628         dbug(1,dprintf("MDM: no parity"));
7629         break;
7630       }
7631
7632       switch (GET_WORD (mdm_cfg[3].info))
7633       {       /* stop bits   */
7634       case 1: /* 2 stop bits */
7635         cai[3] |= DSP_CAI_ASYNC_TWO_STOP_BITS;
7636         dbug(1,dprintf("MDM: 2 stop bits"));
7637         break;
7638
7639       default:
7640         dbug(1,dprintf("MDM: 1 stop bit"));
7641         break;
7642       }
7643
7644       switch (GET_WORD (mdm_cfg[1].info))
7645       {     /* char length */
7646       case 5:
7647         cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_5;
7648         dbug(1,dprintf("MDM: 5 bits"));
7649         break;
7650
7651       case 6:
7652         cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_6;
7653         dbug(1,dprintf("MDM: 6 bits"));
7654         break;
7655
7656       case 7:
7657         cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_7;
7658         dbug(1,dprintf("MDM: 7 bits"));
7659         break;
7660
7661       default:
7662         dbug(1,dprintf("MDM: 8 bits"));
7663         break;
7664       }
7665
7666       cai[7] = 0; /* Line taking options */
7667       cai[8] = 0; /* Modulation negotiation options */
7668       cai[9] = 0; /* Modulation options */
7669
7670       if (((plci->call_dir & CALL_DIR_ORIGINATE) != 0) ^ ((plci->call_dir & CALL_DIR_OUT) != 0))
7671       {
7672         cai[9] |= DSP_CAI_MODEM_REVERSE_DIRECTION;
7673         dbug(1, dprintf("MDM: Reverse direction"));
7674       }
7675
7676       if (GET_WORD (mdm_cfg[4].info) & MDM_CAPI_DISABLE_RETRAIN)
7677       {
7678         cai[9] |= DSP_CAI_MODEM_DISABLE_RETRAIN;
7679         dbug(1, dprintf("MDM: Disable retrain"));
7680       }
7681
7682       if (GET_WORD (mdm_cfg[4].info) & MDM_CAPI_DISABLE_RING_TONE)
7683       {
7684         cai[7] |= DSP_CAI_MODEM_DISABLE_CALLING_TONE | DSP_CAI_MODEM_DISABLE_ANSWER_TONE;
7685         dbug(1, dprintf("MDM: Disable ring tone"));
7686       }
7687
7688       if (GET_WORD (mdm_cfg[4].info) & MDM_CAPI_GUARD_1800)
7689       {
7690         cai[8] |= DSP_CAI_MODEM_GUARD_TONE_1800HZ;
7691         dbug(1, dprintf("MDM: 1800 guard tone"));
7692       }
7693       else if (GET_WORD (mdm_cfg[4].info) & MDM_CAPI_GUARD_550 )
7694       {
7695         cai[8] |= DSP_CAI_MODEM_GUARD_TONE_550HZ;
7696         dbug(1, dprintf("MDM: 550 guard tone"));
7697       }
7698
7699       if ((GET_WORD (mdm_cfg[5].info) & 0x00ff) == MDM_CAPI_NEG_V100)
7700       {
7701         cai[8] |= DSP_CAI_MODEM_NEGOTIATE_V100;
7702         dbug(1, dprintf("MDM: V100"));
7703       }
7704       else if ((GET_WORD (mdm_cfg[5].info) & 0x00ff) == MDM_CAPI_NEG_MOD_CLASS)
7705       {
7706         cai[8] |= DSP_CAI_MODEM_NEGOTIATE_IN_CLASS;
7707         dbug(1, dprintf("MDM: IN CLASS"));
7708       }
7709       else if ((GET_WORD (mdm_cfg[5].info) & 0x00ff) == MDM_CAPI_NEG_DISABLED)
7710       {
7711         cai[8] |= DSP_CAI_MODEM_NEGOTIATE_DISABLED;
7712         dbug(1, dprintf("MDM: DISABLED"));
7713       }
7714       cai[0] = 20;
7715
7716       if ((plci->adapter->man_profile.private_options & (1L << PRIVATE_V18))
7717        && (GET_WORD(mdm_cfg[5].info) & 0x8000)) /* Private V.18 enable */
7718       {
7719         plci->requested_options |= 1L << PRIVATE_V18;
7720       }
7721       if (GET_WORD(mdm_cfg[5].info) & 0x4000) /* Private VOWN enable */
7722         plci->requested_options |= 1L << PRIVATE_VOWN;
7723
7724       if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id-1])
7725         & ((1L << PRIVATE_V18) | (1L << PRIVATE_VOWN)))
7726       {
7727         if (!api_parse(&bp_parms[3].info[1],(word)bp_parms[3].length,"wwwwwws", mdm_cfg))
7728         {
7729           i = 27;
7730           if (mdm_cfg[6].length >= 4)
7731           {
7732             d = GET_DWORD(&mdm_cfg[6].info[1]);
7733             cai[7] |= (byte) d;          /* line taking options */
7734             cai[9] |= (byte)(d >> 8);    /* modulation options */
7735             cai[++i] = (byte)(d >> 16);  /* vown modulation options */
7736             cai[++i] = (byte)(d >> 24);
7737             if (mdm_cfg[6].length >= 8)
7738             {
7739               d = GET_DWORD(&mdm_cfg[6].info[5]);
7740               cai[10] |= (byte) d;        /* disabled modulations mask */
7741               cai[11] |= (byte)(d >> 8);
7742               if (mdm_cfg[6].length >= 12)
7743               {
7744                 d = GET_DWORD(&mdm_cfg[6].info[9]);
7745                 cai[12] = (byte) d;          /* enabled modulations mask */
7746                 cai[++i] = (byte)(d >> 8);   /* vown enabled modulations */
7747                 cai[++i] = (byte)(d >> 16);
7748                 cai[++i] = (byte)(d >> 24);
7749                 cai[++i] = 0;
7750                 if (mdm_cfg[6].length >= 14)
7751                 {
7752                   w = GET_WORD(&mdm_cfg[6].info[13]);
7753                   if (w != 0)
7754                     PUT_WORD(&cai[13], w);  /* min tx speed */
7755                   if (mdm_cfg[6].length >= 16)
7756                   {
7757                     w = GET_WORD(&mdm_cfg[6].info[15]);
7758                     if (w != 0)
7759                       PUT_WORD(&cai[15], w);  /* max tx speed */
7760                     if (mdm_cfg[6].length >= 18)
7761                     {
7762                       w = GET_WORD(&mdm_cfg[6].info[17]);
7763                       if (w != 0)
7764                         PUT_WORD(&cai[17], w);  /* min rx speed */
7765                       if (mdm_cfg[6].length >= 20)
7766                       {
7767                         w = GET_WORD(&mdm_cfg[6].info[19]);
7768                         if (w != 0)
7769                           PUT_WORD(&cai[19], w);  /* max rx speed */
7770                         if (mdm_cfg[6].length >= 22)
7771                         {
7772                           w = GET_WORD(&mdm_cfg[6].info[21]);
7773                           cai[23] = (byte)(-((short) w));  /* transmit level */
7774                           if (mdm_cfg[6].length >= 24)
7775                           {
7776                             w = GET_WORD(&mdm_cfg[6].info[23]);
7777                             cai[22] |= (byte) w;        /* info options mask */
7778                             cai[21] |= (byte)(w >> 8);  /* disabled symbol rates */
7779                           }
7780                         }
7781                       }
7782                     }
7783                   }
7784                 }
7785               }
7786             }
7787           }
7788           cai[27] = i - 27;
7789           i++;
7790           if (!api_parse(&bp_parms[3].info[1],(word)bp_parms[3].length,"wwwwwwss", mdm_cfg))
7791           {
7792             if (!api_parse(&mdm_cfg[7].info[1],(word)mdm_cfg[7].length,"sss", mdm_cfg_v18))
7793             {
7794               for (n = 0; n < 3; n++)
7795               {
7796                 cai[i] = (byte)(mdm_cfg_v18[n].length);
7797                 for (j = 1; j < ((word)(cai[i] + 1)); j++)
7798                   cai[i+j] = mdm_cfg_v18[n].info[j];
7799                 i += cai[i] + 1;
7800               }
7801             }
7802           }
7803           cai[0] = (byte)(i - 1);
7804         }
7805       }
7806
7807     }
7808   }
7809   if(GET_WORD(bp_parms[0].info)==2 ||                         /* V.110 async */
7810      GET_WORD(bp_parms[0].info)==3 )                          /* V.110 sync */
7811   {
7812     if(bp_parms[3].length){
7813       dbug(1,dprintf("V.110,%d",GET_WORD(&bp_parms[3].info[1])));
7814       switch(GET_WORD(&bp_parms[3].info[1])){                 /* Rate */
7815         case 0:
7816         case 56000:
7817           if(GET_WORD(bp_parms[0].info)==3){                  /* V.110 sync 56k */
7818             dbug(1,dprintf("56k sync HSCX"));
7819             cai[1] = 8;
7820             cai[2] = 0;
7821             cai[3] = 0;
7822           }
7823           else if(GET_WORD(bp_parms[0].info)==2){
7824             dbug(1,dprintf("56k async DSP"));
7825             cai[2] = 9;
7826           }
7827           break;
7828         case 50:     cai[2] = 1;  break;
7829         case 75:     cai[2] = 1;  break;
7830         case 110:    cai[2] = 1;  break;
7831         case 150:    cai[2] = 1;  break;
7832         case 200:    cai[2] = 1;  break;
7833         case 300:    cai[2] = 1;  break;
7834         case 600:    cai[2] = 1;  break;
7835         case 1200:   cai[2] = 2;  break;
7836         case 2400:   cai[2] = 3;  break;
7837         case 4800:   cai[2] = 4;  break;
7838         case 7200:   cai[2] = 10; break;
7839         case 9600:   cai[2] = 5;  break;
7840         case 12000:  cai[2] = 13; break;
7841         case 24000:  cai[2] = 0;  break;
7842         case 14400:  cai[2] = 11; break;
7843         case 19200:  cai[2] = 6;  break;
7844         case 28800:  cai[2] = 12; break;
7845         case 38400:  cai[2] = 7;  break;
7846         case 48000:  cai[2] = 8;  break;
7847         case 76:     cai[2] = 15; break;  /* 75/1200     */
7848         case 1201:   cai[2] = 14; break;  /* 1200/75     */
7849         case 56001:  cai[2] = 9;  break;  /* V.110 56000 */
7850
7851         default:
7852           return _B1_PARM_NOT_SUPPORTED;
7853       }
7854       cai[3] = 0;
7855       if (cai[1] == 13)                                        /* v.110 async */
7856       {
7857         if (bp_parms[3].length >= 8)
7858         {
7859           switch (GET_WORD (&bp_parms[3].info[3]))
7860           {       /* char length */
7861           case 5:
7862             cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_5;
7863             break;
7864           case 6:
7865             cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_6;
7866             break;
7867           case 7:
7868             cai[3] |= DSP_CAI_ASYNC_CHAR_LENGTH_7;
7869             break;
7870           }
7871           switch (GET_WORD (&bp_parms[3].info[5]))
7872           {       /* Parity     */
7873           case 1: /* odd parity */
7874             cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_ODD);
7875             break;
7876           case 2: /* even parity */
7877             cai[3] |= (DSP_CAI_ASYNC_PARITY_ENABLE | DSP_CAI_ASYNC_PARITY_EVEN);
7878             break;
7879           }
7880           switch (GET_WORD (&bp_parms[3].info[7]))
7881           {       /* stop bits   */
7882           case 1: /* 2 stop bits */
7883             cai[3] |= DSP_CAI_ASYNC_TWO_STOP_BITS;
7884             break;
7885           }
7886         }
7887       }
7888     }
7889     else if(cai[1]==8 || GET_WORD(bp_parms[0].info)==3 ){
7890       dbug(1,dprintf("V.110 default 56k sync"));
7891       cai[1] = 8;
7892       cai[2] = 0;
7893       cai[3] = 0;
7894     }
7895     else {
7896       dbug(1,dprintf("V.110 default 9600 async"));
7897       cai[2] = 5;
7898     }
7899   }
7900   PUT_WORD(&cai[5],plci->appl->MaxDataLength);
7901   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]));
7902 /* HexDump ("CAI", sizeof(cai), &cai[0]); */
7903
7904   add_p(plci, CAI, cai);
7905   return 0;
7906 }
7907
7908 /*------------------------------------------------------------------*/
7909 /* put parameter for b2 and B3  protocol in the parameter buffer    */
7910 /*------------------------------------------------------------------*/
7911
7912 word add_b23(PLCI   * plci, API_PARSE * bp)
7913 {
7914   word i, fax_control_bits;
7915   byte pos, len;
7916   byte SAPI = 0x40;  /* default SAPI 16 for x.31 */
7917     API_PARSE bp_parms[8];
7918   API_PARSE * b1_config;
7919   API_PARSE * b2_config;
7920     API_PARSE b2_config_parms[8];
7921   API_PARSE * b3_config;
7922     API_PARSE b3_config_parms[6];
7923     API_PARSE global_config[2];
7924
7925   static byte llc[3] = {2,0,0};
7926   static byte dlc[20] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
7927   static byte nlc[256];
7928   static byte lli[12] = {1,1};
7929
7930   const byte llc2_out[] = {1,2,4,6,2,0,0,0, X75_V42BIS,V120_L2,V120_V42BIS,V120_L2,6};
7931   const byte llc2_in[]  = {1,3,4,6,3,0,0,0, X75_V42BIS,V120_L2,V120_V42BIS,V120_L2,6};
7932
7933   const byte llc3[] = {4,3,2,2,6,6,0};
7934   const byte header[] = {0,2,3,3,0,0,0};
7935
7936   for(i=0;i<8;i++) bp_parms[i].length = 0;
7937   for(i=0;i<6;i++) b2_config_parms[i].length = 0;
7938   for(i=0;i<5;i++) b3_config_parms[i].length = 0;
7939
7940   lli[0] = 1;
7941   lli[1] = 1;
7942   if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XONOFF_FLOW_CONTROL)
7943     lli[1] |= 2;
7944   if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_OOB_CHANNEL)
7945     lli[1] |= 4;
7946
7947   if ((lli[1] & 0x02) && (diva_xdi_extended_features & DIVA_CAPI_USE_CMA)) {
7948     lli[1] |= 0x10;
7949     if (plci->rx_dma_descriptor <= 0) {
7950       plci->rx_dma_descriptor=diva_get_dma_descriptor(plci,&plci->rx_dma_magic);
7951       if (plci->rx_dma_descriptor >= 0)
7952         plci->rx_dma_descriptor++;
7953     }
7954     if (plci->rx_dma_descriptor > 0) {
7955       lli[0] = 6;
7956       lli[1] |= 0x40;
7957       lli[2] = (byte)(plci->rx_dma_descriptor - 1);
7958       lli[3] = (byte)plci->rx_dma_magic;
7959       lli[4] = (byte)(plci->rx_dma_magic >>  8);
7960       lli[5] = (byte)(plci->rx_dma_magic >> 16);
7961       lli[6] = (byte)(plci->rx_dma_magic >> 24);
7962     }
7963   }
7964
7965   if (DIVA_CAPI_SUPPORTS_NO_CANCEL(plci->adapter)) {
7966     lli[1] |= 0x20;
7967   }
7968
7969   dbug(1,dprintf("add_b23"));
7970   api_save_msg(bp, "s", &plci->B_protocol);
7971
7972   if(!bp->length && plci->tel)
7973   {
7974     plci->adv_nl = true;
7975     dbug(1,dprintf("Default adv.Nl"));
7976     add_p(plci,LLI,lli);
7977     plci->B2_prot = 1 /*XPARENT*/;
7978     plci->B3_prot = 0 /*XPARENT*/;
7979     llc[1] = 2;
7980     llc[2] = 4;
7981     add_p(plci, LLC, llc);
7982     dlc[0] = 2;
7983     PUT_WORD(&dlc[1],plci->appl->MaxDataLength);
7984     add_p(plci, DLC, dlc);
7985     return 0;
7986   }
7987
7988   if(!bp->length) /*default*/
7989   {
7990     dbug(1,dprintf("ret default"));
7991     add_p(plci,LLI,lli);
7992     plci->B2_prot = 0 /*X.75   */;
7993     plci->B3_prot = 0 /*XPARENT*/;
7994     llc[1] = 1;
7995     llc[2] = 4;
7996     add_p(plci, LLC, llc);
7997     dlc[0] = 2;
7998     PUT_WORD(&dlc[1],plci->appl->MaxDataLength);
7999     add_p(plci, DLC, dlc);
8000     return 0;
8001   }
8002   dbug(1,dprintf("b_prot_len=%d",(word)bp->length));
8003   if((word)bp->length > 256)    return _WRONG_MESSAGE_FORMAT;
8004
8005   if(api_parse(&bp->info[1], (word)bp->length, "wwwsssb", bp_parms))
8006   {
8007     bp_parms[6].length = 0;
8008     if(api_parse(&bp->info[1], (word)bp->length, "wwwsss", bp_parms))
8009     {
8010       dbug(1,dprintf("b-form.!"));
8011       return _WRONG_MESSAGE_FORMAT;
8012     }
8013   }
8014   else if (api_parse(&bp->info[1], (word)bp->length, "wwwssss", bp_parms))
8015   {
8016     dbug(1,dprintf("b-form.!"));
8017     return _WRONG_MESSAGE_FORMAT;
8018   }
8019
8020   if(plci->tel==ADV_VOICE) /* transparent B on advanced voice */
8021   {
8022     if(GET_WORD(bp_parms[1].info)!=1
8023     || GET_WORD(bp_parms[2].info)!=0) return _B2_NOT_SUPPORTED;
8024     plci->adv_nl = true;
8025   }
8026   else if(plci->tel) return _B2_NOT_SUPPORTED;
8027
8028
8029   if ((GET_WORD(bp_parms[1].info) == B2_RTP)
8030    && (GET_WORD(bp_parms[2].info) == B3_RTP)
8031    && (plci->adapter->man_profile.private_options & (1L << PRIVATE_RTP)))
8032   {
8033     add_p(plci,LLI,lli);
8034     plci->B2_prot = (byte) GET_WORD(bp_parms[1].info);
8035     plci->B3_prot = (byte) GET_WORD(bp_parms[2].info);
8036     llc[1] = (plci->call_dir & (CALL_DIR_ORIGINATE | CALL_DIR_FORCE_OUTG_NL)) ? 14 : 13;
8037     llc[2] = 4;
8038     add_p(plci, LLC, llc);
8039     dlc[0] = 2;
8040     PUT_WORD(&dlc[1],plci->appl->MaxDataLength);
8041     dlc[3] = 3; /* Addr A */
8042     dlc[4] = 1; /* Addr B */
8043     dlc[5] = 7; /* modulo mode */
8044     dlc[6] = 7; /* window size */
8045     dlc[7] = 0; /* XID len Lo  */
8046     dlc[8] = 0; /* XID len Hi  */
8047     for (i = 0; i < bp_parms[4].length; i++)
8048       dlc[9+i] = bp_parms[4].info[1+i];
8049     dlc[0] = (byte)(8 + bp_parms[4].length);
8050     add_p(plci, DLC, dlc);
8051     for (i = 0; i < bp_parms[5].length; i++)
8052       nlc[1+i] = bp_parms[5].info[1+i];
8053     nlc[0] = (byte)(bp_parms[5].length);
8054     add_p(plci, NLC, nlc);
8055     return 0;
8056   }
8057
8058
8059
8060   if ((GET_WORD(bp_parms[1].info) >= 32)
8061    || (!((1L << GET_WORD(bp_parms[1].info)) & plci->adapter->profile.B2_Protocols)
8062     && ((GET_WORD(bp_parms[1].info) != B2_PIAFS)
8063      || !(plci->adapter->man_profile.private_options & (1L << PRIVATE_PIAFS)))))
8064
8065   {
8066     return _B2_NOT_SUPPORTED;
8067   }
8068   if ((GET_WORD(bp_parms[2].info) >= 32)
8069    || !((1L << GET_WORD(bp_parms[2].info)) & plci->adapter->profile.B3_Protocols))
8070   {
8071     return _B3_NOT_SUPPORTED;
8072   }
8073   if ((GET_WORD(bp_parms[1].info) != B2_SDLC)
8074    && ((GET_WORD(bp_parms[0].info) == B1_MODEM_ALL_NEGOTIATE)
8075     || (GET_WORD(bp_parms[0].info) == B1_MODEM_ASYNC)
8076     || (GET_WORD(bp_parms[0].info) == B1_MODEM_SYNC_HDLC)))
8077   {
8078     return (add_modem_b23 (plci, bp_parms));
8079   }
8080
8081   add_p(plci,LLI,lli);
8082
8083   plci->B2_prot = (byte) GET_WORD(bp_parms[1].info);
8084   plci->B3_prot = (byte) GET_WORD(bp_parms[2].info);
8085   if(plci->B2_prot==12) SAPI = 0; /* default SAPI D-channel */
8086
8087   if(bp_parms[6].length)
8088   {
8089     if(api_parse(&bp_parms[6].info[1], (word)bp_parms[6].length, "w", global_config))
8090     {
8091       return _WRONG_MESSAGE_FORMAT;
8092     }
8093     switch(GET_WORD(global_config[0].info))
8094     {
8095     case 1:
8096       plci->call_dir = (plci->call_dir & ~CALL_DIR_ANSWER) | CALL_DIR_ORIGINATE;
8097       break;
8098     case 2:
8099       plci->call_dir = (plci->call_dir & ~CALL_DIR_ORIGINATE) | CALL_DIR_ANSWER;
8100       break;
8101     }
8102   }
8103   dbug(1,dprintf("call_dir=%04x", plci->call_dir));
8104
8105
8106   if (plci->B2_prot == B2_PIAFS)
8107     llc[1] = PIAFS_CRC;
8108   else
8109 /* IMPLEMENT_PIAFS */
8110   {
8111     llc[1] = (plci->call_dir & (CALL_DIR_ORIGINATE | CALL_DIR_FORCE_OUTG_NL)) ?
8112              llc2_out[GET_WORD(bp_parms[1].info)] : llc2_in[GET_WORD(bp_parms[1].info)];
8113   }
8114   llc[2] = llc3[GET_WORD(bp_parms[2].info)];
8115
8116   add_p(plci, LLC, llc);
8117
8118   dlc[0] = 2;
8119   PUT_WORD(&dlc[1], plci->appl->MaxDataLength +
8120                       header[GET_WORD(bp_parms[2].info)]);
8121
8122   b1_config = &bp_parms[3];
8123   nlc[0] = 0;
8124   if(plci->B3_prot == 4
8125   || plci->B3_prot == 5)
8126   {
8127     for (i=0;i<sizeof(T30_INFO);i++) nlc[i] = 0;
8128     nlc[0] = sizeof(T30_INFO);
8129     if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS)
8130       ((T30_INFO *)&nlc[1])->operating_mode = T30_OPERATING_MODE_CAPI;
8131     ((T30_INFO *)&nlc[1])->rate_div_2400 = 0xff;
8132     if(b1_config->length>=2)
8133     {
8134       ((T30_INFO *)&nlc[1])->rate_div_2400 = (byte)(GET_WORD(&b1_config->info[1])/2400);
8135     }
8136   }
8137   b2_config = &bp_parms[4];
8138
8139
8140   if (llc[1] == PIAFS_CRC)
8141   {
8142     if (plci->B3_prot != B3_TRANSPARENT)
8143     {
8144       return _B_STACK_NOT_SUPPORTED;
8145     }
8146     if(b2_config->length && api_parse(&b2_config->info[1], (word)b2_config->length, "bwww", b2_config_parms)) {
8147       return _WRONG_MESSAGE_FORMAT;
8148     }
8149     PUT_WORD(&dlc[1],plci->appl->MaxDataLength);
8150     dlc[3] = 0; /* Addr A */
8151     dlc[4] = 0; /* Addr B */
8152     dlc[5] = 0; /* modulo mode */
8153     dlc[6] = 0; /* window size */
8154     if (b2_config->length >= 7){
8155       dlc[ 7] = 7;
8156       dlc[ 8] = 0;
8157       dlc[ 9] = b2_config_parms[0].info[0]; /* PIAFS protocol Speed configuration */
8158       dlc[10] = b2_config_parms[1].info[0]; /* V.42bis P0 */
8159       dlc[11] = b2_config_parms[1].info[1]; /* V.42bis P0 */
8160       dlc[12] = b2_config_parms[2].info[0]; /* V.42bis P1 */
8161       dlc[13] = b2_config_parms[2].info[1]; /* V.42bis P1 */
8162       dlc[14] = b2_config_parms[3].info[0]; /* V.42bis P2 */
8163       dlc[15] = b2_config_parms[3].info[1]; /* V.42bis P2 */
8164       dlc[ 0] = 15;
8165       if(b2_config->length >= 8) { /* PIAFS control abilities */
8166         dlc[ 7] = 10;
8167         dlc[16] = 2; /* Length of PIAFS extention */
8168         dlc[17] = PIAFS_UDATA_ABILITIES; /* control (UDATA) ability */
8169         dlc[18] = b2_config_parms[4].info[0]; /* value */
8170         dlc[ 0] = 18;
8171       }
8172     }
8173     else /* default values, 64K, variable, no compression */
8174     {
8175       dlc[ 7] = 7;
8176       dlc[ 8] = 0;
8177       dlc[ 9] = 0x03; /* PIAFS protocol Speed configuration */
8178       dlc[10] = 0x03; /* V.42bis P0 */
8179       dlc[11] = 0;    /* V.42bis P0 */
8180       dlc[12] = 0;    /* V.42bis P1 */
8181       dlc[13] = 0;    /* V.42bis P1 */
8182       dlc[14] = 0;    /* V.42bis P2 */
8183       dlc[15] = 0;    /* V.42bis P2 */
8184     dlc[ 0] = 15;
8185     }
8186     add_p(plci, DLC, dlc);
8187   }
8188   else
8189
8190   if ((llc[1] == V120_L2) || (llc[1] == V120_V42BIS))
8191   {
8192     if (plci->B3_prot != B3_TRANSPARENT)
8193       return _B_STACK_NOT_SUPPORTED;
8194
8195     dlc[0] = 6;
8196     PUT_WORD (&dlc[1], GET_WORD (&dlc[1]) + 2);
8197     dlc[3] = 0x08;
8198     dlc[4] = 0x01;
8199     dlc[5] = 127;
8200     dlc[6] = 7;
8201     if (b2_config->length != 0)
8202     {
8203       if((llc[1]==V120_V42BIS) && api_parse(&b2_config->info[1], (word)b2_config->length, "bbbbwww", b2_config_parms)) {
8204         return _WRONG_MESSAGE_FORMAT;
8205       }
8206       dlc[3] = (byte)((b2_config->info[2] << 3) | ((b2_config->info[1] >> 5) & 0x04));
8207       dlc[4] = (byte)((b2_config->info[1] << 1) | 0x01);
8208       if (b2_config->info[3] != 128)
8209       {
8210         dbug(1,dprintf("1D-dlc= %x %x %x %x %x", dlc[0], dlc[1], dlc[2], dlc[3], dlc[4]));
8211         return _B2_PARM_NOT_SUPPORTED;
8212       }
8213       dlc[5] = (byte)(b2_config->info[3] - 1);
8214       dlc[6] = b2_config->info[4];
8215       if(llc[1]==V120_V42BIS){
8216         if (b2_config->length >= 10){
8217           dlc[ 7] = 6;
8218           dlc[ 8] = 0;
8219           dlc[ 9] = b2_config_parms[4].info[0];
8220           dlc[10] = b2_config_parms[4].info[1];
8221           dlc[11] = b2_config_parms[5].info[0];
8222           dlc[12] = b2_config_parms[5].info[1];
8223           dlc[13] = b2_config_parms[6].info[0];
8224           dlc[14] = b2_config_parms[6].info[1];
8225           dlc[ 0] = 14;
8226           dbug(1,dprintf("b2_config_parms[4].info[0] [1]:  %x %x", b2_config_parms[4].info[0], b2_config_parms[4].info[1]));
8227           dbug(1,dprintf("b2_config_parms[5].info[0] [1]:  %x %x", b2_config_parms[5].info[0], b2_config_parms[5].info[1]));
8228           dbug(1,dprintf("b2_config_parms[6].info[0] [1]:  %x %x", b2_config_parms[6].info[0], b2_config_parms[6].info[1]));
8229         }
8230         else {
8231           dlc[ 6] = 14;
8232         }
8233       }
8234     }
8235   }
8236   else
8237   {
8238     if(b2_config->length)
8239     {
8240       dbug(1,dprintf("B2-Config"));
8241       if(llc[1]==X75_V42BIS){
8242         if(api_parse(&b2_config->info[1], (word)b2_config->length, "bbbbwww", b2_config_parms))
8243         {
8244           return _WRONG_MESSAGE_FORMAT;
8245         }
8246       }
8247       else {
8248         if(api_parse(&b2_config->info[1], (word)b2_config->length, "bbbbs", b2_config_parms))
8249         {
8250           return _WRONG_MESSAGE_FORMAT;
8251         }
8252       }
8253           /* if B2 Protocol is LAPD, b2_config structure is different */
8254       if(llc[1]==6)
8255       {
8256         dlc[0] = 4;
8257         if(b2_config->length>=1) dlc[2] = b2_config->info[1];      /* TEI */
8258         else dlc[2] = 0x01;
8259         if( (b2_config->length>=2) && (plci->B2_prot==12) )
8260         {
8261           SAPI = b2_config->info[2];    /* SAPI */
8262         }
8263         dlc[1] = SAPI;
8264         if( (b2_config->length>=3) && (b2_config->info[3]==128) )
8265         {
8266           dlc[3] = 127;      /* Mode */
8267         }
8268         else
8269         {
8270           dlc[3] = 7;        /* Mode */
8271         }
8272
8273         if(b2_config->length>=4) dlc[4] = b2_config->info[4];      /* Window */
8274         else dlc[4] = 1;
8275         dbug(1,dprintf("D-dlc[%d]=%x,%x,%x,%x", dlc[0], dlc[1], dlc[2], dlc[3], dlc[4]));
8276         if(b2_config->length>5) return _B2_PARM_NOT_SUPPORTED;
8277       }
8278       else
8279       {
8280         dlc[0] = (byte)(b2_config_parms[4].length+6);
8281         dlc[3] = b2_config->info[1];
8282         dlc[4] = b2_config->info[2];
8283         if(b2_config->info[3]!=8 && b2_config->info[3]!=128){
8284           dbug(1,dprintf("1D-dlc= %x %x %x %x %x", dlc[0], dlc[1], dlc[2], dlc[3], dlc[4]));
8285           return _B2_PARM_NOT_SUPPORTED;
8286         }
8287
8288         dlc[5] = (byte)(b2_config->info[3]-1);
8289         dlc[6] = b2_config->info[4];
8290         if(dlc[6]>dlc[5]){
8291           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]));
8292           return _B2_PARM_NOT_SUPPORTED;
8293         }
8294
8295         if(llc[1]==X75_V42BIS) {
8296           if (b2_config->length >= 10){
8297             dlc[ 7] = 6;
8298             dlc[ 8] = 0;
8299             dlc[ 9] = b2_config_parms[4].info[0];
8300             dlc[10] = b2_config_parms[4].info[1];
8301             dlc[11] = b2_config_parms[5].info[0];
8302             dlc[12] = b2_config_parms[5].info[1];
8303             dlc[13] = b2_config_parms[6].info[0];
8304             dlc[14] = b2_config_parms[6].info[1];
8305             dlc[ 0] = 14;
8306             dbug(1,dprintf("b2_config_parms[4].info[0] [1]:  %x %x", b2_config_parms[4].info[0], b2_config_parms[4].info[1]));
8307             dbug(1,dprintf("b2_config_parms[5].info[0] [1]:  %x %x", b2_config_parms[5].info[0], b2_config_parms[5].info[1]));
8308             dbug(1,dprintf("b2_config_parms[6].info[0] [1]:  %x %x", b2_config_parms[6].info[0], b2_config_parms[6].info[1]));
8309           }
8310           else {
8311             dlc[ 6] = 14;
8312           }
8313
8314         }
8315         else {
8316           PUT_WORD(&dlc[7], (word)b2_config_parms[4].length);
8317           for(i=0; i<b2_config_parms[4].length; i++)
8318             dlc[11+i] = b2_config_parms[4].info[1+i];
8319         }
8320       }
8321     }
8322   }
8323   add_p(plci, DLC, dlc);
8324
8325   b3_config = &bp_parms[5];
8326   if(b3_config->length)
8327   {
8328     if(plci->B3_prot == 4
8329     || plci->B3_prot == 5)
8330     {
8331       if(api_parse(&b3_config->info[1], (word)b3_config->length, "wwss", b3_config_parms))
8332       {
8333         return _WRONG_MESSAGE_FORMAT;
8334       }
8335       i = GET_WORD((byte   *)(b3_config_parms[0].info));
8336       ((T30_INFO *)&nlc[1])->resolution = (byte)(((i & 0x0001) ||
8337         ((plci->B3_prot == 4) && (((byte)(GET_WORD((byte   *)b3_config_parms[1].info))) != 5))) ? T30_RESOLUTION_R8_0770_OR_200 : 0);
8338       ((T30_INFO *)&nlc[1])->data_format = (byte)(GET_WORD((byte   *)b3_config_parms[1].info));
8339       fax_control_bits = T30_CONTROL_BIT_ALL_FEATURES;
8340       if ((((T30_INFO *)&nlc[1])->rate_div_2400 != 0) && (((T30_INFO *)&nlc[1])->rate_div_2400 <= 6))
8341         fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_V34FAX;
8342       if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_FAX_PAPER_FORMATS)
8343       {
8344
8345         if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id-1])
8346           & (1L << PRIVATE_FAX_PAPER_FORMATS))
8347         {
8348           ((T30_INFO *)&nlc[1])->resolution |= T30_RESOLUTION_R8_1540 |
8349             T30_RESOLUTION_R16_1540_OR_400 | T30_RESOLUTION_300_300 |
8350             T30_RESOLUTION_INCH_BASED | T30_RESOLUTION_METRIC_BASED;
8351         }
8352
8353  ((T30_INFO *)&nlc[1])->recording_properties =
8354    T30_RECORDING_WIDTH_ISO_A3 |
8355    (T30_RECORDING_LENGTH_UNLIMITED << 2) |
8356    (T30_MIN_SCANLINE_TIME_00_00_00 << 4);
8357       }
8358       if(plci->B3_prot == 5)
8359       {
8360         if (i & 0x0002) /* Accept incoming fax-polling requests */
8361           fax_control_bits |= T30_CONTROL_BIT_ACCEPT_POLLING;
8362         if (i & 0x2000) /* Do not use MR compression */
8363           fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_2D_CODING;
8364         if (i & 0x4000) /* Do not use MMR compression */
8365           fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_T6_CODING;
8366         if (i & 0x8000) /* Do not use ECM */
8367           fax_control_bits &= ~T30_CONTROL_BIT_ENABLE_ECM;
8368         if (plci->fax_connect_info_length != 0)
8369         {
8370           ((T30_INFO *)&nlc[1])->resolution = ((T30_INFO   *)plci->fax_connect_info_buffer)->resolution;
8371           ((T30_INFO *)&nlc[1])->data_format = ((T30_INFO   *)plci->fax_connect_info_buffer)->data_format;
8372           ((T30_INFO *)&nlc[1])->recording_properties = ((T30_INFO   *)plci->fax_connect_info_buffer)->recording_properties;
8373           fax_control_bits |= GET_WORD(&((T30_INFO   *)plci->fax_connect_info_buffer)->control_bits_low) &
8374             (T30_CONTROL_BIT_REQUEST_POLLING | T30_CONTROL_BIT_MORE_DOCUMENTS);
8375         }
8376       }
8377       /* copy station id to NLC */
8378       for(i=0; i<20; i++)
8379       {
8380         if(i<b3_config_parms[2].length)
8381         {
8382           ((T30_INFO *)&nlc[1])->station_id[i] = ((byte   *)b3_config_parms[2].info)[1+i];
8383         }
8384         else
8385         {
8386           ((T30_INFO *)&nlc[1])->station_id[i] = ' ';
8387         }
8388       }
8389       ((T30_INFO *)&nlc[1])->station_id_len = 20;
8390       /* copy head line to NLC */
8391       if(b3_config_parms[3].length)
8392       {
8393
8394         pos = (byte)(fax_head_line_time (&(((T30_INFO *)&nlc[1])->station_id[20])));
8395         if (pos != 0)
8396         {
8397           if (CAPI_MAX_DATE_TIME_LENGTH + 2 + b3_config_parms[3].length > CAPI_MAX_HEAD_LINE_SPACE)
8398             pos = 0;
8399           else
8400           {
8401             ((T30_INFO *)&nlc[1])->station_id[20 + pos++] = ' ';
8402             ((T30_INFO *)&nlc[1])->station_id[20 + pos++] = ' ';
8403             len = (byte)b3_config_parms[2].length;
8404             if (len > 20)
8405               len = 20;
8406             if (CAPI_MAX_DATE_TIME_LENGTH + 2 + len + 2 + b3_config_parms[3].length <= CAPI_MAX_HEAD_LINE_SPACE)
8407             {
8408               for (i = 0; i < len; i++)
8409                 ((T30_INFO *)&nlc[1])->station_id[20 + pos++] = ((byte   *)b3_config_parms[2].info)[1+i];
8410               ((T30_INFO *)&nlc[1])->station_id[20 + pos++] = ' ';
8411               ((T30_INFO *)&nlc[1])->station_id[20 + pos++] = ' ';
8412             }
8413           }
8414         }
8415
8416         len = (byte)b3_config_parms[3].length;
8417         if (len > CAPI_MAX_HEAD_LINE_SPACE - pos)
8418           len = (byte)(CAPI_MAX_HEAD_LINE_SPACE - pos);
8419         ((T30_INFO *)&nlc[1])->head_line_len = (byte)(pos + len);
8420         nlc[0] += (byte)(pos + len);
8421         for (i = 0; i < len; i++)
8422           ((T30_INFO *)&nlc[1])->station_id[20 + pos++] = ((byte   *)b3_config_parms[3].info)[1+i];
8423         }
8424       else
8425         ((T30_INFO *)&nlc[1])->head_line_len = 0;
8426
8427       plci->nsf_control_bits = 0;
8428       if(plci->B3_prot == 5)
8429       {
8430         if ((plci->adapter->man_profile.private_options & (1L << PRIVATE_FAX_SUB_SEP_PWD))
8431          && (GET_WORD((byte   *)b3_config_parms[1].info) & 0x8000)) /* Private SUB/SEP/PWD enable */
8432         {
8433           plci->requested_options |= 1L << PRIVATE_FAX_SUB_SEP_PWD;
8434         }
8435         if ((plci->adapter->man_profile.private_options & (1L << PRIVATE_FAX_NONSTANDARD))
8436          && (GET_WORD((byte   *)b3_config_parms[1].info) & 0x4000)) /* Private non-standard facilities enable */
8437         {
8438           plci->requested_options |= 1L << PRIVATE_FAX_NONSTANDARD;
8439         }
8440         if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id-1])
8441           & ((1L << PRIVATE_FAX_SUB_SEP_PWD) | (1L << PRIVATE_FAX_NONSTANDARD)))
8442         {
8443         if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id-1])
8444           & (1L << PRIVATE_FAX_SUB_SEP_PWD))
8445         {
8446           fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SUBADDRESS | T30_CONTROL_BIT_ACCEPT_PASSWORD;
8447           if (fax_control_bits & T30_CONTROL_BIT_ACCEPT_POLLING)
8448             fax_control_bits |= T30_CONTROL_BIT_ACCEPT_SEL_POLLING;
8449           }
8450             len = nlc[0];
8451           pos = ((byte)(((T30_INFO *) 0)->station_id + 20));
8452    if (pos < plci->fax_connect_info_length)
8453    {
8454      for (i = 1 + plci->fax_connect_info_buffer[pos]; i != 0; i--)
8455               nlc[++len] = plci->fax_connect_info_buffer[pos++];
8456           }
8457    else
8458      nlc[++len] = 0;
8459    if (pos < plci->fax_connect_info_length)
8460    {
8461      for (i = 1 + plci->fax_connect_info_buffer[pos]; i != 0; i--)
8462               nlc[++len] = plci->fax_connect_info_buffer[pos++];
8463           }
8464    else
8465      nlc[++len] = 0;
8466           if ((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[plci->appl->Id-1])
8467             & (1L << PRIVATE_FAX_NONSTANDARD))
8468           {
8469      if ((pos < plci->fax_connect_info_length) && (plci->fax_connect_info_buffer[pos] != 0))
8470      {
8471               if ((plci->fax_connect_info_buffer[pos] >= 3) && (plci->fax_connect_info_buffer[pos+1] >= 2))
8472                 plci->nsf_control_bits = GET_WORD(&plci->fax_connect_info_buffer[pos+2]);
8473        for (i = 1 + plci->fax_connect_info_buffer[pos]; i != 0; i--)
8474                 nlc[++len] = plci->fax_connect_info_buffer[pos++];
8475             }
8476      else
8477      {
8478               if(api_parse(&b3_config->info[1], (word)b3_config->length, "wwsss", b3_config_parms))
8479               {
8480                 dbug(1,dprintf("non-standard facilities info missing or wrong format"));
8481                 nlc[++len] = 0;
8482               }
8483        else
8484        {
8485                 if ((b3_config_parms[4].length >= 3) && (b3_config_parms[4].info[1] >= 2))
8486                   plci->nsf_control_bits = GET_WORD(&b3_config_parms[4].info[2]);
8487          nlc[++len] = (byte)(b3_config_parms[4].length);
8488          for (i = 0; i < b3_config_parms[4].length; i++)
8489     nlc[++len] = b3_config_parms[4].info[1+i];
8490        }
8491             }
8492           }
8493             nlc[0] = len;
8494    if ((plci->nsf_control_bits & T30_NSF_CONTROL_BIT_ENABLE_NSF)
8495     && (plci->nsf_control_bits & T30_NSF_CONTROL_BIT_NEGOTIATE_RESP))
8496    {
8497             ((T30_INFO *)&nlc[1])->operating_mode = T30_OPERATING_MODE_CAPI_NEG;
8498           }
8499         }
8500       }
8501
8502       PUT_WORD(&(((T30_INFO *)&nlc[1])->control_bits_low), fax_control_bits);
8503       len = ((byte)(((T30_INFO *) 0)->station_id + 20));
8504       for (i = 0; i < len; i++)
8505         plci->fax_connect_info_buffer[i] = nlc[1+i];
8506       ((T30_INFO   *) plci->fax_connect_info_buffer)->head_line_len = 0;
8507       i += ((T30_INFO *)&nlc[1])->head_line_len;
8508       while (i < nlc[0])
8509         plci->fax_connect_info_buffer[len++] = nlc[++i];
8510       plci->fax_connect_info_length = len;
8511     }
8512     else
8513     {
8514       nlc[0] = 14;
8515       if(b3_config->length!=16)
8516         return _B3_PARM_NOT_SUPPORTED;
8517       for(i=0; i<12; i++) nlc[1+i] = b3_config->info[1+i];
8518       if(GET_WORD(&b3_config->info[13])!=8 && GET_WORD(&b3_config->info[13])!=128)
8519         return _B3_PARM_NOT_SUPPORTED;
8520       nlc[13] = b3_config->info[13];
8521       if(GET_WORD(&b3_config->info[15])>=nlc[13])
8522         return _B3_PARM_NOT_SUPPORTED;
8523       nlc[14] = b3_config->info[15];
8524     }
8525   }
8526   else
8527   {
8528     if (plci->B3_prot == 4
8529      || plci->B3_prot == 5 /*T.30 - FAX*/ ) return _B3_PARM_NOT_SUPPORTED;
8530   }
8531   add_p(plci, NLC, nlc);
8532   return 0;
8533 }
8534
8535 /*----------------------------------------------------------------*/
8536 /*      make the same as add_b23, but only for the modem related  */
8537 /*      L2 and L3 B-Chan protocol.                                */
8538 /*                                                                */
8539 /*      Enabled L2 and L3 Configurations:                         */
8540 /*        If L1 == Modem all negotiation                          */
8541 /*          only L2 == Modem with full negotiation is allowed     */
8542 /*        If L1 == Modem async or sync                            */
8543 /*          only L2 == Transparent is allowed                     */
8544 /*        L3 == Modem or L3 == Transparent are allowed            */
8545 /*      B2 Configuration for modem:                               */
8546 /*          word : enable/disable compression, bitoptions         */
8547 /*      B3 Configuration for modem:                               */
8548 /*          empty                                                 */
8549 /*----------------------------------------------------------------*/
8550 static word add_modem_b23 (PLCI  * plci, API_PARSE* bp_parms)
8551 {
8552   static byte lli[12] = {1,1};
8553   static byte llc[3] = {2,0,0};
8554   static byte dlc[16] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
8555     API_PARSE mdm_config[2];
8556   word i;
8557   word b2_config = 0;
8558
8559   for(i=0;i<2;i++) mdm_config[i].length = 0;
8560   for(i=0;i<sizeof(dlc);i++) dlc[i] = 0;
8561
8562   if (((GET_WORD(bp_parms[0].info) == B1_MODEM_ALL_NEGOTIATE)
8563     && (GET_WORD(bp_parms[1].info) != B2_MODEM_EC_COMPRESSION))
8564    || ((GET_WORD(bp_parms[0].info) != B1_MODEM_ALL_NEGOTIATE)
8565     && (GET_WORD(bp_parms[1].info) != B2_TRANSPARENT)))
8566   {
8567     return (_B_STACK_NOT_SUPPORTED);
8568   }
8569   if ((GET_WORD(bp_parms[2].info) != B3_MODEM)
8570    && (GET_WORD(bp_parms[2].info) != B3_TRANSPARENT))
8571   {
8572     return (_B_STACK_NOT_SUPPORTED);
8573   }
8574
8575   plci->B2_prot = (byte) GET_WORD(bp_parms[1].info);
8576   plci->B3_prot = (byte) GET_WORD(bp_parms[2].info);
8577
8578   if ((GET_WORD(bp_parms[1].info) == B2_MODEM_EC_COMPRESSION) && bp_parms[4].length)
8579   {
8580     if (api_parse (&bp_parms[4].info[1],
8581                   (word)bp_parms[4].length, "w",
8582                   mdm_config))
8583     {
8584       return (_WRONG_MESSAGE_FORMAT);
8585     }
8586     b2_config = GET_WORD(mdm_config[0].info);
8587   }
8588
8589   /* OK, L2 is modem */
8590
8591   lli[0] = 1;
8592   lli[1] = 1;
8593   if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XONOFF_FLOW_CONTROL)
8594     lli[1] |= 2;
8595   if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_OOB_CHANNEL)
8596     lli[1] |= 4;
8597
8598   if ((lli[1] & 0x02) && (diva_xdi_extended_features & DIVA_CAPI_USE_CMA)) {
8599     lli[1] |= 0x10;
8600     if (plci->rx_dma_descriptor <= 0) {
8601       plci->rx_dma_descriptor=diva_get_dma_descriptor(plci,&plci->rx_dma_magic);
8602       if (plci->rx_dma_descriptor >= 0)
8603         plci->rx_dma_descriptor++;
8604     }
8605     if (plci->rx_dma_descriptor > 0) {
8606       lli[1] |= 0x40;
8607       lli[0] = 6;
8608       lli[2] = (byte)(plci->rx_dma_descriptor - 1);
8609       lli[3] = (byte)plci->rx_dma_magic;
8610       lli[4] = (byte)(plci->rx_dma_magic >>  8);
8611       lli[5] = (byte)(plci->rx_dma_magic >> 16);
8612       lli[6] = (byte)(plci->rx_dma_magic >> 24);
8613     }
8614   }
8615
8616   if (DIVA_CAPI_SUPPORTS_NO_CANCEL(plci->adapter)) {
8617     lli[1] |= 0x20;
8618   }
8619
8620   llc[1] = (plci->call_dir & (CALL_DIR_ORIGINATE | CALL_DIR_FORCE_OUTG_NL)) ?
8621     /*V42*/ 10 : /*V42_IN*/ 9;
8622   llc[2] = 4;                      /* pass L3 always transparent */
8623   add_p(plci, LLI, lli);
8624   add_p(plci, LLC, llc);
8625   i =  1;
8626   PUT_WORD (&dlc[i], plci->appl->MaxDataLength);
8627   i += 2;
8628   if (GET_WORD(bp_parms[1].info) == B2_MODEM_EC_COMPRESSION)
8629   {
8630     if (bp_parms[4].length)
8631   {
8632     dbug(1, dprintf("MDM b2_config=%02x", b2_config));
8633     dlc[i++] = 3; /* Addr A */
8634     dlc[i++] = 1; /* Addr B */
8635     dlc[i++] = 7; /* modulo mode */
8636     dlc[i++] = 7; /* window size */
8637     dlc[i++] = 0; /* XID len Lo  */
8638     dlc[i++] = 0; /* XID len Hi  */
8639
8640     if (b2_config & MDM_B2_DISABLE_V42bis)
8641     {
8642       dlc[i] |= DLC_MODEMPROT_DISABLE_V42_V42BIS;
8643     }
8644     if (b2_config & MDM_B2_DISABLE_MNP)
8645     {
8646       dlc[i] |= DLC_MODEMPROT_DISABLE_MNP_MNP5;
8647     }
8648     if (b2_config & MDM_B2_DISABLE_TRANS)
8649     {
8650       dlc[i] |= DLC_MODEMPROT_REQUIRE_PROTOCOL;
8651     }
8652     if (b2_config & MDM_B2_DISABLE_V42)
8653     {
8654       dlc[i] |= DLC_MODEMPROT_DISABLE_V42_DETECT;
8655     }
8656     if (b2_config & MDM_B2_DISABLE_COMP)
8657     {
8658       dlc[i] |= DLC_MODEMPROT_DISABLE_COMPRESSION;
8659     }
8660     i++;
8661   }
8662   }
8663   else
8664   {
8665     dlc[i++] = 3; /* Addr A */
8666     dlc[i++] = 1; /* Addr B */
8667     dlc[i++] = 7; /* modulo mode */
8668     dlc[i++] = 7; /* window size */
8669     dlc[i++] = 0; /* XID len Lo  */
8670     dlc[i++] = 0; /* XID len Hi  */
8671     dlc[i++] = DLC_MODEMPROT_DISABLE_V42_V42BIS |
8672                DLC_MODEMPROT_DISABLE_MNP_MNP5 |
8673                DLC_MODEMPROT_DISABLE_V42_DETECT |
8674                DLC_MODEMPROT_DISABLE_COMPRESSION;
8675   }
8676   dlc[0] = (byte)(i - 1);
8677 /* HexDump ("DLC", sizeof(dlc), &dlc[0]); */
8678   add_p(plci, DLC, dlc);
8679   return (0);
8680 }
8681
8682
8683 /*------------------------------------------------------------------*/
8684 /* send a request for the signaling entity                          */
8685 /*------------------------------------------------------------------*/
8686
8687 void sig_req(PLCI   * plci, byte req, byte Id)
8688 {
8689   if(!plci) return;
8690   if(plci->adapter->adapter_disabled) return;
8691   dbug(1,dprintf("sig_req(%x)",req));
8692   if (req == REMOVE)
8693     plci->sig_remove_id = plci->Sig.Id;
8694   if(plci->req_in==plci->req_in_start) {
8695     plci->req_in +=2;
8696     plci->RBuffer[plci->req_in++] = 0;
8697   }
8698   PUT_WORD(&plci->RBuffer[plci->req_in_start], plci->req_in-plci->req_in_start-2);
8699   plci->RBuffer[plci->req_in++] = Id;   /* sig/nl flag */
8700   plci->RBuffer[plci->req_in++] = req;  /* request */
8701   plci->RBuffer[plci->req_in++] = 0;    /* channel */
8702   plci->req_in_start = plci->req_in;
8703 }
8704
8705 /*------------------------------------------------------------------*/
8706 /* send a request for the network layer entity                      */
8707 /*------------------------------------------------------------------*/
8708
8709 void nl_req_ncci(PLCI   * plci, byte req, byte ncci)
8710 {
8711   if(!plci) return;
8712   if(plci->adapter->adapter_disabled) return;
8713   dbug(1,dprintf("nl_req %02x %02x %02x", plci->Id, req, ncci));
8714   if (req == REMOVE)
8715   {
8716     plci->nl_remove_id = plci->NL.Id;
8717     ncci_remove (plci, 0, (byte)(ncci != 0));
8718     ncci = 0;
8719   }
8720   if(plci->req_in==plci->req_in_start) {
8721     plci->req_in +=2;
8722     plci->RBuffer[plci->req_in++] = 0;
8723   }
8724   PUT_WORD(&plci->RBuffer[plci->req_in_start], plci->req_in-plci->req_in_start-2);
8725   plci->RBuffer[plci->req_in++] = 1;    /* sig/nl flag */
8726   plci->RBuffer[plci->req_in++] = req;  /* request */
8727   plci->RBuffer[plci->req_in++] = plci->adapter->ncci_ch[ncci];   /* channel */
8728   plci->req_in_start = plci->req_in;
8729 }
8730
8731 void send_req(PLCI   * plci)
8732 {
8733   ENTITY   * e;
8734   word l;
8735 /*  word i; */
8736
8737   if(!plci) return;
8738   if(plci->adapter->adapter_disabled) return;
8739   channel_xmit_xon (plci);
8740
8741         /* if nothing to do, return */
8742   if(plci->req_in==plci->req_out) return;
8743   dbug(1,dprintf("send_req(in=%d,out=%d)",plci->req_in,plci->req_out));
8744
8745   if(plci->nl_req || plci->sig_req) return;
8746
8747   l = GET_WORD(&plci->RBuffer[plci->req_out]);
8748   plci->req_out += 2;
8749   plci->XData[0].P = &plci->RBuffer[plci->req_out];
8750   plci->req_out += l;
8751   if(plci->RBuffer[plci->req_out]==1)
8752   {
8753     e = &plci->NL;
8754     plci->req_out++;
8755     e->Req = plci->nl_req = plci->RBuffer[plci->req_out++];
8756     e->ReqCh = plci->RBuffer[plci->req_out++];
8757     if(!(e->Id & 0x1f))
8758     {
8759       e->Id = NL_ID;
8760       plci->RBuffer[plci->req_out-4] = CAI;
8761       plci->RBuffer[plci->req_out-3] = 1;
8762       plci->RBuffer[plci->req_out-2] = (plci->Sig.Id==0xff) ? 0 : plci->Sig.Id;
8763       plci->RBuffer[plci->req_out-1] = 0;
8764       l+=3;
8765       plci->nl_global_req = plci->nl_req;
8766     }
8767     dbug(1,dprintf("%x:NLREQ(%x:%x:%x)",plci->adapter->Id,e->Id,e->Req,e->ReqCh));
8768   }
8769   else
8770   {
8771     e = &plci->Sig;
8772     if(plci->RBuffer[plci->req_out])
8773       e->Id = plci->RBuffer[plci->req_out];
8774     plci->req_out++;
8775     e->Req = plci->sig_req = plci->RBuffer[plci->req_out++];
8776     e->ReqCh = plci->RBuffer[plci->req_out++];
8777     if(!(e->Id & 0x1f))
8778       plci->sig_global_req = plci->sig_req;
8779     dbug(1,dprintf("%x:SIGREQ(%x:%x:%x)",plci->adapter->Id,e->Id,e->Req,e->ReqCh));
8780   }
8781   plci->XData[0].PLength = l;
8782   e->X = plci->XData;
8783   plci->adapter->request(e);
8784   dbug(1,dprintf("send_ok"));
8785 }
8786
8787 void send_data(PLCI   * plci)
8788 {
8789   DIVA_CAPI_ADAPTER   * a;
8790   DATA_B3_DESC   * data;
8791   NCCI   *ncci_ptr;
8792   word ncci;
8793
8794   if (!plci->nl_req && plci->ncci_ring_list)
8795   {
8796     a = plci->adapter;
8797     ncci = plci->ncci_ring_list;
8798     do
8799     {
8800       ncci = a->ncci_next[ncci];
8801       ncci_ptr = &(a->ncci[ncci]);
8802       if (!(a->ncci_ch[ncci]
8803          && (a->ch_flow_control[a->ncci_ch[ncci]] & N_OK_FC_PENDING)))
8804       {
8805         if (ncci_ptr->data_pending)
8806         {
8807           if ((a->ncci_state[ncci] == CONNECTED)
8808            || (a->ncci_state[ncci] == INC_ACT_PENDING)
8809            || (plci->send_disc == ncci))
8810           {
8811             data = &(ncci_ptr->DBuffer[ncci_ptr->data_out]);
8812             if ((plci->B2_prot == B2_V120_ASYNC)
8813              || (plci->B2_prot == B2_V120_ASYNC_V42BIS)
8814              || (plci->B2_prot == B2_V120_BIT_TRANSPARENT))
8815             {
8816               plci->NData[1].P = TransmitBufferGet (plci->appl, data->P);
8817               plci->NData[1].PLength = data->Length;
8818               if (data->Flags & 0x10)
8819                 plci->NData[0].P = v120_break_header;
8820               else
8821                 plci->NData[0].P = v120_default_header;
8822               plci->NData[0].PLength = 1 ;
8823               plci->NL.XNum = 2;
8824               plci->NL.Req = plci->nl_req = (byte)((data->Flags&0x07)<<4 |N_DATA);
8825             }
8826             else
8827             {
8828               plci->NData[0].P = TransmitBufferGet (plci->appl, data->P);
8829               plci->NData[0].PLength = data->Length;
8830               if (data->Flags & 0x10)
8831                 plci->NL.Req = plci->nl_req = (byte)N_UDATA;
8832
8833               else if ((plci->B3_prot == B3_RTP) && (data->Flags & 0x01))
8834                 plci->NL.Req = plci->nl_req = (byte)N_BDATA;
8835
8836               else
8837                 plci->NL.Req = plci->nl_req = (byte)((data->Flags&0x07)<<4 |N_DATA);
8838             }
8839             plci->NL.X = plci->NData;
8840             plci->NL.ReqCh = a->ncci_ch[ncci];
8841             dbug(1,dprintf("%x:DREQ(%x:%x)",a->Id,plci->NL.Id,plci->NL.Req));
8842             plci->data_sent = true;
8843             plci->data_sent_ptr = data->P;
8844             a->request(&plci->NL);
8845           }
8846           else {
8847             cleanup_ncci_data (plci, ncci);
8848           }
8849         }
8850         else if (plci->send_disc == ncci)
8851         {
8852           /* dprintf("N_DISC"); */
8853           plci->NData[0].PLength = 0;
8854           plci->NL.ReqCh = a->ncci_ch[ncci];
8855           plci->NL.Req = plci->nl_req = N_DISC;
8856           a->request(&plci->NL);
8857           plci->command = _DISCONNECT_B3_R;
8858           plci->send_disc = 0;
8859         }
8860       }
8861     } while (!plci->nl_req && (ncci != plci->ncci_ring_list));
8862     plci->ncci_ring_list = ncci;
8863   }
8864 }
8865
8866 void listen_check(DIVA_CAPI_ADAPTER   * a)
8867 {
8868   word i,j;
8869   PLCI   * plci;
8870   byte activnotifiedcalls = 0;
8871
8872   dbug(1,dprintf("listen_check(%d,%d)",a->listen_active,a->max_listen));
8873   if (!remove_started && !a->adapter_disabled)
8874   {
8875     for(i=0;i<a->max_plci;i++)
8876     {
8877       plci = &(a->plci[i]);
8878       if(plci->notifiedcall) activnotifiedcalls++;
8879     }
8880     dbug(1,dprintf("listen_check(%d)",activnotifiedcalls));
8881
8882     for(i=a->listen_active; i < ((word)(a->max_listen+activnotifiedcalls)); i++) {
8883       if((j=get_plci(a))) {
8884         a->listen_active++;
8885         plci = &a->plci[j-1];
8886         plci->State = LISTENING;
8887
8888         add_p(plci,OAD,"\x01\xfd");
8889
8890         add_p(plci,KEY,"\x04\x43\x41\x32\x30");
8891
8892         add_p(plci,CAI,"\x01\xc0");
8893         add_p(plci,UID,"\x06\x43\x61\x70\x69\x32\x30");
8894         add_p(plci,LLI,"\x01\xc4");                  /* support Dummy CR FAC + MWI + SpoofNotify */
8895         add_p(plci,SHIFT|6,NULL);
8896         add_p(plci,SIN,"\x02\x00\x00");
8897         plci->internal_command = LISTEN_SIG_ASSIGN_PEND;     /* do indicate_req if OK  */
8898         sig_req(plci,ASSIGN,DSIG_ID);
8899         send_req(plci);
8900       }
8901     }
8902   }
8903 }
8904
8905 /*------------------------------------------------------------------*/
8906 /* functions for all parameters sent in INDs                        */
8907 /*------------------------------------------------------------------*/
8908
8909 void IndParse(PLCI   * plci, word * parms_id, byte   ** parms, byte multiIEsize)
8910 {
8911   word ploc;            /* points to current location within packet */
8912   byte w;
8913   byte wlen;
8914   byte codeset,lock;
8915   byte   * in;
8916   word i;
8917   word code;
8918   word mIEindex = 0;
8919   ploc = 0;
8920   codeset = 0;
8921   lock = 0;
8922
8923   in = plci->Sig.RBuffer->P;
8924   for(i=0; i<parms_id[0]; i++)   /* multiIE parms_id contains just the 1st */
8925   {                            /* element but parms array is larger      */
8926     parms[i] = (byte   *)"";
8927   }
8928   for(i=0; i<multiIEsize; i++)
8929   {
8930     parms[i] = (byte   *)"";
8931   }
8932
8933   while(ploc<plci->Sig.RBuffer->length-1) {
8934
8935         /* read information element id and length                   */
8936     w = in[ploc];
8937
8938     if(w & 0x80) {
8939 /*    w &=0xf0; removed, cannot detect congestion levels */
8940 /*    upper 4 bit masked with w==SHIFT now               */
8941       wlen = 0;
8942     }
8943     else {
8944       wlen = (byte)(in[ploc+1]+1);
8945     }
8946         /* check if length valid (not exceeding end of packet)      */
8947     if((ploc+wlen) > 270) return ;
8948     if(lock & 0x80) lock &=0x7f;
8949     else codeset = lock;
8950
8951     if((w&0xf0)==SHIFT) {
8952       codeset = in[ploc];
8953       if(!(codeset & 0x08)) lock = (byte)(codeset & 7);
8954       codeset &=7;
8955       lock |=0x80;
8956     }
8957     else {
8958       if(w==ESC && wlen>=3) code = in[ploc+2] |0x800;
8959       else code = w;
8960       code |= (codeset<<8);
8961
8962       for(i=1; i<parms_id[0]+1 && parms_id[i]!=code; i++);
8963
8964       if(i<parms_id[0]+1) {
8965         if(!multiIEsize) { /* with multiIEs use next field index,          */
8966           mIEindex = i-1;    /* with normal IEs use same index like parms_id */
8967         }
8968
8969         parms[mIEindex] = &in[ploc+1];
8970         dbug(1,dprintf("mIE[%d]=0x%x",*parms[mIEindex],in[ploc]));
8971         if(parms_id[i]==OAD
8972         || parms_id[i]==CONN_NR
8973         || parms_id[i]==CAD) {
8974           if(in[ploc+2] &0x80) {
8975             in[ploc+0] = (byte)(in[ploc+1]+1);
8976             in[ploc+1] = (byte)(in[ploc+2] &0x7f);
8977             in[ploc+2] = 0x80;
8978             parms[mIEindex] = &in[ploc];
8979           }
8980         }
8981         mIEindex++;       /* effects multiIEs only */
8982       }
8983     }
8984
8985     ploc +=(wlen+1);
8986   }
8987   return ;
8988 }
8989
8990 /*------------------------------------------------------------------*/
8991 /* try to match a cip from received BC and HLC                      */
8992 /*------------------------------------------------------------------*/
8993
8994 byte ie_compare(byte   * ie1, byte * ie2)
8995 {
8996   word i;
8997   if(!ie1 || ! ie2) return false;
8998   if(!ie1[0]) return false;
8999   for(i=0;i<(word)(ie1[0]+1);i++) if(ie1[i]!=ie2[i]) return false;
9000   return true;
9001 }
9002
9003 word find_cip(DIVA_CAPI_ADAPTER   * a, byte   * bc, byte   * hlc)
9004 {
9005   word i;
9006   word j;
9007
9008   for(i=9;i && !ie_compare(bc,cip_bc[i][a->u_law]);i--);
9009
9010   for(j=16;j<29 &&
9011            (!ie_compare(bc,cip_bc[j][a->u_law]) || !ie_compare(hlc,cip_hlc[j])); j++);
9012   if(j==29) return i;
9013   return j;
9014 }
9015
9016
9017 static byte AddInfo(byte   **add_i,
9018                     byte   **fty_i,
9019                     byte   *esc_chi,
9020                     byte *facility)
9021 {
9022   byte i;
9023   byte j;
9024   byte k;
9025   byte flen;
9026   byte len=0;
9027    /* facility is a nested structure */
9028    /* FTY can be more than once      */
9029
9030   if(esc_chi[0] && !(esc_chi[esc_chi[0]])&0x7f )
9031   {
9032     add_i[0] = (byte   *)"\x02\x02\x00"; /* use neither b nor d channel */
9033   }
9034
9035   else
9036   {
9037     add_i[0] = (byte   *)"";
9038   }
9039   if(!fty_i[0][0])
9040   {
9041     add_i[3] = (byte   *)"";
9042   }
9043   else
9044   {    /* facility array found  */
9045     for(i=0,j=1;i<MAX_MULTI_IE && fty_i[i][0];i++)
9046     {
9047       dbug(1,dprintf("AddIFac[%d]",fty_i[i][0]));
9048       len += fty_i[i][0];
9049       len += 2;
9050       flen=fty_i[i][0];
9051       facility[j++]=0x1c; /* copy fac IE */
9052       for(k=0;k<=flen;k++,j++)
9053       {
9054         facility[j]=fty_i[i][k];
9055 /*      dbug(1,dprintf("%x ",facility[j])); */
9056       }
9057     }
9058     facility[0] = len;
9059     add_i[3] = facility;
9060   }
9061 /*  dbug(1,dprintf("FacArrLen=%d ",len)); */
9062   len = add_i[0][0]+add_i[1][0]+add_i[2][0]+add_i[3][0];
9063   len += 4;                          /* calculate length of all */
9064   return(len);
9065 }
9066
9067 /*------------------------------------------------------------------*/
9068 /* voice and codec features                                         */
9069 /*------------------------------------------------------------------*/
9070
9071 void SetVoiceChannel(PLCI   *plci, byte   *chi, DIVA_CAPI_ADAPTER   * a)
9072 {
9073   byte voice_chi[] = "\x02\x18\x01";
9074   byte channel;
9075
9076   channel = chi[chi[0]]&0x3;
9077   dbug(1,dprintf("ExtDevON(Ch=0x%x)",channel));
9078   voice_chi[2] = (channel) ? channel : 1;
9079   add_p(plci,FTY,"\x02\x01\x07");             /* B On, default on 1 */
9080   add_p(plci,ESC,voice_chi);                  /* Channel */
9081   sig_req(plci,TEL_CTRL,0);
9082   send_req(plci);
9083   if(a->AdvSignalPLCI)
9084   {
9085     adv_voice_write_coefs (a->AdvSignalPLCI, ADV_VOICE_WRITE_ACTIVATION);
9086   }
9087 }
9088
9089 void VoiceChannelOff(PLCI   *plci)
9090 {
9091   dbug(1,dprintf("ExtDevOFF"));
9092   add_p(plci,FTY,"\x02\x01\x08");             /* B Off */
9093   sig_req(plci,TEL_CTRL,0);
9094   send_req(plci);
9095   if(plci->adapter->AdvSignalPLCI)
9096   {
9097     adv_voice_clear_config (plci->adapter->AdvSignalPLCI);
9098   }
9099 }
9100
9101
9102 word AdvCodecSupport(DIVA_CAPI_ADAPTER   *a, PLCI   *plci, APPL   *appl, byte hook_listen)
9103 {
9104   word j;
9105   PLCI   *splci;
9106
9107   /* check if hardware supports handset with hook states (adv.codec) */
9108   /* or if just a on board codec is supported                        */
9109   /* the advanced codec plci is just for internal use                */
9110
9111   /* diva Pro with on-board codec:                                   */
9112   if(a->profile.Global_Options & HANDSET)
9113   {
9114     /* new call, but hook states are already signalled */
9115     if(a->AdvCodecFLAG)
9116     {
9117       if(a->AdvSignalAppl!=appl || a->AdvSignalPLCI)
9118       {
9119         dbug(1,dprintf("AdvSigPlci=0x%x",a->AdvSignalPLCI));
9120         return 0x2001; /* codec in use by another application */
9121       }
9122       if(plci!=0)
9123       {
9124         a->AdvSignalPLCI = plci;
9125         plci->tel=ADV_VOICE;
9126       }
9127       return 0;                      /* adv codec still used */
9128     }
9129     if((j=get_plci(a)))
9130     {
9131       splci = &a->plci[j-1];
9132       splci->tel = CODEC_PERMANENT;
9133       /* hook_listen indicates if a facility_req with handset/hook support */
9134       /* was sent. Otherwise if just a call on an external device was made */
9135       /* the codec will be used but the hook info will be discarded (just  */
9136       /* the external controller is in use                                 */
9137       if(hook_listen) splci->State = ADVANCED_VOICE_SIG;
9138       else
9139       {
9140         splci->State = ADVANCED_VOICE_NOSIG;
9141         if(plci)
9142         {
9143           plci->spoofed_msg = SPOOFING_REQUIRED;
9144         }
9145                                                /* indicate D-ch connect if  */
9146       }                                        /* codec is connected OK     */
9147       if(plci!=0)
9148       {
9149         a->AdvSignalPLCI = plci;
9150         plci->tel=ADV_VOICE;
9151       }
9152       a->AdvSignalAppl = appl;
9153       a->AdvCodecFLAG = true;
9154       a->AdvCodecPLCI = splci;
9155       add_p(splci,CAI,"\x01\x15");
9156       add_p(splci,LLI,"\x01\x00");
9157       add_p(splci,ESC,"\x02\x18\x00");
9158       add_p(splci,UID,"\x06\x43\x61\x70\x69\x32\x30");
9159       splci->internal_command = PERM_COD_ASSIGN;
9160       dbug(1,dprintf("Codec Assign"));
9161       sig_req(splci,ASSIGN,DSIG_ID);
9162       send_req(splci);
9163     }
9164     else
9165     {
9166       return 0x2001; /* wrong state, no more plcis */
9167     }
9168   }
9169   else if(a->profile.Global_Options & ON_BOARD_CODEC)
9170   {
9171     if(hook_listen) return 0x300B;               /* Facility not supported */
9172                                                  /* no hook with SCOM      */
9173     if(plci!=0) plci->tel = CODEC;
9174     dbug(1,dprintf("S/SCOM codec"));
9175     /* first time we use the scom-s codec we must shut down the internal   */
9176     /* handset application of the card. This can be done by an assign with */
9177     /* a cai with the 0x80 bit set. Assign return code is 'out of resource'*/
9178     if(!a->scom_appl_disable){
9179       if((j=get_plci(a))) {
9180         splci = &a->plci[j-1];
9181         add_p(splci,CAI,"\x01\x80");
9182         add_p(splci,UID,"\x06\x43\x61\x70\x69\x32\x30");
9183         sig_req(splci,ASSIGN,0xC0);  /* 0xc0 is the TEL_ID */
9184         send_req(splci);
9185         a->scom_appl_disable = true;
9186       }
9187       else{
9188         return 0x2001; /* wrong state, no more plcis */
9189       }
9190     }
9191   }
9192   else return 0x300B;               /* Facility not supported */
9193
9194   return 0;
9195 }
9196
9197
9198 void CodecIdCheck(DIVA_CAPI_ADAPTER   *a, PLCI   *plci)
9199 {
9200
9201   dbug(1,dprintf("CodecIdCheck"));
9202
9203   if(a->AdvSignalPLCI == plci)
9204   {
9205     dbug(1,dprintf("PLCI owns codec"));
9206     VoiceChannelOff(a->AdvCodecPLCI);
9207     if(a->AdvCodecPLCI->State == ADVANCED_VOICE_NOSIG)
9208     {
9209       dbug(1,dprintf("remove temp codec PLCI"));
9210       plci_remove(a->AdvCodecPLCI);
9211       a->AdvCodecFLAG  = 0;
9212       a->AdvCodecPLCI  = NULL;
9213       a->AdvSignalAppl = NULL;
9214     }
9215     a->AdvSignalPLCI = NULL;
9216   }
9217 }
9218
9219 /* -------------------------------------------------------------------
9220     Ask for physical address of card on PCI bus
9221    ------------------------------------------------------------------- */
9222 static void diva_ask_for_xdi_sdram_bar (DIVA_CAPI_ADAPTER  * a,
9223                                         IDI_SYNC_REQ  * preq) {
9224   a->sdram_bar = 0;
9225   if (diva_xdi_extended_features & DIVA_CAPI_XDI_PROVIDES_SDRAM_BAR) {
9226     ENTITY   * e = (ENTITY   *)preq;
9227
9228     e->user[0] = a->Id - 1;
9229     preq->xdi_sdram_bar.info.bar    = 0;
9230     preq->xdi_sdram_bar.Req         = 0;
9231     preq->xdi_sdram_bar.Rc           = IDI_SYNC_REQ_XDI_GET_ADAPTER_SDRAM_BAR;
9232
9233     (*(a->request))(e);
9234
9235     a->sdram_bar = preq->xdi_sdram_bar.info.bar;
9236     dbug(3,dprintf("A(%d) SDRAM BAR = %08x", a->Id, a->sdram_bar));
9237   }
9238 }
9239
9240 /* -------------------------------------------------------------------
9241      Ask XDI about extended features
9242    ------------------------------------------------------------------- */
9243 static void diva_get_extended_adapter_features (DIVA_CAPI_ADAPTER  * a) {
9244   IDI_SYNC_REQ   * preq;
9245     char buffer[              ((sizeof(preq->xdi_extended_features)+4) > sizeof(ENTITY)) ?                     (sizeof(preq->xdi_extended_features)+4) : sizeof(ENTITY)];
9246
9247     char features[4];
9248   preq = (IDI_SYNC_REQ   *)&buffer[0];
9249
9250   if (!diva_xdi_extended_features) {
9251     ENTITY   * e = (ENTITY   *)preq;
9252     diva_xdi_extended_features |= 0x80000000;
9253
9254     e->user[0] = a->Id - 1;
9255     preq->xdi_extended_features.Req = 0;
9256     preq->xdi_extended_features.Rc  = IDI_SYNC_REQ_XDI_GET_EXTENDED_FEATURES;
9257     preq->xdi_extended_features.info.buffer_length_in_bytes = sizeof(features);
9258     preq->xdi_extended_features.info.features = &features[0];
9259
9260     (*(a->request))(e);
9261
9262     if (features[0] & DIVA_XDI_EXTENDED_FEATURES_VALID) {
9263       /*
9264          Check features located in the byte '0'
9265          */
9266       if (features[0] & DIVA_XDI_EXTENDED_FEATURE_CMA) {
9267         diva_xdi_extended_features |= DIVA_CAPI_USE_CMA;
9268       }
9269       if (features[0] & DIVA_XDI_EXTENDED_FEATURE_RX_DMA) {
9270         diva_xdi_extended_features |= DIVA_CAPI_XDI_PROVIDES_RX_DMA;
9271         dbug(1,dprintf("XDI provides RxDMA"));
9272       }
9273       if (features[0] & DIVA_XDI_EXTENDED_FEATURE_SDRAM_BAR) {
9274         diva_xdi_extended_features |= DIVA_CAPI_XDI_PROVIDES_SDRAM_BAR;
9275       }
9276       if (features[0] & DIVA_XDI_EXTENDED_FEATURE_NO_CANCEL_RC) {
9277         diva_xdi_extended_features |= DIVA_CAPI_XDI_PROVIDES_NO_CANCEL;
9278         dbug(3,dprintf("XDI provides NO_CANCEL_RC feature"));
9279       }
9280
9281     }
9282   }
9283
9284   diva_ask_for_xdi_sdram_bar (a, preq);
9285 }
9286
9287 /*------------------------------------------------------------------*/
9288 /* automatic law                                                    */
9289 /*------------------------------------------------------------------*/
9290 /* called from OS specific part after init time to get the Law              */
9291 /* a-law (Euro) and u-law (us,japan) use different BCs in the Setup message */
9292 void AutomaticLaw(DIVA_CAPI_ADAPTER   *a)
9293 {
9294   word j;
9295   PLCI   *splci;
9296
9297   if(a->automatic_law) {
9298     return;
9299   }
9300   if((j=get_plci(a))) {
9301     diva_get_extended_adapter_features (a);
9302     splci = &a->plci[j-1];
9303     a->automatic_lawPLCI = splci;
9304     a->automatic_law = 1;
9305     add_p(splci,CAI,"\x01\x80");
9306     add_p(splci,UID,"\x06\x43\x61\x70\x69\x32\x30");
9307     splci->internal_command = USELAW_REQ;
9308     splci->command = 0;
9309     splci->number = 0;
9310     sig_req(splci,ASSIGN,DSIG_ID);
9311     send_req(splci);
9312   }
9313 }
9314
9315 /* called from OS specific part if an application sends an Capi20Release */
9316 word CapiRelease(word Id)
9317 {
9318   word i, j, appls_found;
9319   PLCI   *plci;
9320   APPL   *this;
9321   DIVA_CAPI_ADAPTER   *a;
9322
9323   if (!Id)
9324   {
9325     dbug(0,dprintf("A: CapiRelease(Id==0)"));
9326     return (_WRONG_APPL_ID);
9327   }
9328
9329   this = &application[Id-1];               /* get application pointer */
9330
9331   for(i=0,appls_found=0; i<max_appl; i++)
9332   {
9333     if(application[i].Id)       /* an application has been found        */
9334     {
9335       appls_found++;
9336     }
9337   }
9338
9339   for(i=0; i<max_adapter; i++)             /* scan all adapters...    */
9340   {
9341     a = &adapter[i];
9342     if (a->request)
9343     {
9344       a->Info_Mask[Id-1] = 0;
9345       a->CIP_Mask[Id-1] = 0;
9346       a->Notification_Mask[Id-1] = 0;
9347       a->codec_listen[Id-1] = NULL;
9348       a->requested_options_table[Id-1] = 0;
9349       for(j=0; j<a->max_plci; j++)           /* and all PLCIs connected */
9350       {                                      /* with this application   */
9351         plci = &a->plci[j];
9352         if(plci->Id)                         /* if plci owns no application */
9353         {                                    /* it may be not jet connected */
9354           if(plci->State==INC_CON_PENDING
9355           || plci->State==INC_CON_ALERT)
9356           {
9357             if(test_c_ind_mask_bit (plci, (word)(Id-1)))
9358             {
9359               clear_c_ind_mask_bit (plci, (word)(Id-1));
9360               if(c_ind_mask_empty (plci))
9361               {
9362                 sig_req(plci,HANGUP,0);
9363                 send_req(plci);
9364                 plci->State = OUTG_DIS_PENDING;
9365               }
9366             }
9367           }
9368           if(test_c_ind_mask_bit (plci, (word)(Id-1)))
9369           {
9370             clear_c_ind_mask_bit (plci, (word)(Id-1));
9371             if(c_ind_mask_empty (plci))
9372             {
9373               if(!plci->appl)
9374               {
9375                 plci_remove(plci);
9376                 plci->State = IDLE;
9377               }
9378             }
9379           }
9380           if(plci->appl==this)
9381           {
9382             plci->appl = NULL;
9383             plci_remove(plci);
9384             plci->State = IDLE;
9385           }
9386         }
9387       }
9388       listen_check(a);
9389
9390       if(a->flag_dynamic_l1_down)
9391       {
9392         if(appls_found==1)            /* last application does a capi release */
9393         {
9394           if((j=get_plci(a)))
9395           {
9396             plci = &a->plci[j-1];
9397             plci->command = 0;
9398             add_p(plci,OAD,"\x01\xfd");
9399             add_p(plci,CAI,"\x01\x80");
9400             add_p(plci,UID,"\x06\x43\x61\x70\x69\x32\x30");
9401             add_p(plci,SHIFT|6,NULL);
9402             add_p(plci,SIN,"\x02\x00\x00");
9403             plci->internal_command = REM_L1_SIG_ASSIGN_PEND;
9404             sig_req(plci,ASSIGN,DSIG_ID);
9405             add_p(plci,FTY,"\x02\xff\x06"); /* l1 down */
9406             sig_req(plci,SIG_CTRL,0);
9407             send_req(plci);
9408           }
9409         }
9410       }
9411       if(a->AdvSignalAppl==this)
9412       {
9413         this->NullCREnable = false;
9414         if (a->AdvCodecPLCI)
9415         {
9416           plci_remove(a->AdvCodecPLCI);
9417           a->AdvCodecPLCI->tel = 0;
9418           a->AdvCodecPLCI->adv_nl = 0;
9419         }
9420         a->AdvSignalAppl = NULL;
9421         a->AdvSignalPLCI = NULL;
9422         a->AdvCodecFLAG = 0;
9423         a->AdvCodecPLCI = NULL;
9424       }
9425     }
9426   }
9427
9428   this->Id = 0;
9429
9430   return GOOD;
9431 }
9432
9433 static word plci_remove_check(PLCI   *plci)
9434 {
9435   if(!plci) return true;
9436   if(!plci->NL.Id && c_ind_mask_empty (plci))
9437   {
9438     if(plci->Sig.Id == 0xff)
9439       plci->Sig.Id = 0;
9440     if(!plci->Sig.Id)
9441     {
9442       dbug(1,dprintf("plci_remove_complete(%x)",plci->Id));
9443       dbug(1,dprintf("tel=0x%x,Sig=0x%x",plci->tel,plci->Sig.Id));
9444       if (plci->Id)
9445       {
9446         CodecIdCheck(plci->adapter, plci);
9447         clear_b1_config (plci);
9448         ncci_remove (plci, 0, false);
9449         plci_free_msg_in_queue (plci);
9450         channel_flow_control_remove (plci);
9451         plci->Id = 0;
9452         plci->State = IDLE;
9453         plci->channels = 0;
9454         plci->appl = NULL;
9455         plci->notifiedcall = 0;
9456       }
9457       listen_check(plci->adapter);
9458       return true;
9459     }
9460   }
9461   return false;
9462 }
9463
9464
9465 /*------------------------------------------------------------------*/
9466
9467 static byte plci_nl_busy (PLCI   *plci)
9468 {
9469   /* only applicable for non-multiplexed protocols */
9470   return (plci->nl_req
9471     || (plci->ncci_ring_list
9472      && plci->adapter->ncci_ch[plci->ncci_ring_list]
9473      && (plci->adapter->ch_flow_control[plci->adapter->ncci_ch[plci->ncci_ring_list]] & N_OK_FC_PENDING)));
9474 }
9475
9476
9477 /*------------------------------------------------------------------*/
9478 /* DTMF facilities                                                  */
9479 /*------------------------------------------------------------------*/
9480
9481
9482 static struct
9483 {
9484   byte send_mask;
9485   byte listen_mask;
9486   byte character;
9487   byte code;
9488 } dtmf_digit_map[] =
9489 {
9490   { 0x01, 0x01, 0x23, DTMF_DIGIT_TONE_CODE_HASHMARK },
9491   { 0x01, 0x01, 0x2a, DTMF_DIGIT_TONE_CODE_STAR },
9492   { 0x01, 0x01, 0x30, DTMF_DIGIT_TONE_CODE_0 },
9493   { 0x01, 0x01, 0x31, DTMF_DIGIT_TONE_CODE_1 },
9494   { 0x01, 0x01, 0x32, DTMF_DIGIT_TONE_CODE_2 },
9495   { 0x01, 0x01, 0x33, DTMF_DIGIT_TONE_CODE_3 },
9496   { 0x01, 0x01, 0x34, DTMF_DIGIT_TONE_CODE_4 },
9497   { 0x01, 0x01, 0x35, DTMF_DIGIT_TONE_CODE_5 },
9498   { 0x01, 0x01, 0x36, DTMF_DIGIT_TONE_CODE_6 },
9499   { 0x01, 0x01, 0x37, DTMF_DIGIT_TONE_CODE_7 },
9500   { 0x01, 0x01, 0x38, DTMF_DIGIT_TONE_CODE_8 },
9501   { 0x01, 0x01, 0x39, DTMF_DIGIT_TONE_CODE_9 },
9502   { 0x01, 0x01, 0x41, DTMF_DIGIT_TONE_CODE_A },
9503   { 0x01, 0x01, 0x42, DTMF_DIGIT_TONE_CODE_B },
9504   { 0x01, 0x01, 0x43, DTMF_DIGIT_TONE_CODE_C },
9505   { 0x01, 0x01, 0x44, DTMF_DIGIT_TONE_CODE_D },
9506   { 0x01, 0x00, 0x61, DTMF_DIGIT_TONE_CODE_A },
9507   { 0x01, 0x00, 0x62, DTMF_DIGIT_TONE_CODE_B },
9508   { 0x01, 0x00, 0x63, DTMF_DIGIT_TONE_CODE_C },
9509   { 0x01, 0x00, 0x64, DTMF_DIGIT_TONE_CODE_D },
9510
9511   { 0x04, 0x04, 0x80, DTMF_SIGNAL_NO_TONE },
9512   { 0x00, 0x04, 0x81, DTMF_SIGNAL_UNIDENTIFIED_TONE },
9513   { 0x04, 0x04, 0x82, DTMF_SIGNAL_DIAL_TONE },
9514   { 0x04, 0x04, 0x83, DTMF_SIGNAL_PABX_INTERNAL_DIAL_TONE },
9515   { 0x04, 0x04, 0x84, DTMF_SIGNAL_SPECIAL_DIAL_TONE },
9516   { 0x04, 0x04, 0x85, DTMF_SIGNAL_SECOND_DIAL_TONE },
9517   { 0x04, 0x04, 0x86, DTMF_SIGNAL_RINGING_TONE },
9518   { 0x04, 0x04, 0x87, DTMF_SIGNAL_SPECIAL_RINGING_TONE },
9519   { 0x04, 0x04, 0x88, DTMF_SIGNAL_BUSY_TONE },
9520   { 0x04, 0x04, 0x89, DTMF_SIGNAL_CONGESTION_TONE },
9521   { 0x04, 0x04, 0x8a, DTMF_SIGNAL_SPECIAL_INFORMATION_TONE },
9522   { 0x04, 0x04, 0x8b, DTMF_SIGNAL_COMFORT_TONE },
9523   { 0x04, 0x04, 0x8c, DTMF_SIGNAL_HOLD_TONE },
9524   { 0x04, 0x04, 0x8d, DTMF_SIGNAL_RECORD_TONE },
9525   { 0x04, 0x04, 0x8e, DTMF_SIGNAL_CALLER_WAITING_TONE },
9526   { 0x04, 0x04, 0x8f, DTMF_SIGNAL_CALL_WAITING_TONE },
9527   { 0x04, 0x04, 0x90, DTMF_SIGNAL_PAY_TONE },
9528   { 0x04, 0x04, 0x91, DTMF_SIGNAL_POSITIVE_INDICATION_TONE },
9529   { 0x04, 0x04, 0x92, DTMF_SIGNAL_NEGATIVE_INDICATION_TONE },
9530   { 0x04, 0x04, 0x93, DTMF_SIGNAL_WARNING_TONE },
9531   { 0x04, 0x04, 0x94, DTMF_SIGNAL_INTRUSION_TONE },
9532   { 0x04, 0x04, 0x95, DTMF_SIGNAL_CALLING_CARD_SERVICE_TONE },
9533   { 0x04, 0x04, 0x96, DTMF_SIGNAL_PAYPHONE_RECOGNITION_TONE },
9534   { 0x04, 0x04, 0x97, DTMF_SIGNAL_CPE_ALERTING_SIGNAL },
9535   { 0x04, 0x04, 0x98, DTMF_SIGNAL_OFF_HOOK_WARNING_TONE },
9536   { 0x04, 0x04, 0xbf, DTMF_SIGNAL_INTERCEPT_TONE },
9537   { 0x04, 0x04, 0xc0, DTMF_SIGNAL_MODEM_CALLING_TONE },
9538   { 0x04, 0x04, 0xc1, DTMF_SIGNAL_FAX_CALLING_TONE },
9539   { 0x04, 0x04, 0xc2, DTMF_SIGNAL_ANSWER_TONE },
9540   { 0x04, 0x04, 0xc3, DTMF_SIGNAL_REVERSED_ANSWER_TONE },
9541   { 0x04, 0x04, 0xc4, DTMF_SIGNAL_ANSAM_TONE },
9542   { 0x04, 0x04, 0xc5, DTMF_SIGNAL_REVERSED_ANSAM_TONE },
9543   { 0x04, 0x04, 0xc6, DTMF_SIGNAL_BELL103_ANSWER_TONE },
9544   { 0x04, 0x04, 0xc7, DTMF_SIGNAL_FAX_FLAGS },
9545   { 0x04, 0x04, 0xc8, DTMF_SIGNAL_G2_FAX_GROUP_ID },
9546   { 0x00, 0x04, 0xc9, DTMF_SIGNAL_HUMAN_SPEECH },
9547   { 0x04, 0x04, 0xca, DTMF_SIGNAL_ANSWERING_MACHINE_390 },
9548   { 0x02, 0x02, 0xf1, DTMF_MF_DIGIT_TONE_CODE_1 },
9549   { 0x02, 0x02, 0xf2, DTMF_MF_DIGIT_TONE_CODE_2 },
9550   { 0x02, 0x02, 0xf3, DTMF_MF_DIGIT_TONE_CODE_3 },
9551   { 0x02, 0x02, 0xf4, DTMF_MF_DIGIT_TONE_CODE_4 },
9552   { 0x02, 0x02, 0xf5, DTMF_MF_DIGIT_TONE_CODE_5 },
9553   { 0x02, 0x02, 0xf6, DTMF_MF_DIGIT_TONE_CODE_6 },
9554   { 0x02, 0x02, 0xf7, DTMF_MF_DIGIT_TONE_CODE_7 },
9555   { 0x02, 0x02, 0xf8, DTMF_MF_DIGIT_TONE_CODE_8 },
9556   { 0x02, 0x02, 0xf9, DTMF_MF_DIGIT_TONE_CODE_9 },
9557   { 0x02, 0x02, 0xfa, DTMF_MF_DIGIT_TONE_CODE_0 },
9558   { 0x02, 0x02, 0xfb, DTMF_MF_DIGIT_TONE_CODE_K1 },
9559   { 0x02, 0x02, 0xfc, DTMF_MF_DIGIT_TONE_CODE_K2 },
9560   { 0x02, 0x02, 0xfd, DTMF_MF_DIGIT_TONE_CODE_KP },
9561   { 0x02, 0x02, 0xfe, DTMF_MF_DIGIT_TONE_CODE_S1 },
9562   { 0x02, 0x02, 0xff, DTMF_MF_DIGIT_TONE_CODE_ST },
9563
9564 };
9565
9566 #define DTMF_DIGIT_MAP_ENTRIES ARRAY_SIZE(dtmf_digit_map)
9567
9568
9569 static void dtmf_enable_receiver (PLCI   *plci, byte enable_mask)
9570 {
9571   word min_digit_duration, min_gap_duration;
9572
9573   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_enable_receiver %02x",
9574     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
9575     (char   *)(FILE_), __LINE__, enable_mask));
9576
9577   if (enable_mask != 0)
9578   {
9579     min_digit_duration = (plci->dtmf_rec_pulse_ms == 0) ? 40 : plci->dtmf_rec_pulse_ms;
9580     min_gap_duration = (plci->dtmf_rec_pause_ms == 0) ? 40 : plci->dtmf_rec_pause_ms;
9581     plci->internal_req_buffer[0] = DTMF_UDATA_REQUEST_ENABLE_RECEIVER;
9582     PUT_WORD (&plci->internal_req_buffer[1], min_digit_duration);
9583     PUT_WORD (&plci->internal_req_buffer[3], min_gap_duration);
9584     plci->NData[0].PLength = 5;
9585
9586     PUT_WORD (&plci->internal_req_buffer[5], INTERNAL_IND_BUFFER_SIZE);
9587     plci->NData[0].PLength += 2;
9588     capidtmf_recv_enable (&(plci->capidtmf_state), min_digit_duration, min_gap_duration);
9589
9590   }
9591   else
9592   {
9593     plci->internal_req_buffer[0] = DTMF_UDATA_REQUEST_DISABLE_RECEIVER;
9594     plci->NData[0].PLength = 1;
9595
9596     capidtmf_recv_disable (&(plci->capidtmf_state));
9597
9598   }
9599   plci->NData[0].P = plci->internal_req_buffer;
9600   plci->NL.X = plci->NData;
9601   plci->NL.ReqCh = 0;
9602   plci->NL.Req = plci->nl_req = (byte) N_UDATA;
9603   plci->adapter->request (&plci->NL);
9604 }
9605
9606
9607 static void dtmf_send_digits (PLCI   *plci, byte   *digit_buffer, word digit_count)
9608 {
9609   word w, i;
9610
9611   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_send_digits %d",
9612     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
9613     (char   *)(FILE_), __LINE__, digit_count));
9614
9615   plci->internal_req_buffer[0] = DTMF_UDATA_REQUEST_SEND_DIGITS;
9616   w = (plci->dtmf_send_pulse_ms == 0) ? 40 : plci->dtmf_send_pulse_ms;
9617   PUT_WORD (&plci->internal_req_buffer[1], w);
9618   w = (plci->dtmf_send_pause_ms == 0) ? 40 : plci->dtmf_send_pause_ms;
9619   PUT_WORD (&plci->internal_req_buffer[3], w);
9620   for (i = 0; i < digit_count; i++)
9621   {
9622     w = 0;
9623     while ((w < DTMF_DIGIT_MAP_ENTRIES)
9624       && (digit_buffer[i] != dtmf_digit_map[w].character))
9625     {
9626       w++;
9627     }
9628     plci->internal_req_buffer[5+i] = (w < DTMF_DIGIT_MAP_ENTRIES) ?
9629       dtmf_digit_map[w].code : DTMF_DIGIT_TONE_CODE_STAR;
9630   }
9631   plci->NData[0].PLength = 5 + digit_count;
9632   plci->NData[0].P = plci->internal_req_buffer;
9633   plci->NL.X = plci->NData;
9634   plci->NL.ReqCh = 0;
9635   plci->NL.Req = plci->nl_req = (byte) N_UDATA;
9636   plci->adapter->request (&plci->NL);
9637 }
9638
9639
9640 static void dtmf_rec_clear_config (PLCI   *plci)
9641 {
9642
9643   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_rec_clear_config",
9644     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
9645     (char   *)(FILE_), __LINE__));
9646
9647   plci->dtmf_rec_active = 0;
9648   plci->dtmf_rec_pulse_ms = 0;
9649   plci->dtmf_rec_pause_ms = 0;
9650
9651   capidtmf_init (&(plci->capidtmf_state), plci->adapter->u_law);
9652
9653 }
9654
9655
9656 static void dtmf_send_clear_config (PLCI   *plci)
9657 {
9658
9659   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_send_clear_config",
9660     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
9661     (char   *)(FILE_), __LINE__));
9662
9663   plci->dtmf_send_requests = 0;
9664   plci->dtmf_send_pulse_ms = 0;
9665   plci->dtmf_send_pause_ms = 0;
9666 }
9667
9668
9669 static void dtmf_prepare_switch (dword Id, PLCI   *plci)
9670 {
9671
9672   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_prepare_switch",
9673     UnMapId (Id), (char   *)(FILE_), __LINE__));
9674
9675   while (plci->dtmf_send_requests != 0)
9676     dtmf_confirmation (Id, plci);
9677 }
9678
9679
9680 static word dtmf_save_config (dword Id, PLCI   *plci, byte Rc)
9681 {
9682
9683   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_save_config %02x %d",
9684     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
9685
9686   return (GOOD);
9687 }
9688
9689
9690 static word dtmf_restore_config (dword Id, PLCI   *plci, byte Rc)
9691 {
9692   word Info;
9693
9694   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_restore_config %02x %d",
9695     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
9696
9697   Info = GOOD;
9698   if (plci->B1_facilities & B1_FACILITY_DTMFR)
9699   {
9700     switch (plci->adjust_b_state)
9701     {
9702     case ADJUST_B_RESTORE_DTMF_1:
9703       plci->internal_command = plci->adjust_b_command;
9704       if (plci_nl_busy (plci))
9705       {
9706         plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1;
9707         break;
9708       }
9709       dtmf_enable_receiver (plci, plci->dtmf_rec_active);
9710       plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_2;
9711       break;
9712     case ADJUST_B_RESTORE_DTMF_2:
9713       if ((Rc != OK) && (Rc != OK_FC))
9714       {
9715         dbug (1, dprintf ("[%06lx] %s,%d: Reenable DTMF receiver failed %02x",
9716           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
9717         Info = _WRONG_STATE;
9718         break;
9719       }
9720       break;
9721     }
9722   }
9723   return (Info);
9724 }
9725
9726
9727 static void dtmf_command (dword Id, PLCI   *plci, byte Rc)
9728 {
9729   word internal_command, Info;
9730   byte mask;
9731     byte result[4];
9732
9733   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_command %02x %04x %04x %d %d %d %d",
9734     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command,
9735     plci->dtmf_cmd, plci->dtmf_rec_pulse_ms, plci->dtmf_rec_pause_ms,
9736     plci->dtmf_send_pulse_ms, plci->dtmf_send_pause_ms));
9737
9738   Info = GOOD;
9739   result[0] = 2;
9740   PUT_WORD (&result[1], DTMF_SUCCESS);
9741   internal_command = plci->internal_command;
9742   plci->internal_command = 0;
9743   mask = 0x01;
9744   switch (plci->dtmf_cmd)
9745   {
9746
9747   case DTMF_LISTEN_TONE_START:
9748     mask <<= 1;
9749   case DTMF_LISTEN_MF_START:
9750     mask <<= 1;
9751
9752   case DTMF_LISTEN_START:
9753     switch (internal_command)
9754     {
9755     default:
9756       adjust_b1_resource (Id, plci, NULL, (word)(plci->B1_facilities |
9757         B1_FACILITY_DTMFR), DTMF_COMMAND_1);
9758     case DTMF_COMMAND_1:
9759       if (adjust_b_process (Id, plci, Rc) != GOOD)
9760       {
9761         dbug (1, dprintf ("[%06lx] %s,%d: Load DTMF failed",
9762           UnMapId (Id), (char   *)(FILE_), __LINE__));
9763         Info = _FACILITY_NOT_SUPPORTED;
9764         break;
9765       }
9766       if (plci->internal_command)
9767         return;
9768     case DTMF_COMMAND_2:
9769       if (plci_nl_busy (plci))
9770       {
9771         plci->internal_command = DTMF_COMMAND_2;
9772         return;
9773       }
9774       plci->internal_command = DTMF_COMMAND_3;
9775       dtmf_enable_receiver (plci, (byte)(plci->dtmf_rec_active | mask));
9776       return;
9777     case DTMF_COMMAND_3:
9778       if ((Rc != OK) && (Rc != OK_FC))
9779       {
9780         dbug (1, dprintf ("[%06lx] %s,%d: Enable DTMF receiver failed %02x",
9781           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
9782         Info = _FACILITY_NOT_SUPPORTED;
9783         break;
9784       }
9785
9786       plci->tone_last_indication_code = DTMF_SIGNAL_NO_TONE;
9787
9788       plci->dtmf_rec_active |= mask;
9789       break;
9790     }
9791     break;
9792
9793
9794   case DTMF_LISTEN_TONE_STOP:
9795     mask <<= 1;
9796   case DTMF_LISTEN_MF_STOP:
9797     mask <<= 1;
9798
9799   case DTMF_LISTEN_STOP:
9800     switch (internal_command)
9801     {
9802     default:
9803       plci->dtmf_rec_active &= ~mask;
9804       if (plci->dtmf_rec_active)
9805         break;
9806 /*
9807     case DTMF_COMMAND_1:
9808       if (plci->dtmf_rec_active)
9809       {
9810         if (plci_nl_busy (plci))
9811         {
9812           plci->internal_command = DTMF_COMMAND_1;
9813           return;
9814         }
9815         plci->dtmf_rec_active &= ~mask;
9816         plci->internal_command = DTMF_COMMAND_2;
9817         dtmf_enable_receiver (plci, false);
9818         return;
9819       }
9820       Rc = OK;
9821     case DTMF_COMMAND_2:
9822       if ((Rc != OK) && (Rc != OK_FC))
9823       {
9824         dbug (1, dprintf ("[%06lx] %s,%d: Disable DTMF receiver failed %02x",
9825           UnMapId (Id), (char far *)(FILE_), __LINE__, Rc));
9826         Info = _FACILITY_NOT_SUPPORTED;
9827         break;
9828       }
9829 */
9830       adjust_b1_resource (Id, plci, NULL, (word)(plci->B1_facilities &
9831         ~(B1_FACILITY_DTMFX | B1_FACILITY_DTMFR)), DTMF_COMMAND_3);
9832     case DTMF_COMMAND_3:
9833       if (adjust_b_process (Id, plci, Rc) != GOOD)
9834       {
9835         dbug (1, dprintf ("[%06lx] %s,%d: Unload DTMF failed",
9836           UnMapId (Id), (char   *)(FILE_), __LINE__));
9837         Info = _FACILITY_NOT_SUPPORTED;
9838         break;
9839       }
9840       if (plci->internal_command)
9841         return;
9842       break;
9843     }
9844     break;
9845
9846
9847   case DTMF_SEND_TONE:
9848     mask <<= 1;
9849   case DTMF_SEND_MF:
9850     mask <<= 1;
9851
9852   case DTMF_DIGITS_SEND:
9853     switch (internal_command)
9854     {
9855     default:
9856       adjust_b1_resource (Id, plci, NULL, (word)(plci->B1_facilities |
9857         ((plci->dtmf_parameter_length != 0) ? B1_FACILITY_DTMFX | B1_FACILITY_DTMFR : B1_FACILITY_DTMFX)),
9858         DTMF_COMMAND_1);
9859     case DTMF_COMMAND_1:
9860       if (adjust_b_process (Id, plci, Rc) != GOOD)
9861       {
9862         dbug (1, dprintf ("[%06lx] %s,%d: Load DTMF failed",
9863           UnMapId (Id), (char   *)(FILE_), __LINE__));
9864         Info = _FACILITY_NOT_SUPPORTED;
9865         break;
9866       }
9867       if (plci->internal_command)
9868         return;
9869     case DTMF_COMMAND_2:
9870       if (plci_nl_busy (plci))
9871       {
9872         plci->internal_command = DTMF_COMMAND_2;
9873         return;
9874       }
9875       plci->dtmf_msg_number_queue[(plci->dtmf_send_requests)++] = plci->number;
9876       plci->internal_command = DTMF_COMMAND_3;
9877       dtmf_send_digits (plci, &plci->saved_msg.parms[3].info[1], plci->saved_msg.parms[3].length);
9878       return;
9879     case DTMF_COMMAND_3:
9880       if ((Rc != OK) && (Rc != OK_FC))
9881       {
9882         dbug (1, dprintf ("[%06lx] %s,%d: Send DTMF digits failed %02x",
9883           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
9884         if (plci->dtmf_send_requests != 0)
9885           (plci->dtmf_send_requests)--;
9886         Info = _FACILITY_NOT_SUPPORTED;
9887         break;
9888       }
9889       return;
9890     }
9891     break;
9892   }
9893   sendf (plci->appl, _FACILITY_R | CONFIRM, Id & 0xffffL, plci->number,
9894     "wws", Info, SELECTOR_DTMF, result);
9895 }
9896
9897
9898 static byte dtmf_request (dword Id, word Number, DIVA_CAPI_ADAPTER   *a, PLCI   *plci, APPL   *appl, API_PARSE *msg)
9899 {
9900   word Info;
9901   word i, j;
9902   byte mask;
9903     API_PARSE dtmf_parms[5];
9904     byte result[40];
9905
9906   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_request",
9907     UnMapId (Id), (char   *)(FILE_), __LINE__));
9908
9909   Info = GOOD;
9910   result[0] = 2;
9911   PUT_WORD (&result[1], DTMF_SUCCESS);
9912   if (!(a->profile.Global_Options & GL_DTMF_SUPPORTED))
9913   {
9914     dbug (1, dprintf ("[%06lx] %s,%d: Facility not supported",
9915       UnMapId (Id), (char   *)(FILE_), __LINE__));
9916     Info = _FACILITY_NOT_SUPPORTED;
9917   }
9918   else if (api_parse (&msg[1].info[1], msg[1].length, "w", dtmf_parms))
9919   {
9920     dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
9921       UnMapId (Id), (char   *)(FILE_), __LINE__));
9922     Info = _WRONG_MESSAGE_FORMAT;
9923   }
9924
9925   else if ((GET_WORD (dtmf_parms[0].info) == DTMF_GET_SUPPORTED_DETECT_CODES)
9926     || (GET_WORD (dtmf_parms[0].info) == DTMF_GET_SUPPORTED_SEND_CODES))
9927   {
9928     if (!((a->requested_options_table[appl->Id-1])
9929         & (1L << PRIVATE_DTMF_TONE)))
9930     {
9931       dbug (1, dprintf ("[%06lx] %s,%d: DTMF unknown request %04x",
9932         UnMapId (Id), (char   *)(FILE_), __LINE__, GET_WORD (dtmf_parms[0].info)));
9933       PUT_WORD (&result[1], DTMF_UNKNOWN_REQUEST);
9934     }
9935     else
9936     {
9937       for (i = 0; i < 32; i++)
9938         result[4 + i] = 0;
9939       if (GET_WORD (dtmf_parms[0].info) == DTMF_GET_SUPPORTED_DETECT_CODES)
9940       {
9941         for (i = 0; i < DTMF_DIGIT_MAP_ENTRIES; i++)
9942         {
9943           if (dtmf_digit_map[i].listen_mask != 0)
9944             result[4 + (dtmf_digit_map[i].character >> 3)] |= (1 << (dtmf_digit_map[i].character & 0x7));
9945         }
9946       }
9947       else
9948       {
9949         for (i = 0; i < DTMF_DIGIT_MAP_ENTRIES; i++)
9950         {
9951           if (dtmf_digit_map[i].send_mask != 0)
9952             result[4 + (dtmf_digit_map[i].character >> 3)] |= (1 << (dtmf_digit_map[i].character & 0x7));
9953         }
9954       }
9955       result[0] = 3 + 32;
9956       result[3] = 32;
9957     }
9958   }
9959
9960   else if (plci == NULL)
9961   {
9962     dbug (1, dprintf ("[%06lx] %s,%d: Wrong PLCI",
9963       UnMapId (Id), (char   *)(FILE_), __LINE__));
9964     Info = _WRONG_IDENTIFIER;
9965   }
9966   else
9967   {
9968     if (!plci->State
9969      || !plci->NL.Id || plci->nl_remove_id)
9970     {
9971       dbug (1, dprintf ("[%06lx] %s,%d: Wrong state",
9972         UnMapId (Id), (char   *)(FILE_), __LINE__));
9973       Info = _WRONG_STATE;
9974     }
9975     else
9976     {
9977       plci->command = 0;
9978       plci->dtmf_cmd = GET_WORD (dtmf_parms[0].info);
9979       mask = 0x01;
9980       switch (plci->dtmf_cmd)
9981       {
9982
9983       case DTMF_LISTEN_TONE_START:
9984       case DTMF_LISTEN_TONE_STOP:
9985         mask <<= 1;
9986       case DTMF_LISTEN_MF_START:
9987       case DTMF_LISTEN_MF_STOP:
9988         mask <<= 1;
9989         if (!((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[appl->Id-1])
9990           & (1L << PRIVATE_DTMF_TONE)))
9991         {
9992           dbug (1, dprintf ("[%06lx] %s,%d: DTMF unknown request %04x",
9993             UnMapId (Id), (char   *)(FILE_), __LINE__, GET_WORD (dtmf_parms[0].info)));
9994           PUT_WORD (&result[1], DTMF_UNKNOWN_REQUEST);
9995           break;
9996         }
9997
9998       case DTMF_LISTEN_START:
9999       case DTMF_LISTEN_STOP:
10000         if (!(a->manufacturer_features & MANUFACTURER_FEATURE_HARDDTMF)
10001          && !(a->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE))
10002         {
10003           dbug (1, dprintf ("[%06lx] %s,%d: Facility not supported",
10004             UnMapId (Id), (char   *)(FILE_), __LINE__));
10005           Info = _FACILITY_NOT_SUPPORTED;
10006           break;
10007         }
10008         if (mask & DTMF_LISTEN_ACTIVE_FLAG)
10009         {
10010           if (api_parse (&msg[1].info[1], msg[1].length, "wwws", dtmf_parms))
10011           {
10012             plci->dtmf_rec_pulse_ms = 0;
10013             plci->dtmf_rec_pause_ms = 0;
10014           }
10015           else
10016           {
10017             plci->dtmf_rec_pulse_ms = GET_WORD (dtmf_parms[1].info);
10018             plci->dtmf_rec_pause_ms = GET_WORD (dtmf_parms[2].info);
10019           }
10020         }
10021         start_internal_command (Id, plci, dtmf_command);
10022         return (false);
10023
10024
10025       case DTMF_SEND_TONE:
10026         mask <<= 1;
10027       case DTMF_SEND_MF:
10028         mask <<= 1;
10029         if (!((plci->requested_options_conn | plci->requested_options | plci->adapter->requested_options_table[appl->Id-1])
10030           & (1L << PRIVATE_DTMF_TONE)))
10031         {
10032           dbug (1, dprintf ("[%06lx] %s,%d: DTMF unknown request %04x",
10033             UnMapId (Id), (char   *)(FILE_), __LINE__, GET_WORD (dtmf_parms[0].info)));
10034           PUT_WORD (&result[1], DTMF_UNKNOWN_REQUEST);
10035           break;
10036         }
10037
10038       case DTMF_DIGITS_SEND:
10039         if (api_parse (&msg[1].info[1], msg[1].length, "wwws", dtmf_parms))
10040         {
10041           dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
10042             UnMapId (Id), (char   *)(FILE_), __LINE__));
10043           Info = _WRONG_MESSAGE_FORMAT;
10044           break;
10045         }
10046         if (mask & DTMF_LISTEN_ACTIVE_FLAG)
10047         {
10048           plci->dtmf_send_pulse_ms = GET_WORD (dtmf_parms[1].info);
10049           plci->dtmf_send_pause_ms = GET_WORD (dtmf_parms[2].info);
10050         }
10051         i = 0;
10052         j = 0;
10053         while ((i < dtmf_parms[3].length) && (j < DTMF_DIGIT_MAP_ENTRIES))
10054         {
10055           j = 0;
10056           while ((j < DTMF_DIGIT_MAP_ENTRIES)
10057             && ((dtmf_parms[3].info[i+1] != dtmf_digit_map[j].character)
10058              || ((dtmf_digit_map[j].send_mask & mask) == 0)))
10059           {
10060             j++;
10061           }
10062           i++;
10063         }
10064         if (j == DTMF_DIGIT_MAP_ENTRIES)
10065         {
10066           dbug (1, dprintf ("[%06lx] %s,%d: Incorrect DTMF digit %02x",
10067             UnMapId (Id), (char   *)(FILE_), __LINE__, dtmf_parms[3].info[i]));
10068           PUT_WORD (&result[1], DTMF_INCORRECT_DIGIT);
10069           break;
10070         }
10071         if (plci->dtmf_send_requests >= ARRAY_SIZE(plci->dtmf_msg_number_queue))
10072         {
10073           dbug (1, dprintf ("[%06lx] %s,%d: DTMF request overrun",
10074             UnMapId (Id), (char   *)(FILE_), __LINE__));
10075           Info = _WRONG_STATE;
10076           break;
10077         }
10078         api_save_msg (dtmf_parms, "wwws", &plci->saved_msg);
10079         start_internal_command (Id, plci, dtmf_command);
10080         return (false);
10081
10082       default:
10083         dbug (1, dprintf ("[%06lx] %s,%d: DTMF unknown request %04x",
10084           UnMapId (Id), (char   *)(FILE_), __LINE__, plci->dtmf_cmd));
10085         PUT_WORD (&result[1], DTMF_UNKNOWN_REQUEST);
10086       }
10087     }
10088   }
10089   sendf (appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number,
10090     "wws", Info, SELECTOR_DTMF, result);
10091   return (false);
10092 }
10093
10094
10095 static void dtmf_confirmation (dword Id, PLCI   *plci)
10096 {
10097   word Info;
10098   word i;
10099     byte result[4];
10100
10101   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_confirmation",
10102     UnMapId (Id), (char   *)(FILE_), __LINE__));
10103
10104   Info = GOOD;
10105   result[0] = 2;
10106   PUT_WORD (&result[1], DTMF_SUCCESS);
10107   if (plci->dtmf_send_requests != 0)
10108   {
10109     sendf (plci->appl, _FACILITY_R | CONFIRM, Id & 0xffffL, plci->dtmf_msg_number_queue[0],
10110       "wws", GOOD, SELECTOR_DTMF, result);
10111     (plci->dtmf_send_requests)--;
10112     for (i = 0; i < plci->dtmf_send_requests; i++)
10113       plci->dtmf_msg_number_queue[i] = plci->dtmf_msg_number_queue[i+1];
10114   }
10115 }
10116
10117
10118 static void dtmf_indication (dword Id, PLCI   *plci, byte   *msg, word length)
10119 {
10120   word i, j, n;
10121
10122   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_indication",
10123     UnMapId (Id), (char   *)(FILE_), __LINE__));
10124
10125   n = 0;
10126   for (i = 1; i < length; i++)
10127   {
10128     j = 0;
10129     while ((j < DTMF_DIGIT_MAP_ENTRIES)
10130       && ((msg[i] != dtmf_digit_map[j].code)
10131        || ((dtmf_digit_map[j].listen_mask & plci->dtmf_rec_active) == 0)))
10132     {
10133       j++;
10134     }
10135     if (j < DTMF_DIGIT_MAP_ENTRIES)
10136     {
10137
10138       if ((dtmf_digit_map[j].listen_mask & DTMF_TONE_LISTEN_ACTIVE_FLAG)
10139        && (plci->tone_last_indication_code == DTMF_SIGNAL_NO_TONE)
10140        && (dtmf_digit_map[j].character != DTMF_SIGNAL_UNIDENTIFIED_TONE))
10141       {
10142         if (n + 1 == i)
10143         {
10144           for (i = length; i > n + 1; i--)
10145             msg[i] = msg[i - 1];
10146           length++;
10147           i++;
10148         }
10149         msg[++n] = DTMF_SIGNAL_UNIDENTIFIED_TONE;
10150       }
10151       plci->tone_last_indication_code = dtmf_digit_map[j].character;
10152
10153       msg[++n] = dtmf_digit_map[j].character;
10154     }
10155   }
10156   if (n != 0)
10157   {
10158     msg[0] = (byte) n;
10159     sendf (plci->appl, _FACILITY_I, Id & 0xffffL, 0, "wS", SELECTOR_DTMF, msg);
10160   }
10161 }
10162
10163
10164 /*------------------------------------------------------------------*/
10165 /* DTMF parameters                                                  */
10166 /*------------------------------------------------------------------*/
10167
10168 static void dtmf_parameter_write (PLCI   *plci)
10169 {
10170   word i;
10171     byte parameter_buffer[DTMF_PARAMETER_BUFFER_SIZE + 2];
10172
10173   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_parameter_write",
10174     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
10175     (char   *)(FILE_), __LINE__));
10176
10177   parameter_buffer[0] = plci->dtmf_parameter_length + 1;
10178   parameter_buffer[1] = DSP_CTRL_SET_DTMF_PARAMETERS;
10179   for (i = 0; i < plci->dtmf_parameter_length; i++)
10180     parameter_buffer[2+i] = plci->dtmf_parameter_buffer[i];
10181   add_p (plci, FTY, parameter_buffer);
10182   sig_req (plci, TEL_CTRL, 0);
10183   send_req (plci);
10184 }
10185
10186
10187 static void dtmf_parameter_clear_config (PLCI   *plci)
10188 {
10189
10190   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_parameter_clear_config",
10191     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
10192     (char   *)(FILE_), __LINE__));
10193
10194   plci->dtmf_parameter_length = 0;
10195 }
10196
10197
10198 static void dtmf_parameter_prepare_switch (dword Id, PLCI   *plci)
10199 {
10200
10201   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_parameter_prepare_switch",
10202     UnMapId (Id), (char   *)(FILE_), __LINE__));
10203
10204 }
10205
10206
10207 static word dtmf_parameter_save_config (dword Id, PLCI   *plci, byte Rc)
10208 {
10209
10210   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_parameter_save_config %02x %d",
10211     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
10212
10213   return (GOOD);
10214 }
10215
10216
10217 static word dtmf_parameter_restore_config (dword Id, PLCI   *plci, byte Rc)
10218 {
10219   word Info;
10220
10221   dbug (1, dprintf ("[%06lx] %s,%d: dtmf_parameter_restore_config %02x %d",
10222     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
10223
10224   Info = GOOD;
10225   if ((plci->B1_facilities & B1_FACILITY_DTMFR)
10226    && (plci->dtmf_parameter_length != 0))
10227   {
10228     switch (plci->adjust_b_state)
10229     {
10230     case ADJUST_B_RESTORE_DTMF_PARAMETER_1:
10231       plci->internal_command = plci->adjust_b_command;
10232       if (plci->sig_req)
10233       {
10234         plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_PARAMETER_1;
10235         break;
10236       }
10237       dtmf_parameter_write (plci);
10238       plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_PARAMETER_2;
10239       break;
10240     case ADJUST_B_RESTORE_DTMF_PARAMETER_2:
10241       if ((Rc != OK) && (Rc != OK_FC))
10242       {
10243         dbug (1, dprintf ("[%06lx] %s,%d: Restore DTMF parameters failed %02x",
10244           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
10245         Info = _WRONG_STATE;
10246         break;
10247       }
10248       break;
10249     }
10250   }
10251   return (Info);
10252 }
10253
10254
10255 /*------------------------------------------------------------------*/
10256 /* Line interconnect facilities                                     */
10257 /*------------------------------------------------------------------*/
10258
10259
10260 LI_CONFIG   *li_config_table;
10261 word li_total_channels;
10262
10263
10264 /*------------------------------------------------------------------*/
10265 /* translate a CHI information element to a channel number          */
10266 /* returns 0xff - any channel                                       */
10267 /*         0xfe - chi wrong coding                                  */
10268 /*         0xfd - D-channel                                         */
10269 /*         0x00 - no channel                                        */
10270 /*         else channel number / PRI: timeslot                      */
10271 /* if channels is provided we accept more than one channel.         */
10272 /*------------------------------------------------------------------*/
10273
10274 static byte chi_to_channel (byte   *chi, dword *pchannelmap)
10275 {
10276   int p;
10277   int i;
10278   dword map;
10279   byte excl;
10280   byte ofs;
10281   byte ch;
10282
10283   if (pchannelmap) *pchannelmap = 0;
10284   if(!chi[0]) return 0xff;
10285   excl = 0;
10286
10287   if(chi[1] & 0x20) {
10288     if(chi[0]==1 && chi[1]==0xac) return 0xfd; /* exclusive d-channel */
10289     for(i=1; i<chi[0] && !(chi[i] &0x80); i++);
10290     if(i==chi[0] || !(chi[i] &0x80)) return 0xfe;
10291     if((chi[1] |0xc8)!=0xe9) return 0xfe;
10292     if(chi[1] &0x08) excl = 0x40;
10293
10294         /* int. id present */
10295     if(chi[1] &0x40) {
10296       p=i+1;
10297       for(i=p; i<chi[0] && !(chi[i] &0x80); i++);
10298       if(i==chi[0] || !(chi[i] &0x80)) return 0xfe;
10299     }
10300
10301         /* coding standard, Number/Map, Channel Type */
10302     p=i+1;
10303     for(i=p; i<chi[0] && !(chi[i] &0x80); i++);
10304     if(i==chi[0] || !(chi[i] &0x80)) return 0xfe;
10305     if((chi[p]|0xd0)!=0xd3) return 0xfe;
10306
10307         /* Number/Map */
10308     if(chi[p] &0x10) {
10309
10310         /* map */
10311       if((chi[0]-p)==4) ofs = 0;
10312       else if((chi[0]-p)==3) ofs = 1;
10313       else return 0xfe;
10314       ch = 0;
10315       map = 0;
10316       for(i=0; i<4 && p<chi[0]; i++) {
10317         p++;
10318         ch += 8;
10319         map <<= 8;
10320         if(chi[p]) {
10321           for (ch=0; !(chi[p] & (1 << ch)); ch++);
10322           map |= chi[p];
10323         }
10324       }
10325       ch += ofs;
10326       map <<= ofs;
10327     }
10328     else {
10329
10330         /* number */
10331       p=i+1;
10332       ch = chi[p] &0x3f;
10333       if(pchannelmap) {
10334         if((byte)(chi[0]-p)>30) return 0xfe;
10335         map = 0;
10336         for(i=p; i<=chi[0]; i++) {
10337           if ((chi[i] &0x7f) > 31) return 0xfe;
10338           map |= (1L << (chi[i] &0x7f));
10339         }
10340       }
10341       else {
10342         if(p!=chi[0]) return 0xfe;
10343         if (ch > 31) return 0xfe;
10344         map = (1L << ch);
10345       }
10346       if(chi[p] &0x40) return 0xfe;
10347     }
10348     if (pchannelmap) *pchannelmap = map;
10349     else if (map != ((dword)(1L << ch))) return 0xfe;
10350     return (byte)(excl | ch);
10351   }
10352   else {  /* not PRI */
10353     for(i=1; i<chi[0] && !(chi[i] &0x80); i++);
10354     if(i!=chi[0] || !(chi[i] &0x80)) return 0xfe;
10355     if(chi[1] &0x08) excl = 0x40;
10356
10357     switch(chi[1] |0x98) {
10358     case 0x98: return 0;
10359     case 0x99:
10360       if (pchannelmap) *pchannelmap = 2;
10361       return excl |1;
10362     case 0x9a:
10363       if (pchannelmap) *pchannelmap = 4;
10364       return excl |2;
10365     case 0x9b: return 0xff;
10366     case 0x9c: return 0xfd; /* d-ch */
10367     default: return 0xfe;
10368     }
10369   }
10370 }
10371
10372
10373 static void mixer_set_bchannel_id_esc (PLCI   *plci, byte bchannel_id)
10374 {
10375   DIVA_CAPI_ADAPTER   *a;
10376   PLCI   *splci;
10377   byte old_id;
10378
10379   a = plci->adapter;
10380   old_id = plci->li_bchannel_id;
10381   if (a->li_pri)
10382   {
10383     if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci))
10384       li_config_table[a->li_base + (old_id - 1)].plci = NULL;
10385     plci->li_bchannel_id = (bchannel_id & 0x1f) + 1;
10386     if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL)
10387       li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci;
10388   }
10389   else
10390   {
10391     if (((bchannel_id & 0x03) == 1) || ((bchannel_id & 0x03) == 2))
10392     {
10393       if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci))
10394         li_config_table[a->li_base + (old_id - 1)].plci = NULL;
10395       plci->li_bchannel_id = bchannel_id & 0x03;
10396       if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI != plci) && (a->AdvSignalPLCI->tel == ADV_VOICE))
10397       {
10398         splci = a->AdvSignalPLCI;
10399         if (li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci == NULL)
10400         {
10401           if ((splci->li_bchannel_id != 0)
10402            && (li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci == splci))
10403           {
10404             li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci = NULL;
10405           }
10406           splci->li_bchannel_id = 3 - plci->li_bchannel_id;
10407           li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci = splci;
10408           dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_set_bchannel_id_esc %d",
10409             (dword)((splci->Id << 8) | UnMapController (splci->adapter->Id)),
10410             (char   *)(FILE_), __LINE__, splci->li_bchannel_id));
10411         }
10412       }
10413       if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL)
10414         li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci;
10415     }
10416   }
10417   if ((old_id == 0) && (plci->li_bchannel_id != 0)
10418    && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
10419   {
10420     mixer_clear_config (plci);
10421   }
10422   dbug (1, dprintf ("[%06lx] %s,%d: mixer_set_bchannel_id_esc %d %d",
10423     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
10424     (char   *)(FILE_), __LINE__, bchannel_id, plci->li_bchannel_id));
10425 }
10426
10427
10428 static void mixer_set_bchannel_id (PLCI   *plci, byte   *chi)
10429 {
10430   DIVA_CAPI_ADAPTER   *a;
10431   PLCI   *splci;
10432   byte ch, old_id;
10433
10434   a = plci->adapter;
10435   old_id = plci->li_bchannel_id;
10436   ch = chi_to_channel (chi, NULL);
10437   if (!(ch & 0x80))
10438   {
10439     if (a->li_pri)
10440     {
10441       if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci))
10442         li_config_table[a->li_base + (old_id - 1)].plci = NULL;
10443       plci->li_bchannel_id = (ch & 0x1f) + 1;
10444       if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL)
10445         li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci;
10446     }
10447     else
10448     {
10449       if (((ch & 0x1f) == 1) || ((ch & 0x1f) == 2))
10450       {
10451         if ((old_id != 0) && (li_config_table[a->li_base + (old_id - 1)].plci == plci))
10452           li_config_table[a->li_base + (old_id - 1)].plci = NULL;
10453         plci->li_bchannel_id = ch & 0x1f;
10454         if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI != plci) && (a->AdvSignalPLCI->tel == ADV_VOICE))
10455         {
10456           splci = a->AdvSignalPLCI;
10457           if (li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci == NULL)
10458           {
10459             if ((splci->li_bchannel_id != 0)
10460              && (li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci == splci))
10461             {
10462               li_config_table[a->li_base + (splci->li_bchannel_id - 1)].plci = NULL;
10463             }
10464             splci->li_bchannel_id = 3 - plci->li_bchannel_id;
10465             li_config_table[a->li_base + (2 - plci->li_bchannel_id)].plci = splci;
10466             dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_set_bchannel_id %d",
10467               (dword)((splci->Id << 8) | UnMapController (splci->adapter->Id)),
10468               (char   *)(FILE_), __LINE__, splci->li_bchannel_id));
10469           }
10470         }
10471         if (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == NULL)
10472           li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci = plci;
10473       }
10474     }
10475   }
10476   if ((old_id == 0) && (plci->li_bchannel_id != 0)
10477    && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
10478   {
10479     mixer_clear_config (plci);
10480   }
10481   dbug (1, dprintf ("[%06lx] %s,%d: mixer_set_bchannel_id %02x %d",
10482     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
10483     (char   *)(FILE_), __LINE__, ch, plci->li_bchannel_id));
10484 }
10485
10486
10487 #define MIXER_MAX_DUMP_CHANNELS 34
10488
10489 static void mixer_calculate_coefs (DIVA_CAPI_ADAPTER   *a)
10490 {
10491 static char hex_digit_table[0x10] = {'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'};
10492   word n, i, j;
10493   char *p;
10494     char hex_line[2 * MIXER_MAX_DUMP_CHANNELS + MIXER_MAX_DUMP_CHANNELS / 8 + 4];
10495
10496   dbug (1, dprintf ("[%06lx] %s,%d: mixer_calculate_coefs",
10497     (dword)(UnMapController (a->Id)), (char   *)(FILE_), __LINE__));
10498
10499   for (i = 0; i < li_total_channels; i++)
10500   {
10501     li_config_table[i].channel &= LI_CHANNEL_ADDRESSES_SET;
10502     if (li_config_table[i].chflags != 0)
10503       li_config_table[i].channel |= LI_CHANNEL_INVOLVED;
10504     else
10505     {
10506       for (j = 0; j < li_total_channels; j++)
10507       {
10508         if (((li_config_table[i].flag_table[j]) != 0)
10509          || ((li_config_table[j].flag_table[i]) != 0))
10510         {
10511           li_config_table[i].channel |= LI_CHANNEL_INVOLVED;
10512         }
10513         if (((li_config_table[i].flag_table[j] & LI_FLAG_CONFERENCE) != 0)
10514          || ((li_config_table[j].flag_table[i] & LI_FLAG_CONFERENCE) != 0))
10515         {
10516           li_config_table[i].channel |= LI_CHANNEL_CONFERENCE;
10517         }
10518       }
10519     }
10520   }
10521   for (i = 0; i < li_total_channels; i++)
10522   {
10523     for (j = 0; j < li_total_channels; j++)
10524     {
10525       li_config_table[i].coef_table[j] &= ~(LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC);
10526       if (li_config_table[i].flag_table[j] & LI_FLAG_CONFERENCE)
10527         li_config_table[i].coef_table[j] |= LI_COEF_CH_CH;
10528     }
10529   }
10530   for (n = 0; n < li_total_channels; n++)
10531   {
10532     if (li_config_table[n].channel & LI_CHANNEL_CONFERENCE)
10533     {
10534       for (i = 0; i < li_total_channels; i++)
10535       {
10536         if (li_config_table[i].channel & LI_CHANNEL_CONFERENCE)
10537         {
10538           for (j = 0; j < li_total_channels; j++)
10539           {
10540             li_config_table[i].coef_table[j] |=
10541               li_config_table[i].coef_table[n] & li_config_table[n].coef_table[j];
10542           }
10543         }
10544       }
10545     }
10546   }
10547   for (i = 0; i < li_total_channels; i++)
10548   {
10549     if (li_config_table[i].channel & LI_CHANNEL_INVOLVED)
10550     {
10551       li_config_table[i].coef_table[i] &= ~LI_COEF_CH_CH;
10552       for (j = 0; j < li_total_channels; j++)
10553       {
10554         if (li_config_table[i].coef_table[j] & LI_COEF_CH_CH)
10555           li_config_table[i].flag_table[j] |= LI_FLAG_CONFERENCE;
10556       }
10557       if (li_config_table[i].flag_table[i] & LI_FLAG_CONFERENCE)
10558         li_config_table[i].coef_table[i] |= LI_COEF_CH_CH;
10559     }
10560   }
10561   for (i = 0; i < li_total_channels; i++)
10562   {
10563     if (li_config_table[i].channel & LI_CHANNEL_INVOLVED)
10564     {
10565       for (j = 0; j < li_total_channels; j++)
10566       {
10567         if (li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT)
10568           li_config_table[i].coef_table[j] |= LI_COEF_CH_CH;
10569         if (li_config_table[i].flag_table[j] & LI_FLAG_MONITOR)
10570           li_config_table[i].coef_table[j] |= LI_COEF_CH_PC;
10571         if (li_config_table[i].flag_table[j] & LI_FLAG_MIX)
10572           li_config_table[i].coef_table[j] |= LI_COEF_PC_CH;
10573         if (li_config_table[i].flag_table[j] & LI_FLAG_PCCONNECT)
10574           li_config_table[i].coef_table[j] |= LI_COEF_PC_PC;
10575       }
10576       if (li_config_table[i].chflags & LI_CHFLAG_MONITOR)
10577       {
10578         for (j = 0; j < li_total_channels; j++)
10579         {
10580           if (li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT)
10581           {
10582             li_config_table[i].coef_table[j] |= LI_COEF_CH_PC;
10583             if (li_config_table[j].chflags & LI_CHFLAG_MIX)
10584               li_config_table[i].coef_table[j] |= LI_COEF_PC_CH | LI_COEF_PC_PC;
10585           }
10586         }
10587       }
10588       if (li_config_table[i].chflags & LI_CHFLAG_MIX)
10589       {
10590         for (j = 0; j < li_total_channels; j++)
10591         {
10592           if (li_config_table[j].flag_table[i] & LI_FLAG_INTERCONNECT)
10593             li_config_table[j].coef_table[i] |= LI_COEF_PC_CH;
10594         }
10595       }
10596       if (li_config_table[i].chflags & LI_CHFLAG_LOOP)
10597       {
10598         for (j = 0; j < li_total_channels; j++)
10599         {
10600           if (li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT)
10601           {
10602             for (n = 0; n < li_total_channels; n++)
10603             {
10604               if (li_config_table[n].flag_table[i] & LI_FLAG_INTERCONNECT)
10605               {
10606                 li_config_table[n].coef_table[j] |= LI_COEF_CH_CH;
10607                 if (li_config_table[j].chflags & LI_CHFLAG_MIX)
10608                 {
10609                   li_config_table[n].coef_table[j] |= LI_COEF_PC_CH;
10610                   if (li_config_table[n].chflags & LI_CHFLAG_MONITOR)
10611                     li_config_table[n].coef_table[j] |= LI_COEF_CH_PC | LI_COEF_PC_PC;
10612                 }
10613                 else if (li_config_table[n].chflags & LI_CHFLAG_MONITOR)
10614                   li_config_table[n].coef_table[j] |= LI_COEF_CH_PC;
10615               }
10616             }
10617           }
10618         }
10619       }
10620     }
10621   }
10622   for (i = 0; i < li_total_channels; i++)
10623   {
10624     if (li_config_table[i].channel & LI_CHANNEL_INVOLVED)
10625     {
10626       if (li_config_table[i].chflags & (LI_CHFLAG_MONITOR | LI_CHFLAG_MIX | LI_CHFLAG_LOOP))
10627         li_config_table[i].channel |= LI_CHANNEL_ACTIVE;
10628       if (li_config_table[i].chflags & LI_CHFLAG_MONITOR)
10629         li_config_table[i].channel |= LI_CHANNEL_RX_DATA;
10630       if (li_config_table[i].chflags & LI_CHFLAG_MIX)
10631         li_config_table[i].channel |= LI_CHANNEL_TX_DATA;
10632       for (j = 0; j < li_total_channels; j++)
10633       {
10634         if ((li_config_table[i].flag_table[j] &
10635           (LI_FLAG_INTERCONNECT | LI_FLAG_PCCONNECT | LI_FLAG_CONFERENCE | LI_FLAG_MONITOR))
10636          || (li_config_table[j].flag_table[i] &
10637           (LI_FLAG_INTERCONNECT | LI_FLAG_PCCONNECT | LI_FLAG_CONFERENCE | LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX)))
10638         {
10639           li_config_table[i].channel |= LI_CHANNEL_ACTIVE;
10640         }
10641         if (li_config_table[i].flag_table[j] & (LI_FLAG_PCCONNECT | LI_FLAG_MONITOR))
10642           li_config_table[i].channel |= LI_CHANNEL_RX_DATA;
10643         if (li_config_table[j].flag_table[i] & (LI_FLAG_PCCONNECT | LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX))
10644           li_config_table[i].channel |= LI_CHANNEL_TX_DATA;
10645       }
10646       if (!(li_config_table[i].channel & LI_CHANNEL_ACTIVE))
10647       {
10648         li_config_table[i].coef_table[i] |= LI_COEF_PC_CH | LI_COEF_CH_PC;
10649         li_config_table[i].channel |= LI_CHANNEL_TX_DATA | LI_CHANNEL_RX_DATA;
10650       }
10651     }
10652   }
10653   for (i = 0; i < li_total_channels; i++)
10654   {
10655     if (li_config_table[i].channel & LI_CHANNEL_INVOLVED)
10656     {
10657       j = 0;
10658       while ((j < li_total_channels) && !(li_config_table[i].flag_table[j] & LI_FLAG_ANNOUNCEMENT))
10659         j++;
10660       if (j < li_total_channels)
10661       {
10662         for (j = 0; j < li_total_channels; j++)
10663         {
10664           li_config_table[i].coef_table[j] &= ~(LI_COEF_CH_CH | LI_COEF_PC_CH);
10665           if (li_config_table[i].flag_table[j] & LI_FLAG_ANNOUNCEMENT)
10666             li_config_table[i].coef_table[j] |= LI_COEF_PC_CH;
10667         }
10668       }
10669     }
10670   }
10671   n = li_total_channels;
10672   if (n > MIXER_MAX_DUMP_CHANNELS)
10673     n = MIXER_MAX_DUMP_CHANNELS;
10674   p = hex_line;
10675   for (j = 0; j < n; j++)
10676   {
10677     if ((j & 0x7) == 0)
10678       *(p++) = ' ';
10679     *(p++) = hex_digit_table[li_config_table[j].curchnl >> 4];
10680     *(p++) = hex_digit_table[li_config_table[j].curchnl & 0xf];
10681   }
10682   *p = '\0';
10683   dbug (1, dprintf ("[%06lx] CURRENT %s",
10684     (dword)(UnMapController (a->Id)), (char   *) hex_line));
10685   p = hex_line;
10686   for (j = 0; j < n; j++)
10687   {
10688     if ((j & 0x7) == 0)
10689       *(p++) = ' ';
10690     *(p++) = hex_digit_table[li_config_table[j].channel >> 4];
10691     *(p++) = hex_digit_table[li_config_table[j].channel & 0xf];
10692   }
10693   *p = '\0';
10694   dbug (1, dprintf ("[%06lx] CHANNEL %s",
10695     (dword)(UnMapController (a->Id)), (char   *) hex_line));
10696   p = hex_line;
10697   for (j = 0; j < n; j++)
10698   {
10699     if ((j & 0x7) == 0)
10700       *(p++) = ' ';
10701     *(p++) = hex_digit_table[li_config_table[j].chflags >> 4];
10702     *(p++) = hex_digit_table[li_config_table[j].chflags & 0xf];
10703   }
10704   *p = '\0';
10705   dbug (1, dprintf ("[%06lx] CHFLAG  %s",
10706     (dword)(UnMapController (a->Id)), (char   *) hex_line));
10707   for (i = 0; i < n; i++)
10708   {
10709     p = hex_line;
10710     for (j = 0; j < n; j++)
10711     {
10712       if ((j & 0x7) == 0)
10713         *(p++) = ' ';
10714       *(p++) = hex_digit_table[li_config_table[i].flag_table[j] >> 4];
10715       *(p++) = hex_digit_table[li_config_table[i].flag_table[j] & 0xf];
10716     }
10717     *p = '\0';
10718     dbug (1, dprintf ("[%06lx] FLAG[%02x]%s",
10719       (dword)(UnMapController (a->Id)), i, (char   *) hex_line));
10720   }
10721   for (i = 0; i < n; i++)
10722   {
10723     p = hex_line;
10724     for (j = 0; j < n; j++)
10725     {
10726       if ((j & 0x7) == 0)
10727         *(p++) = ' ';
10728       *(p++) = hex_digit_table[li_config_table[i].coef_table[j] >> 4];
10729       *(p++) = hex_digit_table[li_config_table[i].coef_table[j] & 0xf];
10730     }
10731     *p = '\0';
10732     dbug (1, dprintf ("[%06lx] COEF[%02x]%s",
10733       (dword)(UnMapController (a->Id)), i, (char   *) hex_line));
10734   }
10735 }
10736
10737
10738 static struct
10739 {
10740   byte mask;
10741   byte line_flags;
10742 } mixer_write_prog_pri[] =
10743 {
10744   { LI_COEF_CH_CH, 0 },
10745   { LI_COEF_CH_PC, MIXER_COEF_LINE_TO_PC_FLAG },
10746   { LI_COEF_PC_CH, MIXER_COEF_LINE_FROM_PC_FLAG },
10747   { LI_COEF_PC_PC, MIXER_COEF_LINE_TO_PC_FLAG | MIXER_COEF_LINE_FROM_PC_FLAG }
10748 };
10749
10750 static struct
10751 {
10752   byte from_ch;
10753   byte to_ch;
10754   byte mask;
10755   byte xconnect_override;
10756 } mixer_write_prog_bri[] =
10757 {
10758   { 0, 0, LI_COEF_CH_CH, 0x01 },  /* B      to B      */
10759   { 1, 0, LI_COEF_CH_CH, 0x01 },  /* Alt B  to B      */
10760   { 0, 0, LI_COEF_PC_CH, 0x80 },  /* PC     to B      */
10761   { 1, 0, LI_COEF_PC_CH, 0x01 },  /* Alt PC to B      */
10762   { 2, 0, LI_COEF_CH_CH, 0x00 },  /* IC     to B      */
10763   { 3, 0, LI_COEF_CH_CH, 0x00 },  /* Alt IC to B      */
10764   { 0, 0, LI_COEF_CH_PC, 0x80 },  /* B      to PC     */
10765   { 1, 0, LI_COEF_CH_PC, 0x01 },  /* Alt B  to PC     */
10766   { 0, 0, LI_COEF_PC_PC, 0x01 },  /* PC     to PC     */
10767   { 1, 0, LI_COEF_PC_PC, 0x01 },  /* Alt PC to PC     */
10768   { 2, 0, LI_COEF_CH_PC, 0x00 },  /* IC     to PC     */
10769   { 3, 0, LI_COEF_CH_PC, 0x00 },  /* Alt IC to PC     */
10770   { 0, 2, LI_COEF_CH_CH, 0x00 },  /* B      to IC     */
10771   { 1, 2, LI_COEF_CH_CH, 0x00 },  /* Alt B  to IC     */
10772   { 0, 2, LI_COEF_PC_CH, 0x00 },  /* PC     to IC     */
10773   { 1, 2, LI_COEF_PC_CH, 0x00 },  /* Alt PC to IC     */
10774   { 2, 2, LI_COEF_CH_CH, 0x00 },  /* IC     to IC     */
10775   { 3, 2, LI_COEF_CH_CH, 0x00 },  /* Alt IC to IC     */
10776   { 1, 1, LI_COEF_CH_CH, 0x01 },  /* Alt B  to Alt B  */
10777   { 0, 1, LI_COEF_CH_CH, 0x01 },  /* B      to Alt B  */
10778   { 1, 1, LI_COEF_PC_CH, 0x80 },  /* Alt PC to Alt B  */
10779   { 0, 1, LI_COEF_PC_CH, 0x01 },  /* PC     to Alt B  */
10780   { 3, 1, LI_COEF_CH_CH, 0x00 },  /* Alt IC to Alt B  */
10781   { 2, 1, LI_COEF_CH_CH, 0x00 },  /* IC     to Alt B  */
10782   { 1, 1, LI_COEF_CH_PC, 0x80 },  /* Alt B  to Alt PC */
10783   { 0, 1, LI_COEF_CH_PC, 0x01 },  /* B      to Alt PC */
10784   { 1, 1, LI_COEF_PC_PC, 0x01 },  /* Alt PC to Alt PC */
10785   { 0, 1, LI_COEF_PC_PC, 0x01 },  /* PC     to Alt PC */
10786   { 3, 1, LI_COEF_CH_PC, 0x00 },  /* Alt IC to Alt PC */
10787   { 2, 1, LI_COEF_CH_PC, 0x00 },  /* IC     to Alt PC */
10788   { 1, 3, LI_COEF_CH_CH, 0x00 },  /* Alt B  to Alt IC */
10789   { 0, 3, LI_COEF_CH_CH, 0x00 },  /* B      to Alt IC */
10790   { 1, 3, LI_COEF_PC_CH, 0x00 },  /* Alt PC to Alt IC */
10791   { 0, 3, LI_COEF_PC_CH, 0x00 },  /* PC     to Alt IC */
10792   { 3, 3, LI_COEF_CH_CH, 0x00 },  /* Alt IC to Alt IC */
10793   { 2, 3, LI_COEF_CH_CH, 0x00 }   /* IC     to Alt IC */
10794 };
10795
10796 static byte mixer_swapped_index_bri[] =
10797 {
10798   18,  /* B      to B      */
10799   19,  /* Alt B  to B      */
10800   20,  /* PC     to B      */
10801   21,  /* Alt PC to B      */
10802   22,  /* IC     to B      */
10803   23,  /* Alt IC to B      */
10804   24,  /* B      to PC     */
10805   25,  /* Alt B  to PC     */
10806   26,  /* PC     to PC     */
10807   27,  /* Alt PC to PC     */
10808   28,  /* IC     to PC     */
10809   29,  /* Alt IC to PC     */
10810   30,  /* B      to IC     */
10811   31,  /* Alt B  to IC     */
10812   32,  /* PC     to IC     */
10813   33,  /* Alt PC to IC     */
10814   34,  /* IC     to IC     */
10815   35,  /* Alt IC to IC     */
10816   0,   /* Alt B  to Alt B  */
10817   1,   /* B      to Alt B  */
10818   2,   /* Alt PC to Alt B  */
10819   3,   /* PC     to Alt B  */
10820   4,   /* Alt IC to Alt B  */
10821   5,   /* IC     to Alt B  */
10822   6,   /* Alt B  to Alt PC */
10823   7,   /* B      to Alt PC */
10824   8,   /* Alt PC to Alt PC */
10825   9,   /* PC     to Alt PC */
10826   10,  /* Alt IC to Alt PC */
10827   11,  /* IC     to Alt PC */
10828   12,  /* Alt B  to Alt IC */
10829   13,  /* B      to Alt IC */
10830   14,  /* Alt PC to Alt IC */
10831   15,  /* PC     to Alt IC */
10832   16,  /* Alt IC to Alt IC */
10833   17   /* IC     to Alt IC */
10834 };
10835
10836 static struct
10837 {
10838   byte mask;
10839   byte from_pc;
10840   byte to_pc;
10841 } xconnect_write_prog[] =
10842 {
10843   { LI_COEF_CH_CH, false, false },
10844   { LI_COEF_CH_PC, false, true },
10845   { LI_COEF_PC_CH, true, false },
10846   { LI_COEF_PC_PC, true, true }
10847 };
10848
10849
10850 static void xconnect_query_addresses (PLCI   *plci)
10851 {
10852   DIVA_CAPI_ADAPTER   *a;
10853   word w, ch;
10854   byte   *p;
10855
10856   dbug (1, dprintf ("[%06lx] %s,%d: xconnect_query_addresses",
10857     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
10858     (char   *)(FILE_), __LINE__));
10859
10860   a = plci->adapter;
10861   if (a->li_pri && ((plci->li_bchannel_id == 0)
10862    || (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci != plci)))
10863   {
10864     dbug (1, dprintf ("[%06x] %s,%d: Channel id wiped out",
10865       (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
10866       (char   *)(FILE_), __LINE__));
10867     return;
10868   }
10869   p = plci->internal_req_buffer;
10870   ch = (a->li_pri) ? plci->li_bchannel_id - 1 : 0;
10871   *(p++) = UDATA_REQUEST_XCONNECT_FROM;
10872   w = ch;
10873   *(p++) = (byte) w;
10874   *(p++) = (byte)(w >> 8);
10875   w = ch | XCONNECT_CHANNEL_PORT_PC;
10876   *(p++) = (byte) w;
10877   *(p++) = (byte)(w >> 8);
10878   plci->NData[0].P = plci->internal_req_buffer;
10879   plci->NData[0].PLength = p - plci->internal_req_buffer;
10880   plci->NL.X = plci->NData;
10881   plci->NL.ReqCh = 0;
10882   plci->NL.Req = plci->nl_req = (byte) N_UDATA;
10883   plci->adapter->request (&plci->NL);
10884 }
10885
10886
10887 static void xconnect_write_coefs (PLCI   *plci, word internal_command)
10888 {
10889
10890   dbug (1, dprintf ("[%06lx] %s,%d: xconnect_write_coefs %04x",
10891     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
10892     (char   *)(FILE_), __LINE__, internal_command));
10893
10894   plci->li_write_command = internal_command;
10895   plci->li_write_channel = 0;
10896 }
10897
10898
10899 static byte xconnect_write_coefs_process (dword Id, PLCI   *plci, byte Rc)
10900 {
10901   DIVA_CAPI_ADAPTER   *a;
10902   word w, n, i, j, r, s, to_ch;
10903   dword d;
10904   byte   *p;
10905   struct xconnect_transfer_address_s   *transfer_address;
10906   byte ch_map[MIXER_CHANNELS_BRI];
10907
10908   dbug (1, dprintf ("[%06x] %s,%d: xconnect_write_coefs_process %02x %d",
10909     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->li_write_channel));
10910
10911   a = plci->adapter;
10912   if ((plci->li_bchannel_id == 0)
10913    || (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci != plci))
10914   {
10915     dbug (1, dprintf ("[%06x] %s,%d: Channel id wiped out",
10916       UnMapId (Id), (char   *)(FILE_), __LINE__));
10917     return (true);
10918   }
10919   i = a->li_base + (plci->li_bchannel_id - 1);
10920   j = plci->li_write_channel;
10921   p = plci->internal_req_buffer;
10922   if (j != 0)
10923   {
10924     if ((Rc != OK) && (Rc != OK_FC))
10925     {
10926       dbug (1, dprintf ("[%06lx] %s,%d: LI write coefs failed %02x",
10927         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
10928       return (false);
10929     }
10930   }
10931   if (li_config_table[i].adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
10932   {
10933     r = 0;
10934     s = 0;
10935     if (j < li_total_channels)
10936     {
10937       if (li_config_table[i].channel & LI_CHANNEL_ADDRESSES_SET)
10938       {
10939         s = ((li_config_table[i].send_b.card_address.low | li_config_table[i].send_b.card_address.high) ?
10940             (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_PC | LI_COEF_PC_PC)) &
10941           ((li_config_table[i].send_pc.card_address.low | li_config_table[i].send_pc.card_address.high) ?
10942             (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_PC_CH));
10943       }
10944       r = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4));
10945       while ((j < li_total_channels)
10946         && ((r == 0)
10947          || (!(li_config_table[j].channel & LI_CHANNEL_ADDRESSES_SET))
10948          || (!li_config_table[j].adapter->li_pri
10949           && (j >= li_config_table[j].adapter->li_base + MIXER_BCHANNELS_BRI))
10950          || (((li_config_table[j].send_b.card_address.low != li_config_table[i].send_b.card_address.low)
10951            || (li_config_table[j].send_b.card_address.high != li_config_table[i].send_b.card_address.high))
10952           && (!(a->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT)
10953            || !(li_config_table[j].adapter->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT)))
10954          || ((li_config_table[j].adapter->li_base != a->li_base)
10955           && !(r & s &
10956             ((li_config_table[j].send_b.card_address.low | li_config_table[j].send_b.card_address.high) ?
10957               (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_PC_CH | LI_COEF_PC_PC)) &
10958             ((li_config_table[j].send_pc.card_address.low | li_config_table[j].send_pc.card_address.high) ?
10959               (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_CH_PC))))))
10960       {
10961         j++;
10962         if (j < li_total_channels)
10963           r = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4));
10964       }
10965     }
10966     if (j < li_total_channels)
10967     {
10968       plci->internal_command = plci->li_write_command;
10969       if (plci_nl_busy (plci))
10970         return (true);
10971       to_ch = (a->li_pri) ? plci->li_bchannel_id - 1 : 0;
10972       *(p++) = UDATA_REQUEST_XCONNECT_TO;
10973       do
10974       {
10975         if (li_config_table[j].adapter->li_base != a->li_base)
10976         {
10977           r &= s &
10978             ((li_config_table[j].send_b.card_address.low | li_config_table[j].send_b.card_address.high) ?
10979               (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_PC_CH | LI_COEF_PC_PC)) &
10980             ((li_config_table[j].send_pc.card_address.low | li_config_table[j].send_pc.card_address.high) ?
10981               (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_CH_PC));
10982         }
10983         n = 0;
10984         do
10985         {
10986           if (r & xconnect_write_prog[n].mask)
10987           {
10988             if (xconnect_write_prog[n].from_pc)
10989               transfer_address = &(li_config_table[j].send_pc);
10990             else
10991               transfer_address = &(li_config_table[j].send_b);
10992             d = transfer_address->card_address.low;
10993             *(p++) = (byte) d;
10994             *(p++) = (byte)(d >> 8);
10995             *(p++) = (byte)(d >> 16);
10996             *(p++) = (byte)(d >> 24);
10997             d = transfer_address->card_address.high;
10998             *(p++) = (byte) d;
10999             *(p++) = (byte)(d >> 8);
11000             *(p++) = (byte)(d >> 16);
11001             *(p++) = (byte)(d >> 24);
11002             d = transfer_address->offset;
11003             *(p++) = (byte) d;
11004             *(p++) = (byte)(d >> 8);
11005             *(p++) = (byte)(d >> 16);
11006             *(p++) = (byte)(d >> 24);
11007             w = xconnect_write_prog[n].to_pc ? to_ch | XCONNECT_CHANNEL_PORT_PC : to_ch;
11008             *(p++) = (byte) w;
11009             *(p++) = (byte)(w >> 8);
11010             w = ((li_config_table[i].coef_table[j] & xconnect_write_prog[n].mask) == 0) ? 0x01 :
11011               (li_config_table[i].adapter->u_law ?
11012                  (li_config_table[j].adapter->u_law ? 0x80 : 0x86) :
11013                  (li_config_table[j].adapter->u_law ? 0x7a : 0x80));
11014             *(p++) = (byte) w;
11015             *(p++) = (byte) 0;
11016             li_config_table[i].coef_table[j] ^= xconnect_write_prog[n].mask << 4;
11017           }
11018           n++;
11019         } while ((n < ARRAY_SIZE(xconnect_write_prog))
11020           && ((p - plci->internal_req_buffer) + 16 < INTERNAL_REQ_BUFFER_SIZE));
11021         if (n == ARRAY_SIZE(xconnect_write_prog))
11022         {
11023           do
11024           {
11025             j++;
11026             if (j < li_total_channels)
11027               r = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4));
11028           } while ((j < li_total_channels)
11029             && ((r == 0)
11030              || (!(li_config_table[j].channel & LI_CHANNEL_ADDRESSES_SET))
11031              || (!li_config_table[j].adapter->li_pri
11032               && (j >= li_config_table[j].adapter->li_base + MIXER_BCHANNELS_BRI))
11033              || (((li_config_table[j].send_b.card_address.low != li_config_table[i].send_b.card_address.low)
11034                || (li_config_table[j].send_b.card_address.high != li_config_table[i].send_b.card_address.high))
11035               && (!(a->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT)
11036                || !(li_config_table[j].adapter->manufacturer_features & MANUFACTURER_FEATURE_DMACONNECT)))
11037              || ((li_config_table[j].adapter->li_base != a->li_base)
11038               && !(r & s &
11039                 ((li_config_table[j].send_b.card_address.low | li_config_table[j].send_b.card_address.high) ?
11040                   (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_PC_CH | LI_COEF_PC_PC)) &
11041                 ((li_config_table[j].send_pc.card_address.low | li_config_table[j].send_pc.card_address.high) ?
11042                   (LI_COEF_CH_CH | LI_COEF_CH_PC | LI_COEF_PC_CH | LI_COEF_PC_PC) : (LI_COEF_CH_CH | LI_COEF_CH_PC))))));
11043         }
11044       } while ((j < li_total_channels)
11045         && ((p - plci->internal_req_buffer) + 16 < INTERNAL_REQ_BUFFER_SIZE));
11046     }
11047     else if (j == li_total_channels)
11048     {
11049       plci->internal_command = plci->li_write_command;
11050       if (plci_nl_busy (plci))
11051         return (true);
11052       if (a->li_pri)
11053       {
11054         *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_PRI_SYNC;
11055         w = 0;
11056         if (li_config_table[i].channel & LI_CHANNEL_TX_DATA)
11057           w |= MIXER_FEATURE_ENABLE_TX_DATA;
11058         if (li_config_table[i].channel & LI_CHANNEL_RX_DATA)
11059           w |= MIXER_FEATURE_ENABLE_RX_DATA;
11060         *(p++) = (byte) w;
11061         *(p++) = (byte)(w >> 8);
11062       }
11063       else
11064       {
11065         *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_BRI;
11066         w = 0;
11067         if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI)
11068          && (ADV_VOICE_NEW_COEF_BASE + sizeof(word) <= a->adv_voice_coef_length))
11069         {
11070           w = GET_WORD (a->adv_voice_coef_buffer + ADV_VOICE_NEW_COEF_BASE);
11071         }
11072         if (li_config_table[i].channel & LI_CHANNEL_TX_DATA)
11073           w |= MIXER_FEATURE_ENABLE_TX_DATA;
11074         if (li_config_table[i].channel & LI_CHANNEL_RX_DATA)
11075           w |= MIXER_FEATURE_ENABLE_RX_DATA;
11076         *(p++) = (byte) w;
11077         *(p++) = (byte)(w >> 8);
11078         for (j = 0; j < sizeof(ch_map); j += 2)
11079         {
11080           if (plci->li_bchannel_id == 2)
11081           {
11082             ch_map[j] = (byte)(j+1);
11083             ch_map[j+1] = (byte) j;
11084           }
11085           else
11086           {
11087             ch_map[j] = (byte) j;
11088             ch_map[j+1] = (byte)(j+1);
11089           }
11090         }
11091         for (n = 0; n < ARRAY_SIZE(mixer_write_prog_bri); n++)
11092         {
11093           i = a->li_base + ch_map[mixer_write_prog_bri[n].to_ch];
11094           j = a->li_base + ch_map[mixer_write_prog_bri[n].from_ch];
11095           if (li_config_table[i].channel & li_config_table[j].channel & LI_CHANNEL_INVOLVED)
11096           {
11097             *p = (mixer_write_prog_bri[n].xconnect_override != 0) ?
11098               mixer_write_prog_bri[n].xconnect_override :
11099               ((li_config_table[i].coef_table[j] & mixer_write_prog_bri[n].mask) ? 0x80 : 0x01);
11100             if ((i >= a->li_base + MIXER_BCHANNELS_BRI) || (j >= a->li_base + MIXER_BCHANNELS_BRI))
11101             {
11102               w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4));
11103               li_config_table[i].coef_table[j] ^= (w & mixer_write_prog_bri[n].mask) << 4;
11104             }
11105           }
11106           else
11107           {
11108             *p = 0x00;
11109             if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI->tel == ADV_VOICE))
11110             {
11111               w = (plci == a->AdvSignalPLCI) ? n : mixer_swapped_index_bri[n];
11112               if (ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w < a->adv_voice_coef_length)
11113                 *p = a->adv_voice_coef_buffer[ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w];
11114             }
11115           }
11116           p++;
11117         }
11118       }
11119       j = li_total_channels + 1;
11120     }
11121   }
11122   else
11123   {
11124     if (j <= li_total_channels)
11125     {
11126       plci->internal_command = plci->li_write_command;
11127       if (plci_nl_busy (plci))
11128         return (true);
11129       if (j < a->li_base)
11130         j = a->li_base;
11131       if (a->li_pri)
11132       {
11133         *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_PRI_SYNC;
11134         w = 0;
11135         if (li_config_table[i].channel & LI_CHANNEL_TX_DATA)
11136           w |= MIXER_FEATURE_ENABLE_TX_DATA;
11137         if (li_config_table[i].channel & LI_CHANNEL_RX_DATA)
11138           w |= MIXER_FEATURE_ENABLE_RX_DATA;
11139         *(p++) = (byte) w;
11140         *(p++) = (byte)(w >> 8);
11141         for (n = 0; n < ARRAY_SIZE(mixer_write_prog_pri); n++)
11142         {
11143           *(p++) = (byte)((plci->li_bchannel_id - 1) | mixer_write_prog_pri[n].line_flags);
11144           for (j = a->li_base; j < a->li_base + MIXER_CHANNELS_PRI; j++)
11145           {
11146             w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4));
11147             if (w & mixer_write_prog_pri[n].mask)
11148             {
11149               *(p++) = (li_config_table[i].coef_table[j] & mixer_write_prog_pri[n].mask) ? 0x80 : 0x01;
11150               li_config_table[i].coef_table[j] ^= mixer_write_prog_pri[n].mask << 4;
11151             }
11152             else
11153               *(p++) = 0x00;
11154           }
11155           *(p++) = (byte)((plci->li_bchannel_id - 1) | MIXER_COEF_LINE_ROW_FLAG | mixer_write_prog_pri[n].line_flags);
11156           for (j = a->li_base; j < a->li_base + MIXER_CHANNELS_PRI; j++)
11157           {
11158             w = ((li_config_table[j].coef_table[i] & 0xf) ^ (li_config_table[j].coef_table[i] >> 4));
11159             if (w & mixer_write_prog_pri[n].mask)
11160             {
11161               *(p++) = (li_config_table[j].coef_table[i] & mixer_write_prog_pri[n].mask) ? 0x80 : 0x01;
11162               li_config_table[j].coef_table[i] ^= mixer_write_prog_pri[n].mask << 4;
11163             }
11164             else
11165               *(p++) = 0x00;
11166           }
11167         }
11168       }
11169       else
11170       {
11171         *(p++) = UDATA_REQUEST_SET_MIXER_COEFS_BRI;
11172         w = 0;
11173         if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI)
11174          && (ADV_VOICE_NEW_COEF_BASE + sizeof(word) <= a->adv_voice_coef_length))
11175         {
11176           w = GET_WORD (a->adv_voice_coef_buffer + ADV_VOICE_NEW_COEF_BASE);
11177         }
11178         if (li_config_table[i].channel & LI_CHANNEL_TX_DATA)
11179           w |= MIXER_FEATURE_ENABLE_TX_DATA;
11180         if (li_config_table[i].channel & LI_CHANNEL_RX_DATA)
11181           w |= MIXER_FEATURE_ENABLE_RX_DATA;
11182         *(p++) = (byte) w;
11183         *(p++) = (byte)(w >> 8);
11184         for (j = 0; j < sizeof(ch_map); j += 2)
11185         {
11186           if (plci->li_bchannel_id == 2)
11187           {
11188             ch_map[j] = (byte)(j+1);
11189             ch_map[j+1] = (byte) j;
11190           }
11191           else
11192           {
11193             ch_map[j] = (byte) j;
11194             ch_map[j+1] = (byte)(j+1);
11195           }
11196         }
11197         for (n = 0; n < ARRAY_SIZE(mixer_write_prog_bri); n++)
11198         {
11199           i = a->li_base + ch_map[mixer_write_prog_bri[n].to_ch];
11200           j = a->li_base + ch_map[mixer_write_prog_bri[n].from_ch];
11201           if (li_config_table[i].channel & li_config_table[j].channel & LI_CHANNEL_INVOLVED)
11202           {
11203             *p = ((li_config_table[i].coef_table[j] & mixer_write_prog_bri[n].mask) ? 0x80 : 0x01);
11204             w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4));
11205             li_config_table[i].coef_table[j] ^= (w & mixer_write_prog_bri[n].mask) << 4;
11206           }
11207           else
11208           {
11209             *p = 0x00;
11210             if ((a->AdvSignalPLCI != NULL) && (a->AdvSignalPLCI->tel == ADV_VOICE))
11211             {
11212               w = (plci == a->AdvSignalPLCI) ? n : mixer_swapped_index_bri[n];
11213               if (ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w < a->adv_voice_coef_length)
11214                 *p = a->adv_voice_coef_buffer[ADV_VOICE_NEW_COEF_BASE + sizeof(word) + w];
11215             }
11216           }
11217           p++;
11218         }
11219       }
11220       j = li_total_channels + 1;
11221     }
11222   }
11223   plci->li_write_channel = j;
11224   if (p != plci->internal_req_buffer)
11225   {
11226     plci->NData[0].P = plci->internal_req_buffer;
11227     plci->NData[0].PLength = p - plci->internal_req_buffer;
11228     plci->NL.X = plci->NData;
11229     plci->NL.ReqCh = 0;
11230     plci->NL.Req = plci->nl_req = (byte) N_UDATA;
11231     plci->adapter->request (&plci->NL);
11232   }
11233   return (true);
11234 }
11235
11236
11237 static void mixer_notify_update (PLCI   *plci, byte others)
11238 {
11239   DIVA_CAPI_ADAPTER   *a;
11240   word i, w;
11241   PLCI   *notify_plci;
11242     byte msg[sizeof(CAPI_MSG_HEADER) + 6];
11243
11244   dbug (1, dprintf ("[%06lx] %s,%d: mixer_notify_update %d",
11245     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
11246     (char   *)(FILE_), __LINE__, others));
11247
11248   a = plci->adapter;
11249   if (a->profile.Global_Options & GL_LINE_INTERCONNECT_SUPPORTED)
11250   {
11251     if (others)
11252       plci->li_notify_update = true;
11253     i = 0;
11254     do
11255     {
11256       notify_plci = NULL;
11257       if (others)
11258       {
11259         while ((i < li_total_channels) && (li_config_table[i].plci == NULL))
11260           i++;
11261         if (i < li_total_channels)
11262           notify_plci = li_config_table[i++].plci;
11263       }
11264       else
11265       {
11266         if ((plci->li_bchannel_id != 0)
11267          && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
11268         {
11269           notify_plci = plci;
11270         }
11271       }
11272       if ((notify_plci != NULL)
11273        && !notify_plci->li_notify_update
11274        && (notify_plci->appl != NULL)
11275        && (notify_plci->State)
11276        && notify_plci->NL.Id && !notify_plci->nl_remove_id)
11277       {
11278         notify_plci->li_notify_update = true;
11279         ((CAPI_MSG *) msg)->header.length = 18;
11280         ((CAPI_MSG *) msg)->header.appl_id = notify_plci->appl->Id;
11281         ((CAPI_MSG *) msg)->header.command = _FACILITY_R;
11282         ((CAPI_MSG *) msg)->header.number = 0;
11283         ((CAPI_MSG *) msg)->header.controller = notify_plci->adapter->Id;
11284         ((CAPI_MSG *) msg)->header.plci = notify_plci->Id;
11285         ((CAPI_MSG *) msg)->header.ncci = 0;
11286         ((CAPI_MSG *) msg)->info.facility_req.Selector = SELECTOR_LINE_INTERCONNECT;
11287         ((CAPI_MSG *) msg)->info.facility_req.structs[0] = 3;
11288         PUT_WORD (&(((CAPI_MSG *) msg)->info.facility_req.structs[1]), LI_REQ_SILENT_UPDATE);
11289         ((CAPI_MSG *) msg)->info.facility_req.structs[3] = 0;
11290         w = api_put (notify_plci->appl, (CAPI_MSG *) msg);
11291         if (w != _QUEUE_FULL)
11292         {
11293           if (w != 0)
11294           {
11295             dbug (1, dprintf ("[%06lx] %s,%d: Interconnect notify failed %06x %d",
11296               (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
11297               (char   *)(FILE_), __LINE__,
11298               (dword)((notify_plci->Id << 8) | UnMapController (notify_plci->adapter->Id)), w));
11299           }
11300           notify_plci->li_notify_update = false;
11301         }
11302       }
11303     } while (others && (notify_plci != NULL));
11304     if (others)
11305       plci->li_notify_update = false;
11306   }
11307 }
11308
11309
11310 static void mixer_clear_config (PLCI   *plci)
11311 {
11312   DIVA_CAPI_ADAPTER   *a;
11313   word i, j;
11314
11315   dbug (1, dprintf ("[%06lx] %s,%d: mixer_clear_config",
11316     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
11317     (char   *)(FILE_), __LINE__));
11318
11319   plci->li_notify_update = false;
11320   plci->li_plci_b_write_pos = 0;
11321   plci->li_plci_b_read_pos = 0;
11322   plci->li_plci_b_req_pos = 0;
11323   a = plci->adapter;
11324   if ((plci->li_bchannel_id != 0)
11325    && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
11326   {
11327     i = a->li_base + (plci->li_bchannel_id - 1);
11328     li_config_table[i].curchnl = 0;
11329     li_config_table[i].channel = 0;
11330     li_config_table[i].chflags = 0;
11331     for (j = 0; j < li_total_channels; j++)
11332     {
11333       li_config_table[j].flag_table[i] = 0;
11334       li_config_table[i].flag_table[j] = 0;
11335       li_config_table[i].coef_table[j] = 0;
11336       li_config_table[j].coef_table[i] = 0;
11337     }
11338     if (!a->li_pri)
11339     {
11340       li_config_table[i].coef_table[i] |= LI_COEF_CH_PC_SET | LI_COEF_PC_CH_SET;
11341       if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI))
11342       {
11343         i = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1);
11344         li_config_table[i].curchnl = 0;
11345         li_config_table[i].channel = 0;
11346         li_config_table[i].chflags = 0;
11347         for (j = 0; j < li_total_channels; j++)
11348         {
11349           li_config_table[i].flag_table[j] = 0;
11350           li_config_table[j].flag_table[i] = 0;
11351           li_config_table[i].coef_table[j] = 0;
11352           li_config_table[j].coef_table[i] = 0;
11353         }
11354         if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC)
11355         {
11356           i = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id);
11357           li_config_table[i].curchnl = 0;
11358           li_config_table[i].channel = 0;
11359           li_config_table[i].chflags = 0;
11360           for (j = 0; j < li_total_channels; j++)
11361           {
11362             li_config_table[i].flag_table[j] = 0;
11363             li_config_table[j].flag_table[i] = 0;
11364             li_config_table[i].coef_table[j] = 0;
11365             li_config_table[j].coef_table[i] = 0;
11366           }
11367         }
11368       }
11369     }
11370   }
11371 }
11372
11373
11374 static void mixer_prepare_switch (dword Id, PLCI   *plci)
11375 {
11376
11377   dbug (1, dprintf ("[%06lx] %s,%d: mixer_prepare_switch",
11378     UnMapId (Id), (char   *)(FILE_), __LINE__));
11379
11380   do
11381   {
11382     mixer_indication_coefs_set (Id, plci);
11383   } while (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos);
11384 }
11385
11386
11387 static word mixer_save_config (dword Id, PLCI   *plci, byte Rc)
11388 {
11389   DIVA_CAPI_ADAPTER   *a;
11390   word i, j;
11391
11392   dbug (1, dprintf ("[%06lx] %s,%d: mixer_save_config %02x %d",
11393     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
11394
11395   a = plci->adapter;
11396   if ((plci->li_bchannel_id != 0)
11397    && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
11398   {
11399     i = a->li_base + (plci->li_bchannel_id - 1);
11400     for (j = 0; j < li_total_channels; j++)
11401     {
11402       li_config_table[i].coef_table[j] &= 0xf;
11403       li_config_table[j].coef_table[i] &= 0xf;
11404     }
11405     if (!a->li_pri)
11406       li_config_table[i].coef_table[i] |= LI_COEF_CH_PC_SET | LI_COEF_PC_CH_SET;
11407   }
11408   return (GOOD);
11409 }
11410
11411
11412 static word mixer_restore_config (dword Id, PLCI   *plci, byte Rc)
11413 {
11414   DIVA_CAPI_ADAPTER   *a;
11415   word Info;
11416
11417   dbug (1, dprintf ("[%06lx] %s,%d: mixer_restore_config %02x %d",
11418     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
11419
11420   Info = GOOD;
11421   a = plci->adapter;
11422   if ((plci->B1_facilities & B1_FACILITY_MIXER)
11423    && (plci->li_bchannel_id != 0)
11424    && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
11425   {
11426     switch (plci->adjust_b_state)
11427     {
11428     case ADJUST_B_RESTORE_MIXER_1:
11429       if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
11430       {
11431         plci->internal_command = plci->adjust_b_command;
11432         if (plci_nl_busy (plci))
11433         {
11434           plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_1;
11435           break;
11436         }
11437         xconnect_query_addresses (plci);
11438         plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_2;
11439         break;
11440       }
11441       plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_5;
11442       Rc = OK;
11443     case ADJUST_B_RESTORE_MIXER_2:
11444     case ADJUST_B_RESTORE_MIXER_3:
11445     case ADJUST_B_RESTORE_MIXER_4:
11446       if ((Rc != OK) && (Rc != OK_FC) && (Rc != 0))
11447       {
11448         dbug (1, dprintf ("[%06lx] %s,%d: Adjust B query addresses failed %02x",
11449           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
11450         Info = _WRONG_STATE;
11451         break;
11452       }
11453       if (Rc == OK)
11454       {
11455         if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_2)
11456           plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_3;
11457         else if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_4)
11458           plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_5;
11459       }
11460       else if (Rc == 0)
11461       {
11462         if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_2)
11463           plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_4;
11464         else if (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_3)
11465           plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_5;
11466       }
11467       if (plci->adjust_b_state != ADJUST_B_RESTORE_MIXER_5)
11468       {
11469         plci->internal_command = plci->adjust_b_command;
11470         break;
11471       }
11472     case ADJUST_B_RESTORE_MIXER_5:
11473       xconnect_write_coefs (plci, plci->adjust_b_command);
11474       plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_6;
11475       Rc = OK;
11476     case ADJUST_B_RESTORE_MIXER_6:
11477       if (!xconnect_write_coefs_process (Id, plci, Rc))
11478       {
11479         dbug (1, dprintf ("[%06lx] %s,%d: Write mixer coefs failed",
11480           UnMapId (Id), (char   *)(FILE_), __LINE__));
11481         Info = _FACILITY_NOT_SUPPORTED;
11482         break;
11483       }
11484       if (plci->internal_command)
11485         break;
11486       plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_7;
11487     case ADJUST_B_RESTORE_MIXER_7:
11488       break;
11489     }
11490   }
11491   return (Info);
11492 }
11493
11494
11495 static void mixer_command (dword Id, PLCI   *plci, byte Rc)
11496 {
11497   DIVA_CAPI_ADAPTER   *a;
11498   word i, internal_command, Info;
11499
11500   dbug (1, dprintf ("[%06lx] %s,%d: mixer_command %02x %04x %04x",
11501     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command,
11502     plci->li_cmd));
11503
11504   Info = GOOD;
11505   a = plci->adapter;
11506   internal_command = plci->internal_command;
11507   plci->internal_command = 0;
11508   switch (plci->li_cmd)
11509   {
11510   case LI_REQ_CONNECT:
11511   case LI_REQ_DISCONNECT:
11512   case LI_REQ_SILENT_UPDATE:
11513     switch (internal_command)
11514     {
11515     default:
11516       if (plci->li_channel_bits & LI_CHANNEL_INVOLVED)
11517       {
11518         adjust_b1_resource (Id, plci, NULL, (word)(plci->B1_facilities |
11519           B1_FACILITY_MIXER), MIXER_COMMAND_1);
11520       }
11521     case MIXER_COMMAND_1:
11522       if (plci->li_channel_bits & LI_CHANNEL_INVOLVED)
11523       {
11524         if (adjust_b_process (Id, plci, Rc) != GOOD)
11525         {
11526           dbug (1, dprintf ("[%06lx] %s,%d: Load mixer failed",
11527             UnMapId (Id), (char   *)(FILE_), __LINE__));
11528           Info = _FACILITY_NOT_SUPPORTED;
11529           break;
11530         }
11531         if (plci->internal_command)
11532           return;
11533       }
11534       plci->li_plci_b_req_pos = plci->li_plci_b_write_pos;
11535       if ((plci->li_channel_bits & LI_CHANNEL_INVOLVED)
11536        || ((get_b1_facilities (plci, plci->B1_resource) & B1_FACILITY_MIXER)
11537         && (add_b1_facilities (plci, plci->B1_resource, (word)(plci->B1_facilities &
11538          ~B1_FACILITY_MIXER)) == plci->B1_resource)))
11539       {
11540         xconnect_write_coefs (plci, MIXER_COMMAND_2);
11541       }
11542       else
11543       {
11544         do
11545         {
11546           mixer_indication_coefs_set (Id, plci);
11547         } while (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos);
11548       }
11549     case MIXER_COMMAND_2:
11550       if ((plci->li_channel_bits & LI_CHANNEL_INVOLVED)
11551        || ((get_b1_facilities (plci, plci->B1_resource) & B1_FACILITY_MIXER)
11552         && (add_b1_facilities (plci, plci->B1_resource, (word)(plci->B1_facilities &
11553          ~B1_FACILITY_MIXER)) == plci->B1_resource)))
11554       {
11555         if (!xconnect_write_coefs_process (Id, plci, Rc))
11556         {
11557           dbug (1, dprintf ("[%06lx] %s,%d: Write mixer coefs failed",
11558             UnMapId (Id), (char   *)(FILE_), __LINE__));
11559           if (plci->li_plci_b_write_pos != plci->li_plci_b_req_pos)
11560           {
11561             do
11562             {
11563               plci->li_plci_b_write_pos = (plci->li_plci_b_write_pos == 0) ?
11564                 LI_PLCI_B_QUEUE_ENTRIES-1 : plci->li_plci_b_write_pos - 1;
11565               i = (plci->li_plci_b_write_pos == 0) ?
11566                 LI_PLCI_B_QUEUE_ENTRIES-1 : plci->li_plci_b_write_pos - 1;
11567             } while ((plci->li_plci_b_write_pos != plci->li_plci_b_req_pos)
11568               && !(plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG));
11569           }
11570           Info = _FACILITY_NOT_SUPPORTED;
11571           break;
11572         }
11573         if (plci->internal_command)
11574           return;
11575       }
11576       if (!(plci->li_channel_bits & LI_CHANNEL_INVOLVED))
11577       {
11578         adjust_b1_resource (Id, plci, NULL, (word)(plci->B1_facilities &
11579           ~B1_FACILITY_MIXER), MIXER_COMMAND_3);
11580       }
11581     case MIXER_COMMAND_3:
11582       if (!(plci->li_channel_bits & LI_CHANNEL_INVOLVED))
11583       {
11584         if (adjust_b_process (Id, plci, Rc) != GOOD)
11585         {
11586           dbug (1, dprintf ("[%06lx] %s,%d: Unload mixer failed",
11587             UnMapId (Id), (char   *)(FILE_), __LINE__));
11588           Info = _FACILITY_NOT_SUPPORTED;
11589           break;
11590         }
11591         if (plci->internal_command)
11592           return;
11593       }
11594       break;
11595     }
11596     break;
11597   }
11598   if ((plci->li_bchannel_id == 0)
11599    || (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci != plci))
11600   {
11601     dbug (1, dprintf ("[%06x] %s,%d: Channel id wiped out %d",
11602       UnMapId (Id), (char   *)(FILE_), __LINE__, (int)(plci->li_bchannel_id)));
11603   }
11604   else
11605   {
11606     i = a->li_base + (plci->li_bchannel_id - 1);
11607     li_config_table[i].curchnl = plci->li_channel_bits;
11608     if (!a->li_pri && (plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI))
11609     {
11610       i = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1);
11611       li_config_table[i].curchnl = plci->li_channel_bits;
11612       if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC)
11613       {
11614         i = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id);
11615         li_config_table[i].curchnl = plci->li_channel_bits;
11616       }
11617     }
11618   }
11619 }
11620
11621
11622 static void li_update_connect (dword Id, DIVA_CAPI_ADAPTER   *a, PLCI   *plci,
11623   dword plci_b_id, byte connect, dword li_flags)
11624 {
11625   word i, ch_a, ch_a_v, ch_a_s, ch_b, ch_b_v, ch_b_s;
11626   PLCI   *plci_b;
11627   DIVA_CAPI_ADAPTER   *a_b;
11628
11629   a_b = &(adapter[MapController ((byte)(plci_b_id & 0x7f)) - 1]);
11630   plci_b = &(a_b->plci[((plci_b_id >> 8) & 0xff) - 1]);
11631   ch_a = a->li_base + (plci->li_bchannel_id - 1);
11632   if (!a->li_pri && (plci->tel == ADV_VOICE)
11633    && (plci == a->AdvSignalPLCI) && (Id & EXT_CONTROLLER))
11634   {
11635     ch_a_v = ch_a + MIXER_IC_CHANNEL_BASE;
11636     ch_a_s = (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ?
11637       a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id) : ch_a_v;
11638   }
11639   else
11640   {
11641     ch_a_v = ch_a;
11642     ch_a_s = ch_a;
11643   }
11644   ch_b = a_b->li_base + (plci_b->li_bchannel_id - 1);
11645   if (!a_b->li_pri && (plci_b->tel == ADV_VOICE)
11646    && (plci_b == a_b->AdvSignalPLCI) && (plci_b_id & EXT_CONTROLLER))
11647   {
11648     ch_b_v = ch_b + MIXER_IC_CHANNEL_BASE;
11649     ch_b_s = (a_b->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ?
11650       a_b->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci_b->li_bchannel_id) : ch_b_v;
11651   }
11652   else
11653   {
11654     ch_b_v = ch_b;
11655     ch_b_s = ch_b;
11656   }
11657   if (connect)
11658   {
11659     li_config_table[ch_a].flag_table[ch_a_v] &= ~LI_FLAG_MONITOR;
11660     li_config_table[ch_a].flag_table[ch_a_s] &= ~LI_FLAG_MONITOR;
11661     li_config_table[ch_a_v].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX);
11662     li_config_table[ch_a_s].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX);
11663   }
11664   li_config_table[ch_a].flag_table[ch_b_v] &= ~LI_FLAG_MONITOR;
11665   li_config_table[ch_a].flag_table[ch_b_s] &= ~LI_FLAG_MONITOR;
11666   li_config_table[ch_b_v].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX);
11667   li_config_table[ch_b_s].flag_table[ch_a] &= ~(LI_FLAG_ANNOUNCEMENT | LI_FLAG_MIX);
11668   if (ch_a_v == ch_b_v)
11669   {
11670     li_config_table[ch_a_v].flag_table[ch_b_v] &= ~LI_FLAG_CONFERENCE;
11671     li_config_table[ch_a_s].flag_table[ch_b_s] &= ~LI_FLAG_CONFERENCE;
11672   }
11673   else
11674   {
11675     if (li_config_table[ch_a_v].flag_table[ch_b_v] & LI_FLAG_CONFERENCE)
11676     {
11677       for (i = 0; i < li_total_channels; i++)
11678       {
11679         if (i != ch_a_v)
11680           li_config_table[ch_a_v].flag_table[i] &= ~LI_FLAG_CONFERENCE;
11681       }
11682     }
11683     if (li_config_table[ch_a_s].flag_table[ch_b_v] & LI_FLAG_CONFERENCE)
11684     {
11685       for (i = 0; i < li_total_channels; i++)
11686       {
11687         if (i != ch_a_s)
11688           li_config_table[ch_a_s].flag_table[i] &= ~LI_FLAG_CONFERENCE;
11689       }
11690     }
11691     if (li_config_table[ch_b_v].flag_table[ch_a_v] & LI_FLAG_CONFERENCE)
11692     {
11693       for (i = 0; i < li_total_channels; i++)
11694       {
11695         if (i != ch_a_v)
11696           li_config_table[i].flag_table[ch_a_v] &= ~LI_FLAG_CONFERENCE;
11697       }
11698     }
11699     if (li_config_table[ch_b_v].flag_table[ch_a_s] & LI_FLAG_CONFERENCE)
11700     {
11701       for (i = 0; i < li_total_channels; i++)
11702       {
11703         if (i != ch_a_s)
11704           li_config_table[i].flag_table[ch_a_s] &= ~LI_FLAG_CONFERENCE;
11705       }
11706     }
11707   }
11708   if (li_flags & LI_FLAG_CONFERENCE_A_B)
11709   {
11710     li_config_table[ch_b_v].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE;
11711     li_config_table[ch_b_s].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE;
11712     li_config_table[ch_b_v].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE;
11713     li_config_table[ch_b_s].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE;
11714   }
11715   if (li_flags & LI_FLAG_CONFERENCE_B_A)
11716   {
11717     li_config_table[ch_a_v].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE;
11718     li_config_table[ch_a_v].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE;
11719     li_config_table[ch_a_s].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE;
11720     li_config_table[ch_a_s].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE;
11721   }
11722   if (li_flags & LI_FLAG_MONITOR_A)
11723   {
11724     li_config_table[ch_a].flag_table[ch_a_v] |= LI_FLAG_MONITOR;
11725     li_config_table[ch_a].flag_table[ch_a_s] |= LI_FLAG_MONITOR;
11726   }
11727   if (li_flags & LI_FLAG_MONITOR_B)
11728   {
11729     li_config_table[ch_a].flag_table[ch_b_v] |= LI_FLAG_MONITOR;
11730     li_config_table[ch_a].flag_table[ch_b_s] |= LI_FLAG_MONITOR;
11731   }
11732   if (li_flags & LI_FLAG_ANNOUNCEMENT_A)
11733   {
11734     li_config_table[ch_a_v].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT;
11735     li_config_table[ch_a_s].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT;
11736   }
11737   if (li_flags & LI_FLAG_ANNOUNCEMENT_B)
11738   {
11739     li_config_table[ch_b_v].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT;
11740     li_config_table[ch_b_s].flag_table[ch_a] |= LI_FLAG_ANNOUNCEMENT;
11741   }
11742   if (li_flags & LI_FLAG_MIX_A)
11743   {
11744     li_config_table[ch_a_v].flag_table[ch_a] |= LI_FLAG_MIX;
11745     li_config_table[ch_a_s].flag_table[ch_a] |= LI_FLAG_MIX;
11746   }
11747   if (li_flags & LI_FLAG_MIX_B)
11748   {
11749     li_config_table[ch_b_v].flag_table[ch_a] |= LI_FLAG_MIX;
11750     li_config_table[ch_b_s].flag_table[ch_a] |= LI_FLAG_MIX;
11751   }
11752   if (ch_a_v != ch_a_s)
11753   {
11754     li_config_table[ch_a_v].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE;
11755     li_config_table[ch_a_s].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE;
11756   }
11757   if (ch_b_v != ch_b_s)
11758   {
11759     li_config_table[ch_b_v].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE;
11760     li_config_table[ch_b_s].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE;
11761   }
11762 }
11763
11764
11765 static void li2_update_connect (dword Id, DIVA_CAPI_ADAPTER   *a, PLCI   *plci,
11766   dword plci_b_id, byte connect, dword li_flags)
11767 {
11768   word ch_a, ch_a_v, ch_a_s, ch_b, ch_b_v, ch_b_s;
11769   PLCI   *plci_b;
11770   DIVA_CAPI_ADAPTER   *a_b;
11771
11772   a_b = &(adapter[MapController ((byte)(plci_b_id & 0x7f)) - 1]);
11773   plci_b = &(a_b->plci[((plci_b_id >> 8) & 0xff) - 1]);
11774   ch_a = a->li_base + (plci->li_bchannel_id - 1);
11775   if (!a->li_pri && (plci->tel == ADV_VOICE)
11776    && (plci == a->AdvSignalPLCI) && (Id & EXT_CONTROLLER))
11777   {
11778     ch_a_v = ch_a + MIXER_IC_CHANNEL_BASE;
11779     ch_a_s = (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ?
11780       a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id) : ch_a_v;
11781   }
11782   else
11783   {
11784     ch_a_v = ch_a;
11785     ch_a_s = ch_a;
11786   }
11787   ch_b = a_b->li_base + (plci_b->li_bchannel_id - 1);
11788   if (!a_b->li_pri && (plci_b->tel == ADV_VOICE)
11789    && (plci_b == a_b->AdvSignalPLCI) && (plci_b_id & EXT_CONTROLLER))
11790   {
11791     ch_b_v = ch_b + MIXER_IC_CHANNEL_BASE;
11792     ch_b_s = (a_b->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC) ?
11793       a_b->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci_b->li_bchannel_id) : ch_b_v;
11794   }
11795   else
11796   {
11797     ch_b_v = ch_b;
11798     ch_b_s = ch_b;
11799   }
11800   if (connect)
11801   {
11802     li_config_table[ch_b].flag_table[ch_b_v] &= ~LI_FLAG_MONITOR;
11803     li_config_table[ch_b].flag_table[ch_b_s] &= ~LI_FLAG_MONITOR;
11804     li_config_table[ch_b_v].flag_table[ch_b] &= ~LI_FLAG_MIX;
11805     li_config_table[ch_b_s].flag_table[ch_b] &= ~LI_FLAG_MIX;
11806     li_config_table[ch_b].flag_table[ch_b] &= ~LI_FLAG_PCCONNECT;
11807     li_config_table[ch_b].chflags &= ~(LI_CHFLAG_MONITOR | LI_CHFLAG_MIX | LI_CHFLAG_LOOP);
11808   }
11809   li_config_table[ch_b_v].flag_table[ch_a_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11810   li_config_table[ch_b_s].flag_table[ch_a_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11811   li_config_table[ch_b_v].flag_table[ch_a_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11812   li_config_table[ch_b_s].flag_table[ch_a_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11813   li_config_table[ch_a_v].flag_table[ch_b_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11814   li_config_table[ch_a_v].flag_table[ch_b_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11815   li_config_table[ch_a_s].flag_table[ch_b_v] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11816   li_config_table[ch_a_s].flag_table[ch_b_s] &= ~(LI_FLAG_INTERCONNECT | LI_FLAG_CONFERENCE);
11817   if (li_flags & LI2_FLAG_INTERCONNECT_A_B)
11818   {
11819     li_config_table[ch_b_v].flag_table[ch_a_v] |= LI_FLAG_INTERCONNECT;
11820     li_config_table[ch_b_s].flag_table[ch_a_v] |= LI_FLAG_INTERCONNECT;
11821     li_config_table[ch_b_v].flag_table[ch_a_s] |= LI_FLAG_INTERCONNECT;
11822     li_config_table[ch_b_s].flag_table[ch_a_s] |= LI_FLAG_INTERCONNECT;
11823   }
11824   if (li_flags & LI2_FLAG_INTERCONNECT_B_A)
11825   {
11826     li_config_table[ch_a_v].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT;
11827     li_config_table[ch_a_v].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT;
11828     li_config_table[ch_a_s].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT;
11829     li_config_table[ch_a_s].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT;
11830   }
11831   if (li_flags & LI2_FLAG_MONITOR_B)
11832   {
11833     li_config_table[ch_b].flag_table[ch_b_v] |= LI_FLAG_MONITOR;
11834     li_config_table[ch_b].flag_table[ch_b_s] |= LI_FLAG_MONITOR;
11835   }
11836   if (li_flags & LI2_FLAG_MIX_B)
11837   {
11838     li_config_table[ch_b_v].flag_table[ch_b] |= LI_FLAG_MIX;
11839     li_config_table[ch_b_s].flag_table[ch_b] |= LI_FLAG_MIX;
11840   }
11841   if (li_flags & LI2_FLAG_MONITOR_X)
11842     li_config_table[ch_b].chflags |= LI_CHFLAG_MONITOR;
11843   if (li_flags & LI2_FLAG_MIX_X)
11844     li_config_table[ch_b].chflags |= LI_CHFLAG_MIX;
11845   if (li_flags & LI2_FLAG_LOOP_B)
11846   {
11847     li_config_table[ch_b_v].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT;
11848     li_config_table[ch_b_s].flag_table[ch_b_v] |= LI_FLAG_INTERCONNECT;
11849     li_config_table[ch_b_v].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT;
11850     li_config_table[ch_b_s].flag_table[ch_b_s] |= LI_FLAG_INTERCONNECT;
11851   }
11852   if (li_flags & LI2_FLAG_LOOP_PC)
11853     li_config_table[ch_b].flag_table[ch_b] |= LI_FLAG_PCCONNECT;
11854   if (li_flags & LI2_FLAG_LOOP_X)
11855     li_config_table[ch_b].chflags |= LI_CHFLAG_LOOP;
11856   if (li_flags & LI2_FLAG_PCCONNECT_A_B)
11857     li_config_table[ch_b_s].flag_table[ch_a_s] |= LI_FLAG_PCCONNECT;
11858   if (li_flags & LI2_FLAG_PCCONNECT_B_A)
11859     li_config_table[ch_a_s].flag_table[ch_b_s] |= LI_FLAG_PCCONNECT;
11860   if (ch_a_v != ch_a_s)
11861   {
11862     li_config_table[ch_a_v].flag_table[ch_a_s] |= LI_FLAG_CONFERENCE;
11863     li_config_table[ch_a_s].flag_table[ch_a_v] |= LI_FLAG_CONFERENCE;
11864   }
11865   if (ch_b_v != ch_b_s)
11866   {
11867     li_config_table[ch_b_v].flag_table[ch_b_s] |= LI_FLAG_CONFERENCE;
11868     li_config_table[ch_b_s].flag_table[ch_b_v] |= LI_FLAG_CONFERENCE;
11869   }
11870 }
11871
11872
11873 static word li_check_main_plci (dword Id, PLCI   *plci)
11874 {
11875   if (plci == NULL)
11876   {
11877     dbug (1, dprintf ("[%06lx] %s,%d: Wrong PLCI",
11878       UnMapId (Id), (char   *)(FILE_), __LINE__));
11879     return (_WRONG_IDENTIFIER);
11880   }
11881   if (!plci->State
11882    || !plci->NL.Id || plci->nl_remove_id
11883    || (plci->li_bchannel_id == 0))
11884   {
11885     dbug (1, dprintf ("[%06lx] %s,%d: Wrong state",
11886       UnMapId (Id), (char   *)(FILE_), __LINE__));
11887     return (_WRONG_STATE);
11888   }
11889   li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci = plci;
11890   return (GOOD);
11891 }
11892
11893
11894 static PLCI   *li_check_plci_b (dword Id, PLCI   *plci,
11895   dword plci_b_id, word plci_b_write_pos, byte   *p_result)
11896 {
11897   byte ctlr_b;
11898   PLCI   *plci_b;
11899
11900   if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos :
11901     LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 2)
11902   {
11903     dbug (1, dprintf ("[%06lx] %s,%d: LI request overrun",
11904       UnMapId (Id), (char   *)(FILE_), __LINE__));
11905     PUT_WORD (p_result, _REQUEST_NOT_ALLOWED_IN_THIS_STATE);
11906     return (NULL);
11907   }
11908   ctlr_b = 0;
11909   if ((plci_b_id & 0x7f) != 0)
11910   {
11911     ctlr_b = MapController ((byte)(plci_b_id & 0x7f));
11912     if ((ctlr_b > max_adapter) || ((ctlr_b != 0) && (adapter[ctlr_b - 1].request == NULL)))
11913       ctlr_b = 0;
11914   }
11915   if ((ctlr_b == 0)
11916    || (((plci_b_id >> 8) & 0xff) == 0)
11917    || (((plci_b_id >> 8) & 0xff) > adapter[ctlr_b - 1].max_plci))
11918   {
11919     dbug (1, dprintf ("[%06lx] %s,%d: LI invalid second PLCI %08lx",
11920       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b_id));
11921     PUT_WORD (p_result, _WRONG_IDENTIFIER);
11922     return (NULL);
11923   }
11924   plci_b = &(adapter[ctlr_b - 1].plci[((plci_b_id >> 8) & 0xff) - 1]);
11925   if (!plci_b->State
11926    || !plci_b->NL.Id || plci_b->nl_remove_id
11927    || (plci_b->li_bchannel_id == 0))
11928   {
11929     dbug (1, dprintf ("[%06lx] %s,%d: LI peer in wrong state %08lx",
11930       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b_id));
11931     PUT_WORD (p_result, _REQUEST_NOT_ALLOWED_IN_THIS_STATE);
11932     return (NULL);
11933   }
11934   li_config_table[plci_b->adapter->li_base + (plci_b->li_bchannel_id - 1)].plci = plci_b;
11935   if (((byte)(plci_b_id & ~EXT_CONTROLLER)) !=
11936     ((byte)(UnMapController (plci->adapter->Id) & ~EXT_CONTROLLER))
11937    && (!(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
11938     || !(plci_b->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)))
11939   {
11940     dbug (1, dprintf ("[%06lx] %s,%d: LI not on same ctrl %08lx",
11941       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b_id));
11942     PUT_WORD (p_result, _WRONG_IDENTIFIER);
11943     return (NULL);
11944   }
11945   if (!(get_b1_facilities (plci_b, add_b1_facilities (plci_b, plci_b->B1_resource,
11946     (word)(plci_b->B1_facilities | B1_FACILITY_MIXER))) & B1_FACILITY_MIXER))
11947   {
11948     dbug (1, dprintf ("[%06lx] %s,%d: Interconnect peer cannot mix %d",
11949       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b->B1_resource));
11950     PUT_WORD (p_result, _REQUEST_NOT_ALLOWED_IN_THIS_STATE);
11951     return (NULL);
11952   }
11953   return (plci_b);
11954 }
11955
11956
11957 static PLCI   *li2_check_plci_b (dword Id, PLCI   *plci,
11958   dword plci_b_id, word plci_b_write_pos, byte   *p_result)
11959 {
11960   byte ctlr_b;
11961   PLCI   *plci_b;
11962
11963   if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos :
11964     LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 2)
11965   {
11966     dbug (1, dprintf ("[%06lx] %s,%d: LI request overrun",
11967       UnMapId (Id), (char   *)(FILE_), __LINE__));
11968     PUT_WORD (p_result, _WRONG_STATE);
11969     return (NULL);
11970   }
11971   ctlr_b = 0;
11972   if ((plci_b_id & 0x7f) != 0)
11973   {
11974     ctlr_b = MapController ((byte)(plci_b_id & 0x7f));
11975     if ((ctlr_b > max_adapter) || ((ctlr_b != 0) && (adapter[ctlr_b - 1].request == NULL)))
11976       ctlr_b = 0;
11977   }
11978   if ((ctlr_b == 0)
11979    || (((plci_b_id >> 8) & 0xff) == 0)
11980    || (((plci_b_id >> 8) & 0xff) > adapter[ctlr_b - 1].max_plci))
11981   {
11982     dbug (1, dprintf ("[%06lx] %s,%d: LI invalid second PLCI %08lx",
11983       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b_id));
11984     PUT_WORD (p_result, _WRONG_IDENTIFIER);
11985     return (NULL);
11986   }
11987   plci_b = &(adapter[ctlr_b - 1].plci[((plci_b_id >> 8) & 0xff) - 1]);
11988   if (!plci_b->State
11989    || !plci_b->NL.Id || plci_b->nl_remove_id
11990    || (plci_b->li_bchannel_id == 0)
11991    || (li_config_table[plci_b->adapter->li_base + (plci_b->li_bchannel_id - 1)].plci != plci_b))
11992   {
11993     dbug (1, dprintf ("[%06lx] %s,%d: LI peer in wrong state %08lx",
11994       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b_id));
11995     PUT_WORD (p_result, _WRONG_STATE);
11996     return (NULL);
11997   }
11998   if (((byte)(plci_b_id & ~EXT_CONTROLLER)) !=
11999     ((byte)(UnMapController (plci->adapter->Id) & ~EXT_CONTROLLER))
12000    && (!(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
12001     || !(plci_b->adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)))
12002   {
12003     dbug (1, dprintf ("[%06lx] %s,%d: LI not on same ctrl %08lx",
12004       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b_id));
12005     PUT_WORD (p_result, _WRONG_IDENTIFIER);
12006     return (NULL);
12007   }
12008   if (!(get_b1_facilities (plci_b, add_b1_facilities (plci_b, plci_b->B1_resource,
12009     (word)(plci_b->B1_facilities | B1_FACILITY_MIXER))) & B1_FACILITY_MIXER))
12010   {
12011     dbug (1, dprintf ("[%06lx] %s,%d: Interconnect peer cannot mix %d",
12012       UnMapId (Id), (char   *)(FILE_), __LINE__, plci_b->B1_resource));
12013     PUT_WORD (p_result, _WRONG_STATE);
12014     return (NULL);
12015   }
12016   return (plci_b);
12017 }
12018
12019
12020 static byte mixer_request (dword Id, word Number, DIVA_CAPI_ADAPTER   *a, PLCI   *plci, APPL   *appl, API_PARSE *msg)
12021 {
12022   word Info;
12023   word i;
12024   dword d, li_flags, plci_b_id;
12025   PLCI   *plci_b;
12026     API_PARSE li_parms[3];
12027     API_PARSE li_req_parms[3];
12028     API_PARSE li_participant_struct[2];
12029     API_PARSE li_participant_parms[3];
12030   word participant_parms_pos;
12031   byte result_buffer[32];
12032   byte   *result;
12033   word result_pos;
12034   word plci_b_write_pos;
12035
12036   dbug (1, dprintf ("[%06lx] %s,%d: mixer_request",
12037     UnMapId (Id), (char   *)(FILE_), __LINE__));
12038
12039   Info = GOOD;
12040   result = result_buffer;
12041   result_buffer[0] = 0;
12042   if (!(a->profile.Global_Options & GL_LINE_INTERCONNECT_SUPPORTED))
12043   {
12044     dbug (1, dprintf ("[%06lx] %s,%d: Facility not supported",
12045       UnMapId (Id), (char   *)(FILE_), __LINE__));
12046     Info = _FACILITY_NOT_SUPPORTED;
12047   }
12048   else if (api_parse (&msg[1].info[1], msg[1].length, "ws", li_parms))
12049   {
12050     dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12051       UnMapId (Id), (char   *)(FILE_), __LINE__));
12052     Info = _WRONG_MESSAGE_FORMAT;
12053   }
12054   else
12055   {
12056     result_buffer[0] = 3;
12057     PUT_WORD (&result_buffer[1], GET_WORD (li_parms[0].info));
12058     result_buffer[3] = 0;
12059     switch (GET_WORD (li_parms[0].info))
12060     {
12061     case LI_GET_SUPPORTED_SERVICES:
12062       if (appl->appl_flags & APPL_FLAG_OLD_LI_SPEC)
12063       {
12064         result_buffer[0] = 17;
12065         result_buffer[3] = 14;
12066         PUT_WORD (&result_buffer[4], GOOD);
12067         d = 0;
12068         if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_CH_CH)
12069           d |= LI_CONFERENCING_SUPPORTED;
12070         if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_CH_PC)
12071           d |= LI_MONITORING_SUPPORTED;
12072         if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_PC_CH)
12073           d |= LI_ANNOUNCEMENTS_SUPPORTED | LI_MIXING_SUPPORTED;
12074         if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
12075           d |= LI_CROSS_CONTROLLER_SUPPORTED;
12076         PUT_DWORD (&result_buffer[6], d);
12077         if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
12078         {
12079           d = 0;
12080           for (i = 0; i < li_total_channels; i++)
12081           {
12082             if ((li_config_table[i].adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
12083              && (li_config_table[i].adapter->li_pri
12084               || (i < li_config_table[i].adapter->li_base + MIXER_BCHANNELS_BRI)))
12085             {
12086               d++;
12087             }
12088           }
12089         }
12090         else
12091         {
12092           d = a->li_pri ? a->li_channels : MIXER_BCHANNELS_BRI;
12093         }
12094         PUT_DWORD (&result_buffer[10], d / 2);
12095         PUT_DWORD (&result_buffer[14], d);
12096       }
12097       else
12098       {
12099         result_buffer[0] = 25;
12100         result_buffer[3] = 22;
12101         PUT_WORD (&result_buffer[4], GOOD);
12102         d = LI2_ASYMMETRIC_SUPPORTED | LI2_B_LOOPING_SUPPORTED | LI2_X_LOOPING_SUPPORTED;
12103         if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_CH_PC)
12104           d |= LI2_MONITORING_SUPPORTED | LI2_REMOTE_MONITORING_SUPPORTED;
12105         if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_PC_CH)
12106           d |= LI2_MIXING_SUPPORTED | LI2_REMOTE_MIXING_SUPPORTED;
12107         if (a->manufacturer_features & MANUFACTURER_FEATURE_MIXER_PC_PC)
12108           d |= LI2_PC_LOOPING_SUPPORTED;
12109         if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
12110           d |= LI2_CROSS_CONTROLLER_SUPPORTED;
12111         PUT_DWORD (&result_buffer[6], d);
12112         d = a->li_pri ? a->li_channels : MIXER_BCHANNELS_BRI;
12113         PUT_DWORD (&result_buffer[10], d / 2);
12114         PUT_DWORD (&result_buffer[14], d - 1);
12115         if (a->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
12116         {
12117           d = 0;
12118           for (i = 0; i < li_total_channels; i++)
12119           {
12120             if ((li_config_table[i].adapter->manufacturer_features & MANUFACTURER_FEATURE_XCONNECT)
12121              && (li_config_table[i].adapter->li_pri
12122               || (i < li_config_table[i].adapter->li_base + MIXER_BCHANNELS_BRI)))
12123             {
12124               d++;
12125             }
12126           }
12127         }
12128         PUT_DWORD (&result_buffer[18], d / 2);
12129         PUT_DWORD (&result_buffer[22], d - 1);
12130       }
12131       break;
12132
12133     case LI_REQ_CONNECT:
12134       if (li_parms[1].length == 8)
12135       {
12136         appl->appl_flags |= APPL_FLAG_OLD_LI_SPEC;
12137         if (api_parse (&li_parms[1].info[1], li_parms[1].length, "dd", li_req_parms))
12138         {
12139           dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12140             UnMapId (Id), (char   *)(FILE_), __LINE__));
12141           Info = _WRONG_MESSAGE_FORMAT;
12142           break;
12143         }
12144         plci_b_id = GET_DWORD (li_req_parms[0].info) & 0xffff;
12145         li_flags = GET_DWORD (li_req_parms[1].info);
12146         Info = li_check_main_plci (Id, plci);
12147         result_buffer[0] = 9;
12148         result_buffer[3] = 6;
12149         PUT_DWORD (&result_buffer[4], plci_b_id);
12150         PUT_WORD (&result_buffer[8], GOOD);
12151         if (Info != GOOD)
12152           break;
12153         result = plci->saved_msg.info;
12154         for (i = 0; i <= result_buffer[0]; i++)
12155           result[i] = result_buffer[i];
12156         plci_b_write_pos = plci->li_plci_b_write_pos;
12157         plci_b = li_check_plci_b (Id, plci, plci_b_id, plci_b_write_pos, &result[8]);
12158         if (plci_b == NULL)
12159           break;
12160         li_update_connect (Id, a, plci, plci_b_id, true, li_flags);
12161         plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_LAST_FLAG;
12162         plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12163         plci->li_plci_b_write_pos = plci_b_write_pos;
12164       }
12165       else
12166       {
12167         appl->appl_flags &= ~APPL_FLAG_OLD_LI_SPEC;
12168         if (api_parse (&li_parms[1].info[1], li_parms[1].length, "ds", li_req_parms))
12169         {
12170           dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12171             UnMapId (Id), (char   *)(FILE_), __LINE__));
12172           Info = _WRONG_MESSAGE_FORMAT;
12173           break;
12174         }
12175         li_flags = GET_DWORD (li_req_parms[0].info) & ~(LI2_FLAG_INTERCONNECT_A_B | LI2_FLAG_INTERCONNECT_B_A);
12176         Info = li_check_main_plci (Id, plci);
12177         result_buffer[0] = 7;
12178         result_buffer[3] = 4;
12179         PUT_WORD (&result_buffer[4], Info);
12180         result_buffer[6] = 0;
12181         if (Info != GOOD)
12182           break;
12183         result = plci->saved_msg.info;
12184         for (i = 0; i <= result_buffer[0]; i++)
12185           result[i] = result_buffer[i];
12186         plci_b_write_pos = plci->li_plci_b_write_pos;
12187         participant_parms_pos = 0;
12188         result_pos = 7;
12189         li2_update_connect (Id, a, plci, UnMapId (Id), true, li_flags);
12190         while (participant_parms_pos < li_req_parms[1].length)
12191         {
12192           result[result_pos] = 6;
12193           result_pos += 7;
12194           PUT_DWORD (&result[result_pos - 6], 0);
12195           PUT_WORD (&result[result_pos - 2], GOOD);
12196           if (api_parse (&li_req_parms[1].info[1 + participant_parms_pos],
12197             (word)(li_parms[1].length - participant_parms_pos), "s", li_participant_struct))
12198           {
12199             dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12200               UnMapId (Id), (char   *)(FILE_), __LINE__));
12201             PUT_WORD (&result[result_pos - 2], _WRONG_MESSAGE_FORMAT);
12202             break;
12203           }
12204           if (api_parse (&li_participant_struct[0].info[1],
12205             li_participant_struct[0].length, "dd", li_participant_parms))
12206           {
12207             dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12208               UnMapId (Id), (char   *)(FILE_), __LINE__));
12209             PUT_WORD (&result[result_pos - 2], _WRONG_MESSAGE_FORMAT);
12210             break;
12211           }
12212           plci_b_id = GET_DWORD (li_participant_parms[0].info) & 0xffff;
12213           li_flags = GET_DWORD (li_participant_parms[1].info);
12214           PUT_DWORD (&result[result_pos - 6], plci_b_id);
12215           if (sizeof(result) - result_pos < 7)
12216           {
12217             dbug (1, dprintf ("[%06lx] %s,%d: LI result overrun",
12218               UnMapId (Id), (char   *)(FILE_), __LINE__));
12219             PUT_WORD (&result[result_pos - 2], _WRONG_STATE);
12220             break;
12221           }
12222           plci_b = li2_check_plci_b (Id, plci, plci_b_id, plci_b_write_pos, &result[result_pos - 2]);
12223           if (plci_b != NULL)
12224           {
12225             li2_update_connect (Id, a, plci, plci_b_id, true, li_flags);
12226             plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id |
12227               ((li_flags & (LI2_FLAG_INTERCONNECT_A_B | LI2_FLAG_INTERCONNECT_B_A |
12228               LI2_FLAG_PCCONNECT_A_B | LI2_FLAG_PCCONNECT_B_A)) ? 0 : LI_PLCI_B_DISC_FLAG);
12229             plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12230           }
12231           participant_parms_pos = (word)((&li_participant_struct[0].info[1 + li_participant_struct[0].length]) -
12232             (&li_req_parms[1].info[1]));
12233         }
12234         result[0] = (byte)(result_pos - 1);
12235         result[3] = (byte)(result_pos - 4);
12236         result[6] = (byte)(result_pos - 7);
12237         i = (plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES-1 : plci_b_write_pos - 1;
12238         if ((plci_b_write_pos == plci->li_plci_b_read_pos)
12239          || (plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG))
12240         {
12241           plci->li_plci_b_queue[plci_b_write_pos] = LI_PLCI_B_SKIP_FLAG | LI_PLCI_B_LAST_FLAG;
12242           plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12243         }
12244         else
12245           plci->li_plci_b_queue[i] |= LI_PLCI_B_LAST_FLAG;
12246         plci->li_plci_b_write_pos = plci_b_write_pos;
12247       }
12248       mixer_calculate_coefs (a);
12249       plci->li_channel_bits = li_config_table[a->li_base + (plci->li_bchannel_id - 1)].channel;
12250       mixer_notify_update (plci, true);
12251       sendf (appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number,
12252         "wwS", Info, SELECTOR_LINE_INTERCONNECT, result);
12253       plci->command = 0;
12254       plci->li_cmd = GET_WORD (li_parms[0].info);
12255       start_internal_command (Id, plci, mixer_command);
12256       return (false);
12257
12258     case LI_REQ_DISCONNECT:
12259       if (li_parms[1].length == 4)
12260       {
12261         appl->appl_flags |= APPL_FLAG_OLD_LI_SPEC;
12262         if (api_parse (&li_parms[1].info[1], li_parms[1].length, "d", li_req_parms))
12263         {
12264           dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12265             UnMapId (Id), (char   *)(FILE_), __LINE__));
12266           Info = _WRONG_MESSAGE_FORMAT;
12267           break;
12268         }
12269         plci_b_id = GET_DWORD (li_req_parms[0].info) & 0xffff;
12270         Info = li_check_main_plci (Id, plci);
12271         result_buffer[0] = 9;
12272         result_buffer[3] = 6;
12273         PUT_DWORD (&result_buffer[4], GET_DWORD (li_req_parms[0].info));
12274         PUT_WORD (&result_buffer[8], GOOD);
12275         if (Info != GOOD)
12276           break;
12277         result = plci->saved_msg.info;
12278         for (i = 0; i <= result_buffer[0]; i++)
12279           result[i] = result_buffer[i];
12280         plci_b_write_pos = plci->li_plci_b_write_pos;
12281         plci_b = li_check_plci_b (Id, plci, plci_b_id, plci_b_write_pos, &result[8]);
12282         if (plci_b == NULL)
12283           break;
12284         li_update_connect (Id, a, plci, plci_b_id, false, 0);
12285         plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_DISC_FLAG | LI_PLCI_B_LAST_FLAG;
12286         plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12287         plci->li_plci_b_write_pos = plci_b_write_pos;
12288       }
12289       else
12290       {
12291         appl->appl_flags &= ~APPL_FLAG_OLD_LI_SPEC;
12292         if (api_parse (&li_parms[1].info[1], li_parms[1].length, "s", li_req_parms))
12293         {
12294           dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12295             UnMapId (Id), (char   *)(FILE_), __LINE__));
12296           Info = _WRONG_MESSAGE_FORMAT;
12297           break;
12298         }
12299         Info = li_check_main_plci (Id, plci);
12300         result_buffer[0] = 7;
12301         result_buffer[3] = 4;
12302         PUT_WORD (&result_buffer[4], Info);
12303         result_buffer[6] = 0;
12304         if (Info != GOOD)
12305           break;
12306         result = plci->saved_msg.info;
12307         for (i = 0; i <= result_buffer[0]; i++)
12308           result[i] = result_buffer[i];
12309         plci_b_write_pos = plci->li_plci_b_write_pos;
12310         participant_parms_pos = 0;
12311         result_pos = 7;
12312         while (participant_parms_pos < li_req_parms[0].length)
12313         {
12314           result[result_pos] = 6;
12315           result_pos += 7;
12316           PUT_DWORD (&result[result_pos - 6], 0);
12317           PUT_WORD (&result[result_pos - 2], GOOD);
12318           if (api_parse (&li_req_parms[0].info[1 + participant_parms_pos],
12319             (word)(li_parms[1].length - participant_parms_pos), "s", li_participant_struct))
12320           {
12321             dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12322               UnMapId (Id), (char   *)(FILE_), __LINE__));
12323             PUT_WORD (&result[result_pos - 2], _WRONG_MESSAGE_FORMAT);
12324             break;
12325           }
12326           if (api_parse (&li_participant_struct[0].info[1],
12327             li_participant_struct[0].length, "d", li_participant_parms))
12328           {
12329             dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12330               UnMapId (Id), (char   *)(FILE_), __LINE__));
12331             PUT_WORD (&result[result_pos - 2], _WRONG_MESSAGE_FORMAT);
12332             break;
12333           }
12334           plci_b_id = GET_DWORD (li_participant_parms[0].info) & 0xffff;
12335           PUT_DWORD (&result[result_pos - 6], plci_b_id);
12336           if (sizeof(result) - result_pos < 7)
12337           {
12338             dbug (1, dprintf ("[%06lx] %s,%d: LI result overrun",
12339               UnMapId (Id), (char   *)(FILE_), __LINE__));
12340             PUT_WORD (&result[result_pos - 2], _WRONG_STATE);
12341             break;
12342           }
12343           plci_b = li2_check_plci_b (Id, plci, plci_b_id, plci_b_write_pos, &result[result_pos - 2]);
12344           if (plci_b != NULL)
12345           {
12346             li2_update_connect (Id, a, plci, plci_b_id, false, 0);
12347             plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_DISC_FLAG;
12348             plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12349           }
12350           participant_parms_pos = (word)((&li_participant_struct[0].info[1 + li_participant_struct[0].length]) -
12351             (&li_req_parms[0].info[1]));
12352         }
12353         result[0] = (byte)(result_pos - 1);
12354         result[3] = (byte)(result_pos - 4);
12355         result[6] = (byte)(result_pos - 7);
12356         i = (plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES-1 : plci_b_write_pos - 1;
12357         if ((plci_b_write_pos == plci->li_plci_b_read_pos)
12358          || (plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG))
12359         {
12360           plci->li_plci_b_queue[plci_b_write_pos] = LI_PLCI_B_SKIP_FLAG | LI_PLCI_B_LAST_FLAG;
12361           plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12362         }
12363         else
12364           plci->li_plci_b_queue[i] |= LI_PLCI_B_LAST_FLAG;
12365         plci->li_plci_b_write_pos = plci_b_write_pos;
12366       }
12367       mixer_calculate_coefs (a);
12368       plci->li_channel_bits = li_config_table[a->li_base + (plci->li_bchannel_id - 1)].channel;
12369       mixer_notify_update (plci, true);
12370       sendf (appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number,
12371         "wwS", Info, SELECTOR_LINE_INTERCONNECT, result);
12372       plci->command = 0;
12373       plci->li_cmd = GET_WORD (li_parms[0].info);
12374       start_internal_command (Id, plci, mixer_command);
12375       return (false);
12376
12377     case LI_REQ_SILENT_UPDATE:
12378       if (!plci || !plci->State
12379        || !plci->NL.Id || plci->nl_remove_id
12380        || (plci->li_bchannel_id == 0)
12381        || (li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci != plci))
12382       {
12383         dbug (1, dprintf ("[%06lx] %s,%d: Wrong state",
12384           UnMapId (Id), (char   *)(FILE_), __LINE__));
12385         return (false);
12386       }
12387       plci_b_write_pos = plci->li_plci_b_write_pos;
12388       if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos :
12389         LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 2)
12390       {
12391         dbug (1, dprintf ("[%06lx] %s,%d: LI request overrun",
12392           UnMapId (Id), (char   *)(FILE_), __LINE__));
12393         return (false);
12394       }
12395       i = (plci_b_write_pos == 0) ? LI_PLCI_B_QUEUE_ENTRIES-1 : plci_b_write_pos - 1;
12396       if ((plci_b_write_pos == plci->li_plci_b_read_pos)
12397        || (plci->li_plci_b_queue[i] & LI_PLCI_B_LAST_FLAG))
12398       {
12399         plci->li_plci_b_queue[plci_b_write_pos] = LI_PLCI_B_SKIP_FLAG | LI_PLCI_B_LAST_FLAG;
12400         plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12401       }
12402       else
12403         plci->li_plci_b_queue[i] |= LI_PLCI_B_LAST_FLAG;
12404       plci->li_plci_b_write_pos = plci_b_write_pos;
12405       plci->li_channel_bits = li_config_table[a->li_base + (plci->li_bchannel_id - 1)].channel;
12406       plci->command = 0;
12407       plci->li_cmd = GET_WORD (li_parms[0].info);
12408       start_internal_command (Id, plci, mixer_command);
12409       return (false);
12410
12411     default:
12412       dbug (1, dprintf ("[%06lx] %s,%d: LI unknown request %04x",
12413         UnMapId (Id), (char   *)(FILE_), __LINE__, GET_WORD (li_parms[0].info)));
12414       Info = _FACILITY_NOT_SUPPORTED;
12415     }
12416   }
12417   sendf (appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number,
12418     "wwS", Info, SELECTOR_LINE_INTERCONNECT, result);
12419   return (false);
12420 }
12421
12422
12423 static void mixer_indication_coefs_set (dword Id, PLCI   *plci)
12424 {
12425   dword d;
12426   DIVA_CAPI_ADAPTER   *a;
12427     byte result[12];
12428
12429   dbug (1, dprintf ("[%06lx] %s,%d: mixer_indication_coefs_set",
12430     UnMapId (Id), (char   *)(FILE_), __LINE__));
12431
12432   a = plci->adapter;
12433   if (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos)
12434   {
12435     do
12436     {
12437       d = plci->li_plci_b_queue[plci->li_plci_b_read_pos];
12438       if (!(d & LI_PLCI_B_SKIP_FLAG))
12439       {
12440         if (plci->appl->appl_flags & APPL_FLAG_OLD_LI_SPEC)
12441         {
12442           if (d & LI_PLCI_B_DISC_FLAG)
12443           {
12444             result[0] = 5;
12445             PUT_WORD (&result[1], LI_IND_DISCONNECT);
12446             result[3] = 2;
12447             PUT_WORD (&result[4], _LI_USER_INITIATED);
12448           }
12449           else
12450           {
12451             result[0] = 7;
12452             PUT_WORD (&result[1], LI_IND_CONNECT_ACTIVE);
12453             result[3] = 4;
12454             PUT_DWORD (&result[4], d & ~LI_PLCI_B_FLAG_MASK);
12455           }
12456         }
12457         else
12458         {
12459           if (d & LI_PLCI_B_DISC_FLAG)
12460           {
12461             result[0] = 9;
12462             PUT_WORD (&result[1], LI_IND_DISCONNECT);
12463             result[3] = 6;
12464             PUT_DWORD (&result[4], d & ~LI_PLCI_B_FLAG_MASK);
12465             PUT_WORD (&result[8], _LI_USER_INITIATED);
12466           }
12467           else
12468           {
12469             result[0] = 7;
12470             PUT_WORD (&result[1], LI_IND_CONNECT_ACTIVE);
12471             result[3] = 4;
12472             PUT_DWORD (&result[4], d & ~LI_PLCI_B_FLAG_MASK);
12473           }
12474         }
12475         sendf (plci->appl, _FACILITY_I, Id & 0xffffL, 0,
12476           "ws", SELECTOR_LINE_INTERCONNECT, result);
12477       }
12478       plci->li_plci_b_read_pos = (plci->li_plci_b_read_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ?
12479         0 : plci->li_plci_b_read_pos + 1;
12480     } while (!(d & LI_PLCI_B_LAST_FLAG) && (plci->li_plci_b_read_pos != plci->li_plci_b_req_pos));
12481   }
12482 }
12483
12484
12485 static void mixer_indication_xconnect_from (dword Id, PLCI   *plci, byte   *msg, word length)
12486 {
12487   word i, j, ch;
12488   struct xconnect_transfer_address_s s,   *p;
12489   DIVA_CAPI_ADAPTER   *a;
12490
12491   dbug (1, dprintf ("[%06lx] %s,%d: mixer_indication_xconnect_from %d",
12492     UnMapId (Id), (char   *)(FILE_), __LINE__, (int) length));
12493
12494   a = plci->adapter;
12495   i = 1;
12496   for (i = 1; i < length; i += 16)
12497   {
12498     s.card_address.low = msg[i] | (msg[i+1] << 8) | (((dword)(msg[i+2])) << 16) | (((dword)(msg[i+3])) << 24);
12499     s.card_address.high = msg[i+4] | (msg[i+5] << 8) | (((dword)(msg[i+6])) << 16) | (((dword)(msg[i+7])) << 24);
12500     s.offset = msg[i+8] | (msg[i+9] << 8) | (((dword)(msg[i+10])) << 16) | (((dword)(msg[i+11])) << 24);
12501     ch = msg[i+12] | (msg[i+13] << 8);
12502     j = ch & XCONNECT_CHANNEL_NUMBER_MASK;
12503     if (!a->li_pri && (plci->li_bchannel_id == 2))
12504       j = 1 - j;
12505     j += a->li_base;
12506     if (ch & XCONNECT_CHANNEL_PORT_PC)
12507       p = &(li_config_table[j].send_pc);
12508     else
12509       p = &(li_config_table[j].send_b);
12510     p->card_address.low = s.card_address.low;
12511     p->card_address.high = s.card_address.high;
12512     p->offset = s.offset;
12513     li_config_table[j].channel |= LI_CHANNEL_ADDRESSES_SET;
12514   }
12515   if (plci->internal_command_queue[0]
12516    && ((plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_2)
12517     || (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_3)
12518     || (plci->adjust_b_state == ADJUST_B_RESTORE_MIXER_4)))
12519   {
12520     (*(plci->internal_command_queue[0]))(Id, plci, 0);
12521     if (!plci->internal_command)
12522       next_internal_command (Id, plci);
12523   }
12524   mixer_notify_update (plci, true);
12525 }
12526
12527
12528 static void mixer_indication_xconnect_to (dword Id, PLCI   *plci, byte   *msg, word length)
12529 {
12530
12531   dbug (1, dprintf ("[%06lx] %s,%d: mixer_indication_xconnect_to %d",
12532     UnMapId (Id), (char   *)(FILE_), __LINE__, (int) length));
12533
12534 }
12535
12536
12537 static byte mixer_notify_source_removed (PLCI   *plci, dword plci_b_id)
12538 {
12539   word plci_b_write_pos;
12540
12541   plci_b_write_pos = plci->li_plci_b_write_pos;
12542   if (((plci->li_plci_b_read_pos > plci_b_write_pos) ? plci->li_plci_b_read_pos :
12543     LI_PLCI_B_QUEUE_ENTRIES + plci->li_plci_b_read_pos) - plci_b_write_pos - 1 < 1)
12544   {
12545     dbug (1, dprintf ("[%06lx] %s,%d: LI request overrun",
12546       (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
12547       (char   *)(FILE_), __LINE__));
12548     return (false);
12549   }
12550   plci->li_plci_b_queue[plci_b_write_pos] = plci_b_id | LI_PLCI_B_DISC_FLAG;
12551   plci_b_write_pos = (plci_b_write_pos == LI_PLCI_B_QUEUE_ENTRIES-1) ? 0 : plci_b_write_pos + 1;
12552   plci->li_plci_b_write_pos = plci_b_write_pos;
12553   return (true);
12554 }
12555
12556
12557 static void mixer_remove (PLCI   *plci)
12558 {
12559   DIVA_CAPI_ADAPTER   *a;
12560   PLCI   *notify_plci;
12561   dword plci_b_id;
12562   word i, j;
12563
12564   dbug (1, dprintf ("[%06lx] %s,%d: mixer_remove",
12565     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
12566     (char   *)(FILE_), __LINE__));
12567
12568   a = plci->adapter;
12569   plci_b_id = (plci->Id << 8) | UnMapController (plci->adapter->Id);
12570   if (a->profile.Global_Options & GL_LINE_INTERCONNECT_SUPPORTED)
12571   {
12572     if ((plci->li_bchannel_id != 0)
12573      && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
12574     {
12575       i = a->li_base + (plci->li_bchannel_id - 1);
12576       if ((li_config_table[i].curchnl | li_config_table[i].channel) & LI_CHANNEL_INVOLVED)
12577       {
12578         for (j = 0; j < li_total_channels; j++)
12579         {
12580           if ((li_config_table[i].flag_table[j] & LI_FLAG_INTERCONNECT)
12581            || (li_config_table[j].flag_table[i] & LI_FLAG_INTERCONNECT))
12582           {
12583             notify_plci = li_config_table[j].plci;
12584             if ((notify_plci != NULL)
12585              && (notify_plci != plci)
12586              && (notify_plci->appl != NULL)
12587              && !(notify_plci->appl->appl_flags & APPL_FLAG_OLD_LI_SPEC)
12588              && (notify_plci->State)
12589              && notify_plci->NL.Id && !notify_plci->nl_remove_id)
12590             {
12591               mixer_notify_source_removed (notify_plci, plci_b_id);
12592             }
12593           }
12594         }
12595         mixer_clear_config (plci);
12596         mixer_calculate_coefs (a);
12597         mixer_notify_update (plci, true);
12598       }
12599       li_config_table[i].plci = NULL;
12600       plci->li_bchannel_id = 0;
12601     }
12602   }
12603 }
12604
12605
12606 /*------------------------------------------------------------------*/
12607 /* Echo canceller facilities                                        */
12608 /*------------------------------------------------------------------*/
12609
12610
12611 static void ec_write_parameters (PLCI   *plci)
12612 {
12613   word w;
12614     byte parameter_buffer[6];
12615
12616   dbug (1, dprintf ("[%06lx] %s,%d: ec_write_parameters",
12617     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
12618     (char   *)(FILE_), __LINE__));
12619
12620   parameter_buffer[0] = 5;
12621   parameter_buffer[1] = DSP_CTRL_SET_LEC_PARAMETERS;
12622   PUT_WORD (&parameter_buffer[2], plci->ec_idi_options);
12623   plci->ec_idi_options &= ~LEC_RESET_COEFFICIENTS;
12624   w = (plci->ec_tail_length == 0) ? 128 : plci->ec_tail_length;
12625   PUT_WORD (&parameter_buffer[4], w);
12626   add_p (plci, FTY, parameter_buffer);
12627   sig_req (plci, TEL_CTRL, 0);
12628   send_req (plci);
12629 }
12630
12631
12632 static void ec_clear_config (PLCI   *plci)
12633 {
12634
12635   dbug (1, dprintf ("[%06lx] %s,%d: ec_clear_config",
12636     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
12637     (char   *)(FILE_), __LINE__));
12638
12639   plci->ec_idi_options = LEC_ENABLE_ECHO_CANCELLER |
12640     LEC_MANUAL_DISABLE | LEC_ENABLE_NONLINEAR_PROCESSING;
12641   plci->ec_tail_length = 0;
12642 }
12643
12644
12645 static void ec_prepare_switch (dword Id, PLCI   *plci)
12646 {
12647
12648   dbug (1, dprintf ("[%06lx] %s,%d: ec_prepare_switch",
12649     UnMapId (Id), (char   *)(FILE_), __LINE__));
12650
12651 }
12652
12653
12654 static word ec_save_config (dword Id, PLCI   *plci, byte Rc)
12655 {
12656
12657   dbug (1, dprintf ("[%06lx] %s,%d: ec_save_config %02x %d",
12658     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
12659
12660   return (GOOD);
12661 }
12662
12663
12664 static word ec_restore_config (dword Id, PLCI   *plci, byte Rc)
12665 {
12666   word Info;
12667
12668   dbug (1, dprintf ("[%06lx] %s,%d: ec_restore_config %02x %d",
12669     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
12670
12671   Info = GOOD;
12672   if (plci->B1_facilities & B1_FACILITY_EC)
12673   {
12674     switch (plci->adjust_b_state)
12675     {
12676     case ADJUST_B_RESTORE_EC_1:
12677       plci->internal_command = plci->adjust_b_command;
12678       if (plci->sig_req)
12679       {
12680         plci->adjust_b_state = ADJUST_B_RESTORE_EC_1;
12681         break;
12682       }
12683       ec_write_parameters (plci);
12684       plci->adjust_b_state = ADJUST_B_RESTORE_EC_2;
12685       break;
12686     case ADJUST_B_RESTORE_EC_2:
12687       if ((Rc != OK) && (Rc != OK_FC))
12688       {
12689         dbug (1, dprintf ("[%06lx] %s,%d: Restore EC failed %02x",
12690           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
12691         Info = _WRONG_STATE;
12692         break;
12693       }
12694       break;
12695     }
12696   }
12697   return (Info);
12698 }
12699
12700
12701 static void ec_command (dword Id, PLCI   *plci, byte Rc)
12702 {
12703   word internal_command, Info;
12704     byte result[8];
12705
12706   dbug (1, dprintf ("[%06lx] %s,%d: ec_command %02x %04x %04x %04x %d",
12707     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command,
12708     plci->ec_cmd, plci->ec_idi_options, plci->ec_tail_length));
12709
12710   Info = GOOD;
12711   if (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC)
12712   {
12713     result[0] = 2;
12714     PUT_WORD (&result[1], EC_SUCCESS);
12715   }
12716   else
12717   {
12718     result[0] = 5;
12719     PUT_WORD (&result[1], plci->ec_cmd);
12720     result[3] = 2;
12721     PUT_WORD (&result[4], GOOD);
12722   }
12723   internal_command = plci->internal_command;
12724   plci->internal_command = 0;
12725   switch (plci->ec_cmd)
12726   {
12727   case EC_ENABLE_OPERATION:
12728   case EC_FREEZE_COEFFICIENTS:
12729   case EC_RESUME_COEFFICIENT_UPDATE:
12730   case EC_RESET_COEFFICIENTS:
12731     switch (internal_command)
12732     {
12733     default:
12734       adjust_b1_resource (Id, plci, NULL, (word)(plci->B1_facilities |
12735         B1_FACILITY_EC), EC_COMMAND_1);
12736     case EC_COMMAND_1:
12737       if (adjust_b_process (Id, plci, Rc) != GOOD)
12738       {
12739         dbug (1, dprintf ("[%06lx] %s,%d: Load EC failed",
12740           UnMapId (Id), (char   *)(FILE_), __LINE__));
12741         Info = _FACILITY_NOT_SUPPORTED;
12742         break;
12743       }
12744       if (plci->internal_command)
12745         return;
12746     case EC_COMMAND_2:
12747       if (plci->sig_req)
12748       {
12749         plci->internal_command = EC_COMMAND_2;
12750         return;
12751       }
12752       plci->internal_command = EC_COMMAND_3;
12753       ec_write_parameters (plci);
12754       return;
12755     case EC_COMMAND_3:
12756       if ((Rc != OK) && (Rc != OK_FC))
12757       {
12758         dbug (1, dprintf ("[%06lx] %s,%d: Enable EC failed %02x",
12759           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
12760         Info = _FACILITY_NOT_SUPPORTED;
12761         break;
12762       }
12763       break;
12764     }
12765     break;
12766
12767   case EC_DISABLE_OPERATION:
12768     switch (internal_command)
12769     {
12770     default:
12771     case EC_COMMAND_1:
12772       if (plci->B1_facilities & B1_FACILITY_EC)
12773       {
12774         if (plci->sig_req)
12775         {
12776           plci->internal_command = EC_COMMAND_1;
12777           return;
12778         }
12779         plci->internal_command = EC_COMMAND_2;
12780         ec_write_parameters (plci);
12781         return;
12782       }
12783       Rc = OK;
12784     case EC_COMMAND_2:
12785       if ((Rc != OK) && (Rc != OK_FC))
12786       {
12787         dbug (1, dprintf ("[%06lx] %s,%d: Disable EC failed %02x",
12788           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
12789         Info = _FACILITY_NOT_SUPPORTED;
12790         break;
12791       }
12792       adjust_b1_resource (Id, plci, NULL, (word)(plci->B1_facilities &
12793         ~B1_FACILITY_EC), EC_COMMAND_3);
12794     case EC_COMMAND_3:
12795       if (adjust_b_process (Id, plci, Rc) != GOOD)
12796       {
12797         dbug (1, dprintf ("[%06lx] %s,%d: Unload EC failed",
12798           UnMapId (Id), (char   *)(FILE_), __LINE__));
12799         Info = _FACILITY_NOT_SUPPORTED;
12800         break;
12801       }
12802       if (plci->internal_command)
12803         return;
12804       break;
12805     }
12806     break;
12807   }
12808   sendf (plci->appl, _FACILITY_R | CONFIRM, Id & 0xffffL, plci->number,
12809     "wws", Info, (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) ?
12810     PRIV_SELECTOR_ECHO_CANCELLER : SELECTOR_ECHO_CANCELLER, result);
12811 }
12812
12813
12814 static byte ec_request (dword Id, word Number, DIVA_CAPI_ADAPTER   *a, PLCI   *plci, APPL   *appl, API_PARSE *msg)
12815 {
12816   word Info;
12817   word opt;
12818     API_PARSE ec_parms[3];
12819     byte result[16];
12820
12821   dbug (1, dprintf ("[%06lx] %s,%d: ec_request",
12822     UnMapId (Id), (char   *)(FILE_), __LINE__));
12823
12824   Info = GOOD;
12825   result[0] = 0;
12826   if (!(a->man_profile.private_options & (1L << PRIVATE_ECHO_CANCELLER)))
12827   {
12828     dbug (1, dprintf ("[%06lx] %s,%d: Facility not supported",
12829       UnMapId (Id), (char   *)(FILE_), __LINE__));
12830     Info = _FACILITY_NOT_SUPPORTED;
12831   }
12832   else
12833   {
12834     if (appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC)
12835     {
12836       if (api_parse (&msg[1].info[1], msg[1].length, "w", ec_parms))
12837       {
12838         dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12839           UnMapId (Id), (char   *)(FILE_), __LINE__));
12840         Info = _WRONG_MESSAGE_FORMAT;
12841       }
12842       else
12843       {
12844         if (plci == NULL)
12845         {
12846           dbug (1, dprintf ("[%06lx] %s,%d: Wrong PLCI",
12847             UnMapId (Id), (char   *)(FILE_), __LINE__));
12848           Info = _WRONG_IDENTIFIER;
12849         }
12850         else if (!plci->State || !plci->NL.Id || plci->nl_remove_id)
12851         {
12852           dbug (1, dprintf ("[%06lx] %s,%d: Wrong state",
12853             UnMapId (Id), (char   *)(FILE_), __LINE__));
12854           Info = _WRONG_STATE;
12855         }
12856         else
12857         {
12858           plci->command = 0;
12859           plci->ec_cmd = GET_WORD (ec_parms[0].info);
12860           plci->ec_idi_options &= ~(LEC_MANUAL_DISABLE | LEC_RESET_COEFFICIENTS);
12861           result[0] = 2;
12862           PUT_WORD (&result[1], EC_SUCCESS);
12863           if (msg[1].length >= 4)
12864           {
12865             opt = GET_WORD (&ec_parms[0].info[2]);
12866             plci->ec_idi_options &= ~(LEC_ENABLE_NONLINEAR_PROCESSING |
12867               LEC_ENABLE_2100HZ_DETECTOR | LEC_REQUIRE_2100HZ_REVERSALS);
12868             if (!(opt & EC_DISABLE_NON_LINEAR_PROCESSING))
12869               plci->ec_idi_options |= LEC_ENABLE_NONLINEAR_PROCESSING;
12870             if (opt & EC_DETECT_DISABLE_TONE)
12871               plci->ec_idi_options |= LEC_ENABLE_2100HZ_DETECTOR;
12872             if (!(opt & EC_DO_NOT_REQUIRE_REVERSALS))
12873               plci->ec_idi_options |= LEC_REQUIRE_2100HZ_REVERSALS;
12874             if (msg[1].length >= 6)
12875             {
12876               plci->ec_tail_length = GET_WORD (&ec_parms[0].info[4]);
12877             }
12878           }
12879           switch (plci->ec_cmd)
12880           {
12881           case EC_ENABLE_OPERATION:
12882             plci->ec_idi_options &= ~LEC_FREEZE_COEFFICIENTS;
12883             start_internal_command (Id, plci, ec_command);
12884             return (false);
12885
12886           case EC_DISABLE_OPERATION:
12887             plci->ec_idi_options = LEC_ENABLE_ECHO_CANCELLER |
12888               LEC_MANUAL_DISABLE | LEC_ENABLE_NONLINEAR_PROCESSING |
12889               LEC_RESET_COEFFICIENTS;
12890             start_internal_command (Id, plci, ec_command);
12891             return (false);
12892
12893           case EC_FREEZE_COEFFICIENTS:
12894             plci->ec_idi_options |= LEC_FREEZE_COEFFICIENTS;
12895             start_internal_command (Id, plci, ec_command);
12896             return (false);
12897
12898           case EC_RESUME_COEFFICIENT_UPDATE:
12899             plci->ec_idi_options &= ~LEC_FREEZE_COEFFICIENTS;
12900             start_internal_command (Id, plci, ec_command);
12901             return (false);
12902
12903           case EC_RESET_COEFFICIENTS:
12904             plci->ec_idi_options |= LEC_RESET_COEFFICIENTS;
12905             start_internal_command (Id, plci, ec_command);
12906             return (false);
12907
12908           default:
12909             dbug (1, dprintf ("[%06lx] %s,%d: EC unknown request %04x",
12910               UnMapId (Id), (char   *)(FILE_), __LINE__, plci->ec_cmd));
12911             PUT_WORD (&result[1], EC_UNSUPPORTED_OPERATION);
12912           }
12913         }
12914       }
12915     }
12916     else
12917     {
12918       if (api_parse (&msg[1].info[1], msg[1].length, "ws", ec_parms))
12919       {
12920         dbug (1, dprintf ("[%06lx] %s,%d: Wrong message format",
12921           UnMapId (Id), (char   *)(FILE_), __LINE__));
12922         Info = _WRONG_MESSAGE_FORMAT;
12923       }
12924       else
12925       {
12926         if (GET_WORD (ec_parms[0].info) == EC_GET_SUPPORTED_SERVICES)
12927         {
12928           result[0] = 11;
12929           PUT_WORD (&result[1], EC_GET_SUPPORTED_SERVICES);
12930           result[3] = 8;
12931           PUT_WORD (&result[4], GOOD);
12932           PUT_WORD (&result[6], 0x0007);
12933           PUT_WORD (&result[8], LEC_MAX_SUPPORTED_TAIL_LENGTH);
12934           PUT_WORD (&result[10], 0);
12935         }
12936         else if (plci == NULL)
12937         {
12938           dbug (1, dprintf ("[%06lx] %s,%d: Wrong PLCI",
12939             UnMapId (Id), (char   *)(FILE_), __LINE__));
12940           Info = _WRONG_IDENTIFIER;
12941         }
12942         else if (!plci->State || !plci->NL.Id || plci->nl_remove_id)
12943         {
12944           dbug (1, dprintf ("[%06lx] %s,%d: Wrong state",
12945             UnMapId (Id), (char   *)(FILE_), __LINE__));
12946           Info = _WRONG_STATE;
12947         }
12948         else
12949         {
12950           plci->command = 0;
12951           plci->ec_cmd = GET_WORD (ec_parms[0].info);
12952           plci->ec_idi_options &= ~(LEC_MANUAL_DISABLE | LEC_RESET_COEFFICIENTS);
12953           result[0] = 5;
12954           PUT_WORD (&result[1], plci->ec_cmd);
12955           result[3] = 2;
12956           PUT_WORD (&result[4], GOOD);
12957           plci->ec_idi_options &= ~(LEC_ENABLE_NONLINEAR_PROCESSING |
12958             LEC_ENABLE_2100HZ_DETECTOR | LEC_REQUIRE_2100HZ_REVERSALS);
12959           plci->ec_tail_length = 0;
12960           if (ec_parms[1].length >= 2)
12961           {
12962             opt = GET_WORD (&ec_parms[1].info[1]);
12963             if (opt & EC_ENABLE_NON_LINEAR_PROCESSING)
12964               plci->ec_idi_options |= LEC_ENABLE_NONLINEAR_PROCESSING;
12965             if (opt & EC_DETECT_DISABLE_TONE)
12966               plci->ec_idi_options |= LEC_ENABLE_2100HZ_DETECTOR;
12967             if (!(opt & EC_DO_NOT_REQUIRE_REVERSALS))
12968               plci->ec_idi_options |= LEC_REQUIRE_2100HZ_REVERSALS;
12969             if (ec_parms[1].length >= 4)
12970             {
12971               plci->ec_tail_length = GET_WORD (&ec_parms[1].info[3]);
12972             }
12973           }
12974           switch (plci->ec_cmd)
12975           {
12976           case EC_ENABLE_OPERATION:
12977             plci->ec_idi_options &= ~LEC_FREEZE_COEFFICIENTS;
12978             start_internal_command (Id, plci, ec_command);
12979             return (false);
12980
12981           case EC_DISABLE_OPERATION:
12982             plci->ec_idi_options = LEC_ENABLE_ECHO_CANCELLER |
12983               LEC_MANUAL_DISABLE | LEC_ENABLE_NONLINEAR_PROCESSING |
12984               LEC_RESET_COEFFICIENTS;
12985             start_internal_command (Id, plci, ec_command);
12986             return (false);
12987
12988           default:
12989             dbug (1, dprintf ("[%06lx] %s,%d: EC unknown request %04x",
12990               UnMapId (Id), (char   *)(FILE_), __LINE__, plci->ec_cmd));
12991             PUT_WORD (&result[4], _FACILITY_SPECIFIC_FUNCTION_NOT_SUPP);
12992           }
12993         }
12994       }
12995     }
12996   }
12997   sendf (appl, _FACILITY_R | CONFIRM, Id & 0xffffL, Number,
12998     "wws", Info, (appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) ?
12999     PRIV_SELECTOR_ECHO_CANCELLER : SELECTOR_ECHO_CANCELLER, result);
13000   return (false);
13001 }
13002
13003
13004 static void ec_indication (dword Id, PLCI   *plci, byte   *msg, word length)
13005 {
13006     byte result[8];
13007
13008   dbug (1, dprintf ("[%06lx] %s,%d: ec_indication",
13009     UnMapId (Id), (char   *)(FILE_), __LINE__));
13010
13011   if (!(plci->ec_idi_options & LEC_MANUAL_DISABLE))
13012   {
13013     if (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC)
13014     {
13015       result[0] = 2;
13016       PUT_WORD (&result[1], 0);
13017       switch (msg[1])
13018       {
13019       case LEC_DISABLE_TYPE_CONTIGNUOUS_2100HZ:
13020         PUT_WORD (&result[1], EC_BYPASS_DUE_TO_CONTINUOUS_2100HZ);
13021         break;
13022       case LEC_DISABLE_TYPE_REVERSED_2100HZ:
13023         PUT_WORD (&result[1], EC_BYPASS_DUE_TO_REVERSED_2100HZ);
13024         break;
13025       case LEC_DISABLE_RELEASED:
13026         PUT_WORD (&result[1], EC_BYPASS_RELEASED);
13027         break;
13028       }
13029     }
13030     else
13031     {
13032       result[0] = 5;
13033       PUT_WORD (&result[1], EC_BYPASS_INDICATION);
13034       result[3] = 2;
13035       PUT_WORD (&result[4], 0);
13036       switch (msg[1])
13037       {
13038       case LEC_DISABLE_TYPE_CONTIGNUOUS_2100HZ:
13039         PUT_WORD (&result[4], EC_BYPASS_DUE_TO_CONTINUOUS_2100HZ);
13040         break;
13041       case LEC_DISABLE_TYPE_REVERSED_2100HZ:
13042         PUT_WORD (&result[4], EC_BYPASS_DUE_TO_REVERSED_2100HZ);
13043         break;
13044       case LEC_DISABLE_RELEASED:
13045         PUT_WORD (&result[4], EC_BYPASS_RELEASED);
13046         break;
13047       }
13048     }
13049     sendf (plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", (plci->appl->appl_flags & APPL_FLAG_PRIV_EC_SPEC) ?
13050       PRIV_SELECTOR_ECHO_CANCELLER : SELECTOR_ECHO_CANCELLER, result);
13051   }
13052 }
13053
13054
13055
13056 /*------------------------------------------------------------------*/
13057 /* Advanced voice                                                   */
13058 /*------------------------------------------------------------------*/
13059
13060 static void adv_voice_write_coefs (PLCI   *plci, word write_command)
13061 {
13062   DIVA_CAPI_ADAPTER   *a;
13063   word i;
13064   byte *p;
13065
13066   word w, n, j, k;
13067   byte ch_map[MIXER_CHANNELS_BRI];
13068
13069     byte coef_buffer[ADV_VOICE_COEF_BUFFER_SIZE + 2];
13070
13071   dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_write_coefs %d",
13072     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13073     (char   *)(FILE_), __LINE__, write_command));
13074
13075   a = plci->adapter;
13076   p = coef_buffer + 1;
13077   *(p++) = DSP_CTRL_OLD_SET_MIXER_COEFFICIENTS;
13078   i = 0;
13079   while (i + sizeof(word) <= a->adv_voice_coef_length)
13080   {
13081     PUT_WORD (p, GET_WORD (a->adv_voice_coef_buffer + i));
13082     p += 2;
13083     i += 2;
13084   }
13085   while (i < ADV_VOICE_OLD_COEF_COUNT * sizeof(word))
13086   {
13087     PUT_WORD (p, 0x8000);
13088     p += 2;
13089     i += 2;
13090   }
13091
13092   if (!a->li_pri && (plci->li_bchannel_id == 0))
13093   {
13094     if ((li_config_table[a->li_base].plci == NULL) && (li_config_table[a->li_base + 1].plci != NULL))
13095     {
13096       plci->li_bchannel_id = 1;
13097       li_config_table[a->li_base].plci = plci;
13098       dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_set_bchannel_id %d",
13099         (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13100         (char   *)(FILE_), __LINE__, plci->li_bchannel_id));
13101     }
13102     else if ((li_config_table[a->li_base].plci != NULL) && (li_config_table[a->li_base + 1].plci == NULL))
13103     {
13104       plci->li_bchannel_id = 2;
13105       li_config_table[a->li_base + 1].plci = plci;
13106       dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_set_bchannel_id %d",
13107         (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13108         (char   *)(FILE_), __LINE__, plci->li_bchannel_id));
13109     }
13110   }
13111   if (!a->li_pri && (plci->li_bchannel_id != 0)
13112    && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
13113   {
13114     i = a->li_base + (plci->li_bchannel_id - 1);
13115     switch (write_command)
13116     {
13117     case ADV_VOICE_WRITE_ACTIVATION:
13118       j = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1);
13119       k = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id);
13120       if (!(plci->B1_facilities & B1_FACILITY_MIXER))
13121       {
13122         li_config_table[j].flag_table[i] |= LI_FLAG_CONFERENCE | LI_FLAG_MIX;
13123         li_config_table[i].flag_table[j] |= LI_FLAG_CONFERENCE | LI_FLAG_MONITOR;
13124       }
13125       if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC)
13126       {
13127         li_config_table[k].flag_table[i] |= LI_FLAG_CONFERENCE | LI_FLAG_MIX;
13128         li_config_table[i].flag_table[k] |= LI_FLAG_CONFERENCE | LI_FLAG_MONITOR;
13129         li_config_table[k].flag_table[j] |= LI_FLAG_CONFERENCE;
13130         li_config_table[j].flag_table[k] |= LI_FLAG_CONFERENCE;
13131       }
13132       mixer_calculate_coefs (a);
13133       li_config_table[i].curchnl = li_config_table[i].channel;
13134       li_config_table[j].curchnl = li_config_table[j].channel;
13135       if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC)
13136         li_config_table[k].curchnl = li_config_table[k].channel;
13137       break;
13138
13139     case ADV_VOICE_WRITE_DEACTIVATION:
13140       for (j = 0; j < li_total_channels; j++)
13141       {
13142         li_config_table[i].flag_table[j] = 0;
13143         li_config_table[j].flag_table[i] = 0;
13144       }
13145       k = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1);
13146       for (j = 0; j < li_total_channels; j++)
13147       {
13148         li_config_table[k].flag_table[j] = 0;
13149         li_config_table[j].flag_table[k] = 0;
13150       }
13151       if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC)
13152       {
13153         k = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id);
13154         for (j = 0; j < li_total_channels; j++)
13155         {
13156           li_config_table[k].flag_table[j] = 0;
13157           li_config_table[j].flag_table[k] = 0;
13158         }
13159       }
13160       mixer_calculate_coefs (a);
13161       break;
13162     }
13163     if (plci->B1_facilities & B1_FACILITY_MIXER)
13164     {
13165       w = 0;
13166       if (ADV_VOICE_NEW_COEF_BASE + sizeof(word) <= a->adv_voice_coef_length)
13167         w = GET_WORD (a->adv_voice_coef_buffer + ADV_VOICE_NEW_COEF_BASE);
13168       if (li_config_table[i].channel & LI_CHANNEL_TX_DATA)
13169         w |= MIXER_FEATURE_ENABLE_TX_DATA;
13170       if (li_config_table[i].channel & LI_CHANNEL_RX_DATA)
13171         w |= MIXER_FEATURE_ENABLE_RX_DATA;
13172       *(p++) = (byte) w;
13173       *(p++) = (byte)(w >> 8);
13174       for (j = 0; j < sizeof(ch_map); j += 2)
13175       {
13176         ch_map[j] = (byte)(j + (plci->li_bchannel_id - 1));
13177         ch_map[j+1] = (byte)(j + (2 - plci->li_bchannel_id));
13178       }
13179       for (n = 0; n < ARRAY_SIZE(mixer_write_prog_bri); n++)
13180       {
13181         i = a->li_base + ch_map[mixer_write_prog_bri[n].to_ch];
13182         j = a->li_base + ch_map[mixer_write_prog_bri[n].from_ch];
13183         if (li_config_table[i].channel & li_config_table[j].channel & LI_CHANNEL_INVOLVED)
13184         {
13185           *(p++) = ((li_config_table[i].coef_table[j] & mixer_write_prog_bri[n].mask) ? 0x80 : 0x01);
13186           w = ((li_config_table[i].coef_table[j] & 0xf) ^ (li_config_table[i].coef_table[j] >> 4));
13187           li_config_table[i].coef_table[j] ^= (w & mixer_write_prog_bri[n].mask) << 4;
13188         }
13189         else
13190         {
13191           *(p++) = (ADV_VOICE_NEW_COEF_BASE + sizeof(word) + n < a->adv_voice_coef_length) ?
13192             a->adv_voice_coef_buffer[ADV_VOICE_NEW_COEF_BASE + sizeof(word) + n] : 0x00;
13193         }
13194       }
13195     }
13196     else
13197     {
13198       for (i = ADV_VOICE_NEW_COEF_BASE; i < a->adv_voice_coef_length; i++)
13199         *(p++) = a->adv_voice_coef_buffer[i];
13200     }
13201   }
13202   else
13203
13204   {
13205     for (i = ADV_VOICE_NEW_COEF_BASE; i < a->adv_voice_coef_length; i++)
13206       *(p++) = a->adv_voice_coef_buffer[i];
13207   }
13208   coef_buffer[0] = (p - coef_buffer) - 1;
13209   add_p (plci, FTY, coef_buffer);
13210   sig_req (plci, TEL_CTRL, 0);
13211   send_req (plci);
13212 }
13213
13214
13215 static void adv_voice_clear_config (PLCI   *plci)
13216 {
13217   DIVA_CAPI_ADAPTER   *a;
13218
13219   word i, j;
13220
13221
13222   dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_clear_config",
13223     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13224     (char   *)(FILE_), __LINE__));
13225
13226   a = plci->adapter;
13227   if ((plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI))
13228   {
13229     a->adv_voice_coef_length = 0;
13230
13231     if (!a->li_pri && (plci->li_bchannel_id != 0)
13232      && (li_config_table[a->li_base + (plci->li_bchannel_id - 1)].plci == plci))
13233     {
13234       i = a->li_base + (plci->li_bchannel_id - 1);
13235       li_config_table[i].curchnl = 0;
13236       li_config_table[i].channel = 0;
13237       li_config_table[i].chflags = 0;
13238       for (j = 0; j < li_total_channels; j++)
13239       {
13240         li_config_table[i].flag_table[j] = 0;
13241         li_config_table[j].flag_table[i] = 0;
13242         li_config_table[i].coef_table[j] = 0;
13243         li_config_table[j].coef_table[i] = 0;
13244       }
13245       li_config_table[i].coef_table[i] |= LI_COEF_CH_PC_SET | LI_COEF_PC_CH_SET;
13246       i = a->li_base + MIXER_IC_CHANNEL_BASE + (plci->li_bchannel_id - 1);
13247       li_config_table[i].curchnl = 0;
13248       li_config_table[i].channel = 0;
13249       li_config_table[i].chflags = 0;
13250       for (j = 0; j < li_total_channels; j++)
13251       {
13252         li_config_table[i].flag_table[j] = 0;
13253         li_config_table[j].flag_table[i] = 0;
13254         li_config_table[i].coef_table[j] = 0;
13255         li_config_table[j].coef_table[i] = 0;
13256       }
13257       if (a->manufacturer_features & MANUFACTURER_FEATURE_SLAVE_CODEC)
13258       {
13259         i = a->li_base + MIXER_IC_CHANNEL_BASE + (2 - plci->li_bchannel_id);
13260         li_config_table[i].curchnl = 0;
13261         li_config_table[i].channel = 0;
13262         li_config_table[i].chflags = 0;
13263         for (j = 0; j < li_total_channels; j++)
13264         {
13265           li_config_table[i].flag_table[j] = 0;
13266           li_config_table[j].flag_table[i] = 0;
13267           li_config_table[i].coef_table[j] = 0;
13268           li_config_table[j].coef_table[i] = 0;
13269         }
13270       }
13271     }
13272
13273   }
13274 }
13275
13276
13277 static void adv_voice_prepare_switch (dword Id, PLCI   *plci)
13278 {
13279
13280   dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_prepare_switch",
13281     UnMapId (Id), (char   *)(FILE_), __LINE__));
13282
13283 }
13284
13285
13286 static word adv_voice_save_config (dword Id, PLCI   *plci, byte Rc)
13287 {
13288
13289   dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_save_config %02x %d",
13290     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
13291
13292   return (GOOD);
13293 }
13294
13295
13296 static word adv_voice_restore_config (dword Id, PLCI   *plci, byte Rc)
13297 {
13298   DIVA_CAPI_ADAPTER   *a;
13299   word Info;
13300
13301   dbug (1, dprintf ("[%06lx] %s,%d: adv_voice_restore_config %02x %d",
13302     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
13303
13304   Info = GOOD;
13305   a = plci->adapter;
13306   if ((plci->B1_facilities & B1_FACILITY_VOICE)
13307    && (plci->tel == ADV_VOICE) && (plci == a->AdvSignalPLCI))
13308   {
13309     switch (plci->adjust_b_state)
13310     {
13311     case ADJUST_B_RESTORE_VOICE_1:
13312       plci->internal_command = plci->adjust_b_command;
13313       if (plci->sig_req)
13314       {
13315         plci->adjust_b_state = ADJUST_B_RESTORE_VOICE_1;
13316         break;
13317       }
13318       adv_voice_write_coefs (plci, ADV_VOICE_WRITE_UPDATE);
13319       plci->adjust_b_state = ADJUST_B_RESTORE_VOICE_2;
13320       break;
13321     case ADJUST_B_RESTORE_VOICE_2:
13322       if ((Rc != OK) && (Rc != OK_FC))
13323       {
13324         dbug (1, dprintf ("[%06lx] %s,%d: Restore voice config failed %02x",
13325           UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
13326         Info = _WRONG_STATE;
13327         break;
13328       }
13329       break;
13330     }
13331   }
13332   return (Info);
13333 }
13334
13335
13336
13337
13338 /*------------------------------------------------------------------*/
13339 /* B1 resource switching                                            */
13340 /*------------------------------------------------------------------*/
13341
13342 static byte b1_facilities_table[] =
13343 {
13344   0x00,  /* 0  No bchannel resources      */
13345   0x00,  /* 1  Codec (automatic law)      */
13346   0x00,  /* 2  Codec (A-law)              */
13347   0x00,  /* 3  Codec (y-law)              */
13348   0x00,  /* 4  HDLC for X.21              */
13349   0x00,  /* 5  HDLC                       */
13350   0x00,  /* 6  External Device 0          */
13351   0x00,  /* 7  External Device 1          */
13352   0x00,  /* 8  HDLC 56k                   */
13353   0x00,  /* 9  Transparent                */
13354   0x00,  /* 10 Loopback to network        */
13355   0x00,  /* 11 Test pattern to net        */
13356   0x00,  /* 12 Rate adaptation sync       */
13357   0x00,  /* 13 Rate adaptation async      */
13358   0x00,  /* 14 R-Interface                */
13359   0x00,  /* 15 HDLC 128k leased line      */
13360   0x00,  /* 16 FAX                        */
13361   0x00,  /* 17 Modem async                */
13362   0x00,  /* 18 Modem sync HDLC            */
13363   0x00,  /* 19 V.110 async HDLC           */
13364   0x12,  /* 20 Adv voice (Trans,mixer)    */
13365   0x00,  /* 21 Codec connected to IC      */
13366   0x0c,  /* 22 Trans,DTMF                 */
13367   0x1e,  /* 23 Trans,DTMF+mixer           */
13368   0x1f,  /* 24 Trans,DTMF+mixer+local     */
13369   0x13,  /* 25 Trans,mixer+local          */
13370   0x12,  /* 26 HDLC,mixer                 */
13371   0x12,  /* 27 HDLC 56k,mixer             */
13372   0x2c,  /* 28 Trans,LEC+DTMF             */
13373   0x3e,  /* 29 Trans,LEC+DTMF+mixer       */
13374   0x3f,  /* 30 Trans,LEC+DTMF+mixer+local */
13375   0x2c,  /* 31 RTP,LEC+DTMF               */
13376   0x3e,  /* 32 RTP,LEC+DTMF+mixer         */
13377   0x3f,  /* 33 RTP,LEC+DTMF+mixer+local   */
13378   0x00,  /* 34 Signaling task             */
13379   0x00,  /* 35 PIAFS                      */
13380   0x0c,  /* 36 Trans,DTMF+TONE            */
13381   0x1e,  /* 37 Trans,DTMF+TONE+mixer      */
13382   0x1f   /* 38 Trans,DTMF+TONE+mixer+local*/
13383 };
13384
13385
13386 static word get_b1_facilities (PLCI   * plci, byte b1_resource)
13387 {
13388   word b1_facilities;
13389
13390   b1_facilities = b1_facilities_table[b1_resource];
13391   if ((b1_resource == 9) || (b1_resource == 20) || (b1_resource == 25))
13392   {
13393
13394     if (!(((plci->requested_options_conn | plci->requested_options) & (1L << PRIVATE_DTMF_TONE))
13395        || (plci->appl && (plci->adapter->requested_options_table[plci->appl->Id-1] & (1L << PRIVATE_DTMF_TONE)))))
13396
13397     {
13398       if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_SEND)
13399         b1_facilities |= B1_FACILITY_DTMFX;
13400       if (plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE)
13401         b1_facilities |= B1_FACILITY_DTMFR;
13402     }
13403   }
13404   if ((b1_resource == 17) || (b1_resource == 18))
13405   {
13406     if (plci->adapter->manufacturer_features & (MANUFACTURER_FEATURE_V18 | MANUFACTURER_FEATURE_VOWN))
13407       b1_facilities |= B1_FACILITY_DTMFX | B1_FACILITY_DTMFR;
13408   }
13409 /*
13410   dbug (1, dprintf ("[%06lx] %s,%d: get_b1_facilities %d %04x",
13411     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13412     (char far *)(FILE_), __LINE__, b1_resource, b1_facilites));
13413 */
13414   return (b1_facilities);
13415 }
13416
13417
13418 static byte add_b1_facilities (PLCI   * plci, byte b1_resource, word b1_facilities)
13419 {
13420   byte b;
13421
13422   switch (b1_resource)
13423   {
13424   case 5:
13425   case 26:
13426     if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE))
13427       b = 26;
13428     else
13429       b = 5;
13430     break;
13431
13432   case 8:
13433   case 27:
13434     if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE))
13435       b = 27;
13436     else
13437       b = 8;
13438     break;
13439
13440   case 9:
13441   case 20:
13442   case 22:
13443   case 23:
13444   case 24:
13445   case 25:
13446   case 28:
13447   case 29:
13448   case 30:
13449   case 36:
13450   case 37:
13451   case 38:
13452     if (b1_facilities & B1_FACILITY_EC)
13453     {
13454       if (b1_facilities & B1_FACILITY_LOCAL)
13455         b = 30;
13456       else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE))
13457         b = 29;
13458       else
13459         b = 28;
13460     }
13461
13462     else if ((b1_facilities & (B1_FACILITY_DTMFX | B1_FACILITY_DTMFR | B1_FACILITY_MIXER))
13463       && (((plci->requested_options_conn | plci->requested_options) & (1L << PRIVATE_DTMF_TONE))
13464        || (plci->appl && (plci->adapter->requested_options_table[plci->appl->Id-1] & (1L << PRIVATE_DTMF_TONE)))))
13465     {
13466       if (b1_facilities & B1_FACILITY_LOCAL)
13467         b = 38;
13468       else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE))
13469         b = 37;
13470       else
13471         b = 36;
13472     }
13473
13474     else if (((plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_HARDDTMF)
13475       && !(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE))
13476      || ((b1_facilities & B1_FACILITY_DTMFR)
13477       && ((b1_facilities & B1_FACILITY_MIXER)
13478        || !(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_RECEIVE)))
13479      || ((b1_facilities & B1_FACILITY_DTMFX)
13480       && ((b1_facilities & B1_FACILITY_MIXER)
13481        || !(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_SOFTDTMF_SEND))))
13482     {
13483       if (b1_facilities & B1_FACILITY_LOCAL)
13484         b = 24;
13485       else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE))
13486         b = 23;
13487       else
13488         b = 22;
13489     }
13490     else
13491     {
13492       if (b1_facilities & B1_FACILITY_LOCAL)
13493         b = 25;
13494       else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE))
13495         b = 20;
13496       else
13497         b = 9;
13498     }
13499     break;
13500
13501   case 31:
13502   case 32:
13503   case 33:
13504     if (b1_facilities & B1_FACILITY_LOCAL)
13505       b = 33;
13506     else if (b1_facilities & (B1_FACILITY_MIXER | B1_FACILITY_VOICE))
13507       b = 32;
13508     else
13509       b = 31;
13510     break;
13511
13512   default:
13513     b = b1_resource;
13514   }
13515   dbug (1, dprintf ("[%06lx] %s,%d: add_b1_facilities %d %04x %d %04x",
13516     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13517     (char   *)(FILE_), __LINE__,
13518     b1_resource, b1_facilities, b, get_b1_facilities (plci, b)));
13519   return (b);
13520 }
13521
13522
13523 static void adjust_b1_facilities (PLCI   *plci, byte new_b1_resource, word new_b1_facilities)
13524 {
13525   word removed_facilities;
13526
13527   dbug (1, dprintf ("[%06lx] %s,%d: adjust_b1_facilities %d %04x %04x",
13528     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13529     (char   *)(FILE_), __LINE__, new_b1_resource, new_b1_facilities,
13530     new_b1_facilities & get_b1_facilities (plci, new_b1_resource)));
13531
13532   new_b1_facilities &= get_b1_facilities (plci, new_b1_resource);
13533   removed_facilities = plci->B1_facilities & ~new_b1_facilities;
13534
13535   if (removed_facilities & B1_FACILITY_EC)
13536     ec_clear_config (plci);
13537
13538
13539   if (removed_facilities & B1_FACILITY_DTMFR)
13540   {
13541     dtmf_rec_clear_config (plci);
13542     dtmf_parameter_clear_config (plci);
13543   }
13544   if (removed_facilities & B1_FACILITY_DTMFX)
13545     dtmf_send_clear_config (plci);
13546
13547
13548   if (removed_facilities & B1_FACILITY_MIXER)
13549     mixer_clear_config (plci);
13550
13551   if (removed_facilities & B1_FACILITY_VOICE)
13552     adv_voice_clear_config (plci);
13553   plci->B1_facilities = new_b1_facilities;
13554 }
13555
13556
13557 static void adjust_b_clear (PLCI   *plci)
13558 {
13559
13560   dbug (1, dprintf ("[%06lx] %s,%d: adjust_b_clear",
13561     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
13562     (char   *)(FILE_), __LINE__));
13563
13564   plci->adjust_b_restore = false;
13565 }
13566
13567
13568 static word adjust_b_process (dword Id, PLCI   *plci, byte Rc)
13569 {
13570   word Info;
13571   byte b1_resource;
13572   NCCI   * ncci_ptr;
13573     API_PARSE bp[2];
13574
13575   dbug (1, dprintf ("[%06lx] %s,%d: adjust_b_process %02x %d",
13576     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->adjust_b_state));
13577
13578   Info = GOOD;
13579   switch (plci->adjust_b_state)
13580   {
13581   case ADJUST_B_START:
13582     if ((plci->adjust_b_parms_msg == NULL)
13583      && (plci->adjust_b_mode & ADJUST_B_MODE_SWITCH_L1)
13584      && ((plci->adjust_b_mode & ~(ADJUST_B_MODE_SAVE | ADJUST_B_MODE_SWITCH_L1 |
13585       ADJUST_B_MODE_NO_RESOURCE | ADJUST_B_MODE_RESTORE)) == 0))
13586     {
13587       b1_resource = (plci->adjust_b_mode == ADJUST_B_MODE_NO_RESOURCE) ?
13588         0 : add_b1_facilities (plci, plci->B1_resource, plci->adjust_b_facilities);
13589       if (b1_resource == plci->B1_resource)
13590       {
13591         adjust_b1_facilities (plci, b1_resource, plci->adjust_b_facilities);
13592         break;
13593       }
13594       if (plci->adjust_b_facilities & ~get_b1_facilities (plci, b1_resource))
13595       {
13596         dbug (1, dprintf ("[%06lx] %s,%d: Adjust B nonsupported facilities %d %d %04x",
13597           UnMapId (Id), (char   *)(FILE_), __LINE__,
13598           plci->B1_resource, b1_resource, plci->adjust_b_facilities));
13599         Info = _WRONG_STATE;
13600         break;
13601       }
13602     }
13603     if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE)
13604     {
13605
13606       mixer_prepare_switch (Id, plci);
13607
13608
13609       dtmf_prepare_switch (Id, plci);
13610       dtmf_parameter_prepare_switch (Id, plci);
13611
13612
13613       ec_prepare_switch (Id, plci);
13614
13615       adv_voice_prepare_switch (Id, plci);
13616     }
13617     plci->adjust_b_state = ADJUST_B_SAVE_MIXER_1;
13618     Rc = OK;
13619   case ADJUST_B_SAVE_MIXER_1:
13620     if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE)
13621     {
13622
13623       Info = mixer_save_config (Id, plci, Rc);
13624       if ((Info != GOOD) || plci->internal_command)
13625         break;
13626
13627     }
13628     plci->adjust_b_state = ADJUST_B_SAVE_DTMF_1;
13629     Rc = OK;
13630   case ADJUST_B_SAVE_DTMF_1:
13631     if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE)
13632     {
13633
13634       Info = dtmf_save_config (Id, plci, Rc);
13635       if ((Info != GOOD) || plci->internal_command)
13636         break;
13637
13638     }
13639     plci->adjust_b_state = ADJUST_B_REMOVE_L23_1;
13640   case ADJUST_B_REMOVE_L23_1:
13641     if ((plci->adjust_b_mode & ADJUST_B_MODE_REMOVE_L23)
13642      && plci->NL.Id && !plci->nl_remove_id)
13643     {
13644       plci->internal_command = plci->adjust_b_command;
13645       if (plci->adjust_b_ncci != 0)
13646       {
13647         ncci_ptr = &(plci->adapter->ncci[plci->adjust_b_ncci]);
13648         while (ncci_ptr->data_pending)
13649         {
13650           plci->data_sent_ptr = ncci_ptr->DBuffer[ncci_ptr->data_out].P;
13651           data_rc (plci, plci->adapter->ncci_ch[plci->adjust_b_ncci]);
13652         }
13653         while (ncci_ptr->data_ack_pending)
13654           data_ack (plci, plci->adapter->ncci_ch[plci->adjust_b_ncci]);
13655       }
13656       nl_req_ncci (plci, REMOVE,
13657         (byte)((plci->adjust_b_mode & ADJUST_B_MODE_CONNECT) ? plci->adjust_b_ncci : 0));
13658       send_req (plci);
13659       plci->adjust_b_state = ADJUST_B_REMOVE_L23_2;
13660       break;
13661     }
13662     plci->adjust_b_state = ADJUST_B_REMOVE_L23_2;
13663     Rc = OK;
13664   case ADJUST_B_REMOVE_L23_2:
13665     if ((Rc != OK) && (Rc != OK_FC))
13666     {
13667       dbug (1, dprintf ("[%06lx] %s,%d: Adjust B remove failed %02x",
13668         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
13669       Info = _WRONG_STATE;
13670       break;
13671     }
13672     if (plci->adjust_b_mode & ADJUST_B_MODE_REMOVE_L23)
13673     {
13674       if (plci_nl_busy (plci))
13675       {
13676         plci->internal_command = plci->adjust_b_command;
13677         break;
13678       }
13679     }
13680     plci->adjust_b_state = ADJUST_B_SAVE_EC_1;
13681     Rc = OK;
13682   case ADJUST_B_SAVE_EC_1:
13683     if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE)
13684     {
13685
13686       Info = ec_save_config (Id, plci, Rc);
13687       if ((Info != GOOD) || plci->internal_command)
13688         break;
13689
13690     }
13691     plci->adjust_b_state = ADJUST_B_SAVE_DTMF_PARAMETER_1;
13692     Rc = OK;
13693   case ADJUST_B_SAVE_DTMF_PARAMETER_1:
13694     if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE)
13695     {
13696
13697       Info = dtmf_parameter_save_config (Id, plci, Rc);
13698       if ((Info != GOOD) || plci->internal_command)
13699         break;
13700
13701     }
13702     plci->adjust_b_state = ADJUST_B_SAVE_VOICE_1;
13703     Rc = OK;
13704   case ADJUST_B_SAVE_VOICE_1:
13705     if (plci->adjust_b_mode & ADJUST_B_MODE_SAVE)
13706     {
13707       Info = adv_voice_save_config (Id, plci, Rc);
13708       if ((Info != GOOD) || plci->internal_command)
13709         break;
13710     }
13711     plci->adjust_b_state = ADJUST_B_SWITCH_L1_1;
13712   case ADJUST_B_SWITCH_L1_1:
13713     if (plci->adjust_b_mode & ADJUST_B_MODE_SWITCH_L1)
13714     {
13715       if (plci->sig_req)
13716       {
13717         plci->internal_command = plci->adjust_b_command;
13718         break;
13719       }
13720       if (plci->adjust_b_parms_msg != NULL)
13721         api_load_msg (plci->adjust_b_parms_msg, bp);
13722       else
13723         api_load_msg (&plci->B_protocol, bp);
13724       Info = add_b1 (plci, bp,
13725         (word)((plci->adjust_b_mode & ADJUST_B_MODE_NO_RESOURCE) ? 2 : 0),
13726         plci->adjust_b_facilities);
13727       if (Info != GOOD)
13728       {
13729         dbug (1, dprintf ("[%06lx] %s,%d: Adjust B invalid L1 parameters %d %04x",
13730           UnMapId (Id), (char   *)(FILE_), __LINE__,
13731           plci->B1_resource, plci->adjust_b_facilities));
13732         break;
13733       }
13734       plci->internal_command = plci->adjust_b_command;
13735       sig_req (plci, RESOURCES, 0);
13736       send_req (plci);
13737       plci->adjust_b_state = ADJUST_B_SWITCH_L1_2;
13738       break;
13739     }
13740     plci->adjust_b_state = ADJUST_B_SWITCH_L1_2;
13741     Rc = OK;
13742   case ADJUST_B_SWITCH_L1_2:
13743     if ((Rc != OK) && (Rc != OK_FC))
13744     {
13745       dbug (1, dprintf ("[%06lx] %s,%d: Adjust B switch failed %02x %d %04x",
13746         UnMapId (Id), (char   *)(FILE_), __LINE__,
13747         Rc, plci->B1_resource, plci->adjust_b_facilities));
13748       Info = _WRONG_STATE;
13749       break;
13750     }
13751     plci->adjust_b_state = ADJUST_B_RESTORE_VOICE_1;
13752     Rc = OK;
13753   case ADJUST_B_RESTORE_VOICE_1:
13754   case ADJUST_B_RESTORE_VOICE_2:
13755     if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE)
13756     {
13757       Info = adv_voice_restore_config (Id, plci, Rc);
13758       if ((Info != GOOD) || plci->internal_command)
13759         break;
13760     }
13761     plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_PARAMETER_1;
13762     Rc = OK;
13763   case ADJUST_B_RESTORE_DTMF_PARAMETER_1:
13764   case ADJUST_B_RESTORE_DTMF_PARAMETER_2:
13765     if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE)
13766     {
13767
13768       Info = dtmf_parameter_restore_config (Id, plci, Rc);
13769       if ((Info != GOOD) || plci->internal_command)
13770         break;
13771
13772     }
13773     plci->adjust_b_state = ADJUST_B_RESTORE_EC_1;
13774     Rc = OK;
13775   case ADJUST_B_RESTORE_EC_1:
13776   case ADJUST_B_RESTORE_EC_2:
13777     if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE)
13778     {
13779
13780       Info = ec_restore_config (Id, plci, Rc);
13781       if ((Info != GOOD) || plci->internal_command)
13782         break;
13783
13784     }
13785     plci->adjust_b_state = ADJUST_B_ASSIGN_L23_1;
13786   case ADJUST_B_ASSIGN_L23_1:
13787     if (plci->adjust_b_mode & ADJUST_B_MODE_ASSIGN_L23)
13788     {
13789       if (plci_nl_busy (plci))
13790       {
13791         plci->internal_command = plci->adjust_b_command;
13792         break;
13793       }
13794       if (plci->adjust_b_mode & ADJUST_B_MODE_CONNECT)
13795         plci->call_dir |= CALL_DIR_FORCE_OUTG_NL;
13796       if (plci->adjust_b_parms_msg != NULL)
13797         api_load_msg (plci->adjust_b_parms_msg, bp);
13798       else
13799         api_load_msg (&plci->B_protocol, bp);
13800       Info = add_b23 (plci, bp);
13801       if (Info != GOOD)
13802       {
13803         dbug (1, dprintf ("[%06lx] %s,%d: Adjust B invalid L23 parameters %04x",
13804           UnMapId (Id), (char   *)(FILE_), __LINE__, Info));
13805         break;
13806       }
13807       plci->internal_command = plci->adjust_b_command;
13808       nl_req_ncci (plci, ASSIGN, 0);
13809       send_req (plci);
13810       plci->adjust_b_state = ADJUST_B_ASSIGN_L23_2;
13811       break;
13812     }
13813     plci->adjust_b_state = ADJUST_B_ASSIGN_L23_2;
13814     Rc = ASSIGN_OK;
13815   case ADJUST_B_ASSIGN_L23_2:
13816     if ((Rc != OK) && (Rc != OK_FC) && (Rc != ASSIGN_OK))
13817     {
13818       dbug (1, dprintf ("[%06lx] %s,%d: Adjust B assign failed %02x",
13819         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
13820       Info = _WRONG_STATE;
13821       break;
13822     }
13823     if (plci->adjust_b_mode & ADJUST_B_MODE_ASSIGN_L23)
13824     {
13825       if (Rc != ASSIGN_OK)
13826       {
13827         plci->internal_command = plci->adjust_b_command;
13828         break;
13829       }
13830     }
13831     if (plci->adjust_b_mode & ADJUST_B_MODE_USER_CONNECT)
13832     {
13833       plci->adjust_b_restore = true;
13834       break;
13835     }
13836     plci->adjust_b_state = ADJUST_B_CONNECT_1;
13837   case ADJUST_B_CONNECT_1:
13838     if (plci->adjust_b_mode & ADJUST_B_MODE_CONNECT)
13839     {
13840       plci->internal_command = plci->adjust_b_command;
13841       if (plci_nl_busy (plci))
13842         break;
13843       nl_req_ncci (plci, N_CONNECT, 0);
13844       send_req (plci);
13845       plci->adjust_b_state = ADJUST_B_CONNECT_2;
13846       break;
13847     }
13848     plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1;
13849     Rc = OK;
13850   case ADJUST_B_CONNECT_2:
13851   case ADJUST_B_CONNECT_3:
13852   case ADJUST_B_CONNECT_4:
13853     if ((Rc != OK) && (Rc != OK_FC) && (Rc != 0))
13854     {
13855       dbug (1, dprintf ("[%06lx] %s,%d: Adjust B connect failed %02x",
13856         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
13857       Info = _WRONG_STATE;
13858       break;
13859     }
13860     if (Rc == OK)
13861     {
13862       if (plci->adjust_b_mode & ADJUST_B_MODE_CONNECT)
13863       {
13864         get_ncci (plci, (byte)(Id >> 16), plci->adjust_b_ncci);
13865         Id = (Id & 0xffff) | (((dword)(plci->adjust_b_ncci)) << 16);
13866       }
13867       if (plci->adjust_b_state == ADJUST_B_CONNECT_2)
13868         plci->adjust_b_state = ADJUST_B_CONNECT_3;
13869       else if (plci->adjust_b_state == ADJUST_B_CONNECT_4)
13870         plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1;
13871     }
13872     else if (Rc == 0)
13873     {
13874       if (plci->adjust_b_state == ADJUST_B_CONNECT_2)
13875         plci->adjust_b_state = ADJUST_B_CONNECT_4;
13876       else if (plci->adjust_b_state == ADJUST_B_CONNECT_3)
13877         plci->adjust_b_state = ADJUST_B_RESTORE_DTMF_1;
13878     }
13879     if (plci->adjust_b_state != ADJUST_B_RESTORE_DTMF_1)
13880     {
13881       plci->internal_command = plci->adjust_b_command;
13882       break;
13883     }
13884     Rc = OK;
13885   case ADJUST_B_RESTORE_DTMF_1:
13886   case ADJUST_B_RESTORE_DTMF_2:
13887     if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE)
13888     {
13889
13890       Info = dtmf_restore_config (Id, plci, Rc);
13891       if ((Info != GOOD) || plci->internal_command)
13892         break;
13893
13894     }
13895     plci->adjust_b_state = ADJUST_B_RESTORE_MIXER_1;
13896     Rc = OK;
13897   case ADJUST_B_RESTORE_MIXER_1:
13898   case ADJUST_B_RESTORE_MIXER_2:
13899   case ADJUST_B_RESTORE_MIXER_3:
13900   case ADJUST_B_RESTORE_MIXER_4:
13901   case ADJUST_B_RESTORE_MIXER_5:
13902   case ADJUST_B_RESTORE_MIXER_6:
13903   case ADJUST_B_RESTORE_MIXER_7:
13904     if (plci->adjust_b_mode & ADJUST_B_MODE_RESTORE)
13905     {
13906
13907       Info = mixer_restore_config (Id, plci, Rc);
13908       if ((Info != GOOD) || plci->internal_command)
13909         break;
13910
13911     }
13912     plci->adjust_b_state = ADJUST_B_END;
13913   case ADJUST_B_END:
13914     break;
13915   }
13916   return (Info);
13917 }
13918
13919
13920 static void adjust_b1_resource (dword Id, PLCI   *plci, API_SAVE   *bp_msg, word b1_facilities, word internal_command)
13921 {
13922
13923   dbug (1, dprintf ("[%06lx] %s,%d: adjust_b1_resource %d %04x",
13924     UnMapId (Id), (char   *)(FILE_), __LINE__,
13925     plci->B1_resource, b1_facilities));
13926
13927   plci->adjust_b_parms_msg = bp_msg;
13928   plci->adjust_b_facilities = b1_facilities;
13929   plci->adjust_b_command = internal_command;
13930   plci->adjust_b_ncci = (word)(Id >> 16);
13931   if ((bp_msg == NULL) && (plci->B1_resource == 0))
13932     plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_NO_RESOURCE | ADJUST_B_MODE_SWITCH_L1;
13933   else
13934     plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_SWITCH_L1 | ADJUST_B_MODE_RESTORE;
13935   plci->adjust_b_state = ADJUST_B_START;
13936   dbug (1, dprintf ("[%06lx] %s,%d: Adjust B1 resource %d %04x...",
13937     UnMapId (Id), (char   *)(FILE_), __LINE__,
13938     plci->B1_resource, b1_facilities));
13939 }
13940
13941
13942 static void adjust_b_restore (dword Id, PLCI   *plci, byte Rc)
13943 {
13944   word internal_command;
13945
13946   dbug (1, dprintf ("[%06lx] %s,%d: adjust_b_restore %02x %04x",
13947     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
13948
13949   internal_command = plci->internal_command;
13950   plci->internal_command = 0;
13951   switch (internal_command)
13952   {
13953   default:
13954     plci->command = 0;
13955     if (plci->req_in != 0)
13956     {
13957       plci->internal_command = ADJUST_B_RESTORE_1;
13958       break;
13959     }
13960     Rc = OK;
13961   case ADJUST_B_RESTORE_1:
13962     if ((Rc != OK) && (Rc != OK_FC))
13963     {
13964       dbug (1, dprintf ("[%06lx] %s,%d: Adjust B enqueued failed %02x",
13965         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
13966     }
13967     plci->adjust_b_parms_msg = NULL;
13968     plci->adjust_b_facilities = plci->B1_facilities;
13969     plci->adjust_b_command = ADJUST_B_RESTORE_2;
13970     plci->adjust_b_ncci = (word)(Id >> 16);
13971     plci->adjust_b_mode = ADJUST_B_MODE_RESTORE;
13972     plci->adjust_b_state = ADJUST_B_START;
13973     dbug (1, dprintf ("[%06lx] %s,%d: Adjust B restore...",
13974       UnMapId (Id), (char   *)(FILE_), __LINE__));
13975   case ADJUST_B_RESTORE_2:
13976     if (adjust_b_process (Id, plci, Rc) != GOOD)
13977     {
13978       dbug (1, dprintf ("[%06lx] %s,%d: Adjust B restore failed",
13979         UnMapId (Id), (char   *)(FILE_), __LINE__));
13980     }
13981     if (plci->internal_command)
13982       break;
13983     break;
13984   }
13985 }
13986
13987
13988 static void reset_b3_command (dword Id, PLCI   *plci, byte Rc)
13989 {
13990   word Info;
13991   word internal_command;
13992
13993   dbug (1, dprintf ("[%06lx] %s,%d: reset_b3_command %02x %04x",
13994     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
13995
13996   Info = GOOD;
13997   internal_command = plci->internal_command;
13998   plci->internal_command = 0;
13999   switch (internal_command)
14000   {
14001   default:
14002     plci->command = 0;
14003     plci->adjust_b_parms_msg = NULL;
14004     plci->adjust_b_facilities = plci->B1_facilities;
14005     plci->adjust_b_command = RESET_B3_COMMAND_1;
14006     plci->adjust_b_ncci = (word)(Id >> 16);
14007     plci->adjust_b_mode = ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_ASSIGN_L23 | ADJUST_B_MODE_CONNECT;
14008     plci->adjust_b_state = ADJUST_B_START;
14009     dbug (1, dprintf ("[%06lx] %s,%d: Reset B3...",
14010       UnMapId (Id), (char   *)(FILE_), __LINE__));
14011   case RESET_B3_COMMAND_1:
14012     Info = adjust_b_process (Id, plci, Rc);
14013     if (Info != GOOD)
14014     {
14015       dbug (1, dprintf ("[%06lx] %s,%d: Reset failed",
14016         UnMapId (Id), (char   *)(FILE_), __LINE__));
14017       break;
14018     }
14019     if (plci->internal_command)
14020       return;
14021     break;
14022   }
14023 /*  sendf (plci->appl, _RESET_B3_R | CONFIRM, Id, plci->number, "w", Info);*/
14024   sendf(plci->appl,_RESET_B3_I,Id,0,"s","");
14025 }
14026
14027
14028 static void select_b_command (dword Id, PLCI   *plci, byte Rc)
14029 {
14030   word Info;
14031   word internal_command;
14032   byte esc_chi[3];
14033
14034   dbug (1, dprintf ("[%06lx] %s,%d: select_b_command %02x %04x",
14035     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14036
14037   Info = GOOD;
14038   internal_command = plci->internal_command;
14039   plci->internal_command = 0;
14040   switch (internal_command)
14041   {
14042   default:
14043     plci->command = 0;
14044     plci->adjust_b_parms_msg = &plci->saved_msg;
14045     if ((plci->tel == ADV_VOICE) && (plci == plci->adapter->AdvSignalPLCI))
14046       plci->adjust_b_facilities = plci->B1_facilities | B1_FACILITY_VOICE;
14047     else
14048       plci->adjust_b_facilities = plci->B1_facilities & ~B1_FACILITY_VOICE;
14049     plci->adjust_b_command = SELECT_B_COMMAND_1;
14050     plci->adjust_b_ncci = (word)(Id >> 16);
14051     if (plci->saved_msg.parms[0].length == 0)
14052     {
14053       plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_SWITCH_L1 |
14054         ADJUST_B_MODE_NO_RESOURCE;
14055     }
14056     else
14057     {
14058       plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_SWITCH_L1 |
14059         ADJUST_B_MODE_ASSIGN_L23 | ADJUST_B_MODE_USER_CONNECT | ADJUST_B_MODE_RESTORE;
14060     }
14061     plci->adjust_b_state = ADJUST_B_START;
14062     dbug (1, dprintf ("[%06lx] %s,%d: Select B protocol...",
14063       UnMapId (Id), (char   *)(FILE_), __LINE__));
14064   case SELECT_B_COMMAND_1:
14065     Info = adjust_b_process (Id, plci, Rc);
14066     if (Info != GOOD)
14067     {
14068       dbug (1, dprintf ("[%06lx] %s,%d: Select B protocol failed",
14069         UnMapId (Id), (char   *)(FILE_), __LINE__));
14070       break;
14071     }
14072     if (plci->internal_command)
14073       return;
14074     if (plci->tel == ADV_VOICE)
14075     {
14076       esc_chi[0] = 0x02;
14077       esc_chi[1] = 0x18;
14078       esc_chi[2] = plci->b_channel;
14079       SetVoiceChannel (plci->adapter->AdvCodecPLCI, esc_chi, plci->adapter);
14080     }
14081     break;
14082   }
14083   sendf (plci->appl, _SELECT_B_REQ | CONFIRM, Id, plci->number, "w", Info);
14084 }
14085
14086
14087 static void fax_connect_ack_command (dword Id, PLCI   *plci, byte Rc)
14088 {
14089   word Info;
14090   word internal_command;
14091
14092   dbug (1, dprintf ("[%06lx] %s,%d: fax_connect_ack_command %02x %04x",
14093     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14094
14095   Info = GOOD;
14096   internal_command = plci->internal_command;
14097   plci->internal_command = 0;
14098   switch (internal_command)
14099   {
14100   default:
14101     plci->command = 0;
14102   case FAX_CONNECT_ACK_COMMAND_1:
14103     if (plci_nl_busy (plci))
14104     {
14105       plci->internal_command = FAX_CONNECT_ACK_COMMAND_1;
14106       return;
14107     }
14108     plci->internal_command = FAX_CONNECT_ACK_COMMAND_2;
14109     plci->NData[0].P = plci->fax_connect_info_buffer;
14110     plci->NData[0].PLength = plci->fax_connect_info_length;
14111     plci->NL.X = plci->NData;
14112     plci->NL.ReqCh = 0;
14113     plci->NL.Req = plci->nl_req = (byte) N_CONNECT_ACK;
14114     plci->adapter->request (&plci->NL);
14115     return;
14116   case FAX_CONNECT_ACK_COMMAND_2:
14117     if ((Rc != OK) && (Rc != OK_FC))
14118     {
14119       dbug (1, dprintf ("[%06lx] %s,%d: FAX issue CONNECT ACK failed %02x",
14120         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
14121       break;
14122     }
14123   }
14124   if ((plci->ncpi_state & NCPI_VALID_CONNECT_B3_ACT)
14125    && !(plci->ncpi_state & NCPI_CONNECT_B3_ACT_SENT))
14126   {
14127     if (plci->B3_prot == 4)
14128       sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"s","");
14129     else
14130       sendf(plci->appl,_CONNECT_B3_ACTIVE_I,Id,0,"S",plci->ncpi_buffer);
14131     plci->ncpi_state |= NCPI_CONNECT_B3_ACT_SENT;
14132   }
14133 }
14134
14135
14136 static void fax_edata_ack_command (dword Id, PLCI   *plci, byte Rc)
14137 {
14138   word Info;
14139   word internal_command;
14140
14141   dbug (1, dprintf ("[%06lx] %s,%d: fax_edata_ack_command %02x %04x",
14142     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14143
14144   Info = GOOD;
14145   internal_command = plci->internal_command;
14146   plci->internal_command = 0;
14147   switch (internal_command)
14148   {
14149   default:
14150     plci->command = 0;
14151   case FAX_EDATA_ACK_COMMAND_1:
14152     if (plci_nl_busy (plci))
14153     {
14154       plci->internal_command = FAX_EDATA_ACK_COMMAND_1;
14155       return;
14156     }
14157     plci->internal_command = FAX_EDATA_ACK_COMMAND_2;
14158     plci->NData[0].P = plci->fax_connect_info_buffer;
14159     plci->NData[0].PLength = plci->fax_edata_ack_length;
14160     plci->NL.X = plci->NData;
14161     plci->NL.ReqCh = 0;
14162     plci->NL.Req = plci->nl_req = (byte) N_EDATA;
14163     plci->adapter->request (&plci->NL);
14164     return;
14165   case FAX_EDATA_ACK_COMMAND_2:
14166     if ((Rc != OK) && (Rc != OK_FC))
14167     {
14168       dbug (1, dprintf ("[%06lx] %s,%d: FAX issue EDATA ACK failed %02x",
14169         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
14170       break;
14171     }
14172   }
14173 }
14174
14175
14176 static void fax_connect_info_command (dword Id, PLCI   *plci, byte Rc)
14177 {
14178   word Info;
14179   word internal_command;
14180
14181   dbug (1, dprintf ("[%06lx] %s,%d: fax_connect_info_command %02x %04x",
14182     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14183
14184   Info = GOOD;
14185   internal_command = plci->internal_command;
14186   plci->internal_command = 0;
14187   switch (internal_command)
14188   {
14189   default:
14190     plci->command = 0;
14191   case FAX_CONNECT_INFO_COMMAND_1:
14192     if (plci_nl_busy (plci))
14193     {
14194       plci->internal_command = FAX_CONNECT_INFO_COMMAND_1;
14195       return;
14196     }
14197     plci->internal_command = FAX_CONNECT_INFO_COMMAND_2;
14198     plci->NData[0].P = plci->fax_connect_info_buffer;
14199     plci->NData[0].PLength = plci->fax_connect_info_length;
14200     plci->NL.X = plci->NData;
14201     plci->NL.ReqCh = 0;
14202     plci->NL.Req = plci->nl_req = (byte) N_EDATA;
14203     plci->adapter->request (&plci->NL);
14204     return;
14205   case FAX_CONNECT_INFO_COMMAND_2:
14206     if ((Rc != OK) && (Rc != OK_FC))
14207     {
14208       dbug (1, dprintf ("[%06lx] %s,%d: FAX setting connect info failed %02x",
14209         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
14210       Info = _WRONG_STATE;
14211       break;
14212     }
14213     if (plci_nl_busy (plci))
14214     {
14215       plci->internal_command = FAX_CONNECT_INFO_COMMAND_2;
14216       return;
14217     }
14218     plci->command = _CONNECT_B3_R;
14219     nl_req_ncci (plci, N_CONNECT, 0);
14220     send_req (plci);
14221     return;
14222   }
14223   sendf (plci->appl, _CONNECT_B3_R | CONFIRM, Id, plci->number, "w", Info);
14224 }
14225
14226
14227 static void fax_adjust_b23_command (dword Id, PLCI   *plci, byte Rc)
14228 {
14229   word Info;
14230   word internal_command;
14231
14232   dbug (1, dprintf ("[%06lx] %s,%d: fax_adjust_b23_command %02x %04x",
14233     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14234
14235   Info = GOOD;
14236   internal_command = plci->internal_command;
14237   plci->internal_command = 0;
14238   switch (internal_command)
14239   {
14240   default:
14241     plci->command = 0;
14242     plci->adjust_b_parms_msg = NULL;
14243     plci->adjust_b_facilities = plci->B1_facilities;
14244     plci->adjust_b_command = FAX_ADJUST_B23_COMMAND_1;
14245     plci->adjust_b_ncci = (word)(Id >> 16);
14246     plci->adjust_b_mode = ADJUST_B_MODE_REMOVE_L23 | ADJUST_B_MODE_ASSIGN_L23;
14247     plci->adjust_b_state = ADJUST_B_START;
14248     dbug (1, dprintf ("[%06lx] %s,%d: FAX adjust B23...",
14249       UnMapId (Id), (char   *)(FILE_), __LINE__));
14250   case FAX_ADJUST_B23_COMMAND_1:
14251     Info = adjust_b_process (Id, plci, Rc);
14252     if (Info != GOOD)
14253     {
14254       dbug (1, dprintf ("[%06lx] %s,%d: FAX adjust failed",
14255         UnMapId (Id), (char   *)(FILE_), __LINE__));
14256       break;
14257     }
14258     if (plci->internal_command)
14259       return;
14260   case FAX_ADJUST_B23_COMMAND_2:
14261     if (plci_nl_busy (plci))
14262     {
14263       plci->internal_command = FAX_ADJUST_B23_COMMAND_2;
14264       return;
14265     }
14266     plci->command = _CONNECT_B3_R;
14267     nl_req_ncci (plci, N_CONNECT, 0);
14268     send_req (plci);
14269     return;
14270   }
14271   sendf (plci->appl, _CONNECT_B3_R | CONFIRM, Id, plci->number, "w", Info);
14272 }
14273
14274
14275 static void fax_disconnect_command (dword Id, PLCI   *plci, byte Rc)
14276 {
14277   word internal_command;
14278
14279   dbug (1, dprintf ("[%06lx] %s,%d: fax_disconnect_command %02x %04x",
14280     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14281
14282   internal_command = plci->internal_command;
14283   plci->internal_command = 0;
14284   switch (internal_command)
14285   {
14286   default:
14287     plci->command = 0;
14288     plci->internal_command = FAX_DISCONNECT_COMMAND_1;
14289     return;
14290   case FAX_DISCONNECT_COMMAND_1:
14291   case FAX_DISCONNECT_COMMAND_2:
14292   case FAX_DISCONNECT_COMMAND_3:
14293     if ((Rc != OK) && (Rc != OK_FC) && (Rc != 0))
14294     {
14295       dbug (1, dprintf ("[%06lx] %s,%d: FAX disconnect EDATA failed %02x",
14296         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
14297       break;
14298     }
14299     if (Rc == OK)
14300     {
14301       if ((internal_command == FAX_DISCONNECT_COMMAND_1)
14302        || (internal_command == FAX_DISCONNECT_COMMAND_2))
14303       {
14304         plci->internal_command = FAX_DISCONNECT_COMMAND_2;
14305       }
14306     }
14307     else if (Rc == 0)
14308     {
14309       if (internal_command == FAX_DISCONNECT_COMMAND_1)
14310         plci->internal_command = FAX_DISCONNECT_COMMAND_3;
14311     }
14312     return;
14313   }
14314 }
14315
14316
14317
14318 static void rtp_connect_b3_req_command (dword Id, PLCI   *plci, byte Rc)
14319 {
14320   word Info;
14321   word internal_command;
14322
14323   dbug (1, dprintf ("[%06lx] %s,%d: rtp_connect_b3_req_command %02x %04x",
14324     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14325
14326   Info = GOOD;
14327   internal_command = plci->internal_command;
14328   plci->internal_command = 0;
14329   switch (internal_command)
14330   {
14331   default:
14332     plci->command = 0;
14333   case RTP_CONNECT_B3_REQ_COMMAND_1:
14334     if (plci_nl_busy (plci))
14335     {
14336       plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_1;
14337       return;
14338     }
14339     plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_2;
14340     nl_req_ncci (plci, N_CONNECT, 0);
14341     send_req (plci);
14342     return;
14343   case RTP_CONNECT_B3_REQ_COMMAND_2:
14344     if ((Rc != OK) && (Rc != OK_FC))
14345     {
14346       dbug (1, dprintf ("[%06lx] %s,%d: RTP setting connect info failed %02x",
14347         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
14348       Info = _WRONG_STATE;
14349       break;
14350     }
14351     if (plci_nl_busy (plci))
14352     {
14353       plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_2;
14354       return;
14355     }
14356     plci->internal_command = RTP_CONNECT_B3_REQ_COMMAND_3;
14357     plci->NData[0].PLength = plci->internal_req_buffer[0];
14358     plci->NData[0].P = plci->internal_req_buffer + 1;
14359     plci->NL.X = plci->NData;
14360     plci->NL.ReqCh = 0;
14361     plci->NL.Req = plci->nl_req = (byte) N_UDATA;
14362     plci->adapter->request (&plci->NL);
14363     break;
14364   case RTP_CONNECT_B3_REQ_COMMAND_3:
14365     return;
14366   }
14367   sendf (plci->appl, _CONNECT_B3_R | CONFIRM, Id, plci->number, "w", Info);
14368 }
14369
14370
14371 static void rtp_connect_b3_res_command (dword Id, PLCI   *plci, byte Rc)
14372 {
14373   word Info;
14374   word internal_command;
14375
14376   dbug (1, dprintf ("[%06lx] %s,%d: rtp_connect_b3_res_command %02x %04x",
14377     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14378
14379   Info = GOOD;
14380   internal_command = plci->internal_command;
14381   plci->internal_command = 0;
14382   switch (internal_command)
14383   {
14384   default:
14385     plci->command = 0;
14386   case RTP_CONNECT_B3_RES_COMMAND_1:
14387     if (plci_nl_busy (plci))
14388     {
14389       plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_1;
14390       return;
14391     }
14392     plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_2;
14393     nl_req_ncci (plci, N_CONNECT_ACK, (byte)(Id >> 16));
14394     send_req (plci);
14395     return;
14396   case RTP_CONNECT_B3_RES_COMMAND_2:
14397     if ((Rc != OK) && (Rc != OK_FC))
14398     {
14399       dbug (1, dprintf ("[%06lx] %s,%d: RTP setting connect resp info failed %02x",
14400         UnMapId (Id), (char   *)(FILE_), __LINE__, Rc));
14401       Info = _WRONG_STATE;
14402       break;
14403     }
14404     if (plci_nl_busy (plci))
14405     {
14406       plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_2;
14407       return;
14408     }
14409     sendf (plci->appl, _CONNECT_B3_ACTIVE_I, Id, 0, "s", "");
14410     plci->internal_command = RTP_CONNECT_B3_RES_COMMAND_3;
14411     plci->NData[0].PLength = plci->internal_req_buffer[0];
14412     plci->NData[0].P = plci->internal_req_buffer + 1;
14413     plci->NL.X = plci->NData;
14414     plci->NL.ReqCh = 0;
14415     plci->NL.Req = plci->nl_req = (byte) N_UDATA;
14416     plci->adapter->request (&plci->NL);
14417     return;
14418   case RTP_CONNECT_B3_RES_COMMAND_3:
14419     return;
14420   }
14421 }
14422
14423
14424
14425 static void hold_save_command (dword Id, PLCI   *plci, byte Rc)
14426 {
14427     byte SS_Ind[] = "\x05\x02\x00\x02\x00\x00"; /* Hold_Ind struct*/
14428   word Info;
14429   word internal_command;
14430
14431   dbug (1, dprintf ("[%06lx] %s,%d: hold_save_command %02x %04x",
14432     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14433
14434   Info = GOOD;
14435   internal_command = plci->internal_command;
14436   plci->internal_command = 0;
14437   switch (internal_command)
14438   {
14439   default:
14440     if (!plci->NL.Id)
14441       break;
14442     plci->command = 0;
14443     plci->adjust_b_parms_msg = NULL;
14444     plci->adjust_b_facilities = plci->B1_facilities;
14445     plci->adjust_b_command = HOLD_SAVE_COMMAND_1;
14446     plci->adjust_b_ncci = (word)(Id >> 16);
14447     plci->adjust_b_mode = ADJUST_B_MODE_SAVE | ADJUST_B_MODE_REMOVE_L23;
14448     plci->adjust_b_state = ADJUST_B_START;
14449     dbug (1, dprintf ("[%06lx] %s,%d: HOLD save...",
14450       UnMapId (Id), (char   *)(FILE_), __LINE__));
14451   case HOLD_SAVE_COMMAND_1:
14452     Info = adjust_b_process (Id, plci, Rc);
14453     if (Info != GOOD)
14454     {
14455       dbug (1, dprintf ("[%06lx] %s,%d: HOLD save failed",
14456         UnMapId (Id), (char   *)(FILE_), __LINE__));
14457       break;
14458     }
14459     if (plci->internal_command)
14460       return;
14461   }
14462   sendf (plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", 3, SS_Ind);
14463 }
14464
14465
14466 static void retrieve_restore_command (dword Id, PLCI   *plci, byte Rc)
14467 {
14468     byte SS_Ind[] = "\x05\x03\x00\x02\x00\x00"; /* Retrieve_Ind struct*/
14469   word Info;
14470   word internal_command;
14471
14472   dbug (1, dprintf ("[%06lx] %s,%d: retrieve_restore_command %02x %04x",
14473     UnMapId (Id), (char   *)(FILE_), __LINE__, Rc, plci->internal_command));
14474
14475   Info = GOOD;
14476   internal_command = plci->internal_command;
14477   plci->internal_command = 0;
14478   switch (internal_command)
14479   {
14480   default:
14481     plci->command = 0;
14482     plci->adjust_b_parms_msg = NULL;
14483     plci->adjust_b_facilities = plci->B1_facilities;
14484     plci->adjust_b_command = RETRIEVE_RESTORE_COMMAND_1;
14485     plci->adjust_b_ncci = (word)(Id >> 16);
14486     plci->adjust_b_mode = ADJUST_B_MODE_ASSIGN_L23 | ADJUST_B_MODE_USER_CONNECT | ADJUST_B_MODE_RESTORE;
14487     plci->adjust_b_state = ADJUST_B_START;
14488     dbug (1, dprintf ("[%06lx] %s,%d: RETRIEVE restore...",
14489       UnMapId (Id), (char   *)(FILE_), __LINE__));
14490   case RETRIEVE_RESTORE_COMMAND_1:
14491     Info = adjust_b_process (Id, plci, Rc);
14492     if (Info != GOOD)
14493     {
14494       dbug (1, dprintf ("[%06lx] %s,%d: RETRIEVE restore failed",
14495         UnMapId (Id), (char   *)(FILE_), __LINE__));
14496       break;
14497     }
14498     if (plci->internal_command)
14499       return;
14500   }
14501   sendf (plci->appl, _FACILITY_I, Id & 0xffffL, 0, "ws", 3, SS_Ind);
14502 }
14503
14504
14505 static void init_b1_config (PLCI   *plci)
14506 {
14507
14508   dbug (1, dprintf ("[%06lx] %s,%d: init_b1_config",
14509     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
14510     (char   *)(FILE_), __LINE__));
14511
14512   plci->B1_resource = 0;
14513   plci->B1_facilities = 0;
14514
14515   plci->li_bchannel_id = 0;
14516   mixer_clear_config (plci);
14517
14518
14519   ec_clear_config (plci);
14520
14521
14522   dtmf_rec_clear_config (plci);
14523   dtmf_send_clear_config (plci);
14524   dtmf_parameter_clear_config (plci);
14525
14526   adv_voice_clear_config (plci);
14527   adjust_b_clear (plci);
14528 }
14529
14530
14531 static void clear_b1_config (PLCI   *plci)
14532 {
14533
14534   dbug (1, dprintf ("[%06lx] %s,%d: clear_b1_config",
14535     (dword)((plci->Id << 8) | UnMapController (plci->adapter->Id)),
14536     (char   *)(FILE_), __LINE__));
14537
14538   adv_voice_clear_config (plci);
14539   adjust_b_clear (plci);
14540
14541   ec_clear_config (plci);
14542
14543
14544   dtmf_rec_clear_config (plci);
14545   dtmf_send_clear_config (plci);
14546   dtmf_parameter_clear_config (plci);
14547
14548
14549   if ((plci->li_bchannel_id != 0)
14550    && (li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci == plci))
14551   {
14552     mixer_clear_config (plci);
14553     li_config_table[plci->adapter->li_base + (plci->li_bchannel_id - 1)].plci = NULL;
14554     plci->li_bchannel_id = 0;
14555   }
14556
14557   plci->B1_resource = 0;
14558   plci->B1_facilities = 0;
14559 }
14560
14561
14562 /* -----------------------------------------------------------------
14563                 XON protocol local helpers
14564    ----------------------------------------------------------------- */
14565 static void channel_flow_control_remove (PLCI   * plci) {
14566   DIVA_CAPI_ADAPTER   * a = plci->adapter;
14567   word i;
14568   for(i=1;i<MAX_NL_CHANNEL+1;i++) {
14569     if (a->ch_flow_plci[i] == plci->Id) {
14570       a->ch_flow_plci[i] = 0;
14571       a->ch_flow_control[i] = 0;
14572     }
14573   }
14574 }
14575
14576 static void channel_x_on (PLCI   * plci, byte ch) {
14577   DIVA_CAPI_ADAPTER   * a = plci->adapter;
14578   if (a->ch_flow_control[ch] & N_XON_SENT) {
14579     a->ch_flow_control[ch] &= ~N_XON_SENT;
14580   }
14581 }
14582
14583 static void channel_x_off (PLCI   * plci, byte ch, byte flag) {
14584   DIVA_CAPI_ADAPTER   * a = plci->adapter;
14585   if ((a->ch_flow_control[ch] & N_RX_FLOW_CONTROL_MASK) == 0) {
14586     a->ch_flow_control[ch] |= (N_CH_XOFF | flag);
14587     a->ch_flow_plci[ch] = plci->Id;
14588     a->ch_flow_control_pending++;
14589   }
14590 }
14591
14592 static void channel_request_xon (PLCI   * plci, byte ch) {
14593   DIVA_CAPI_ADAPTER   * a = plci->adapter;
14594
14595   if (a->ch_flow_control[ch] & N_CH_XOFF) {
14596     a->ch_flow_control[ch] |= N_XON_REQ;
14597     a->ch_flow_control[ch] &= ~N_CH_XOFF;
14598     a->ch_flow_control[ch] &= ~N_XON_CONNECT_IND;
14599   }
14600 }
14601
14602 static void channel_xmit_extended_xon (PLCI   * plci) {
14603   DIVA_CAPI_ADAPTER   * a;
14604   int max_ch = ARRAY_SIZE(a->ch_flow_control);
14605   int i, one_requested = 0;
14606
14607   if ((!plci) || (!plci->Id) || ((a = plci->adapter) == 0)) {
14608     return;
14609   }
14610
14611   for (i = 0; i < max_ch; i++) {
14612     if ((a->ch_flow_control[i] & N_CH_XOFF) &&
14613         (a->ch_flow_control[i] & N_XON_CONNECT_IND) &&
14614         (plci->Id == a->ch_flow_plci[i])) {
14615       channel_request_xon (plci, (byte)i);
14616       one_requested = 1;
14617     }
14618   }
14619
14620   if (one_requested) {
14621     channel_xmit_xon (plci);
14622   }
14623 }
14624
14625 /*
14626   Try to xmit next X_ON
14627   */
14628 static int find_channel_with_pending_x_on (DIVA_CAPI_ADAPTER   * a, PLCI   * plci) {
14629   int max_ch = ARRAY_SIZE(a->ch_flow_control);
14630   int i;
14631
14632   if (!(plci->adapter->manufacturer_features & MANUFACTURER_FEATURE_XONOFF_FLOW_CONTROL)) {
14633     return (0);
14634   }
14635
14636   if (a->last_flow_control_ch >= max_ch) {
14637     a->last_flow_control_ch = 1;
14638   }
14639   for (i=a->last_flow_control_ch; i < max_ch; i++) {
14640     if ((a->ch_flow_control[i] & N_XON_REQ) &&
14641         (plci->Id == a->ch_flow_plci[i])) {
14642       a->last_flow_control_ch = i+1;
14643       return (i);
14644     }
14645   }
14646
14647   for (i = 1; i < a->last_flow_control_ch; i++) {
14648     if ((a->ch_flow_control[i] & N_XON_REQ) &&
14649         (plci->Id == a->ch_flow_plci[i])) {
14650       a->last_flow_control_ch = i+1;
14651       return (i);
14652     }
14653   }
14654
14655   return (0);
14656 }
14657
14658 static void channel_xmit_xon (PLCI   * plci) {
14659   DIVA_CAPI_ADAPTER   * a = plci->adapter;
14660   byte ch;
14661
14662   if (plci->nl_req || !plci->NL.Id || plci->nl_remove_id) {
14663     return;
14664   }
14665   if ((ch = (byte)find_channel_with_pending_x_on (a, plci)) == 0) {
14666     return;
14667   }
14668   a->ch_flow_control[ch] &= ~N_XON_REQ;
14669   a->ch_flow_control[ch] |= N_XON_SENT;
14670
14671   plci->NL.Req = plci->nl_req = (byte)N_XON;
14672   plci->NL.ReqCh         = ch;
14673   plci->NL.X             = plci->NData;
14674   plci->NL.XNum          = 1;
14675   plci->NData[0].P       = &plci->RBuffer[0];
14676   plci->NData[0].PLength = 0;
14677
14678   plci->adapter->request(&plci->NL);
14679 }
14680
14681 static int channel_can_xon (PLCI   * plci, byte ch) {
14682   APPL   * APPLptr;
14683   DIVA_CAPI_ADAPTER   * a;
14684   word NCCIcode;
14685   dword count;
14686   word Num;
14687   word i;
14688
14689   APPLptr = plci->appl;
14690   a = plci->adapter;
14691
14692   if (!APPLptr)
14693     return (0);
14694
14695   NCCIcode = a->ch_ncci[ch] | (((word) a->Id) << 8);
14696
14697                 /* count all buffers within the Application pool    */
14698                 /* belonging to the same NCCI. XON if a first is    */
14699                 /* used.                                            */
14700   count = 0;
14701   Num = 0xffff;
14702   for(i=0; i<APPLptr->MaxBuffer; i++) {
14703     if(NCCIcode==APPLptr->DataNCCI[i]) count++;
14704     if(!APPLptr->DataNCCI[i] && Num==0xffff) Num = i;
14705   }
14706   if ((count > 2) || (Num == 0xffff)) {
14707     return (0);
14708   }
14709   return (1);
14710 }
14711
14712
14713 /*------------------------------------------------------------------*/
14714
14715 static word CPN_filter_ok(byte   *cpn,DIVA_CAPI_ADAPTER   * a,word offset)
14716 {
14717   return 1;
14718 }
14719
14720
14721
14722 /**********************************************************************************/
14723 /* function groups the listening applications according to the CIP mask and the   */
14724 /* Info_Mask. Each group gets just one Connect_Ind. Some application manufacturer */
14725 /* are not multi-instance capable, so they start e.g. 30 applications what causes */
14726 /* big problems on application level (one call, 30 Connect_Ind, ect). The         */
14727 /* function must be enabled by setting "a->group_optimization_enabled" from the   */
14728 /* OS specific part (per adapter).                                                */
14729 /**********************************************************************************/
14730 static void group_optimization(DIVA_CAPI_ADAPTER   * a, PLCI   * plci)
14731 {
14732   word i,j,k,busy,group_found;
14733   dword info_mask_group[MAX_CIP_TYPES];
14734   dword cip_mask_group[MAX_CIP_TYPES];
14735   word appl_number_group_type[MAX_APPL];
14736   PLCI   *auxplci;
14737
14738   set_group_ind_mask (plci); /* all APPLs within this inc. call are allowed to dial in */
14739
14740   if(!a->group_optimization_enabled)
14741   {
14742     dbug(1,dprintf("No group optimization"));
14743     return;
14744   }
14745
14746   dbug(1,dprintf("Group optimization = 0x%x...", a->group_optimization_enabled));
14747
14748   for(i=0;i<MAX_CIP_TYPES;i++)
14749   {
14750     info_mask_group[i] = 0;
14751     cip_mask_group [i] = 0;
14752   }
14753   for(i=0;i<MAX_APPL;i++)
14754   {
14755     appl_number_group_type[i] = 0;
14756   }
14757   for(i=0; i<max_appl; i++) /* check if any multi instance capable application is present */
14758   {  /* group_optimization set to 1 means not to optimize multi-instance capable applications (default) */
14759     if(application[i].Id && (application[i].MaxNCCI) > 1 && (a->CIP_Mask[i])  && (a->group_optimization_enabled ==1) )
14760     {
14761       dbug(1,dprintf("Multi-Instance capable, no optimization required"));
14762       return; /* allow good application unfiltered access */
14763     }
14764   }
14765   for(i=0; i<max_appl; i++) /* Build CIP Groups */
14766   {
14767     if(application[i].Id && a->CIP_Mask[i] )
14768     {
14769       for(k=0,busy=false; k<a->max_plci; k++)
14770       {
14771         if(a->plci[k].Id)
14772         {
14773           auxplci = &a->plci[k];
14774           if(auxplci->appl == &application[i]) /* application has a busy PLCI */
14775           {
14776             busy = true;
14777             dbug(1,dprintf("Appl 0x%x is busy",i+1));
14778           }
14779           else if(test_c_ind_mask_bit (auxplci, i)) /* application has an incoming call pending */
14780           {
14781             busy = true;
14782             dbug(1,dprintf("Appl 0x%x has inc. call pending",i+1));
14783           }
14784         }
14785       }
14786
14787       for(j=0,group_found=0; j<=(MAX_CIP_TYPES) && !busy &&!group_found; j++)     /* build groups with free applications only */
14788       {
14789         if(j==MAX_CIP_TYPES)       /* all groups are in use but group still not found */
14790         {                           /* the MAX_CIP_TYPES group enables all calls because of field overflow */
14791           appl_number_group_type[i] = MAX_CIP_TYPES;
14792           group_found=true;
14793           dbug(1,dprintf("Field overflow appl 0x%x",i+1));
14794         }
14795         else if( (info_mask_group[j]==a->CIP_Mask[i]) && (cip_mask_group[j]==a->Info_Mask[i]) )
14796         {                                      /* is group already present ?                  */
14797           appl_number_group_type[i] = j|0x80;  /* store the group number for each application */
14798           group_found=true;
14799           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]));
14800         }
14801         else if(!info_mask_group[j])
14802         {                                      /* establish a new group                       */
14803           appl_number_group_type[i] = j|0x80;  /* store the group number for each application */
14804           info_mask_group[j] = a->CIP_Mask[i]; /* store the new CIP mask for the new group    */
14805           cip_mask_group[j] = a->Info_Mask[i]; /* store the new Info_Mask for this new group  */
14806           group_found=true;
14807           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]));
14808         }
14809       }
14810     }
14811   }
14812
14813   for(i=0; i<max_appl; i++) /* Build group_optimization_mask_table */
14814   {
14815     if(appl_number_group_type[i]) /* application is free, has listens and is member of a group */
14816     {
14817       if(appl_number_group_type[i] == MAX_CIP_TYPES)
14818       {
14819         dbug(1,dprintf("OverflowGroup 0x%x, valid appl = 0x%x, call enabled",appl_number_group_type[i],i+1));
14820       }
14821       else
14822       {
14823         dbug(1,dprintf("Group 0x%x, valid appl = 0x%x",appl_number_group_type[i],i+1));
14824         for(j=i+1; j<max_appl; j++)   /* search other group members and mark them as busy        */
14825         {
14826           if(appl_number_group_type[i] == appl_number_group_type[j])
14827           {
14828             dbug(1,dprintf("Appl 0x%x is member of group 0x%x, no call",j+1,appl_number_group_type[j]));
14829             clear_group_ind_mask_bit (plci, j);           /* disable call on other group members */
14830             appl_number_group_type[j] = 0;       /* remove disabled group member from group list */
14831           }
14832         }
14833       }
14834     }
14835     else                                                 /* application should not get a call */
14836     {
14837       clear_group_ind_mask_bit (plci, i);
14838     }
14839   }
14840
14841 }
14842
14843
14844
14845 /* OS notifies the driver about a application Capi_Register */
14846 word CapiRegister(word id)
14847 {
14848   word i,j,appls_found;
14849
14850   PLCI   *plci;
14851   DIVA_CAPI_ADAPTER   *a;
14852
14853   for(i=0,appls_found=0; i<max_appl; i++)
14854   {
14855     if( application[i].Id && (application[i].Id!=id) )
14856     {
14857       appls_found++;                       /* an application has been found */
14858     }
14859   }
14860
14861   if(appls_found) return true;
14862   for(i=0; i<max_adapter; i++)                   /* scan all adapters...    */
14863   {
14864     a = &adapter[i];
14865     if(a->request)
14866     {
14867       if(a->flag_dynamic_l1_down)  /* remove adapter from L1 tristate (Huntgroup) */
14868       {
14869         if(!appls_found)           /* first application does a capi register   */
14870         {
14871           if((j=get_plci(a)))                    /* activate L1 of all adapters */
14872           {
14873             plci = &a->plci[j-1];
14874             plci->command = 0;
14875             add_p(plci,OAD,"\x01\xfd");
14876             add_p(plci,CAI,"\x01\x80");
14877             add_p(plci,UID,"\x06\x43\x61\x70\x69\x32\x30");
14878             add_p(plci,SHIFT|6,NULL);
14879             add_p(plci,SIN,"\x02\x00\x00");
14880             plci->internal_command = START_L1_SIG_ASSIGN_PEND;
14881             sig_req(plci,ASSIGN,DSIG_ID);
14882             add_p(plci,FTY,"\x02\xff\x07"); /* l1 start */
14883             sig_req(plci,SIG_CTRL,0);
14884             send_req(plci);
14885           }
14886         }
14887       }
14888     }
14889   }
14890   return false;
14891 }
14892
14893 /*------------------------------------------------------------------*/
14894
14895 /* Functions for virtual Switching e.g. Transfer by join, Conference */
14896
14897 static void VSwitchReqInd(PLCI   *plci, dword Id, byte   **parms)
14898 {
14899  word i;
14900  /* Format of vswitch_t:
14901  0 byte length
14902  1 byte VSWITCHIE
14903  2 byte VSWITCH_REQ/VSWITCH_IND
14904  3 byte reserved
14905  4 word VSwitchcommand
14906  6 word returnerror
14907  8... Params
14908  */
14909  if(!plci ||
14910   !plci->appl ||
14911   !plci->State ||
14912   plci->Sig.Ind==NCR_FACILITY
14913   )
14914   return;
14915
14916  for(i=0;i<MAX_MULTI_IE;i++)
14917  {
14918         if(!parms[i][0]) continue;
14919   if(parms[i][0]<7)
14920   {
14921    parms[i][0]=0; /* kill it */
14922    continue;
14923   }
14924   dbug(1,dprintf("VSwitchReqInd(%d)",parms[i][4]));
14925   switch(parms[i][4])
14926   {
14927   case VSJOIN:
14928    if(!plci->relatedPTYPLCI ||
14929     (plci->ptyState!=S_ECT && plci->relatedPTYPLCI->ptyState!=S_ECT))
14930    { /* Error */
14931     break;
14932    }
14933    /* remember all necessary informations */
14934    if(parms[i][0]!=11 || parms[i][8]!=3) /* Length Test */
14935    {
14936     break;
14937    }
14938    if(parms[i][2]==VSWITCH_IND && parms[i][9]==1)
14939    {   /* first indication after ECT-Request on Consultation Call */
14940     plci->vswitchstate=parms[i][9];
14941     parms[i][9]=2; /* State */
14942     /* now ask first Call to join */
14943    }
14944    else if(parms[i][2]==VSWITCH_REQ && parms[i][9]==3)
14945    { /* Answer of VSWITCH_REQ from first Call */
14946     plci->vswitchstate=parms[i][9];
14947     /* tell consultation call to join
14948     and the protocol capabilities of the first call */
14949    }
14950    else
14951    { /* Error */
14952     break;
14953    }
14954    plci->vsprot=parms[i][10]; /* protocol */
14955    plci->vsprotdialect=parms[i][11]; /* protocoldialect */
14956    /* send join request to related PLCI */
14957    parms[i][1]=VSWITCHIE;
14958    parms[i][2]=VSWITCH_REQ;
14959
14960    plci->relatedPTYPLCI->command = 0;
14961    plci->relatedPTYPLCI->internal_command = VSWITCH_REQ_PEND;
14962    add_p(plci->relatedPTYPLCI,ESC,&parms[i][0]);
14963    sig_req(plci->relatedPTYPLCI,VSWITCH_REQ,0);
14964    send_req(plci->relatedPTYPLCI);
14965    break;
14966   case VSTRANSPORT:
14967   default:
14968    if(plci->relatedPTYPLCI &&
14969     plci->vswitchstate==3 &&
14970     plci->relatedPTYPLCI->vswitchstate==3)
14971    {
14972     add_p(plci->relatedPTYPLCI,ESC,&parms[i][0]);
14973     sig_req(plci->relatedPTYPLCI,VSWITCH_REQ,0);
14974     send_req(plci->relatedPTYPLCI);
14975    }
14976    break;
14977   }
14978   parms[i][0]=0; /* kill it */
14979  }
14980 }
14981
14982
14983 /*------------------------------------------------------------------*/
14984
14985 static int diva_get_dma_descriptor (PLCI   *plci, dword   *dma_magic) {
14986   ENTITY e;
14987   IDI_SYNC_REQ* pReq = (IDI_SYNC_REQ*)&e;
14988
14989   if (!(diva_xdi_extended_features & DIVA_CAPI_XDI_PROVIDES_RX_DMA)) {
14990     return (-1);
14991   }
14992
14993   pReq->xdi_dma_descriptor_operation.Req = 0;
14994   pReq->xdi_dma_descriptor_operation.Rc = IDI_SYNC_REQ_DMA_DESCRIPTOR_OPERATION;
14995
14996   pReq->xdi_dma_descriptor_operation.info.operation =     IDI_SYNC_REQ_DMA_DESCRIPTOR_ALLOC;
14997   pReq->xdi_dma_descriptor_operation.info.descriptor_number  = -1;
14998   pReq->xdi_dma_descriptor_operation.info.descriptor_address = NULL;
14999   pReq->xdi_dma_descriptor_operation.info.descriptor_magic   = 0;
15000
15001   e.user[0] = plci->adapter->Id - 1;
15002   plci->adapter->request((ENTITY*)pReq);
15003
15004   if (!pReq->xdi_dma_descriptor_operation.info.operation &&
15005       (pReq->xdi_dma_descriptor_operation.info.descriptor_number >= 0) &&
15006       pReq->xdi_dma_descriptor_operation.info.descriptor_magic) {
15007     *dma_magic = pReq->xdi_dma_descriptor_operation.info.descriptor_magic;
15008     dbug(3,dprintf("dma_alloc, a:%d (%d-%08x)",
15009          plci->adapter->Id,
15010          pReq->xdi_dma_descriptor_operation.info.descriptor_number,
15011          *dma_magic));
15012     return (pReq->xdi_dma_descriptor_operation.info.descriptor_number);
15013   } else {
15014     dbug(1,dprintf("dma_alloc failed"));
15015     return (-1);
15016   }
15017 }
15018
15019 static void diva_free_dma_descriptor (PLCI   *plci, int nr) {
15020   ENTITY e;
15021   IDI_SYNC_REQ* pReq = (IDI_SYNC_REQ*)&e;
15022
15023   if (nr < 0) {
15024     return;
15025   }
15026
15027   pReq->xdi_dma_descriptor_operation.Req = 0;
15028   pReq->xdi_dma_descriptor_operation.Rc = IDI_SYNC_REQ_DMA_DESCRIPTOR_OPERATION;
15029
15030   pReq->xdi_dma_descriptor_operation.info.operation =                                                IDI_SYNC_REQ_DMA_DESCRIPTOR_FREE;
15031   pReq->xdi_dma_descriptor_operation.info.descriptor_number  = nr;
15032   pReq->xdi_dma_descriptor_operation.info.descriptor_address = NULL;
15033   pReq->xdi_dma_descriptor_operation.info.descriptor_magic   = 0;
15034
15035   e.user[0] = plci->adapter->Id - 1;
15036   plci->adapter->request((ENTITY*)pReq);
15037
15038   if (!pReq->xdi_dma_descriptor_operation.info.operation) {
15039     dbug(1,dprintf("dma_free(%d)", nr));
15040   } else {
15041     dbug(1,dprintf("dma_free failed (%d)", nr));
15042   }
15043 }
15044
15045 /*------------------------------------------------------------------*/