(strobj_is_null,strobj_realloc): New function.

(print_string): Accept an explicit width argument. (print_obj): New function. (mh_format): Use the new functions. (builtin_lit): Fixed. (builtin_formataddr,builtin_putaddr): Implemented.

(strobj_is_null,strobj_realloc): New function.
(print_string): Accept an explicit width argument. (print_obj): New function. (mh_format): Use the new functions. (builtin_lit): Fixed. (builtin_formataddr,builtin_putaddr): Implemented.
Sergey Poznyakoff
Commit a19e1308 ... a19e1308f97472a67fb5c1ebe1810bceae59341e authored 2002-09-24 14:17:19 +0000 by Sergey Poznyakoff
Showing 1 changed file with 65 additions and 22 deletions
mh/mh_format.c
--- a/mh/mh_format.c
View file @a19e130
+++ b/mh/mh_format.c
View file @a19e130
@@ -65,6 +65,7 @@ strobj_free (strobj_t *obj)
 #define strobj_ptr(p) ((p)->ptr ? (p)->ptr : "")
 #define strobj_len(p) strlen((p)->ptr)
+#define strobj_is_null(p) ((p)->ptr == NULL)
 #define strobj_is_static(p) ((p)->size == 0)
 static void
@@ -102,7 +103,9 @@ strobj_assign (strobj_t *lvalue, strobj_t *rvalue)
 static void
 strobj_copy (strobj_t *lvalue, strobj_t *rvalue)
 {
-  if (lvalue->size >= strobj_len (rvalue) + 1)
+  if (strobj_is_null (rvalue))
+    strobj_free (lvalue);
+  else if (lvalue->size >= strobj_len (rvalue) + 1)
    memcpy (lvalue->ptr, strobj_ptr (rvalue), strobj_len (rvalue) + 1);
  else
    {
@@ -112,6 +115,25 @@ strobj_copy (strobj_t *lvalue, strobj_t *rvalue)
    }
 }
+static void
+strobj_realloc (strobj_t *obj, size_t length)
+{
+  if (strobj_is_static (obj))
+    {
+      char *value = strobj_ptr (obj);
+      obj->ptr = xmalloc (length);
+      strncpy (obj->ptr, value, length-1);
+      obj->ptr[length-1] = 0;
+      obj->size = length;
+    }
+  else
+    {
+      obj->ptr = xrealloc (obj->ptr, length);
+      obj->ptr[length-1] = 0;
+      obj->size = length;
+    }
+}
 /* Compress whitespace in a string */
 static void
 compress_ws (char *str, size_t *size)
@@ -141,12 +163,14 @@ compress_ws (char *str, size_t *size)
 /* Print len bytes from str into mach->outbuf */
 static void
-print_string (struct mh_machine *mach, char *str, size_t len)
+print_string (struct mh_machine *mach, size_t width, char *str, size_t len)
 {
  size_t rest = strlen (str);
  if (len > rest)
    len = rest;
+  if (!width)
+    width = mach->width;
  rest = mach->width - mach->ind;
  if (len > rest)
    len = rest;
@@ -155,6 +179,13 @@ print_string (struct mh_machine *mach, char *str, size_t len)
 }
 static void
+print_obj (struct mh_machine *mach, size_t width, strobj_t *obj)
+{
+  if (!strobj_is_null (obj))
+    print_string (mach, 0, strobj_ptr (obj), strobj_len (obj));
+}
+static void
 reset_fmt_defaults (struct mh_machine *mach)
 {
  mach->fmtflags = 0;
@@ -335,7 +366,7 @@ mh_format (mh_format_t *fmt, message_t msg, size_t msgno,
 	    else
 	      ptr = buf;
-	    print_string (&mach, ptr, strlen (ptr));
+	    print_string (&mach, 0, ptr, strlen (ptr));
 	    reset_fmt_defaults (&mach);
 	  }
 	  break;
@@ -357,15 +388,11 @@ mh_format (mh_format_t *fmt, message_t msg, size_t msgno,
 		    mach.outbuf[mach.ind] = padchar;
 		}
-	      print_string (&mach, strobj_ptr (&mach.reg_str), fmtwidth);
+	      print_string (&mach, 0, strobj_ptr (&mach.reg_str), fmtwidth);
 	      reset_fmt_defaults (&mach);
 	    }
