;;;----------------------pad-or-trunc------------------------
;;;  Purpose: Functions to pad or truncate a string
;;;           to a designated width 
;;;  by Herman Mayfarth
;;;  str  : string to process
;;;  char : pad character
;;;  len  : required length of output string
;;;--------------------------------------------------------
;;pad right or truncate right
(defun padright-or-trunc (str char len )
  (if (> (strlen str) len )
    (substr str 1 len)
    (repeat (- len (strlen str))
      (setq str (strcat str char))
    )
  );if
)

;;pad left or truncate left
(defun padleft-or-trunc (str char len / sl)
  (if (> (setq sl (strlen str)) len )
    (substr str (- sl len) len)
    (repeat (- len (strlen str))
      (setq str (strcat char str))
    )
  );if
)