HP 9000 User Manual page 164

}
... keep on going if it isn't there
*1
Catd = catopen( "rtlcat". 0);
1*
get file mode and order from LAIGOPTS
*1
if(*(lopts
=
getenv( "LAIGOPTS"»
==
'\0') {
}
1*
if not set assume lon-Latin mode. keyboard order
*1
lopts
=
"n_k";
1*
and do a lazy parse
*1
File~ode
=
lopts[O]
==
'1'
? IL_LATII : IL_IOILATII;
file_order
=
lopts[2]
==
'k'
?
IL_IEY : IL_SCREEI;
1*
parse command line options
... and possibly override file mode and order
*1
opterr = 0;
1*
disable getopt error message
*1
tlhile «optchar = getopt ( argc. argv. "Inks"» != EOF) {
svitch (opt char) {
case '1':
1*
force latin mode
*1
File~ode
= IL_LATII;
break;
case 'n':
1*
force non-latin mode
*1
File~ode
= IL_IOILATII;
break;
case 'k':
1*
force keyboard order
*1
file_order
=
IL_IEY;
break;
case's':
1*
force screen order
*1
file_order
=
IL_SCREEI;
break;
case '?':
1*
unrecognized option
*1
errore FATAL. BAD_USAGE. Progname);
}
}
1*
initialize process routine
*1
if (strcmp( nLlanginfo( DIRECTIOI) • "1"» {
1*
do not have a right-to-left language:
}
... print a varning and do a copy
*1
char *langname;
if(*(langname = getenv( "LAIG"» '\0') {
}
1*
if not set assume C language
*1
langname = "C";
errore VARIIIG. IOT_RTL_LAIG. langname);
Process
=
copy;
else if (! rtl_term{
tte~mode. tte~order.
ttermname» {
Example of Internationalized Software B-7
B