as I said before, in Persian we have two footnotes, one for Persian and the other for English, if the first footnote in a pageis English, then footnote rule will appear on left hand side and if the first footnote in a pgeis persian, the footnote appears on right .<br>
handside.<br><br>this is the code taken from xepersian which does automatic footnoterule, it produces a file-name.fot<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; footnote setup&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>
<br>\ifx \CatEscape\undefined<br>&nbsp;&nbsp;&nbsp; \chardef\CatEscape=0<br>&nbsp;&nbsp;&nbsp; \chardef\CatOpen=1<br>&nbsp;&nbsp;&nbsp; \chardef\CatClose=2<br>&nbsp;&nbsp;&nbsp; \chardef\CatIgnore=9<br>&nbsp;&nbsp;&nbsp; \chardef\CatLetter=11<br>&nbsp;&nbsp;&nbsp; \chardef\CatOther=12<br>&nbsp;&nbsp;&nbsp; \chardef\CatActive=13&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; % is defined in Plain already<br>
<br>&nbsp;&nbsp;&nbsp; \chardef\CatUsCode=\catcode`\_<br>\fi<br><br>\catcode`\_=\CatLetter&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; % top level macro file<br><br><br>\def\r@fn{%<br>&nbsp; \hbox to \columnwidth<br>&nbsp; {\beginR \vbox{\kern -3\p@<br>&nbsp;&nbsp; \hrule width .4\columnwidth \kern2.6\p@}\hfil\endR}}<br>
\def\l@fn{%<br>&nbsp;&nbsp; \hrule width .4\columnwidth\kern 2.6\p@}<br><br><br>\def\@makefnmark{\hbox{$^{\hbox{\scriptsize\@thefnmark}}\m@th$}}<br><br><br>\def\leftfootnoterule{\global\def\footnoterule{\l@fn}}<br>\def\rightfootnoterule{\global\def\footnoterule{\r@fn}}<br>
\leftfootnoterule<br><br>%%% \beginprog<br>\newread\old_foot_file<br>\newwrite\foot_file<br>\def\foot_file_name{\jobname.fot\relax}<br>\def\init_footnote{%<br>&nbsp;&nbsp; \openin\old_foot_file\foot_file_name<br>&nbsp;&nbsp; \ifeof\old_foot_file&nbsp; \closein\old_foot_file<br>
&nbsp;&nbsp; \else&nbsp; \closein\old_foot_file<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \read_foot_file<br>&nbsp;&nbsp; \fi<br>&nbsp;&nbsp; \immediate\openout\foot_file\foot_file_name<br>&nbsp;&nbsp; \immediate\write\foot_file{\relax}%<br>&nbsp;&nbsp; \global\let\init_footnote\relax<br>&nbsp;&nbsp; }<br><br>\newcount\foot_name_no&nbsp; % for generating footnote mark names<br>
<br><br><br><br><br>\newcount\autofootnote<br>\def\fnpp_next_footnote{%<br>&nbsp;&nbsp;&nbsp; \init_footnote<br>&nbsp;&nbsp;&nbsp; \global\advance\foot_name_no\@ne<br>&nbsp;&nbsp;&nbsp; \global\advance\c@footnote\@ne<br>&nbsp;&nbsp;&nbsp; \edef\do_write{%<br>&nbsp;&nbsp;&nbsp; \immediate\write\foot_file{%<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; \string\advance\autofootnote\@ne<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; \string\expandafter\xdef<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; \string\csname\space f@\number\foot_name_no \endcsname{%<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; \string\number\autofootnote<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }%<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }%<br>&nbsp;&nbsp;&nbsp; }%<br>
&nbsp;&nbsp;&nbsp; \do_write<br>&nbsp;&nbsp;&nbsp; \global\autofootnote 0\csname f@\number\foot_name_no \endcsname \relax<br>&nbsp;&nbsp;&nbsp; }<br><br>\def\read_foot_file{%<br>&nbsp;&nbsp; \begingroup<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \catcode`\@\CatLetter \catcode`\^^M\CatIgnore<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \input \foot_file_name<br>
&nbsp;&nbsp; \endgroup<br>&nbsp;&nbsp; }<br><br>\let\fnpp_orig_outputpage=\@outputpage<br>\def\@outputpage{%<br>&nbsp;&nbsp;&nbsp; \ifx \init_footnote\relax<br>&nbsp;&nbsp;&nbsp; \immediate\write\foot_file{\autofootnote\z@}%<br>&nbsp;&nbsp;&nbsp; \fi<br>&nbsp;&nbsp;&nbsp; \fnpp_orig_outputpage<br>&nbsp;&nbsp;&nbsp; }<br>
<br>\let\FnppOrigFootnote=\footnote&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; % save original bindings<br>\let\FnppOrigFootnotemark=\footnotemark<br><br>\def\footnote{%<br>&nbsp;&nbsp;&nbsp; \@ifnextchar[%&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; % ] (Emacs)<br>&nbsp;&nbsp;&nbsp; \@xfootnote<br>&nbsp;&nbsp;&nbsp; {\fnpp_next_footnote \ifnum\autofootnote=1\rightfootnoterule\fi \@xfootnote[\the\c@footnote] %<br>
}%<br>&nbsp;&nbsp;&nbsp; }<br>\def\footnotemark{%<br>&nbsp;&nbsp;&nbsp; \@ifnextchar[%&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; % ] (Emacs)<br>&nbsp;&nbsp;&nbsp; \@xfootnotemark<br>&nbsp;&nbsp;&nbsp; {\fnpp_next_footnote \ifnum\autofootnote=1\rightfootnoterule\fi \@xfootnotemark[\the\c@footnote]}%<br>&nbsp;&nbsp;&nbsp; }<br>
<br><br><br><br>\def\footnotemarkLR{%<br>&nbsp;&nbsp;&nbsp; \@ifnextchar[%&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; % ] (Emacs)<br>&nbsp;&nbsp;&nbsp; \@xfootnotemark<br>&nbsp;&nbsp;&nbsp; {\fnpp_next_footnote \ifnum\autofootnote=1\leftfootnoterule\fi\@xfootnotemark[\the\c@footnote]}%<br>&nbsp;&nbsp;&nbsp; }<br>
<br>\newif\if@RomanFootNum<br>\providerobustcmd{\Footnote}[1]{%<br>\bgroup<br>\footnotemarkLR%<br>\renewcommand{\thefootnote}{\if@RomanFootNum\rmfamily{\@arabic\c@footnote}\else\@arabic\c@footnote\fi}%<br>\@RTLfalse\footnotetext{\rmfamily#1}%<br>
\egroup<br>}<br>\@RomanFootNumfalse<br>\def\PersianFootNum{\@RomanFootNumfalse}<br>\def\RomanFootNum{\@RomanFootNumtrue}<br>\DeclareOption{RomanFootNum}{\@RomanFootNumtrue}<br>\ProcessOptions<br><br><br><br>\ifx \@minipagerestore\relax<br>
&nbsp;&nbsp;&nbsp; \let\@minipagerestore\@empty<br>\fi<br><br>\g@addto@macro\@minipagerestore{%<br>&nbsp;&nbsp;&nbsp; \let\footnote\FnppOrigFootnote<br>&nbsp;&nbsp;&nbsp; }<br><br>\let\fnpp_orig_maketitle=\maketitle<br>\def\maketitle{%<br>&nbsp;&nbsp;&nbsp; \begingroup<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; \let\footnotemark\FnppOrigFootnotemark<br>
&nbsp;&nbsp;&nbsp; \fnpp_orig_maketitle<br>&nbsp;&nbsp;&nbsp; \endgroup<br>&nbsp;&nbsp;&nbsp; }<br><br>\catcode`\_=\CatUsCode<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End of footnote setup&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<br>