#
#  Copyright (C) 2010, 2011 by DocArch <http://www.docarch.be>
#
#  This file is part of liblouis.
#
#  liblouis is free software: you can redistribute it and/or modify it
#  under the terms of the GNU Lesser General Public License as
#  published by the Free Software Foundation, either version 3 of the
#  License, or (at your option) any later version.
#
#  liblouis is distributed in the hope that it will be useful, but
#  WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
#  Lesser General Public License for more details.
#
#  You should have received a copy of the GNU Lesser General Public
#  License along with liblouis. If not, see
#  <http://www.gnu.org/licenses/>.
#
# -------------------------------------------------------------------------------
#
#  Dutch Braille (for Belgium and the Netherlands)
#     Created and maintained by Bert Frees <bertfrees@gmail.com>
#     See also: « Braillestandaard voor algemeen gebruik in het Nederlandse taalgebied,
#                Van toepassing vanaf 1 september 2005 »
#              (Federatie Slechtzienden- en Blindenbelang en
#                Belgische Confederatie voor Blinden en Slechtzienden, 2005)
#
# ----------------------------------------------------------------------------------------------

# ----------------------------------------------------------------------------------------------
# Emphasis opcodes
# ----------------------------------------------------------------------------------------------

# cursief
lenitalphrase 3
italsign 456
begital 456
endital 6
firstwordital 456-456

# vet
lenboldphrase 3
boldsign 456
begbold 456
endbold 6
firstwordbold 456-456

# onderstreept
lenunderphrase 3
undersign 456
begunder 456
endunder 6
firstwordunder 456-456

# ----------------------------------------------------------------------------------------------
# Special symbol opcodes
# ----------------------------------------------------------------------------------------------

decpoint  \x002C  2
decpoint  \x002E  256
hyphen    \x002D  36

# ----------------------------------------------------------------------------------------------
# Translation opcodes
# ----------------------------------------------------------------------------------------------

# paragraafteken §
begword \x00A7   346-0
midword \x00A7 0-346-0
endword \x00A7 0-346

# percent %
# promille
endnum  \x0025 0-123456
endnum  \x2030 0-123456-123456

# is-gelijk-teken =
begword \x003D   2356-0
midword \x003D 0-2356
endword \x003D 0-2356-0

# plusteken +
begword \x002B   235-0
endnum  \x002B 5-235

# gedeeld-door-teken ÷
begword \x00F7   256-0
midword \x00F7 0-256-0
endword \x00F7 0-256

# maalteken ×
begword \x00D7   236-0
midword \x00D7 0-236-0
endword \x00D7 0-236

# euroteken
# dollarteken $
# pondteken £
# yenteken ¥
noback joinnum \x20AC 15
noback joinnum \x0024 145
noback joinnum \x00A3 1234
noback joinnum \x00A5 13456

# Eén
context ["E"]"\x00E9"  @123456

# ----------------------------------------------------------------------------------------------
# Various
# ----------------------------------------------------------------------------------------------

# romeinse cijfers in paginanummering
replace  \\_

# herstelteken als getal gevolgd wordt door letters a tot j
class    digitletter                 abcdefghij
context  $d[]%digitletter            @6
context  $d"."[]%digitletter         @6
context  $d","[]%digitletter         @6

# hoofdletters & tekens die permanent hoofdletterteken niet afsluiten
class    uppersign                   -+&.'
context  $U[]$u                      @6
context  $U%uppersign.[]$u           @6
pass2    [@46]$U%uppersign.@46       @45
pass2    [@46]$U%uppersign.@45       @45
pass3    @45$xl.[]@45                @1b       # $xl = %uppersign or $l (letter)
pass3    @45$xl.[@46]                ?
pass3    @46$U[@6]                   ?
pass3    @46$U%uppersign.[@6]        ?
pass4    [@1b-45]                    ?
pass4    [@6]@6                      ?

# plus +
# ampersand &
class    plusamp                     +&
class    noplusamp                   -.'
pass4    $zl[]%plusamp               @5        # $zl = %noplusamp or $l (letter)
pass4    $zl[]%plusamp               @5
pass4    [@235a]%plusamp             @235-5
pass4    [@12346a]%plusamp           @12346-5
pass4    [@235a]                     @235
pass4    [@12346a]                   @12346

# ----------------------------------------------------------------------------------------------
# Braille indicator opcodes
# ----------------------------------------------------------------------------------------------

numsign  3456
capsign  46
begcaps  45
endcaps  6

# ----------------------------------------------------------------------------------------------
