UNIX共享記憶體的程式(轉)

UNIX共享記憶體的程式(轉)[@more@]/******************************************************************************
* 函式名： MallocPublicMemory
* 作者： linge_king
* 編寫日期：2002.04
* 函式功能：為結構分配共享記憶體
* 輸入： StructName:結構物件變數，Num:記錄個數,Point:結構指標，Size:結構尺寸
* 輸出： 無
*返回值： 返回分配記憶體的首地址
*
* 修改記錄（如果有）
* 注意事項：
*******************************************************************************/
void *MallocPublicMemory(void *Point,long Num,long Size,char *StruName)
{
char lc_Tmp[LONG_STRING_SIZE];

int li_SemId;/**/
int li_ShmId;/**/
long ll_Size;/**/
long *lp_Temp;/**/

if((li_SemId=semget(Tables.Property[Param.PresentRecord].MemKey,1,IPC_CREAT|IPC_EXCL|0664))<1)
{
sprintf(lc_Tmp,"資料已初始化過 (%s表)",Tables.Property[Param.PresentRecord].TableName);
perror(lc_Tmp);
Param.ExistFlag = 1;/*當前共享記憶體的初始化標誌*/
return;
}
if(semctl(li_SemId,0,SETVAL,0)) /* set sem,lock it */
{
perror("初始化訊號燈失敗");
exit(5);
}
printf("訊號燈ID=%.7d, ",li_SemId);

ll_Size =sizeof(long) + Num * Size;
printf("共享記憶體大小%.10d (%s表) ",ll_Size,StruName);
/* 建立共享記憶體 */
if((li_ShmId = shmget(Tables.Property[Param.PresentRecord].MemKey+1,ll_Size,IPC_CREAT|IPC_EXCL|0664))<1)
{
sprintf(lc_Tmp,"使用者%s共享記憶體建立失敗",StruName);
perror(lc_Tmp);
exit(5);
}
/* 取共享記憶體地址 */
if((lp_Temp = (long *)shmat(li_ShmId,NULL,0)) == (void*)-1)/* get addr */
{
sprintf(lc_Tmp,"開啟%s共享記憶體失敗",StruName);
perror(lc_Tmp);
exit(5);
}
*lp_Temp = Num;
if(Num > 0)
{
Point = (void *)(lp_Temp + sizeof(long));
}
else
{
Point = NULL;
}
Param.SemId = li_SemId;
return(Point);
}