UserProfile.mesa;EditedbyTeitelmanonDecember16,198211:59amDIRECTORYRopeUSING[ROPE];UserProfile:CEDARDEFINITIONS=BEGINOverviewUserProfileisapackageforreadinginformationfromthediskfile.profile,orifnoneexists,User.profile.Thepurposeoftheprofileistoallowpersonalizedtailoringofthesystem.ThecurrentcatalogueofwaystheCedarcanbeparameterizedmaybefoundinthefileUserProfile.doc.Entriesintheuser'sprofileareoftheform::RETURN,wherevalueiseither(1)aBOOLEAN,(2)anINT,(3)aTOKEN,or(4)aListOfTokens(formoredetails,seeUserProfile.doc).WhenCedarisbooted,rolledBack,oranyfilewhoseextensionis"profile"isedited,theprofileisparsedandadatastructurewhichdescribestheinformationthatwasfoundintheprofileisconstructed.Comments(indicatedusingthestandard"--"convention)canappearanywhereintheprofileandwillbeignored.Theparsingwillalsoignoreextraspacesorblanklines.AnyerrorsoranomaliesdiscoveredwhenparsingoraccessingtheprofilewillcausediagnosticstobeprintedtothefileUserProfile.log.TheuserwillbeinformedthatproblemshavebeenencounteredviatheMessageWindow.Innocasehoweverwillthesystembreak.Accesstoindividualprofileentriesviatheproceduresbelowisrelativelyefficient,sincethisaccessdoesnotrequireanyfilereadsorparsing.Therefore,manysimpleapplicationscansimplyreadinformationfromtheprofileasneeded.However,someapplicationsderivecomplexdatastructuresfromtheprofile(considertheeffectofthe"UserCategory"profileentryonthestateofTioga),andhencecannotaffordtointerrogatetheprofilewheneversomeinformationderivedfromitisused.SuchanapplicationmustregisteraProfileChangedProcandperformallofitsprofileinterrogationsfromwithinthisprocedure.Thisguaranteesthatthecorrespondingvalueswillbeupdatedwhenevertheprofilechanges.TheProfileChangedProcwillbecalledwhenitisfirstregistered,wheneverthesystemisbootedorrolled-back,orwheneverafilewithextension".profile"issaved.Finepoint:SincetheProfileChangedProcforanapplicationisnotcalledfromthatapplication'sprocess(es),theapplicationmustexplicitlysynchronizeitsreadstovariablesderivedfromtheprofilewiththeProfileChangedProc'swritestothesevariables.Thismayinvolveaddingamonitortoanapplicationthatpreviouslydidnotrequireone.AccessingtheProfileTheproceduresdescribedbelowallreadsimpleresultsfromthevaluefieldgivenakey.Thedefaultvalueispassedinasanargumentsothattheclientcanspecifywhattheprocedurereturnsshouldthevaluebeabsentormalformed,ortheprofilebemissing.Boolean:PROC[key:Rope.ROPE,default:BOOLEAN_FALSE]RETURNS[value:BOOLEAN];Number:PROC[key:Rope.ROPE,default:INT_0]RETURNS[value:INT];Token:PROC[key:Rope.ROPE,default:Rope.ROPE_NIL]RETURNS[value:Rope.ROPE];returnsnexttokenfollowing:,i.e.effectivelydoesanIO.GetRope[IDBreak].Ifthefirstcharacterencounteredis",thenreadseverythingtothenextmatching",andreturnsthisasasinglerope.pН ЛОa┬НйННКН!HН#;Н)┴Н+фН/Н2кqН ЛО^'rНЩО\vqН╡О\vН≤О\vrНАО\vqНDО\vrНUО\vНЩОZфsН ЛОWe rНОWeqНОWeНчОWeН▌ rН⌠ОWeqН!xОWeН"2ОWesН ЛОS7tН ЛОOэ Н НyН▐НЎНХНй Н'@Н*■Н,ЮН/╩Н2Н?%Н@уНB#НE┌Н ЛОN5НННlНMНуН#mН%Н&ьН*╙Н2©Н8`Н:BН<йНAеНDеН ЛОL█НН╧ННuН█НН Н(УН+ЬН-ИН1ВН3╔Н6uН8nОL█Н9│ОL█ tНAєОL█Н ЛОJ Н▐Н/ННFНїНЛН√Н ФН$╦Н)vН-÷ОJ Н.iОJ tН23ОJ Н3ОJ Н7 Н:╔Н<Н?ъНAВqНCОJ НCкОJ tНH╡ОJ Н ЛОHbН&qН(ОHbН▓ОHbtН4ОHbН#ОHbН\qН≤ОHbНRОHbtНЇОHbН╔ОHbН|Н╣НЯН'║Н*jН.Н2иН5/Н?нНCЫНH#Н ЛОF╩НЗ НEН"НэН_Н!іН'щН)bН/LН0яН5qН7ЙНvНЗНыНРНIНІ Н'═Н)НН,^Н1РН7ИН9иН;ЮН>ъНDsНG/Н ЛО<оНgН ЛО:KН]Н Н░ННsН!╠Н$ Н+Н/(Н0∙ Н6┬ Н<:Н?ґНBPНF_Н ЛО8ёНdН0НсН?НАН╗Н!] Н(Н+ЕН0MН7ГН:uН>ГНB Н ЛО6ЭН TН╣Н&НуНВН!-Н$аН,YН0┬Н6 Н9 Н?VНBЎНEН ЛО5UНЮН@Н НгН' Н$2Н(ёН,8Н.?Н0÷Н3яН5▀Н:>Н<ЖН@ОНElН ЛО3ґН═ Н√НШНpН╙Н#C Н*сН/мН3:Н4∙Н6Н9═Н=Н? НF'Н ЛО2НДuН'О2НО2tН╡О2НXО2Н┐Н$ТН&ЧН(пН*дН/M Н8Н;°Н?ЗНBЄ Н ЛО0_Н V НvН■НDН#┼Н( Н+Н-EН2ОН9sН<#Н@ЦНFЇuН ЛО.ЇtН@О.ЇН>О.ЇНнН║Н{Н"Н#KН$≥Н'T Н-ыН3ПН62Н:░Н;чН@^НBН ЛО-Н╟НДННxН▓Н╠ Н$ыН&EН*КН.&Н ЛО*▄Н мНXНЬН`Н!| Н(╨Н*QН,РН1Н4їН7║Н?╩НG/Н ЛО(Д НxНZ Н╩ Н#©Н&Н*,Н,TН2┴Н7ВН;ьН>╠НC⌡НG/Н ЛО'=Н-ННЎН 7 Н&╞Н)╧Н,ґН1qН5СН7 НЕНAПНDФН ЛОeН єНН⌠НPН ННEН!Н#ТН&cН*2Н,лН1wН4ЦН7QН=ЦНB╔НG/Н ЛОЎН √Н├НжН НЬН╪Н!Н%▀Н'|uНЩО]rНшО]qНьО]Н─О]rНeО]НхО]НвqН_О]Н3О]rНpО]Н MО]qН%oО]Н&(О]rН+yО]qН-О]Н-©О]rН0єО]qН1qО]rН7bО]Н7еО]qН;ХО]Н<║О]rНA┬О]НAКО]uНЩОЭrН╨ОЭqНЇОЭН_ОЭrНDОЭНїОЭНІqН>ОЭНОЭrНOОЭН ,ОЭqН%NОЭН%ЇОЭrН'цОЭН)PОЭqН*ХОЭН+╪ОЭrН0ыОЭН1<ОЭqН5_ОЭН5иОЭrН7jОЭН7нОЭuНЩО⌡rНхО⌡qНфО⌡НmО⌡rНRО⌡НІО⌡НдqНMО⌡Н О⌡rН^О⌡Н:О⌡Н$\qН'ДО⌡Н(╦О⌡rН+_О⌡qН,ЛО⌡Н-тО⌡rН.ВО⌡qН/дО⌡rН5ІО⌡Н6О⌡Н:≤О⌡rН@уО⌡НA8О⌡pНОКНіН╩Н─НSН$Н&D Н,┬Н/▄Н1Н?yНAНCSНАО DНл НKНЇНDН"NН%в Н,TН-ЫН0EН3ZН9?Н:лН=oНBНD÷НFXНАО°Н╨ ╧TVm$eListOfTokens:PROC[key:Rope.ROPE,default:LISTOFRope.ROPE_NIL]RETURNS[value:LISTOFRope.ROPE];Forexample,ifyourprofilecontains:PreRun:Clock.bcd,VersionMapOpsImpl.bcd,HideousKludge.bcd,--justuntil3.4--WalnutSend.bcdthenListOfTOkens["PreRun"]willreturn("Clock.bcd","VersionMapOpsImpl.bcd","HideousKludge.bcd","WalnutSend.bcd).NotethatiftheuserprofilecontainsKey:{cr},thenListOfTokens["key",default]willreturnNIL,notdefault,i.e.theentryfor"key"isneithermalformedorabsent.Line:PROC[key:Rope.ROPE,default:Rope.ROPE_NIL]RETURNS[value:Rope.ROPE];LikeListOfTokensexceptreturnstheresultasasinglerope,e.g.foraboveexample,thevalueofLine["PreRun"]wouldbe"Clock.bcdVersionMapOpsImpl.bcdHideousKludge.bcdWalnutSend.bcd".GetProfileName:PROCRETURNS[Rope.ROPE];returnsnameoffileusedtobuildtheprofile,i.e.either.profile,orUserName.Profile.ReturnsNILifnoprofile.RegisteringproceduresforaccessingtheprofileAsmentionedabove,iftheresultofaccessingtheuserprofileisgoingtobecachedbytheclient,thentheprofileshouldnotbeaccesseddirectly,butviaaProfileChangedProcwhichhasbeenregisteredwithCallWhenProfileChanges.Thisguaranteesthatthecorrespondingvalueswillbeupdatedwhenevertheprofilechanges.Inotherwords,ratherthanwriting:ClientCheckpointFlag:BOOL_UserProfile.Boolean["ClientCheckpoint",TRUE];theimplementorshouldwrite:ClientCheckpointFlag:BOOL;Init:ProfileChangedProc={ClientCheckpointFlag_UserProfile.Boolean["ClientCheckpoint",TRUE];UserProfile.CallWhenProfileChanges[Init];CallWhenProfileChanges:PROC[proc:ProfileChangedProc];prociscalledwhenitisfirstregisteredwithreason=firstTime.ProfileChangedProc:TYPE=PROC[reason:ProfileChangeReason];ProfileChangeReason:TYPE={firstTime,rollBack,edit};ProfileChanged:PROC[reason:ProfileChangeReason];CallsalloftheProfileChangedProcs.Thisprocedureisautomaticallycalledafterarollback,whenevertheUserExec.Loginiscalled,orwhenevertheafilewithextension'profile'issavedbytioga.GetErrorLog:PRIVATEPROCRETURNS[fileName:Rope.ROPE];iftherewereanyerrorsreported,thisclosesthestreamandreturnsthenameofthefile.END.2uНЩОb&rН8Оb&qН6Оb&НчОb&rНцОb&Н&Оb&Н5qНҐОb&Н ▒Оb&rН"нОb&Н#╙Оb&qН(лОb&Н)┘Оb&Н+╠rН-╠Оb&Н.╨Оb&qН19Оb&Н2 Оb&rН4ЄОb&qН6AОb&Н7)Оb&rН8LОb&qН9Оb&rН? Оb&Н?nОb&qНC▒Оb&НDJОb&НFvrНпО`qНXО`Н,О`rНiО`НлО`pНО^мНєНWНґНхНtНЩО\HНs Н)Н'ЖН4≈Н5ТН8|Н;╙Н=мН?+ pНОXОtНОXОНОXОpН гОXОН!╞ОXОН#\tН'oОXОН'ИОXОН0НАОWHНЭpН(ОWHНОSЕНbН3Н┼НжН╨НСН$HН*gН-qН:-Н?НA╞НEбНАОR>НEННNН НН :Н$&Н%▓Н*Н0яН2┼uНЩОNшrН╗ОNшqНіОNшНMОNшrН3ОNшН√ОNшНєqН-ОNшНОNшrН>ОNшНОNшН#Н;ЛН=╔НАОC%НРННnНasН ЛО>У Н НъН│Н$йН'╒tН ЛО;≥ННБНBН╗Н НщН °Н&┴Н(НН+ЛН0bН1сН5ёН7VН9MН=ЕН?ФНBKНFiН ЛО9ЯНDН╛Н Н█НvНХН$.Н&їН(щuН)ЪО9ЯН*ФО9ЯtН6iО9ЯН7fО9ЯН:oН<эН@1 НFtuН ЛО8JtНрО8JНгО8JНШ Н#ДН&лН)FН2VН6·Н9cН;mН@АНG/Н ЛО6ёН\Н ЛО4Н╩НZН©НмНСН ЛО1≥qНО1≥НҐО1≥tН≥О1≥Н&О1≥П'qН6-О1≥Н6ФО1≥tН9YО1≥Н9╪О1≥pНЩО.6НI Н НOtН ЛО+╠qНО+╠НҐО+╠tН/О+╠Н ЛО),Н Н{Н`Н)ўН+;П'qНDCО),НDЭО),tНGoО),НGрО),Н ЛО&іП)uНЩО#DrНЦО#DqНАО#DН┬О#DrНmО#DНяО#DН#ppНО!▓НН~Н_НАН9НєНs Н%┴tН(┘О!▓Н) О!▓Н,ъН.дpН41О!▓uНЩО/rНЙО/qНХО/Н║О/rН?О/qН$О/НлО/rН!╠О/Н"О/Н&ГuНЩОмrНгОмqНдОмН}ОмrНОмНОм Н%ШН+юuНЩОj rНОjqНОjНцОjrН╗ОjНОjНъpНО╦Н▀Н├Н*tНvО╦НGО╦pН#ЙО╦Н$фО╦Н'жН.Н/mН7пН;╠Н>ДН@НАОН╦tНОН#ОpН!ОН!eОН"mН&їН(`Н.6Н0┌Н1ЇН4Н7Н= НAВНCbНGНАОjuНЩО rН╡ОqН╟ОНXОНН°rН#▌ОН#ЯОН*kqН-СОН.гОrН1ОН1gОpНО UНeНпНЖН▌НoН"Н$єН(zН*фН/$Н1хН6_Н8╚Н