global-afc.hpp cmath /usr/include/gecode/kernel.hh Gecode::GlobalAFC Gecode::GlobalAFC::Counter Gecode::GlobalAFC::Block Gecode::GlobalAFC::DecayManager Gecode::GlobalAFC::Object Gecode /*-*-mode:C++;c-basic-offset:2;indent-tabs-mode:nil-*-*/ /* *Mainauthors: *ChristianSchulte<schulte@gecode.org> * *Copyright: *ChristianSchulte,2009 * *Lastmodified: *$Date:2013-07-0106:38:48+0200(Mon,01Jul2013)$by$Author:tack$ *$Revision:13740$ * *ThisfileispartofGecode,thegenericconstraint *developmentenvironment: *http://www.gecode.org * *Permissionisherebygranted,freeofcharge,toanypersonobtaining *acopyofthissoftwareandassociateddocumentationfiles(the *"Software"),todealintheSoftwarewithoutrestriction,including *withoutlimitationtherightstouse,copy,modify,merge,publish, *distribute,sublicense,and/orsellcopiesoftheSoftware,andto *permitpersonstowhomtheSoftwareisfurnishedtodoso,subjectto *thefollowingconditions: * *Theabovecopyrightnoticeandthispermissionnoticeshallbe *includedinallcopiesorsubstantialportionsoftheSoftware. * *THESOFTWAREISPROVIDED"ASIS",WITHOUTWARRANTYOFANYKIND, *EXPRESSORIMPLIED,INCLUDINGBUTNOTLIMITEDTOTHEWARRANTIESOF *MERCHANTABILITY,FITNESSFORAPARTICULARPURPOSEAND *NONINFRINGEMENT.INNOEVENTSHALLTHEAUTHORSORCOPYRIGHTHOLDERSBE *LIABLEFORANYCLAIM,DAMAGESOROTHERLIABILITY,WHETHERINANACTION *OFCONTRACT,TORTOROTHERWISE,ARISINGFROM,OUTOFORINCONNECTION *WITHTHESOFTWAREORTHEUSEOROTHERDEALINGSINTHESOFTWARE. * */ #include<cmath> namespaceGecode{ classGlobalAFC{ public: classCounter{ public: doublec; unsignedlongintt; voidinit(void); }; private: classBlock{ public: Block*next; Counterc[1]; staticBlock*allocate(unsignedintn,Block*p=NULL); }; classDecayManager{ protected: doubled; staticconstunsignedintn_dpow=8U; doubledpow[n_dpow]; unsignedlongintt; voiddecay(Counter&c); public: DecayManager(void); voiddecay(doubled); doubledecay(void)const; voidinc(Counter&c); voidset(Counter&c,doublea); doubleval(Counter&c); staticvoid*operatornew(size_ts); staticvoidoperatordelete(void*p); }; staticconstunsignedintsize_min=32; staticconstunsignedintsize_max=32*1024; classObject{ public: Support::FastMutex*mutex; DecayManager*decay; Object*parent; unsignedintuse_cnt; unsignedintsize; unsignedintfree; Block*cur; Object(Support::FastMutex*m,Object*p=NULL); staticvoid*operatornew(size_ts); staticvoidoperatordelete(void*p); }; void*mo; Object*object(void)const; boollocal(void)const; voidlocal(Object*o); voidglobal(void*mo); public: GlobalAFC(void); GlobalAFC(constGlobalAFC&ga); ~GlobalAFC(void); voiddecay(doubled); doubledecay(void)const; voidfail(Counter&c); voidset(Counter&c,doublea); doubleafc(Counter&c); Counter&allocate(void); }; forceinlinevoid GlobalAFC::Counter::init(void){ c=1.0;t=0UL; } forceinlinevoid GlobalAFC::DecayManager::decay(doubled0){ d=d0; if(d!=1.0){ doublep=d; unsignedinti=0; do{ dpow[i++]=p;p*=d; }while(i<n_dpow); } } forceinline GlobalAFC::DecayManager::DecayManager(void) :d(1.0),t(0UL){} forceinlinedouble GlobalAFC::DecayManager::decay(void)const{ returnd; } forceinlinevoid GlobalAFC::DecayManager::decay(Counter&c){ assert((t>=c.t)&&(d!=1.0)); unsignedintn=t-c.t; if(n>0){ if(n<=n_dpow){ c.c*=dpow[n-1]; }else{ c.c*=pow(d,static_cast<double>(n)); } c.t=t; } } forceinlinevoid GlobalAFC::DecayManager::inc(Counter&c){ if(d==1.0){ c.c+=1.0; }else{ decay(c); c.c+=1.0;c.t=++t; } } forceinlinedouble GlobalAFC::DecayManager::val(Counter&c){ if(d!=1.0) decay(c); returnc.c; } forceinlinevoid GlobalAFC::DecayManager::set(Counter&c,doublea){ c.c=a; } forceinlinevoid* GlobalAFC::DecayManager::operatornew(size_ts){ returnGecode::heap.ralloc(s); } forceinlinevoid GlobalAFC::DecayManager::operatordelete(void*p){ Gecode::heap.rfree(p); } /* *GlobalAFCinformation * */ forceinlinevoid* GlobalAFC::Object::operatornew(size_ts){ returnGecode::heap.ralloc(s); } forceinlinevoid GlobalAFC::Object::operatordelete(void*p){ Gecode::heap.rfree(p); } forceinlineGlobalAFC::Block* GlobalAFC::Block::allocate(unsignedintn,GlobalAFC::Block*p){ Block*b=static_cast<Block*>(heap.ralloc(sizeof(Block)+ (n-1)*sizeof(Counter))); b->next=p; returnb; } forceinline GlobalAFC::Object::Object(Support::FastMutex*m,Object*p) :mutex(m),parent(p),use_cnt(1),size(size_min),free(size_min), cur(Block::allocate(size)){ if(parent==NULL){ decay=newDecayManager; }else{ decay=parent->decay; } } forceinlineGlobalAFC::Object* GlobalAFC::object(void)const{ returnstatic_cast<Object*>(Support::funmark(mo)); } forceinlinebool GlobalAFC::local(void)const{ return!Support::marked(mo); } forceinlinevoid GlobalAFC::local(Object*o){ assert(!Support::marked(o)); mo=o; } forceinlinevoid GlobalAFC::global(void*o){ mo=Support::fmark(o); } forceinline GlobalAFC::GlobalAFC(void){ //Nosynchronizationneededassinglethreadiscreatingthisobject local(newObject(newSupport::FastMutex)); } forceinline GlobalAFC::GlobalAFC(constGlobalAFC&gpi){ global(gpi.mo); Object*o=object(); o->mutex->acquire(); o->use_cnt++; o->mutex->release(); } forceinline GlobalAFC::~GlobalAFC(void){ Support::FastMutex*m=object()->mutex; m->acquire(); Object*c=object(); DecayManager*decay=c->decay; while((c!=NULL)&&(--c->use_cnt==0)){ //Deleteallblocksforc Block*b=c->cur; while(b!=NULL){ Block*d=b;b=b->next; heap.rfree(d); } //Deleteobject Object*d=c;c=c->parent; deleted; } m->release(); //Allobjectsaredeleted,soalsodeletemutexanddecyainfo if(c==NULL){ deletedecay; deletem; } } forceinlinevoid GlobalAFC::fail(Counter&c){ Support::FastMutex&m=*object()->mutex; m.acquire(); object()->decay->inc(c); m.release(); } forceinlinevoid GlobalAFC::set(Counter&c,doublea){ Support::FastMutex&m=*object()->mutex; m.acquire(); object()->decay->set(c,a); m.release(); } forceinlinedouble GlobalAFC::afc(Counter&c){ Support::FastMutex&m=*object()->mutex; doubled; m.acquire(); d=object()->decay->val(c); m.release(); returnd; } forceinlinedouble GlobalAFC::decay(void)const{ Support::FastMutex&m=*object()->mutex; doubled; m.acquire(); d=object()->decay->decay(); m.release(); returnd; } forceinlinevoid GlobalAFC::decay(doubled){ Support::FastMutex&m=*object()->mutex; m.acquire(); object()->decay->decay(d); m.release(); } forceinlineGlobalAFC::Counter& GlobalAFC::allocate(void){ /* *Ifthereisnolocalobject,createone. * *ThereisnosynchronizationneededasonlyONEspacehasaccess *tothemarkedpointerANDthelocalobject. */ if(!local()) local(newObject(object()->mutex,object())); assert(local()); Object*o=object(); if(o->free==0){ if(2*o->size<=size_max) o->size*=2; o->free=o->size; o->cur=Block::allocate(o->size,o->cur); } Counter*c=&o->cur->c[--o->free]; c->init(); return*c; } } //STATISTICS:kernel-prop