fendo.addon.latin1_source_code.fs

.( fendo.addon.latin1_source_code.fs) cr

\ This file is part of Fendo
\ (http://programandala.net/en.program.fendo.html).

\ This file is the latin1 source code addon.

\ Last modified  20220123T1341+0100.
\ See change log at the end of the file.

\ Copyright (C) 2013,2017,2018 Marcos Cruz (programandala.net)

\ Fendo is free software; you can redistribute it and/or modify it
\ under the terms of the GNU General Public License as published by
\ the Free Software Foundation; either version 2 of the License, or
\ (at your option) any later version.

\ Fendo 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 General Public
\ License for more details.

\ You should have received a copy of the GNU General Public License
\ along with this program; if not, see <http://gnu.org/licenses>.

\ Fendo is written in Forth (http://forth-standard.org)
\ with Gforth (http://gnu.org/software/gforth).

\ ==============================================================
\ Requirements {{{1

forth_definitions

require galope/uncodepaged.fs

fendo_definitions

require ./fendo.addon.source_code.fs
require ./fendo.addon.latin1_charset.fs

\ ==============================================================
\ Code {{{1

: latin1_source_code_translated ( ca len -- ca' len' )
  latin1_charset_to_utf8 uncodepaged ;
  \ Convert the content of a latin1 file to UTF-8.

: latin1_source_code ( ca len -- )
  ['] latin1_source_code_translated is source_code_pretranslated
  source_code ;
  \ Read the content of a latin1 file and echo it.
  \ ca len = file name

.( fendo.addon.latin1_source_code.fs compiled) cr

\ ==============================================================
\ Change log {{{1

\ 2013-12-13: Written.
\
\ 2014-02-15: Fix: path of the Fendo addons is converted to relative.
\
\ 2017-06-22: Update source style, layout and header.
\
\ 2018-12-08: Update notation of page IDs in comments and strings.

\ vim: filetype=gforth