pkg/mnc/mnc_create_dir.c

/*************************************************  -*- mode: C -*-
 * $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_create_dir.c,v 1.3 2005/06/16 16:59:02 ce107 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>
#include <string.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) > 500) ? 500 : (*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, 500, "%s%08d_%04d\0", name, iyyyymmdd, i);
        else
            snprintf(dname, 500, "%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	/************************************************* -- mode: C --
2	* $Header: /u/gcmpack/MITgcm/pkg/mnc/mnc_create_dir.c,v 1.3 2005/06/16 16:59:02 ce107 Exp $
3	* $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	#include <string.h>
18	void FC_NAMEMANGLE(mnccdir) ( int nienc, int ienc, int *idate )
19	{
20	char name[512], dname[512];
21	struct tm * tmp;
22	time_t tt;
23	int i, j, n, ntot, iyyyymmdd;
24	mode_t mode = 0x0;
25	char * cenc =
26	{"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.,+-=/~\0"};
27	int ncenc = 70;
28
29	n = ((nienc) > 500) ? 500 : (nienc);
30	tt = time(&tt);
31	tmp = localtime(&tt);
32	iyyyymmdd = tmp->tm_mday
33	+ 100(tmp->tm_mon + 1 + 100(1900+tmp->tm_year));
34	for (i=0; i<n; i++) {
35	/* printf("ienc = %d, %c\n", ienc[i], cenc[ienc[i] - 1]); */
36	name[i] = cenc[ienc[i] - 1];
37	}
38	name[n] = '\0';
39	/* printf("name = \"%s\", n = %d\n", name, n); */
40	for (i=1; i<10000; i++) {
41	if (*idate == 1)
42	snprintf(dname, 500, "%s%08d_%04d\0", name, iyyyymmdd, i);
43	else
44	snprintf(dname, 500, "%s%04d\0", name, i);
45	mode = S_IRWXU \| S_IRWXG \| S_IROTH \| S_IXOTH;
46	if (mkdir(dname, mode) == 0) {
47	break;
48	}
49	}
50	n = (int)(strlen(dname));
51	/* printf("dname = \"%s\", n = %d\n", dname, n); */
52	ntot = 0;
53	for (i=0; i<n; i++) {
54	for (j=0; j<ncenc; j++) {
55	if (cenc[j] == dname[i]) {
56	ienc[ntot] = j + 1;
57	ntot++;
58	break;
59	}
60	}
61	}
62	*nienc = ntot;
63	}
64
65