/************************************************************************
*                                                                       *    
*  Copyright Digital Equipment Corporation 1998. All rights reserved.   *
*                                                                       *    
*  Restricted Rights: Use, duplication, or disclosure by the U.S.       *    
*  Government is subject to restrictions as set forth in subparagraph   *    
*  (c) (1) (ii) of DFARS 252.227-7013, or in FAR 52.227-19, or in FAR   *    
*  52.227-14 Alt. III, as applicable.                                   *    
*                                                                       *    
*  This software is proprietary to and embodies the confidential        *    
*  technology of Digital Equipment Corporation. Possession, use, or     *    
*  copying of this software and media is authorized only pursuant to a  *    
*  valid written license from Digital or an authorized sublicensor.     *    
*                                                                       *    
************************************************************************/

/*      decc$to_vms_example.c   */

/* Translate "Unix" wildcard file names to VMS names    */
/* Define as a foreign command and provide the name     */
/* as an argument.                                      */

#include <unixlib.h>
#include <stdio.h>
int print_name(char *, int);
int main(int argc, char *argv[])
{
    int number_found;           /* number of files found */

    printf("Translating: %s\n", argv[1]);

    number_found = decc$to_vms(argv[1], print_name, 1, 0);
    printf("%d files found\n", number_found);
}

/* action routine that prints name and type on each line */

int print_name(char *name, int type)
{
    if (type == DECC$K_DIRECTORY)
        printf("directory: %s\n", name);
    else if (type == DECC$K_FOREIGN)
        printf("remote non-VMS: %s\n", name);
    else
        printf("file:        %s\n", name);

    /* Translation continues as long as success status is returned */
    return (1);
}