;***************** SETUP1_MES.LSP *******************
;*
;* DO NOT CHANGE THIS FILE BEFORE AUTHORIZATION AND IF YOU DON'T KNOW AUTOLISP
;* НЕ ИЗМЕНЯЙТЕ ЭТОТ ФАЙЛ ДО АВТОРИЗАЦИИ ПРОГРАММЫ И ЕСЛИ ВЫ НЕ ЗНАКОМЫ С ЯЗЫКОМ AUTOLISP. 
;*
;* Изменению подлежат ТОЛЬКО вторые и третьи члены в списках (для сообщений на русском и иностранном языке).
;* Change 2nd and 2d members only.
;* Номер сообщения - ЦЕЛОЕ, Сообщения - ТОЛЬКО СТРОКИ!
;* Message number - INT, Messages - STRINGS! ONLY!
;* Номера должны идти строго по порядку!
;* Nombers must be without gap (in order)
;*
;* Для Acad 15, 16
;* (с) Косов А.И., (413-2) 65-05-10дом., г.Магадан-Кубака, 2004 г.
;* Сайт: http://geol-dh.narod.ru/
;* (с) Kosov Alexander, (413-22)5-05-10home., Magadan-Kubaka, 2004.
;* Site: http://geol-dh.narod.ru/en_index.html

(setq err$ "GEOL_MESSAGE$")

