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

(defun lispru-string-left-part (string delim_char)
;;; возврат левой половины строки до разделителя delim_char
;;; Использует функцию библиотеки
    ;;;                 _dwgru-string-some-part

    ;;; Параметры: 
    ;;; string     - исходная строка
    ;;; delim_char  - разделитель (string)
    ;;; Возврат:
    ;;;   строку (String)
  
    ;;; Пример:
;|  
(lispru-string-left-part " M1:=100" "=")  ;_Результат  " М1:"
(lispru-string-left-part " M= M1:=100" "=")  ;_Результат  " М"
(lispru-string-left-part "просто строка" "=") ;_Результат   "просто строка"
(lispru-string-left-part "просто=" "=")  ;_Результат  "просто"
|;
(_lispru-string-some-part string delim_char T)
)