+\end_inset
+
+open(INPUT, "<$relyx_file") ||
+\end_layout
+
+\begin_layout Plain Layout
+
+ die "Cannot read $relyx_file: $!
+\backslash
+n";
+\end_layout
+
+\begin_layout Plain Layout
+
+$class = "article"; # default if none found
+\end_layout
+
+\begin_layout Plain Layout
+
+parse: while(<INPUT>) {
+\end_layout
+
+\begin_layout Plain Layout
+
+ if (/
+\backslash
+
+\backslash
+docu[m]entclass{(.*)}/) {
+\end_layout
+
+\begin_layout Plain Layout
+
+ $class = $1;
+\end_layout
+
+\begin_layout Plain Layout
+
+ last parse;
+\end_layout
+
+\begin_layout Plain Layout
+
+ }
+\end_layout
+
+\begin_layout Plain Layout
+
+}
+\end_layout
+
+\begin_layout Plain Layout
+
+close(INPUT);
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_layout Subsection
+Running re\SpecialChar LyX
+ with the corresponding literate document layout
+\end_layout