lang::message::get_embedded_vars (public)

 lang::message::get_embedded_vars message

Defined in packages/acs-lang/tcl/lang-message-procs.tcl

Returns a list of embedded substitution variables on the form %varname% in a message. This is useful if you want to check that the variables used in a translated message also appear in the en_US message. If not, there's likely to be a typo.

Parameters:

message - A message with embedded %varname% notation

Returns:

The list of variables in the message

Author:

Peter Marklund <peter@collaboraid.biz>

Created:

12 November 2002

Partial Call Graph (max 5 caller/called nodes):

Testcases:

message__get_embedded_vars

Source code:

    set variables_list [list]
    set remaining_message $message
    while { [regexp [embedded_vars_regexp] $remaining_message  match before_percent percent_match remaining_message] } {

        if {$percent_match eq "%%"} {
            # A quoted percentage sign - ignore
            continue
        } else {
            lappend variables_list [string range $percent_match 1 end-1]
        }
    }

    return $variables_list

Generic XQL file:

packages/acs-lang/tcl/lang-message-procs.xql

PostgreSQL XQL file:

packages/acs-lang/tcl/lang-message-procs-postgresql.xql

Oracle XQL file:

packages/acs-lang/tcl/lang-message-procs-oracle.xql