Open Object Rexx ooRexx

http://www.oorexx.org/
________
[ ~Lurk~ ]
¯¯¯¯¯¯¯¯
All about Instant Messaging -->BigBlueBall

Just happened to be on my PSP at the time which is a bother to type with so couldn't Google it.
Try the QuickPort NSIS Template or UniLaunch.
Check the program with RegMon and FileMon.
Get back to us.
----
R McCue

First of all, what does it have to do with PortableApps? You should probably post this somewhere else. Second, if this is a school project, shouldn't you learn the programming language and do it yourself? Third, what does this have to do with REXX - the specification says use Gentee.

Anyway, here's how I'd do it in REXX:

/* */
parse arg token_file

english_tokens = ''

do while lines(token_file)
english_tokens = english_tokens linein(token_file)
end

do i = 1 to words(english_tokens)
english_token = translate(word(english_tokens, i))
select
when english_token = 'HOUSE' then do
say 'English: house'
say 'German: ein house'
say 'Spanish: la casa'
end
when english_token = 'RAT' then do
say 'English: rat'
say 'German: ein rat'
say 'Spanish: el rat'
end
when english_token = 'HEART' then do
say 'English: heart'
say 'German: ein heart'
say 'Spanish: el heart'
end
when english_token = 'COCKROACH' then do
say 'English: cockroach'
say 'German: ein cockroach'
say 'Spanish: la cucaracha'
end
otherwise do
say 'Unknown English token ignored:' english_token
end
end
say
end

exit

This program doesn't make any assumptions about:
- what order the tokens are in
- whether tokens are in lower case, mixed case or upper case
- whether the tokens are on one line, one token per line or something in between

and it ignores any tokens it doesn't know about

I'm sure there's more elegant ways to do this, but this seems like what you'd be looking for...