%D \module
%D   [       file=symb-glm,
%D        version=2002.05.07,
%D          title=\CONTEXT\ Symbol Libraries,
%D       subtitle=Guillemots,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

%D Watch the \type {x} before the local symbols.

\loadmapfile [ec-public-lm.map]

\definefontsynonym [GuilSerif]            [cork-lmr10]    [encoding=ec]
\definefontsynonym [GuilSerifBold]        [cork-lmbx10]   [encoding=ec]
\definefontsynonym [GuilSerifItalic]      [cork-lmti10]   [encoding=ec]
\definefontsynonym [GuilSerifSlanted]     [cork-lmsl10]   [encoding=ec]
\definefontsynonym [GuilSerifBoldItalic]  [cork-lmbxti10] [encoding=ec]
\definefontsynonym [GuilSerifBoldSlanted] [cork-lmbxsl10] [encoding=ec]

\definefontsynonym [GuilSans]             [cork-lmss10]   [encoding=ec]
\definefontsynonym [GuilSansBold]         [cork-lmssbx10] [encoding=ec]
\definefontsynonym [GuilSansItalic]       [cork-lmssi10]  [encoding=ec]
\definefontsynonym [GuilSansSlanted]      [cork-lmssi10]  [encoding=ec]
\definefontsynonym [GuilSansBoldItalic]   [cork-lmssbi10] [encoding=ec]
\definefontsynonym [GuilSansBoldSlanted]  [cork-lmssbi10] [encoding=ec]

\definefontsynonym [GuilMono]             [cork-lmtt10]   [encoding=ec]
%definefontsynonym [GuilMonoBold]         [cork-lmtt10]   [encoding=ec]
%definefontsynonym [GuilMonoSlanted]      [cork-lmtt10]   [encoding=ec]
%definefontsynonym [GuilMonoItalic]       [cork-lmtt10]   [encoding=ec]
%definefontsynonym [GuilMonoBoldItalic]   [cork-lmtt10]   [encoding=ec]
%definefontsynonym [GuilMonoBoldSlanted]  [cork-lmtt10]   [encoding=ec]

\definesymbol [xleftguillemot]   [\getglyph{Guil}{\char19}]
\definesymbol [xrightguillemot]  [\getglyph{Guil}{\char20}]

\definesymbol [xguilsingleleft]  [\getglyph{Guil}{\char14}]
\definesymbol [xguilsingleright] [\getglyph{Guil}{\char15}]

%D A strange place, but okay (the \type {\relax} prevents space gobbling)

\startencoding [default]

  \definecharacter leftguillemot     {\symbol[xleftguillemot]\relax}
  \definecharacter rightguillemot    {\symbol[xrightguillemot]\relax}

  \definecharacter guilsingleleft    {\symbol[xguilsingleleft]\relax}
  \definecharacter guilsingleright   {\symbol[xguilsingleright]\relax}

\stopencoding

\endinput
