Question

Is ist possible to make a (Perl or whatever running on Mac OS X) script that converts

\section{long text}
\sectionmark{short text}

to

\section[long text]{long text\sectionmark{short text}}

or alternative to

\section{long text}[short text]

I can’t ensure that there are no line breaks in the long text or if there is a break between \section and \sectionmark.

This question is related with a problem discussed here an TeX.SX.

Answer 1

awk '/\\section{long text}/ { oldline=$0
                              getline
                              gsub("{","[",oldline)
                              gsub("}","]",oldline) 
                              print gensub("(.*)\\[(.*)\\]","\\1[\\2]{\\2","g",oldline) $0 "}"
                              getline
                            }
     1' INPUTFILE

Will do it for you if there are no line breaks in long text and there is no empty line between \section and \sectionmark. If you have any of those, you can still modify it.

So to answer your question: yes it is possible.

UPDATE

Here is a working solution, with awk:

awk '/\\section{/ { oldline=$0
                    if ( oldline ~ /}/ ) {
                        lt=gensub(".*{([^}]+)}.*","\\1","g",oldline)
                    } else {
                        lt=gensub(".*{(.*)","\\1","g",oldline) 
                        getline tmp
                        while ( tmp !~  "}" ) {
                            lt=lt "\n" tmp
                            getline tmp
                        }
                        lt=lt "\n" gensub("}.*","","g",tmp)
                    }
                    getline
                    while ( $0 !~ /\\sectionmark/ ) {
                        getline
                    }
                    printf("\\section[%s]{%s%s}\n",lt,lt,$0)
                    getline
                  }
     ! /\\section{/ { print }' INPUT_FILE

Note: it does not handle if anything appears between long text} and \sectionmark e.g.:

\section{long text}**THIS TEXT WILL BE SKIPPED!!**
\sectionmark{short text}

You can see it in ACTION HERE!

If you want to get rid of then new lines in long text just replace every "\n" with a " " in the script.