pkg/mnc/mnc_create_dir.c

/*************************************************  -*- mode: C -*-
 * $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_create_dir.c,v 1.1 2004/03/22 05:10:10 edhill Exp $
 * $Name:  $
 */

/*  Here, we get the definition of the FC_NAMEMANGLE() macro. */
#include "FC_NAMEMANGLE.h"

#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <assert.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <sys/time.h>
void FC_NAMEMANGLE(mnccdir) ( int *nienc, int *ienc, int *idate )
{
    char name[512], dname[512];
    struct tm * tmp;
    time_t tt;
    int i, j, n, ntot, iyyyymmdd;
    mode_t mode = 0x0;
    char * cenc = 
        {"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.,+-=/~\0"};
    int ncenc = 70;

    n = ((*nienc) > 100) ? 100 : (*nienc);
    tt = time(&tt);
    tmp = localtime(&tt);
    iyyyymmdd = tmp->tm_mday 
        + 100*(tmp->tm_mon + 1 + 100*(1900+tmp->tm_year));
    for (i=0; i<n; i++) {
        /* printf("ienc = %d, %c\n", ienc[i], cenc[ienc[i] - 1]); */
        name[i] = cenc[ienc[i] - 1];
    }
    name[n] = '\0';
    /* printf("name = \"%s\", n = %d\n", name, n); */
    for (i=1; i<10000; i++) {
        if (*idate == 1) 
            snprintf(dname, 100, "%s%08d_%04d\0", name, iyyyymmdd, i);
        else
            snprintf(dname, 100, "%s%04d\0", name, i);
        mode = S_IRWXU | S_IRWXG | S_IROTH | S_IXOTH;
        if (mkdir(dname, mode) == 0) {
            break;
        }
    }
    n = (int)(strlen(dname));
    /* printf("dname = \"%s\", n = %d\n", dname, n); */
    ntot = 0;
    for (i=0; i<n; i++) {
        for (j=0; j<ncenc; j++) {
            if (cenc[j] == dname[i]) {
                ienc[ntot] = j + 1;
                ntot++;
                break;
            }
        }
    }
    *nienc = ntot;
}


1	edhill	1.1	/************************************************* -- mode: C --
2	edhill	1.2	* $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_create_dir.c,v 1.1 2004/03/22 05:10:10 edhill Exp $
3	edhill	1.1	* $Name: $
4			*/
5
6			/* Here, we get the definition of the FC_NAMEMANGLE() macro. */
7			#include "FC_NAMEMANGLE.h"
8
9			#include <time.h>
10			#include <stdio.h>
11			#include <stdlib.h>
12			#include <unistd.h>
13			#include <assert.h>
14			#include <sys/stat.h>
15			#include <sys/types.h>
16			#include <sys/time.h>
17	edhill	1.2	void FC_NAMEMANGLE(mnccdir) ( int nienc, int ienc, int *idate )
18	edhill	1.1	{
19	edhill	1.2	char name[512], dname[512];
20	edhill	1.1	struct tm * tmp;
21			time_t tt;
22	edhill	1.2	int i, j, n, ntot, iyyyymmdd;
23	edhill	1.1	mode_t mode = 0x0;
24	edhill	1.2	char * cenc =
25			{"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.,+-=/~\0"};
26			int ncenc = 70;
27	edhill	1.1
28	edhill	1.2	n = ((nienc) > 100) ? 100 : (nienc);
29	edhill	1.1	tt = time(&tt);
30			tmp = localtime(&tt);
31	edhill	1.2	iyyyymmdd = tmp->tm_mday
32			+ 100(tmp->tm_mon + 1 + 100(1900+tmp->tm_year));
33			for (i=0; i<n; i++) {
34			/* printf("ienc = %d, %c\n", ienc[i], cenc[ienc[i] - 1]); */
35			name[i] = cenc[ienc[i] - 1];
36			}
37			name[n] = '\0';
38			/* printf("name = \"%s\", n = %d\n", name, n); */
39	edhill	1.1	for (i=1; i<10000; i++) {
40	edhill	1.2	if (*idate == 1)
41			snprintf(dname, 100, "%s%08d_%04d\0", name, iyyyymmdd, i);
42			else
43			snprintf(dname, 100, "%s%04d\0", name, i);
44	edhill	1.1	mode = S_IRWXU \| S_IRWXG \| S_IROTH \| S_IXOTH;
45	edhill	1.2	if (mkdir(dname, mode) == 0) {
46	edhill	1.1	break;
47			}
48			}
49	edhill	1.2	n = (int)(strlen(dname));
50			/* printf("dname = \"%s\", n = %d\n", dname, n); */
51			ntot = 0;
52			for (i=0; i<n; i++) {
53			for (j=0; j<ncenc; j++) {
54			if (cenc[j] == dname[i]) {
55			ienc[ntot] = j + 1;
56			ntot++;
57			break;
58			}
59			}
60			}
61			*nienc = ntot;
62	edhill	1.1	}
63
64