---

zformat.vtc

Go to the documentation of this file.

/* -*- C -*- */
func clean_string(s) [buf, t]
{
  buf = "";
  t = buf;
  while (*s)
  {
    if ((*s >= ' ') || (*s == '\n'))
      *t++ = *s++;
    else
    {
      *t++ = '^';
      *t++ = *s++ + '@';
    }
  }
  return buf;
}

func fold_newlines(s) [buf, p, q, i]
{
  buf = "";
  while (*s == ' ' || *s == '\n')
    s++;
  while (*s)
  {
    strcat(buf, " ");
    p = strchr(s, '\n');
    if (p)
    {
      strcat(buf, s, p - s);
      s = p + 1;
      while (*s == ' ' || *s == '\n')
        s++;
    }
    else
    {
      strcat(buf, s);
      q = buf+strlen(buf);
      break;
    }
  }
  return (*buf == ' ') ? buf + 1 : buf;
}

func sh_quote(s) [r, p] {
    r = "'";
    while (p = strchr(s, '\'')) {
        strcat(r, s, p - s);
        strcat(r, "'\\''");
        s = p + 1;
    }
    strcat(r, s);
    strcat(r, "'");
    return r;
}

func softwrap(str, width) [result, p]
{
  result = "";
  while (strlen(str) > width)
  {
    p = strrchr(str, ' ', width) ?: strchr(str + width, ' ') ?:
      str + strlen(str);
    strcat(result, str, p - str);
    strcat(result, "\n");
    str = skipspaces(p);
  }
  return result + str;
}

---