%$Lamed
\documentclass{book}

% A�adir los controles como A0 = no break space.

%\tracingcommands2
%\tracingmacros2
%\ocptracelevel=3
\errorcontextlines20


%\def\rmdefault{omlgc}

\usepackage[charset=isoell,english,spanish,french,greek]{mem}

\languageunset
\makeatletter
\def\memh@verbatim{0}%
\def\mem@b{verbatim}%
\DeclareLanguage{verbatim}
\mem@setencs{verbatim}{T1,ULA,OT1,UEL,LGR,T2A,UCY,LWN,LCY,OT2}
\makeatother
\languagereset

\sloppy

% For some reason grmo font doesn't work for me (task, see
% why):
\def\sldefault{it}

%%%%%%%%%%%%%%%%%%  Revisar esto:

\scriptproperties{La}{rmfamily=pbk}

\languageproperties{spanish}{charset = isolat1}

\languageproperties{french}{
  charset = isolat1,
  uppercase = unaccented}

\languageproperties{greek}{fontencs=LGR,rmfamily =cmr}

% Surprise, surprise: omlgc does not have the Extended Greek page
% thus meaning it cannot be considered a UEL font :-(. It has these
% characters, but at non standard places, so a new enconding should
% be added (LOG, Local Omega Greek).
  
%\languageproperties{greek}{rmfamily= omlgc}

\raggedright
\parindent1.5pc

% Verbatim with a different script to be fixed

\makeatletter
\mem@after\verbatim@font{\languageset{english}}
\makeatother

\begin{document}

\tableofcontents

\chapter{� �������� ������� ����� ��� TeX}

\englishtext{What a black box means is that character is not available
in the current enconding.  It happens the LGR encoding has not Latin
letters.  The log file will have lines similar to: \texttt{Package Mem
Warning: Unknown character 88 on input line 194.}}

\section{� �������� ������� ����� ��� TeX}

\frenchtext{With ascii input (Omega conventions):}
{\languagetext[input=tex]{greek}{<'ahy opr'e `o =w 'a| >h|}}
\frenchtext{{\ttfamily <'ahy opr'e `o =w 'a| >h|} A few letters with utf-8
input:} \languagetext[charset=utf8]{greek}{ἅὦἷἯ} \frenchtext{Note
LGR contains \textit{no} Latin letter. Below is an extended sample in
polytonic Greek.}

.e.{\tracingmacros2 �\unitext{^^^^0301}.\^{�}}.

� \textit{�������� ������� ����� ��� TeX (� ��� ���
��������) �������� ��� ������� ������ ����� ��� TeX � �������� LUG 
(Local Users Group).} � ��� ��������� ���� ������� ��� 
TeX
��� ��� ������������� ��������� ���� ������ ��� ��� ���������. 
������ ���������
�� ��������� ���� �������� ��� �������� ��� �������� �������� ��� 
���������
��� ���������� TeX ��� ���� ���������� ���� ��������� 
(�.�. ��� ��) 
��� �� ������������ ��� �������� ������� ���� 
�������� ������ (������ ��� ���).  \frenchtext{�a va, �a va tr�s
bien. Tiens! qu'est-ce qu'ils peuvent regarder, ces jeunes gens?}
 �����, ������� ��� ����� ������ � ������, ��������� ��� ��������
��� ����� ��� ������������ ��������� ����������� ���� ����� ��� �/�.

\section{����������� �������}

����������� ������� 18 ��� ��� ��� �������� �� �� 
������������
��� �������� ������ �� ����� ����� ��� ��������. �� ������ ��' ���� ��
������� ���� ������� ��� ��������
���������� �������� ���� ����� �� ������� ��� �������� �� ����� ����� ���
��� �������� ��� �������� ������������. ������ � �������� ���� ������ ��
�������� �� �������������, �� ����� ������, ��� ���������, 
��� ������ ��������� � ��� �����������
��������� ���/��� ��������������/���. �� �������� ���� ��������� ���� ��������
��� ���������� ��� ���� ��� 5000 ������� (� 20 ��������� ���). ��� �� ����
��������� ���������� �������� 2000 ������� (� 8 ��������� ���). (�����������
��� ���� ��������� ������� ��������
�������� �� ����� ���� ���������� ������� ����� ��� �������.)

\begin{french}

\section{�a va tr�s bien (inside an environment)}

\end{french}

\section{� �������� ������� ����� ��� TeX}

� �������� ������� ����� ��� TeX (� ��� ���
��������) �������� ��� ������� ������ ����� ��� TeX � �������� LUG 
(Local Users Group). � ��� ��������� ���� ������� ��� 
TeX
��� ��� ������������� ��������� ���� ������ ��� ��� ���������. 
������ ���������
�� ��������� ���� �������� ��� �������� ��� �������� �������� ��� 
���������
��� ���������� TeX ��� ���� ���������� ���� ��������� 
(�.�. ��� ��) 
��� �� ������������ ��� �������� ������� ���� 
�������� ������ (������      \frenchtext{�a va, �a va tr�s bien}
��� ���). �����, ������� ��� ����� ������ � ������, ��������� ��� ��������
��� ����� ��� ������������ ��������� ����������� ���� ����� ��� �/�.

\section{����������� �������}

����������� ������� 18 ��� ��� ��� �������� �� �� 
������������
��� �������� ������ �� ����� ����� ��� ��������. �� ������ ��' ���� ��
������� ���� ������� ��� ��������
���������� �������� ���� ����� �� ������� ��� �������� �� ����� ����� ���
��� �������� ��� �������� ������������. ������ � �������� ���� ������ ��
�������� �� �������������, �� ����� ������, ��� ���������, 
��� ������ ��������� � ��� �����������
��������� ���/��� ��������������/���. �� �������� ���� ��������� ���� ��������
��� ���������� ��� ���� ��� 5000 ������� (� 20 ��������� ���). ��� �� ����
��������� ���������� �������� 2000 ������� (� 8 ��������� ���). (�����������
��� ���� ��������� ������� ��������
�������� �� ����� ���� ���������� ������� ����� ��� �������.)

\section{� �������� ������� ����� ��� TeX}

� �������� ������� ����� ��� TeX (� ��� ���
��������) �������� ��� ������� ������ ����� ��� TeX � �������� LUG 
(Local Users Group). � ��� ��������� ���� ������� ��� 
TeX
��� ��� ������������� ��������� ���� ������ ��� ��� ���������. 
������ ���������
�� ��������� ���� �������� ��� �������� ��� �������� �������� ��� 
���������
��� ���������� TeX ��� ���� ���������� ���� ��������� 
(�.�. ��� ��) 
��� �� ������������ ��� �������� ������� ���� 
�������� ������ (������      \frenchtext{�a va, �a va tr�s bien}
��� ���). �����, ������� ��� ����� ������ � ������, ��������� ��� ��������
��� ����� ��� ������������ ��������� ����������� ���� ����� ��� �/�.

\section{����������� �������}

����������� ������� 18 ��� ��� ��� �������� �� �� 
������������
��� �������� ������ �� ����� ����� ��� ��������. �� ������ ��' ���� ��
������� ���� ������� ��� ��������
���������� �������� ���� ����� �� ������� ��� �������� �� ����� ����� ���
��� �������� ��� �������� ������������. ������ � �������� ���� ������ ��
�������� �� �������������, �� ����� ������, ��� ���������, 
��� ������ ��������� � ��� �����������
��������� ���/��� ��������������/���. �� �������� ���� ��������� ���� ��������
��� ���������� ��� ���� ��� 5000 ������� (� 20 ��������� ���). ��� �� ����
��������� ���������� �������� 2000 ������� (� 8 ��������� ���). (�����������
��� ���� ��������� ������� ��������
�������� �� ����� ���� ���������� ������� ����� ��� �������.)

%\begin{french}

\section{\frenchtext{�a va tr�s bien (changed in argument)}}

%\end{french}

\section{� �������� ������� ����� ��� TeX}

� �������� ������� ����� ��� TeX (� ��� ���
��������) �������� ��� ������� ������ ����� ��� TeX � �������� LUG 
(Local Users Group). � ��� ��������� ���� ������� ��� 
TeX
��� ��� ������������� ��������� ���� ������ ��� ��� ���������. 
������ ���������
�� ��������� ���� �������� ��� �������� ��� �������� �������� ��� 
���������
��� ���������� TeX ��� ���� ���������� ���� ��������� 
(�.�. ��� ��) 
��� �� ������������ ��� �������� ������� ���� 
�������� ������ (������ \frenchtext{�a va, �a va tr�s bien}
��� ���). �����, ������� ��� ����� ������ � ������, ��������� ��� ��������
��� ����� ��� ������������ ��������� ����������� ���� ����� ��� �/�.

\section{����������� �������}

����������� ������� 18 ��� ��� ��� �������� �� �� 
������������
��� �������� ������ �� ����� ����� ��� ��������. �� ������ ��' ���� ��
������� ���� ������� ��� ��������
���������� �������� ���� ����� �� ������� ��� �������� �� ����� ����� ���
��� �������� ��� �������� ������������. ������ � �������� ���� ������ ��
�������� �� �������������, �� ����� ������, ��� ���������, 
��� ������ ��������� � ��� �����������
��������� ���/��� ��������������/���. �� �������� ���� ��������� ���� ��������
��� ���������� ��� ���� ��� 5000 ������� (� 20 ��������� ���). ��� �� ����
��������� ���������� �������� 2000 ������� (� 8 ��������� ���). (�����������
��� ���� ��������� ������� ��������
�������� �� ����� ���� ���������� ������� ����� ��� �������.)

\newpage

\frenchtext{Latin traslit:}

\begin{languageset}[input=tex]{greek}
ka`i E>ust'ajioc m`en <o >Antioqe'iac
>ep'iskopoc dias'urei t`on Pamf'ilou E>us'ebion <wc t`hn >en Nika'ia|
p'istin paraqar'attonta, d`e t`hn m`en >en Nika'ia| p'istin o>'u fhsi
paraba'inein, diab'allei d`e t`on E>ust'ajion <wc t`hn Sabell'iou
d'oxan e>is'agonta.  di`a ta=uta <'ekastoi <wc kat`a antip'alwn to`uc
l'ogouc sun'egrafon, >amf'otero'i te l'egontec >enup'ostat'on te ka`i
sunup'arqonta t`on u<i`on e>=inai to=u jeo=u, <'ena te je`on >en
tris`in <upost'asesin e>=inai <omologo=untec, >all'hloic o>uk o>=id'
<'opwc, sumfwn=hsai o>uk >'isquon, ka`i di`a ta=uta <hsuq'azein
o>uden`i tr'opw| >hne'iqonto. <'A

\begin{verbatim}
ka`i E>ust'ajioc m`en <o >Antioqe'iac
>ep'iskopoc dias'urei t`on Pamf'ilou E>us'ebion <wc t`hn >en Nika'ia|
p'istin paraqar'attonta, d`e t`hn m`en >en Nika'ia| p'istin o>'u fhsi
paraba'inein, diab'allei d`e t`on E>ust'ajion <wc t`hn Sabell'iou
d'oxan e>is'agonta.  di`a ta=uta <'ekastoi <wc kat`a antip'alwn to`uc
l'ogouc sun'egrafon, >amf'otero'i te l'egontec >enup'ostat'on te ka`i
sunup'arqonta t`on u<i`on e>=inai to=u jeo=u, <'ena te je`on >en
tris`in <upost'asesin e>=inai <omologo=untec, >all'hloic o>uk o>=id'
<'opwc, sumfwn=hsai o>uk >'isquon, ka`i di`a ta=uta <hsuq'azein
o>uden`i tr'opw| >hne'iqonto. <'A
\end{verbatim}
\end{languageset}

\frenchtext{UTF-8:}

\begin{languageset}[charset=utf8]{greek}
οἱ δὲ Φοίνικες
οὗτοι οἱ σὺν Κάδμῳ ἀπικόμενοι, τῶν
ἦσαν οἱ Γεφυραῖοι, ἄλλα τε πολλὰ
οἰκήσαντες ταύτην τὴν χώρην
ἐσήγαγον διδασκάλια ἐς τοὺς
Ἕλληνας καὶ δὴ καὶ γράμματα, οὐκ
ἐόντα πρὶν Ἕλλησι ὡς ἐμοὶ δοκέειν,
πρῶτα μὲν τοῖσι καὶ ἅπαντες
χρέωνται Φοίνικες· μετὰ δὲ χρόνου
προβαίνοντος ἅμα τῇ φωνῇ μετέβαλον
καὶ τὸν ῥυθμὸν τῶν γραμμάτων.
περιοίκεον δὲ σφεας τὰ πολλὰ τῶν
χώρων τοῦτον τὸν χρόνον Ἑλλήνων
Ἴωνες· οἳ παραλαβόντες διδαχῇ παρὰ
τῶν Φοινίκων τὰ γράμματα,
μεταρρυθμίσαντές σφεων ὀλίγα
ἐχρέωντο, χρεώμενοι δὲ ἐφάτισαν,
ὥσπερ καὶ τὸ δίκαιον ἔφερε,
ἐσαγαγόντων Φοινίκων ἐς τὴν
Ἑλλάδα, Φοινικήια κεκλῆσθαι.  καὶ
τὰς βύβλους διφθέρας καλέουσι ἀπὸ
τοῦ παλαιοῦ οἱ Ἴωνες, ὅτι κοτὲ ἐν
σπάνι βύβλων ἐχρέωντο διφθέρῃσι
αἰγέῃσί τε καὶ οἰέῃσι· ἔτι δὲ
καὶ τὸ κατ' ἐμὲ πολλοὶ τῶν βαρβάρων
ἐς τοιαύτας διφθέρας γράφουσι.

[59] εἶδον δὲ καὶ αὐτὸς Καδμήια
γράμματα ἐν τῷ ἱρῷ τοῦ Ἀπόλλωνος
τοῦ Ἰσμηνίου ἐν Θήβῃσι τῇσι
Βοιωτῶν ἐπὶ τρίποσι τρισὶ
ἐγκεκολαμμένα, τὰ πολλὰ ὅμοια
ἐόντα τοῖσι Ἰωνικοῖσι.  ὁ μὲν δὴ
εἷς τῶν τριπόδων ἐπίγραμμα ἔχει·

Ἀμφιτρύων μ' ἀνέθηκεν ἐὼν ἀπὸ
Τηλεβοάων.

ταῦτα ἡλικίην εἴη ἂν κατὰ Λάιον
τὸν Λαβδάκου τοῦ ολυδώρου τοῦ
Κάδμου. \frenchtext{(Herodot, Buch V, 58f.)}
\end{languageset}

\section{\frenchtext{�a va tr�s bien. Nested spanish: \spanishtext{M�s all�}}}

\englishtext{Test uppercase in headlines.}

\newpage

xxx
\end{document}
