Mercurial > public > hwos_code

view src/text_multilang.inc @ 652:9319f90d67d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add tools/o3pack.bat and the required tools/libs
author heinrichsweikamp
date Fri, 11 Aug 2023 14:47:25 +0200
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

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