-	  else if (mach.reg_str.ptr)
+	  else
-	    {
+	    print_obj (&mach, 0, &mach.reg_str);
-	      print_string (&mach,
-			   strobj_ptr (&mach.reg_str),
-			   strobj_len (&mach.reg_str));
-	    }
 	  break;
 	case mhop_fmtspec:
@@ -537,7 +564,7 @@ builtin_num (struct mh_machine *mach)
 static void
 builtin_lit (struct mh_machine *mach)
 {
-  strobj_assign (&mach->reg_str, &mach->arg_str);
+  /* do nothing */
 }
 static void
@@ -648,7 +675,7 @@ _parse_date (struct mh_machine *mach, struct tm *tm, mu_timezone *tz)
  char *date = strobj_ptr (&mach->arg_str);
  const char *p = date;
-  if (parse822_date_time(&p, date+strlen(date), tm, tz))
+  if (parse822_date_time (&p, date+strlen(date), tm, tz))
    {
      mh_error ("can't parse date: [%s]", date);
      return -1;
@@ -1201,7 +1228,7 @@ static void
 builtin_formataddr (struct mh_machine *mach)
 {
  address_t addr;
-  size_t num = 0, n, i;
+  size_t num = 0, n, i, length = 0, reglen;
  char buf[80], *p;
  if (address_create (&addr, strobj_ptr (&mach->arg_str)))
@@ -1209,19 +1236,35 @@ builtin_formataddr (struct mh_machine *mach)
  address_get_count (addr, &num);
  for (i = 1; i <= num; i++)
    {
+      if (address_get_personal (addr, i, buf, sizeof buf, &n) == 0
+	  && n != 0)
+	length += n+1; /* + space */
      address_get_email (addr, i, buf, sizeof buf, &n);
-      num += n+1;
+      length += n+3; /* two brackets + (eventual) comma */
    }
-  num += strobj_len (&mach->reg_str) + 1;
+  if (strobj_is_null (&mach->reg_str))
-  mach->reg_str.ptr = xrealloc (mach->reg_str.ptr, num);
+    reglen = 0;
-  mach->reg_str.size = num + 1;
+  else
-  p = strobj_ptr (&mach->reg_str) + strobj_len (&mach->reg_str) ;
+    reglen = strobj_len (&mach->reg_str);
+  length += reglen + 1;
+  strobj_realloc (&mach->reg_str, length);
+  p = strobj_ptr (&mach->reg_str) + reglen;
  for (i = 1; i <= num; i++)
    {
+      if (reglen > 0)
+	*p++ = ',';
+      if (address_get_personal (addr, i, buf, sizeof buf, &n) == 0 && n > 0)
+	{
+	  memcpy (p, buf, n);
+	  p += n;
+	  *p++ = ' ';
+	}
      address_get_email (addr, i, buf, sizeof buf, &n);
+      *p++ = '<';
      memcpy (p, buf, n);
      p += n;
+      *p++ = '>';
    }
  *p = 0;
 }
@@ -1232,14 +1275,14 @@ builtin_formataddr (struct mh_machine *mach)
 static void
 builtin_putaddr (struct mh_machine *mach)
 {
-  /*FIXME:*/
+  print_obj (mach, mach->reg_num, &mach->arg_str);
-  builtin_not_implemented ("putaddr");
+  print_obj (mach, mach->reg_num, &mach->reg_str);
 }
 /* Builtin function table */
 mh_builtin_t builtin_tab[] = {
-  /* Name       Handling function Return type  Arg type */ 
+  /* Name       Handling function Return type  Arg type      Opt. arg */ 
  { "msg",      builtin_msg,      mhtype_num,  mhtype_none },
  { "cur",      builtin_cur,      mhtype_num,  mhtype_none },
  { "size",     builtin_size,     mhtype_num,  mhtype_none },
@@ -1258,7 +1301,7 @@ mh_builtin_t builtin_tab[] = {
  { "divide",   builtin_divide,   mhtype_num,  mhtype_num },
  { "modulo",   builtin_modulo,   mhtype_num,  mhtype_num },
  { "num",      builtin_num,      mhtype_num,  mhtype_num },
-  { "lit",      builtin_lit,      mhtype_str,  mhtype_str },
+  { "lit",      builtin_lit,      mhtype_str,  mhtype_str, 1 },
  { "getenv",   builtin_getenv,   mhtype_str,  mhtype_str },
  { "profile",  builtin_profile,  mhtype_str,  mhtype_str },
  { "nonzero",  builtin_nonzero,  mhtype_num,  mhtype_num, 1 },