34管程(編輯修改稿)
2024-11-17 16:37 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 en V()。 ? else V()。 霍爾方法實(shí)現(xiàn)五個(gè)哲學(xué)家吃通心面問題 (1) ? TYPE diningphilosophers = MONITOR ? var state : array[0..4] of (thinking, hungry, eating)。 ? s : array[0..4] of semaphore。 ? scount : array[0..4] of integer。 ? define pickup, putdown。 ? use wait, signal； 霍爾方法實(shí)現(xiàn)五個(gè)哲學(xué)家吃通心面問題 (2) ? procedure test(k : 0..4)。 ? begin ? if state[(k1) mod 5]eating and state[k]=hungry and state[(k+1) mod 5]eating then begin ? state[k] := eating。 ? signal(s[k], scount[k], IM)。 ? end。 ? end。 霍爾方法實(shí)現(xiàn)五個(gè)哲學(xué)家吃通心面問題 (3) ? procedure pickup(i:0..4)。 ? begin ? state[i] := hungry。 ? test(i)。 ? if state[i]eating then wait(s[i],scount[i],IM)； ? end。 霍爾方法實(shí)現(xiàn)五個(gè)哲學(xué)家吃通心面問題 (4) ? procedure putdown(i:0..4)。 ? begin ? state[i] := thinking。 ? test((i1) mod 5)。 ? test((i+1) mod 5)。 ? end。 ? begin ? for i := 0 to 4 do state[i] := thinking； ? end。 ? 霍爾方法實(shí)現(xiàn)五個(gè)哲學(xué)家吃通心面問題 (6) ? cobegin ? process philosopheri ? begin ? …… ? P()。 ? call (i)。 ? if 0 then V()。 ? else V()。 ? 吃通心面； ? P()。 ? call (i)。 ? if 0 then V()。 ? else V()。 ? …… ? end。 ? coend。 管程實(shí)現(xiàn)：漢森方法 (1) ?漢森方法的管程中的過程所執(zhí)行的signal操作一定是過程體的最后一個(gè)操作 ， 一個(gè)進(jìn)程當(dāng)所調(diào)用的過程執(zhí)行了signal操作后 ， 便立即退出了管程 。 ?漢森方法使用四條原語(yǔ)： wait， signal，check， re1ease實(shí)現(xiàn)對(duì)管程的控制 。 管程的實(shí)現(xiàn)：漢森方法 (2) 每個(gè)管程使用的一個(gè)數(shù)據(jù)類型 ： TYPE interf = RECORD intsem : semaphore。 /* 開放管程的信號(hào)量 */ count1 : integer。 /* 等待調(diào)用的進(jìn)程個(gè)數(shù) */ count2 : integer。 /* 調(diào)用了管程中的過程且不 END。 處于等待狀態(tài)的進(jìn)程個(gè)數(shù) */ 管程的實(shí)現(xiàn)：漢森方法 (3) ?調(diào)用查看原語(yǔ) check： 如果管程是開放的 ， 則執(zhí)行這條原語(yǔ)后關(guān)閉管程 ， 相應(yīng)進(jìn)程繼續(xù)執(zhí)行；如果管程是關(guān)閉的 ， 則執(zhí)行這條原語(yǔ)后相應(yīng)進(jìn)程被置成等待調(diào)用狀態(tài) 管程的實(shí)現(xiàn)：漢森方法 (4) procedure check(var IM interf)。 begin if = 0
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1