rexx/lstring/justify.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:37  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.1  1998/07/02 17:18:00  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <lstring.h>
  13
  14 /* ----------------- Ljustify ------------------ */
  15 void
  16 Ljustify( const PLstr to, const PLstr from, long length, char pad )
  17 {
  18         int     spaces, ins, extra;
  19         int     p,lp,i;
  20         float   r,rstep;
  21         char    padstr[2];
  22         Lstr    tmp,sub,space;
  23
  24         L2STR(from);
  25         LZEROSTR(*to);
  26         if (length<=0) return;
  27
  28         LINITSTR(tmp);
  29         LINITSTR(sub);
  30         LINITSTR(space);
  31
  32         Lspace(&tmp,from,1,' ');
  33         if (LLEN(tmp)==0) {             /* Null string */
  34                 Lstrset(to,length,pad);
  35                 goto fin;
  36         }
  37
  38         if (LLEN(tmp) > length) {
  39                 LLEN(tmp) = length;
  40                 Lstrcpy(to,&tmp);
  41                 if (pad != ' ')
  42                         for (p=0; p<length; p++)
  43                                 if (LSTR(*to)[p]==' ')
  44                                         LSTR(*to)[p] = pad;
  45                 goto fin;
  46 /****** If we don't to destroy the words
  47                 if (LSTR(tmp)[length] != ' ') {
  48                         for (p=length-1; p>0; p--)
  49                                 if (LSTR(tmp)[p] == ' ') break;
  50                         if (!p) goto fin;
  51                         LLEN(tmp) = p;
  52                 }
  53 ******/
  54         }
  55
  56         for (p=spaces=0; p<LLEN(tmp); p++)      /* count spaces */
  57                 if (LSTR(tmp)[p] == ' ') spaces++;
  58
  59         if (!spaces) {          /* Ooops seulement un mot */
  60                 Lleft(to,&tmp,length,pad);
  61                 goto fin;
  62         }
  63         padstr[0] = pad;
  64         padstr[1] = 0;
  65
  66         ins = length - (LLEN(tmp) - spaces);
  67         extra = ins%spaces;
  68         rstep = (float)(spaces+1)/(float)(extra+1);
  69         ins /= spaces;
  70
  71         Lstrset(&space,ins,pad);
  72
  73         for (r=rstep,p=0,i=1;;i++) {
  74                 lp = p;
  75                 LSKIPWORD(tmp,p);
  76                 _Lsubstr(&sub,&tmp,lp+1,p-lp);
  77                 Lstrcat(to,&sub);
  78                 if (p>=LLEN(tmp)) break;
  79                 Lstrcat(to,&space);
  80                 if (extra && (int)r<=i) {
  81                         Lcat(to,padstr);
  82                         extra--;
  83                         r += rstep;
  84                 }
  85                 LSKIPBLANKS(tmp,p);
  86         }
  87 fin:
  88         LFREESTR(tmp);
  89         LFREESTR(sub);
  90         LFREESTR(space);
  91 } /* Ljustify */