プログラマ専用SNS ミクプラ

コード:

 
int main(void)
{

    int state = INPUT_YEAR;
    char n = 0;
	FILE *fp;
	if( (fp = fopen("Calendar.txt", "a") ) == NULL)  /* 起動時にメモ帳を新規作成する */
	{
		printf("Calendar.txtが開けません\n");        
		getchar();
		exit(EXIT_FAILURE);
	}
	fclose(fp);

			printf("\n***********メモ機能付きカレンダー************\n\n");
			printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
			printf("*   (注)スペース等は入力しないでください    *\n");
			printf("*                                           *\n");
			printf("*      最初から入力の場合は 「s」を入力     *\n");
			printf("*      前に戻りたい場合は   「b」を入力     *\n");
			printf("*      次の処理に行くには   「g」を入力     *\n");
			printf("*      メニューの表示には   「m」を入力     *\n");
			printf("*      カレンダーの確認は   「c」を入力     *\n");
			printf("*      プログラムの終了は   「x」を入力     *\n");
			printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

   while( 1 )                                        /* M E N Uのループ */
	{
        switch( state )                              /*  switchで状態別の処理 */    
		{
/*==============================================================*/
/*                  西暦の入力                                  */
/*==============================================================*/
        case INPUT_YEAR:
            while(1) 
			{
                printf("西暦を入力してください(1970年から2038年まで有効)>>");
				scanf("%d",&year);
				fflush(stdin);
                if((year > 1969) && (year < 2039))
				{
                    state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,INPUT_MONTH,ERROR,END,ERROR);   /*状態によりMENU操作(前)へ*/
                    break;
                }
				else 
				{
                    error(year);
                    continue;
                }
            }
			break;
/*==============================================================*/
/*                    月の入力                                  */
/*==============================================================*/
        case INPUT_MONTH:
            while(1)
            {
                printf("月を入力してください(1月から12月まで有効)>>");
                scanf("%d", &month);
				fflush(stdin);
                if((month > 0) && (month < 13))
				{
                    state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,CALENDAR,ERROR,END,ERROR); /*MENU操作カレンダー(前)へ*/
                    break;
                }
				else
				{
                    error(month);
                    continue;
                }
            }
			break;
/*==============================================================*/
/*                 カレンダーの表示                      　     */
/*==============================================================*/
		case CALENDAR:
			while(1)
			{
				int i, e, w;

				w = week_of_day(year, month, 1);       /* 1日の曜日を求める */
				e = month_last_day(year, month);       /* 月の最終日を求める */
    
				printf(" ******%d年%d月*****\n", year, month);
				printf(" 日 月 火 水 木 金 土\n");
				printf(" --------------------\n");
       
				for (i = 1; i <= w; i++)			   /* 1日まで空白で埋める */
				{      
					printf("   ");
				}
				for (i = 1; i <= e; i++)			   /* 最終日まで表示 */
				{
					printf(" %2d", i);
					if ( (i + w) % 7 == 0)			   /* 土曜日で改行 */
					{    
						putchar('\n');
					}
				}
				printf("\n--------------------\n");

				if(state == 3)
				{
                    state = select_2(MENU,INPUT_YEAR,INPUT_MONTH,READ_OR_WRITE,CALENDAR,END,ERROR); /*MENU操作カレンダー(後)へ*/
                    break;
                }
				else
				{
					error(calendar);
					continue;
				}
			}
			break;
/*==============================================================*/
/*                    Read/Writeの選択(未)                        */
/*==============================================================*/
		case READ_OR_WRITE:
			break;
		}
	}
	return 0;
}
 

コード:

/*==============================================================*/
/*            「M E N U」の操作、カレンダー(前)                 */
/*==============================================================*/

