Mercurial > public > hwos_code

view src/text_multilang.inc @ 642:a9a0188091e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix rare upgrade issue with OSTC sport 2019 hardware
author heinrichsweikamp
date Thu, 14 Jan 2021 16:24:07 +0100
parents 4050675965ea
children 75e90cd0c2c3
line wrap: on
line source

;=============================================================================
;
;    File text_multilang.inc                 * combined next generation V3.09.4j
;
;    Implementation of texts in various selectable languages
;
;   Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
;=============================================================================
; HISTORY
;  2011-06-12 : [jDG] Creation
;
; Text definitions (text_french.asm example):
;	TCODE	tYes,	"Oui"					; Yes
;	TCODE	tNo,	"Non"					; No
;	TCODE	tLogbk,	"Carnet de plongées"	; Logbook
;
; Text usage via is done via macros, see strings.inc


;-----------------------------------------------------------------------------
; Pass 1: generate Index Table and define Labels
;-----------------------------------------------------------------------------

TCODE_1 macro label, text
tcode_idx set tcode_idx+1
	If LANG == 0
		global	label
label:
	Endif
	dw		t#v(LANG)_#v(tcode_idx)
	endm


;-----------------------------------------------------------------------------
; Pass 2: generate String Table
;-----------------------------------------------------------------------------

TCODE_2 macro label, text
tcode_idx set tcode_idx+1
t#v(LANG)_#v(tcode_idx):
	db		text, 0
	endm

;-----------------------------------------------------------------------------