MOO-cows Mailing List Archive

Re: Support for alt. language

Date: Fri, 9 Feb 1996 22:03:56 PST
From:
Richard Connamacher <phantom@baymoo.sfsu.edu>
CC: pavel@parc.xerox.com, moo-cows@parc.xerox.com
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=us-ascii
References: <9602091755.AA01889@aldan.paragraph.com>

@verb $code_utils:message tnt rx
@program $code_utils:message
what = args[1];
mesg = args[2];
language = args[3];
if (language == "English")
  messagename = mesg+"_eng_msg";
elseif (language == "Spanish")
  messagename = mesg+"_spa_msg";
elseif (language == "German")
  messagename = mesg+"_ger_msg";
else
  messagename = mesg+"_alt_msg";
endif
message = (msg = what:(messagename)() ? msg | what.(messagename));
return message;
.

This may be what you're thinking of.  I just whipped it up right now, so 
it may have a dumb parse error in it somewhere.  It's the general idea 
though.  Instead of verbs referencing messages directly with 
(this.somthing_msg), it calls $code_utils:message(this, "something", 
"spanish") to get the spanish version of the message.

Phantom

References:

Re: Support for alt. language

From: Dima@aldan.paragraph.com

Home | Subject Index | Thread Index