X25AM Programming Manual

PTP Applications
X25AM Programming Manual—527201-001
3-81
Text of C Example
char *FileName( char *file_name )
{
char *save_ptr;
char *wp;
save_ptr = wp = file_name;
while( *wp != EOS )
{
if( *wp++ == '.' ) save_ptr = wp;
}; /* while (*wp != EOS ) */
return( save_ptr );
} /* FileName() */
/*
*----------------------------------------------------------------------
* GET_DEFAULTS FUNCTION
* ---------------------
*
* This function retrieves the defaults and converts them to
* an internal file name format.
*
*----------------------------------------------------------------------
*/
void GetDefaults( char *defaults )
{
register int count;
register char *ext_defaults;
register char *wp;
ext_defaults = getenv( "DEFAULTS" );
wp = defaults;
if( *ext_defaults == '\\' )
{
while( *ext_defaults != '.' & *ext_defaults != EOS )
{
ext_defaults++;
}; /* while */
if( *ext_defaults == '.' ) ext_defaults++;
}; /* if */
count = 8;
while( *ext_defaults != EOS )