int select_1(int selm,int sels,int selb,int selg,int selc,int selx,int sele)
{
	while(1)
	{
		char n=0,str[256];
		printf("操作を「M E N U」から選んでください>>");
		scanf("%255[^\n]%*[^\n]",str);
		getchar();
		if(strlen(str) == 1)                            
		{
			n = str[0];
		}
		if(n =='m')
		{
			return selm;
		}
		else if(n == 's')
		{
			return sels;
		}
		else if(n == 'b')                            
		{
			return selb;
		}
		else if(n == 'g')
		{
			return selg;
		}
		else if(n == 'c')
		{
			printf("**************ERROR*************\n");
			printf("西暦と月の入力が完了していません\n");
			continue;
		}
		else if(n == 'x')
		{
			return selx;
		}
		else 
		{
			printf("**********ERROR***********\n");
			printf("不適切な値が入力されました\n");
			continue;
		}
		break;
	}
    return 0;
}

コード:

//メニュー略

case MENU:
printf("\n***********メモ機能付きカレンダー************\n\n");
            printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
            printf("*   (注)スペース等は入力しないでください    *\n");
            printf("*                                           *\n");
            printf("*      最初から入力の場合は 「s」を入力     *\n");
            printf("*      前に戻りたい場合は   「b」を入力     *\n");
            printf("*      次の処理に行くには   「g」を入力     *\n");
            printf("*      メニューの表示には   「m」を入力     *\n");
            printf("*      カレンダーの確認は   「c」を入力     *\n");
            printf("*      プログラムの終了は   「x」を入力     *\n");
            printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

コード:

    int state = MENU;

コード:

//メニュー略
 
case MENU:
printf("\n***********メモ機能付きカレンダー************\n\n");
            printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
            printf("*   (注)スペース等は入力しないでください    *\n");
            printf("*                                           *\n");
            printf("*      最初から入力の場合は 「s」を入力     *\n");
            printf("*      前に戻りたい場合は   「b」を入力     *\n");
            printf("*      次の処理に行くには   「g」を入力     *\n");
            printf("*      メニューの表示には   「m」を入力     *\n");
            printf("*      カレンダーの確認は   「c」を入力     *\n");
            printf("*      プログラムの終了は   「x」を入力     *\n");
            printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

            state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,INPUT_MONTH,ERROR,END,ERROR);   /*状態によりMENU操作(前)へ*/
            break;

コード:

printf("\n***********メモ機能付きカレンダー************\n\n");
            printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
            printf("*   (注)スペース等は入力しないでください    *\n");
            printf("*                                           *\n");
            printf("*      最初から入力の場合は 「s」を入力     *\n");
            printf("*      前に戻りたい場合は   「b」を入力     *\n");
            printf("*      次の処理に行くには   「g」を入力     *\n");
            printf("*      メニューの表示には   「m」を入力     *\n");
            printf("*      カレンダーの確認は   「c」を入力     *\n");
            printf("*      プログラムの終了は   「x」を入力     *\n");
            printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

コード:

