Mercurial > public > hwos_code

view src/text_multilang.inc @ 655:c7b7b8a358cd default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hwOS tech 3.22 release
author heinrichsweikamp
date Mon, 29 Apr 2024 13:05:18 +0200
parents 75e90cd0c2c3
children
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, heinrichs weikamp gmbh, 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

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