No Fragments Archive 12: Textmags & Docs/nf_archive_12.iso/MAGS/SOURCES/ATARI_SRC.ZIP/atari source/DSHJ2/DSHY.C

C/C++ Source or Header | 2001-02-10 | 4.4 KB | 192 lines

#include    "dshy.h"
#include    "comp.h"

extern    unsigned char    *Xdict_srch();

char    RULE_LD, SAV_RULE, DICT_LD;
struct    {                /* Henry Nguyen 6/15/88        */
    char    hyin;            /* # of char before hyphen    */
    char    hyut;            /* # of char after  hyphen    */
}    HY;            /* To avoid conflict with cp struct    */

/********************************************************/
/*    ENTRY POINT FOR ATARI AUTOMATIC HYPHENATION     */
/********************************************************/
/*
    ON EXIT:

    hyph_index =  Number of hyphenation points found

    HY_TYPE = 1, EM or EN dash found
    HY_TYPE = 2, hard hyphen found
    HY_TYPE = 3, (EM or EN) AND hard hyphen found
    HY_TYPE = 4, DH found
    HY_TYPE = 0, none of above found (logic hyphenation)
*/
hypchk(sp,ep)
unsigned char *sp, *ep;
{
    unsigned int  *ofsptr, chrcnt, nohcnt;
    unsigned char nohyph, c, ct, *wrkptr, wrd_lngth;

    HY.hyin = cp.nbefhyp;        /* # of char before hyphen    */
    HY.hyut = cp.nafthyp;        /* # of char after  hyphen    */
    wrkptr = bgnptr = sp;
    endptr = ep;
    wrkend = wrdbuf;
    ofsptr = hyofs;
    dashct = HY_TYPE = DHfnd = MNdash = 0;
    hypcnt = ct = nohyph = cmd_lngth = 0;
    nohcnt = hyph_index = chrcnt = 0;
    while (wrkptr < endptr && dashct < 65) {
      c = *wrkptr++;
      if (tagc(c)) {            /* to be redone...    */
        chrcnt += 2; ++wrkptr; continue;
      }
      else if (c == DH || c == '-' || c == MDASH || c == NDASH) {
        cmd_lngth = 0; MNdash = 1; ++nohyph;
        if (c == DH) {
          if (hypcnt) {
            for (ct = 0;ct < hypcnt;++ct) {
          if (!(hyphens[ct] & 0x80)) hyphens[ct] = 255;
        }
          }
          hyphens[hypcnt++] = ((nohcnt - 1) | 0x80);
          *ofsptr = (chrcnt + 1);
          DHfnd = 1; HY_TYPE = 4;
        }
        else if (!DHfnd) {
        if (c == '-') HY_TYPE |= 2;
        else          HY_TYPE |= 1;
        hyphens[hypcnt++] = (nohcnt - 1);
        *ofsptr = (chrcnt + 1);
        }
        else continue;
        ++hyph_index; ++chrcnt;
      }
      else {
        if (halpha(c)) {
        ++alphact;
        if (c < 0x80) c |= ' ';
        }
        else {
        if (!alphact) c = 0;
        else ++nohyph;
        }
        *wrkend++ = c; *wrkend = 0;
        if (MNdash) {
        *ofsptr++ = (chrcnt - cmd_lngth);
        ++chrcnt;
        MNdash = 0;
        }
        else *ofsptr++ = chrcnt++;
        ++nohcnt; ++dashct;
      }
    }
    if (nohyph) {
      while (!(halpha(*(wrkend - 1)))) {
        --wrkend; --nohyph;
      }
    }
    wrd_lngth = (wrkend - wrdbuf);
    --wrkend;
    if (wrd_lngth >= (HY.hyut + HY.hyin)) {
      if (!nohyph) {
        if (DICT_LD && (xptr = Xdict_srch(wrdbuf))) {
          for (c = ct = 0;*xptr;++xptr,++c) {
            if (*xptr == '-') {
          hyphens[ct++] = --c; ++hyph_index;
            }
          }
        }
        else {
          if (RULE_LD) rule_hyph(wrdbuf,wrkend);
        }
      }
    }
    if (hyph_index) set_ptrs(wrd_lngth,nohyph);
}

set_ptrs(wrd_lngth,nohyph)
unsigned char wrd_lngth, nohyph;
{
    unsigned char ct, **WRK_HYPH_PTR;
    unsigned int  cnt, *ofsptr, *tmptr;

    WRK_HYPH_PTR = hyptr;
    ofsptr = hyofs;
    ct = 0;
    cnt = hyph_index;
    if (!nohyph) {
      if (wrd_lngth < HY.hyut) {
        wrd_lngth = HY.hyut;
        HY.hyin = 0;
      }
      else wrd_lngth -= HY.hyut;
    }
    while (cnt) {
      if (hyphens[ct] == 0xff) {
        --cnt; --hyph_index; ++ct;
        continue;
      }
      hyphens[ct] &= 0x7f;            /* strip upper bit */
      if (!HY_TYPE) {
        if ((hyphens[ct]+1) < HY.hyin ||
          (hyphens[ct]+1) > wrd_lngth) {
          --hyph_index; ++ct; --cnt; continue;
        }
      }
      tmptr = hyofs;
      tmptr += hyphens[ct]+1;
      *WRK_HYPH_PTR++ = (bgnptr + *tmptr);
      ++ofsptr; --cnt; ++ct;
    }
}

/*
    Exception Dictionary loading routine
*/
ldict(file_ID)
unsigned int file_ID;
{
    if (read(file_ID,X_BUF,XDSIZ) < 0)
         DICT_LD = 0;
    else DICT_LD = 1;
    close(file_ID); return(DICT_LD);
}

unsigned char *Xdict_srch(s)
char *s;
{
    unsigned char *xwrdptr, *jmp_ptr, *srch, *trgt;
    unsigned int *xofsptr;

    xofsptr = &X_BUF[4];
    xofsptr += ((*s & 0x1f) - 1);
    if (*xofsptr) xwrdptr = (X_BUF + *xofsptr);
    else return(NULP);
    while (*xwrdptr == *s) {
      jmp_ptr = (xwrdptr - 1);
      for (srch = s,trgt = xwrdptr;*srch;++srch,++trgt) {
        if (*trgt == '-') --srch;
        else if (*srch != *trgt) break;
      }
      if (!(*srch)) break;
      if (*trgt > *srch) return(NULP);
      xwrdptr += (*jmp_ptr + 2);
    }
    if (*xwrdptr == *s && !(*trgt)) return(xwrdptr);
    else return(NULP);
}

/*
    Function to initialize hyphenation parameters
*/
inithyph()
{
    int    i;
    for (i = 0;i < 65;++i)
        hyptr[i] = NULP;
    RULE_LD = SAV_RULE = DICT_LD = 0;
}