[cstex] plain, změna kategorie _

[Pavel Calábek]

Vážení kolegové,

mám dvojici (částečně funkčních) maker, kterou bych chtěl do zápatí 
vložit jméno právě vloženého souboru

\def\include #1 {\xdef\currfile{#1}\input #1  }

\footline{\tt\currfile
    \hss\rm\folio\hss}

bohužel některé soubory ve svém jméně obsahují podtržítko, kterému bych 
chtěl změnit v některé fázi změnit kategorii na 12. Jak?

Obě varinty, které mě napadly, havarují

{\catcode`\_ =12
\gdef\include #1 {{\catcode`\_ =12\xdef\currfile{#1}\input #1  }}
}

{\catcode`\_ =12
\global\footline{\catcode`\_ =12
        \rm\currfile
    \hss\rm\folio\hss}
}

Jak na to?

Děkuji

Pavel Calábek