home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / auucp+-1.02 / fuucp_plus_src.lzh / dmail / sub.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-21  |  4.9 KB  |  307 lines
  1.  
  2. /*
  3.  * SUB.C
  4.  *
  5.  *  $Header: Beta:src/uucp/src/dmail/RCS/sub.c,v 1.1 90/02/02 12:03:38 dillon Exp Locker: dillon $
  6.  *
  7.  *  (C) Copyright 1985-1990 by Matthew Dillon,  All Rights Reserved.
  8.  *
  9.  *  Global Routines:    INDEXOF()
  10.  *            SIG()
  11.  *            POSITION_CURRENT()
  12.  *            SKIP_TO_DATE()
  13.  *            GET_FIELD()
  14.  *            COMPILE_FIELD()
  15.  *            ISFROM()
  16.  *            XSTRNCMP()
  17.  *            NEXT_WORD()
  18.  *            DONE()
  19.  *
  20.  */
  21.  
  22. #include <signal.h>
  23. #include <stdio.h>
  24. #include "dmail.h"
  25. #include "config.h"
  26.  
  27. #ifdef UNIX
  28. extern FILE *popen();
  29. #endif
  30.  
  31. xfree(ptr)
  32. char *ptr;
  33. {
  34.     static char *sptr;
  35.  
  36.     if (sptr)
  37.     free (sptr);
  38.     sptr = ptr;
  39.     return (1);
  40. }
  41.  
  42.  
  43. indexof(num)
  44. register int num;
  45. {
  46.     register int i, last;
  47.  
  48.     if (num < 1)
  49.     num = -1;
  50.     for (last = -1, i = 0; i < Entries; ++i) {
  51.     if (Entry[i].no) {
  52.         last = i;
  53.         if (Entry[i].no == num)
  54.         return (i);
  55.     }
  56.     }
  57.     if (num == -1  &&  last >= 0)
  58.     return (last);
  59.     return (-1);
  60. }
  61.  
  62. void
  63. null()
  64. {
  65. }
  66.  
  67.  
  68. position_current()
  69. {
  70.     int pos;
  71.  
  72.     if (!m_fi)
  73.     return(0);
  74.     if (Current >= 0) {
  75.     pos = Entry[Current].fpos;
  76.     if (fseek (m_fi, pos, 0) < 0 || ftell(m_fi) != pos)
  77.         puts ("ERROR: Cannot position file to message");
  78.     } else {
  79.     fseek (m_fi, 0, 0);
  80.     }
  81. }
  82.  
  83.  
  84. skip_to_data(fi)
  85. FILE *fi;
  86. {
  87.     static char buf[MAXFIELDSIZE];
  88.  
  89.     while (fgets (buf, MAXFIELDSIZE, fi) != NULL) {
  90.     if (*buf == '\n')
  91.         return (1);
  92.     }
  93.     return (-1);
  94. }
  95.  
  96.  
  97. char *
  98. get_field(str)
  99. char *str;
  100. {
  101.     int i, entry = Current;
  102.     int len = strlen(str);
  103.  
  104.     if (Current < 0)
  105.     return("");
  106.     i = get_extra (str);
  107.     if (i >= 0)
  108.     return (Entry[entry].fields[i]);
  109.     if (m_fi == NULL)
  110.     return ("");
  111.     fseek (m_fi, Entry[entry].fpos, 0);
  112.     while (fgets (Buf, MAXFIELDSIZE, m_fi) != NULL) {
  113.     if (isfrom (Buf))
  114.         break;
  115.     if (strncmp (Buf, str, len) == 0) {
  116.         Buf[strlen(Buf) - 1] = '\0';
  117.         compile_field(Buf, m_fi);
  118.         return (next_word (Buf));
  119.     }
  120.     }
  121.     return ("");
  122. }
  123.  
  124.  
  125. compile_field(buf, fi)
  126. char *buf;
  127. FILE *fi;
  128. {
  129.     int len, acc, pos;
  130.  
  131.     acc = 0;
  132.     buf += strlen (buf) + 1;
  133.     pos = ftell (fi);
  134.     while (fgets (buf, MAXFIELDSIZE - acc, fi) != NULL) {
  135.     if (*buf == ' ' || *buf == 9) {
  136.         *(buf - 1) = '\n';
  137.         len = strlen (buf) - 1;
  138.         *(buf + len) = '\0';
  139.         buf += len;
  140.         acc += len + 2;
  141.         if (acc > MAXFIELDSIZE - 10) {
  142.         printf ("Warning: Field size beyond %d bytes\n", MAXFIELDSIZE);
  143.         sleep (2);
  144.         return (1);
  145.         }
  146.     } else {
  147.         *buf = '\0';
  148.         fseek (fi, pos, 0);
  149.         return (1);
  150.     }
  151.     pos = ftell (fi);
  152.     }
  153.     fseek (fi, pos, 0);
  154. }
  155.  
  156.  
  157. isfrom(str)
  158. register char *str;
  159. {
  160.     static char from[] = {"From "};
  161.     register int i = 0;
  162.  
  163.     while (i < 5) {
  164.     if (*str++ != from[i++])
  165.         return (0);
  166.     }
  167.     return (1);
  168. }
  169.  
  170.  
  171. xstrncmp (src, dest, len)
  172. register char *src, *dest;
  173. register int len;
  174. {
  175.     while (--len >= 0) {
  176.     if ((*src & 0x1f) != (*dest & 0x1f)) {
  177.         if ((*src & 0x1f) < (*dest & 0x1f))
  178.         return (-1);
  179.         return (1);
  180.     }
  181.     ++src; ++dest;
  182.     }
  183.     return (0);
  184. }
  185.  
  186.  
  187.  
  188. char *
  189. next_word(str)
  190. register char *str;
  191. {
  192.     while (*str  &&  *str != ' '  && *str != 9)
  193.     ++str;
  194.     while (*str  &&  (*str == ' ' || *str == 9))
  195.     ++str;
  196.     return (str);
  197. }
  198.  
  199. void
  200. done(n)
  201. {
  202.     char scr[64];
  203.  
  204.     push_break();
  205.     sprintf (scr, "t:dmail%d", getpid());
  206.     unlink (scr);
  207.     sprintf (scr, "t:dmt%d", getpid());
  208.     unlink (scr);
  209.     unlink ("#");
  210.     exit (n);
  211. }
  212.  
  213. void
  214. fix_globals()
  215. {
  216.     char *ptr;
  217.  
  218.     push_break();
  219.     S_page = (ptr = get_var (LEVEL_SET, "page")) ?
  220.         ((*ptr) ? atoi (ptr) : 24) : -1;
  221.     if (S_page > 0  && (S_page -= 4) < 0)
  222.     S_page = 1;
  223.  
  224.     S_sendmail = (ptr = get_var (LEVEL_SET, "sendmail")) ? ptr : GetConfigProgram(SENDMAIL);
  225.     S_novibreak= (ptr = get_var (LEVEL_SET, "vibreak")) ? 0 : 1;
  226.     S_verbose  = (ptr = get_var (LEVEL_SET, "verbose")) ? 1 : 0;
  227.     S_ask      = (ptr = get_var (LEVEL_SET, "ask")) ? 1 : 0;
  228.     S_archive  = (ptr = get_var (LEVEL_SET, "archive")) ? 1 : 0;
  229.     if (S_archive && *ptr == '\0')
  230.     S_archive = 0;
  231.     pop_break();
  232. }
  233.  
  234.  
  235. _pager(str, nl)
  236. char *str;
  237. int nl;
  238. {
  239.     static int count;
  240.     static FILE *fi;
  241.     static char buf[1024];
  242. #ifdef UNIX
  243.     char *ptr;
  244. #endif
  245.  
  246.     if (str == 0) {
  247.     switch (S_page) {
  248.     case -1:
  249.         count = 0;
  250.         return (1);
  251.     case 0:
  252. #ifdef UNIX
  253.         ptr = get_var (LEVEL_SET, "page");
  254.         fi = popen (ptr, "w");
  255.         if (fi == NULL) {
  256.         count = 0;
  257.         printf ("CANNOT RUN PAGER PROGRAM: %s\n", ptr);
  258.         } else {
  259.         count = -1;
  260.         }
  261. #else
  262.         count = 0;
  263.         fi = stdout;
  264. #endif
  265.         return (1);
  266.     default:
  267.         count = 0;
  268.         return (1);
  269.     }
  270.     }
  271.     if ((long)str == -1) {
  272. #ifdef UNIX
  273.     if (fi != NULL) {
  274.         pclose (fi);
  275.         fi = NULL;
  276.     }
  277. #else
  278.     fi = NULL;
  279. #endif
  280.     return (1);
  281.     }
  282.     if (count < 0) {
  283.     fputs (str, fi);
  284.     while (nl--)
  285.         fputs ("\n", fi);
  286.     } else {
  287.     fputs (str, stdout);
  288.     while (nl--) {
  289.         fputs ("\n", stdout);
  290.         ++count;
  291.     }
  292. #ifdef AMIGA
  293.     fflush(stdout);
  294. #endif
  295.     while (*str) {
  296.         if (*str++ == '\n')
  297.         ++count;
  298.     }
  299.     if (S_page > 0  &&  S_page <= count) {
  300.         count = 0;
  301.         puts ("\n-- more --");
  302.         gets(buf);
  303.     }
  304.     }
  305. }
  306.  
  307.