;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * _dwgru-string-align
;;; *
;;; * 03/12/2007 Версия 0001.  Сергей Зуев   (ShaggyDoc)
;;; ************************************************************************

(defun _lispru-string-align (string str_len sym is_left /  sym_count)
  ;;; выравнивает строку string до длины str_len
  ;;; символами sym слева если is_left, иначе справа
    ;;; Параметры: 
    ;;; string   - исходная строка
    ;;; str_len  - необходимая длинна (Integer)
    ;;; sym      - символ выравнивания (string)
    ;;; is_left  - T или NIL. Если истина (T), то слева. Иначе справа. (boolean)
    ;;; Возврат:
    ;;;   строку (String)
    ;;; Пример
;|
  (_lispru-string-align "121" 20 "0" T) ;_Результат  "00000000000000000121"
  (_lispru-string-align "121" 20 "0" NIL) ;_Результат "12100000000000000000"
  |;
  (if (> (setq
           sym_count (- str_len (strlen string))
         ) ;_ end of setq
         1
      ) ;_ end of >
    (repeat sym_count
      (setq string (if is_left
                     (strcat sym string)
                     (strcat string sym)
                   ) ;_ end of if
      ) ;_ end of setq
    ) ;_ end of repeat
  ) ;_ end of if
  string
)