/*=======================================================
  親・子プロセス間でのメモリー共有（プロセス間通信）
  =======================================================*/

#include <stdio.h>
#include <sys/shm.h>

///////////////////////////////////////////////////////
// 構造体定義
///////////////////////////////////////////////////////
// 共有情報
struct sharememory
{
    int a;
};
// 共有メモリー用構造体
struct sharememory_info
{
    int    id;               /* 共有メモリー識別子 */
    struct sharememory *shm; /* 共有情報           */
};

///////////////////////////////////////////////////////
// 関数プロトタイプ宣言
///////////////////////////////////////////////////////
int release_sharemem(int id, struct sharememory *shm);
///////////////////////////////////////////////////////

int main(int argc, char *argv[])
{
    int pid,endflg=0;
    struct sharememory_info shmem_inf;

    /* 共有メモリー識別子取得 */
    if(( shmem_inf.id = shmget(IPC_private,
                               sizeof(struct sharememory),
                               IPC_CREAT|0666)) == -1) {
        perror("shmget");
        return 0;
    }

    /* 共有メモリーアタッチ */
    if((int)(shmem_inf.shm =(void *)shmat(shmem_inf.id, 0, 0)) == -1) {
        perror("shmat");
        release_sharemem(shmem_inf.id, shmem_inf.shm);
        return 0;
    }
    
    /* 共有メモリー初期化 */
    shmem_inf.shm->a = 0;
    
    /* 更新前出力 */
    printf("a = %d\n", shmem_inf.shm->a);

    while(endflg==0){
        /* 子プロセス起動 */
        if((pid = fork()) < 0) {
            perror("fork");
            release_sharemem(shmem_inf.id, shmem_inf.shm);
            return 0;
        }
        
        /* 子プロセス */
        if(pid == 0) {
            /* 共有メモリーアタッチ */
            if((int)(shmem_inf.shm =(void *)shmat(shmem_inf.id, 0, 0)) == -1) {
                perror("shmat");
                release_sharemem(shmem_inf.id, shmem_inf.shm);
                _exit(0);
            }
            
            printf("cchild: input a: ");
            scanf("%d",&shmem_inf.shm->a);
            
            /* 共有メモリーデタッチ */
            shmdt(shmem_inf.shm);
            
            _exit(0);
        }
        
        /* 親プロセス */
        if(pid > 0) {
            /* 子プロセスが終了するのを待つ */
            wait(NULL);
            if(shmem_inf.shm->a) endflg=1;
            /* 更新後出力 */
            printf("a = %d\n",shmem_inf.shm->a);
        }
    }
    /* 終了処理 */
    release_sharemem(shmem_inf.id, shmem_inf.shm);

    return 0;
}

int release_sharemem(int id, struct sharememory *shm)
{
    /* 共有メモリーデタッチ */
    if(id >= 0) {
        shmdt(shm);
    }
    /* 共有メモリー識別子削除 */
    if(shmctl(id, IPC_RMID, 0) == -1) {
        perror("shmctl");
        exit(-1);
    }
    return 1;
}