(setq setup_meslist- '( ; это глобальная переменная
(0 "Loading DOSLib arx file..." "Загружается DOSLib arx файл...")
(1 "DOSLib arx file not loaded!" "DOSLib arx файл не загружен!")
(2 "Some of needed setup programs not loaded." "Некоторые из необходимых setup программ не загружены.")
(3 "Can NOT setup applications." "Невозможно выполнить установку программ.")
(4 "Setup program files not found.  SETUP1.FAS(LSP) or SETUP1.DCL or SETUP1_MES.FAS(LSP) or" "Программы setup не найдены.  SETUP1.FAS(LSP) или SETUP1.DCL или SETUP1_MES.FAS(LSP) или")
(5 "Can not open file for reading" "Невозможно открыть файл для чтения")
(6 "Unloading menu group" "Выгружается групповое меню")
(7 "Loading menu" "Загружается меню")
(8 "Placing menugroup to main menu" "Групповое меню помещается в строку главного меню")
(9 "Menu have no POPs" "Меню не имеет POPs")
(10 "Menu file not found" "Меню файл не найден")
(11 "Copied files" "Скопированы файлы")
(12 "Making folder" "Создание директория")
(13 "Setting attributs 'read only' to zero..." "Сбрасываются атрибуты 'read only'...")
(14 "Copying application files to" "Файлы копируются в")
(15 "Files are copied" "Файлы скопированы")
(16 "Copied application files to" "Файлы скопированы в")
(17 "Copying failed!" "Копирование не выполнено!")
(18 "Application files copying failed!" "Копирование файлов не выполнено!")
(19 "Can not make folder" "Невозможно создать директорий")
(20 "Copying templet(s) *.DWT to" "Копирование темплетов *.DWT в")
(21 "Templet(s) copying failed!" "Копирование темплета(ов) не выполнено!")
(22 "Getting current acad search paths" "Формирование текущих путей поиска Acad")
(23 "Load menu(s)" "Загрузить меню")
(24 "Select a folder to install applications" "Выберите директорий для инсталляции программ")
(25 "User is set installation folder" "Пользователь назначил инсталляционный директорий")
(26 "Do not load menus at all." "Не загружать ни одного меню.")
(27 "There is not enough disk space to install or not fixid disk." "Недостаточно места на диске для установки или не жесткий диск.")
(28 "Select another drive." "Выберите другой логический диск.")
(29 "SETUP INFORMATION" "ИНФОРМАЦИЯ о SETUP")
(30 "I read Licences Agreement and accept all the terms of the preceding L.A." "Я прочитал Лицензионное Соглашение и согласен со всеми его положениями.")
(31 "Istall applications from" "Инсталлировать программы из")
(32 "Path to install" "Путь инсталляции")
(33 "Loading menu(s)" "Загружаются меню")
(34 "Menu(s) will NOT be loaded." "Меню НЕ будет загружено.")
(35 "New folder will be created (or substitute)" "Новый директорий будет создан (или заменен)")
(36 "SUBST" "ЗАМ")
(37 "NEW" "НОВ")
(38 "Attention! All previous applications folders" "Внимание! Все прежние директории с программами,")
(39 "exclude foregoing folder may be deleted by hand after installation." "исключая вышеперечисленный, могут быть удалены вручную после инсталляции.")
(40 "Acad search paths will be organize in following order now" "Пути поиска Acad будут организованы в следующем порядке")
(41 "Existing Acad search file paths (support, fonts, other programs etc.)" "Существующие пути поиска Acad (support, fonts, другие программы и др.)")
(42 "Old applications search path will be removed" "Прежний путь поиска программ будет удален")
(43 "end of setup information" "конец информации")
(44 "Is this correct?" "Все правильно?")
(45 "Installation information accepted by user." "Информация по инсталляции принята пользователем.")
(46 "Installation information declined by user." "Информация по инсталляции отклонена пользователем.")
(47 "Can not open dialog from 'SETUP1.DCL' file." "Невозможно открыть диалог из файла SETUP1.DCL.")
(48 "All setup information wrote to log file" "Вся информация о процессе установки записана в файл-журнал")
(49 "Cancel to install applications." "Прерывание установки программ.")
(50 "*ERROR* Setup is failed." "*ОШИБКА* Установка программ не завершена.")
(51 "Can not open log file." "Невозможно открыть файл-журнал.")
(52 "Can't set folder name to write log file." "Невозможно задать директорий для записи файла-журнала.")
(53 "Setup ACAD applications" "Установка программ для Acad")
(54 "Help file not found." "Файл справки не найден.")
(55 "ERROR in program SETUP1" "ОШИБКА в программе SETUP1")
(56 "Error in function name" "Ошибка в функции")
(57 "Can not form log file." "Невозможно записать файл-журнал.")
(58 "Initialization ot parameters" "Инициализация параметров")
(59 "Checking presence of supplied folder(s) and files in each folder" "Проверка наличия директориев в дистрибутиве и файлов в директориях")
(60 "There is no subfolder or more then one subfolders with source files to install." "Нет ни одного поддиректория или более одного поддиректория с файлами для установки.")
(61 "Checking numbers of files" "Проверка числа файлов")
(62 "Checking names of files" "Проверка имен файлов")
(63 "Some files not found in subfolder" "Некоторые файлы не найдены в поддиректории")
(64 "for" "для")
(65 "Not found files in subfolder" "Не найдены файлы в поддиректории")
(66 "Can't found paths to Acad.exe and/or Acad templets." "Невозможно найти путь к Acad.exe и/или темплетов Acad.")
(67 "Number of not found files with extentions in subfolder" "Число не найденных файлов с расширениями в поддиректории")
(68 "Attention!" "Внимание!")
(69 "Cancelling installation." "Прерывание установки.")
(70 "Forming menu list" "Формирование списка файлов меню")
(71 "Too many menu files" "Слишком много файлов меню")
(72 "Allowed only 9." "Разрешено не более 9.")
(73 "Loading DCL" "Загрузка DCL")
(74 "Can not load 'SETUP1.DCL' dialog file." "Невозможно загрузить файл определения диалогов 'SETUP1.DCL'.")
(75 "DCL loaded." "DCL загружен.")
(76 "Seeking paths in Windows registry" "Поиск путей в регистре Windows")
(77 "Opening dialog window" "Открытие окна задания параметров (диалогового)")
(78 "Installation is canceled by user." "Установка прервана пользователем.")
(79 "Copying files to installation folder" "Копирование файлов в инсталляционный директорий")
(80 "Copying files..." "Копирование файлов...")
(81 "Wait! Do not press Esc key!" "Ждите! Не нажимайте на клавишу Esc!")
(82 "End copying." "Конец копирования.")
(83 "Current acad search paths now" "Текущие пути поиска Acad сейчас")
(84 "Setting new acad search paths" "Установка новых путей поиска Acad")
(85 "*Error* No list of search paths." "*Ошибка* Не создан список путей поиска.")
(86 "Fatal error while copying main program files!" "Фатальная ошибка при копировании основных файлов!")
(87 "Setting menus" "Установка меню")
(88 "End of setting menus" "Окончание установки меню")
(89 "Congratulation!" "Примите поздравления!")
(90 "Programs install successfully!" "Программы установлены успешно!")
(91 "[Cancel] - break installation." "[Cancel] - прерывание установки.")
;;;                      ;   Добавлять строки не разрешено.
));end of list ** setup_meslist- ** (конец списка)
;;
;;     ДАЛЬШЕ НЕ КОРРЕКТИРОВАТЬ! DO NOT EDIT below!
;;
(if (= (type setup_meslist-) 'LIST) ; список?
  ;проверка
  (progn
    (setq bad nil)
    (setq i 0)
    (while (setq l (nth i setup_meslist-))
      (if (not (and (= (car l) i) ; номер=порядку в списке
                    (= (type (setq s1 (cadr l))) 'STR) ; тип - строка
                    (= (setq s2 (type (caddr l))) 'STR)
                    (/= s1 "") (/= s2 ""))) ; не пустая
        (progn
          (princ (strcat "\nnumber=" (itoa i)))
          (setq bad 1)
        )  
      )  
      (setq i (1+ i))
    );while
  )
  (setq bad 1)
)
(if bad
  (progn
    (setq setup_message_list_mode- nil)
    (alert "MESSAGE file not valid.  GEOL_MES.\nФайл СООБЩЕНИЙ испорчен.")
  )  
  (setq setup_message_list_mode- "LOADED")
)  
(princ)
;end of file