int main(void)
{
 
    int state = INPUT_YEAR;
    char n = 0;
    FILE *fp;
    if( (fp = fopen("Calendar.txt", "a") ) == NULL)  /* 起動時にメモ帳を新規作成する */
    {
        printf("Calendar.txtが開けません\n");        
        getchar();
        exit(EXIT_FAILURE);
    }
    fclose(fp);
 
　　menuprint();
 
   while( 1 )                                        /* M E N Uのループ */
    {
        switch( state )                              /*  switchで状態別の処理 */    
        {
case MENU:
　　menuprint();
            state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,INPUT_MONTH,ERROR,END,ERROR);   /*状態によりMENU操作(前)へ*/
            break;

コード:

//成功するまでループ
while( 0==scanf("%d", &month) ) {　//数値以外だと0で戻ってくるのでwhileループすることに成る。
 scanf("%*s");//入力バッファをクリアする。必須。
}

コード:

case INPUT_MONTH:
            while(1)
            {
                printf("月を入力してください(1月から12月まで有効)>>");
                //ここに先ほどのを入れる？

                if((month > 0) && (month < 13))
				{

コード:

//成功するまでループ
while( 0==scanf("%d", &month) ) {　//数値以外だと0で戻ってくるのでwhileループすることに成る。
 scanf("%*s");//入力バッファをクリアする。必須。
}

コード:

        case INPUT_MONTH:
            while(1)
            {
                printf("月を入力してください(1月から12月まで有効)>>");
				while( 0 == scanf("%d", &month)){
				scanf("%*s");
				fflush(stdin);
				}

コード:

			printf("\n***********メモ機能付きカレンダー************\n\n");
			printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
			printf("*   (注)スペース等は入力しないでください    *\n");
			printf("*                                           *\n");
			printf("*      最初から入力の場合は 「s」を入力     *\n");
			printf("*      前に戻りたい場合は   「b」を入力     *\n");
			printf("*      次の処理に行くには   「g」を入力     *\n");
			printf("*      メニューの確認には   「m」を入力     *\n");
			printf("*      カレンダーの確認は   「c」を入力     *\n");
			printf("*      プログラムの終了は   「x」を入力     *\n");
			printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

    while( 1 )                                        /* M E N Uのループ */
	{
        switch( state )                              /*  switchで状態別の処理 */    
		{
/*==============================================================*/
/*                      MENU画面の呼び出し                      */
/*==============================================================*/
		case MENU:

			printf("\n***********メモ機能付きカレンダー************\n\n");
			printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
			printf("*   (注)スペース等は入力しないでください    *\n");
			printf("*                                           *\n");
			printf("*      最初から入力の場合は 「s」を入力     *\n");
			printf("*      前に戻りたい場合は   「b」を入力     *\n");
			printf("*      次の処理に行くには   「g」を入力     *\n");
			printf("*      メニューの確認には   「m」を入力     *\n");
			printf("*      カレンダーの確認は   「c」を入力     *\n");
			printf("*      プログラムの終了は   「x」を入力     *\n");
			printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

            state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,INPUT_MONTH,ERROR,END,ERROR);   /*状態によりMENU操作へ*/
            break; 

コード:

int main(void)
{

    int state = INPUT_YEAR;
    char n = 0;
	FILE *fp;
	if( (fp = fopen("Calendar.txt", "a") ) == NULL)  /* 起動時にメモ帳を新規作成する */
	{
		printf("Calendar.txtが開けません\n");        
		getchar();
		exit(EXIT_FAILURE);
	}
	fclose(fp);

			printf("\n***********メモ機能付きカレンダー************\n\n");
			printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
			printf("*   (注)スペース等は入力しないでください    *\n");
			printf("*                                           *\n");
			printf("*      最初から入力の場合は 「s」を入力     *\n");
			printf("*      前に戻りたい場合は   「b」を入力     *\n");
			printf("*      次の処理に行くには   「g」を入力     *\n");
			printf("*      メニューの確認には   「m」を入力     *\n");
			printf("*      カレンダーの確認は   「c」を入力     *\n");
			printf("*      プログラムの終了は   「x」を入力     *\n");
			printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

    while( 1 )                                        /* M E N Uのループ */
	{
        switch( state )                              /*  switchで状態別の処理 */    
		{
/*==============================================================*/
/*                      MENU画面の呼び出し                      */
/*==============================================================*/
		case MENU:

			printf("\n***********メモ機能付きカレンダー************\n\n");
			printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
			printf("*   (注)スペース等は入力しないでください    *\n");
			printf("*                                           *\n");
			printf("*      最初から入力の場合は 「s」を入力     *\n");
			printf("*      前に戻りたい場合は   「b」を入力     *\n");
			printf("*      次の処理に行くには   「g」を入力     *\n");
			printf("*      メニューの確認には   「m」を入力     *\n");
			printf("*      カレンダーの確認は   「c」を入力     *\n");
			printf("*      プログラムの終了は   「x」を入力     *\n");
			printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

            state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,INPUT_MONTH,ERROR,END,ERROR);   /*状態によりMENU操作へ*/
            break; 

/*==============================================================*/
/*                  西暦の入力                                  */
/*==============================================================*/
        case INPUT_YEAR:
            while(1) 
			{
                printf("西暦を入力してください(1970年から2038年まで有効)>>");
				scanf("%d",&year); /*未*/
				fflush(stdin);                          

                if((year > 1969) && (year < 2039))
				{
                    state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,INPUT_MONTH,ERROR,END,ERROR);   /*状態によりMENU操作(前)へ*/
                    break;
                }
				else 
				{
                    error(year);
                    continue;
                }
            }
			break;
/*==============================================================*/
/*                    月の入力                                  */
/*==============================================================*/
        case INPUT_MONTH:
            while(1)
            {
                printf("月を入力してください(1月から12月まで有効)>>");
				scanf("%d",&year); /*未*/
				fflush(stdin);    

                if((month > 0) && (month < 13))
				{
                    state = select_1(MENU,INPUT_YEAR,INPUT_YEAR,CALENDAR,ERROR,END,ERROR); /*MENU操作カレンダー(前)へ*/
                    break;
                }
				else
				{
                    error(month);
                    continue;
                }
            }
			break;
/*==============================================================*/
/*                 カレンダーの表示                      　     */
/*==============================================================*/
		case CALENDAR:
			while(1)
			{
				int i, e, w;

				w = week_of_day(year, month, 1);       /* 1日の曜日を求める */
				e = month_last_day(year, month);       /* 月の最終日を求める */
    
				printf(" ******%d年%d月*****\n", year, month);
				printf(" 日 月 火 水 木 金 土\n");
				printf(" --------------------\n");
       
				for (i = 1; i <= w; i++)			   /* 1日まで空白で埋める */
				{      
					printf("   ");
				}
				for (i = 1; i <= e; i++)			   /* 最終日まで表示 */
				{
					printf(" %2d", i);
					if ( (i + w) % 7 == 0)			   /* 土曜日で改行 */
					{    
						putchar('\n');
					}
				}
				printf("\n--------------------\n");

				if(state == 3)
				{
                    state = select_2(MENU,INPUT_YEAR,INPUT_MONTH,READ_OR_WRITE,CALENDAR,END,ERROR); /*MENU操作カレンダー(後)へ*/
                    break;
                }
				else
				{
					error(calendar);
					continue;
				}
			}
			break;
/*==============================================================*/
/*                    Read/Writeの選択                          */
/*==============================================================*/
		case READ_OR_WRITE:
			break;

		case INPUT_DAY:
			break;

		case INPUT_MEMO:
			break;
		
		case END:
			return 0;
		}
	}
	return 0;
}
/*==============================================================*/
/*                     曜日を求める                             */
/*==============================================================*/
int week_of_day(int year, int month, int day)
{
		if(month == 1)
		{
			year = year - 1;
			month = 13;
		}
		else if(month == 2)
		{
			year = year - 1;
			month = 14; 
		}
		return (5 * year / 4 - year / 100 + year / 400 + (26 * month + 16) / 10 + day ) % 7;
}

/*==============================================================*/
/*                      月の最終日                              */
/*==============================================================*/
int month_last_day(int year, int month)
{
		int d = 0, last[] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};

		if (month == 2) {
			d = last[month - 1] + leap_year(year);    /* 閏年なら+1 */
		}
		else if (month >= 1 && month <= 12) {
			d = last[month - 1];
		}
		return d;
}

/*==============================================================*/
/*                      閏年の判定                              */
/*==============================================================*/
int leap_year(int year)
{
		{
		int rc = 0;

		if (year % 4 == 0  &&  (year % 100 != 0 || year % 400 == 0))
		{
			rc = 1;
		}
		return rc;
		}
}
/*==============================================================*/
/*            「M E N U」の操作、カレンダー(前)                 */
/*==============================================================*/

int select_1(int selm,int sels,int selb,int selg,int selc,int selx,int sele)
{
	while(1)
	{
		printf("操作を「M E N U」から選んでください>>");
		scanf("%255[^\n]%*[^\n]",str);
		getchar();
		if(strlen(str) == 1)                            
		{
			n = str[0];
		}
		if(n =='m')
		{
			return selm;
		}
		else if(n == 's')
		{
			return sels;
		}
		else if(n == 'b')                            
		{
			return selb;
		}
		else if(n == 'g')
		{
			return selg;
		}
		else if(n == 'c')
		{
			printf("**************ERROR*************\n");
			printf("西暦と月の入力が完了していません\n");
			continue;
		}
		else if(n == 'x')
		{
			return selx;
		}
		else 
		{
			printf("**********ERROR***********\n");
			printf("不適切な値が入力されました\n");
			continue;
		}
		break;
	}
    return 0;
}
 
/*==============================================================*/
/*            「M E N U」の操作、カレンダー(後)                 */
/*==============================================================*/

int select_2(int selm,int sels,int selb,int selg,int selc,int selx,int sele)
{
	while(1)
	{
		printf("操作を「M E N U」から選んでください>>");
		scanf("%255[^\n]%*[^\n]",str);
		getchar();
		if(strlen(str) == 1)                            
		{
			n = str[0];
		}
		if(n =='m')
		{
			return selm;
		}
		else if(n == 's')
		{
			return sels;
		}
		else if(n == 'b')                            
		{
			return selb;
		}
		else if(n == 'g')
		{
			return selg;
		}
		else if(n == 'c')
		{
			return selc;
		}
		else if(n == 'x')
		{
			return selx;
		}
		else 
		{
			printf("**********ERROR***********\n");
			printf("不適切な値が入力されました\n");
			continue;
		}
		break;
	}
    return 0;
}

/*==============================================================*/
/*                      エラー処理                              */
/*==============================================================*/ 
void error(int)
{
	printf("**********ERROR***********\n");
    printf("不適切な値が入力されました\n");
}

コード:

#pragma warning(disable:4996)  //エラー警告抑制

/* 各プロトタイプ宣言 */

/*西暦と月の入力前MENU操作*/												 
int select_1(int selm,int sels,int selb,int selg,int selc,int selx,int sele);

/*西暦と月の入力後MENU操作*/
int select_2(int selm,int sels,int selb,int selg,int selc,int selx,int sele);

void error(int n);

char n=0,str[256];
int year,month,day,calendar,notes;

int month_last_day(int year, int month);
int week_of_day(int year, int month, int day);
int leap_year(int year);
 
/* 状態管理の定数 */
enum {
	MENU,		   /* メニューの表示(前) */
    INPUT_YEAR,    /* 西暦を入力 */
    INPUT_MONTH,   /* 月を入力 */
    CALENDAR,      /* カレンダー表示 */
	READ_OR_WRITE, /* Read/Write選択 */
	INPUT_DAY,     /* 日付を入力 */
    INPUT_MEMO,    /* メモを入力 */
    END,           /* 終了 */
	ERROR,		   /* ERROR処理 */
};

コード:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "calendar.h"

コード:

/*==============================================================*/
/*                      MENU表示                                */
/*==============================================================*/ 

int menuprint(int)
{
			printf("\n***********メモ機能付きカレンダー************\n\n");
			printf("* * * * * * * * * M E N U * * * * * * * * * *\n");
			printf("*   (注)スペース等は入力しないでください    *\n");
			printf("*                                           *\n");
			printf("*      最初から入力の場合は 「s」を入力     *\n");
			printf("*      前に戻りたい場合は   「b」を入力     *\n");
			printf("*      次の処理に行くには   「g」を入力     *\n");
			printf("*      メニューの確認には   「m」を入力     *\n");
			printf("*      カレンダーの確認は   「c」を入力     *\n");
			printf("*      プログラムの終了は   「x」を入力     *\n");
			printf("* * * * * * * * * * * * * * * * * * * * * * *\n\n");

			return 0;

}

コード:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

typedef struct Message {
    int date;
    char *msg;
    struct Message *prev, *next;
} Message;

typedef struct {
    int year, month, day;
    Message root, *message[32];
} Data;

int day_of_week(int y, int m, int d)
{
    y -= m < 3;
    return (y + y/4 - y/100 + y/400 + ".bed=pen+mad."[m] + d) % 7;
}

int is_leap(int y) { return y % 4 == 0 && (y % 100 || y % 400 == 0); }

int last_day(int y, int m)
{
    return (m == 2) ? is_leap(y) + 28 : (0x15aa>>m & 1) + 30;
}

void print_calendar(Data *dp)
{
    int w = day_of_week(dp->year, dp->month, 1);
    int z = last_day(dp->year, dp->month), d;

    printf("%13d年 %d月\n" " 日  月  火  水  木  金  土\n" "%*s",
        dp->year, dp->month, w * 4, "");
    for (d = 1; d <= z; d++)
        printf("%*c%d%c", (d<10)+1, dp->message[d]?'*':' ', d, ++w%7?' ':'\n');
    printf(w % 7 ? "\n\n" : "\n"); 
}

void print_help(void)
{
    puts(" q      : 終了 (quit)\n"
         " h      : ヘルプ (help)\n"
         " nnnn   : 年の変更 (1901～2099)\n"
         " m [nn] : 月(month)の変更とカレンダー表示\n"
         " nn     : その日のメモ表示 (1～31)\n"
         " w [nn] : メモの書き込み (write)\n"
         " d [nn] : その日のメモの削除 (delete)\n");
}

void print_message(Data *dp)
{
    printf("%d/%d/%d: %s", dp->year, dp->month, dp->day,
        dp->message[dp->day] ? dp->message[dp->day]->msg : "\n");
}

int confirm(const char *message)
{
    char buf[1024];
    printf("%s (y/n): ", message);
    return fgets(buf, sizeof(buf), stdin) && buf[0] == 'y';
}

void load_message(Data *dp)
{
    char buf[1024];
    FILE *fp = fopen("Calendar.txt", "r");
    if (!fp) return;
    dp->root.prev = dp->root.next = &dp->root;
    while (fgets(buf, sizeof(buf), fp)) {
        int y, m, d, n;
        if (sscanf(buf, "%d/%d/%d %n", &y, &m, &d, &n) == 3) {
            Message *mp = malloc(sizeof(Message));
            mp->date = y << 9 | m << 5 | d;
            mp->msg = strdup(buf + n);
            mp->prev = dp->root.prev;
            mp->next = &dp->root;
            dp->root.prev = dp->root.prev->next = mp;
        }
    }
    fclose(fp);
}

void save_message(Data *dp)
{
    FILE *fp = fopen("Calendar.txt", "w");
    if (fp) {
        Message *mp = dp->root.next;
        while (mp != &dp->root) {
            Message *np = mp->next;
            fprintf(fp, "%d/%02d/%02d %s", mp->date >> 9,
                mp->date >> 5 & 0x0f, mp->date & 0x1f, mp->msg);
            free(mp->msg);
            free(mp);
            mp = np;
        }
    }
}

void set_message(Data *dp)
{
    int date1 = dp->year << 9 | dp->month << 5 | 1;
    int date31 = dp->year << 9 | dp->month << 5 | 31;
    Message *mp = dp->root.next;
    int d;
    for (d = 0; d < 32; d++) dp->message[d] = 0;
    for (; mp != &dp->root && mp->date <= date31; mp = mp->next)
        if (mp->date >= date1) dp->message[mp->date & 0x1f] = mp;
}

void delete_message(Data *dp)
{
    Message *mp = dp->message[dp->day];
    if (mp) {
        mp->prev->next = mp->next;
        mp->next->prev = mp->prev;
        free(mp->msg);
        free(mp);
        dp->message[dp->day] = 0;
    }
}

void write_message(Data *dp, const char *buf)
{
    Message *mp = dp->message[dp->day];
    if (mp) {
        free(mp->msg);
        mp->msg = strdup(buf);
    } else {
        int date = dp->year << 9 | dp->month << 5 | dp->day;
        Message *np = dp->root.next;
        for ( ; np != &dp->root && np->date < date; np = np->next) ;
        mp = malloc(sizeof(Message));
        mp->date = date;
        mp->msg = strdup(buf);
        mp->prev = np->prev;
        mp->next = np;
        np->prev = np->prev->next = mp;
        dp->message[dp->day] = mp;
    }
}

int main(void)
{
    Data data;
    char buf[1024];
    time_t t = time(0);
    struct tm *tp = localtime(&t);
    data.year = tp->tm_year + 1900;
    data.month = tp->tm_mon + 1;
    data.day = tp->tm_mday;

    load_message(&data);
    set_message(&data);
    print_help();
    print_calendar(&data);
    print_message(&data);
    while (printf("> "),fgets(buf, sizeof(buf), stdin)) {
        int n = atoi(buf);
        if (n > 1900 && n < 2100 && n != data.year)  // change year
            data.year = n, print_calendar(&data);
        else if (n >= 1 && n <= 31)  // print message of the day
            data.day = n, print_message(&data);
        else if (buf[0] == 'm') {  // change month and print calendar
            n = atoi(buf + 1);
            if (n >= 1 && n <= 12 && n != data.month)
                data.month = n, set_message(&data);
            print_calendar(&data);
        } else if (buf[0] == 'w') {  // write
            n = atoi(buf + 1);
            if (n >= 1 && n <= last_day(data.year, data.month)) data.day = n;
            printf("%d/%d/%d: ", data.year, data.month, data.day);
            if (fgets(buf, sizeof(buf), stdin) && buf[0] != '\n') {
                if (!data.message[data.day] || confirm("上書きしますか?"))
                    write_message(&data, buf), print_calendar(&data);
            }
        } else if (buf[0] == 'd') {  // delete
            n = atoi(buf + 1);
            if (n >= 1 && n <= last_day(data.year, data.month)) data.day = n;
            if (data.message[data.day] && confirm("削除しますか？"))
               delete_message(&data), print_calendar(&data);
        } else if (buf[0] == 'q') {  // quit
            if (confirm("終了しますか?")) break;
        } else if (buf[0] == 'h') print_help();
    }
    save_message(&data);
    return 0;
}

コード:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

typedef struct Message {
    int date;
    char *msg;
    struct Message *prev, *next;
} Message;

typedef struct {
    int year, month, day;
    Message root, *message[32];
} Data;

void print_help(void)
{
    puts(" q          : 終了 (quit)\n"
         " h          : ヘルプ (help)\n"
         " 1901～2099 : 年の指定\n"
         " m [1～12]  : 月の指定とカレンダーの表示 (month)\n"
         " 1～31      : 日の指定とメモの表示\n"
         " w [1～31]  : 日の指定とメモの書き込み (write)\n"
         " d [1～31]  : 日の指定とメモの削除 (delete)\n");
}

int day_of_week(int y, int m, int d)
{
    y -= m < 3;
    return (y + y/4 - y/100 + y/400 + ".bed=pen+mad."[m] + d) % 7;
}

#define IS_LEAP(y) ((y) % 4 == 0 && ((y) % 100 || (y) % 400 == 0))

int last_day(int y, int m)
{
    return (m == 2) ? IS_LEAP(y) + 28 : (0x15aa>>m & 1) + 30;
}

void print_calendar(Data *dp)
{
    int w = day_of_week(dp->year, dp->month, 1);
    int z = last_day(dp->year, dp->month), d;

    printf("%13d年 %d月\n" " 日  月  火  水  木  金  土\n" "%*s",
        dp->year, dp->month, w * 4, "");
    for (d = 1; d <= z; d++)
        printf("%*c%d%c", (d<10)+1, dp->message[d]?'*':' ', d, ++w%7?' ':'\n');
    puts(w % 7 ? "\n" : ""); 
}

void print_message(Data *dp)
{
    printf("%d/%d/%d: %s", dp->year, dp->month, dp->day,
        dp->message[dp->day] ? dp->message[dp->day]->msg : "\n");
}

int confirm(const char *message)
{
    char buf[1024];
    printf("%s (y/n): ", message);
    return fgets(buf, sizeof(buf), stdin) && buf[0] == 'y';
}

Message *insert(Message *pos, int date, const char *msg)
{
	Message *mp = malloc(sizeof(Message));
	mp->date = date;
	mp->msg  = strdup(msg);
	mp->prev = pos->prev;
	mp->next = pos;
	return pos->prev = pos->prev->next = mp;
}

void load_message(Data *dp)
{
    char buf[1024];
    int y, m, d, n;
    FILE *fp = fopen("Calendar.txt", "r");
    dp->root.prev = dp->root.next = &dp->root;
    if (!fp) return;
    while (fgets(buf, sizeof(buf), fp))
        if (sscanf(buf, "%d/%d/%d %n", &y, &m, &d, &n) == 3)
			insert(&dp->root, y << 9 | m << 5 | d, buf + n);
    fclose(fp);
}

void save_message(Data *dp)
{
    FILE *fp = fopen("Calendar.txt", "w");
    if (fp) {
        Message *mp = dp->root.next;
        while (mp != &dp->root) {
            Message *np = mp->next;
            fprintf(fp, "%d/%02d/%02d %s", mp->date >> 9,
                mp->date >> 5 & 0x0f, mp->date & 0x1f, mp->msg);
            free(mp->msg);
            free(mp);
            mp = np;
        }
        fclose(fp);
    }
}

void set_message(Data *dp)
{
    int date1 = dp->year << 9 | dp->month << 5 | 1;
    int date31 = dp->year << 9 | dp->month << 5 | 31;
    Message *mp = dp->root.next;
    int d;
    for (d = 0; d < 32; d++) dp->message[d] = 0;
    for (; mp != &dp->root && mp->date <= date31; mp = mp->next)
        if (mp->date >= date1) dp->message[mp->date & 0x1f] = mp;
}

void delete_message(Data *dp)
{
    Message *mp = dp->message[dp->day];
    if (mp) {
        mp->prev->next = mp->next;
        mp->next->prev = mp->prev;
        free(mp->msg);
        free(mp);
        dp->message[dp->day] = 0;
        print_calendar(dp);
    }
}

void write_message(Data *dp, const char *buf)
{
    Message *mp = dp->message[dp->day];
    if (mp) {
        free(mp->msg);
        mp->msg = strdup(buf);
    } else {
        int date = dp->year << 9 | dp->month << 5 | dp->day;
        for (mp = dp->root.next; mp != &dp->root && mp->date < date; mp = mp->next) ;
        dp->message[dp->day] = insert(mp, date, buf);
    }
    print_calendar(dp);
}

int main(void)
{
    Data data;
    char buf[1024];
    time_t t = time(0);
    struct tm *tp = localtime(&t);
    data.year = tp->tm_year + 1900;
    data.month = tp->tm_mon + 1;
    data.day = tp->tm_mday;

    load_message(&data);
    set_message(&data);
    print_help();
    print_calendar(&data);
    print_message(&data);

    while (printf("> "), fgets(buf, sizeof(buf), stdin)) {
        int n = atoi(buf);
        if (n > 1900 && n < 2100 && n != data.year)  // change year
            data.year = n, print_calendar(&data);
        else if (n >= 1 && n <= last_day(data.year, data.month)) // the day
            data.day = n, print_message(&data);
        else if (buf[0] == 'm') {  // change month and print calendar
            n = atoi(buf + 1);
            if (n >= 1 && n <= 12 && n != data.month)
                data.month = n, set_message(&data);
            print_calendar(&data);
        } else if (buf[0] == 'w') {  // write
            n = atoi(buf + 1);
            if (n >= 1 && n <= last_day(data.year, data.month)) data.day = n;
            printf("%d/%d/%d: ", data.year, data.month, data.day);
            if (fgets(buf, sizeof(buf), stdin) && buf[0] != '\n')
                if (!data.message[data.day] || confirm("上書きしますか?"))
                    write_message(&data, buf);
        } else if (buf[0] == 'd') {  // delete
            n = atoi(buf + 1);
            if (n >= 1 && n <= last_day(data.year, data.month)) data.day = n;
            if (data.message[data.day] && confirm("削除しますか？"))
               delete_message(&data);
        } else if (buf[0] == 'q') {  // quit
            if (confirm("終了しますか?")) break;
        } else if (buf[0] == 'h') print_help();
    }
    save_message(&data);
    return 0;
}