Преобразуйте библиографические ссылки для использования с Latex.

Мне дали длинный документ Word, который я должен перенести в Latex. В документе все цитаты представлены в классической форме с автором и годом. Что-то вроде

Lorem ipsum dolor (Sit, 1998) amet, consectetur adipiscing (Slit 2000, Sed and So 2002, Eiusmod et al. 1976).
Tempor incididunt ut labore et dolore magna aliqua (Ut et al. 1312)

Эти ссылки должны получить правильный ключ ссылки, как это указано в списке bibliograph. Другими словами, текст должен переводиться в

Lorem ipsum dolor \cite{sit1998} amet, consectetur adipiscing \cite{slit2000,sed2002,eiusmod1976}.
Tempor incididunt ut labore et dolore magna aliqua \cite{ut1312}

Это означает:

• извлечь все строки, состоящие из имени(имён) и года, заключённых в скобки
• убрать из этой строки пробелы, вторые имена (всё после первого имени) и прописные буквы
• использовать получившуюся строку для формирования нового \cite{строка}

Я понимаю, что это может быть довольно сложной задачей. Мне интересно, возможно, кто-то написал скрипт для этой конкретной задачи. В качестве альтернативы, любые частичные предложения также приветствуются. В настоящее время я работаю в MacOS.

Следующая awk программа должна работать. Она ищет элементы ( ... ) в каждой строке и проверяет, соответствуют ли они шаблону “автор(ы), год” или “автор(ы)1 год1, автор(ы)2 год2, …”. Если да, то она создает команду ссылки и заменяет группу ( ... ); в противном случае она оставляет группу такой, какая она есть.

#!/usr/bin/awk -f

# Эта небольшая функция создает строку в стиле 'authorYYYY' из
# отдельных полей автора и года. Мы дополнительно разбиваем поле "автор"
# по каждому пробелу, чтобы убрать начальные/конечные
# пробелы и других авторов.
function contract(author, year)
{
    split(author,auth_fields," ");
    auth=tolower(auth_fields[1]);
    return sprintf("%s%4d",auth,year);
}

# Эта функция проверяет, соответствуют ли две строки "имени(имён) автора" и
# "году" соответственно.
function check_entry(string1, string2)
{
    if (string1 ~ /^ *([[:alpha:].-]+ *)+$/ && string2 ~ /^ *[[:digit:]]{4} *$/) return 1;
    return 0;
}

# Эта функция создает команду 'citation' из сырого элемента. Если сырой
# элемент не соответствует синтаксису ссылки 'автор, год' или
# 'автор1 год1,автор2 год2, ...', мы должны оставить его "таким, какой он есть",
# и вернуть "0" в качестве индикатора.
function create_cite(raw_elem)
{
    cite_argument=""

    # Делим по ','. Отдельные элементы - это либо имя(список) и год,
    # либо варианты имя(список)-год, разделённые пробелами.
    n_fields=split(raw_elem,sgl_elem,",");

    if (n_fields == 2 && check_entry(sgl_elem[1],sgl_elem[2]))
    {
        cite_argument=contract(sgl_elem[1],sgl_elem[2]);
    }
    else
    {
        for (k=1; k<=n_fields; k++)
        {
            n_subfield=split(sgl_elem[k],subfield," ");

            if (check_entry(subfield[1],subfield[n_subfield]))
            {
                new_elem=contract(subfield[1],subfield[n_subfield]);
                if (cite_argument == "")
                {
                    cite_argument=new_elem;
                }
                else
                {
                    cite_argument=sprintf("%s,%s",cite_argument,new_elem);
                }
            }
            else
            {
                return 0;
            }
        }
    }

    cite=sprintf("\\{%s}",cite_argument);
    return cite;
}

# Основная программа
# Для каждой строки создаем "рабочую копию", чтобы мы могли заменить 
# уже обработанные пары '(...)' другим текстом (здесь: 'X ... Y');
# в противном случае 'sub' всегда будет натыкаться на одну и ту же
# открытую скобку. 
# Для каждой найденной '( ... )' проверяем, соответствует ли она шаблону.
# Если да, мы заменяем её на команду 'cite'; в противном случае мы оставляем её такой, какая она есть.

{
    working_copy=$0;

    # Разрешаем несовпадающие ')' в начале строки:
    # если ')' была найдена до первой '(', помечаем это как обработанное
    i=index(working_copy,"(");
    j=index(working_copy,")");
    if (i>0 && j>0 && j

~$ awk -f transform_citation.awk input.tex

if (string1 ~ /^ *([[:alpha:].-]+ *)+$/ && string2 ~ /^ *[[:digit:]]{4} *$/) return 1;

if (string1 ~ /^ *([a-zA-Z.-]+ *)+$/ && string2 ~ /^ *[0123456789][0123456789][0123456789][0123456789] *$/) return 1;