123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638 |
- /*
- * LaGUI: A graphical application framework.
- * Copyright (C) 2022-2023 Wu Yiming
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
- */
- #include "la_5.h"
- extern LA MAIN;
- const char* LA_UDF_EXTENSION_STRINGS[]={
- "LA_UDF_EXTENSION_FLOAT32",
- "LA_UDF_EXTENSION_RAW",
- "",
- };
- int la_IsThisProp(laProp *p, char *id){
- return (!strcmp(p->Identifier, id));
- }
- laProp *la_PropLookup(laListHandle *lst, char *ID){
- laProp *p = 0, *ip;
- if (!lst) return 0;
- p = lstFindItem(ID, la_IsThisProp, lst);
- if (!p) if (strSame(ID, "identifier")){
- for (ip = lst->pFirst; ip; ip = ip->Item.pNext){
- if (ip->Tag & LA_AS_IDENTIFIER) return ip;
- }
- }
- return p;
- }
- laProp *la_PropLookupIdentifierItem(laListHandle *lst){
- laProp *p;
- if (!lst) return 0;
- for (p = lst->pFirst; p; p = p->Item.pNext){
- if (p->Tag & LA_AS_IDENTIFIER) return p;
- elif (la_IsThisProp(p, "identifier")) return p;
- }
- return 0;
- }
- int la_IsThisContainer(laPropContainer *p, char *id){
- return (!strcmp(p->Identifier, id));
- }
- laPropContainer *la_ContainerLookup(char *ID){
- laPropContainer* pc= lstFindItem(ID, la_IsThisContainer, &MAIN.PropContainers);
- return pc;
- }
- void la_CopyPropPack(laPropPack* From, laPropPack* To) {
- laPropStep* ps,*fps,*LastPs=0;
- To->RawThis = From->RawThis;
- To->EndInstance = From->EndInstance;
- la_FreePropStepCache(To->Go);
- To->Go = To->LastPs = 0;
- for (fps = From->Go; fps; fps = fps->pNext) {
- ps = memAcquireSimple(sizeof(laPropStep));
- ps->p = fps->p;
- ps->UseInstance = fps->UseInstance;
- ps->Type = fps->Type;
- if (LastPs)LastPs->pNext = ps;
- else {
- To->Go = ps;
- }
- LastPs = ps;
- }
- if(!LastPs){ To->LastPs = From->LastPs; }
- else{ To->LastPs =LastPs; }
- }
- laListHandle* laGetUserList(void* HyperUserMem, laProp* Which, int* IsLocal){
- laListHandle* users;
- if(Which && Which->Container){
- laPropContainer* pc=Which->Container;
- if(pc->OtherAlloc || (!pc->Hyper)){
- *IsLocal=1;
- return &pc->LocalUsers;
- }
- }
- *IsLocal=0;
- return memGetUserList(HyperUserMem);
- }
- laItemUserLinker *laUseDataBlock(void *HyperUserMem, laProp *Which, unsigned int FrameDistinguish, void *User, laUserRemoveFunc Remover, int ForceRecalc){
- laItemUserLinker *iul; laItemUserLinkerLocal *iull; int local;
- if (!HyperUserMem) return 0;
- laListHandle* users = laGetUserList(HyperUserMem, Which, &local); if(!users) return 0;
- for (iul = users->pFirst; iul; iul = iul->Pointer.pNext){
- if(local && (iull=iul) && iull->Instance!=HyperUserMem) continue;
- if (iul->Which == Which && iul->Pointer.p == User){
- iul->FrameDistinguish = FrameDistinguish;
- if(ForceRecalc) iul->ForceRecalc = ForceRecalc;
- return iul;
- }
- }
- iul = lstAppendPointerSized(users, User, local?sizeof(laItemUserLinkerLocal):sizeof(laItemUserLinker));
- iul->Which = Which;
- iul->FrameDistinguish = FrameDistinguish;
- iul->Remove = Remover;
- iul->ForceRecalc = ForceRecalc;
- if(local){ iull=iul; iull->Instance=HyperUserMem; }
- return iul;
- }
- void laStopUsingDataBlock(void *HyperUserMem, laProp *prop, laPanel* p){
- laItemUserLinker *iul,*next_iul; laItemUserLinkerLocal *iull; int local;
- if (!HyperUserMem) return;
- laListHandle* users = laGetUserList(HyperUserMem, prop, &local); if(!users) return;
- for (iul = users->pFirst; iul; iul = next_iul){
- next_iul = iul->Pointer.pNext;
- if(local && (iull=iul) && iull->Instance!=HyperUserMem) continue;
- if (/*prop == iul->Which &&*/ iul->Pointer.p == p||iul->Additional==p){
- lstRemoveItem(users,iul);
- memFree(iul);
- }
- }
- }
- void laDataBlockNoLongerExists(void *HyperUserMem, laListHandle* UserList){
- laItemUserLinker *iul,*next_iul;
- for (iul = UserList->pFirst; iul; iul = next_iul){
- next_iul = iul->Pointer.pNext;
- iul->Remove(HyperUserMem, iul);
- lstRemoveItem(UserList,iul);
- memFree(iul);
- }
- }
- void la_PrintUserList(void* HyperUserMem){
- laItemUserLinker* iul, * next_iul; laItemUserLinkerLocal* iull; int local;
- if (!HyperUserMem) return;
- laListHandle* users = laGetUserList(HyperUserMem, 0, &local); if (!users) return;
- for (iul = users->pFirst; iul; iul = next_iul) {
- next_iul = iul->Pointer.pNext;
- printf("p %x which %s add %x\n", iul->Pointer.p, iul->Which ? iul->Which->Identifier : "-", iul->Additional);
- }
- }
- //laProp* la_GetGeneralPropFromPath(laProp* General, const char * Path) {
- // laProp* p;
- // laListHandle* lst = &General->Sub;
- // laStringSplitor* ss = strSplitPathByDot(Path);
- // laStringPart* sp = ss->parts.pFirst;
- //
- // while (sp) {
- // p = la_PropLookup(lst, sp->Content);
- // lst = &p->Sub;
- // sp = sp->Item.pNext;
- // }
- //
- // strDestroyStringSplitor(&ss);
- // return p;
- //}
- //laProp* la_GetPropFromPath(laPropPack* Base,const char * Path) {
- // laProp* p,*LastP=Base?Base->P:0;
- // laListHandle* lst;
- // laStringSplitor* ss = strSplitPathByDot(Path);
- // laStringPart* sp = ss->parts.pFirst;
- //
- // if(!Base || !Base->P)
- // lst = &MAIN.DataRoot.Root->Sub;
- // else lst = &Base->P->Sub;
- //
- //
- // while (sp) {
- // p = la_PropLookup(lst, sp->Content);
- // if (!p && LastP) {
- // p = la_PropLookup(&la_GetGeneralProp(LastP)->Sub, sp->Content);
- // }
- // LastP = p;
- // lst = &p->Sub;
- // sp = sp->Item.pNext;
- // }
- //
- // strDestroyStringSplitor(&ss);
- //
- // return p;
- //}
- void la_NewPropStep(laPropPack *Self, laProp *P, void *UseInstance, char Type){
- laPropStep *ps = memAcquireSimple(sizeof(laPropStep));
- if (Type == U'.' || Type == U'$'){
- ps->p = P;
- ps->UseInstance = UseInstance;
- ps->Type = Type;
- }elif (Type == U'@' || Type == U'=' || Type == U'#'){
- ps->p = CreateNewBuffer(char, strlen(P) + 1);
- strcpy(ps->p, P);
- ps->UseInstance = UseInstance;
- ps->Type = Type;
- }
- if (!Self->Go){
- Self->Go = ps;
- Self->LastPs = ps;
- }else{
- Self->LastPs->pNext = ps;
- Self->LastPs = ps;
- }
- }
- void la_FreePropStepCache(laPropStep *GoTarget){
- if (!GoTarget) return;
- if (GoTarget->pNext){
- la_FreePropStepCache(GoTarget->pNext);
- }
- if (GoTarget->Type == U'@' || GoTarget->Type == U'=' || GoTarget->Type == U'#') FreeMem(GoTarget->p);
- memFree(GoTarget);
- }
- void *la_FindMatchingInstance(void *From, laProp *Sub, laProp *p, laPropStep *Value){
- laPropPack Fake;
- laPropStep FakePs;
- laPropIterator pi = {0};
- void *Inst;
- char _buf[LA_RAW_CSTR_MAX_LEN]={0}; char*buf=_buf;
- int val;
- Fake.LastPs = &FakePs;
- FakePs.p = p;
- Inst = laGetInstance(Sub, From, &pi);
- if (p->PropertyType == LA_PROP_STRING){
- _buf[0] = 0;
- FakePs.UseInstance = Inst;
- laGetString(&Fake, _buf, &buf);
- while (!strSame(buf, Value->p)){
- Inst = laGetNextInstance(Sub, Inst, &pi);
- if (!Inst) return 0;
- _buf[0] = 0;
- FakePs.UseInstance = Inst;
- laGetString(&Fake, _buf, &buf);
- }
- return Inst;
- }elif (p->PropertyType == LA_PROP_INT){
- FakePs.UseInstance = Inst;
- val = laGetInt(&Fake); char buf[64]; int compareval=0;
- int status=sscanf(buf,"%d",&compareval);
- while (status && status!=EOF && val != compareval){
- Inst = laGetNextInstance(Sub, From, &pi);
- if (!Inst) return 0;
- FakePs.UseInstance = Inst;
- val = laGetInt(&Fake);
- }
- return Inst;
- }
- }
- int la_GetPropFromPath(laPropPack *Self, laPropPack *Base, const char *Path, void **SpecifiedInstance){
- laProp *p = 0;
- laListHandle *lst=0, *lstB = 0;
- laStringSplitor *ss = strSplitPath(Path,0);
- laStringPart *sp = ss ? ss->parts.pFirst : 0;
- int InstanceNum = 0;
- if ((!ss && !Base) || !MAIN.DataRoot.Root){ strDestroyStringSplitor(&ss); return 0; }
- if (!Base || !Base->LastPs){
- lst = &MAIN.DataRoot.Root->Props;
- Self->RawThis = 0;
- }else{
- Self->RawThis = Base;
- if (Base->LastPs->p->PropertyType==LA_PROP_SUB && ((laSubProp*)Base->LastPs->p)->GetType && Base->EndInstance){
- laPropContainer* pc=((laSubProp*)Base->LastPs->p)->GetType(Base->EndInstance);
- lst = &pc->Props;
- lstB = pc ? &pc->Props : 0;
- }
- if(!lst){
- if (!Base->LastPs->p->SubProp){
- laProp *p = Base->LastPs->p;
- p->SubProp = la_ContainerLookup(((laSubProp *)p)->TargetID);
- }
- if(Base->LastPs->p->SubProp) lst = &Base->LastPs->p->SubProp->Props;
- }
- lstB = Base->LastPs->p->SubExtra ? &Base->LastPs->p->SubExtra->Props : 0;
- if (!Path || !Path[0] || !ss){
- if (Base){
- Self->LastPs = Base->LastPs;
- //Self->ReusedPs = 1;
- //la_NewPropStep(Self, Base->LastPs->p,Base->LastPs->UseInstance,Base->LastPs->Type);
- }
- }
- }
- while (sp){
- if (sp->Type == U'.' || sp->Type == U'$'){
- void *inst = 0;
- p = la_PropLookup(lst, sp->Content);
- if (!p) p = la_PropLookup(lstB, sp->Content);
- if (!p){
- la_FreePropStepCache(Self->Go);
- Self->Go = Self->LastPs = 0;
- strDestroyStringSplitor(&ss);
- return 0; // |-----------------Here Should Include Dollar Instance
- } // V
- if (sp->Type == U'$'){
- inst = SpecifiedInstance[InstanceNum];
- InstanceNum++;
- }else
- inst = 0;
- /*if(Base == &MAIN.PropMatcherContextP->PropLinkPP)la_NewPropStep(Self, p, inst, '*');
- else */
- la_NewPropStep(Self, p, inst, sp->Type);
- if (p->PropertyType == LA_PROP_SUB && !p->SubProp){
- p->SubProp = la_ContainerLookup(((laSubProp *)p)->TargetID);
- }
- lst = p->SubProp ? &p->SubProp->Props : 0;
- lstB = p->SubExtra ? &p->SubExtra->Props : 0;
- }else{
- if (sp->Type == U'@' || sp->Type == U'=' || sp->Type == U'#'){ // || sp->Type== U'~'
- la_NewPropStep(Self, sp->Content, 0, sp->Type);
- }
- }
- sp = sp->Item.pNext;
- }
- strDestroyStringSplitor(&ss);
- return 1;
- }
- void la_StepPropPack(laPropPack *pp){
- laPropStep *ps = pp->Go;
- laPropPack *This = pp->RawThis;
- laPropIterator pi;
- laProp *Lookup;
- laPropStep *Value;
- void *UseInstance = 0;
- if (This){
- UseInstance = This->EndInstance;
- if (ps) ps->UseInstance = UseInstance;
- }else{
- if (!ps) return;
- UseInstance = MAIN.DataRoot.RootInstance;
- ps->UseInstance = UseInstance;
- }
- if (This && !ps){
- pp->EndInstance = UseInstance;
- pp->LastPs = This->LastPs;
- return;
- }
- while (ps){
- // Looks like we have these kind of access grammar:
- // sub.prop
- // sub@prop=str_or_int
- // sub#identifier
- // TODO: Add sub~index grammar
- if (ps->p->PropertyType == LA_PROP_SUB){
- if (ps->Type == U'@' || ps->Type == U'#'){
- }
- if (ps->Type == U'$') UseInstance = ps->UseInstance;
- elif (ps->pNext && ps->pNext->Type != U'.'){
- if (ps->pNext->Type == U'@'){
- Value = ps->pNext->pNext;
- Lookup = la_PropLookup(&ps->p->SubProp->Props, ps->pNext->p);
- }elif (ps->pNext->Type == U'#'){
- Value = ps->pNext;
- Lookup = la_PropLookupIdentifierItem(&ps->p->SubProp->Props);
- }
- if (Value->Type == U'=' || Value->Type == U'#'){ //MUST!
- UseInstance = la_FindMatchingInstance(ps->UseInstance, ps->p, Lookup, Value);
- }
- Value->UseInstance = UseInstance;
- if(Value->pNext) Value->pNext->UseInstance = UseInstance;
- ps = Value->pNext;
- continue;
- }else{
- void *inst;
- inst = laGetActiveInstanceStrict(ps->p, UseInstance);
- if (!inst) inst = laGetInstance(ps->p, UseInstance, 0);
- UseInstance = inst;
- }
- if (!ps->pNext){
- pp->EndInstance = UseInstance;
- break;
- }else{
- ps->pNext->UseInstance = UseInstance;
- ps = ps->pNext;
- }
- continue;
- }else{
- ps->UseInstance = UseInstance;
- if (!ps->pNext){
- pp->EndInstance = UseInstance;
- break;
- }else{
- ps->pNext->UseInstance = ps;
- UseInstance = ps;
- ps = ps->pNext;
- }
- }
- }
- }
- void la_RemovePropUserNode(laPropStep *ps){
- laPropUserPanel *pup = 0;
- laPropUser *pu = 0;
- for (pup = ps->p->UserPanels.pFirst; pup; pup = pup->Item.pNext){
- if (pup->Panel == MAIN.PropMatcherContextP) break;
- }
- if (!pup) return;
- for (pu = pup->UserPacks.pFirst; pu; pu = pu->Item.pNext){
- if (pu->User == ps) break;
- }
- //if (!pu)printf("PROP USER NODE NOT FOUND!\laPropUserPanel:%d,%s,Ps:%s\n",pup->Panel,pup->Panel->Title->Ptr,ps->p->Identifier);
- //else {
- if (pu){
- lstRemoveItem(&pup->UserPacks, pu);
- memFree(pu);
- if (!pup->UserPacks.pFirst){
- lstRemoveItem(&ps->p->UserPanels, pup);
- memFree(pup);
- }
- }
- //}
- }
- void la_AddPropUserNode(laPropStep *ps){
- laPropUserPanel *pup = 0;
- laPropUser *pu = 0;
- for (pup = ps->p->UserPanels.pFirst; pup; pup = pup->Item.pNext){
- if (pup->Panel == MAIN.PropMatcherContextP) break;
- }
- if (!pup){
- pup = memAcquireSimple(sizeof(laPropUserPanel));
- pup->Panel = MAIN.PropMatcherContextP;
- lstAppendItem(&ps->p->UserPanels, pup);
- }
- for (pu = pup->UserPacks.pFirst; pu; pu = pu->Item.pNext){
- if (pu->User == ps){
- pu->FrameDistinguish = MAIN.PropMatcherContextP->FrameDistinguish;
- return;
- }
- }
- //ELSE
- pu = memAcquireSimple(sizeof(laPropUser));
- pu->User = ps;
- pu->FrameDistinguish = MAIN.PropMatcherContextP->FrameDistinguish;
- lstAppendItem(&pup->UserPacks, pu);
- }
- void la_UsePropPack(laPropPack *pp, int ForceRecalc){
- laPropStep *ps = 0;
- //if(pp->LastPs && pp->LastPs->p)printf("%s\n",pp->LastPs->p->Identifier);
- if((!pp->Go) && pp->LastPs){
- if (pp->LastPs->Type==U'.'){
- laUseDataBlock(pp->RawThis->LastPs->UseInstance, pp->LastPs->p, MAIN.PropMatcherContextP->FrameDistinguish, MAIN.PropMatcherContextP, la_PropPanelUserRemover, ForceRecalc);
- }
- }
- for (ps = pp->Go; ps; ps = ps->pNext){
- if (ps->Type==U'.'){
- laUseDataBlock(ps->UseInstance, ps->p, MAIN.PropMatcherContextP->FrameDistinguish, MAIN.PropMatcherContextP, la_PropPanelUserRemover, ForceRecalc);
- }
- }
- }
- void la_StopUsingPropPack(laPropPack *pp){
- laPropStep *ps;
- if((!pp->Go) && pp->LastPs){
- if (pp->LastPs->Type==U'.'&&pp->LastPs->p->Container &&pp->LastPs->p->Container->Hyper){
- laStopUsingDataBlock(pp->RawThis->LastPs->UseInstance, pp->LastPs->p, MAIN.PropMatcherContextP);
- }
- }
- for (ps = pp->Go; ps; ps = ps->pNext){
- if (ps->Type==U'.'&&ps->p->Container&&ps->p->Container->Hyper){
- laStopUsingDataBlock(ps->UseInstance, ps->p, MAIN.PropMatcherContextP);
- }
- //la_RemovePropUserNode(ps);
- }
- }
- void laNotifyUsersPP(laPropPack *pp){
- if(!pp->LastPs) return;
- void *hi = pp->LastPs->UseInstance;
- laItemUserLinker *iul; laItemUserLinkerLocal *iull; int local;
- if (!hi) return;
- laListHandle* users = laGetUserList(hi, pp->LastPs->p, &local); if(!users) return;
- for (iul = users->pFirst; iul; iul = iul->Pointer.pNext){
- if(local && (iull=iul) && iull->Instance!=hi) continue;
- if (iul->Remove == la_PropPanelUserRemover){
- laPanel *p = iul->Pointer.p;
- if (iul->Which == pp->LastPs->p && iul->FrameDistinguish == p->FrameDistinguish){
- //laSpinLock(&MAIN.csNotifier);
- if ((iul->Which->PropertyType & LA_PROP_SUB) || iul->ForceRecalc) laRecalcPanel(p);
- else laRedrawPanel(p);
- //laSpinUnlock(&MAIN.csNotifier);
- }
- }
- }
- }
- void laNotifyUsersPPPath(laPropPack *pp, char *path){
- laPropPack PP = {0};
- if(!path){ laNotifyUsersPP(pp); return; }
- la_GetPropFromPath(&PP, pp, path, 0);
- la_StepPropPack(&PP);
- laNotifyUsersPP(&PP);
- la_FreePropStepCache(PP.Go);
- }
- void laNotifySubPropUsers(laProp *prop, void *Instance){
- void *hi = Instance;
- laItemUserLinker *iul; laItemUserLinkerLocal *iull; int local;
- if (!hi) return;
- laListHandle* users = laGetUserList(hi, prop, &local); if(!users) return;
- for (iul = users->pFirst; iul; iul = iul->Pointer.pNext){
- if(local && (iull=iul) && iull->Instance!=hi) continue;
- if (iul->Remove == la_PropPanelUserRemover){
- laPanel *p = iul->Pointer.p;
- if (iul->Which == prop && iul->FrameDistinguish == p->FrameDistinguish){
- //laSpinLock(&MAIN.csNotifier);
- laRecalcPanel(p);
- //laSpinUnlock(&MAIN.csNotifier);
- }
- }
- }
- }
- void laNotifyInstanceUsers(void *Instance){
- void *hi = Instance;
- laItemUserLinker *iul; laItemUserLinkerLocal *iull; int local; if (!hi) return;
- laListHandle* users = laGetUserList(hi, 0, &local); if(!users) return;
- for (iul = users->pFirst; iul; iul = iul->Pointer.pNext){
- if(local && (iull=iul) && iull->Instance!=hi) continue;
- if (iul->Remove == la_PropPanelUserRemover){
- laPanel *p = iul->Pointer.p;
- if (iul->FrameDistinguish == p->FrameDistinguish){
- laRedrawPanel(p);
- if(iul->Which&&iul->Which->PropertyType==LA_PROP_SUB){ laRecalcPanel(p); }
- }
- }
- }
- }
- void laNotifyUsers(char *Path){
- laPropPack PP = {0};
- la_GetPropFromPath(&PP, 0, Path, 0);
- la_StepPropPack(&PP);
- laNotifyUsersPP(&PP);
- la_FreePropStepCache(PP.Go);
- }
- void laThreadNotifyUsers(char *Path){
- laThreadNotifier *tn = CreateNew(laThreadNotifier);
- strCopyFull(tn->Path, Path);
- //laSpinLock(&MAIN.csNotifier);
- lstAppendItem(&MAIN.ThreadNotifiers, tn);
- //laSpinUnlock(&MAIN.csNotifier);
- }
- void la_SetPropMathcerContext(laPanel *p){
- MAIN.PropMatcherContextP = p;
- }
- int laget_InstanceHyperLevel(void* instance){
- int level; memGetHead(instance,&level);
- return level;
- }
- int laget_InstanceModified(void* instance){
- int level; laMemNodeHyper* m=memGetHead(instance,&level);
- if(level==2) return m->Modified?1:0;
- return 0;
- }
- void* laget_InstanceUDF(void* unused, laPropIterator* unusedpi){
- return MAIN.ManagedUDFs.pFirst;
- }
- void* laget_InstanceActiveUDF(void* instance){
- int level; laMemNodeHyper* m=memGetHead(instance,&level);
- if(level==2) return m->FromFile;
- return 0;
- }
- void* laget_DummyManagedUDFSingle(void* unused){
- return MAIN.DummyManageUDFSingle;
- }
- void* laget_DummyManagedUDFSingleForce(void* unused){
- return MAIN.DummyManageUDFSingleForce;
- }
- void laset_InstanceUDFFromSingle(void* instance, laUDF* udf){
- if(!MAIN._CONTAINER_SETTING || !MAIN._CONTAINER_SETTING->UDFPropagate || !instance){ return; }
- if(udf == MAIN.DummyManageUDF){
- laInvoke(0, "LA_managed_save_new_file", 0,0,0,0);
- }
- MAIN._CONTAINER_SETTING->UDFPropagate(instance,udf,0);
- }
- void laset_InstanceUDFFromSingleForce(void* instance, laUDF* udf){
- if(!MAIN._CONTAINER_SETTING || !MAIN._CONTAINER_SETTING->UDFPropagate || !instance){ return; }
- if(udf == MAIN.DummyManageUDF){
- laInvoke(0, "LA_managed_save_new_file", 0,0,0,0);
- }
- MAIN._CONTAINER_SETTING->UDFPropagate(instance,udf,0);
- }
- void laset_InstanceUDF(void* instance, void* set){
- int level; laMemNodeHyper* m=memGetHead(instance,&level);
- if(level==2) memAssignRef(instance, &m->FromFile, set);
- if(set == MAIN.DummyManageUDF){
- laInvoke(0, "LA_managed_save_new_file", 0,0,0,0);
- }
- }
- void* laget_InstanceSelf(void* instace){
- return instace;
- }
- const char* LA_N_A="N/A";
- void *la_GetReadDBInstNUID(char *ReferReadNUID);
- void laget_InstanceUID(void* instance, char* buf, char** ptr){
- int level; laMemNodeHyper* m=memGetHead(instance,&level);
- if(level!=2||!m) return; *ptr=LA_N_A;
- *ptr=m->NUID.String;
- }
- void laset_InstanceUID(void* instance, char* buf){
- int level; laMemNodeHyper* m=memGetHead(instance,&level);
- if(level!=2||!m) return;
- char _buf[40];
- if(!buf[0]){ memCreateNUID(_buf,m); buf=_buf; }
- laListHandle *l = hsh65536DoHashNUID(&MAIN.DBInst2, m->NUID.String);
- laMemNodeHyper* im=0;
- for (im = l->pFirst; im; im = m->Item.pNext){ if(im==m) break; }
- if(im){ lstRemoveItem(l,im); laListHandle *nl = hsh65536DoHashNUID(&MAIN.DBInst2, buf); lstAppendItem(nl,im); }else{ im=m; /* Unlikely */ }
- sprintf(m->NUID.String,"%.30s",buf);
- }
- void* laget_SaverDummy(void* instance, laPropIterator* pi){
- laSubProp* p=MAIN._PROP_SETTING; laListHandle* l = (((char*)instance)+p->ListHandleOffset);
- if(!l->pFirst){
- laSaverDummy* sd=memAcquireHyper(sizeof(laSaverDummy)); lstAppendItem(l,sd);
- }
- while(l->pFirst!=l->pLast){ memLeave(lstPopItem(l)); }
- return l->pFirst;
- }
- laSaverDummy* laGetSaverDummy(void* instance, laSubProp* p){
- laListHandle* l = (((char*)instance)+p->ListHandleOffset);
- if(!l->pFirst){ laSaverDummy* sd=memAcquireHyper(sizeof(laSaverDummy)); lstAppendItem(l,sd); }
- while(l->pFirst!=l->pLast){ memLeave(lstPopItem(l)); }
- return l->pFirst;
- }
- void laPurgeSaverDummy(void* instance, laSubProp* p){
- laListHandle* l = (((char*)instance)+p->ListHandleOffset);
- while(l->pFirst){ memLeave(lstPopItem(l)); }
- }
- void la_FreeProperty(laProp* p){
- laIntProp *ip;laFloatProp *fp;laEnumProp *ep;laSubProp *sp;
- if(p->DetachedPP.Go){
- la_FreePropStepCache(p->DetachedPP.Go);
- switch (p->PropertyType){
- case LA_PROP_INT:
- case LA_PROP_INT | LA_PROP_ARRAY:
- ip = p; free(ip->Detached);
- break;
- case LA_PROP_FLOAT:
- case LA_PROP_FLOAT | LA_PROP_ARRAY:
- fp = p; free(fp->Detached);
- break;
- case LA_PROP_ENUM:
- case LA_PROP_ENUM | LA_PROP_ARRAY:
- ep = p; free(ep->Detached);
- }
- }
- if(p->PropertyType&LA_PROP_ENUM){ ep = p; laEnumItem* ei; while(ei=lstPopItem(&ep->Items)){ memFree(ei); } }
- memFree(p);
- }
- void la_FreePropertyContainer(laPropContainer* pc){
- laProp* p;
- while(p=lstPopItem(&pc->Props)){
- la_FreeProperty(p);
- }
- memFree(pc);
- }
- laPropContainer *laAddPropertyContainer(const char *Identifier, const char *Name, const char *Description, uint32_t IconID,
- laUiDefineFunc DefaultUiDefine,
- int NodeSize, laContainerPostReadFunc PostRead, laContainerPostReadFunc PostReadIm, int IsHyper){
- laPropContainer *pc = memAcquire(sizeof(laPropContainer));
- pc->Identifier = Identifier;
- pc->Name = Name;
- pc->Description = Description;
- pc->UiDefine = DefaultUiDefine;
- pc->IconID = IconID ? IconID : U'📦';
- pc->OtherAlloc = (IsHyper&LA_PROP_OTHER_ALLOC)?1:0;
- pc->Hyper = pc->OtherAlloc?0:(IsHyper&LA_PROP_HYPER_BITS);
- pc->PostRead = PostRead;
- pc->PostReadIm = PostReadIm;
- pc->NodeSize = NodeSize;
- if (!pc->OtherAlloc){
- laAddSubGroup(pc, "__file", "File", "The file this block came from/saves to", "managed_udf",
- 0,LA_WIDGET_COLLECTION_SELECTOR,laui_ManagedUDFItem,-1,laget_InstanceUDF,laget_InstanceActiveUDF,laget_ListNext,laset_InstanceUDF,0,0,0,LA_UDF_REFER|LA_UDF_IGNORE);
- laAddIntProperty(pc, "__hyper", "Hyper", "Hyper level of this data block", 0,0,0,0,0,0,0,0,-1,laget_InstanceHyperLevel,0,0,0,0,0,0,0,0,0,LA_READ_ONLY|LA_UDF_IGNORE);
- laProp* p=laAddEnumProperty(pc, "__modified", "Modified", "Data block is modified", LA_WIDGET_ENUM_ICON_PLAIN,0,0,0,0,-1,laget_InstanceModified,0,0,0,0,0,0,0,0,LA_READ_ONLY|LA_UDF_IGNORE);
- laAddEnumItemAs(p, "MODIFIED", "Modified", "Data block is modified", 1, U'🌑');
- laAddEnumItemAs(p, "CLEAN", "Clean", "Data block is clean", 0, 0);
- laAddStringProperty(pc, "__uid","UID","UID for shared resoure lookup",0,0,0,0,0,-1,0,laget_InstanceUID,laset_InstanceUID,0,LA_UDF_IGNORE);
- }
- laAddSubGroup(pc, "__self", "Self", "Own instance", Identifier,0,0,0,-1,0,laget_InstanceSelf,0,0,0,0,0,LA_UDF_REFER|LA_UDF_IGNORE);
- lstAppendItem(&MAIN.PropContainers, pc);
- return pc;
- }
- void laPropContainerExtraFunctions(laPropContainer* pc, laContainerBeforeFreeF BeforeFree, laContainerResetF Reset, laContainerUndoTouchedF Touched, laContainerpUDFPropagateF UDFPropagate, laUiDefineFunc MenuUi){
- pc->BeforeFree=BeforeFree; pc->Reset=Reset; pc->UndoTouched=Touched; pc->UDFPropagate=UDFPropagate; pc->MenuUiDefine=MenuUi;
- if(!pc->OtherAlloc && UDFPropagate){
- laAddOperatorProperty(pc,"__udf_propagate","Propagate","Propagate UDF to all child nodes", "LA_udf_propagate", 0,0);
- laAddSubGroup(pc,"__single_udf_propagate","Save to","Assign file to all child nodes (From a ingle-instanced parent)","managed_udf",
- 0,LA_WIDGET_COLLECTION_SELECTOR,laui_ManagedUDFItem,-1,laget_InstanceUDF,laget_DummyManagedUDFSingle,laget_ListNext,laset_InstanceUDFFromSingle,0,0,0,LA_UDF_REFER|LA_UDF_IGNORE);
- //laAddSubGroup(pc,"__single_udf_propagate_force","Force","Assign file to all child nodes (From a ingle-instanced parent)","managed_udf",
- // 0,LA_WIDGET_COLLECTION_SELECTOR,laui_ManagedUDFItem,-1,laget_InstanceUDF,laget_DummyManagedUDFSingleForce,laget_ListNext,laset_InstanceUDFFromSingleForce,0,0,0,LA_UDF_REFER|LA_UDF_IGNORE);
-
- }
- }
- laProp* laPropContainerManageable(laPropContainer* pc, int offset_of_dummy_list){
- if(!pc || pc->OtherAlloc || !offset_of_dummy_list) return 0;
- if(!MAIN.SaverDummyContainer){
- MAIN.SaverDummyContainer = laAddPropertyContainer("la_saver_dummy","Saver Dummy","Saver dummy",0,0,sizeof(laSaverDummy),0,0,2);
- laAddSubGroup(MAIN.SaverDummyContainer, "__file", "File", "The file this block came from/saves to", "managed_udf",
- 0,LA_WIDGET_COLLECTION_SELECTOR,laui_ManagedUDFItem,-1,laget_InstanceUDF,laget_InstanceActiveUDF,laget_ListNext,laset_InstanceUDF,0,0,0,LA_UDF_REFER|LA_UDF_IGNORE);
- }
- pc->SaverDummy=laAddSubGroup(pc,"__single_saver_dummy","Saver","Saver dummy","la_saver_dummy",0,0,0,-1,0,0,0,0,0,0,offset_of_dummy_list,0);
- return pc->SaverDummy;
- }
- void laContainerAnimationFunctions(laPropContainer* pc, laActionHolderVerifyF ActionHolderVerify){
- pc->ActionHolderVerify=ActionHolderVerify;
- }
- int la_GetKeyablePropertyStorageSize(laProp* p){
- switch(p->PropertyType){
- case LA_PROP_INT: case LA_PROP_FLOAT: case LA_PROP_ENUM:
- return sizeof(uint64_t);
- case LA_PROP_INT | LA_PROP_ARRAY: case LA_PROP_FLOAT | LA_PROP_ARRAY: case LA_PROP_ENUM | LA_PROP_ARRAY:
- if(p->GetLen){ return 0; }
- return sizeof(uint64_t)*p->Len;
- case LA_PROP_SUB: case LA_PROP_OPERATOR: case LA_PROP_STRING: case LA_PROP_RAW: default:
- return 0;
- }
- }
- int la_GetPropertySize(int Type){
- switch (Type){
- case LA_PROP_INT:
- case LA_PROP_INT | LA_PROP_ARRAY:
- return sizeof(laIntProp);
- case LA_PROP_FLOAT:
- case LA_PROP_FLOAT | LA_PROP_ARRAY:
- return sizeof(laFloatProp);
- case LA_PROP_ENUM:
- case LA_PROP_ENUM | LA_PROP_ARRAY:
- return sizeof(laEnumProp);
- case LA_PROP_SUB: return sizeof(laSubProp);
- case LA_PROP_OPERATOR: return sizeof(laOperatorProp);
- case LA_PROP_STRING: return sizeof(laStringProp);
- case LA_PROP_RAW: return sizeof(laRawProp);
- }
- return 0;
- }
- const char LA_PROP_STR_INT[] = "LA_PROP_INT";
- const char LA_PROP_STR_INT_ARR[] = "LA_PROP_INT_ARR";
- const char LA_PROP_STR_FLOAT[] = "LA_PROP_FLOAT";
- const char LA_PROP_STR_FLOAT_ARR[] = "LA_PROP_FLOAT_ARR";
- const char LA_PROP_STR_ENUM[] = "LA_PROP_ENUM";
- const char LA_PROP_STR_ENUM_ARR[] = "LA_PROP_ENUM_ARR";
- const char LA_PROP_STR_ACT[] = "LA_PROP_ACT";
- const char LA_PROP_STR_STR[] = "LA_PROP_STR";
- const char LA_PROP_STR_SUB[] = "LA_PROP_SUB";
- const char *la_GetPropertyTypeString(int Type){
- switch (Type){
- case LA_PROP_INT:
- return LA_PROP_STR_INT;
- case LA_PROP_INT | LA_PROP_ARRAY:
- return LA_PROP_STR_INT_ARR;
- case LA_PROP_FLOAT:
- return LA_PROP_STR_FLOAT;
- case LA_PROP_FLOAT | LA_PROP_ARRAY:
- return LA_PROP_STR_FLOAT_ARR;
- case LA_PROP_ENUM:
- return LA_PROP_STR_ENUM;
- case LA_PROP_ENUM | LA_PROP_ARRAY:
- return LA_PROP_STR_ENUM_ARR;
- case LA_PROP_SUB:
- return LA_PROP_STR_SUB;
- case LA_PROP_OPERATOR:
- return LA_PROP_STR_ACT;
- case LA_PROP_STRING:
- return LA_PROP_STR_STR;
- }
- return 0;
- }
- void la_AssignPropertyGeneralSub(laProp *p){
- switch (p->PropertyType){
- case LA_PROP_INT: p->SubProp = MAIN.GeneralIntSub; break;
- case LA_PROP_INT | LA_PROP_ARRAY: p->SubProp = MAIN.GeneralIntArraySub; break;
- case LA_PROP_FLOAT: p->SubProp = MAIN.GeneralFloatSub; break;
- case LA_PROP_FLOAT | LA_PROP_ARRAY: p->SubProp = MAIN.GeneralFloatArraySub; break;
- case LA_PROP_ENUM: p->SubProp = MAIN.GeneralEnumSub; break;
- case LA_PROP_ENUM | LA_PROP_ARRAY: p->SubProp = MAIN.GeneralEnumArraySub; break;
- case LA_PROP_STRING: p->SubProp = MAIN.GeneralStringSub; break;
- case LA_PROP_OPERATOR: p->SubProp = MAIN.GeneralOperatorSub; break;
- case LA_PROP_SUB: p->SubExtra = MAIN.GeneralCollectionSub; break;
- case LA_PROP_RAW: p->SubExtra = MAIN.GeneralRawSub; break;
- }
- }
- laProp *la_CreateProperty(laPropContainer *Container, int Type, const char *Identifier, const char *Name, const char *Description,
- const char *Prefix, const char *Unit, laWidget* DefaultWidget, u64bit Tag){
- laProp *p = memAcquire(la_GetPropertySize(Type));
- p->Identifier = Identifier;
- p->Name = Name;
- p->Description = Description;
- p->Prefix = Prefix;
- p->Unit = Unit;
- if(DefaultWidget){ p->DefaultUiType = DefaultWidget->Type; p->DefaultFlags = DefaultWidget->Flags; }
- p->PropertyType = Type;
- p->Tag = Tag;
- p->Container = Container;
- if (Container) lstAppendItem(&Container->Props, p);
- p->UDFIsRefer = (Tag & LA_UDF_REFER) ? 1 : 0;
- p->UDFIgnore = (Tag & LA_UDF_IGNORE) ? 1 : 0;
- p->UDFOnly = (Tag & LA_UDF_ONLY) ? 1 : 0;
- p->ReadOnly = (Tag & LA_READ_ONLY) ? 1 : 0;
- p->IsRadAngle = (Tag & LA_RAD_ANGLE)? 1 : 0;
- p->UDFHideInSave = (Tag & LA_HIDE_IN_SAVE)? 1 : 0;
- p->UDFReadProgress = (Tag & LA_PROP_READ_PROGRESS)?1:0;
- p->CanTranslate = (Tag & LA_TRANSLATE)?1:0;
- if(p->IsRadAngle&&(!p->Unit)) p->Unit="°";
- p->Keyable = (Tag & LA_PROP_KEYABLE)? 1 : 0;
- if(Tag&LA_PROP_ROTATION){ p->KeySpecialInterpolation=LA_PROP_KEY_INTERPOLATION_ROTATION; }
- return p;
- }
- void la_ClearDetachedProp(laPanel* p){
- laProp *np; while(np=lstPopItem(&p->PropLinkContainer->Props)){ free(np->Identifier); memFree(np); }
- }
- laProp *la_MakeDetachedProp(laPanel* p, const char *From, const char *Rename){
- laIntProp *ip;
- laFloatProp *fp;
- laEnumProp *ep;
- laSubProp *sp;
- laPropPack TempPP = {0};
- int result = 0;
- result = la_GetPropFromPath(&TempPP, 0, From, 0);
- if(!result) return 0;
-
- laProp *np = memAcquire(la_GetPropertySize(TempPP.LastPs->p->PropertyType));
- memcpy(np, TempPP.LastPs->p, la_GetPropertySize(TempPP.LastPs->p->PropertyType));
- np->Identifier = CreateNewBuffer(char, 128);
- strcpy(np->Identifier, Rename);
- np->DetachedPP.Go = 0;
- np->DetachedPP.RawThis = 0;
- np->DetachedPP.LastPs = 0;
- la_CopyPropPack(&TempPP, &np->DetachedPP);
- switch (np->PropertyType){
- case LA_PROP_INT:
- case LA_PROP_INT | LA_PROP_ARRAY:
- ip = np;
- ip->Detached = CreateNewBuffer(int, np->Len ? np->Len : 1);
- break;
- case LA_PROP_FLOAT:
- case LA_PROP_FLOAT | LA_PROP_ARRAY:
- fp = np;
- fp->Detached = CreateNewBuffer(real, np->Len ? np->Len : 1);
- break;
- case LA_PROP_ENUM:
- case LA_PROP_ENUM | LA_PROP_ARRAY:
- ep = np;
- ep->Detached = CreateNewBuffer(int, 1);
- ep->Detached[0] = ((laEnumItem *)ep->Items.pFirst)->Index;
- break;
- case LA_PROP_SUB:
- sp=np; sp->GetCategory=((laSubProp*)np)->GetCategory;
- break;
- }
- lstAppendItem(&p->PropLinkContainer->Props, np);
- la_AssignPropertyGeneralSub(np);
- la_FreePropStepCache(TempPP.Go);
- return np;
- }
- laProp *laAddIntProperty(laPropContainer *Container, const char *Identifier, const char *Name, const char *Description, laWidget* DefaultWidget,
- const char *Prefix, const char *Unit, int Max, int Min, int Step, int DefVal, const int *DefArr,
- int OffsetSize, laIntGetF Get, laIntSetF Set, int ArrayLength, laArrayGetLenF GetLen,
- laIntArraySetF SetArr, laIntArrayGetAllF GetAll, laIntArraySetAllF SetAll, laIntArraySetAllArrayF SetAllArr,
- laIntReadF Read, laIntArrayReadAllF ReadAll,
- u64bit Tag){
- laIntProp *p = la_CreateProperty(Container, LA_PROP_INT, Identifier, Name, Description, Prefix, Unit, DefaultWidget, Tag);
- if (ArrayLength > 1){
- p->Base.Len = ArrayLength;
- p->Base.PropertyType |= LA_PROP_ARRAY;
- }else if (GetLen)
- p->Base.GetLen = GetLen;
- p->Get = Get;
- p->Set = Set;
- p->SetAll = SetAll;
- p->GetAll = GetAll;
- p->SetAllArr = SetAllArr;
- p->SetArr = SetArr;
- p->DefArr = DefArr;
- p->DefVal = DefVal;
- p->Max = Max;
- p->Min = Min;
- p->Step = Step ? Step : 1;
- p->Base.Offset = OffsetSize;
- p->Base.OffsetIsPointer = (Tag&LA_UDF_REFER) ? 1 : 0;
- p->Read = Read;
- p->ReadAll = ReadAll;
- la_AssignPropertyGeneralSub(p);
- return p;
- }
- laProp *laAddFloatProperty(laPropContainer *Container, const char *Identifier, const char *Name, const char *Description, laWidget* DefaultWidget,
- const char *Prefix, const char *Unit, real Max, real Min, real Step, real DefVal, const real *DefArr,
- int OffsetSize, laFloatGetF Get, laFloatSetF Set, int ArrayLength, laArrayGetLenF GetLen,
- laFloatArraySetF SetArr, laFloatArrayGetAllF GetAll, laFloatArraySetAllF SetAll, laFloatArraySetAllArrayF SetAllArr,
- laFloatReadF Read, laFloatArrayReadAllF ReadAll,
- u64bit Tag){
- laFloatProp *p = la_CreateProperty(Container, LA_PROP_FLOAT, Identifier, Name, Description, Prefix, Unit, DefaultWidget, Tag);
- if (ArrayLength > 1){
- p->Base.Len = ArrayLength;
- p->Base.PropertyType |= LA_PROP_ARRAY;
- }else if (GetLen)
- p->Base.GetLen = GetLen;
- p->Get = Get;
- p->Set = Set;
- p->SetAll = SetAll;
- p->GetAll = GetAll;
- p->SetAllArr = SetAllArr;
- p->SetArr = SetArr;
- p->DefArr = DefArr;
- p->DefVal = DefVal;
- p->Max = Max;
- p->Min = Min;
- p->Step = Step ? Step : 0.01;
- p->Base.Offset = OffsetSize;
- p->Base.OffsetIsPointer = (Tag&LA_UDF_REFER) ? 1 : 0;
- p->Read = Read;
- p->ReadAll = ReadAll;
- la_AssignPropertyGeneralSub(p);
- return p;
- }
- laProp *laAddEnumProperty(laPropContainer *Container, const char *Identifier, const char *Name, const char *Description, laWidget* DefaultWidget,
- const char *Prefix, const char *Unit, int DefVal, const int *DefArr,
- int OffsetSize, laEnumGetF Get, laEnumSetF Set, int ArrayLength, laArrayGetLenF GetLen,
- laEnumArraySetF SetArr, laEnumArrayGetAllF GetAll, laEnumArraySetAllF SetAll,
- laEnumReadF Read, laEnumArrayReadAllF ReadAll,
- u64bit Tag){
- laEnumProp *p = la_CreateProperty(Container, LA_PROP_ENUM, Identifier, Name, Description, Prefix, Unit, DefaultWidget, Tag);
- if (ArrayLength > 1){
- p->Base.Len = ArrayLength;
- p->Base.PropertyType |= LA_PROP_ARRAY;
- }else if (GetLen)
- p->Base.GetLen = GetLen;
- p->Get = Get;
- p->Set = Set;
- p->SetAll = SetAll;
- p->GetAll = GetAll;
- p->SetArr = SetArr;
- p->DefArr = DefArr;
- p->DefVal = DefVal;
- p->Base.Offset = OffsetSize;
- p->Base.OffsetIsPointer = (Tag&LA_UDF_REFER) ? 1 : 0;
- p->Read = Read;
- p->ReadAll = ReadAll;
- la_AssignPropertyGeneralSub(p);
- return p;
- }
- int laAddEnumItem(laProp *p, const char *Identifier, const char *Name, const char *Description, uint32_t IconID){
- laEnumItem *ei = memAcquire(sizeof(laEnumItem));
- laEnumProp *ep = p;
- ei->Identifier = Identifier;
- ei->Name = Name;
- ei->Description = Description;
- ei->IconID = IconID;
- ei->Index = ep->Items.pLast ? ((laEnumItem *)ep->Items.pLast)->Index + 1 : 0;
- lstAppendItem(&ep->Items, ei);
- return 1;
- }
- int laAddEnumItemAs(laProp *p, const char *Identifier, const char *Name, const char *Description, int Index, uint32_t IconID){
- laEnumItem *ei = memAcquire(sizeof(laEnumItem));
- laEnumProp *ep = p;
- ei->Identifier = Identifier;
- ei->Name = Name;
- ei->Description = Description;
- ei->IconID = IconID;
- ei->Index = Index;
- lstAppendItem(&ep->Items, ei);
- return 1;
- }
- laProp *laAddStringProperty(laPropContainer *Container, const char *Identifier, const char *Name, const char *Description, laWidget* DefaultWidget,
- const char *Prefix, const char *Unit, const char *DefStr,
- int IsSafeString, int OffsetSize, laStringGetLenF GetLen, laStringGetF Get, laStringSetF Set,
- laStringReadF Read,
- u64bit Tag){
- laStringProp *p = la_CreateProperty(Container, LA_PROP_STRING, Identifier, Name, Description, Prefix, Unit, DefaultWidget, Tag);
- p->Get = Get;
- p->Set = Set;
- p->Getstrlen = GetLen;
- p->DefStr = DefStr;
- p->Base.Offset = OffsetSize;
- p->Base.OffsetIsPointer = (Tag&LA_UDF_LOCAL) ? 0 : 1;
- p->Read = Read;
- p->IsSafeString = IsSafeString;
- la_AssignPropertyGeneralSub(p);
- return p;
- }
- laProp *laAddSubGroup(laPropContainer *Container, const char *Identifier, const char *Name, const char *Description,
- const char *TargetId, laGetNodeTypeFunc GetType, laWidget* DefaultWidget, laUiDefineFunc DefaultUiDef,
- int OffsetSize, laSubGetInstanceF Get, laSubGetInstanceF GetActive, laSubGetNextF GetNext, laSubSetInstanceF Set,
- laSubGetStateF GetState, laSubSetStateF SetState, int ListHandleOffset, u64bit Tag){
- laSubProp *p = la_CreateProperty(Container, LA_PROP_SUB, Identifier, Name, Description, 0, 0, DefaultWidget, Tag);
- p->Base.Offset = OffsetSize;
- p->Get = Get;
- p->GetNext = GetNext;
- p->GetActive = GetActive;
- p->Set = Set;
- p->GetState = GetState;
- p->SetState = SetState;
- p->TargetID = TargetId;
- p->Base.OffsetIsPointer = (Tag & LA_UDF_LOCAL) ? 0 : 1;
- p->Base.UiDefine = DefaultUiDef;
- p->GetType = GetType;
- p->ListHandleOffset = ListHandleOffset;
-
- p->Base.UDFNoCreate = (Tag & LA_UDF_LOCAL) ? 1 : 0;
- if (Tag & LA_UDF_SINGLE || (p->Base.OffsetIsPointer && !p->ListHandleOffset && !p->GetNext && !(Tag & LA_UDF_REFER))) p->Base.UDFIsSingle = 1;
- la_AssignPropertyGeneralSub(p);
- return p;
- }
- void laSubGroupExtraFunctions(laProp* p, laSubUIFilterF* UiFilter, laSubSaveFilterF* SaveFilter, laSubUIThemeF* GetTheme, laSubUIGapF GetGap, laSubUICategoryF GetCategory){
- laSubProp *sp=p;
- sp->UiFilter=UiFilter; sp->SaveFilter=SaveFilter; sp->GetTheme=GetTheme; sp->GetGap=GetGap; sp->GetCategory=GetCategory;
- }
- void laSubGroupDetachable(laProp *SubProp, laSubTypeDetachedGet DetachedGet, laSubTypeDetachedGetNext DetachedGetNext){
- laSubProp *sp = SubProp;
- SubProp->Tag |= LA_DETACHABLE;
- sp->DetachedGet = DetachedGet;
- sp->DetachedGetNext = DetachedGetNext;
- }
- laProp *laAddOperatorProperty(laPropContainer *Container, const char *Identifier, const char *Name, const char *Description,
- const char *OperatorID, uint32_t IconID, laWidget* DefaultWidget){
- laOperatorProp *p = la_CreateProperty(Container, LA_PROP_OPERATOR, Identifier, Name, Description, 0, 0, DefaultWidget, 0);
- p->OperatorID = OperatorID;
- p->Base.IconID = IconID;
- la_AssignPropertyGeneralSub(p);
- return p;
- }
- laProp *laAddRawProperty(laPropContainer *Container, const char *Identifier, const char *Name, const char *Description, int OffsetSize, laRawGetSizeF GetSize, laRawGetF RawGet, laRawSetF RawSet, u64bit Tag){
- if(!RawGet && !GetSize) return 0;
- laRawProp *p = la_CreateProperty(Container, LA_PROP_RAW, Identifier, Name, Description, 0, 0, 0, Tag);
- p->Base.Offset = OffsetSize;
- p->Base.OffsetIsPointer = (Tag & LA_UDF_LOCAL) ? 0 : 1;
- p->RawGet=RawGet;
- p->RawGetSize=GetSize;
- p->RawSet=RawSet;
- la_AssignPropertyGeneralSub(p);
- return p;
- }
- //void laPropertySignal(laProp* p, int Throw, int Catch) {
- // p->SignalThrow = Throw;
- // p->SignalCatch = Catch;
- //}
- int laIsPropertyReadOnly(laPropPack *pp){
- if (pp && pp->LastPs && pp->LastPs->p->ReadOnly) return 1;
- return 0;
- }
- int laGetPrefixP(laPropPack *p, char buf[8][64]){
- char *prefix = transLate(p->LastPs->p->Prefix);
- int i = 0, row = 0;
- if (!prefix) return 0;
- int len=strlen(prefix);
- while ((prefix[i] != U'\0') && (i+=1+strGetStringTerminateBy(&prefix[i], U',', &buf[row]))){
- row++; if(i>=len){break;}
- }
- return 1;
- }
- int laGetPrefix(laProp *p, char buf[8][64]){
- char *prefix = transLate(p->Prefix);
- int i = 0, row = 0;
- if (!prefix) return 0;
- while ((prefix[i] != U'\0') && (i += 1 + strGetStringTerminateBy(&prefix[i], U',', &buf[row]))) row++;
- return 1;
- }
- laPropContainer* laGetInstanceType(laPropPack* pp, void* instance){
- if(pp->LastPs->p->PropertyType != LA_PROP_SUB) return 0;
- laSubProp* sp = pp->LastPs->p;
- if(instance && sp->GetType){ return sp->GetType(instance); }
- return pp->LastPs->p->SubProp;
- }
- laUiDefineFunc laGetPropertyUiDefine(laPropPack* pp, void* instance){
- if(pp->LastPs->p->UiDefine) return pp->LastPs->p->UiDefine;
- laPropContainer* pc=laGetInstanceType(pp, instance);
- if(pc && pc->UiDefine) return pc->UiDefine;
- return laui_SubPropInfoDefault;
- }
- laPropContainer* la_EnsureSubTarget(laSubProp* sp, void* optional_instance){
- if(sp->Base.PropertyType!=LA_PROP_SUB){return sp->Base.SubProp;}
- if(optional_instance && sp->GetType) return sp->GetType(optional_instance);
- if(sp->Base.SubProp){ return sp->Base.SubProp; }
- if(sp->TargetID)sp->Base.SubProp=la_ContainerLookup(sp->TargetID); return sp->Base.SubProp;
- }
- int laReadInt(laPropPack *pp, int n){
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- laIntProp *p = pp->LastPs->p;
- if (p->Read) p->Read(pp->LastPs->UseInstance, n);
- else
- laSetInt(pp, n);
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetInt(laPropPack *pp, int n){
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- laIntProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- n = n > p->Max ? p->Max : (n < p->Min ? p->Min : n);
- }
- if (p->Base.DetachedPP.LastPs){
- p->Detached[0] = n;
- laNotifyUsersPP(pp);
- return 1;
- }
- if (p->Set) p->Set(pp->LastPs->UseInstance, n);
- elif (pp->LastPs->p->Offset>=0){
- if (!p->Base.ElementBytes || p->Base.ElementBytes == 4){
- if (pp->LastPs->p->OffsetIsPointer) (**((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- else (*((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- }elif (p->Base.ElementBytes == 2){
- if (pp->LastPs->p->OffsetIsPointer) (**((short **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- else (*((short *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- }elif (p->Base.ElementBytes == 1){
- if (pp->LastPs->p->OffsetIsPointer) (**((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- else (*((BYTE *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laGetInt(laPropPack *pp){
- int n;
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- laIntProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- return p->Detached[0];
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (((laIntProp *)pp->LastPs->p)->Get) return ((laIntProp *)pp->LastPs->p)->Get(pp->LastPs->UseInstance);
- elif (pp->LastPs->p->Offset>=0){
- if (!p->Base.ElementBytes || p->Base.ElementBytes == 4){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- else n = (*((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- }elif (p->Base.ElementBytes == 2){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((short **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- else n = (*((short *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- }elif (p->Base.ElementBytes == 1){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- else n = (*((BYTE *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- }
- return n;
- }
- }
- return 0;
- }
- int laReadFloat(laPropPack *pp, real n){
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- laFloatProp *p = pp->LastPs->p;
- if (p->Read) p->Read(pp->LastPs->UseInstance, n);
- else
- laSetFloat(pp, n);
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetFloat(laPropPack *pp, real n){
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- laFloatProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- n = n > p->Max ? p->Max : (n < p->Min ? p->Min : n);
- }
- if (p->Base.DetachedPP.LastPs){
- p->Detached[0] = n;
- laNotifyUsersPP(pp);
- return 1;
- }
- if (p->Set) p->Set(pp->LastPs->UseInstance, n);
- elif (pp->LastPs->p->Offset>=0){
- if (pp->LastPs->p->OffsetIsPointer) (**((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- else (*((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- real laGetFloat(laPropPack *pp){
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- laFloatProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- return p->Detached[0];
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (((laFloatProp *)pp->LastPs->p)->Get) return ((laFloatProp *)pp->LastPs->p)->Get(pp->LastPs->UseInstance);
- elif (pp->LastPs->p->Offset>=0){
- if (pp->LastPs->p->OffsetIsPointer) return (**((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- else return (*((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- }
- }
- return 0;
- }
- int laGetArrayLength(laPropPack *pp){
- if (!pp->LastPs->p) return 0;
- if (pp->LastPs->p->GetLen) return pp->LastPs->p->GetLen(pp->LastPs->UseInstance);
- else{
- if(pp->LastPs->p->Len==0) pp->LastPs->p->Len=1;
- return pp->LastPs->p->Len;
- }
- }
- int laSetIntArraySingle(laPropPack *pp, int index, int n){
- laIntProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- n = n > p->Max ? p->Max : (n < p->Min ? p->Min : n);
- }
- if (p->Base.DetachedPP.LastPs){
- p->Detached[index] = n;
- laNotifyUsersPP(pp);
- return;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- if (p->SetArr){
- p->SetArr(pp->LastPs->UseInstance, index, n);
- laNotifyUsersPP(pp);
- return 1;
- }elif(p->SetAllArr){
- int len = laGetArrayLength(pp); int* t=malloc(len*sizeof(int));
- laGetIntArray(pp, t); t[index]=n;
- laSetIntArrayAllArray(pp, t); free(t);
- return 1;
- }elif(p->Set){
- laSetInt(pp, n);
- return 1;
- }elif (pp->LastPs->p->Offset>=0){
- int *src = (pp->LastPs->p->OffsetIsPointer) ? ((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- src[index] = n; laNotifyUsersPP(pp); return 1;
- }
- }
- return 0;
- }
- int laSetIntArrayAll(laPropPack *pp, int n){
- laIntProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- n = n > p->Max ? p->Max : (n < p->Min ? p->Min : n);
- }
- if (p->Base.DetachedPP.LastPs){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- p->Detached[i] = n;
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- if (p->SetAll) p->SetAll(pp->LastPs->UseInstance, n);
- else if (p->SetArr){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- p->SetArr(pp->LastPs->UseInstance, i, n);
- }
- }elif (pp->LastPs->p->Offset>=0){
- real *src = (pp->LastPs->p->OffsetIsPointer) ? ((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){ src[i] = n; }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laReadIntArrayAllArray(laPropPack *pp, int *arr){
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- if (((laIntProp *)pp->LastPs->p)->Base.DetachedPP.LastPs){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- ((laIntProp *)pp->LastPs->p)->Detached[i] = arr[i];
- }
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (((laIntProp *)pp->LastPs->p)->SetAllArr) ((laIntProp *)pp->LastPs->p)->SetAllArr(pp->LastPs->UseInstance, arr);
- else
- laSetIntArrayAllArray(pp, arr);
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetIntArrayAllArray(laPropPack *pp, int *arr){
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- if (((laIntProp *)pp->LastPs->p)->Base.DetachedPP.LastPs){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- ((laIntProp *)pp->LastPs->p)->Detached[i] = arr[i];
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (((laIntProp *)pp->LastPs->p)->SetAllArr) ((laIntProp *)pp->LastPs->p)->SetAllArr(pp->LastPs->UseInstance, arr);
- else if (((laIntProp *)pp->LastPs->p)->SetArr){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- ((laIntProp *)pp->LastPs->p)->SetArr(pp->LastPs->UseInstance, i, arr[i]);
- }
- }else if (pp->LastPs->p->Offset>=0){
- int *src = (pp->LastPs->p->OffsetIsPointer) ? ((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- src[i] = arr[i];
- }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laGetIntArray(laPropPack *pp, int *result){
- if (pp->LastPs->p->PropertyType & LA_PROP_INT){
- laIntProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- int len = laGetArrayLength(pp);
- memcpy(result, p->Detached, len * sizeof(int));
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (!((laIntProp *)pp->LastPs->p)->GetAll){
- int len = laGetArrayLength(pp);
- if(len==1){ *result=laGetInt(pp); return 1; }
- if(pp->LastPs->p->Offset>=0){
- int *src = (pp->LastPs->p->OffsetIsPointer) ? ((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- memcpy(result, src, len * sizeof(int));
- }else{ *result=0; }
- return 1;
- }else{
- ((laIntProp *)pp->LastPs->p)->GetAll(pp->LastPs->UseInstance, result);
- return 1;
- }
- }
- return 0;
- }
- int laSetFloatArraySingle(laPropPack *pp, int index, real n){
- laFloatProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- n = n > p->Max ? p->Max : (n < p->Min ? p->Min : n);
- }
- if (p->Base.DetachedPP.LastPs){
- p->Detached[index] = n;
- laNotifyUsersPP(pp);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- if (p->SetArr){
- p->SetArr(pp->LastPs->UseInstance, index, n);
- laNotifyUsersPP(pp);
- return 1;
- }elif(p->SetAllArr){
- int len = laGetArrayLength(pp); real* t=malloc(len*sizeof(real));
- laGetFloatArray(pp, t); t[index]=n;
- laSetFloatArrayAllArray(pp, t); free(t);
- return 1;
- }elif(p->Set){
- laSetFloat(pp, n);
- return 1;
- }elif (pp->LastPs->p->Offset>=0){
- real *src = (pp->LastPs->p->OffsetIsPointer) ? ((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- src[index] = n;
- laNotifyUsersPP(pp);
- return 1;
- }
- }
- return 0;
- }
- int laSetFloatArrayAll(laPropPack *pp, real n){
- laFloatProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- n = n > p->Max ? p->Max : (n < p->Min ? p->Min : n);
- }
- if (p->Base.DetachedPP.LastPs){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- p->Detached[i] = n;
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- if (p->SetAll) p->SetAll(pp->LastPs->UseInstance, n);
- else if (p->SetArr){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- p->SetArr(pp->LastPs->UseInstance, i, n);
- }
- }else if (pp->LastPs->p->Offset>=0){
- real *src = (pp->LastPs->p->OffsetIsPointer) ? ((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){ src[i] = n; }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laReadFloatArrayAllArray(laPropPack *pp, real *arr){
- if (((laFloatProp *)pp->LastPs->p)->Base.DetachedPP.LastPs){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- ((laFloatProp *)pp->LastPs->p)->Detached[i] = arr[i];
- }
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- if (((laFloatProp *)pp->LastPs->p)->ReadAll) ((laFloatProp *)pp->LastPs->p)->ReadAll(pp->LastPs->UseInstance, arr);
- else if (((laFloatProp *)pp->LastPs->p)->SetArr){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- ((laFloatProp *)pp->LastPs->p)->SetArr(pp->LastPs->UseInstance, i, arr[i]);
- }
- }else if (pp->LastPs->p->Offset>=0){
- real *src = (pp->LastPs->p->OffsetIsPointer) ? ((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){ src[i] = arr[i]; }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetFloatArrayAllArray(laPropPack *pp, real *arr){
- if (((laFloatProp *)pp->LastPs->p)->Base.DetachedPP.LastPs){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- ((laFloatProp *)pp->LastPs->p)->Detached[i] = arr[i];
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- if (((laFloatProp *)pp->LastPs->p)->SetAllArr) ((laFloatProp *)pp->LastPs->p)->SetAllArr(pp->LastPs->UseInstance, arr);
- else if (((laFloatProp *)pp->LastPs->p)->SetArr){
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){
- ((laFloatProp *)pp->LastPs->p)->SetArr(pp->LastPs->UseInstance, i, arr[i]);
- }
- }else if (pp->LastPs->p->Offset>=0){
- real *src = (pp->LastPs->p->OffsetIsPointer) ? ((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- int i = 0, len = laGetArrayLength(pp);
- for (i; i < len; i++){ src[i] = arr[i]; }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laGetFloatArray(laPropPack *pp, real *result){
- if (pp->LastPs->p->PropertyType & LA_PROP_FLOAT){
- laFloatProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- int len = laGetArrayLength(pp);
- memcpy(result, p->Detached, len * sizeof(real));
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (!((laFloatProp *)pp->LastPs->p)->GetAll){
- int len = laGetArrayLength(pp);
- if(len==1){ *result=laGetFloat(pp); return 1; }
- if(pp->LastPs->p->Offset>=0){
- real *src = (pp->LastPs->p->OffsetIsPointer) ? ((real **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) : ((real *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- memcpy(result, src, len * sizeof(real));
- }else{ *result=0; }
- return 1;
- }else{
- ((laFloatProp *)pp->LastPs->p)->GetAll(pp->LastPs->UseInstance, result);
- return 1;
- }
- }
- return 0;
- }
- int laReadEnum(laPropPack *pp, int n){
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- if (((laEnumProp *)pp->LastPs->p)->Read) ((laEnumProp *)pp->LastPs->p)->Read(pp->LastPs->UseInstance, n);
- else laSetEnum(pp, n);
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetEnumExternal(laPropPack *pp, int n){
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- laEnumProp *ep = pp->LastPs->p;
- laEnumItem *ei;
- int i = 0;
- for (ei = ep->Items.pFirst; ei; ei = ei->Item.pNext){
- if (i == n) break; i++;
- }
- laSetEnum(pp, ei->Index);
- }
- return 0;
- }
- int laSetEnum(laPropPack *pp, int n){
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- laEnumProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- p->Detached[0] = n;
- laNotifyUsersPP(pp);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (p->Set) p->Set(pp->LastPs->UseInstance, n);
- elif(p->Base.Offset>=0) {
- if (!p->Base.ElementBytes || p->Base.ElementBytes == 4){
- if (pp->LastPs->p->OffsetIsPointer) (**((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- else (*((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- }elif (p->Base.ElementBytes == 2){
- if (pp->LastPs->p->OffsetIsPointer) (**((short **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- else (*((short *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- }elif (p->Base.ElementBytes == 1){
- if (pp->LastPs->p->OffsetIsPointer) (**((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- else (*((BYTE *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset))) = n;
- }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laReadEnumArrayAll(laPropPack *pp, int *n){
- int i, len = pp->LastPs->p->Len;
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- if (((laEnumProp *)pp->LastPs->p)->ReadAll) ((laEnumProp *)pp->LastPs->p)->ReadAll(pp->LastPs->UseInstance, n);
- else
- for (i = 0; i < len; i++){
- laSetEnumArrayIndexed(pp, i, n[i]);
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetEnumArrayIndexedExternal(laPropPack *pp, int index, int n){
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- laEnumProp *ep = pp->LastPs->p;
- laEnumItem *ei;
- int i = 0;
- for (ei = ep->Items.pFirst; ei; ei = ei->Item.pNext){
- if (i == n) break;
- i++;
- }
- laSetEnumArrayIndexed(pp, index,ei->Index);
- }
- return 0;
- }
- int laSetEnumArrayIndexed(laPropPack *pp, int index, int n){
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- laEnumProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- p->Detached[index] = n;
- laNotifyUsersPP(pp);return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (p->SetArr) p->SetArr(pp->LastPs->UseInstance, index, n);
- elif(p->Set && index==0){ laSetEnum(pp, n); }
- elif(p->Base.Offset>=0){
- if (!p->Base.ElementBytes || p->Base.ElementBytes == 4){
- if (pp->LastPs->p->OffsetIsPointer) (**((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + sizeof(int) * index))) = n;
- else (*((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + sizeof(int) * index))) = n;
- }elif (p->Base.ElementBytes == 2){
- if (pp->LastPs->p->OffsetIsPointer) (**((short **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + sizeof(short) * index))) = n;
- else (*((short *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + sizeof(short) * index))) = n;
- }elif (p->Base.ElementBytes == 1){
- if (pp->LastPs->p->OffsetIsPointer) (**((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + sizeof(char) * index))) = n;
- else (*((BYTE *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + sizeof(char) * index))) = n;
- }
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetEnumArrayAllArray(laPropPack* pp, laEnumItem** ei){
- int len=laGetArrayLength(pp);
- for(int i=0;i<len;i++){
- laSetEnumArrayIndexed(pp,i,ei[i]->Index);
- }
- return 0;
- }
- int laSetEnumArrayAll(laPropPack* pp, int EnumN){
- int len=laGetArrayLength(pp);
- laEnumProp *ep = pp->LastPs->p; laEnumItem *ei;
- int i = 0; for (ei = ep->Items.pFirst; ei; ei = ei->Item.pNext){ if (i == EnumN) break; i++; }
- for(int i=0;i<len;i++){
- laSetEnumArrayIndexed(pp,i,ei->Index);
- }
- return 0;
- }
- laEnumItem *laGetEnum(laPropPack *pp){
- int n;
- laEnumItem *ei;
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- laEnumProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- n = p->Detached[0];
- }elif (!pp->LastPs->UseInstance) return 0;
- elif (p->Get) n = p->Get(pp->LastPs->UseInstance);
- elif(p->Base.Offset>=0){
- if (!pp->LastPs->UseInstance) n = 0;
- elif (!p->Base.ElementBytes || p->Base.ElementBytes == 4){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- else n = (*((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- }elif (p->Base.ElementBytes == 2){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((short **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- else n = (*((short *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- }elif (p->Base.ElementBytes == 1){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- else n = (*((BYTE *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)));
- }
- }
- for (ei = p->Items.pFirst; ei; ei = ei->Item.pNext){
- if (n == ei->Index) return ei;
- }
- }
- return ((laEnumProp *)pp->LastPs->p)->Items.pFirst;
- }
- laEnumItem *laGetEnumArrayIndexed(laPropPack *pp, int index){
- int n;
- int i = 0;
- laEnumItem *ei;
- int result[16];
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- laEnumProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- n = p->Detached[index];
- }elif (!p->GetAll){
- if(laGetArrayLength(pp)==1){return laGetEnum(pp);}
- if(p->Base.Offset>=0){
- if (!pp->LastPs->UseInstance) n = 0;
- elif (!p->Base.ElementBytes || p->Base.ElementBytes == 4){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((int **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) + index * sizeof(int));
- else n = (*((int *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + index * sizeof(int))));
- }elif (p->Base.ElementBytes == 2){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((short **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) + index * sizeof(short));
- else n = (*((short *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + index * sizeof(short))));
- }elif (p->Base.ElementBytes == 1){
- if (pp->LastPs->p->OffsetIsPointer) n = (**((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset)) + index * sizeof(char));
- else n = (*((BYTE *)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset + index * sizeof(char))));
- }
- }
- }else{
- if (!pp->LastPs->UseInstance) n = 0;
- else{
- p->GetAll(pp->LastPs->UseInstance, result);
- n = result[index];
- }
- }
- for (ei = p->Items.pFirst; ei; ei = ei->Item.pNext){
- if (n == ei->Index) return ei;
- }
- }
- return 0;
- }
- int laGetEnumArray(laPropPack *pp, laEnumItem **result){
- int len = laGetArrayLength(pp);
- int i = 0;
- laEnumItem *ei;
- int Results[16];
- laEnumProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- for (int i = 0; i < len; i++){
- Results[i] = p->Detached[i];
- for (ei = ((laEnumProp *)pp->LastPs->p)->Items.pFirst; ei; ei = ei->Item.pNext){
- if (ei->Index == Results[i]){result[i] = ei; break;}
- }
- }
- }elif (!((laEnumProp *)pp->LastPs->p)->GetAll){
- for (i; i < len; i++){
- result[i] = laGetEnumArrayIndexed(pp, i);
- }
- return 1;
- }else{
- int a = 0;
- ((laEnumProp *)pp->LastPs->p)->GetAll(pp->LastPs->UseInstance, Results);
- for (i = 0; i < len; i++){
- for (ei = ((laEnumProp *)pp->LastPs->p)->Items.pFirst; ei; ei = ei->Item.pNext){
- if (ei->Index == Results[i]){ result[i] = ei; break; }
- }
- }
- }
- }
- laEnumItem *laGetEnumFromIdentifier(laEnumProp *p, char *Identifier){
- laEnumItem *ei;
- for (ei = p->Items.pFirst; ei; ei = ei->Item.pNext){
- if (!strcmp(ei->Identifier, Identifier)) return ei;
- }
- return 0;
- }
- int laEnumHasIcon(laPropPack *pp){
- laEnumProp *p = pp->LastPs->p;
- laEnumItem *ei;
- if ((p->Base.PropertyType & LA_PROP_ENUM) != LA_PROP_ENUM) return 0;
- for (ei = p->Items.pFirst; ei; ei = ei->Item.pNext){
- if (ei->IconID) return 1;
- }
- return 0;
- }
- int laGetEnumEntryLen(laPropPack *pp){
- int i = 0;
- laEnumItem *ei;
- if (pp->LastPs->p->PropertyType & LA_PROP_ENUM){
- if (((laEnumProp *)pp->LastPs->p)->GetLen) return ((laEnumProp *)pp->LastPs->p)->GetLen(pp->LastPs->UseInstance);
- for (ei = ((laEnumProp *)pp->LastPs->p)->Items.pFirst; ei; ei = ei->Item.pNext){
- i += 1;
- }
- return i;
- }
- return 0;
- }
- int laReadString(laPropPack *pp, char *str){
- if (pp->LastPs->p->PropertyType == LA_PROP_STRING){
- if (((laStringProp *)pp->LastPs->p)->Read) ((laStringProp *)pp->LastPs->p)->Read(pp->LastPs->UseInstance, str);
- else
- laSetString(pp, str);
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laSetString(laPropPack *pp, char *str){
- char **add = 0;
- if (pp->LastPs->p->PropertyType == LA_PROP_STRING){
- laStringProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- strCopyFull(p->Detached, str);
- laNotifyUsersPP(pp);
- return 1;
- }
- if (p->Set){
- p->Set(pp->LastPs->UseInstance, str);
- laNotifyUsersPP(pp);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (p->IsSafeString){
- add = ((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- strSafeSet(add, str);
- laNotifyUsersPP(pp);
- return 1;
- }
- if (p->Base.Offset){
- if (p->Base.OffsetIsPointer){
- add = ((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- if (!(*add)) return 0;
- strCopyFull(*add, str);
- }else strCopyFull(((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset), str);
- }
- laNotifyUsersPP(pp);
- return 1;
- }
- return 0;
- }
- int laGetString(laPropPack *pp, char *result, char** direct_result){
- if (pp->LastPs->p->PropertyType == LA_PROP_STRING){
- laStringProp *p = pp->LastPs->p;
- if (p->Base.DetachedPP.LastPs){
- strCopyFull(result, p->Detached);
- return 1;
- }
- if (!pp->LastPs->UseInstance) return 0;
- if (p->Get){ p->Get(pp->LastPs->UseInstance, result, direct_result); return 1; }
- if (pp->LastPs->p->Offset>=0){
- if (p->IsSafeString){
- laSafeString **add = ((laSafeString **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- //printf(" -- %s\n",p->Base.Identifier);
- if ((!pp->LastPs->UseInstance) || (!*add)) return 0;
- if((*add)->Ptr){ *direct_result = (*add)->Ptr; return 1;}
- return 0;
- }else{
- if (pp->LastPs->p->OffsetIsPointer) *direct_result=*((char **)((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset));
- else *direct_result=((BYTE *)pp->LastPs->UseInstance + pp->LastPs->p->Offset);
- }
- }
- return 1;
- }
- return 0;
- }
- void *laGetInstance(laProp *sub, void *FromInstance, laPropIterator *Iter){
- laSubProp *sp = sub;
- laPropIterator IT = {0};
- if (!Iter) Iter = &IT;
- if (Iter) Iter->Parent = FromInstance;
- if (sub->PropertyType == LA_PROP_SUB){
- if (sp->Base.DetachedPP.LastPs){ if(sp->DetachedGet) return sp->DetachedGet(0, Iter);
- return sp->Detached;
- }
- if (!FromInstance) return 0;
- if (sp->Get) return sp->Get(FromInstance, Iter);
- else if (sp->ListHandleOffset){
- void *address = *((u64bit*)((BYTE *)FromInstance + sp->ListHandleOffset));
- return address;
- }else return laGetActiveInstance(sub, FromInstance, Iter);
- }
- return 0;
- }
- void *laGetNextInstance(laProp *sub, void *ThisInstance, laPropIterator *Iter){
- laSubProp *sp = sub;
- if (sub->PropertyType == LA_PROP_SUB){
- if (sp->Base.DetachedPP.LastPs && sp->DetachedGetNext) return sp->DetachedGetNext(ThisInstance, Iter);
- if (!ThisInstance) return 0;
- if (sp->GetNext) return (sp->GetNext(ThisInstance, Iter));
- else if (sp->ListHandleOffset){
- laListItem *li = ThisInstance;
- return li->pNext;
- }
- }
- return 0;
- }
- void *laGetActiveInstanceStrict(laProp *sub, void *FromInstance){
- laSubProp *sp = sub;
- if (sub->PropertyType == LA_PROP_SUB){
- if (sp->Base.DetachedPP.LastPs){
- return sp->Detached;
- }
- if (!FromInstance) return 0;
- if (sp->GetActive) return sp->GetActive(FromInstance, 0);
- if (sub->Offset>=0){
- if (sub->OffsetIsPointer /*&& (sp->Get||sp->ListHandleOffset)*/){
- void **a = (void **)((BYTE *)FromInstance + sub->Offset); return *a;
- }else return ((BYTE *)FromInstance + sub->Offset);
- }
- }
- return 0; // laGetInstance(sub, FromInstance, 0);
- }
- void *laGetActiveInstance(laProp *sub, void *FromInstance, laPropIterator *Iter){
- laSubProp *sp = sub;
- if (sub->PropertyType == LA_PROP_SUB){
- if (sp->Base.DetachedPP.LastPs){
- return sp->Detached;
- }
- if (!FromInstance) return 0;
- if (sp->GetActive) return sp->GetActive(FromInstance, Iter);
- if (sp->Get) return laGetInstance(sub, FromInstance, Iter);
- if (sub->Offset>=0){
- if (sub->OffsetIsPointer){
- void **a = (void **)((BYTE *)FromInstance + sub->Offset); return *a;
- }else return ((BYTE *)FromInstance + sub->Offset);
- }
- }
- return 0;
- }
- void laSetActiveInstance(laProp *sub, void *FromInstance, void *Instance){
- laSubProp *sp = sub;
- if (sub->PropertyType == LA_PROP_SUB){
- MAIN._CONTAINER_SETTING=sub->Container;
- MAIN._PROP_SETTING=sub;
- if (sp->Base.DetachedPP.LastPs){
- memAssignRef(sp, &sp->Detached, Instance);
- laNotifySubPropUsers(sp, FromInstance);
- return;
- }
- if (!FromInstance) return;
- if (sp->SetState){
- laNotifySubPropUsers(sp, FromInstance);
- sp->SetState(FromInstance, Instance, LA_UI_ACTIVE);
- }
- if (sp->Set){
- laNotifySubPropUsers(sp, FromInstance);
- sp->Set(FromInstance, Instance);
- }
- if (sub->OffsetIsPointer && sub->Offset>=0){
- void **a = (void **)((BYTE *)FromInstance + sub->Offset);
- laNotifySubPropUsers(sp, FromInstance);
- memAssignRefSafe(sub->Container->Hyper?sp:0,FromInstance, a, Instance);
- }
- }
- return;
- }
- void laAppendInstance(laSubProp *sub, void *FromInstance, void *Instance){
- if (sub->ListHandleOffset){
- lstAppendItem((BYTE *)FromInstance + sub->ListHandleOffset, Instance);
- }
- }
- void* laGetRaw(laPropPack *pp, int* r_size, int* return_is_a_copy){
- if (pp->LastPs->p->PropertyType == LA_PROP_RAW){
- laRawProp* rp=pp->LastPs->p;
- if(rp->RawGet){ return rp->RawGet(pp->LastPs->UseInstance, r_size, return_is_a_copy); }
- int s=rp->RawGetSize(pp->LastPs->UseInstance); void* data=0;
- if(rp->Base.OffsetIsPointer){ data=*((void**)(((char*)pp->LastPs->UseInstance)+rp->Base.Offset)); }
- else{ data=((char*)pp->LastPs->UseInstance)+rp->Base.Offset; }
- *return_is_a_copy=0; if(r_size) *r_size=s;
- return data;
- } return 0;
- }
- int laSetRaw(laPropPack *pp, void* data, int _size){
- if (pp->LastPs->p->PropertyType == LA_PROP_RAW){ laRawProp* rp=pp->LastPs->p;
- if(rp->RawSet){ rp->RawSet(pp->LastPs->UseInstance, data, _size); return; }
- if(rp->Base.OffsetIsPointer){ void** target=(((char*)pp->LastPs->UseInstance)+rp->Base.Offset); if(*target) free(*target);
- void* newd=_size?calloc(1,_size):0; if(_size)memcpy(newd, data, _size); (*target)=newd;
- }
- else{ memcpy(((char*)pp->LastPs->UseInstance)+rp->Base.Offset,data,_size); }
- return 1;
- } return 0;
- }
- int laTryGetInstanceIdentifier(void* Instance, laPropContainer* pc, char* identifier, char** here){
- if(!Instance || !pc) return 0;
- laProp* p=la_PropLookupIdentifierItem(&pc->Props);
- if(p){
- laPropPack PP={0}; laPropStep PS={0};
- PS.p=p; PS.Type='.'; PS.UseInstance=Instance; PP.LastPs=&PS; PP.EndInstance=Instance;
- if(p->PropertyType==LA_PROP_STRING){ laGetString(&PP,identifier,here); }
- elif(p->PropertyType&LA_PROP_INT){ int r[16]={0}; laGetIntArray(&PP,r); sprintf("(%s=%d)",p->Identifier,r[0]); }
- elif(p->PropertyType&LA_PROP_FLOAT){ real r[16]={0}; laGetFloatArray(&PP,r); sprintf("(%s=%lf)",p->Identifier,r[0]); }
- elif(p->PropertyType&LA_PROP_ENUM){ laEnumItem *r[16]={0}; laGetEnumArray(&PP,r); sprintf("(%s=%lf)",p->Identifier,r[0]?r[0]->Identifier:"?"); }
- else{ sprintf("(%.6x)",identifier); }
- return 1;
- }
- return 0;
- }
- int laGetIntRange(laPropPack *pp, int *min, int *max){
- laIntProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- *min = p->Min;
- *max = p->Max;
- return 1;
- }
- return 0;
- }
- int laGetFloatRange(laPropPack *pp, real *min, real *max){
- laFloatProp *p = pp->LastPs->p;
- if (p->Max != p->Min){
- *min = p->Min;
- *max = p->Max;
- return 1;
- }
- return 0;
- }
- int laCanGetState(laProp *sub){ laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetState) return 1; } return 0; }
- int laCanGetTheme(laProp *sub){ laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetTheme) return 1; } return 0; }
- int laCanGetGap(laProp *sub){ laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetGap) return 1; } return 0; }
- int laCanGetCategory(laProp *sub){ laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetCategory) return 1; } return 0; }
- int laGetUiState(laProp *sub, void *Instance){
- laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetState) return sp->GetState(Instance); } return 0;
- }
- laBoxedTheme* laGetUiTheme(laProp *sub, void* parent, void *Instance){
- laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetTheme) return sp->GetTheme(parent,Instance); } return 0;
- }
- int laGetUiGap(laProp *sub, void* parent, void *Instance){
- laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetGap) return sp->GetGap(parent,Instance); } return 0;
- }
- void laGetCategory(laProp *sub, void* parent, void *Instance, char* buf, char** buf_ptr){
- laSubProp *sp = sub; if (sub->PropertyType == LA_PROP_SUB){ if (sp->GetCategory) sp->GetCategory(parent,Instance, buf, buf_ptr); }
- }
- int laSetState(laProp *sub, void *FromInstance, void *Instance, int State){
- laSubProp *sp = sub;
- if (sub->PropertyType == LA_PROP_SUB){
- if (sp->SetState){
- laNotifySubPropUsers(sub, FromInstance);
- return sp->SetState(FromInstance, Instance, State);
- }
- }
- return 0;
- }
- int laActuateProp(laPropPack *This, laPropPack *RunPP, laOperator *OptionalFrom, laEvent *e){
- if (RunPP->LastPs->p->PropertyType & LA_PROP_OPERATOR){
- if (!((laOperatorProp *)RunPP->LastPs->p)->OperatorType){
- ((laOperatorProp *)RunPP->LastPs->p)->OperatorType = laGetOperatorType(((laOperatorProp *)RunPP->LastPs->p)->OperatorID);
- }
- return laInvokeP(OptionalFrom, ((laOperatorProp *)RunPP->LastPs->p)->OperatorType, e, This, 0, 0); //ARGS
- }
- }
- void laMarkPropChanged(laPropPack* pp){
- if(!pp) return;
- if(!pp->Go){ if(pp->LastPs&&pp->LastPs->p->Container && pp->LastPs->p->Container->Hyper==2 && pp->LastPs->UseInstance){
- laMemNodeHyper* m=memGetHead(pp->LastPs->UseInstance,0); m->Modified=1; } }
- else for(laPropStep* ps=pp->Go;ps;ps=ps->pNext){
- if(ps->Type=='.' && ps->p->Container->Hyper==2 && ps->UseInstance){
- laMemNodeHyper* m=memGetHead(ps->UseInstance,0); m->Modified=1; }
- }
- laMarkPropChanged(pp->RawThis);
- }
- void laMarkMemChanged(void* memuser){
- int level; laMemNodeHyper* m=memGetHead(memuser,&level); if(level!=2) return;
- m->Modified=1;
- }
- void laMarkMemClean(void* memuser){
- int level; laMemNodeHyper* m=memGetHead(memuser,&level); if(level!=2) return;
- m->Modified=0;
- }
- laPropContainer *la_SetGeneralRoot(laPropContainer **GeneralRoot, const char *Identifier, const char *Name, const char *Description){
- laPropContainer* ret =memAcquire(sizeof(laPropContainer));
- *GeneralRoot = ret;
- ret->Identifier = Identifier;
- ret->Name = Name;
- ret->Description = Description;
- ret->OtherAlloc=1;
- lstAppendItem(&MAIN.PropContainers, ret);
- return ret;
- }
- void laSetRootInstance(void *root){
- MAIN.DataRoot.RootInstance = root;
- }
- laPropContainer *laDefineRoot(){
- if (!MAIN.DataRoot.Root) MAIN.DataRoot.Root = laAddPropertyContainer("root", "__ROOT__", "Root Node In NUL4.0 Data System", U'🞈', 0, 0, 0, 0, 2|LA_PROP_OTHER_ALLOC);
- return MAIN.DataRoot.Root;
- }
- void laThrowToTrashBin(void *Data, char *ContainerString){
- laPropContainer *pc = la_ContainerLookup(ContainerString);
- lstAppendItem(&pc->TrashBin, Data);
- }
- int laValidateHyper2(laPropContainer* pc, laPropContainer* ParentHyper2, laSafeString** errors){
- int pass=1;
- for(laProp* p=pc->Props.pFirst;p;p=p->Item.pNext){
- if(p->PropertyType!=LA_PROP_SUB) continue;
- laSubProp* sp=p;
- if(!p->SubProp && !sp->GetType){
- p->SubProp=la_ContainerLookup(sp->TargetID);
- if(!p->SubProp){
- strSafePrint(errors, "Unable to locate property container \"%s\".\n", sp->TargetID); pass=0; continue; }
- laPropContainer* spc=p->SubProp;
- laPropContainer* sNoHyper2 = ParentHyper2;
- if(!ParentHyper2){
- if(pc->Hyper==2 && (!(p->UDFNoCreate||p->UDFIsRefer||p->UDFIsSingle))){
- sNoHyper2=pc; }
- }
- if(sNoHyper2){
- if(spc->Hyper==2 && !sp->Base.UDFIsRefer){ strSafePrint(errors,\
- "Hyper2 list (\"%s\") under another Hyper2 container (\"%s\") is not allowed.\n",
- sp->TargetID, sNoHyper2->Identifier); pass=0; }
- }
- if(!laValidateHyper2(p->SubProp, sNoHyper2, errors)){pass=0;}
- if(ParentHyper2) ParentHyper2->validated=1;
- }
- }
- return pass;
- }
- int laValidateProperties(){
- laSafeString* errors=0; int pass=1;
- for(laPropContainer* pc=MAIN.PropContainers.pFirst;pc;pc=pc->Item.pNext){
- if(pc->validated){continue;}
- if(!laValidateHyper2(pc, 0, &errors)){ pass=0; }
- pc->validated=1;
- }
- if(!pass){
- printf("laValidateHyper2 Failed:\n"); printf(errors->Ptr);
- }
- return pass;
- }
- //==================================[RW]
- void la_GetWorkingDirectoryInternal(){
- char mbuf[2048]; getcwd(mbuf,2048);
- int len=strlen(mbuf);if(mbuf[len]!=LA_PATH_SEP){ mbuf[len]=LA_PATH_SEP; mbuf[len+1]=0; }
- strSafeSet(&MAIN.WorkingDirectory, mbuf);
- }
- int laGetRelativeDirectory(char *FullFrom, char *FullTo, char *Result){
- return 0;
- //WIN32_FIND_DATA fd;
- //HANDLE h;
- //char *PathFrom = 0, *PathTo = 0;
- //char FullFromP[1024], FullToP[1024]={0};
- //char *FileNameOnly = 0;
- //int seg, i;
- //
- //Result[0] = 0;
- //
- //if (!FullFrom || !FullTo || FullFrom[0] != FullTo[0])
- // return 0;
- //
- //strcpy(FullFromP, FullFrom);
- //strcpy(FullToP, FullTo);
- //
- //while (h = FindFirstFile(FullFromP, &fd))
- //{
- // if (h == INVALID_HANDLE_VALUE || (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)))
- // {
- // strDiscardLastSegmentSeperateBy(FullFromP, '/');
- // continue;
- // }
- // break;
- //}
- //
- //while (h = FindFirstFile(FullToP, &fd))
- //{
- // if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
- // {
- // FileNameOnly = strGetLastSegment(FullToP, '/');
- // strDiscardLastSegmentSeperateBy(FullToP, '/');
- // continue;
- // }
- // elif (h == INVALID_HANDLE_VALUE)
- // {
- // strDiscardLastSegmentSeperateBy(FullToP, '/');
- // continue;
- // }
- // break;
- //}
- //
- //strDiscardSameBeginningSeperatedBy(FullFromP, FullToP, &PathFrom, &PathTo, '/');
- //
- //seg = strCountSegmentSeperateBy(PathFrom, '/');
- //
- //for (i = 0; i < seg; i++)
- //{
- // strcat(Result, "../");
- //}
- //
- //strcat(Result, PathTo);
- //
- //if (FileNameOnly)
- //{
- // strcat(Result, "/");
- // strcat(Result, FileNameOnly);
- //}
- //
- //return 1;
- }
- void laGetUDFRelativeDirectory(laUDF *From, laUDF *To, char *Result){
- if (!From || !To) return;
- laGetRelativeDirectory(From->FileName->Ptr, To->FileName->Ptr, Result);
- }
- void laGetFullPath(char *FullFrom, char *Relative, char *Result){
- //WIN32_FIND_DATA fd;
- //HANDLE h;
- //char *PathFrom = 0, *PathTo = 0;
- //char FullFromP[1024] = {0};
- //int seg, i;
- //
- //Result[0] = 0;
- //
- //if (!FullFrom)
- // return 0;
- //
- //strcpy(FullFromP, FullFrom);
- //
- //while (h = FindFirstFile(FullFromP, &fd))
- //{
- // if (h == INVALID_HANDLE_VALUE || (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)))
- // {
- // strDiscardLastSegmentSeperateBy(FullFromP, '/');
- // continue;
- // }
- // break;
- //}
- //strcpy(Result, FullFromP);
- ////strcat(Result, "/");
- //strcat(Result, Relative);
- }
- laUDF *laPrepareUDF(char *FileName){
- laUDF *udf = memAcquire(sizeof(laUDF));
- strSafeSet(&udf->FileName, FileName);
- return udf;
- }
- int laWriteProp(laUDF *udf, char *Path){
- laUDFPropSegment *ps = CreateNew(laUDFPropSegment);
- strSafeSet(&ps->Path, Path);
- la_GetPropFromPath(&ps->PP, 0, Path, 0);
- la_StepPropPack(&ps->PP);
- lstAppendItem(&udf->PropsToOperate, ps);
- udf->NumSegmets++;
- }
- int laWritePropP(laUDF *udf, laPropPack *pp){
- char buf[LA_RAW_CSTR_MAX_LEN] = {0};
- laUDFPropSegment *ps = CreateNew(laUDFPropSegment);
- ps->PPP = pp;
- udf->NumSegmets++;
- //la_GetPropPackFullPath(pp, Buf);
- //strSafeSet(&ps->Path, Buf);
- lstAppendItem(&udf->PropsToOperate, ps);
- }
- int la_IncludeHyper2Instance(laUDF *udf, laPropContainer* pc, void* Instance){
- laUDFH2Instance *h2 = memAcquire(sizeof(laUDFH2Instance));
- h2->pc=pc; h2->Instance = Instance;
- lstAppendItem(&udf->H2Instances, h2);
- udf->HasInstances=1;
- }
- int la_ClearHyper2Instances(laUDF* udf){
- laUDFH2Instance *h2;
- while(h2=lstPopItem(&udf->H2Instances)){ memFree(h2); }
- udf->HasInstances=0;
- }
- //void la_UDFAppendPointerRecord(void* UseInstance, laSubProp* p, void** PendingReference,void* ReadInstance) {
- // //laUDFPointerRecord* upr = &MAIN.PendingPointers[MAIN.NextPendingPointer];
- // //if (!ReadInstance) return;
- // //upr->ReadInstance = ReadInstance;
- // //upr->PendingReference = PendingReference;
- // //upr->SubProp = p;
- // //upr->UseInstance = UseInstance;
- // //MAIN.NextPendingPointer++;
- //}
- //void la_UDFAppendNUIDRecord(void* UseInstance, laSubProp* p, void** PendingReference, char * ReadNUID) {
- // //laUDFPointerRecord* upr = &MAIN.PendingPointers[MAIN.NextPendingPointer];
- // //if (!ReadNUID) return;
- // //upr->NUID = CreateNewBuffer(char, 23);
- // //strcpy(upr->NUID, ReadNUID);
- // //upr->PendingReference = PendingReference;
- // //upr->SubProp = p;
- // //upr->UseInstance = UseInstance;
- // //MAIN.NextPendingPointer++;
- //}
- //void la_UDFAppendPointerSync(void* ReadInstance, void* ActualInstance) {
- // //laUDFPointerSync* ups = CreateNew(laUDFPointerSync);
- // //ups->ReadPointer = ReadInstance;
- // //ups->ActualPointer = ActualInstance;
- // //hsh65536InsertItem(&MAIN.PointerSync, ups, ReadInstance);
- //}
- //void la_UDFAppendNUIDSync(char * ReadNUID, void* ActualInstance) {
- // //laUDFPointerSync* ups = CreateNew(laUDFPointerSync);
- // //ups->NUID = CreateNewBuffer(char, 23);
- // //memcpy(ups->NUID, ReadNUID,sizeof(char)*23);
- // //ups->ActualPointer = ActualInstance;
- // //hsh65536InsertItem(&MAIN.PointerSync, ups, (long)ReadNUID[15]);
- //}
- void la_UDFAppendSharedTypePointer(char *ID, void *Pointer){
- laSharedTypeItem *sti = memAcquireSimple(sizeof(laSharedTypeItem));
- strCopyFull(sti->ID, ID);
- sti->Pointer = Pointer;
- lstAppendItem(&MAIN.SharedTypePointerSync, sti);
- }
- #define la_UseUDF(udf) udf->Used = 1
- u64bit la_Tell(laUDF *udf){
- if (udf->DiskFile) return ftell(udf->DiskFile);
- else return udf->Seek;
- }
- int la_Seek(laUDF *udf, u64bit Offset){
- if (udf->DiskFile) return fseek(udf->DiskFile, Offset, SEEK_SET);
- udf->Seek = Offset;
- return 1;
- }
- u64bit la_FileSize(laUDF* udf){
- if(udf->DiskFile){ u64bit a=ftell(udf->DiskFile); fseek(udf->DiskFile,0,SEEK_END); u64bit sz=ftell(udf->DiskFile); fseek(udf->DiskFile,a,SEEK_SET); return sz; }
- return udf->FileContentSize;
- }
- void la_WriteString(laUDF *udf, char *String){
- short size = strlen(String);
- fwrite(&size, sizeof(short), 1, udf->DiskFile);
- if (size) fwrite(String, size*sizeof(char), 1, udf->DiskFile);
- }
- void la_WriteOnlyString(laUDF *udf, char *String){
- fwrite(String, strlen(String), 1, udf->DiskFile);
- }
- void la_WriteOnlyMBString(laUDF *udf, char *String){
- fwrite(String, strlen(String), 1, udf->DiskFile);
- }
- void la_WriteInt(laUDF *udf, int Data){
- fwrite(&Data, sizeof(int), 1, udf->DiskFile);
- }
- void la_WriteUByte(laUDF *udf, unsigned char Data){
- fwrite(&Data, sizeof(unsigned char), 1, udf->DiskFile);
- }
- void la_WriteShort(laUDF *udf, short Data){
- fwrite(&Data, sizeof(short), 1, udf->DiskFile);
- }
- void la_WriteLong(laUDF *udf, u64bit Data){
- fwrite(&Data, sizeof(u64bit), 1, udf->DiskFile);
- }
- void la_WritePointer(laUDF *udf, void *Data){
- fwrite(&Data, sizeof(void *), 1, udf->DiskFile);
- }
- void la_WriteFloat(laUDF *udf, real Data){
- fwrite(&Data, sizeof(real), 1, udf->DiskFile);
- }
- void la_WriteSized(laUDF *udf, void* Data, int size){
- printf("%x %d\n",Data,size);
- fwrite(Data, size, 1, udf->DiskFile);
- }
- short la_ReadShort(laUDF *udf){
- short result;
- if(!udf->FileContent){ fread(&result, sizeof(short), 1, udf->DiskFile); }
- else{ memcpy(&result, udf->FileContent + udf->Seek, sizeof(short)); udf->Seek += sizeof(short); }
- return result;
- }
- u8bit la_ReadUByte(laUDF *udf){
- u8bit result;
- if(!udf->FileContent){ fread(&result, sizeof(u8bit), 1, udf->DiskFile); }
- else{ memcpy(&result, udf->FileContent + udf->Seek, sizeof(u8bit)); udf->Seek += sizeof(u8bit); }
- return result;
- }
- int la_ReadInt(laUDF *udf){
- int result;
- if(!udf->FileContent){ fread(&result, sizeof(int), 1, udf->DiskFile); }
- else{ memcpy(&result, udf->FileContent + udf->Seek, sizeof(int)); udf->Seek += sizeof(int); }
- return result;
- }
- u64bit la_ReadLong(laUDF *udf){
- u64bit result;
- if(!udf->FileContent){ fread(&result, sizeof(u64bit), 1, udf->DiskFile); }
- else{ memcpy(&result, udf->FileContent + udf->Seek, sizeof(u64bit)); udf->Seek += sizeof(u64bit); }
- return result;
- }
- void *la_ReadPointer(laUDF *udf){
- u64bit result = 0;
- if(!udf->FileContent){ fread(&result, sizeof(u64bit), 1, udf->DiskFile); }
- else{ memcpy(&result, udf->FileContent + udf->Seek, sizeof(u64bit)); udf->Seek += sizeof(u64bit); }
- return (void *)result;
- }
- real la_ReadFloat(laUDF *udf){
- real result;
- if(!udf->FileContent){ fread(&result, sizeof(real), 1, udf->DiskFile); }
- else{ memcpy(&result, udf->FileContent + udf->Seek, sizeof(real)); udf->Seek += sizeof(real); }
- return result;
- }
- void la_ReadString(laUDF *udf, char *buffer){
- short len = la_ReadShort(udf);
- if (len){
- if(!udf->FileContent){ fread(buffer, sizeof(char) * len, 1, udf->DiskFile); }
- else{ memcpy(buffer, udf->FileContent + udf->Seek, sizeof(char) * len); udf->Seek += sizeof(char) * len; }
- }
- buffer[len] = 0;
- }
- void la_ReadOnlyString(laUDF *udf, short len, char *buffer){
- if(!udf->FileContent){ fread(buffer, sizeof(char) * len, 1, udf->DiskFile); }
- else{ memcpy(buffer, udf->FileContent + udf->Seek, sizeof(char) * len); udf->Seek += sizeof(char) * len; }
- buffer[len] = 0;
- }
- void la_ReadHyperData(laUDF *udf, void* HyperUserMem){
- short NumUsers, i;
- //void *CreatorInstance = la_ReadLong(udf);
- laMemNodeHyper h_ = {0};
- laMemNodeHyper *h=HyperUserMem?memGetHead(HyperUserMem, 0):&h_;
- //la_UDFAppendPointerRecord(0, 0, &h->CreatedBy,CreatorInstance);
- la_ReadString(udf, h->NUID.String);
- h->TimeCreated.Year = la_ReadShort(udf);
- h->TimeCreated.Month = la_ReadUByte(udf);
- h->TimeCreated.Day = la_ReadUByte(udf);
- h->TimeCreated.Hour = la_ReadUByte(udf);
- h->TimeCreated.Minute = la_ReadUByte(udf);
- h->TimeCreated.Second = la_ReadUByte(udf);
- }
- void la_PeekHyperUID(laUDF *udf, char* buf){
- int pos=la_Tell(udf);
- la_ReadString(udf, buf);
- la_Seek(udf, pos);
- }
- void la_ReadBuffer(laUDF *udf, u64bit Size, void *Result){
- if(!udf->FileContent){ fread(Result, Size, 1, udf->DiskFile); }
- else{ memcpy(Result, udf->FileContent + udf->Seek, Size); udf->Seek += Size; }
- }
- void* la_ReadRaw(laUDF *udf, int* _sz){
- int _size = la_ReadInt(udf);
- if (_size){
- void* data=calloc(1,_size);
- la_ReadBuffer(udf, _size, data);
- if(_sz) *_sz=_size;
- return data;
- } return 0;
- }
- void la_WriteSingleProperty(laUDF *udf, void *FromInstance, laProp *p){
- la_WriteString(udf, p->Identifier);
- }
- void la_GetPropPackFullPath(laPropPack *pp, char *result){
- char buf[1024], upbuf[1024]={0}; if(!pp){result[0]=0; return;}
- laPropStep *ps;
- buf[0] = U'\0';
- upbuf[0] = 0;
- if (pp->Go){
- for (ps = pp->Go; ps; ps = ps->pNext){
- //if (!ps->p||!ps->p->Identifier) strcat(buf, "?");
- if(ps->Type=='.') strcat(buf, ps->p->Identifier);
- if(ps->Type=='#' ||ps->Type=='@' ||ps->Type=='=') {char b2[2]={0}; b2[0]= ps->Type; strcat(buf, b2); strcat(buf, ps->p);}
- if (ps->pNext && ps->pNext->Type=='.') strcat(buf, ".");
- }
- }else{
- if(pp->LastPs){ if(pp->LastPs->p->Identifier) strcat(buf, pp->LastPs->p->Identifier); else { strcat(buf,"?"); } }
- if (pp->RawThis && pp->RawThis->LastPs->p != pp->LastPs->p) strcat(buf, pp->LastPs->p->Identifier);
- }
- if (pp->RawThis){
- la_GetPropPackFullPath(pp->RawThis, upbuf);
- if (pp->RawThis->LastPs->p != pp->LastPs->p) strcat(upbuf, ".");
- strcat(upbuf, buf);
- strCopyFull(result, upbuf);
- }else
- strCopyFull(result, buf);
- }
- void la_GetPropPackPath(laPropPack *pp, char *result){
- char buf[1024], upbuf[1024]={0};
- laPropStep *ps;
- buf[0] = U'\0';
- upbuf[0] = 0;
- char Sep[2] = {0};
- for (ps = pp->Go; ps; ps = ps->pNext){
- if (!ps->p->Identifier) break;
- if (ps->Type == U'.' || !ps->Type) strcat(buf, ps->p->Identifier);
- else
- strcat(buf, ps->p);
- if (ps->pNext) strcat(buf, (Sep[0] = ((laPropStep *)ps->pNext)->Type) ? Sep : ".");
- }
- strCopyFull(result, buf);
- }
- int la_ReadIntProp(laUDF *udf, laPropPack *pp){
- laProp *p;
- int Data[16] = {0};
- int len = 0;
- int i;
- if (!pp){
- int mode = la_ReadShort(udf);
- if (mode == LA_UDF_ARRAY_MARK_32){
- len = la_ReadShort(udf);
- for (i = 0; i < len; i++)
- la_ReadInt(udf);
- }else
- Data[0] = la_ReadInt(udf);
- return Data[0];
- }
- p = pp->LastPs->p;
- if (p->PropertyType & LA_PROP_ARRAY){
- la_ReadShort(udf); //mark
- len = la_ReadShort(udf);
- //len = laGetArrayLength(pp);
- for (i = 0; i < len; i++){
- Data[i] = la_ReadInt(udf);
- }
- laReadIntArrayAllArray(pp, Data);
- }else{
- la_ReadShort(udf);
- Data[0] = la_ReadInt(udf);
- laReadInt(pp, Data[0]);
- }
- return Data[0];
- }
- real la_ReadFloatProp(laUDF *udf, laPropPack *pp){
- laProp *p;
- real Data[16] = {0};
- int len = 0;
- int i;
- if (!pp){
- int mode = la_ReadShort(udf);
- if (mode == LA_UDF_ARRAY_MARK_64){
- len = la_ReadShort(udf);
- for (i = 0; i < len; i++)
- la_ReadFloat(udf);
- }else
- Data[0] = la_ReadFloat(udf);
- return Data[0];
- }
- p = pp->LastPs->p;
- if (p->PropertyType & LA_PROP_ARRAY){
- la_ReadShort(udf); //mark
- len = la_ReadShort(udf);
- //len = laGetArrayLength(pp);
- for (i = 0; i < len; i++){
- Data[i] = la_ReadFloat(udf);
- }
- if (pp) laReadFloatArrayAllArray(pp, Data);
- }else{
- la_ReadShort(udf);
- Data[0] = la_ReadFloat(udf);
- if (pp) laReadFloat(pp, Data[0]);
- }
- return Data[0];
- }
- void la_ReadStringProp(laUDF *udf, laPropPack *pp){
- char buf[LA_RAW_CSTR_MAX_LEN]={0}; //XXX: long string not correct...
- int len = 0;
- int i;
- buf[0] = 0;
- la_ReadShort(udf);
- la_ReadString(udf, buf);
- if (pp) laReadString(pp, buf);
- }
- void la_ReadStringPropAsIdentifier(laUDF *udf, char *buf){
- //char buf[LA_RAW_CSTR_MAX_LEN]={0};
- int len = 0;
- int i;
- buf[0] = 0;
- la_ReadShort(udf);
- la_ReadString(udf, buf);
- }
- void la_WriteIntProp(laUDF *udf, laPropPack *pp){
- laProp *p = pp->LastPs->p;
- int Data[16] = {0};
- int len = 0;
- int i;
- if (p->PropertyType & LA_PROP_ARRAY){
- la_WriteShort(udf, LA_UDF_ARRAY_MARK_32);
- laGetIntArray(pp, Data);
- len = laGetArrayLength(pp);
- la_WriteShort(udf, len);
- for (i = 0; i < len; i++){
- la_WriteInt(udf, Data[i]);
- }
- }else{
- la_WriteShort(udf, LA_UDF_REGULAR_MARK_32);
- Data[0] = laGetInt(pp);
- la_WriteInt(udf, Data[0]);
- }
- }
- void la_WriteFloatProp(laUDF *udf, laPropPack *pp){
- laProp *p = pp->LastPs->p;
- real Data[16] = {0};
- int len = 0;
- int i;
- if (p->PropertyType & LA_PROP_ARRAY){
- la_WriteShort(udf, LA_UDF_ARRAY_MARK_64);
- laGetFloatArray(pp, Data);
- len = laGetArrayLength(pp);
- la_WriteShort(udf, len);
- for (i = 0; i < len; i++){
- la_WriteFloat(udf, Data[i]);
- }
- }else{
- la_WriteShort(udf, LA_UDF_REGULAR_MARK_64);
- Data[0] = laGetFloat(pp);
- la_WriteFloat(udf, Data[0]);
- }
- }
- void la_WriteStringProp(laUDF *udf, laPropPack *pp){
- laProp *p = pp->LastPs->p;
- char _buf[LA_RAW_CSTR_MAX_LEN]={0}; char* buf=_buf;
- int len = 0;
- int i;
- buf[0] = 0;
- la_WriteShort(udf, LA_UDF_STRING_MARK);
- laGetString(pp, _buf, &buf);
- la_WriteString(udf, buf);
- }
- void la_ReadEnumProp(laUDF *udf, laPropPack *pp, char* orig_string){
- laProp *p;
- int Data[16] = {0};
- int len = 0;
- int i;
- char buf[LA_RAW_CSTR_MAX_LEN]={0};
- if (!pp){
- int mode = la_ReadShort(udf);
- if (mode == LA_UDF_ARRAY_MARK_32){
- len = la_ReadShort(udf);
- for (i = 0; i < len; i++)
- la_ReadString(udf, buf); //la_ReadInt(udf);
- }else
- la_ReadString(udf, buf); //la_ReadInt(udf);
- if(orig_string)strcpy(orig_string, buf);
- return;
- }
- p = pp->LastPs->p;
- if (p->PropertyType & LA_PROP_ARRAY){
- la_ReadShort(udf);
- len = la_ReadShort(udf);
- for (i = 0; i < len; i++){
- la_ReadString(udf, buf);
- Data[i] = laGetEnumFromIdentifier(p, buf)->Index;
- //Data[i] = la_ReadInt(udf);
- }
- if (pp) laReadEnumArrayAll(pp, Data);
- }else{
- la_ReadShort(udf);
- la_ReadString(udf, buf);
- Data[0] = laGetEnumFromIdentifier(p, buf)->Index;
- //Data[0] = la_ReadInt(udf);
- if (pp) laReadEnum(pp, Data[0]);
- }
- }
- void la_WriteEnumProp(laUDF *udf, laPropPack *pp){
- laProp *p = pp->LastPs->p;
- laEnumItem *Data[16] = {0};
- int len = 0;
- int i;
- if (p->PropertyType & LA_PROP_ARRAY){
- la_WriteShort(udf, (LA_UDF_ARRAY_MARK_32 | LA_UDF_STRING_MARK));
- laGetEnumArray(pp, Data);
- len = laGetArrayLength(pp);
- la_WriteShort(udf, len);
- for (i = 0; i < len; i++){
- la_WriteString(udf, Data[i]->Identifier);
- //la_WriteInt(udf, Data[i]->Index);
- }
- }else{
- la_WriteShort(udf, LA_UDF_STRING_MARK);
- Data[0] = laGetEnum(pp);
- la_WriteString(udf, Data[0]->Identifier);
- //la_WriteInt(udf, Data[0]->Index);
- }
- }
- void la_ReadRawProp(laUDF *udf, laPropPack *pp){
- la_ReadShort(udf);//mark
- int _size=0;
- void* data=la_ReadRaw(udf,&_size);
- if (pp) laSetRaw(pp, data, _size); free(data);
- }
- void la_WriteRawProp(laUDF *udf, laPropPack *pp){
- laProp *p = pp->LastPs->p;
- void* data; int _size=0, IsCopy=0;
- data=laGetRaw(pp, &_size, &IsCopy);
- la_WriteShort(udf, LA_UDF_RAW_MARK);
- if(!data){ _size=0; }
- la_WriteInt(udf,_size);
- if(_size){ la_WriteSized(udf,data,_size); }
- if(IsCopy && data){ free(data); }
- }
- void la_WriteHyperData(laUDF *udf, void *HyperUserMem){
- int loc = 0, res = 0, i = 0;
- laItemUserLinker *iul;
- laMemNodeHyper* h=memGetHead(HyperUserMem, 0);
- //la_WriteLong(udf, h->CreatedBy);
- la_WriteString(udf, h->NUID.String);
- la_WriteShort(udf, h->TimeCreated.Year);
- la_WriteUByte(udf, h->TimeCreated.Month);
- la_WriteUByte(udf, h->TimeCreated.Day);
- la_WriteUByte(udf, h->TimeCreated.Hour);
- la_WriteUByte(udf, h->TimeCreated.Minute);
- la_WriteUByte(udf, h->TimeCreated.Second);
- }
- laSharedTypeItem *la_ReferringToSharedResource(void *p){
- laSharedTypeItem *sti;
- for (sti = MAIN.SharedTypePointerSync.pFirst; sti; sti = sti->Item.pNext){
- if (sti->Pointer == p)
- return sti;
- }
- return 0;
- }
- void *la_FindSharedResouce(char *id){
- laSharedTypeItem *sti;
- for (sti = MAIN.SharedTypePointerSync.pFirst; sti; sti = sti->Item.pNext){
- if (strSame(id, sti->ID))
- return sti->Pointer;
- }
- return 0;
- }
- void la_AppendHyperRecord(laUDF *udf, void *HyperUserMem, laPropContainer* pc, u64bit Seek){
- laUDFHyperRecordItem *hri = lstAppendPointerSized(&udf->HyperRecords, HyperUserMem, sizeof(laUDFHyperRecordItem));
- hri->Seek = Seek;
- hri->pc = pc;
- }
- void* la_NextH2Instance(laUDF* udf){
- udf->CurrentH2Instance=(udf->CurrentH2Instance?udf->CurrentH2Instance->Item.pNext:0);
- }
- int la_WriteProp(laUDF *udf, laPropPack *pp, int FromThis, int UseInstanceList){
- laProp *p = pp->LastPs->p, *subp = 0;
- laPropStep SubPS = {0};
- laPropPack SubPP = {0};
- laPropIterator pi = {0};
- laSharedTypeItem *sti;
- laMemNodeHyper *hi;
- void *inst = 0;
- u64bit pReserve = 0, pContinue = 0;
- int ItemNum = 0, PropNum = 0;
- int counted = 0;
- u64bit pEachCount;
- SubPP.LastPs = &SubPS;
- if (p->PropertyType == LA_PROP_OPERATOR) return 0;
- if ((!pp->RawThis) || FromThis){
- char FullPath[1024]={0};
- FullPath[0] = 0;
- la_GetPropPackFullPath(pp, FullPath);
- la_WriteString(udf, FullPath);
- }else{
- la_WriteString(udf, p->Identifier);
- }
- switch (p->PropertyType){
- case LA_PROP_SUB:
- if (p->UDFIsRefer){
- inst = laGetActiveInstanceStrict(p, pp->LastPs->UseInstance);
- if (sti = la_ReferringToSharedResource(inst)){
- la_WriteShort(udf, LA_UDF_SHARE_RESOURCE);
- la_WriteString(udf, sti->ID);
- }else{
- if (!p->SubProp){
- p->SubProp = la_ContainerLookup(((laSubProp *)p)->TargetID);
- }
- if (p->SubProp->Hyper == 2){
- la_WriteShort(udf, LA_UDF_REFER | LA_UDF_HYPER_ITEM);
- if (!inst) la_WriteString(udf, "");
- else
- la_WriteString(udf, ((laMemNodeHyper *)memGetHead(inst,0))->NUID.String);
- udf->TotalRefs++;
- }else{
- la_WriteShort(udf, LA_UDF_REFER);
- la_WritePointer(udf, inst);
- }
- pp->EndInstance = inst;
- }
- udf->TotalRefs++;
- }else{
- la_EnsureSubTarget(p,0);
- la_WriteShort(udf, LA_UDF_COLLECTION);
- pReserve = la_Tell(udf); la_WriteInt(udf, 0); //num items
- if (((laSubProp*)p)->GetType) la_WriteInt(udf, LA_UDF_VARIABLE_NODE_SIZE);
- else la_WriteInt(udf, LA_UDF_FIXED_NODE_SIZE);
- la_WriteShort(udf, LA_UDF_ACTIVE);
- la_WritePointer(udf, laGetActiveInstance(p, pp->LastPs->UseInstance, &pi));
- if (FromThis){
- inst = pp->EndInstance;
- }else{
- inst = laGetInstance(p, pp->LastPs->UseInstance, &pi);
- pp->EndInstance = inst;
- }
- while (inst){
- if(((laSubProp*)p)->SaveFilter && (!((laSubProp*)p)->SaveFilter(pp->LastPs->UseInstance, inst))){
- inst = laGetNextInstance(p, inst, &pi); pp->EndInstance = inst; continue;
- }
- laPropContainer* pc=p->SubProp; int need_type=0;
- if (((laSubProp*)p)->GetType){ pc=((laSubProp*)p)->GetType(inst); need_type=1; }
- if (pc->Hyper == 2){
- if((!p->UDFIsSingle) && UseInstanceList&&inst!=udf->CurrentH2Instance->Instance){
- inst = laGetNextInstance(p, inst, &pi); pp->EndInstance = inst; continue;}
- if(need_type){ la_WriteString(udf, pc->Identifier); }
- hi = inst;
- la_WriteShort(udf, LA_UDF_HYPER_ITEM);
- la_AppendHyperRecord(udf, inst, p->SubProp, la_Tell(udf));
- la_WriteHyperData(udf, inst);
- memMarkClean(inst);
- }else{
- if(need_type){ la_WriteString(udf, pc->Identifier); }
- la_WriteShort(udf, LA_UDF_ITEM);
- }
-
- ItemNum++;
- la_WritePointer(udf, inst);
- la_WriteInt(udf, laGetUiState(p, pp->LastPs->UseInstance));
- PropNum=0; pEachCount = la_Tell(udf); la_WriteShort(udf, 0);
- for (subp = pc->Props.pFirst; subp; subp = subp->Item.pNext){
- if (subp->UDFIgnore) continue;
- SubPP.RawThis = pp;
- SubPS.p = subp;
- SubPS.UseInstance = inst;
- if (la_WriteProp(udf, &SubPP, 0, UseInstanceList)) PropNum++;
- }
- if (FromThis){ inst = 0; }else{
- inst = laGetNextInstance(p, inst, &pi);
- pp->EndInstance = inst;
- if(UseInstanceList&&pc->Hyper==2&&(!p->UDFIsSingle)&&(!p->UDFNoCreate)){
- la_NextH2Instance(udf); if(!udf->CurrentH2Instance) inst=0; }
- }
- pContinue = la_Tell(udf);
- la_Seek(udf, pEachCount); la_WriteShort(udf, PropNum);
- la_Seek(udf, pContinue);
- }
- pContinue = la_Tell(udf);
- la_Seek(udf, pReserve); la_WriteInt(udf, ItemNum);
- la_Seek(udf, pContinue);
- }
- break;
- case LA_PROP_INT:
- case LA_PROP_ARRAY | LA_PROP_INT:
- la_WriteIntProp(udf, pp);
- break;
- case LA_PROP_FLOAT:
- case LA_PROP_ARRAY | LA_PROP_FLOAT:
- la_WriteFloatProp(udf, pp);
- break;
- case LA_PROP_STRING:
- la_WriteStringProp(udf, pp);
- break;
- case LA_PROP_ENUM:
- case LA_PROP_ARRAY | LA_PROP_ENUM:
- la_WriteEnumProp(udf, pp);
- break;
- case LA_PROP_RAW:
- la_WriteRawProp(udf, pp);
- break;
- default:
- break;
- }
- return 1;
- }
- void la_AddPostReadNode(void *Instance, laContainerPostReadFunc Func){
- laUDFPostRead *upr = lstAppendPointerSized(&MAIN.PostReadNodes, Instance, sizeof(laUDFPostRead));
- upr->Instance = Instance;
- upr->Func = Func;
- lstAppendItem(&MAIN.PostReadNodes, upr);
- }
- laUDFContentNode *la_AppendUDFContentNode(laUDFContentInstance *Parent, laPropPack *ForMe, u64bit FileSeek){
- char FullPath[256]={0};
- laUDFContentNode *ucn = CreateNew(laUDFContentNode);
- FullPath[0] = 0;
- laProp *p = ForMe->LastPs->p;
- strSafeSet(&ucn->Identifier, p->Identifier);
- sprintf(FullPath, "%s.%s", Parent->Parent->FullPath->Ptr, p->Identifier);
- strSafeSet(&ucn->FullPath, FullPath);
- ucn->PP.Go = &ucn->FakePS;
- ucn->PP.LastPs = &ucn->FakePS;
- ucn->FakePS.p = p;
- ucn->FakePS.Type = U'.';
- ucn->PP.RawThis = &Parent->Parent->PP;
- ucn->Parent = Parent;
- ucn->FileSeek = FileSeek;
- lstAppendItem(&Parent->Children, ucn);
- return ucn;
- }
- laUDFContentInstance *la_AppendUDFContentInstance(laUDFContentNode *Parent, u64bit FileSeek){
- laUDFContentInstance *uci = CreateNew(laUDFContentInstance);
- uci->FileSeek = FileSeek;
- uci->Parent = Parent;
- strSafePrint(&uci->Identifier,"Instance at seek 0x%0x", FileSeek);
- lstAppendItem(&Parent->Instances, uci);
- return uci;
- }
- void la_DestroyUDFContentNodeTreeRecursive(laUDFContentNode *ucn, int FreeRoot){
- laUDFContentNode *ucni, *NextUCNI;
- laUDFContentInstance *ucii, *NextUCII;
- for (ucii = ucn->Instances.pFirst; ucii; ucii = NextUCII){
- NextUCII = ucii->Item.pNext;
- for (ucni = ucii->Children.pFirst; ucni; ucni = NextUCNI){
- NextUCNI = ucni->Item.pNext;
- strSafeDestroy(&ucii->Identifier);
- lstRemoveItem(&ucii->Children, ucni);
- la_DestroyUDFContentNodeTreeRecursive(ucni, 1);
- }
- lstRemoveItem(&ucn->Instances, ucii);
- FreeMem(ucii);
- }
- strSafeDestroy(&ucn->Identifier);
- strSafeDestroy(&ucn->FullPath);
- if (FreeRoot) FreeMem(ucn);
- }
- void *la_GetReadDBInstNUID(char *ReferReadNUID){
- if (!ReferReadNUID) return 0;
- laListHandle *l = hsh65536DoHashNUID(&MAIN.DBInst2, ReferReadNUID);
- for (laMemNodeHyper* m = l->pFirst; m; m = m->Item.pNext){
- if (!strcmp(ReferReadNUID, m->NUID.String))
- return ((unsigned char*)m)+sizeof(laMemNodeHyper);
- }
- return 0;
- }
- void *la_GetReadDBInstPtr(void *ReferRead){
- if (!ReferRead) return 0;
- laListHandle *l = hsh65536DoHashLongPtr(&MAIN.DBInst1, ReferRead);
- for (laMemNode* m = l->pFirst; m; m = m->Item.pNext){
- if (ReferRead == m->ReadInstance)
- return ((unsigned char*)m)+sizeof(laMemNode);
- }
- return 0;
- }
- void la_AddDataInst(void *ReadInstance, char *ReadNUID, void *ActualInstance){
- laListHandle* l=0;
- void* head=memGetHead(ActualInstance, 0);
- if (ReadNUID) l = hsh65536DoHashNUID(&MAIN.DBInst2, ReadNUID);
- else { l = hsh65536DoHashLongPtr(&MAIN.DBInst1, ReadInstance); ((laMemNode*)head)->ReadInstance = ReadInstance; }
- lstPushItem(l, head); //always push so we get the latest during ptr sync.
- }
- laPtrSync *la_AddPtrSyncDirect(void *Refer, void *Parent, laProp *Sub){
- laPtrSync *ps = memAcquireSimple(sizeof(laPtrSync));
- ps->RefDB = Refer;
- ps->Parent = Parent;
- ps->Prop = Sub;
- return ps;
- }
- laPtrSyncCommand *la_AddPtrSyncCommand(void *ReadRefer, void *ParentInst, char *ReadNUID, laProp *Sub){
- laPtrSyncCommand *psc = memAcquireSimple(sizeof(laPtrSyncCommand));
- psc->Target = la_AddPtrSyncDirect(0, ParentInst, Sub);
- psc->ReadInstance = ReadRefer;
- if (ReadNUID){ strcpy(psc->ReadNUID.String, ReadNUID); lstAppendItem(&MAIN.PtrSyncHyper2Commands, psc); }
- else{ lstAppendItem(&MAIN.PtrSyncAddressCommands, psc); }
- return psc;
- }
- void la_ResetInstance(void* inst, laPropContainer* pc, int IsListItem);
- void laRequestAdditionalRegistry(laUDFRegistry* r);
- laUDFOwnHyperItem* laNewHyperResource(char* uid);
- laUDFOwnHyperItem* laFindHyperResource(char* uid);
- void la_LoadAdditionalRegistries(){
- laUDFRegistry* r;
- while(r=lstPopPointer(&MAIN.PendingResourceRequests)){
- laManagedUDF* m;
- logPrint("[INFO] Loading additional resource: %s\n",r->Path->Ptr);
- laUDF* udf = laOpenUDF(r->Path->Ptr, 1, 0, &m);
- if (udf){ laExtractUDF(udf, m, LA_UDF_MODE_OVERWRITE, 0); laCloseUDF(udf); }else{ logPrint("[WARN] Can't open resource: %s\n",r->Path->Ptr); }
- }
- }
- void la_ExecutePtrSyncCommand(int Mode){
- int i;
- laPtrSyncCommand *psc,*NextPSC;
- laPtrSync *ps;
- void *dbi;
- laListHandle *lps, *ldbi;
- laListHandle L2 = {0};
- int FailCount = 0, AllCount = 0;
- while (psc = lstPopItem(&MAIN.PtrSyncAddressCommands)){
- ps = psc->Target; dbi=0; if (psc->ReadInstance) dbi = la_GetReadDBInstPtr(psc->ReadInstance);
- if (dbi){
- //if (Mode == LA_udf_read)dbi->ReadInst = dbi->ActualInst; //??
- ps->RefDB = dbi; laSetActiveInstance(ps->Prop, ps->Parent, dbi);
- }else{ FailCount++; }
- AllCount++; memFree(psc);
- }
- laUDFOwnHyperItem* ohi;
- for(psc=MAIN.PtrSyncHyper2Commands.pFirst;psc;psc=NextPSC){
- NextPSC=psc->Item.pNext; ps = psc->Target; dbi=0; if (psc->ReadNUID.String[0]) dbi = la_GetReadDBInstNUID(psc->ReadNUID.String);
- if (dbi){
- //if (Mode == LA_udf_read)dbi->ReadInst = dbi->ActualInst; //??
- ps->RefDB = dbi; laSetActiveInstance(ps->Prop, ps->Parent, dbi);
- lstRemoveItem(&MAIN.PtrSyncHyper2Commands,psc);memFree(psc);
- }else{
- if(!(ohi=laFindHyperResource(psc->ReadNUID.String))){
- logPrint("Can't find resource %s\n", psc->ReadNUID.String);
- lstRemoveItem(&MAIN.PtrSyncHyper2Commands,psc);memFree(psc);
- FailCount++;
- }else{
- laRequestAdditionalRegistry(ohi->Registry);
- lstRemoveItem(&MAIN.PtrSyncHyper2Commands,psc);
- lstPushItem(&MAIN.PtrSyncHyper2Commands,psc); continue;
- }
- }
- AllCount++;
- }
- logPrint("Reference Match: Total %d, Failed %d\n", AllCount, FailCount);
- la_LoadAdditionalRegistries();
- }
- int la_ExtractFakeProp(laUDF *udf){
- char buf[LA_RAW_CSTR_MAX_LEN] = {0};
- void *Instance = 0;
- void *ReadInstance;
- int ReadState;
- int NumItems;
- short PropNumPerItem;
- void *ActiveInstance;
- int i, j;
- int ItemType;
- short mode, len;
- int VariableNodeSize;
- short PreMode;
- mode = la_ReadShort(udf);
- switch (mode){
- case LA_UDF_REGULAR_MARK_32:
- la_ReadInt(udf);
- break;
- case LA_UDF_REGULAR_MARK_64:
- la_ReadFloat(udf);
- break;
- case (LA_UDF_ARRAY_MARK_32 | LA_UDF_STRING_MARK):
- len = la_ReadShort(udf);
- for (i = 0; i < len; i++)
- la_ReadString(udf, buf);
- break;
- case LA_UDF_ARRAY_MARK_32:
- len = la_ReadShort(udf);
- for (i = 0; i < len; i++)
- la_ReadInt(udf);
- break;
- case LA_UDF_ARRAY_MARK_64:
- len = la_ReadShort(udf);
- for (i = 0; i < len; i++)
- la_ReadFloat(udf);
- break;
- case LA_UDF_STRING_MARK:
- la_ReadString(udf, buf);
- break;
- case LA_UDF_SHARE_RESOURCE:
- la_ReadString(udf, buf);
- break;
- case LA_UDF_REFER:
- la_ReadPointer(udf);
- break;
- case (short)(LA_UDF_REFER | LA_UDF_HYPER_ITEM):
- la_ReadString(udf, buf);
- break;
- case LA_UDF_COLLECTION:
- NumItems = la_ReadInt(udf);
- VariableNodeSize = la_ReadInt(udf);
- VariableNodeSize = (VariableNodeSize == LA_UDF_VARIABLE_NODE_SIZE) ? 1 : 0;
- la_ReadShort(udf); //active mark
- ActiveInstance = la_ReadPointer(udf);
- for (i = 0; i < NumItems; i++){
- if(VariableNodeSize){ la_ReadString(udf,buf); }
- ItemType = la_ReadShort(udf);
- if (ItemType == LA_UDF_HYPER_ITEM){ la_ReadHyperData(udf, 0); }
- ReadInstance = la_ReadPointer(udf);
- ReadState = la_ReadInt(udf);
- PropNumPerItem=la_ReadShort(udf);
- for (j = 0; j < PropNumPerItem; j++){
- la_ReadString(udf, buf);
- la_ExtractFakeProp(udf);
- }
- }
- break;
- default:
- ReadState = ReadState;
- break;
- }
- return 0;
- }
- int la_ExtractProp(laUDF *udf, laManagedUDF* mUDF, laPropPack *pp, void *ParentInst, int Mode, laUDFContentNode *Parent){
- laPropStep SubPS = {0};
- laPropPack SubPP = {0};
- char buf[LA_RAW_CSTR_MAX_LEN] = {0};
- laProp *p = pp->LastPs->p, *subp;
- short SubMode, ItemType = 0;
- void *Instance = 0;
- void *ReadInstance;
- int ReadState;
- int NumItems;
- short PropNumPerItem;
- void *ActiveInstance;
- short PreReadMode;
- int i, j;
- int VariableNodeSize;
- char NodeType[128]={0};
- int EStatus = 0;
- laUDFContentInstance *uci;
- real ReadF;
- int ReadI;
- int IsExceptionNode = 0;
- SubPP.LastPs = &SubPS;
- switch (p->PropertyType){
- case LA_PROP_SUB:
- la_EnsureSubTarget(p, 0);
- SubMode = la_ReadShort(udf);
- if (SubMode == LA_UDF_SHARE_RESOURCE){
- if (!Parent){
- la_ReadString(udf, buf);
- laSetActiveInstance(p, pp->LastPs->UseInstance, la_FindSharedResouce(buf));
- }
- }elif (SubMode == LA_UDF_REFER){
- Instance = la_ReadPointer(udf);
- if (Instance && !Parent && p->Offset>=0){
- if (p->OffsetIsPointer) la_AddPtrSyncCommand(Instance, ParentInst, 0, p);
- else la_AddDataInst(Instance, 0, ((BYTE *)pp->LastPs->UseInstance + p->Offset));
- }
- }elif (SubMode == (short)(LA_UDF_REFER | LA_UDF_HYPER_ITEM)){
- char NUID[32]={0};
- NUID[0] = 0;
- la_ReadString(udf, NUID);
- if (NUID[0] && !Parent){
- la_AddPtrSyncCommand(0, ParentInst, NUID, p);
- }
- }elif (SubMode == LA_UDF_COLLECTION){
- laProp **PreList = 0; void *ThisDBInst = 0;
- NumItems = la_ReadInt(udf);
- VariableNodeSize = la_ReadInt(udf);
- VariableNodeSize = (VariableNodeSize == LA_UDF_VARIABLE_NODE_SIZE) ? 1 : 0;
- la_ReadShort(udf); //active mark
- ActiveInstance = la_ReadPointer(udf);
- if (NumItems == 0) break;
- if (p->UDFNoCreate){
- laPropIterator PI = {0};
- ItemType = la_ReadShort(udf);
- if (Parent) uci = la_AppendUDFContentInstance(Parent, la_Tell(udf));
- Instance = laGetInstance(p, pp->LastPs->UseInstance, &PI);
- la_ResetInstance(Instance, p->SubProp,0);
- if (ItemType == LA_UDF_HYPER_ITEM){
- if (p->SubProp->Hyper == 2){
- if (!Parent && !IsExceptionNode) la_ReadHyperData(udf, Instance);
- else la_ReadHyperData(udf, 0);
- if(mUDF) memAssignRef(Instance, &((laMemNodeHyper*)memGetHead(Instance, 0))->FromFile, mUDF);
- memMarkClean(Instance);
- }else la_ReadHyperData(udf, 0);
- if(Mode==LA_UDF_MODE_APPEND){ lstAppendPointer(&MAIN.RenewHyper2s,Instance); }
- }
- if (!Parent && p->SubProp->PostRead) la_AddPostReadNode(Instance, p->SubProp->PostRead);
- ReadInstance = la_ReadPointer(udf);
- ReadState = la_ReadInt(udf);
- if (!Parent) ThisDBInst=Instance;
- PropNumPerItem = la_ReadShort(udf);
- for (j = 0; j < PropNumPerItem; j++){
- int result; laUDFContentNode *ucn;
- la_ReadString(udf, buf);
- subp = la_PropLookup(&p->SubProp->Props, buf);
- SubPP.RawThis = pp;
- SubPS.p = subp;
- SubPS.UseInstance = Instance;
- if ((!subp) ||subp->UDFIgnore){la_ExtractFakeProp(udf); continue;}
- if (subp&&!subp->SubProp){ subp->SubProp = la_ContainerLookup(((laSubProp *)subp)->TargetID); }
- if (subp&& Parent && subp->PropertyType == LA_PROP_SUB){
- if (!subp->UDFIsRefer && !IsExceptionNode){
- ucn = la_AppendUDFContentNode(uci, &SubPP, la_Tell(udf));
- result = la_ExtractProp(udf, mUDF, &SubPP, ThisDBInst, Mode, ucn);
- }else{ result = la_ExtractFakeProp(udf);}
- }else{
- result = (IsExceptionNode||!subp) ? result = la_ExtractFakeProp(udf) : la_ExtractProp(udf, mUDF, &SubPP, ThisDBInst, Mode, Parent);
- }
- EStatus = result ? result : EStatus;
- }
- if (!Parent && p->SubProp->PostReadIm) p->SubProp->PostReadIm(Instance);
- }else{
- if(Mode==LA_UDF_MODE_APPEND && p->UDFIsSingle){
- logPrint("[Note] Mode is APPEND but property '%s' only allows one instance, will overwrite.\n", p->Identifier);
- }
- for (i = 0; i < NumItems; i++){
- int RealSize=0; laUDF *SaveUDF = 0; int SaveItemType = 0;IsExceptionNode = 0; Instance=0;
- laPropContainer* pc=p->SubProp;
- if(VariableNodeSize){ la_ReadString(udf, NodeType); pc=la_ContainerLookup(NodeType);
- if(!pc){pc=p->SubProp;} RealSize=pc->NodeSize;
- }
- ItemType = la_ReadShort(udf);
- if (Parent) uci = la_AppendUDFContentInstance(Parent, la_Tell(udf));
- if(p->UDFReadProgress){ laShowProgress((real)i/NumItems,-1); } //printf("add pc %s\n",pc->Identifier);
- if(pc==LA_PC_SOCKET_OUT || pc==LA_PC_SOCKET_IN){ laGraphRequestRebuild(); }
- int replaced=0;
- if (udf){
- int IsItem=((laSubProp*)p)->ListHandleOffset?1:0;
- RealSize = RealSize ? RealSize : p->SubProp->NodeSize;
- if (!Parent && !IsExceptionNode){
- if (p->UDFIsSingle && pp->EndInstance){ Instance = pp->EndInstance; la_ResetInstance(Instance, pc, IsItem); replaced=1; }
- else{
- // if overwrite, find the instance here for hyper2, if not Hyper 2 then notice can't overwrite.
- if (pc->Hyper == 2){
- if(Mode==LA_UDF_MODE_OVERWRITE && ItemType == LA_UDF_HYPER_ITEM){
- laUID uid; la_PeekHyperUID(udf, &uid.String);
- Instance = la_GetReadDBInstNUID(uid.String);
- if(Instance){ la_ResetInstance(Instance, pc,IsItem); replaced=1; }
- else{ /*logPrint("[Note] Hyper2 item [%s] from property '%s' hasn't been loaded yet, will append.\n", uid.String, p->Identifier);*/ }
- }
- if(!Instance) Instance = memAcquireHyperNoAppend(RealSize);
- memMarkClean(Instance);
- }elif (pc->Hyper == 1) Instance = memAcquire(RealSize);
- else Instance = memAcquireSimple(RealSize);
- }
- }
- if (ItemType == LA_UDF_HYPER_ITEM){
- if (pc->Hyper == 2){
- la_ReadHyperData(udf, Instance);
- if(mUDF) memAssignRef(Instance, &((laMemNodeHyper*)memGetHead(Instance, 0))->FromFile, mUDF);
- }
- else la_ReadHyperData(udf, 0);
- if(Mode==LA_UDF_MODE_APPEND){ lstAppendPointer(&MAIN.RenewHyper2s,Instance); }
- }
- if (!Parent && !IsExceptionNode){
- if (pc->PostRead) la_AddPostReadNode(Instance, pc->PostRead);
- }
- ReadInstance = la_ReadPointer(udf);
- ReadState = la_ReadInt(udf);
- if (!Parent && !IsExceptionNode && !replaced){
- la_AddDataInst(ReadInstance, pc->Hyper == 2 ? ((laMemNodeHyper *)memGetHead(Instance,0))->NUID.String : 0, Instance);
- }
- ThisDBInst = Instance;
- PropNumPerItem = la_ReadShort(udf);
- for (j = 0; j < PropNumPerItem; j++){
- u64bit ThisSeek;
- la_ReadString(udf, buf);
- subp = la_PropLookup(&pc->Props, buf);
- if ((!subp) || subp->UDFIgnore) la_ExtractFakeProp(udf);
- else{
- int result; laUDFContentNode *ucn;
- ThisSeek = la_Tell(udf);
- SubPP.RawThis = pp; SubPS.p = subp; SubPS.UseInstance = Instance;
- la_EnsureSubTarget(subp, 0);
- if (Parent && subp->PropertyType == LA_PROP_SUB && subp->SubProp){
- if (!subp->UDFIsRefer && !IsExceptionNode){
- ucn = la_AppendUDFContentNode(uci, &SubPP, ThisSeek);
- result = la_ExtractProp(udf, mUDF, &SubPP, ThisDBInst, Mode, ucn);
- }else{ result = la_ExtractFakeProp(udf); }
- }else{
- result = IsExceptionNode ? la_ExtractFakeProp(udf) : la_ExtractProp(udf, mUDF, &SubPP, ThisDBInst, Mode, Parent);
- }
- EStatus = result ? result : EStatus;
- }
- }
- if (!Parent && !IsExceptionNode && !replaced){
- if (pc->PostReadIm) pc->PostReadIm(Instance);
- if (pp->LastPs->UseInstance){
- if (!p->UDFIsSingle){
- if (((laSubProp *)p)->ListHandleOffset){
- laListHandle* inst_lst=(BYTE *)pp->LastPs->UseInstance + ((laSubProp *)p)->ListHandleOffset;
- if(p->Container->SaverDummy && p==p->Container->SaverDummy){ laPurgeSaverDummy(pp->LastPs->UseInstance,p); }
- lstAppendItem(inst_lst, Instance);
- }else{ lstAppendItem(&pc->FailedNodes, Instance); EStatus = 1; }
- }else{ if (!p->UDFNoCreate){ laSetActiveInstance(p, pp->LastPs->UseInstance, Instance); } }
- if (ReadInstance == ActiveInstance) laSetActiveInstance(p, pp->LastPs->UseInstance, Instance);
- }else{
- if (!p->UDFIsSingle){ lstAppendItem(&pc->FailedNodes, Instance); EStatus = 1; }
- }
- }
- }
- }
- }
- if (PreList) memFree(PreList);
- }
- break;
- case LA_PROP_INT:
- case LA_PROP_ARRAY | LA_PROP_INT:
- ReadI = la_ReadIntProp(udf, Parent ? 0 : pp);
- if (Parent && p->Tag & LA_AS_IDENTIFIER){
- sprintf(buf, "%d", ReadI); strSafeSet(&((laUDFContentInstance *)Parent->Instances.pLast)->Identifier, buf);
- }
- break;
- case LA_PROP_FLOAT:
- case LA_PROP_ARRAY | LA_PROP_FLOAT:
- ReadF = la_ReadFloatProp(udf, Parent ? 0 : pp);
- if (Parent && p->Tag & LA_AS_IDENTIFIER){
- sprintf(buf, "%lf", ReadF); strSafeSet(&((laUDFContentInstance *)Parent->Instances.pLast)->Identifier, buf);
- }
- break;
- case LA_PROP_STRING:
- if (Parent && p->Tag & LA_AS_IDENTIFIER){
- la_ReadStringPropAsIdentifier(udf, buf); strSafeSet(&((laUDFContentInstance *)Parent->Instances.pLast)->Identifier, buf);
- }else{
- la_ReadStringProp(udf, Parent ? 0 : pp);
- }
- break;
- case LA_PROP_ENUM:
- case LA_PROP_ARRAY | LA_PROP_ENUM:
- la_ReadEnumProp(udf, Parent ? 0 : pp, buf);
- if (Parent && p->Tag & LA_AS_IDENTIFIER){
- strSafeSet(&((laUDFContentInstance *)Parent->Instances.pLast)->Identifier, buf); }
- break;
- case LA_PROP_RAW:
- la_ReadRawProp(udf, pp);
- break;
- default:
- break;
- }
- return EStatus;
- }
- int la_RematchPointers(int Mode){
- laUDFPostRead *uprd;
- void* inst;
- la_ExecutePtrSyncCommand(Mode);
- while(uprd=lstPopItem(&MAIN.PostReadNodes)){ uprd->Func(uprd->Instance); memFree(uprd); }
- while(inst=lstPopPointer(&MAIN.RenewHyper2s)){ laMemNodeHyper* h=memGetHead(inst,0);memMakeHyperData(h);memAssignRef(h,&h->FromFile,0); }
- }
- int laPackUDF(laUDF *udf, int UseInstanceList, int DoBackup){
- laUDFPropSegment *ps;
- short NumSegments = 0;
- u64bit RefPos;
- u64bit nuidSeekRef;
- u64bit nuidActualSeek;
- char Root[1024]={0};
- char FilePath[1024]={0};
- if(DoBackup){
- char BackupPath[1024]; sprintf(BackupPath,"%s~",udf->FileName->Ptr);
- laCopyFile(BackupPath,udf->FileName->Ptr);
- }
- udf->DiskFile = fopen(udf->FileName->Ptr, "wb");
- if (!udf->DiskFile) return 0;
- la_WriteOnlyMBString(udf, LA_UDF_IDENTIFIER);
- u64bit SizeAndExt=la_Tell(udf);
- // reserved for extension switches and file size verifications.
- la_WritePointer(udf, 0);
- RefPos = la_Tell(udf);
- la_WriteLong(udf, 0); //How Many Refs.
- la_WriteShort(udf, udf->NumSegmets);
- la_WriteLong(udf, LA_UDF_NUID_SEEK);
- nuidSeekRef = la_Tell(udf);
- la_WritePointer(udf, 0); //Seek pos for nuid list;
- printf("Packing %s:\n", udf->FileName->Ptr);
- udf->CurrentH2Instance=udf->H2Instances.pFirst;
- while (ps = lstPopItem(&udf->PropsToOperate)){
- printf(" %-15s\n", ps->Path ? ps->Path->Ptr : ps->PPP->LastPs->p->Identifier);
- la_WriteProp(udf, ps->PPP ? ps->PPP : &ps->PP, ps->PPP ? 1 : 0, UseInstanceList);
- la_FreePropStepCache(ps->PP.Go);
- strSafeDestroy(&ps->Path);
- FreeMem(ps);
- }
- printf("[ALL DONE]\n\n");
- nuidActualSeek = la_Tell(udf);
- la_WriteHyperRecords(udf);
- u64bit ActualSize=la_Tell(udf);
- la_Seek(udf, RefPos);
- la_WriteLong(udf, udf->TotalRefs);
- la_Seek(udf, nuidSeekRef);
- la_WritePointer(udf, nuidActualSeek);
- la_Seek(udf, SizeAndExt);
- la_WritePointer(udf, (ActualSize&(0x0000ffffffffffff))<<16);
- udf->Modified = 0;
- laCloseUDF(udf);
- laHideProgress();
- return 1;
- }
- int laExtractUDF(laUDF *udf, laManagedUDF* mUDF, int Mode, laListHandle *Parent){
- char Identifier[9] = {0};
- char buf[1024]={0};
- short Version, NumSegments;
- //laPropStep SubPS = { 0 };
- int PointerBits;
- laPropPack SubPP = {0};
- int i;
- int EStatus = 0;
- u64bit SeekRef;
- int IsPart;
- laUDFContentNode *ucni = Parent;
- MAIN.IsReadingUDF = 1;
- la_ReadBuffer(udf, sizeof(LA_UDF_IDENTIFIER) - 1, Identifier);
- // file size verification and extension switches.
- u64bit verification=la_ReadPointer(udf);
- u64bit FileSize=verification>>16; int Extensions=verification&0xffff;
- if(FileSize && FileSize<la_FileSize(udf)){ logPrintNew("UDF verification failed for %s\n", udf->FileName->Ptr); return 0; }
- /*udf->TotalRefs = */ la_ReadLong(udf);
- NumSegments = la_ReadShort(udf);
- la_ReadLong(udf); //seek mark
- SeekRef = la_ReadPointer(udf);
- logPrintNew("Extracting UDF %s:\n", udf->FileName->Ptr);
- //MAIN.NextPendingPointer = 0;
- //MAIN.PendingPointers = CreateNewBuffer(laUDFPointerRecord, udf->TotalRefs);
- //SubPP.LastPs = &SubP;
- if (!udf->PropsToOperate.pFirst){ //Extract All
- for (i = 0; i < NumSegments; i++){
- laUDFContentNode *ucn;
- laUDFContentInstance *uci;
- void *dbi = 0;
- int result;
- int LastOffset;
- la_ReadString(udf, buf);
- LastOffset = strlen(buf) - 1;
- buf[LastOffset] = buf[LastOffset] == U'.' ? 0 : buf[LastOffset];
- logPrint(" Prop Segment \"%s\" ...\n", buf);
- la_GetPropFromPath(&SubPP, 0, buf, 0);
- la_StepPropPack(&SubPP);
- if (Parent){
- ucni = CreateNew(laUDFContentNode);
- la_GetPropFromPath(&ucni->PP, 0, buf, 0);
- la_StepPropPack(&ucni->PP);
- strSafeSet(&ucni->FullPath, buf);
- strSafeSet(&ucni->Identifier, buf);
- ucni->FileSeek = la_Tell(udf);
- lstAppendItem(Parent, ucni);
- }
- dbi = SubPP.EndInstance; //la_GetWriteDBInst(SubPP.EndInstance);
- result = (SubPP.LastPs&&SubPP.LastPs->p)?
- la_ExtractProp(udf, mUDF, &SubPP, dbi, Mode, ucni):
- la_ExtractFakeProp(udf);
- EStatus = result ? result : EStatus;
- laNotifyUsersPP(&SubPP);
- logPrint(" [Done]\n", buf);
- la_FreePropStepCache(SubPP.Go);
- SubPP.Go = 0;
- }
- }
- la_RematchPointers(Mode);
- laHideProgress();
- MAIN.IsReadingUDF = 0;
- return EStatus;
- }
- laManagedUDF* la_FindManagedUDF(char* FileName){
- for(laManagedUDF* m=MAIN.ManagedUDFs.pFirst;m;m=m->Item.pNext){
- if(m->udf&&m->udf->FileName&&!strcmp(m->udf->FileName->Ptr,FileName)) return m;
- }
- return 0;
- }
- laManagedUDF* la_EnsureManagedUDF(char* FileName, int PutAtTop){
- laManagedUDF* m;
- if(!(m=la_FindManagedUDF(FileName))){
- m=memAcquire(sizeof(laManagedUDF)); strSafeSet(&m->BaseName, strGetLastSegment(FileName,LA_PATH_SEP));
- if(PutAtTop) lstPushItem(&MAIN.ManagedUDFs, m); else lstAppendItem(&MAIN.ManagedUDFs, m);
- }
- return m;
- }
- void la_MakeDummyManagedUDF(){
- MAIN.DummyManageUDF=la_EnsureManagedUDF("< Save as a new file >", 1);
- if(!MAIN.DummyManageUDFSingle){
- MAIN.DummyManageUDFSingle=memAcquire(sizeof(laManagedUDF)); strSafeSet(&MAIN.DummyManageUDFSingle->BaseName, "< Choose file >");
- MAIN.DummyManageUDFSingleForce=memAcquire(sizeof(laManagedUDF)); strSafeSet(&MAIN.DummyManageUDFSingleForce->BaseName, "< Force >");
- }
- }
- void laSaveProp(char* path){
- if(!path || !path[0]) return; laManagedSaveProp* msp=0;
- for(laManagedSaveProp* m=MAIN.ManagedSaveProps.pFirst;m;m=m->Item.pNext){
- if(!strcmp(m->Path->Ptr,path)){ msp=m; break; }
- }
- if(!msp){ msp=memAcquireSimple(sizeof(laManagedSaveProp)); lstAppendItem(&MAIN.ManagedSaveProps, msp); }
- strSafeSet(&msp->Path, path);
- }
- void laClearSaveProp(){
- laManagedSaveProp* m; while(m=lstPopItem(&MAIN.ManagedSaveProps)) { strSafeDestroy(&m->Path); memFree(m); }
- }
- int la_ScanForModifiedRecursive(laPropPack* pp, int ReturnIfAnyMod, int ReturnIfAnyEmpty, int* rempty, int RegisterToUDF){
- int result=0;
- laProp* p=pp->LastPs->p; laPropIterator pi={0};
- if(p->PropertyType!=LA_PROP_SUB || p->UDFIsRefer || p->UDFIgnore || p->UDFOnly) return 0;
- la_EnsureSubTarget(p, 0); //if(p->SubProp && p->SubProp->Hyper!=2) return 0;
- void* inst = laGetInstance(p, pp->LastPs->UseInstance, &pi);
- while(inst){
- laPropContainer* pc=la_EnsureSubTarget(p, inst);
- if(pc->Hyper!=2){
- laPropPack spp={0}; laPropStep sps={0}; spp.LastPs=&sps;
- for(laProp* sp=pc->Props.pFirst;sp;sp=sp->Item.pNext){
- sps.UseInstance=inst; sps.p=sp;
- if(sp->PropertyType==LA_PROP_SUB) {
- result|=la_ScanForModifiedRecursive(&spp, ReturnIfAnyMod, ReturnIfAnyEmpty, rempty, RegisterToUDF);
- if((ReturnIfAnyMod||ReturnIfAnyEmpty)&&result)return result;
- }
- }
- }else{
- laMemNodeHyper* m = memGetHead(inst,0);
- if(!m->FromFile || m->FromFile==MAIN.DummyManageUDF){ result|=1; if(rempty)*rempty|=1; if((ReturnIfAnyMod||ReturnIfAnyEmpty)&&result)return result; }
- if((!p->UDFIsSingle)&&(!p->UDFNoCreate)&&RegisterToUDF&&m->FromFile&&m->FromFile->udf){ la_IncludeHyper2Instance(m->FromFile->udf, pc, inst); }
- if(m->Modified){
- if(m->FromFile && m->FromFile->udf){ m->FromFile->udf->Modified=1; }
- result|=1; if(ReturnIfAnyMod&&result)return result;
- }
- }
- inst=laGetNextInstance(p,inst,&pi);
- }
- return result;
- }
- int laRegisterModifications(int ReturnIfAnyMod, int ReturnIfAnyEmpty, int* rempty, int RegisterToUDF){
- int result=0, registered; if(RegisterToUDF){ReturnIfAnyMod=ReturnIfAnyEmpty=0;}
- for(laManagedUDF* m=MAIN.ManagedUDFs.pFirst;m;m=m->Item.pNext){
- if(!m->udf)continue;
- m->udf->Modified=0;
- la_ClearHyper2Instances(m->udf);
- }
- for(laManagedSaveProp* msp=MAIN.ManagedSaveProps.pFirst;msp;msp=msp->Item.pNext){
- laPropPack PP={0}; registered=0;
- if(msp->Path&&msp->Path->Ptr&&la_GetPropFromPath(&PP, 0, msp->Path->Ptr, 0)){
- la_StepPropPack(&PP);
- result|=la_ScanForModifiedRecursive(&PP, ReturnIfAnyMod, ReturnIfAnyEmpty, rempty, RegisterToUDF);
- for(laManagedUDF* m=MAIN.ManagedUDFs.pFirst;m;m=m->Item.pNext){
- if(!m->udf)continue;
- if(m->udf->HasInstances){ laWriteProp(m->udf,msp->Path->Ptr); m->udf->HasInstances=0; }
- }
- if((ReturnIfAnyMod||ReturnIfAnyEmpty)&&result)return result;
- la_FreePropStepCache(PP.Go);
- }
- }
- return result;
- }
- void la_ReadUDFToMemory(laUDF *udf){
- if (udf->FileContent)
- return;
- fseek(udf->DiskFile, 0, SEEK_END);
- u64bit SeekEnd = ftell(udf->DiskFile);
- fseek(udf->DiskFile, 0, SEEK_SET);
- udf->FileContent = calloc(1, SeekEnd);
- udf->FileContentSize=SeekEnd;
- fread(udf->FileContent, SeekEnd, 1, udf->DiskFile);
- udf->Seek = 0;
- }
- void la_ReadOwnHyperItems(laUDF *udf, laUDFRegistry* r){
- int Count, i;
- laUDFOwnHyperItem *ohi;
- Count = la_ReadLong(udf);
- int Seek;
- char name[256]; laUID uid;
- for (i = 0; i < Count; i++){
- la_ReadString(udf, uid.String);
- la_ReadString(udf, name);
- Seek=la_ReadPointer(udf);
- laPropContainer* pc = la_ContainerLookup(name);
- if(!laFindHyperResource(uid.String)){
- ohi = laNewHyperResource(uid.String);
- ohi->Registry = r;
- ohi->Seek = Seek;
- strcpy(ohi->NUID.String, uid.String);
- //logPrint("Found Resource: %s | %s\n",ohi->NUID.String,name);
- } else {logPrint("Duplicated Resource: %s | %s\n",uid.String,name);}
- }
- }
- int la_WriteHyperRecords(laUDF *udf){
- int i = 0;
- u64bit CountSeek = la_Tell(udf);
- u64bit EndSeek;
- laUDFHyperRecordItem *hri;
- laMemNodeHyper* h;
- la_WriteLong(udf, 0);
- while (hri = lstPopItem(&udf->HyperRecords)){
- h=memGetHead(hri->HyperUserMem, 0);
- la_WriteString(udf, h->NUID.String);
- if(hri->pc) la_WriteString(udf, hri->pc->Identifier); else la_WriteString(udf, "");
- la_WritePointer(udf, hri->Seek);
- i++; memFree(hri);
- }
- EndSeek = la_Tell(udf);
- la_Seek(udf, CountSeek);
- la_WriteLong(udf, i);
- la_Seek(udf, EndSeek);
- return i;
- }
- laUDF *laOpenUDF(char *FileName, int ReadToMemory, laUDFRegistry* ReadRegistryRef, laManagedUDF** UseManaged){
- char Identifier[9] = {0};
- u64bit SeekRef;
- laUDF *udf;
- u64bit extensions;
- char FilePath[1024]={0};
- udf=memAcquire(sizeof(laUDF));
- strSafeSet(&udf->FileName, FileName);
- udf->DiskFile = fopen(udf->FileName->Ptr, "rb");
- if (!udf->DiskFile) return 0;
- if(ReadToMemory){ la_ReadUDFToMemory(udf); fclose(udf->DiskFile); udf->DiskFile = 0; }
- la_ReadBuffer(udf, sizeof(LA_UDF_IDENTIFIER) - 1, Identifier);
- if (!strSame(Identifier, LA_UDF_IDENTIFIER)){ laCloseUDF(udf); logPrintNew("\"%s\" is not a UDF file.\n", FileName); return 0; }
- if(UseManaged){
- laManagedUDF* m=la_EnsureManagedUDF(FileName, 0);
- if(!m->udf) m->udf=udf; udf->Managed=1; *UseManaged=m;
- }
- extensions = la_ReadPointer(udf);
- udf->TotalRefs = la_ReadLong(udf); //total refs
- udf->NumSegmets = la_ReadShort(udf); //num segments
- la_ReadLong(udf); //seek mark
- SeekRef = la_ReadPointer(udf);
- la_Seek(udf, SeekRef);
- if(ReadRegistryRef){
- la_ReadOwnHyperItems(udf, ReadRegistryRef);
- }
- la_Seek(udf, 0);
- udf->Opened = 1;
- return udf;
- }
- void laCloseUDF(laUDF *udf){
- laUDFOwnHyperItem *ohi;
- laUDFHyperRecordItem *hri;
- laUDFPropSegment *ps;
- if (udf->DiskFile){ fclose(udf->DiskFile); udf->DiskFile=0; };
- while (lstPopPointer(&udf->OwnHyperItems));
- while (lstPopPointer(&udf->HyperRecords));
- if(udf->CurrentH2Instance){ logPrint("[WARN] udf->CurrentH2Instance!=0 after UDF packing.\n"); udf->CurrentH2Instance=0; }
- udf->NumSegmets=0;
- la_ClearHyper2Instances(udf);
- if(udf->FileContent) FreeMem(udf->FileContent);
- if(!udf->Managed){ strSafeDestroy(&udf->FileName); memFree(udf); }
- }
- int laLoadHyperResources(char* uid_search){
- int count=0;
- logPrintNew("Loading extra resources \"%s\"\n",uid_search);
- for(laUDFOwnHyperItem* ohi=MAIN.UDFResources.pFirst;ohi;ohi=ohi->Item.pNext){
- if(strstr(ohi->NUID.String,uid_search)){ laRequestAdditionalRegistry(ohi->Registry); count++; };
- }
- if(count){ la_LoadAdditionalRegistries(); } return count;
- }
- laUDFOwnHyperItem* laFindHyperResource(char* uid){
- for(laUDFOwnHyperItem* ohi=MAIN.UDFResources.pFirst;ohi;ohi=ohi->Item.pNext){
- if(!strcmp(uid, ohi->NUID.String)) return ohi;
- }
- return 0;
- }
- laUDFOwnHyperItem* laNewHyperResource(char* uid){
- laUDFOwnHyperItem* ohi = memAcquireSimple(sizeof(laUDFOwnHyperItem));
- lstAppendItem(&MAIN.UDFResources, ohi); return ohi;
- }
- laUDFRegistry* laFindUDFRegistry(char* Path){
- for(laUDFRegistry* r=MAIN.ResourceRegistries.pFirst;r;r=r->Item.pNext){
- if(r->Path && !strcmp(Path, r->Path->Ptr)) return r;
- }
- return 0;
- }
- laUDFRegistry* laCreateUDFRegistry(char* Path){
- if(!Path) return 0;
- laUDFRegistry* r = memAcquire(sizeof(laUDFRegistry));
- strSafeSet(&r->Path, Path);
- lstAppendItem(&MAIN.ResourceRegistries, r);
- return r;
- }
- void laRequestAdditionalRegistry(laUDFRegistry* r){
- if(la_FindManagedUDF(r->Path->Ptr)) return;
- if(lstHasPointer(&MAIN.PendingResourceRequests, r)) return;
- logPrint("[INFO] Request additional resources in: %s\n", r->Path->Ptr);
- lstAppendPointer(&MAIN.PendingResourceRequests,r);
- }
- void laClearUDFRegistries(){
- laUDFOwnHyperItem* ohi; laUDFRegistry* r;
- while(ohi=lstPopItem(&MAIN.UDFResources)) memFree(ohi);
- while(r=lstPopItem(&MAIN.ResourceRegistries)){
- strSafeDestroy(&r->Path); memFree(r);
- }
- }
- void laGetSubResourceDirectories(char* rootpath_with_slash, laListHandle* out){
- laSafeString*s=0; strSafePrint(&s, "%sUDFExtra" LA_PATH_SEPSTR, rootpath_with_slash); lstAppendPointer(out,s);
- char Final[1024];
- sprintf(Final, "%s.udfextra",rootpath_with_slash);
- FILE* f=fopen(Final, "r"); if(!f){ return; }
- char dir[1024];
- while(fgets(dir,1024,f)){ laSafeString*s=0; strSafePrint(&s, "%s%s" LA_PATH_SEPSTR, rootpath_with_slash, dir); lstAppendPointer(out,s); }
- fclose(f);
- }
- void laRefreshUDFResourcesIn(char* rootpath){
- char Final[2048];
- int NumFiles=-1;
- int len = strlen(rootpath);
- if (rootpath[len - 1] != LA_PATH_SEP) strcat(rootpath, LA_PATH_SEPSTR);
- #ifdef __linux__
- struct dirent **NameList=0;
- NumFiles=scandir(rootpath,&NameList,0,alphasort);
- for(int i=0;i<NumFiles;i++){
- struct dirent* d = NameList[i]; int dlen;
- char *format = strGetLastSegment(d->d_name, '.'); int file_okay=0;
- for(laExtensionType* et=MAIN.ExtraExtensions.pFirst;et;et=et->Item.pNext){ if(et->FileType==LA_FILETYPE_UDF && strSame(et->Extension,format)){file_okay=1;break;} }
- if(!file_okay) continue;
- struct stat s;
- sprintf(Final, "%s%s",rootpath,d->d_name);
- stat(Final, &s);
- if (!S_ISDIR(s.st_mode)){
- if(!laFindUDFRegistry(Final)){
- laUDFRegistry* r = laCreateUDFRegistry(Final);
- laUDF* udf = laOpenUDF(Final, 0, r, 0);
- if(udf) laCloseUDF(udf);
- }
- }
- }
- for (int i=0;i<NumFiles;i++){ free(NameList[i]); } if(NameList) free(NameList);
- #endif
- #ifdef _WIN32
- WIN32_FIND_DATA FindFileData;
- HANDLE hFind;
- SYSTEMTIME stUTC, stLocal;
- char Lookup[PATH_MAX];
- strCopyFull(Lookup, rootpath); strcat(Lookup, "*.*");
- hFind = FindFirstFile(Lookup, &FindFileData);
- if (hFind == INVALID_HANDLE_VALUE) return;
- while (1){
- NumFiles++;
- char* format = strGetLastSegment(FindFileData.cFileName, '.'); int file_okay = 0;
- for (laExtensionType* et = MAIN.ExtraExtensions.pFirst; et; et = et->Item.pNext) { if (et->FileType == LA_FILETYPE_UDF && strSame(et->Extension, format)) { file_okay = 1; break; } }
- if (file_okay) {
- sprintf(Final, "%s%s", rootpath, FindFileData.cFileName);
- struct stat s; stat(Final, &s);
- if (!(s.st_mode & S_IFDIR)) {
- if (!laFindUDFRegistry(Final)) {
- laUDFRegistry* r = laCreateUDFRegistry(Final);
- laUDF* udf = laOpenUDF(Final, 0, r, 0);
- if (udf) laCloseUDF(udf);
- }
- }
- }
- if (!FindNextFile(hFind, &FindFileData))
- break;
- }
- #endif
- if (NumFiles >= 0) {
- laListHandle additionals = { 0 }; laSafeString* s;
- laGetSubResourceDirectories(rootpath, &additionals);
- while (s = lstPopPointer(&additionals)) { laRefreshUDFResourcesIn(s->Ptr); strSafeDestroy(&s); }
- }
- }
- void laRefreshUDFRegistries(){
- laClearUDFRegistries();
- char LookupM[PATH_MAX];
- for(laResourceFolder* rf = MAIN.ResourceFolders.pFirst;rf;rf=rf->Item.pNext){
- if(!rf->Path) continue;
- realpath(rf->Path->Ptr, LookupM);
- laRefreshUDFResourcesIn(LookupM);
- }
- }
- void laStopManageUDF(laManagedUDF* m){
- if(!m) return;
- lstRemoveItem(&MAIN.ManagedUDFs,m);
- if(m->udf) { m->udf->Managed=0; laCloseUDF(m->udf); };
- strSafeDestroy(&m->BaseName);
- memFree(m);
- }
- void laClearManagedUDF(){
- laManagedUDF* m;
- while(m=MAIN.ManagedUDFs.pFirst){ laStopManageUDF(m); }
- }
- void laSaveManagedUDF(){
- laRegisterModifications(0,0,0,1);
- for(laManagedUDF* m=MAIN.ManagedUDFs.pFirst;m;m=m->Item.pNext){
- if(!m->udf) continue;
- if(m->udf->PropsToOperate.pFirst){ laPackUDF(m->udf, 1, 1); }
- laCloseUDF(m->udf);// just in case
- }
- }
- void laPropagateUDF(laPropContainer* pc, void* inst, int force){
- if(!pc->UDFPropagate) return;
- void* udf=laget_InstanceActiveUDF(inst); if(udf==MAIN.DummyManageUDF) return;
- pc->UDFPropagate(inst, udf, force);
- }
- //==========================================================================[Manifest]
- void laAddResourceFolder(char* Path){
- laResourceFolder* rf=memAcquire(sizeof(laResourceFolder));
- if(Path) strSafeSet(&rf->Path, Path);
- lstAppendItem(&MAIN.ResourceFolders, rf);
- }
- void laRemoveResourceFolder(laResourceFolder* rf){
- strSafeDestroy(&rf->Path);
- lstRemoveItem(&MAIN.ResourceFolders, rf);
- memFree(rf);
- }
- void la_ClearUDFRegistryAndFolders(){
- laResourceFolder* rf; while(rf=MAIN.ResourceFolders.pFirst){ laRemoveResourceFolder(rf); }
- laClearUDFRegistries();
- }
- //==========================================================================[undo]
- void laPushDifferenceOnly(char* Description, u64bit hint){
- laDiff* d=memAcquire(sizeof(laDiff));
- lstAppendItem(&MAIN.Differences, d);
- if(MAIN.HeadDifference && Description) strSafeSet(&MAIN.HeadDifference->Description,Description);
- d->Hint=hint; MAIN.HeadDifference=d;
- laNotifyUsers("la.differences");
- }
- void laPushDifferences(char* Description, u64bit hint){
- memFreeRemainingLeftNodes();
- laPushDifferenceOnly(Description,hint);
- }
- void la_FreeInstance(void* inst, laPropContainer* pc, int no_free);
- void la_FreeDBInst(laDBInst* dbi, int no_freeinst, int cleanup_only, int SkipInstances);
- void la_FreeDBProp(laDBProp* dbp, int cleanup_only, int SkipInstances){
- //printf("free dbp %s %x\n",dbp->p->Identifier,dbp);
- if(dbp->p->PropertyType==LA_PROP_SUB){
- if((((laSubProp*)dbp->p)->ListHandleOffset||dbp->p->UDFNoCreate||dbp->p->UDFIsSingle)&&(!dbp->p->UDFIsRefer)&&(!SkipInstances)){
- laDBSubProp* dsp=dbp; laDBInst* si;
- //printf("fdbp %s %x %x %x\n",dbp->p->Identifier,dsp->Instances.pFirst,dsp->Instances.pLast,((laListItem*)dsp->Instances.pFirst)->pNext);
- while(si=lstPopItem(&dsp->Instances)){ la_FreeDBInst(si,dbp->p->UDFNoCreate||(!dbp->p->OffsetIsPointer),cleanup_only,SkipInstances); }
- } // prevent freeing the data;
- }elif(dbp->p->PropertyType==LA_PROP_STRING && ((laStringProp*)dbp->p)->IsSafeString){
- strSafeSet(&dbp->Data,0);
- }elif(dbp->p->PropertyType==LA_PROP_RAW){
- //printf("raw dbp %s\n",dbp->p->Identifier);
- free(dbp->Data);
- }else{
- //printf("-data- %x\n",dbp->Data);
- memFree(dbp->Data);
- }
- memFree(dbp);
- }
- void la_FreeDBInst(laDBInst* dbi, int no_freeinst, int cleanup_only, int SkipInstances){
- laListHandle* l=hsh65536DoHashLongPtr(MAIN.DBInstLink,dbi->OriginalInstance); lstRemoveItem(l, &dbi->Item2);
- //printf("free dbi %s %x\n", dbi->pc->Identifier,dbi);
- laDBProp* dbp; while(dbp=lstPopItem(&dbi->Props)){ la_FreeDBProp(dbp, cleanup_only,SkipInstances); }
- if(dbi->OriginalInstance && (!cleanup_only)) la_FreeInstance(dbi->OriginalInstance, dbi->pc, no_freeinst);
- memFree(dbi);
- }
- void la_FreeDiffCommand(laDiffCommand* dc, laDiff* d, int FromLeft){
- //printf("freedc %s\n",dc->p->Identifier);
- if(dc->p->PropertyType==LA_PROP_SUB && (((laSubProp*)dc->p)->ListHandleOffset||dc->p->UDFNoCreate||dc->p->UDFIsSingle) && (!dc->p->UDFIsRefer)){
- laDiffCommandInst* dci; laDiffCommandSub* dcs=dc;
- while(dci=lstPopItem(&dcs->AddedInst)){ if(!FromLeft) la_FreeDBInst(dci->DBInst,(dc->p->UDFNoCreate||(!dc->p->OffsetIsPointer)),0,0); memFree(dci); }
- while(dci=lstPopItem(&dcs->MovedInst)){ memFree(dci); }
- while(dci=lstPopItem(&dcs->RemovedInst)){ if(FromLeft) la_FreeDBInst(dci->DBInst,(dc->p->UDFNoCreate||(!dc->p->OffsetIsPointer)),0,1); memFree(dci); }
- }elif(dc->p->PropertyType==LA_PROP_STRING && ((laStringProp*)dc->p)->IsSafeString){
- strSafeSet(&dc->Data,0);
- }elif(dc->p->PropertyType==LA_PROP_RAW){
- //printf("raw %s\n",dc->p->Identifier);
- free(dc->Data);
- }
- memFree(dc);
- }
- void la_FreeDifference(laDiff* d, int FromLeft){
- laDiffCommand* dc; laDiffCommandCustom* dcc; laDiffExtraTouched* det;
- while(dc=lstPopItem(&d->Commands)){ la_FreeDiffCommand(dc,d,FromLeft); }
- while(dcc=lstPopItem(&d->CustomCommands)){ if(dcc->Free) dcc->Free(dcc->Data, FromLeft); }
- while(det=lstPopItem(&d->ExtraTouched)){ memFree(det); }
- //if(d->Description&&d->Description->Ptr){printf("%s\n",d->Description->Ptr);}
- strSafeDestroy(&d->Description);
- }
- void laFreeNewerDifferences(){
- laDiff* PrevD;
- if(MAIN.HeadDifference==MAIN.Differences.pLast) return;
- for(laDiff* d=MAIN.Differences.pLast;d;d=PrevD){
- PrevD=d->Item.pPrev;
- lstRemoveItem(&MAIN.Differences,d);
- la_FreeDifference(d,0);
- if(MAIN.HeadDifference==d){ MAIN.HeadDifference=PrevD; laPushDifferenceOnly(0,0); break; }
- }
- }
- void laFreeOlderDifferences(int KeepHowMany){
- laDiff* endd; int count=0;
- for(endd=MAIN.HeadDifference;endd;endd=endd->Item.pPrev){
- if(count>=KeepHowMany) break; count++;
- }
- if(!endd) return; laDiff* d,*NextD;
- while(d=lstPopItem(&MAIN.Differences)){
- NextD=MAIN.Differences.pFirst;
- la_FreeDifference(d,1);
- if(MAIN.HeadDifference==d){ MAIN.HeadDifference=NextD; laPushDifferenceOnly(0,0); break; }
- if(d==endd){ break; }
- }
- }
- void la_FreeAllDifferences(){
- laFreeNewerDifferences();
- laFreeOlderDifferences(1);
- }
- void la_NoLongerRecordUndo(){
- la_FreeAllDifferences();
- laDBProp*dbp; while(dbp=lstPopItem(&MAIN.RootDBInst.Props)){ la_FreeDBProp(dbp,1,0); }
- laDBRecordedProp* p; while(p=lstPopItem(&MAIN.DBRecordedProps)){ strSafeDestroy(&p->OriginalPath); memFree(p); }
- hshFree(&MAIN.DBInstLink);
- }
- void la_RelinkDBInst(laDBInst* dbi, void* New_OriginalInstance){
- if(dbi->OriginalInstance){
- laListHandle* l=hsh65536DoHashLongPtr(MAIN.DBInstLink,dbi->OriginalInstance); lstRemoveItem(l, &dbi->Item2);
- }
- dbi->OriginalInstance = New_OriginalInstance;
- laListHandle* l=hsh65536DoHashLongPtr(MAIN.DBInstLink,dbi->OriginalInstance); lstPushItem(l, &dbi->Item2);
- }
- laDBInst* laAddDBInst(laDBProp* parent, void* inst, laPropContainer* pc, laDiff* Begin){
- laDBInst* dbi=memAcquire(sizeof(laDBInst)); if(!Begin) Begin=MAIN.HeadDifference;
- dbi->pc=pc;
- if(parent){ lstAppendItem(&((laDBSubProp*)parent)->Instances, dbi); }
- la_RelinkDBInst(dbi, inst);
- return dbi;
- }
- laDBProp* laAddDBProp(laDBInst* dbi, laProp* p, void* data){
- int size=sizeof(laDBProp);
- if(p->PropertyType==LA_PROP_SUB && (!p->UDFIsRefer)){size=sizeof(laDBSubProp);}
- elif(p->PropertyType==LA_PROP_RAW){size=sizeof(laDBRawProp);}
- laDBProp* dbp=memAcquire(size);
- dbp->p=p; dbp->Data=data;
- lstAppendItem(&dbi->Props, dbp);
- return dbp;
- }
- void laAddDBPReferAcquire(laDBProp* dbp){
- if(!dbp->Data) return; if(!lstHasPointer(&MAIN.DBInstPendingAcquireDBP, dbp)) lstAppendPointer(&MAIN.DBInstPendingAcquireDBP, dbp);
- }
- void laAddDiffCMDReferAcquire(laDiffCommand* ds){
- if(!ds->Data) return; if(!lstHasPointer(&MAIN.DBInstPendingAcquireDiffCMD, ds)) lstAppendPointer(&MAIN.DBInstPendingAcquireDiffCMD, ds);
- }
- laDiffCommand* la_GiveDiffCommand(laDiff* diff, laDBInst* Instance, laProp* p, void* Data){
- for(laDiffCommand* dc=diff->Commands.pFirst;dc;dc=dc->Item.pNext){
- if(dc->Instance == Instance && dc->p == p) return dc;
- }
- int size=sizeof(laDiffCommand);
- if(p->PropertyType==LA_PROP_SUB && (!(p->UDFIsRefer||p->UDFIsSingle||p->UDFNoCreate))){size=sizeof(laDiffCommandSub);}
- elif(p->PropertyType==LA_PROP_RAW){size=sizeof(laDiffCommandRaw);}
- laDiffCommand* dc = memAcquire(size);
- dc->Instance=Instance; dc->p=p; dc->Data = Data;
- lstAppendItem(&diff->Commands,dc);
- return dc;
- }
- void la_GiveExtraTouched(laDiff* diff, laDBInst* dbi){
- if(!dbi->pc->UndoTouched) return;
- laDiffExtraTouched* det=memAcquire(sizeof(laDiffExtraTouched));
- det->dbi=dbi; lstAppendItem(&diff->ExtraTouched,det);
- }
- int la_AddIntDBProp(laDBInst* dbi, laDBProp* dbp, laDiff* diff, laPropPack *pp){
- laProp *p = pp->LastPs->p; int *Data; int len = laGetArrayLength(pp); int ret=0;
- Data= memAcquireSimple(sizeof(int)*len);
- laGetIntArray(pp, Data); if(diff&&dbp){
- if(memcmp(dbp->Data, Data, sizeof(int)*len)){ la_GiveDiffCommand(diff, dbi, p, dbp->Data); dbp->Data=Data; ret=1; } else memFree(Data);
- }
- else laAddDBProp(dbi, p, Data);
- return ret;
- }
- int la_AddFloatDBProp(laDBInst* dbi, laDBProp* dbp, laDiff* diff, laPropPack *pp){
- laProp *p = pp->LastPs->p; real *Data; int len = laGetArrayLength(pp); int ret=0;
- Data= memAcquireSimple(sizeof(real)*len);
- laGetFloatArray(pp, Data); if(diff&&dbp){
- if(memcmp(dbp->Data, Data, sizeof(real)*len)){ la_GiveDiffCommand(diff, dbi, p, dbp->Data); dbp->Data=Data; ret=1; } else memFree(Data);
- }
- else laAddDBProp(dbi, p, Data);
- return ret;
- }
- int la_AddStringDBProp(laDBInst* dbi, laDBProp* dbp, laDiff* diff, laPropPack *pp){
- laProp *p = pp->LastPs->p; char _buf[LA_RAW_CSTR_MAX_LEN]={0}; char* buf=_buf; int ret=0;
- laGetString(pp, _buf, &buf); if(diff&&dbp){
- if((!dbp->Data&&buf[0]) || (buf[0] && strcmp(buf, ((laSafeString*)dbp->Data)->Ptr)) || (!buf[0]&&dbp->Data)){
- laDiffCommand* dc=la_GiveDiffCommand(diff, dbi, p, dbp->Data); dbp->Data=0; strSafeSet(&dbp->Data, buf); ret=1; }
- }else{
- laDBProp* dbp=laAddDBProp(dbi, p, 0); strSafeSet(&dbp->Data, buf);
- }
- return ret;
- }
- int la_AddEnumDBProp(laDBInst* dbi, laDBProp* dbp, laDiff* diff, laPropPack *pp){
- laProp *p = pp->LastPs->p; laEnumItem **Data=0; int len = laGetArrayLength(pp); int ret=0;
- Data= memAcquireSimple(sizeof(laEnumItem*)*len);
- laGetEnumArray(pp, Data); if(diff&&dbp){
- if(memcmp(dbp->Data, Data, sizeof(laEnumItem*)*len)){ la_GiveDiffCommand(diff, dbi, p, dbp->Data); dbp->Data=Data; ret=1; } else memFree(Data);
- }else laAddDBProp(dbi, p, Data);
- return ret;
- }
- int la_AddRawDBProp(laDBInst* dbi, laDBRawProp* dbp, laDiff* diff, laPropPack *pp){
- laProp *p = pp->LastPs->p; int *Data; int s=0; int ret=0; int IsCopy=0;
- Data=laGetRaw(pp,&s,&IsCopy); if(diff&&dbp){
- if(dbp->DataSize!=s || (!dbp->Data&&Data) || (!Data&&dbp->Data) || (dbp->Data&&Data&&memcmp(dbp->Data, Data, s))){
- //printf("s%d %x %d \n",s,Data,dbp->DataSize);
- void* NewData=(s&&Data)?calloc(1,s):0;
- if(s&&Data)memcpy(NewData, Data, s);
- laDiffCommandRaw* dcr=la_GiveDiffCommand(diff, dbi, p, dbp->Data);
- dcr->DataSize=dbp->DataSize; dbp->Data=NewData; dbp->DataSize=s; ret=1;
- }
- }
- else{
- void* NewData=s?calloc(1,s):0; if(s) memcpy(NewData, Data, s);
- laDBRawProp* dbp=laAddDBProp(dbi, p, NewData); dbp->DataSize=s;
- }
- if(IsCopy){ free(Data); }
- return ret;
- }
- laDiffCommandInst* la_NewDiffCommandInst(laDBInst* DBInst, laDBInst* Prev, laDBInst* Next){
- laDiffCommandInst* dci=memAcquire(sizeof(laDiffCommandInst));
- dci->DBInst = DBInst; dci->OriginalPrev = Prev; dci->OriginalNext = Next;
- dci->BeforePrev = DBInst->Item.pPrev; dci->BeforeNext = DBInst->Item.pNext;
- return dci;
- }
- laDBInst* la_GetDiffDBInst(laListHandle* NewAdded, laListHandle* Master, void* instance){
- if(!instance) return 0;
- for(laDiffTemp* dt=NewAdded->pFirst;dt;dt=dt->Item.pNext){
- if(((laDBInst*)dt->p)->OriginalInstance == instance) return dt->p;
- }
- for(laDBInst* dbi=Master->pFirst;dbi;dbi=dbi->Item.pNext){
- if(dbi->OriginalInstance==instance) return dbi;
- }
- return 0;
- }
- int la_GenerateListDifferences(laDBInst* dbi, laDBSubProp* dbp, laPropPack* pp, laDiff* diff){
- laProp *p = pp->LastPs->p, *subp = 0;
- laPropIterator pi={0};
- void* inst; int any=0;
- laListHandle New={0}, NewAdded={0}, NewDeleted={0}, NewMoved={0};
-
- inst = laGetInstance(p, pp->LastPs->UseInstance, &pi);
- pp->EndInstance = inst;
- while (inst){
- lstAppendPointer(&New, inst);
- inst = laGetNextInstance(p, inst, &pi);
- pp->EndInstance = inst;
- }
- for(laDBInst* dbi=dbp->Instances.pFirst;dbi;dbi=dbi->Item.pNext){
- void* OldPrev=dbi->Item.pPrev?((laDBInst*)dbi->Item.pPrev)->OriginalInstance:0;
- void* OldNext=dbi->Item.pNext?((laDBInst*)dbi->Item.pNext)->OriginalInstance:0;
- int found=0; for(laListItemPointer* lip=New.pFirst;lip;lip=lip->pNext){
- void* NewPrev=lip->pPrev?((laListItemPointer*)lip->pPrev)->p:0;
- void* NewNext=lip->pNext?((laListItemPointer*)lip->pNext)->p:0;
- if(lip->p == dbi->OriginalInstance){
- found=1;
- if(OldPrev==NewPrev && OldNext==NewNext){break;}
- else{ laDiffTemp* dt=lstAppendPointerSized(&NewMoved, dbi, sizeof(laDiffTemp));
- dt->tPrev=dbi->Item.pPrev; dt->tNext=dbi->Item.pNext; dt->nPrev=NewPrev; dt->nNext=NewNext;break;}
- }
- }
- if(!found){
- laDiffTemp* dt=lstAppendPointerSized(&NewDeleted, dbi, sizeof(laDiffTemp));dt->tPrev=dbi->Item.pPrev;dt->tNext=dbi->Item.pNext; any++;
- }
- }
- for(laListItemPointer* lip=New.pFirst;lip;lip=lip->pNext){
- int found=0; for(laDBInst* dbi=dbp->Instances.pFirst;dbi;dbi=dbi->Item.pNext){
- if(lip->p == dbi->OriginalInstance){ found=1; }
- }
- if(!found){ any++;
- laDiffTemp* dt=lstAppendPointerSized(&NewAdded, lip->p, sizeof(laDiffTemp));
- void* NewPrev=lip->pPrev?((laListItemPointer*)lip->pPrev)->p:0;
- void* NewNext=lip->pNext?((laListItemPointer*)lip->pNext)->p:0;
- dt->tPrev=NewPrev; dt->tNext=NewNext;
- laPropContainer* spc=p->SubProp; if(((laSubProp*)p)->GetType){spc=((laSubProp*)p)->GetType(lip->p);}
- laDBInst* newdbi=laAddDBInst(0, lip->p, spc, diff); dt->p=newdbi;
- for (subp = spc->Props.pFirst; subp; subp = subp->Item.pNext){
- if (subp->UDFIgnore || subp->UDFOnly) continue;
- if (subp->PropertyType == LA_PROP_OPERATOR) continue;
- laPropStep SubPS = {0}; laPropPack SubPP = {0}; laPropIterator pi={0};
- SubPP.RawThis = pp; SubPS.p = subp; SubPS.UseInstance = lip->p; SubPP.LastPs=&SubPS;
- any+=laIterateDB(newdbi, &SubPP, 0, 0);
- }
- }
- }
- for(laDiffTemp* lip=NewAdded.pFirst;lip;lip=lip->Item.pNext){
- laDBInst* newdbi=lip->p;
- lip->tPrev = la_GetDiffDBInst(&NewAdded, &dbp->Instances, lip->tPrev);
- lip->tNext = la_GetDiffDBInst(&NewAdded, &dbp->Instances, lip->tNext);
- }
- for(laDiffTemp* lip=NewMoved.pFirst;lip;lip=lip->Item.pNext){
- laDBInst* newdbi=lip->p;
- lip->tPrev = la_GetDiffDBInst(&NewAdded, &dbp->Instances, lip->nPrev);
- lip->tNext = la_GetDiffDBInst(&NewAdded, &dbp->Instances, lip->nNext);
- }
- laDiffCommandSub* dc=(NewAdded.pFirst||NewDeleted.pFirst||NewMoved.pFirst)?la_GiveDiffCommand(diff, dbi, p, 0):0;
- for(laDiffTemp* lip=NewAdded.pFirst;lip;lip=lip->Item.pNext){
- lstAppendItem(&dc->AddedInst, la_NewDiffCommandInst(lip->p, 0, 0));
- laDBInst* newdbi=lip->p;
- newdbi->Item.pPrev = lip->tPrev; newdbi->Item.pNext = lip->tNext;
- if(!newdbi->Item.pPrev){dbp->Instances.pFirst=newdbi;}
- if(!newdbi->Item.pNext){dbp->Instances.pLast=newdbi;}
- }
- for(laDiffTemp* lip=NewMoved.pFirst;lip;lip=lip->Item.pNext){
- laDBInst* dbi=lip->p; lstAppendItem(&dc->MovedInst, la_NewDiffCommandInst(dbi, lip->tPrev, lip->tNext));
- laDBInst* newdbi=lip->p;
- newdbi->Item.pPrev = lip->tPrev; newdbi->Item.pNext = lip->tNext;
- if(!dbi->Item.pPrev){dbp->Instances.pFirst=dbi;}
- if(!dbi->Item.pNext){dbp->Instances.pLast=dbi;}
- }
- if(!New.pFirst){ dbp->Instances.pFirst=dbp->Instances.pLast=0; }
-
- for(laDiffTemp* lip=NewDeleted.pFirst;lip;lip=lip->Item.pNext){printf("deleted %x %x\n", dbi, dbi->OriginalInstance);
- laDBInst* dbi=lip->p; lstAppendItem(&dc->RemovedInst, la_NewDiffCommandInst(dbi, lip->tPrev, lip->tNext));
- memTake(dbi->OriginalInstance);
- //if(!dbi->Item.pPrev){dbp->Instances.pFirst=dbi->Item.pNext;}
- //if(!dbi->Item.pNext){dbp->Instances.pLast=dbi->Item.pPrev;}
- dbi->Item.pPrev=dbi->Item.pNext=0; //lstRemoveItem(&dbp->Instances, dbi);
- laPropStep SubPS = {0}; laPropPack SubPP = {0}; laPropIterator pi={0}; laDBProp* dpi=0; SubPP.LastPs = &SubPS;
- laPropContainer* spc=p->SubProp; if(((laSubProp*)p)->GetType){spc=((laSubProp*)p)->GetType(dbi->OriginalInstance);}
- dpi=dbi->Props.pFirst;
- for (subp = spc->Props.pFirst; subp; subp = subp->Item.pNext){
- if (subp->PropertyType == LA_PROP_OPERATOR) continue;
- if (subp->UDFIgnore || subp->UDFOnly) continue;
- if((!dpi)||dpi->p!=subp) printf("Prop doesn't match\n");
- SubPP.RawThis = pp; SubPS.p = subp; SubPS.UseInstance = dbi->OriginalInstance;
- int thisany=laIterateDB(dbi, &SubPP, diff, dpi);
-
- dpi=dpi->Item.pNext;
- if(thisany){ any+=thisany; la_GiveExtraTouched(diff,dbi); }
- }
- dbi=dbi->Item.pNext;
- }
- //printf("%x ~ %x\n", dbp->Instances.pFirst, dbp->Instances.pLast);
- //laListItem* item = laGetInstance(p, pp->LastPs->UseInstance, &pi);
- //while (item){
- // printf(" %x [%x] %x\n",item->pPrev, item, item->pNext);
- // item = laGetNextInstance(p, item, &pi);
- //}
- return any;
- }
- int laIterateDB(laDBInst* parent, laPropPack* pp, laDiff* diff, laDBProp* dp){
- laProp *p = pp->LastPs->p, *subp = 0;
- laPropStep SubPS = {0}; laPropPack SubPP = {0}; laPropIterator pi={0};
- laDBProp* dbp; laDBSubProp* dsp; laDBInst* dbi; laDBProp* dpi=0;
- void *inst = 0;
- SubPP.LastPs = &SubPS;
- int any=0;
- switch (p->PropertyType){
- case LA_PROP_SUB:
- if (p->UDFIsRefer){ if(!parent) return 0;
- inst = laGetActiveInstanceStrict(p, pp->LastPs->UseInstance);
- if(diff){
- if(inst!=dp->Data) la_GiveDiffCommand(diff, parent, p, dp->Data); dp->Data=inst; any++;
- }else{
- laDBProp* rdbp=laAddDBProp(parent, p, inst);
- }
- }else{
- if (!p->SubProp) p->SubProp = la_ContainerLookup(((laSubProp *)p)->TargetID);
- if(diff){ any+=la_GenerateListDifferences(parent, dp, pp, diff); dsp=dp; dbi=dsp->Instances.pFirst; dbp=dsp; }
- else{ dbp=laAddDBProp(parent, p, laGetActiveInstance(p, pp->LastPs->UseInstance, &pi)); }
- inst = laGetInstance(p, pp->LastPs->UseInstance, &pi);
- pp->EndInstance = inst;
- while (inst){ //printf("work %x\n",inst);
- laPropContainer* spc=p->SubProp; if(((laSubProp*)p)->GetType){spc=((laSubProp*)p)->GetType(inst);}
- if(!spc){ inst = laGetNextInstance(p, inst, &pi); continue; } // unlikely, because not registered
- if(diff){
- if(dbi->OriginalInstance != inst){
- printf("dbi/inst doesn't match.\n"); }
- dpi=dbi->Props.pFirst;
- }else{ dbi = laAddDBInst(dbp, inst, spc, 0); }
-
- for (subp = spc->Props.pFirst; subp; subp = subp->Item.pNext){
- if (subp->PropertyType == LA_PROP_OPERATOR) continue;
- if (subp->UDFIgnore || subp->UDFOnly) continue;
- if(diff && ((!dpi)||dpi->p!=subp)){
- printf("Prop doesn't match\n");}
- SubPP.RawThis = pp; SubPS.p = subp; SubPS.UseInstance = inst;
- int thisany=laIterateDB(dbi, &SubPP, diff, dpi);
-
- if(diff && dpi){ dpi=dpi->Item.pNext;
- if(thisany){ any+=thisany;
- la_GiveExtraTouched(diff,dbi); }
- }
- }
- inst = laGetNextInstance(p, inst, &pi);
- pp->EndInstance = inst;
- if(diff){ dbi=dbi->Item.pNext; }
- }
- }
- break;
- case LA_PROP_INT: case LA_PROP_ARRAY | LA_PROP_INT:
- any+=la_AddIntDBProp(parent, dp, diff, pp); break;
- case LA_PROP_FLOAT: case LA_PROP_ARRAY | LA_PROP_FLOAT:
- any+=la_AddFloatDBProp(parent, dp, diff, pp); break;
- case LA_PROP_STRING:
- any+=la_AddStringDBProp(parent, dp, diff, pp); break;
- case LA_PROP_ENUM: case LA_PROP_ARRAY | LA_PROP_ENUM:
- any+=la_AddEnumDBProp(parent, dp, diff, pp); break;
- case LA_PROP_RAW:
- any+=la_AddRawDBProp(parent,dp,diff,pp); break;
- default: break;
- }
- return any;
- }
- void la_RestoreIntDBProp(laDBProp* dbp, laDiffCommand* dc){
- laPropPack pp={0}; laPropStep ps={0}; ps.p=dc->p; pp.LastPs=&ps; ps.UseInstance=dc->Instance->OriginalInstance;
- int *Data; Data=dc->Data; dc->Data=dbp->Data; dbp->Data=Data;
- laSetIntArrayAllArray(&pp, dbp->Data);
- }
- void la_RestoreFloatDBProp(laDBProp* dbp, laDiffCommand* dc){
- laPropPack pp={0}; laPropStep ps={0}; ps.p=dc->p; pp.LastPs=&ps; ps.UseInstance=dc->Instance->OriginalInstance;
- int *Data; Data=dc->Data; dc->Data=dbp->Data; dbp->Data=Data;
- laSetFloatArrayAllArray(&pp, dbp->Data);
- }
- void la_RestoreStringDBProp(laDBProp* dbp, laDiffCommand* dc){
- laPropPack pp={0}; laPropStep ps={0}; ps.p=dc->p; pp.LastPs=&ps; ps.UseInstance=dc->Instance->OriginalInstance;
- int *Data; Data=dc->Data; dc->Data=dbp->Data; dbp->Data=Data;
- laSetString(&pp, dbp->Data?((laSafeString*)dbp->Data)->Ptr:0);
- }
- void la_RestoreEnumDBProp(laDBProp* dbp, laDiffCommand* dc){
- laPropPack pp={0}; laPropStep ps={0}; ps.p=dc->p; pp.LastPs=&ps; ps.UseInstance=dc->Instance->OriginalInstance;
- int *Data; Data=dc->Data; dc->Data=dbp->Data; dbp->Data=Data;
- laSetEnumArrayAllArray(&pp, dbp->Data);
- }
- void la_RestoreRawDBProp(laDBRawProp* dbp, laDiffCommandRaw* dc){
- laPropPack pp={0}; laPropStep ps={0}; ps.p=dc->p; pp.LastPs=&ps; ps.UseInstance=dc->Instance->OriginalInstance;
- int *Data; Data=dc->Data; dc->Data=dbp->Data; dbp->Data=Data; LA_SWAP(int, dc->DataSize, dbp->DataSize);
- laSetRaw(&pp,dbp->Data,dbp->DataSize);
- }
- void la_AddUndoPostNode(laDBInst* dbi){
- if((!dbi->pc) || (!dbi->pc->UndoTouched)) return;
- for(laDiffPost* dp=MAIN.DiffTouched.pLast;dp;dp=dp->Item.pPrev){ if(dp->instance==dbi->OriginalInstance&&dp->Touched==dbi->pc->UndoTouched) return; }
- laDiffPost* dp=lstAppendPointerSized(&MAIN.DiffTouched, dbi->OriginalInstance, sizeof(laDiffPost));
- dp->Touched=dbi->pc->UndoTouched;
- }
- void la_ExecUndoPtrSync(laDiff* d){
- int hint=d->Hint; laDiffPtrSync* dps; laDiffPost* dp; laDBInstPendingRelink* dpr;
- while(dp=lstPopItem(&MAIN.DiffTouched)){
- dp->Touched(dp->instance, hint);
- memFree(dp);
- }
- for(laDiffExtraTouched*det=d->ExtraTouched.pFirst;det;det=det->Item.pNext){
- det->dbi->pc->UndoTouched(det->dbi->OriginalInstance, hint);
- }
- }
- void la_FreeInstance(void* inst, laPropContainer* pc, int no_free){
- //if(p->PropertyType!=LA_PROP_SUB) return;
- //if(!p->SubProp || ((laSubProp*)p)->TargetID) p->SubProp=la_ContainerLookup(((laSubProp*)p)->TargetID);
- //laPropContainer* pc=p->SubProp; if(((laSubProp*)p)->GetType) pc=((laSubProp*)p)->GetType(inst);
- //printf("freeinst %s %x\n",pc->Name,inst);
- if(pc->BeforeFree) pc->BeforeFree(inst);
- laPropStep SubPS = {0}; laPropPack SubPP = {0}; laPropIterator pi={0}; SubPP.LastPs=&SubPS;
- for(laProp* p=pc->Props.pFirst;p;p=p->Item.pNext){
- if(p->PropertyType==LA_PROP_STRING && ((laStringProp*)p)->IsSafeString){ SubPS.p=p; SubPS.UseInstance=inst; laSetString(&SubPP, 0); continue; }
- //if(p->PropertyType!=LA_PROP_SUB || p->UDFIsRefer) continue;
- //void* si = laGetInstance(p, SubPP.LastPs->UseInstance, &pi); SubPP.EndInstance = si; void* NextSi=0;
- //printf("freeinst p %s\n",p->Name);
- //while (si){
- // printf("%x --inst %x\n",SubPP.LastPs->UseInstance,si);
- // NextSi = laGetNextInstance(p, si, &pi);
- // if(!p->UDFNoCreate){ laSubProp* sp=p;
- // if(!sp->ListHandleOffset){ logPrint("[WARN] prop '%s' UDFNoCreate==0 and no ListHandleOffset. Node not removed.\n", p->Identifier); }
- // else{ lstRemoveItem(inst + sp->ListHandleOffset, si); }
- // }
- // la_FreeInstance(si, p, p->UDFNoCreate||(!p->OffsetIsPointer));
- // si=NextSi; SubPP.EndInstance = si;
- //}
- }
- if(!no_free && !pc->OtherAlloc) memFree(inst);
- }
- void la_ResetInstance(void* inst, laPropContainer* pc, int IsListItem){
- if(pc->SaverDummy) laMarkMemClean(((char*)inst)+((laSubProp*)pc->SaverDummy)->ListHandleOffset);
- if(pc->Reset) pc->Reset(inst); //else { int a=IsListItem?sizeof(laListItem):0; memset(((char*)inst)+a,0,pc->NodeSize-a); }
- }
- laListHandle* la_GetOriginalListHandle(laDiffCommandSub* dcs){
- laProp*p =dcs->Base.p;
- if(p->PropertyType!=LA_PROP_SUB||p->UDFIsRefer||!((laSubProp*)p)->ListHandleOffset) return 0;
- laSubProp* sp=dcs->Base.p;
- void* addr=((char*)dcs->Base.Instance->OriginalInstance)+((laSubProp*)p)->ListHandleOffset;
- return addr;
- }
- void la_UndoListDifferences(laDBSubProp* dsp, laDiffCommandSub* dcs){
- laListHandle* ol=la_GetOriginalListHandle(dcs);
- for(laDiffCommandInst* dci=dcs->AddedInst.pFirst;dci;dci=dci->Item.pNext){
- if(dcs->Base.p->UDFNoCreate){ la_ResetInstance(dci->DBInst->OriginalInstance,dci->DBInst->pc,((laSubProp*)dcs->Base.p)->ListHandleOffset?1:0); continue; }
- dci->OriginalPrev = dci->DBInst->Item.pPrev; dci->OriginalNext = dci->DBInst->Item.pNext;
- //if(dsp->Instances.pFirst == dci->DBInst){ dsp->Instances.pFirst=dci->DBInst->Item.pNext; ol->pFirst=dci->DBInst->Item.pNext?((laDBInst*)dci->DBInst->Item.pNext)->OriginalInstance:0; }
- //if(dsp->Instances.pLast == dci->DBInst){ dsp->Instances.pLast=dci->DBInst->Item.pPrev; ol->pLast=dci->DBInst->Item.pPrev?((laDBInst*)dci->DBInst->Item.pPrev)->OriginalInstance:0; }
- //dci->DBInst->Item.pPrev = dci->DBInst->Item.pNext=0;
- }
- for(laDiffCommandInst* dci=dcs->AddedInst.pFirst;dci;dci=dci->Item.pNext){
- if(dcs->Base.p->UDFNoCreate){ continue; }
- lstRemoveItem(&dsp->Instances, dci->DBInst); lstRemoveItem(ol, dci->DBInst->OriginalInstance);
- laListItem* li = dci->DBInst->OriginalInstance;
- }
- for(laDiffCommandInst* dci=dcs->RemovedInst.pFirst;dci;dci=dci->Item.pNext){ if(dcs->Base.p->UDFNoCreate) continue;
- dci->DBInst->Item.pPrev = dci->OriginalPrev;
- dci->DBInst->Item.pNext = dci->OriginalNext; printf("add removed %x \n", dci->DBInst->OriginalInstance);
- void* orig = dci->DBInst->OriginalInstance;
- }
- for(laDiffCommandInst* dci=dcs->RemovedInst.pFirst;dci;dci=dci->Item.pNext){ if(dcs->Base.p->UDFNoCreate) continue;
- ((laListItem*)dci->DBInst->OriginalInstance)->pPrev=dci->OriginalPrev?dci->OriginalPrev->OriginalInstance:0;
- ((laListItem*)dci->DBInst->OriginalInstance)->pNext=dci->OriginalNext?dci->OriginalNext->OriginalInstance:0;
- if(!dci->DBInst->Item.pPrev){ dsp->Instances.pFirst=dci->DBInst; ol->pFirst=dci->DBInst->OriginalInstance; }
- if(!dci->DBInst->Item.pNext){ dsp->Instances.pLast=dci->DBInst; ol->pLast=dci->DBInst->OriginalInstance; }
- }
- for(laDiffCommandInst* dci=dcs->MovedInst.pFirst;dci;dci=dci->Item.pNext){
- dci->DBInst->Item.pPrev = dci->BeforePrev; ((laListItem*)dci->DBInst->OriginalInstance)->pPrev=dci->BeforePrev?dci->BeforePrev->OriginalInstance:0;
- dci->DBInst->Item.pNext = dci->BeforeNext; ((laListItem*)dci->DBInst->OriginalInstance)->pNext=dci->BeforeNext?dci->BeforeNext->OriginalInstance:0;
- if(!dci->DBInst->Item.pPrev){ dsp->Instances.pFirst=dci->DBInst; ol->pFirst=dci->DBInst->OriginalInstance; }
- if(!dci->DBInst->Item.pNext){ dsp->Instances.pLast=dci->DBInst; ol->pLast=dci->DBInst->OriginalInstance; }
- }
- }
- void la_RedoListDifferences(laDBSubProp* dsp, laDiffCommandSub* dcs){
- laListHandle* ol=la_GetOriginalListHandle(dcs);
- for(laDiffCommandInst* dci=dcs->RemovedInst.pFirst;dci;dci=dci->Item.pNext){
- if(dcs->Base.p->UDFNoCreate){ la_ResetInstance(dci->DBInst->OriginalInstance,dci->DBInst->pc,((laSubProp*)dcs->Base.p)->ListHandleOffset?1:0); continue; }
- //dci->OriginalPrev = dci->DBInst->Item.pPrev;
- //dci->OriginalNext = dci->DBInst->Item.pNext;
- lstRemoveItem(&dsp->Instances, dci->DBInst); lstRemoveItem(ol, dci->DBInst->OriginalInstance);
- laListItem* li = dci->DBInst->OriginalInstance;
- printf("remove %x \n", dci->DBInst->OriginalInstance);
- }
- for(laDiffCommandInst* dci=dcs->AddedInst.pFirst;dci;dci=dci->Item.pNext){ if(dcs->Base.p->UDFNoCreate) continue;
- dci->DBInst->Item.pPrev = dci->OriginalPrev;
- dci->DBInst->Item.pNext = dci->OriginalNext;
- void* orig = dci->DBInst->OriginalInstance;
- }
- for(laDiffCommandInst* dci=dcs->AddedInst.pFirst;dci;dci=dci->Item.pNext){ if(dcs->Base.p->UDFNoCreate) continue;
- ((laListItem*)dci->DBInst->OriginalInstance)->pPrev=dci->OriginalPrev?dci->OriginalPrev->OriginalInstance:0;
- ((laListItem*)dci->DBInst->OriginalInstance)->pNext=dci->OriginalNext?dci->OriginalNext->OriginalInstance:0;
- if(!dci->DBInst->Item.pPrev){ dsp->Instances.pFirst=dci->DBInst; ol->pFirst=dci->DBInst->OriginalInstance; }
- if(!dci->DBInst->Item.pNext){ dsp->Instances.pLast=dci->DBInst; ol->pLast=dci->DBInst->OriginalInstance; }
- }
- for(laDiffCommandInst* dci=dcs->MovedInst.pFirst;dci;dci=dci->Item.pNext){
- dci->DBInst->Item.pPrev = dci->OriginalPrev; ((laListItem*)dci->DBInst->OriginalInstance)->pPrev=dci->OriginalPrev?dci->OriginalPrev->OriginalInstance:0;
- dci->DBInst->Item.pNext = dci->OriginalNext; ((laListItem*)dci->DBInst->OriginalInstance)->pNext=dci->OriginalNext?dci->OriginalNext->OriginalInstance:0;
- if(!dci->DBInst->Item.pPrev){ dsp->Instances.pFirst=dci->DBInst; ol->pFirst=dci->DBInst->OriginalInstance; }
- if(!dci->DBInst->Item.pNext){ dsp->Instances.pLast=dci->DBInst; ol->pLast=dci->DBInst->OriginalInstance; }
- }
- }
- laDBProp* la_FindDBProp(laDBInst* dbi, laProp* p){
- for(laDBProp* dbp=dbi->Props.pFirst;dbp;dbp=dbp->Item.pNext){
- if(dbp->p==p) return dbp;
- }
- return 0;
- }
- laDiff* laSwapDBState(int Redo){
- laDiff* diff=MAIN.HeadDifference; if(!diff) return 0;
- if(Redo){ if(diff==MAIN.Differences.pLast) return 0; }else{ diff=diff->Item.pPrev; if(!diff) return 0; }
- for(laDiffCommand* dc=diff->Commands.pFirst;dc;dc=dc->Item.pNext){
- //printf("do %s\n",dc->p->Identifier);
- laDBProp* dbp=la_FindDBProp(dc->Instance, dc->p);
- if(!dbp){ printf("Can't find dbp from prop!\n");}
- switch (dc->p->PropertyType){
- case LA_PROP_SUB:
- if(dc->p->UDFIsRefer){
- LA_SWAP(void*,dc->Data,dbp->Data);
- laSetActiveInstance(dbp->p, dc->Instance->OriginalInstance, dbp->Data);
- }else{
- if(Redo) la_RedoListDifferences(dbp,dc);
- else la_UndoListDifferences(dbp,dc);
- }
- la_AddUndoPostNode(dc->Instance);
- break;
- case LA_PROP_INT: case LA_PROP_ARRAY | LA_PROP_INT:
- la_RestoreIntDBProp(dbp, dc); la_AddUndoPostNode(dc->Instance); break;
- case LA_PROP_FLOAT: case LA_PROP_ARRAY | LA_PROP_FLOAT:
- la_RestoreFloatDBProp(dbp, dc); la_AddUndoPostNode(dc->Instance); break;
- case LA_PROP_STRING:
- la_RestoreStringDBProp(dbp, dc); la_AddUndoPostNode(dc->Instance); break;
- case LA_PROP_ENUM: case LA_PROP_ARRAY | LA_PROP_ENUM:
- la_RestoreEnumDBProp(dbp, dc); la_AddUndoPostNode(dc->Instance); break;
- case LA_PROP_RAW:
- la_RestoreRawDBProp(dbp, dc); la_AddUndoPostNode(dc->Instance); break;
- default: break;
- }
- laPropPack PP={0}; laPropStep PS={0}; PP.LastPs=&PS; PS.p=dbp->p; PS.UseInstance=dc->Instance->OriginalInstance;
- laNotifyUsersPP(&PP);
- }
- for(laDiffCommandCustom* dcc=diff->CustomCommands.pFirst;dcc;dcc=dcc->Item.pNext){
- if(Redo){ if(dcc->Redo) dcc->Redo(dcc->Data); } else { if(dcc->Undo) dcc->Undo(dcc->Data); }
- }
- if(Redo){ MAIN.HeadDifference=diff->Item.pNext; }
- else{ MAIN.HeadDifference=diff; }
- return diff;
- }
- void laUndo(){ laDiff* d; if(d=laSwapDBState(0)){ la_ExecUndoPtrSync(d); laNotifyUsers("la.differences"); } }
- void laRedo(){ laDiff* d; if(d=laSwapDBState(1)){ la_ExecUndoPtrSync(d); laNotifyUsers("la.differences"); } }
- void laPrintDBInst(laDBInst* dbi, int Level){
- if(dbi!=&MAIN.RootDBInst){
- printf("%*c", Level, ' ');
- printf("%s | %.6x [%.6x] %.6x | %.6x [%.6x] %.6x\n",
- dbi->pc->Identifier, dbi->Item.pPrev, dbi, dbi->Item.pNext,
- dbi->Item.pPrev?((laDBInst*)dbi->Item.pPrev)->OriginalInstance:0, dbi->OriginalInstance, dbi->Item.pNext?((laDBInst*)dbi->Item.pNext)->OriginalInstance:0);
- }else{
- printf("Root:\n");
- }
- for(laDBProp* dbp=dbi->Props.pFirst;dbp;dbp=dbp->Item.pNext){
- if(dbp->p->PropertyType==LA_PROP_SUB && !dbp->p->UDFIsRefer){
- laDBSubProp* dsp=dbp;
- for(laDBInst* dbii=dsp->Instances.pFirst;dbii;dbii=dbii->Item.pNext){
- laPrintDBInst(dbii, Level+4);
- }
- }
- }
- }
- void laPrintDBInstInfo(){
- laPrintDBInst(&MAIN.RootDBInst, 0);
- }
- void laAddRootDBInst(char* path){
- laPropPack PP={0};
- if(!la_GetPropFromPath(&PP,0,path,0)) return;
- if(!MAIN.DBInstLink){ hsh65536Init(&MAIN.DBInstLink); }
- la_StepPropPack(&PP);
- laIterateDB(&MAIN.RootDBInst, &PP, 0, 0);
- la_FreePropStepCache(PP.Go);
- laDBRecordedProp* rp=lstAppendPointerSized(&MAIN.DBRecordedProps, 0, sizeof(laDBRecordedProp));
- strSafeSet(&rp->OriginalPath,path);
- }
- void laPropPackToLocal(laPropPack* ToPP, laPropPack* pp){
- if(pp->RawThis) laPropPackToLocal(ToPP, pp->RawThis);
- for(laPropStep* ps=pp->Go;ps;ps=ps->pNext){
- la_NewPropStep(ToPP, ps->p, ps->UseInstance, '.');
- }
- ToPP->EndInstance = pp->EndInstance;
- }
- laDBProp* laFindDBProp(laDBInst* parent, laProp* p, void* Instance, laDBInst** r_DBInst){
- laDBProp* rp=0;
- for(laDBProp* dp=parent->Props.pFirst;dp;dp=dp->Item.pNext){
- if(dp->p == p) {rp=dp; break;}
- } if(!rp) return 0;
- if(rp->p->PropertyType==LA_PROP_SUB && !rp->p->UDFIsRefer && r_DBInst && Instance){
- laDBSubProp* dsp=rp; for(laDBInst* dbii=dsp->Instances.pFirst;dbii;dbii=dbii->Item.pNext){
- if(dbii->OriginalInstance == Instance) { *r_DBInst=dbii; break; }
- }
- }
- return rp;
- }
- laDBProp* laFindStartingDBProp(laProp* p, void* Instance, laPropContainer* InstancePC, laDBInst** r_DBInst){
- if(!Instance||Instance==MAIN.DataRoot.RootInstance){
- for(laDBProp*dbp=MAIN.RootDBInst.Props.pFirst;dbp;dbp=dbp->Item.pNext){
- if(dbp->p == p){ *r_DBInst=&MAIN.RootDBInst; return dbp; }
- }
- } /* If root not found try to find it in the hash. */
- if(!MAIN.DBInstLink){ return 0; }
- laListHandle* l=hsh65536DoHashLongPtr(MAIN.DBInstLink, Instance); if(!l) return 0;
- for(laListItem* li=l->pFirst;li;li=li->pNext){
- laDBInst* dbi=(laDBInst*)(((char*)li)-sizeof(laListItem)); if(dbi->OriginalInstance==Instance && dbi->pc==InstancePC){
- if(p){ for(laDBProp*dbp=dbi->Props.pFirst;dbp;dbp=dbp->Item.pNext){ if(dbp->p == p){ *r_DBInst=dbi; return dbp; } } }
- else{ *r_DBInst=dbi; return 0; }
- }
- }
- return 0;
- }
- void laRecordCustomDifferences(void* Data, laDiffCommandUndoF Undo, laDiffCommandRedoF Redo, laDiffCommandFreeF Free){
- laDiffCommandCustom* dcc=memAcquire(sizeof(laDiffCommandCustom));
- dcc->Data=Data; dcc->Undo=Undo; dcc->Redo=Redo; dcc->Free=Free;
- lstAppendItem(&MAIN.HeadDifference->CustomCommands,dcc);
- }
- int laRecordDifferences(laPropPack* base, char* path){
- laPropPack PP={0};
- if(!la_GetPropFromPath(&PP,base,path,0)) return 0;
- la_StepPropPack(&PP);
- //laPropPackToLocal(&LocalPP, &PP);
- int success=0;
- laDBInst* FromDBI; //=laSkipDB(&LocalPP, &MAIN.RootDBInst, &dbp);
- laDBProp* dbp=laFindStartingDBProp(PP.LastPs->p, PP.LastPs->UseInstance, PP.LastPs->p->Container, &FromDBI);
- if(FromDBI && dbp){
- laFreeNewerDifferences();
- laIterateDB(FromDBI, &PP, MAIN.HeadDifference, dbp);
- if(MAIN.HeadDifference->Commands.pFirst){ success = 1; }
- }else{
- success = 0; //printf("Prop not recorded as DBInst.\n");
- }
- la_FreePropStepCache(PP.Go);
- return success;
- }
- int laRecordInstanceDifferences(void* instance, const char* container){
- laPropContainer* pc=la_ContainerLookup(container); if(!pc) return 0;
- laDBInst* FromDBI=0;
- laFindStartingDBProp(0,instance,pc,&FromDBI); if(!FromDBI) return 0;
- laPropPack PP={0}; laPropStep PS={0}; PS.UseInstance=instance; PP.LastPs=&PS;
- int freed=0, success=0, any=0;
- for(laProp* p=pc->Props.pFirst;p;p=p->Item.pNext){
- PS.p = p; laDBProp* dbp=laFindDBProp(FromDBI, p, 0,0);
- if(FromDBI && dbp){
- if(!freed){ laFreeNewerDifferences(); freed=1; }
- any+=laIterateDB(FromDBI, &PP, MAIN.HeadDifference, dbp);
- if(MAIN.HeadDifference->Commands.pFirst){ success = 1; }
- }
- }
- if(any){ la_GiveExtraTouched(MAIN.HeadDifference,FromDBI); }
- return success;
- }
- void laRecordAndPush(laPropPack* base, char* path, char* description, uint64_t hint){
- if(laRecordDifferences(base, path)){ laPushDifferences(description, hint); }
- }
- void laRecordAndPushProp(laPropPack* base, char* path){
- char buf[256]={0};
- if(laRecordDifferences(base, path)){
- la_GetPropPackFullPath(base,&buf[strlen(buf)]);if(path){sprintf(&buf[strlen(buf)],"%s%s",base?".":"",path);}
- laPushDifferences(buf, 0);
- }
- }
- void laRecordEverythingAndPush(){
- for(laDBRecordedProp* rp=MAIN.DBRecordedProps.pFirst;rp;rp=rp->Item.pNext){
- laRecordAndPushProp(0, rp->OriginalPath->Ptr);
- }
- if(MAIN.PushEverything){ MAIN.PushEverything(); }
- }
- void laSetDiffCallback(laDiffPushEverythingF PushEverything){
- MAIN.PushEverything=PushEverything;
- }
|