HP 9000 User Manual page 169

8
}
1*
print the program name on stderr
*1
ir (rprintr( stderr, "%s: ", Progname)
<
0) {
Perror ( "rprintrII ) ;
}
1*
print the error message on stderr
*1
ir (vfprintr( stderr, rmt, args) <
0) {
Perror( "vfprintr");
}
1*
close dovn the optional argument list
*1
va_end( args);
1*
leave ir a ratal error
*1
ir (ratal) {
(void) rinish( );
ir (rclose( Input)
Perror( "rclose");
}
exit( BAD);
}
EOF) {
1*
**************************************************************************
** get_basename()
**
** description:
** get the basename or the command
**
** assumptions:
** the command name may have multi-byte characters
**
** return value:
** ptr to start or base name
**************************************************************************
*1
static char *
get_basename( p)
char *p;
1*
ptr to start or command name
*1
{
char *slash;
1*
pointer to char arter slash
*1
ror (slash = p ; *p ; ADVANCE( p»
{
ir (CHARAT( p) ==
'I') {
}
}
slash = p
+
1;
8-12 Example of Internationalized Software