Для каждого репозитория, расположенного в каталоге clisp-dir-win текущей ; машины m-i, создает список команд, который выполняет клонирование чистого ; репозитория в каталог (concatenate ‘string git-bare-dir “git-” m-i); ; После создания таким образом каталога с чистыми репозиториями его можно; перенести на другую машину для выполнения слияния.; ; Если опциональный параметр os имеет значение nil,; вывод функции направляется на стандартный вывод при этом функция возврвщает t,; иначе – вывод направляется в командный файл и затем этот выполняется при этом ; функция возврвшает путь к командному файлу и результат выполнения командного файла;; Пример использования:; ;;;;(clone–bare); ;;;;(clone–bare t); Рекоемндации:; Перед выполнением даной функции следует удалить соответствующий ; каталог: (concatenate ‘string git-bare-dir “git-” m-i),; содержащий чистые репозитории;
MNAS-GIT:CLONE–ORIGIN
Генерирует сценарий, который выполяет клонирование чистых из репозиториев, для которых ; в каталоге с проектами не нашлось соответствующего проекта,; во виз расположения origin ; ;;;;(clone–origin “mnasoft-00”);
MNAS-GIT:COMMAND
Для каждого репозитория, расположенного в каталоге clisp-dir-win текущей ; машины m-i, генерирует сценарий, выполняющий команду git-command.; ; Если опциональный параметр os имеет значение nil,; вывод функции направляется на стандартный вывод при этом функция возврвщает t,; иначе – вывод направляется в командный файл и затем этот выполняется при этом ; функция возврвшает путь к командному файлу и результат выполнения командного файла.; ; Пример использования:; ;;;;(command “git remote remove other”); ;;;;(command “git remote remove other” t);
MNAS-GIT:COMMIT-A
Для каждого репозитория, расположенного в каталоге clisp-dir-win ; текущей машины m-i, генерирует сценарий, выполняющий команду git commit -a.; ; В качестве комментария используется строка предтвляющая,; значение текущей даты и времени.; ; Примеры использования:; ; @begin[lang=lisp](code); (commit-a); @end(code); ; @begin[lang=lisp](code); (commit-a t); @end(code); ; @begin[path=sin-cos.png](gnuplot); @begin(verb); plot sin(x), cos(x); @end(verb); @end(gnuplot); ;
Для каждого репозитория расположенного в каталоге clisp-dir-win создает список команд, который выполняет:; @begin(list); @item(отсоединение от внешних репозиториев (список m-l), которые для данной машины m-i вожможно имеют неправильное расположение;); @item(присоединение к внешним репозиториям (список m-l), которые для данной машины m-i должны иметь правильное расположение;); @end(list); Если опциональный параметр os имеет значение nil,; вывод функции направляется на стандартный вывод при этом функция возврвщает t,; иначе - вывод направляется в командный файл и затем этот выполняется при этом ; функция возврвшает путь к командному файлу и результат выполнения командного файла.; ; Пример использования:; @begin[lang=lisp](code); (prong; (remote-readd); (remote-readd t)); @end(code); ; Рекомендации:; ; Следует выполнять данную функцию …;
MNAS-GIT:SH-COMMAND
Позволяет выполнить команды
MNAS-GIT:DIALOG-REMOTE-READD
Выполняет диалог для указания каталога, в котором находится репозиторий git, ; для пересоздания удаленных репозиториев. ; ; Пример использования:; @begin[lang=lisp](code); (dialog-remote-readd); @end(code); ;
touch .gitattributes
echo'# Set the default behavior, in case people don't have core.autocrlf set' >>.gitignoreecho '* text=auto' >>.gitignoreecho '' >>.gitignoreecho '# Denote all files that are truly binary and should not be modified' >>.gitignoreecho'*.png binary'>>.gitignore
echo'*.jpg binary'>>.gitignore
echo'*.bmp binary'>>.gitignore
echo''>>.gitignore
echo'# Explicitly declare text files you want to always be normalized and converted to native line endings on checkout'>>.gitignore
echo'*.c* text'>>.gitignore
echo'*.h* text'>>.gitignore
echo''>>.gitignore
echo'# Declare files that will always have CRLF line endings on checkout'>>.gitignore
echo'*.sln text eol=crlf'>>.gitignore
echo'*.txt text eol=crlf'>>.gitignore
echo'*.md text eol=crlf'>>.gitignore
echo''>>.gitignore
echo'# Declare files that will always have LF line endings on checkout'>>.gitignore
echo'# Common Lisp.'>>.gitignore
echo'*.lisp text eol=lf'>>.gitignore
echo'*.asd text eol=lf'>>.gitignore
echo''>>.gitignore
echo'# HTML'>>.gitignore
echo'*.html text eol=lf'>>.gitignore
echo''>>.gitignore
echo'# AutoCad files'>>.gitignore
echo'# Binary'>>.gitignore
echo'*.cuix binary'>>.gitignore
echo'*.mnr binary'>>.gitignore
echo'# CRLF'>>.gitignore
echo'*.lsp text eol=crlf'>>.gitignore
echo'*.mnl text eol=crlf'>>.gitignore