home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / c / bts314b4 / b_proto.c < prev    next >
C/C++ Source or Header  |  1994-01-08  |  7KB  |  182 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                                                                          */
  3. /*                                                                          */
  4. /*      ------------         Bit-Bucket Software, Co.                       */
  5. /*      \ 10001101 /         Writers and Distributors of                    */
  6. /*       \ 011110 /          Freely Available<tm> Software.                 */
  7. /*        \ 1011 /                                                          */
  8. /*         ------                                                           */
  9. /*                                                                          */
  10. /*  (C) Copyright 1987-90, Bit Bucket Software Co., a Delaware Corporation. */
  11. /*                                                                          */
  12. /*                                                                          */
  13. /*               This module was written by Vince Perriello                 */
  14. /*                                                                          */
  15. /*                                                                          */
  16. /*              BinkleyTerm External Protocol Handler Module                */
  17. /*                                                                          */
  18. /*                                                                          */
  19. /*    For complete  details  of the licensing restrictions, please refer    */
  20. /*    to the License  agreement,  which  is published in its entirety in    */
  21. /*    the MAKEFILE and BT.C, and also contained in the file LICENSE.240.    */
  22. /*                                                                          */
  23. /*    USE  OF THIS FILE IS SUBJECT TO THE  RESTRICTIONS CONTAINED IN THE    */
  24. /*    BINKLEYTERM  LICENSING  AGREEMENT.  IF YOU DO NOT FIND THE TEXT OF    */
  25. /*    THIS  AGREEMENT IN ANY OF THE  AFOREMENTIONED FILES,  OR IF YOU DO    */
  26. /*    NOT HAVE THESE FILES,  YOU  SHOULD  IMMEDIATELY CONTACT BIT BUCKET    */
  27. /*    SOFTWARE CO.  AT ONE OF THE  ADDRESSES  LISTED BELOW.  IN NO EVENT    */
  28. /*    SHOULD YOU  PROCEED TO USE THIS FILE  WITHOUT HAVING  ACCEPTED THE    */
  29. /*    TERMS  OF  THE  BINKLEYTERM  LICENSING  AGREEMENT,  OR  SUCH OTHER    */
  30. /*    AGREEMENT AS YOU ARE ABLE TO REACH WITH BIT BUCKET SOFTWARE, CO.      */
  31. /*                                                                          */
  32. /*                                                                          */
  33. /* You can contact Bit Bucket Software Co. at any one of the following      */
  34. /* addresses:                                                               */
  35. /*                                                                          */
  36. /* Bit Bucket Software Co.        FidoNet  1:104/501, 1:132/491, 1:141/491  */
  37. /* P.O. Box 460398                AlterNet 7:491/0                          */
  38. /* Aurora, CO 80046               BBS-Net  86:2030/1                        */
  39. /*                                Internet f491.n132.z1.fidonet.org         */
  40. /*                                                                          */
  41. /* Please feel free to contact us at any time to share your comments about  */
  42. /* our software and/or licensing policies.                                  */
  43. /*                                                                          */
  44. /*--------------------------------------------------------------------------*/
  45.  
  46. #include <stdio.h>
  47. #include <signal.h>
  48. #include <ctype.h>
  49. #include <conio.h>
  50. #include <string.h>
  51. #ifndef LATTICE
  52. #include <process.h>
  53. #endif
  54. #include <stdlib.h>
  55. #include <errno.h>
  56.  
  57. #ifdef __TURBOC__
  58. #ifndef __TOS__
  59. #include <alloc.h>
  60. #endif
  61. #else
  62. #ifndef LATTICE
  63. #include <malloc.h>
  64. #endif
  65. #endif
  66.  
  67. #include "bink.h"
  68. #include "msgs.h"
  69. #include "com.h"
  70.  
  71. void do_extern( char *cmd, int prot, char *name )
  72. {
  73.    int j;
  74.    struct baud_str *i;
  75.    char junk[100];
  76.    char *c, *p, *m;
  77.    FILE *ctlfile;
  78.  
  79.    for (j = 0; j < 100; j++)                     /* Make sure it's all  */
  80.       junk[j] = '\0';                            /* zeroes...           */
  81.  
  82.    for (j = 0; j < 5; j++)
  83.       {
  84.       if (protos[j].first_char == (char) prot)
  85.          break;
  86.       }
  87.    j = protos[j].entry;
  88.    c = m = protocols[j];
  89.    p = NULL;
  90.    while (*m)                                    /* Until end of string */
  91.       {
  92.       if ((*m == '\\') || (*m == ':'))           /* Look for last path  */
  93.          p = m;                                  /* Delimiter           */
  94.       m++;
  95.       }
  96.    m = &junk[0];
  97.    /* It doesn't pay to be too smart here. Dots can appear in dir names   */
  98.    while (c != p)                                /* Copy to last '\'    */
  99.       *m++ = *c++;
  100.    while (*c != '.')                             /* Then to the dot     */
  101.       *m++ = *c++;
  102.    (void) strcat (&junk[0], ".ctl");                    /* Then add extension  */
  103.  
  104.    /*
  105.     * At this point we have the Control File name in (junk), Now let's open
  106.     * the file and put our good stuff in there. 
  107.     */
  108.  
  109.    (void) unlink (junk);                                /* Delete old copies   */
  110.    if ((ctlfile = fopen (junk, append_ascii)) == NULL)   /* Try to open it      */
  111.       {
  112.       status_line (msgtxt[M_NO_CTL_FILE], junk);
  113.       return;
  114.       }
  115.  
  116.    (void) fprintf (ctlfile, "Port %d\n", (port_ptr + 1));      /* Port n              */
  117.    if (lock_baud && (cur_baud >= lock_baud))
  118.       i = &max_baud;
  119.    else i = &btypes[baud];
  120.  
  121.    (void) fprintf (ctlfile, "Modem %x %x %x %x %x\n",   /* All modem params    */
  122.          (port_ptr + 1), i->rate_value, handshake_mask, carrier_mask, i->rate_mask);
  123.    (void) fprintf (ctlfile, "Baud %u\n", i->rate_value);/* Baud Rate           */
  124.    (void) fprintf (ctlfile, "%s %s\n", cmd, name);      /* Actual command      */
  125.    (void) fclose (ctlfile);
  126.    /* The file is now written. Turn off everything. */
  127.  
  128.    if (!share)
  129.       MDM_DISABLE ();                            /* Turn off FOSSIL     */
  130.  
  131. #ifdef OS_2
  132. #ifdef Snoop
  133.    snoop_close();
  134. #endif /* Snoop */
  135. #endif /* OS_2  */
  136.  
  137. #ifdef NEW
  138.  
  139.     close_log();
  140.  
  141. #else
  142.  
  143.    if (status_log != NULL)
  144.       (void) fclose (status_log);                       /* Close status log    */
  145.  
  146. #endif
  147.  
  148.    /* We're all set. Build the command and execute it. */
  149.  
  150.    c = protocols[j];
  151.    (void) sprintf (e_input, "%s %s -p%d -b%u %s", c, c, (port_ptr + 1), i->rate_value, junk);
  152.    b_spawn (e_input);                            /* Execute command     */
  153.  
  154.    /* Back from external protocol. Turn it all back on. */
  155.  
  156.    if (Cominit (port_ptr) != 0x1954)             /* FOSSIL back on      */
  157.       {
  158.       (void) printf ("\n%s\n", msgtxt[M_FOSSIL_GONE]);
  159.       if (reset_port) exit_port();
  160.       exit (1);
  161.       }
  162.  
  163. #ifdef NEW
  164.  
  165.     open_log();
  166.  
  167. #else
  168.  
  169.    if (status_log != NULL)                       /* Reopen status log   */
  170.       {
  171.       if ((status_log = fopen (log_name, append_ascii)) == NULL)
  172.          {
  173.          (void) printf ("\n%s\n", msgtxt[M_NO_LOGFILE]);
  174.          }
  175.       }
  176.  
  177. #endif
  178.  
  179.    MDM_ENABLE (lock_baud && (btypes[baud].rate_value >= lock_baud) ? max_baud.rate_mask : btypes[baud].rate_mask);
  180.    XON_ENABLE ();                                /* and reenable XON/XOF */
  181. }
  182.