123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337 |
- #include <FL/Fl.H>
- #include <FL/Fl_Double_Window.H>
- #include <FL/Fl_Menu_Item.H>
- #include <Fl/Fl_Menu_Bar.H>
- #include <Fl/Fl_Button.H>
- #include <Fl/Fl_Check_Button.H>
- #include <Fl/Fl_Text_Buffer.H>
- #include <Fl/Fl_Text_Display.H>
- #include <Fl/Fl_Box.H>
- #include <Fl/Fl_Tabs.H>
- #include <Fl/Fl_File_Chooser.H>
- #include <Fl/Fl_Value_Slider.H>
- #include <Fl/Fl_Menu_Button.H>
- #include <Fl/Fl_Select_Browser.H>
- #include <Fl/Fl_Value_Input.H>
- #include <Fl/Fl_Progress.H>
-
- #include "Fl_Vert_Progress.h"
- #include "Fl_File_Btn.h"
- #include "Fl_Splitter.h"
-
- #include "cmGlobal.h"
- #include "cmFloatTypes.h"
- #include "cmRpt.h"
- #include "cmErr.h"
- #include "cmCtx.h"
- #include "cmMem.h"
- #include "cmMallocDebug.h"
- #include "cmLinkedHeap.h"
- #include "cmText.h"
- #include "cmSymTbl.h"
- #include "cmJson.h"
- #include "cmFileSys.h"
- #include "cmPrefs.h"
- #include "cmAudioFile.h"
- #include "cmThread.h"
- #include "cmProcTest.h"
-
- #include "cmDspValue.h"
- #include "cmMsgProtocol.h"
- #include "cmAudDspIF.h"
- #include "cmAudDspLocal.h"
- #include "kcApp.h"
-
- #include "kcApp.h"
-
- #define TIMER_PERIOD (1.0/20.0) // 50ms
-
-
- kcApp::kcApp(int w, int h, const char *l, int argc, char *argv[])
- : Fl_Double_Window(w, h, l),
- menu(NULL),splt(NULL),
- _adlH(cmAdlNullHandle),_aiH(cmAiNullHandle),
- _statIdx(0),_pageList(NULL),_ctlList(NULL),_prH(cmPrNullHandle),_prefsFn(NULL),
- _stopTimerFl(false),_jsH(cmJsonNullHandle),_newPageFl(true),_incrColW(0),_colW(0),_horzBordFl(false),_horzBord(0),
- _closeCnt(0),_ssCnt(0),_ssArray(0),_ssPhase(0),_ssUpdateFl(false),_printqH(cmTsQueueNullHandle)
- {
- // install a callback to cleanup when the app window closes
- // (the btn callbacks and _getApp() rely on a pointer to 'this' being found in kcApp.user_data())
- callback(_s_callback,this);
-
- // the main window is divided between the menu bar on top
- // and a horizontal splitter on the bottom
- begin();
- splt = new Fl_HSplitter(0, 0, w, h-kStatusH, h-kStatusH-100);
- end();
-
- // Create a text display object for console output and
- // add it to the lower splitter area
- buf = new Fl_Text_Buffer();
- con = new Fl_Text_Display(splt->container2->x(),splt->container2->y(),splt->container2->w(),splt->container2->h());
- con->buffer(buf);
- splt->container2->add(con);
-
- // Create a tab view and added it to the upper splitter area
- tabs = new Fl_Tabs(splt->container1->x(),splt->container1->y(),splt->container1->w(),splt->container1->h());
- tabs->callback(_s_tab_cb,this);
-
- splt->container1->add(tabs);
-
- int tx,ty,th,tw;
- tabs->client_area(tx,ty,tw,th);
-
- // Create the 'Setup' tab group
- tabs->begin();
- Fl_Group* setup_grp = new Fl_Group(tx,ty,tw,th,"Setup");
- _createSetupDlg(setup_grp);
- tabs->end();
-
-
- tabs->begin();
- mstr_grp = new Fl_Group(tx,ty,tw,th,"Master");
- tabs->end();
-
- // Create the 'Controls' tab group
- /*
- tabs->begin();
- ctl_grp = new Fl_Group(tx,ty,tw,th,"Controls");
- ctl_grp->begin();
- Fl_Box* bx = new Fl_Box(FL_NO_BOX,ctl_grp->x()+ctl_grp->w(),ctl_grp->y()+ctl_grp->h(),1,1,NULL);
- ctl_grp->resizable(bx);
- ctl_grp->end();
- tabs->end();
- */
-
- // Create an empty tab group and make it resizable
- // to prevent the other tab groups from being resizable.
- tabs->begin();
- Fl_Group* wdgt = new Fl_Group(tx,ty+30,1,1);
- tabs->resizable(wdgt); // make other tabs non-resizable
- tabs->end();
-
-
- // make the splitter the resizable group element (thereby making the menu non-resizable).
- // see:http://fltk.org/articles.php?L415+I0+T+M1000+P1
- resizable(splt);
- show(argc, argv);
-
-
- // initialize the audio DSP system
- audioDspInitialize(&_ctx,_s_print,this);
-
- // install a timer to check for messages from the engine
- Fl::add_timeout(TIMER_PERIOD,_s_status_timeout_cb,this);
-
-
- }
-
- kcApp::~kcApp()
- {
- _clearCtlList(true);
- _clearSsArray();
- }
-
-
- // this function is only called from the constructor
- kcApp::kcKmRC_t kcApp::audioDspInitialize(cmCtx_t* ctx, cmRptPrintFunc_t printFunc, void* printFuncArg)
- {
- kcKmRC_t rc = kOkKmRC;
-
- // initialize the heap check library
- bool memDebugFl = cmDEBUG_FL;
- unsigned memPadByteCnt = memDebugFl ? 8 : 0;
- unsigned memAlignByteCnt = 16;
- unsigned memFlags = memDebugFl ? (kTrackMmFl | kDeferFreeMmFl | kFillUninitMmFl) : 0;
-
- cmCtxSetup(ctx,"KC Main",printFunc,printFunc,printFuncArg,memPadByteCnt,memAlignByteCnt,memFlags);
-
- cmMdInitialize( memPadByteCnt, memAlignByteCnt, memFlags, &ctx->rpt );
-
- cmTsInitialize(ctx);
-
- cmFsInitialize( ctx, "kc" );
-
- cmJsonInitialize(&_jsH,&_ctx);
-
- //_loadPrefs(ctx);
-
- // create the print queue
- if( cmTsQueueCreate( &_printqH, 4*8192, kcApp::_s_print_queue_cb, this, &_ctx.rpt ) != kOkThRC )
- cmErrMsg(&ctx->err,kPrintQueFailKmRC,"Print queue creation failed.");
-
- cmAdIfDispatch_t r;
- r.cbDataPtr = this;
- r.ssInitFunc = _s_handleSsInitMsg;
- r.statusFunc = _s_handleStatusMsg;
- r.uiFunc = _s_handleUiMsg;
-
- if( cmAudDspLocalAllocate(ctx,&_adlH,&r) != kOkAdlRC )
- {
- rc = cmErrMsg(&ctx->err,kEngFailKmRC,"The audio DSP local server allocation failed.");
- goto errLabel;
- }
-
- if(cmAdIfIsValid(_aiH = cmAudDspLocalIF_Handle(_adlH)) == false )
- {
- rc = cmErrMsg(&ctx->err,kEngFailKmRC,"The audio DSP interface handle is not valid.");
- goto errLabel;
- }
-
- errLabel:
- return rc;
- }
-
- bool kcApp::audioDspIsValid()
- { return cmAudDspLocalIsValid(_adlH) && cmAdIfIsValid(_aiH); }
-
- kcApp::kcKmRC_t kcApp::audioDspFinalize()
- {
- kcKmRC_t rc = kOkKmRC;
-
- _stopTimerFl = true;
-
- if( cmJsonFinalize(&_jsH) != kOkJsRC )
- rc = cmErrMsg(&_ctx.err,kJsonFailKmRC,"JSON object finalization failed.");
-
- // If the preferences are dirty or the prefs file does not exist then write them
- if( cmPrefsIsValid(_prH) )
- {
-
- if( _prefsFn != NULL && (cmPrefsIsValid(_prH) && (cmPrefsIsDirty(_prH) || cmFsIsFile(_prefsFn)==false)) )
- if( cmPrefsWrite(_prH,_prefsFn) != kOkPrRC )
- rc = cmErrMsg(&_ctx.err,kPrefWriteFailKmRC,"Preference save failed on file '%s'.",_prefsFn);
-
- if( cmPrefsFinalize(&_prH) != kOkPrRC )
- rc = cmErrMsg(&_ctx.err,kPrefFailKmRC,"Prefrence finalization failed.");
-
- }
-
- // finalize the real-time system
- //rc = stopEngine(_ctx,*hp);
-
- // release the engine
- if( cmAudDspLocalFree(&_adlH) != kOkAdlRC )
- rc = cmErrMsg(&_ctx.err,kEngFailKmRC,"Audio DSP release failed.");
-
- // print any pending text in the print queue
- _checkPrintQueue();
-
- // the app threads are stopped so it is safe to stop using the print queue
- if( cmTsQueueDestroy(&_printqH) == kOkThRC )
- _printqH = cmTsQueueNullHandle;
- else
- cmErrMsg(&_ctx.err,kPrintQueFailKmRC,"Print queue destroy failed.");
-
- // finalize the file system
- cmFsFinalize();
-
- cmTsFinalize();
-
- // report memory mgr errors
- if( cmMdReport( kIgnoreNormalMmFl ) != kOkMmRC )
- rc = kMemFailKmRC;
-
- // finalize the memory manager
- if( cmMdFinalize() != kOkMmRC )
- rc = kMemFailKmRC;
-
- return rc;
- }
-
-
- // this function is called whenever a audio configuration parameter
- // changes (e.g. device, sample rate )
- /*
- kcApp::kcKmRC_t kcApp::audioDspStart()
- {
- kcKmRC_t rc = kOkKmRC;
-
- // initializing the engine will result in a new control ui being generated so delete the current on
- _clearCtlList();
-
- // initialize the real-time system
- if( kcEngInitialize(h,cfg) != kOkKeRC )
- {
- rc = cmErrMsg(&ctx->err,kEngFailKmRC,"Engine initialization failed.");
- goto errLabel;
- }
-
- _stopTimerFl = false;
-
- // load the dsp program
- if( kcEngLoad(h) != kOkKeRC )
- {
- rc = cmErrMsg(&ctx->err,kEngFailKmRC,"Engine load failed.");
- goto errLabel;
- }
-
- // start the real-time system
- if( kcEngEnable(h,true) != kOkKeRC )
- {
- rc = cmErrMsg(&ctx->err,kEngFailKmRC,"Engine enable failed.");
- goto errLabel;
- }
-
- ena_chk->value(1);
-
- errLabel:
- return rc;
- }
-
- kcApp::kcKmRC_t kcApp::stopEngine( )
- {
- kcKmRC_t rc = kOkKmRC;
-
-
- if( kcEngIsValid(h))
- {
- // pause the real-time system
- if( kcEngEnable(h,false) != kOkKeRC )
- rc = cmErrMsg(&ctx->err,kEngFailKmRC,"Engine disable failed.");
- else
- ena_chk->value(0);
-
- _stopTimerFl = true;
-
- // finalize the real-time system
- if( kcEngFinalize(h) != kOkKeRC )
- rc = cmErrMsg(&ctx->err,kEngFailKmRC,"Engine finalize failed.");
- }
- return rc;
- }
- */
-
-
- void kcApp::resize(int x, int y, int w, int h)
- {
- Fl_Double_Window::resize(x, y, w, h);
- splt->resize_splitter(0, 0, w, h-kStatusH);
- }
-
-
- void kcApp::_createSetupDlg( Fl_Group* grp )
- {
- int ctl_width = 200;
- int vBord = 5;
- int xx = grp->x() + 5;
- int yy = grp->y() + vBord;
-
- grp->begin();
-
- Fl_Button* btn = new Fl_Button(xx,yy,200,kMenuH,"Audio Device Report");
- btn->callback( _s_btn_cb, kAudDevRptBtnId );
- yy += btn->h() + vBord;
-
- as_btn = new Fl_Menu_Button(xx,yy,ctl_width,kMenuH,"Audio System Cfg");
- as_btn->callback( _s_btn_cb, kAudioSysCfgBtnId);
- yy += as_btn->h() + vBord;
-
- ai_btn = new Fl_Menu_Button(xx,yy,ctl_width,kMenuH,"Audio Input Devices");
- ai_btn->callback( _s_btn_cb, kInAudDevBtnId);
- yy += ai_btn->h() + vBord;
-
- ao_btn = new Fl_Menu_Button(xx,yy,ctl_width,kMenuH,"Audio Output Devices");
- ao_btn->callback( _s_btn_cb, kOutAudDevBtnId);
- yy += ao_btn->h() + vBord;
-
- pgm_btn = new Fl_Menu_Button(xx,yy,ctl_width,kMenuH,"Programs");
- pgm_btn->callback( _s_btn_cb, kPgmBtnId);
- yy += pgm_btn->h() + vBord;
-
- ss_btn = new Fl_Menu_Button(xx,yy,ctl_width,kMenuH,"Sub-System");
- ss_btn->callback( _s_btn_cb, kSubSystemIdxBtnId);
- yy += ss_btn->h() + vBord;
-
- sr_btn = new Fl_Menu_Button(xx,yy,ctl_width,kMenuH,"Sample Rate");
- sr_btn->callback( _s_btn_cb, kSrateBtnId);
- sr_btn->add("44100",0,NULL,(void*)44100,0);
- sr_btn->add("48000",0,NULL,(void*)48000,0);
- sr_btn->add("96000",0,NULL,(void*)96000,0);
-
- yy += sr_btn->h() + vBord;
-
- btn = new Fl_Button(xx,yy,ctl_width,kMenuH,"Test");
- btn->callback( _s_btn_cb, kTestBtnId );
- yy += btn->h() + vBord;
-
- ena_chk = new Fl_Check_Button(xx,yy,ctl_width,kMenuH,"Enable Audio");
- ena_chk->callback( _s_btn_cb, kEnableBtnId );
- yy += ena_chk->h() + vBord;
-
- // place this ctrl in the lower left corner to prevent the other controls from resizing
- Fl_Box* bx = new Fl_Box(FL_NO_BOX,xx+ctl_width,yy,10,10,NULL);
- grp->resizable(bx);
-
- grp->end();
- }
-
- /*
- void kcApp::_createMenu(int w, int h)
- {
- Fl_Menu_Item items[] =
- {
- { "&File", 0, 0, 0, FL_SUBMENU },
- { "&New File", 0, (Fl_Callback*)_s_file_new_cb },
- { "&Open File", FL_COMMAND + 'o', (Fl_Callback*)_s_file_open_cb },
- { 0 },
- { "&Edit", 0, 0, 0, FL_SUBMENU },
- { "&Copy", FL_COMMAND + 'c', (Fl_Callback*)_s_edit_copy_cb },
- { "&Paste", FL_COMMAND + 'v', (Fl_Callback*)_s_edit_paste_cb },
- { 0 },
- { 0 }
- };
-
- menu = new Fl_Menu_Bar(0,0,w,h);
- menu->copy(items);
- }
- */
-
- void kcApp::_createPage( const char* title )
- {
- int tx,ty,th,tw;
- tabs->client_area(tx,ty,tw,th);
-
- page_t* page = new page_t;
- page->link = _pageList;
- _pageList = page;
-
- _newPageFl = true;
-
- // Create the 'Controls' tab group
- tabs->begin();
- page->grp = new Fl_Group(tx,ty,tw,th,title);
- page->grp->begin();
- Fl_Box* bx = new Fl_Box(FL_NO_BOX,page->grp->x()+page->grp->w(),page->grp->y()+page->grp->h(),1,1,NULL);
- page->grp->resizable(bx);
- page->grp->end();
- tabs->end();
-
- }
-
- // return the count of engine ctls
- unsigned kcApp::_getCtlCount() const
- {
- unsigned cnt = 0;
- ctl_t* cp = _ctlList;
- for(; cp!=NULL; cp=cp->linkPtr)
- ++cnt;
- return cnt;
- }
-
- // delete all engine ctls - (except maybe the master ctrl's)
- void kcApp::_clearCtlList(bool mstrFl)
- {
- ctl_t* ncl = NULL;
- ctl_t* cp = _ctlList;
-
- while( cp != NULL )
- {
- ctl_t* np = cp->linkPtr;
-
- // delete the ctrl unless it is a master ctl and the mstrFl is set
- if( cp->mstrFl==false || mstrFl )
- {
- delete cp;
- }
- else
- {
- // append the master ctl to the new ctl list
- cp->linkPtr = ncl;
- ncl = cp;
- }
-
- cp = np;
- }
-
- // clear the page groups and pages
- page_t* pg = _pageList;
- while( pg != NULL )
- {
- page_t* np = pg->link;
- pg->grp->clear();
- delete pg->grp;
- delete pg;
- pg = np;
- }
- _pageList = NULL;
-
- //ctl_grp->clear();
- _ctlList = ncl; // make the new ctl list the current ctl list
-
- if( mstrFl )
- mstr_grp->clear();
-
- }
-
-
- void kcApp::_clearSsArray()
- {
- if( _ssArray != NULL )
- {
- delete[] _ssArray;
- _ssArray = NULL;
- }
-
- _ssCnt = 0;
-
- }
-
- // find a engine ui ctl given a dsp instance id
- kcApp::ctl_t* kcApp::_findCtl( unsigned instId, unsigned asSubIdx, unsigned mstrFl )
- {
- ctl_t* cp = _ctlList;
- for(; cp!=NULL; cp=cp->linkPtr)
- if( cp->instId == instId && cp->asSubIdx==asSubIdx && cp->mstrFl==mstrFl )
- return cp;
-
- //printf("not found:0x%x ssi:%i mstr:%i\n",instId,asSubIdx,mstrFl);
-
- return NULL;
- }
-
- // calc. the position and size of a new ctl being created
- // at the request of the engine
- void kcApp::_getNewCtlPosn( const cmDspUiHdr_t* m, int& x, int& y, int& w, int& h )
- {
- enum { kPageH=700, kCtlH=30, kCtlW=200, kHBord=2, kVBord=2 };
-
- // if this is control is being placed in the 'master' group
- if( m->uiId == cmInvalidId )
- {
-
- //unsigned devIdx = cmAudioSysUiInstIdToDevIndex(m->instId);
- unsigned chIdx = cmAudioSysUiInstIdToChIndex(m->instId);
- unsigned outFl = !cmAudioSysUiInstIdToInFlag(m->instId);
- unsigned ctlId = cmAudioSysUiInstIdToCtlId(m->instId);
-
-
- int xOffs = 20;
- int yOffs = 100;
- int chH = 205;
- int chW = 44;
- int sldrH = 120;
- int sldrW = 20;
- int chkH = 20;
- int chkW = 35;
-
- x = xOffs + (chIdx * chW);
- y = yOffs + (m->asSubIdx * 2 * chH) + (outFl * chH);
-
- switch( ctlId )
- {
- // slider
- case kSliderUiAsId: w=sldrW; h=sldrH; break;
-
- // meter
- case kMeterUiAsId: w=sldrW; h=sldrH; x+=sldrW; break;
-
- // mute
- case kMuteUiAsId: w=chkW; h=chkH; y+=sldrH + 2; break;
-
- // tone
- case kToneUiAsId: w=chkW; h=chkH; y+=sldrH + chkH + 4; break;
-
- // pass
- case kPassUiAsId: w=chkW; h=chkH; y+=sldrH + 2*chkH + 6; break;
-
- default:
- { assert(0); }
- }
-
- return;
- }
-
- // if this control is being placed in the 'controls' group
- ctl_t* cp = _ctlList;
-
- if( w == 0 )
- {
- if( _colW == 0 )
- _colW = kCtlW;
-
- w = _colW;
- }
-
- if( h == 0 )
- h = kCtlH;
-
- // skip over controls that are assigned to the 'master' group
- while(cp != NULL && cp->mstrFl )
- cp = cp->linkPtr;
-
- // if the page list is empty - create a default blank page
- if( _pageList == NULL )
- _createPage("Controls");
-
- Fl_Group* ctl_grp = _pageList->grp;
-
- // if the ctl list is empty
- if( cp == NULL || _newPageFl )
- {
- _newPageFl = false;
- x = kHBord + ctl_grp->x();
- y = kVBord + ctl_grp->y();
- _horzBord = y;
- }
- else
- {
- // if a new horizontal - upper border was requested
- if( _horzBordFl )
- {
- _horzBordFl = false;
-
- // locate the current control with the max bottom coordinate
- ctl_t* tp = cp;
- if( tp != NULL )
- {
- int maxY = tp->wdgtPtr->y() + tp->wdgtPtr->h();
-
- while(tp!=NULL)
- {
- if( tp->mstrFl == false && (tp->wdgtPtr->y() + tp->wdgtPtr->h()) > maxY )
- maxY = tp->wdgtPtr->y() + tp->wdgtPtr->h();
-
- tp = tp->linkPtr;
- }
- // set the new upper boundary to just below the bottom of
- // the lowest control
- _horzBord = maxY + kVBord*2;
-
- }
-
-
- x = kHBord + ctl_grp->x();
- y = _horzBord;
-
- }
- else
- {
- // use the last ctl inserted in the list
- // (the first ctl in the list)
- // to position the next ctl
- x = cp->wdgtPtr->x();
- y = cp->wdgtPtr->y() + cp->wdgtPtr->h() + kVBord;
-
- // if this control goes off the page or a new col was requested
- if( y+h > kPageH || _incrColW )
- {
-
- x += _colW + kHBord;
- _colW = _incrColW;
- _incrColW = 0;
- y = _horzBord;
- }
-
- }
- }
- }
-
- kcApp::ctl_t* kcApp::_createCtl( const cmDspUiHdr_t* m, unsigned typeId, int& x, int& y, int& w, int& h )
- {
- ctl_t* cp = new ctl_t;
-
- cp->thisPtr = this;
- cp->asSubIdx = m->asSubIdx;
- cp->instId = m->instId;
- cp->typeId = typeId;
- cp->mstrFl = m->uiId == cmInvalidId;
-
- _getNewCtlPosn(m,x,y,w,h);
-
- return cp;
- }
-
- void kcApp::_insertNewCtl( ctl_t* cp, const cmDspUiHdr_t* m, Fl_Widget* wdgt, unsigned* varIdArray, unsigned varIdCnt )
- {
- unsigned i;
-
- // _genNewCtlPosn() should have been called before this - where a new page list would have been created.
- assert( cp->mstrFl || (cp->mstrFl==false && _pageList != NULL) );
-
- Fl_Group* grp = cp->mstrFl ? mstr_grp : _pageList->grp;
-
- cp->wdgtPtr = wdgt;
- cp->wdgtPtr->callback(_s_ctl_cb, cp );
- grp->add(cp->wdgtPtr);
-
- const unsigned* srcVarIdArray = cmDsvUIntCMtx(&m->value);
-
- assert( varIdArray != NULL && cmDsvEleCount(&m->value)==varIdCnt);
-
- for(i=0; i<varIdCnt; ++i)
- varIdArray[i] = srcVarIdArray[i];
-
- cp->linkPtr = _ctlList;
- _ctlList = cp;
- }
-
- // create a slider ctl at the request of the engine
- void kcApp::_createSlider( const cmDspUiHdr_t* m )
- {
- int x,y,w=0,h=0;
- ctl_t* cp = _createCtl(m, m->selId==kSliderDuiId? kSldrTypeId : kNumbTypeId, x,y,w,h );
-
- switch(m->selId)
- {
- case kSliderDuiId:
- cp->u.sldr.u.sldr = new Fl_Value_Slider(x,y,w,h);
- cp->u.sldr.val = static_cast<Fl_Valuator*>(cp->u.sldr.u.sldr);
- cp->u.sldr.u.sldr->type(cp->mstrFl ? FL_VERT_NICE_SLIDER : FL_HOR_NICE_SLIDER);
- break;
-
- case kNumberDuiId:
- cp->u.sldr.u.numb = new Fl_Value_Input(x,y,w/2,h);
- cp->u.sldr.u.numb->when(FL_WHEN_ENTER_KEY | FL_WHEN_RELEASE );
- cp->u.sldr.val = static_cast<Fl_Valuator*>(cp->u.sldr.u.numb);
-
- break;
- }
-
- _insertNewCtl(cp, m, cp->u.sldr.val, cp->u.sldr.varIdArray, kSldrVarCnt );
- }
-
-
- // handle slider value msg's arriving from the engine
- void kcApp::_setSldrValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i=0;
- Fl_Valuator* sp = cp->u.sldr.val;
-
- for(i=0; i<kSldrVarCnt; ++i)
- if( cp->u.sldr.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kSldrMinArgIdx:
- sp->minimum(cmDsvGetDouble(vp));
- //sp->step((sp->maximum()-sp->minimum())/sp->w());
- break;
-
- case kSldrMaxArgIdx:
- sp->maximum(cmDsvGetDouble(vp));
- //sp->step((sp->maximum()-sp->minimum())/sp->w());
- break;
-
- case kSldrStpArgIdx:
- sp->step(cmDsvGetDouble(vp));
- break;
-
- case kSldrValArgIdx:
- sp->value(cmDsvGetDouble(vp));
- break;
-
- case kSldrLblArgIdx:
- {
- int ww=0,hh=0;
- if( cmDsvStrcz(vp) == NULL )
- {
- sp->label(NULL);
- sp->align(FL_ALIGN_INSIDE | FL_ALIGN_CENTER );
- }
- else
- {
- sp->copy_label( cmDsvStrcz(vp) );
- sp->align(FL_ALIGN_RIGHT);
- }
-
- if( cp->typeId == kSldrTypeId )
- {
- sp->measure_label(ww,hh);
- sp->resize( sp->x(), sp->y(), sp->w() - ww, sp->h());
- sp->redraw();
- }
- }
-
- break;
-
- default:
- { assert(0); }
- }
-
- break;
- }
- }
-
- void kcApp::_createText( const cmDspUiHdr_t* m )
- {
- int x,y,w=0,h=0;
- ctl_t* cp = _createCtl(m, kTextTypeId, x,y,w,h );
-
- cp->u.text.text = new Fl_Input(x,y,w,h);
-
- _insertNewCtl(cp, m, cp->u.text.text, cp->u.text.varIdArray, kTextVarCnt );
- }
-
- void kcApp::_setTextValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i=0;
- Fl_Input* tp = cp->u.text.text;
-
- for(i=0; i<kTextVarCnt; ++i)
- if( cp->u.text.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kTextValArgIdx:
- tp->value( cmDsvStrcz(vp));
- break;
-
- case kTextLblArgIdx:
- {
- const char* lbl = cmDsvStrcz(vp);
- if( lbl == NULL )
- tp->label(NULL);
- else
- tp->copy_label( lbl );
-
- tp->align(FL_ALIGN_RIGHT);
- tp->resize( tp->x(), tp->y(), tp->w()/2, tp->h());
- tp->redraw();
-
- }
- break;
-
- default:
- { assert(0); }
- }
- }
- }
-
-
-
- void kcApp::_createFnameCtl( const cmDspUiHdr_t* m )
- {
- int x,y,w=0,h=0;
- ctl_t* cp = _createCtl(m, kFnamTypeId, x,y,w,h );
-
- cp->u.fnam.fnam = new Fl_File_Btn(x,y,w,h);
-
- _insertNewCtl(cp, m, cp->u.fnam.fnam, cp->u.fnam.varIdArray, kFnamVarCnt );
- }
-
- void kcApp::_setFnamValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i=0;
- Fl_File_Btn* bp = cp->u.fnam.fnam;
-
- for(i=0; i<kFnamVarCnt; ++i)
- if( cp->u.fnam.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kFnamValArgIdx:
- assert( cmDsvIsType( vp, kStrzDsvFl ) );
- bp->filename( cmDsvStrcz(vp) );
- bp->redraw();
- break;
-
- case kFnamPatArgIdx:
- assert( cmDsvIsType( vp, kStrzDsvFl ) );
- bp->pattern_string( cmDsvStrcz(vp) );
- break;
-
- case kFnamDirArgIdx:
- bp->type( cmDsvBool(vp) ? Fl_File_Btn::kDir_Type_Id : Fl_File_Btn::kFile_Type_Id );
- break;
-
- default:
- { assert(0); }
- }
- }
- }
-
-
- void kcApp::_createMlistCtl( const cmDspUiHdr_t* m )
- {
- const unsigned* varIdArray = cmDsvUIntCMtx(&m->value);
-
- assert( varIdArray != NULL && cmDsvEleCount(&m->value)==kMlstVarCnt);
-
- int x,y,w=0;
- int h = varIdArray[kMlstHgtArgIdx];
- bool menuBtnFl = h==0;
-
- h = menuBtnFl ? kMenuH : kMenuH * h;
-
- ctl_t* cp = _createCtl(m, kMlstTypeId, x,y,w,h );
-
- Fl_Widget* wdgt;
-
- if(menuBtnFl)
- {
- cp->u.mlst.mlst = NULL;
- wdgt = cp->u.mlst.mbtn = new Fl_Menu_Button(x,y,w,h);
- }
- else
- {
- cp->u.mlst.mbtn = NULL;
- wdgt = cp->u.mlst.mlst = new Fl_Select_Browser(x,y,w,h);
- }
-
- _insertNewCtl(cp, m, wdgt, cp->u.mlst.varIdArray, kMlstVarCnt );
- }
-
- kcApp::kcKmRC_t kcApp::_loadMlist( ctl_t* cp, const cmJsonNode_t* np )
- {
- assert( cmJsonIsArray(np) );
-
- kcKmRC_t rc = kOkKmRC;
- unsigned n = cmJsonChildCount(np);
- unsigned ri = 0;
-
- // empty the ctl data list
- if( cp->u.mlst.mbtn == NULL )
- cp->u.mlst.mlst->clear();
- else
- cp->u.mlst.mbtn->clear();
-
- // for each element (row) in the JSON array
- for(ri=0; ri<n && rc==kOkKmRC; ++ri)
- {
- const cmJsonNode_t* cnp = cmJsonArrayElementC(np,ri);
- unsigned m = cmJsonChildCount(cnp);
- unsigned bufCharCnt = 511;
- cmChar_t buf[ bufCharCnt + 1 ]; // buffer to hold one row of text
- cmChar_t* bbp = buf;
- cmChar_t* bep = bbp + bufCharCnt;
- unsigned j;
-
- buf[0] = 0;
-
- // for each element (column) of row i
- for(j=0; j<m; ++j)
- {
- const cmJsonNode_t* ep = cmJsonArrayElementC(cnp,j);
- cmJsRC_t jsRC;
-
- // convert the element to a string
- if( (jsRC = cmJsonLeafToString( ep, bbp, bep - bbp )) != kOkJsRC )
- {
- switch(jsRC)
- {
- case kBufTooSmallJsRC:
- rc = cmErrMsg(&_ctx.err,kMlistLoadFailKmRC,"The msg list line character buffer is too small at JSON array element index %i.",ri);
- break;
-
- case kInvalidNodeTypeJsRC:
- rc = cmErrMsg(&_ctx.err,kMlistLoadFailKmRC,"The msg list array element at index %i is not a JSON leaf node.",ri);
- break;
-
- default:
- rc = cmErrMsg(&_ctx.err,kMlistLoadFailKmRC,"JSON to msg list text conversion failed on array element %i.",ri);
- break;
- }
- break;
- }
-
-
- bbp = buf + strlen(buf);
- assert(bbp <= bep);
-
- // add the tab column marker
- if( j+1 < m )
- {
- if( bep - bbp < 1 )
- rc = cmErrMsg(&_ctx.err,kMlistLoadFailKmRC,"The msg list line buffer is too small.");
- else
- {
- *bbp++ = '\t';
- *bbp = 0;
- }
- }
- }
-
- // insert the text for row i and skip the title row
- // See the _setMListValue() and _ctl_cb() for the associated index incr/decr.
- // so that the engine list indexes and UI list indexes match
- if( rc == kOkKmRC && ri > 0)
- {
- if( cp->u.mlst.mbtn==NULL)
- cp->u.mlst.mlst->add(buf);
- else
- cp->u.mlst.mbtn->add(buf);
- }
- }
-
- if( rc == kOkKmRC )
- if( cp->u.mlst.mbtn != NULL )
- {
- if( cp->u.mlst.sel < cp->u.mlst.mbtn->size() )
- cp->u.mlst.mbtn->label(cp->u.mlst.mbtn->text(cp->u.mlst.sel));;
- }
- return rc;
- }
-
- void kcApp::_setMlistValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i=0;
-
- for(i=0; i<kMlstVarCnt; ++i)
- if( cp->u.mlst.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kMlstHgtArgIdx:
- break;
-
- case kMlstSelArgIdx:
- {
- unsigned idx = cmDsvUInt(vp);
-
- // decr. to account for skipping title row
- // (see the complementary incrementn in _ctl_cb())
- if( idx > 0 )
- --idx;
-
- if( cp->u.mlst.mbtn==NULL)
- cp->u.mlst.mlst->value(idx);
- else
- {
- cp->u.mlst.sel = idx;
-
- if( cp->u.mlst.sel < cp->u.mlst.mbtn->size() )
- {
- cp->u.mlst.mbtn->value(cp->u.mlst.sel);
- cp->u.mlst.mbtn->label( cp->u.mlst.mbtn->text(cp->u.mlst.sel) );
- }
- }
- cp->wdgtPtr->redraw();
- }
- break;
-
- case kMlstLstArgIdx:
- _loadMlist( cp, cmDsvJson(vp) );
- break;
-
-
- default:
- { assert(0); }
- }
- }
- }
-
- // create a meter ctl at the request of the engine
- void kcApp::_createMeter( const cmDspUiHdr_t* m )
- {
- int x,y,w=0,h=15;
- ctl_t* cp = _createCtl(m,kMetrTypeId, x,y,w,h);
-
- if( cp->mstrFl )
- cp->u.metr.prog = new Fl_Vert_Progress(x,y,w,h);
- else
- cp->u.metr.prog = new Fl_Progress(x,y,w,h);
-
- cp->u.metr.prog->color( fl_rgb_color((unsigned char)256),fl_rgb_color((unsigned char)128));
-
- _insertNewCtl(cp,m,cp->u.metr.prog,cp->u.metr.varIdArray,kMetrVarCnt);
- }
-
-
- // handle meter value msg's arriving from the engine
- void kcApp::_setMeterValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i = 0;
- Fl_Progress* sp = cp->u.metr.prog;
- bool redrawFl = false;
-
- for(i=0; i<kMetrVarCnt; ++i)
- if( cp->u.metr.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kMetrMinArgIdx:
- sp->minimum(cmDsvGetDouble(vp));
- redrawFl = true;
- break;
-
- case kMetrMaxArgIdx:
- sp->maximum(cmDsvGetDouble(vp));
- redrawFl = true;
- break;
-
- case kMetrValArgIdx:
- {
- double v = cmDsvGetDouble(vp);
-
- if( sp->value() != v )
- {
- sp->value(v);
- redrawFl = true;
- }
- break;
- }
-
- case kMetrLblArgIdx:
- {
- int ww=0,hh=0;
- sp->copy_label( cmDsvStrcz(vp) );
- sp->align(FL_ALIGN_RIGHT);
-
- sp->measure_label(ww,hh);
- sp->resize( sp->x(), sp->y(), sp->w() - ww, sp->h());
- redrawFl = true;
- }
-
- break;
-
- default:
- { assert(0); }
- }
-
- break;
- }
-
- if( redrawFl )
- sp->redraw();
- }
-
- // create a button ctl at the request of the engine
- void kcApp::_createButton( const cmDspUiHdr_t* m )
- {
- int x,y,w=0,h=0;
- ctl_t* cp = _createCtl(m,kButnTypeId, x,y,w,h);
-
- cp->u.butn.butn = new Fl_Button(x,y,w,h);
-
- _insertNewCtl(cp,m,cp->u.butn.butn,cp->u.butn.varIdArray,kButnVarCnt);
-
- }
-
- // handle button value msg's arriving from the engine
- void kcApp::_setButtonValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i = 0;
- Fl_Button* sp = cp->u.butn.butn;
- bool redrawFl = false;
-
- for(i=0; i<kButnVarCnt; ++i)
- if( cp->u.butn.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kButnValArgIdx:
- cp->u.butn.val = cmDsvGetDouble(vp);
- break;
-
- case kButnLblArgIdx:
- {
- sp->copy_label( cmDsvStrcz(vp) );
- redrawFl = true;
- }
-
- break;
-
- default:
- { assert(0); }
- }
-
- break;
- }
-
- if( redrawFl )
- sp->redraw();
-
- }
-
- // create a button ctl at the request of the engine
- void kcApp::_createCheck( const cmDspUiHdr_t* m )
- {
- int x,y,w=0,h=0;
- ctl_t* cp = _createCtl(m,kChckTypeId, x,y,w,h);
-
- cp->u.chck.chck = new Fl_Check_Button(x,y,w,h);
-
- _insertNewCtl(cp,m,cp->u.chck.chck,cp->u.chck.varIdArray,kChckVarCnt);
- }
-
- // handle check button value msg's arriving from the engine
- void kcApp::_setCheckValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i = 0;
- Fl_Button* sp = cp->u.chck.chck;
- bool redrawFl = false;
-
- for(i=0; i<kChckVarCnt; ++i)
- if( cp->u.chck.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kChckValArgIdx:
- cp->u.chck.val = cmDsvGetDouble(vp);
- cp->u.chck.chck->value(cmDsvGetDouble(vp)>0);
- break;
-
- case kChckLblArgIdx:
- {
- int ww=0,hh=0;
- sp->copy_label( cmDsvStrcz(vp) );
- sp->align(FL_ALIGN_RIGHT);
-
- sp->measure_label(ww,hh);
- sp->resize( sp->x(), sp->y(), sp->w() - ww, sp->h());
- redrawFl = true;
-
- }
-
- break;
-
- default:
- { assert(0); }
- }
-
- break;
- }
-
- if( redrawFl )
- sp->redraw();
-
- }
-
- void kcApp::_createLabel( const cmDspUiHdr_t* m )
- {
- int x,y,w=0,h=0;
- ctl_t* cp = _createCtl(m,kLablTypeId, x,y,w,h);
-
- cp->u.labl.box = new Fl_Box(x,y,w,h);
-
- _insertNewCtl(cp,m,cp->u.labl.box,cp->u.labl.varIdArray,kLablVarCnt);
-
- }
-
- void kcApp::_setLabelValue( ctl_t* cp, unsigned instVarId, const cmDspValue_t* vp )
- {
- unsigned i = 0;
- Fl_Box* sp = cp->u.labl.box;
- bool redrawFl = false;
-
- for(i=0; i<kLablVarCnt; ++i)
- if( cp->u.labl.varIdArray[i] == instVarId )
- {
- switch(i)
- {
- case kLablValArgIdx:
- sp->copy_label(cmDsvStrcz(vp));
- redrawFl = true;
- break;
-
- case kLablAlignArgIdx:
- switch( cmDsvUInt(vp) )
- {
- case kRightAlignDuiId:
- sp->align(FL_ALIGN_RIGHT | FL_ALIGN_INSIDE);
- break;
-
- case kLeftAlignDuiId:
- sp->align(FL_ALIGN_LEFT | FL_ALIGN_INSIDE);
- break;
-
- case kCenterAlignDuiId:
- sp->align(FL_ALIGN_CENTER | FL_ALIGN_INSIDE);
- break;
-
- default:
- { assert(0); }
- }
- redrawFl = true;
- break;
-
-
- default:
- {assert(0);}
- }
- }
-
- if( redrawFl )
- sp->redraw();
- }
-
- void kcApp::_newColumn( const cmDspUiHdr_t* m )
- {
- _incrColW = cmDsvGetUInt(&m->value);
-
- if( _incrColW == 0 )
- _incrColW = 200;
- }
-
- void kcApp::_insertAudioSysCfgLabel(unsigned long idx, const char* label)
- {
- if( idx == 0 )
- as_btn->clear();
-
- as_btn->add(label,0,NULL,(void*)idx,0);
- }
-
- void kcApp::_insertDeviceLabel( unsigned long devIdx, bool inputFl, const cmChar_t* label )
- {
- Fl_Menu_Button* bp = inputFl ? ai_btn : ao_btn;
-
- // ??? if( idx == 0 )
- // bp->clear();
-
-
- bp->add(label,0,NULL,(void*)devIdx,0);
- }
-
- void kcApp::_insertProgramLabel( unsigned long idx, const cmChar_t* label )
- {
- if( idx == 0 )
- pgm_btn->clear();
-
- pgm_btn->add(label,0,NULL,(void*)idx,0);
- }
-
- void kcApp::_insertSubSysCnt( unsigned long subSysCnt )
- {
- long unsigned i;
- int bufByteCnt = 15;
- char buf[bufByteCnt+1];
-
- for(i=0; i<subSysCnt+1; ++i)
- {
- const char* label;
- unsigned long id;
-
- if( i==0 )
- {
- label = "All";
- id = cmInvalidIdx;
- }
- else
- {
- snprintf(buf,bufByteCnt,"%li",i);
- label = buf;
- id = i-1;
- }
-
- ss_btn->add(label,0,NULL,(void*)id);
- }
-
- ss_btn->value(0);
- ss_btn->copy_label( ss_btn->mvalue()->label() );
- }
-
- unsigned kcApp::_getCurAudioSubSysIdx()
- {
- const Fl_Menu_Item* mip;
- unsigned retVal = 0;
-
- if( (mip = ss_btn->mvalue()) != NULL)
- retVal = mip->argument();
-
- return retVal;
- }
-
- void kcApp::_setMenuButton( Fl_Menu_Button* b, unsigned value, const char* dfltLabel )
- {
- const Fl_Menu_Item* mip;
- bool fl = value != cmInvalidIdx;
-
- // if value is a valid menu index then make it the current menu selection
- if( fl )
- b->value(value);
-
- // get the new current menu item and set its label
- if( (mip = b->mvalue()) != NULL )
- b->copy_label( fl ? mip->label() : dfltLabel );
- }
-
- void kcApp::_setDeviceMenuButton( unsigned asSubIdx, bool inputFl, unsigned devIdx )
- {
-
- // don't set the device name if the currenly selected sub-system is not the
- // same as the one the device is assigned to
- if( _getCurAudioSubSysIdx() != asSubIdx )
- return;
-
- Fl_Menu_Button* mbp = inputFl ? ai_btn : ao_btn;
-
- const Fl_Menu_Item* map = mbp->menu();
- unsigned n = mbp->size();
- unsigned i;
- void* di = (void*)devIdx;
- for(i=0; i<n; ++i)
- if( map[i].user_data() == di )
- break;
-
- if( i < n )
- {
- _setMenuButton(mbp,i,"<not found>");
- }
-
-
- }
-
- void kcApp::_setSampleRateBtn( unsigned value )
- {
- unsigned i;
- unsigned n = sr_btn->size();
- for(i=0; i<n-1; ++i)
- {
- if( sr_btn->menu()[i].argument() == value )
- {
- sr_btn->value(i);
- sr_btn->copy_label( sr_btn->mvalue()->label() );
- return;
- }
- }
-
- sr_btn->copy_label("Sample Rate?");
- }
-
-
- void kcApp::_updateMeters( unsigned asSubIdx, unsigned devIdx, unsigned inFl, const double* meterArray, unsigned meterCnt )
- {
- unsigned i;
- for(i=0; i<meterCnt; ++i)
- {
- ctl_t* cp;
- cmDspValue_t v;
- unsigned instId = cmAudioSysFormUiInstId(devIdx,i,inFl,kMeterUiAsId);
-
- if((cp = _findCtl(instId,asSubIdx,true)) != NULL )
- {
- cmDsvSetDouble(&v,meterArray[i]);
- _setMeterValue(cp, kMetrValArgIdx, &v);
- }
- }
- }
-
- void kcApp::_printStatusCounts()
- {
- const ss_t* ssp = _ssArray;
- printf("Upd:%i Wake:%i Msg:%i Audio:%i\n",ssp->cnt[kUpdateSsIdx],ssp->cnt[kWakeupSsIdx],ssp->cnt[kMsgSsIdx],ssp->cnt[kAudioCbSsIdx]);
- }
-
- void kcApp::_updateSsStatusIndicator( unsigned asSubIdx, unsigned indicatorIdx, unsigned cnt )
- {
- ss_t* ss = _ssArray + asSubIdx;
- float val = ss->cnt[indicatorIdx] != cnt;
-
- ss->cnt[indicatorIdx] = cnt;
-
- if( ss->prog[indicatorIdx]->value() != val )
- {
- ss->prog[indicatorIdx]->value(val);
- ss->prog[indicatorIdx]->redraw();
- }
- }
-
-
- void kcApp::_handleStatusMsg(const cmAudioSysStatus_t* st, const double* iMeterArray, const double* oMeterArray )
- {
- //unsigned asSubIdx = ((const unsigned*)msgBuf)[0];
- //const cmAudioSysStatus_t* st = (const cmAudioSysStatus_t*)(msgBuf + (2 * sizeof(unsigned)));
- //const double* iMeterArray = (const double*)(st + 1);
- //const double* oMeterArray = iMeterArray + st->iMeterCnt;
-
- _updateMeters(st->asSubIdx, st->iDevIdx,1,iMeterArray,st->iMeterCnt);
- _updateMeters(st->asSubIdx, st->oDevIdx,0,oMeterArray,st->oMeterCnt);
-
- assert( st->asSubIdx < _ssCnt );
-
- _updateSsStatusIndicator(st->asSubIdx, kUpdateSsIdx, st->updateCnt );
- _updateSsStatusIndicator(st->asSubIdx, kWakeupSsIdx, st->wakeupCnt );
- _updateSsStatusIndicator(st->asSubIdx, kMsgSsIdx, st->msgCbCnt );
- _updateSsStatusIndicator(st->asSubIdx, kAudioCbSsIdx,st->audioCbCnt );
- }
-
- void kcApp::_clearStatusIndicators()
- {
- for(unsigned i=0; i<_ssCnt; ++i)
- {
- _updateSsStatusIndicator(i, kUpdateSsIdx, _ssArray[i].cnt[kUpdateSsIdx] );
- _updateSsStatusIndicator(i, kWakeupSsIdx, _ssArray[i].cnt[kWakeupSsIdx] );
- _updateSsStatusIndicator(i, kMsgSsIdx, _ssArray[i].cnt[kMsgSsIdx] );
- _updateSsStatusIndicator(i, kAudioCbSsIdx,_ssArray[i].cnt[kAudioCbSsIdx] );
-
- }
- }
-
- // Create a master control UI msg and send it to _handleUiMsg(). This function is intended to
- // mimic the reception of a cmDspUiHdr_t msg from the audio system. It is used to create
- // and send values to the controls on the master page.
- void kcApp::_sendMasterUiMsg( unsigned asSubIdx, unsigned selId, unsigned instId, unsigned instVarId, const cmDspValue_t* vp )
- {
- // Determine the size of the message buffer
- unsigned valByteCnt = cmDsvSerialDataByteCount(vp);
- unsigned bufByteCnt = sizeof(cmDspUiHdr_t) + valByteCnt;
-
- char buf[ bufByteCnt ];
- cmDspUiHdr_t* h = (cmDspUiHdr_t*)buf;
-
- h->asSubIdx = asSubIdx;
- h->uiId = cmInvalidId; // the uiId field of master controls is always set to cmInvalidId
- h->selId = selId;
- h->flags = 0;
- h->instId = instId;
- h->instVarId = instVarId;
-
- // Serialize 'v' into the buffer beginning at the address of h->value.
- // (this function relies on the 'hdr.value' field being the last field in 'h')
- cmDsvSerialize( vp, &h->value, sizeof(cmDspValue_t) + valByteCnt);
-
- _handleUiMsg(h);
-
- }
-
- // Send a value to a control on the master page.
- void kcApp::_sendMasterUiValue( unsigned asSubIdx, unsigned instId, const double* v, unsigned vn, const cmChar_t* text )
- {
- cmDspValue_t val;
- unsigned i;
-
- for(i=0; i<vn; ++i)
- {
- cmDsvSetDouble(&val,v[i]);
- _sendMasterUiMsg(asSubIdx, kValueDuiId, instId, i, &val );
- }
-
- if( text != NULL )
- {
- cmDsvSetStrcz(&val,text);
- _sendMasterUiMsg(asSubIdx, kValueDuiId, instId, i, &val );
- }
-
- }
-
- // Create a control on the master page.
- void kcApp::_createMasterCtl( unsigned asSubIdx, unsigned selId, unsigned instId, unsigned varCnt, const double* dv, unsigned dn, const cmChar_t* label)
- {
-
- // Create the control variable id array.
- // This array gives the id's used to identify each control variable.
- unsigned varIdArray[ varCnt ];
- unsigned i;
- cmDspValue_t v;
-
- // Set the var id's for master controls to be the same as the var indexes.
- for(i=0; i<varCnt; ++i)
- varIdArray[i] = i;
-
- // Encode varIdArray[] as a cmDsvValue.
- cmDsvSetUIntMtx(&v,varIdArray,varCnt,1);
-
- // create the control
- _sendMasterUiMsg(asSubIdx, selId, instId, cmInvalidId, &v );
-
- // set the controls initial configuration
- _sendMasterUiValue(asSubIdx, instId, dv, dn, label );
-
- }
-
- void kcApp::_handleSsInitMsg( const cmAudioSysSsInitMsg_t* m, const cmChar_t* inDevLabel, const cmChar_t* outDevLabel )
- {
- unsigned i,j;
-
- if( _ssCnt == 0 )
- {
- _clearSsArray();
- _ssCnt = m->asSubCnt;
- _ssArray = new ss_t[ _ssCnt ];
- }
-
- assert( m->asSubIdx < _ssCnt );
-
- ss_t* ss = _ssArray + m->asSubIdx;
-
- int x = 20;
- int y = 30;
- int w = 80;
- int h = 20;
- char lblArray[][10] = { "Update","Wakeup","Mesg","Audio" };
-
- // create the sub-system status indicators
- for(i=0; i<kProgSsCnt; ++i)
- {
- Fl_Progress* prog = new Fl_Progress(x,y,w,h,NULL);
- prog->color( FL_RED, FL_GREEN );
- prog->minimum(0);
- prog->maximum(1);
- prog->copy_label(lblArray[i]);
- mstr_grp->add(prog);
-
- ss->cnt[i] = 0;
- ss->prog[i] = prog;
-
- x += ss->prog[i]->w() + 4;
- }
-
-
- for(i=0; i<2; ++i)
- {
- unsigned inFl = i==0;
- unsigned chCnt = inFl ? m->inChCnt : m->outChCnt;
- unsigned devIdx = inFl ? m->inDevIdx : m->outDevIdx;
- double zero = 0;
-
- for(j=0; j<chCnt; ++j)
- {
- // there are limits on the ranges of the dev and ch due to the need to pack dev/ch/infl/ctl into a 32 bit int.
- assert( devIdx < 0xffff && j < 0x0fff);
-
- unsigned instId = cmAudioSysFormUiInstId(devIdx,j,inFl,0);
-
- //printf("ssi:%i instId:0x%x\n",m->asSubIdx,instId+kMeterUiAsId);
-
- // create the volume slider
- double sv[] = { 3, 0, 0.01, 1 };
- unsigned sn = sizeof(sv)/sizeof(sv[0]);
- _createMasterCtl( m->asSubIdx, kSliderDuiId, instId + kSliderUiAsId, kSldrVarCnt, sv, sn, NULL);
-
- // create the meter
- double mv[] = { 0, 1.0, 0 };
- unsigned mn = sizeof(mv)/sizeof(mv[0]);
- _createMasterCtl( m->asSubIdx, kMeterDuiId, instId + kMeterUiAsId, kMetrVarCnt, mv, mn, NULL);
-
- // create the mute button
- _createMasterCtl( m->asSubIdx, kCheckDuiId, instId + kMuteUiAsId, kChckVarCnt, &zero, 1, "M");
-
- // create the tone button
- _createMasterCtl( m->asSubIdx, kCheckDuiId, instId + kToneUiAsId, kChckVarCnt, &zero, 1, "T");
-
- // create the pass button
- _createMasterCtl( m->asSubIdx, kCheckDuiId, instId + kPassUiAsId, kChckVarCnt, &zero, 1, "P");
-
-
- }
- }
-
- }
-
- // handle kValueDuiId messages coming from the engine
- void kcApp::_onRecvValue( const cmDspUiHdr_t* m )
- {
- ctl_t* cp;
-
- if((cp = _findCtl(m->instId,m->asSubIdx,m->uiId==cmInvalidId)) == NULL )
- return;
-
- switch( cp->typeId )
- {
- case kNumbTypeId:
- case kSldrTypeId:
- _setSldrValue(cp, m->instVarId, &m->value );
- break;
-
- case kTextTypeId:
- _setTextValue(cp, m->instVarId, &m->value );
- break;
-
- case kButnTypeId:
- _setButtonValue(cp, m->instVarId, &m->value);
- break;
-
- case kChckTypeId:
- _setCheckValue(cp, m->instVarId, &m->value);
- break;
-
- case kLablTypeId:
- _setLabelValue(cp, m->instVarId, &m->value);
- break;
-
- case kFnamTypeId:
- _setFnamValue(cp, m->instVarId, &m->value);
- break;
-
- case kMlstTypeId:
- _setMlistValue(cp, m->instVarId, &m->value);
- break;
-
- case kMetrTypeId:
- _setMeterValue(cp, m->instVarId, &m->value);
- break;
-
- default:
- assert(0);
- }
- }
-
-
- // This is the main UI<-Engine msg handler/dispatch function
- void kcApp::_handleUiMsg( const cmDspUiHdr_t* m )
- {
-
- switch( m->selId )
- {
- case kPrintDuiId:
- cmDsvPrint(&m->value,NULL,&_ctx.rpt);
- break;
-
- case kNumberDuiId:
- case kSliderDuiId:
- _createSlider(m);
- break;
-
- case kTextDuiId:
- _createText(m);
- break;
-
- case kButtonDuiId:
- _createButton(m);
- break;
-
- case kLabelDuiId:
- _createLabel(m);
- break;
-
- case kCheckDuiId:
- _createCheck(m);
- break;
-
- case kFnameDuiId:
- _createFnameCtl(m);
- break;
-
- case kMsgListDuiId:
- _createMlistCtl(m);
- break;
-
- case kMeterDuiId:
- _createMeter(m);
- break;
-
- case kValueDuiId:
- _onRecvValue(m);
- break;
-
- case kColumnDuiId:
- _newColumn(m);
- break;
-
- case kHBorderDuiId:
- _horzBordFl = true;
- break;
-
- case kPageDuiId:
- _createPage(cmDsvStrcz(&m->value));
- break;
-
- case kAudioSysCfgDuiId:
- _insertAudioSysCfgLabel(m->instId,cmDsvStrcz(&m->value));
- break;
-
- case kDeviceDuiId:
- _insertDeviceLabel(m->instId,m->flags,cmDsvStrcz(&m->value));
- break;
-
- case kProgramDuiId:
- _insertProgramLabel(m->instId,cmDsvStrcz(&m->value));
- break;
-
- // the below codes are used to notify the application
- // of changes in state of the audio DSP system
-
- case kSubSysCntDuiId:
- _insertSubSysCnt(cmDsvUInt(&m->value));
- break;
-
- case kSetAudioCfgDuiId:
- _setMenuButton(as_btn,cmDsvUInt(&m->value),"Audio System Cfg");
- break;
-
- case kSetAudioDevDuiId:
- _setDeviceMenuButton( m->asSubIdx, m->flags, cmDsvUInt(&m->value) );
- break;
-
- case kSetSampleRateDuiId:
- _setSampleRateBtn(cmDsvUInt(&m->value));
- break;
-
- case kSetPgmDuiId:
- _setMenuButton(pgm_btn,cmDsvUInt(&m->value),"Program?");
- _clearCtlList(false);
- break;
-
- case kEnableDuiId:
- ena_chk->value(m->flags);
- break;
-
- }
- }
-
- cmRC_t kcApp::_s_handleSsInitMsg( void* cbDataPtr, const cmAudioSysSsInitMsg_t* r, const char* iDevLabel, const char* oDevLabel )
- {
- kcApp* p = (kcApp*)cbDataPtr;
- p->_handleSsInitMsg(r,iDevLabel,oDevLabel);
- return cmOkRC;
- }
-
- cmRC_t kcApp::_s_handleStatusMsg( void* cbDataPtr, const cmAudioSysStatus_t* r, const double* iMeterArray, const double* oMeterArray )
- {
- kcApp* p = (kcApp*)cbDataPtr;
- p->_handleStatusMsg(r,iMeterArray,oMeterArray);
- return cmOkRC;
- }
-
- cmRC_t kcApp::_s_handleUiMsg( void* cbDataPtr, const cmDspUiHdr_t* r )
- {
- kcApp* p = (kcApp*)cbDataPtr;
- p->_handleUiMsg(r);
- return cmOkRC;
- }
-
-
-
- // Check for and forward any messages sent to the UI
- // that are waiting in the audio DSP msg queue.
- void kcApp::_getEngMsg()
- {
-
-
- if( audioDspIsValid() )
- {
- unsigned i;
-
- for(i=0; i<10; ++i)
- {
- cmAiRC_t aiRC;
-
- // cmAdIfDispatchMsgToHost() results in calls to
- // the _s_handleXXX() message handlers
- if((aiRC = cmAdIfDispatchMsgToHost(_aiH)) != kOkAiRC)
- {
- if( aiRC == kNoMsgAiRC )
- break;
-
- cmErrMsg(&_ctx.err,kEngFailKmRC,"Audio DSP dispatch message request failed.");
- break;
- }
- }
- }
- }
-
-
- kcApp* kcApp::_getApp( Fl_Widget* w )
- {
- // walk up the widget tree until the top widget is found
- Fl_Group* gp = w->parent();
- while( gp->parent() != NULL )
- gp=gp->parent();
-
- // the user data for the top widget is a pointer kcApp()
- return (kcApp*)gp->user_data();
- }
-
- /*
- kcApp::kcKmRC_t kcApp::_restartEngine()
- {
- kcKmRC_t rc;
- if((rc = stopEngine(&_ctx,_keH)) != kOkKmRC )
- goto errLabel;
-
- if((rc = startEngine(&_ctx,_keH,&_cfg)) != kOkKmRC )
- goto errLabel;
-
- errLabel:
- if( rc != kOkKmRC )
- cmErrMsg(&_ctx.err,kEngFailKmRC,"Engine restart failed.");
-
- return rc;
- }
-
- void kcApp::_selAudDev( Fl_Menu_Button* b, bool inputFl, const cmChar_t* devLbl )
- {
- unsigned* curDevIdxPtr = inputFl ? &_cfg.asArgs.inDevIdx : &_cfg.asArgs.outDevIdx;
- unsigned curDevIdx = *curDevIdxPtr;
- const Fl_Menu_Item* mip = b->mvalue();
- bool updateBtnFl = true;
-
- if( mip == NULL )
- return;
-
- // get the select device index
- unsigned newDevIdx = mip->argument();
-
- // if the new dev idx is same as cur dev idx there is nothing to do
- if( newDevIdx != curDevIdx )
- {
- // assign the new dev idx to the audio setup cfg
- *curDevIdxPtr = newDevIdx;
-
- // restart the engine with the new cfg
- if( _restartEngine() == kOkKmRC )
- {
- // if the audio engine restarted successfully then store the new dev idx to the preferences
- if( cmPrefsSetScalarUInt(_prH,devLbl,newDevIdx) != kOkPrRC )
- cmErrMsg(&_ctx.err,kPrefSetFailKmRC,"An error occurred while attempting to set the audio device preference '%s'.",devLbl);
-
- }
- else
- {
- // the new dev idx didn't work - restart the engine with the original dev idx
- *curDevIdxPtr = curDevIdx;
- _restartEngine();
- updateBtnFl = false;
- }
- }
-
- // set the menu btn to show the current device
- if( updateBtnFl )
- b->copy_label( mip->label() );
-
- }
-
- void kcApp::_selectAudioDevice(Fl_Menu_Button* b, unsigned id)
- {
- switch(b->argument())
- {
- case kInAudDevBtnId:
- _selAudDev(b, true, "cfg/inAudDevIdx" );
- break;
-
- case kOutAudDevBtnId:
- _selAudDev(b,false,"cfg/outAudDevIdx");
- break;
-
- default:
- { assert(0); }
- }
- }
-
- void kcApp::_selectSampleRate(unsigned asSubIdx, unsigned id)
- {
- const Fl_Menu_Item* i = sr_btn->mvalue();
- double curSrate = _cfg.asArgs.srate;
- double newSrate = i->argument();
- bool updateBtnFl = true;
-
- //cmAdIfSetSampleRate(_aiH,asSubIdx,newSrate);
-
- if( curSrate != newSrate )
- {
- _cfg.asArgs.srate = newSrate;
-
- if( _restartEngine() == kOkKmRC )
- {
- if( cmPrefsSetScalarReal(_prH,"cfg/srate",newSrate) != kOkPrRC )
- cmErrMsg(&_ctx.err,kPrefSetFailKmRC,"An error occurred while settig the audio sample rate preference.");
- }
- else
- {
- _cfg.asArgs.srate = curSrate;
- _restartEngine();
- updateBtnFl = false;
- }
- }
-
- if( updateBtnFl)
- sr_btn->copy_label( sr_btn->mvalue()->label() );
- }
- */
-
- /*
- void kcApp::_s_prefCbFunc( cmPrH_t prH, void* cbDataPtr, unsigned prefId )
- { ((kcApp*)cbDataPtr)->_prefCbFunc(prH,prefId); }
-
- void kcApp::_prefCbFunc( cmPrH_t prH, unsigned prefId )
- {
- }
-
- kcApp::kcKmRC_t kcApp::_loadPrefs( cmCtx_t* ctx )
- {
- kcKmRC_t rc = kOkKmRC;
- const cmChar_t* prefDir = cmFsPrefsDir();
- const cmChar_t* rsrcDir = cmFsRsrcDir();
- const cmChar_t* fn = "org.larke.kc.txt";
- const cmChar_t* prefFn = cmFsMakeFn(prefDir,fn,NULL,NULL);
- const cmChar_t* rsrcFn = cmFsMakeFn(rsrcDir,fn,NULL,NULL);
- const cmChar_t* pfn = prefFn;
-
- if( cmFsIsFile(pfn) == false )
- {
- pfn = rsrcFn;
- if( cmFsIsFile(pfn) == false )
- {
- rc = cmErrMsg(&ctx->err,kPrefsNotFoundKmRC,"The default preferences file '%s' was not found.",pfn);
- pfn = NULL;
- }
-
- }
-
- if( pfn != NULL )
- if( cmPrefsInitialize(&_prH,pfn,_s_prefCbFunc,this,ctx) != kOkPrRC )
- rc = cmErrMsg(&ctx->err,kPrefLoadFailKmRC,"Preference load from '%s' failed.",pfn);
-
- // Even if cmPrefsInitialize() fails we continue with _cfg setup using the hard coded default values.
-
- _cfg.asArgs.rpt = &ctx->rpt;
- _cfg.asArgs.inDevIdx = cmPrefsUIntDef( _prH,"cfg/inAudDevIdx", 0);
- _cfg.asArgs.outDevIdx = cmPrefsUIntDef( _prH,"cfg/outAudDevIdx", 2);
- _cfg.asArgs.syncInputFl = cmPrefsBoolDef( _prH,"cfg/syncInputFl", true);
- _cfg.asArgs.midiPortBufByteCnt = cmPrefsUIntDef( _prH,"cfg/midiPortBufByteCnt", 8192);
- _cfg.asArgs.msgQueueByteCnt = cmPrefsUIntDef( _prH,"cfg/msgQueueByteCnt", 16384);
- _cfg.asArgs.devFramesPerCycle = cmPrefsUIntDef( _prH,"cfg/devFramesPerCycle", 128);
- _cfg.asArgs.dspFramesPerCycle = cmPrefsUIntDef( _prH,"cfg/dspFramesPerCycle", 64);
- _cfg.asArgs.audioBufCnt = cmPrefsUIntDef( _prH,"cfg/audioBufCnt", 2);
- _cfg.asArgs.srate = cmPrefsRealDef( _prH,"cfg/srate", 48000);
- const cmChar_t* audioDir = cmPrefsStringDef( _prH,"cfg/audioDir", cmFsUserDir());
-
- _cfg.meterMs = 50;
- _cfg.prefH = _prH;
-
-
- _prefsFn = prefFn;
-
- ad_btn->filename(audioDir);
-
-
-
- //print("%s\n",prefFn);
-
- return rc;
- }
- */
-
-
- void kcApp::_testStub()
- {
- /*
- cmAudioFileTest(
- // "/Users/kevin/media/audio/20100819-Kreisberg/fragments/Bass End_21a.wav",
- "/Users/kevin/media/audio/McGill-1/1 Audio Track.aiff",
- "/Users/kevin/src/octave/cm_audio_file_test.m",_ctx.err.rpt );
- */
-
- //cmSymTblTest(&_ctx);
-
- //_kcTranslateFile("/Users/kevin/src/kc/src/data/Sec1_14.txt","/Users/kevin/src/kc/src/data/Sec1_14_out.txt",&_ctx);
- //_kcTranslateFile("/Users/kevin/src/kc/src/data/Mix_17-20.txt","/Users/kevin/src/kc/src/data/Mix_17-20_out.txt",&_ctx);
-
- /*
- ctl_t* cp = _ctlList;
- for(; cp!=NULL; cp=cp->linkPtr)
- printf("%i %i %i\n", cp->instId,cp->asSubIdx,cp->mstrFl );
- */
-
- _printStatusCounts();
-
- //cmProcTestNoInit(&_ctx);
-
- }
-
-
- void kcApp::_s_callback(Fl_Widget* wp, void* data)
- { ((kcApp*)data)->_callback(NULL); }
-
- // this callback is called when the window is closing
- void kcApp::_callback(void* data)
- {
- if( Fl::event() == FL_CLOSE )
- {
- unsigned cc = _closeCnt;
-
- // attempt to shut down the pgm
- if( audioDspFinalize() != kOkKmRC )
- ++_closeCnt;
-
- // the first time the pgm fails to shut down
- // do not allow the pgm to close the main window
- // this will give a chance for the error messages
- // to be diplayed in the console - all successive
- // times the return value from finalizePgm() is
- // ignored and the program is terminated.
- if( _closeCnt == 1 && cc==0)
- {
- deactivate(); // send a strong hint that a problem occurred
- return;
- }
-
-
- // When all windows are windows are closed then the app.
- // will close - so hiding the application window
- // causes the program to close.
- //
- // Note that simply returning from this callback will
- // prevent the application from closing. Because the existence
- // of the callback alone is enough to disable default
- // event handling.
- hide();
- }
-
- }
-
-
- void kcApp::_s_on_idle(void *data)
- { ((kcApp*)data)->_on_idle(); }
-
- void kcApp::_on_idle()
- {
- //_getEngMsg();
- //_getEngStatus();
- }
-
- void kcApp::_s_status_timeout_cb(void* userPtr)
- {
- if( ((kcApp*)userPtr)->_status_timeout_cb() )
- Fl::repeat_timeout(TIMER_PERIOD,_s_status_timeout_cb,userPtr);
- }
-
- bool kcApp::_status_timeout_cb()
- {
- if( cmTsQueueIsValid(_printqH) )
- _checkPrintQueue();
-
- if( !_stopTimerFl )
- _getEngMsg();
-
- if( _ssUpdateFl )
- {
- ++_ssPhase;
- if( _ssPhase >= kSsPhaseMax )
- {
- _clearStatusIndicators();
- _ssPhase = 0;
- }
- }
-
- if( _stopTimerFl==false && cmAdIfIsValid(_aiH) )
- cmAdIfDispatchMsgToHost(_aiH);
-
- //if( !_stopTimerFl )
- // _getEngStatus();
-
- return _stopTimerFl==false || cmTsQueueIsValid(_printqH);
- }
-
-
-
-
- void kcApp::_s_file_new_cb(Fl_Widget *w, void *data)
- { ((kcApp*)data)->_file_new_cb(w); }
-
- void kcApp::_file_new_cb(Fl_Widget *w)
- { }
-
-
- void kcApp::_s_file_open_cb(Fl_Widget *w, void *data)
- { ((kcApp*)data)->_file_open_cb(w); }
-
- void kcApp::_file_open_cb(Fl_Widget *w)
- { }
-
-
- void kcApp::_s_edit_copy_cb(Fl_Widget *w, void *data)
- { ((kcApp*)data)->_edit_copy_cb(w); }
-
- void kcApp::_edit_copy_cb(Fl_Widget *w)
- { }
-
-
- void kcApp::_s_edit_paste_cb(Fl_Widget *w, void *data)
- { ((kcApp*)data)->_edit_paste_cb(w); }
-
- void kcApp::_edit_paste_cb(Fl_Widget *w)
- { }
-
-
- void kcApp::_s_tab_cb(Fl_Widget* w, void* data)
- { ((kcApp*)data)->_tab_cb(w); }
-
- void kcApp::_tab_cb(Fl_Widget*)
- {
- Fl_Widget* w = tabs->value();
- _ssUpdateFl = w == (Fl_Widget*)mstr_grp;
- _ssPhase = kSsPhaseMax;
- if( audioDspIsValid() )
- {
- if( cmAdIfEnableStatusNotify(_aiH, _ssUpdateFl ) != kOkAiRC )
- cmErrMsg(&_ctx.err,kEngFailKmRC,"A request to enable/disable status notification failed.");
- }
- }
-
- void kcApp::_s_btn_cb(Fl_Widget* w, long data)
- {
- _getApp(w)->_btn_cb(w,data);
- }
-
- void kcApp::_btn_cb(Fl_Widget* w, long data)
- {
- unsigned arg = w->argument();
- switch( arg )
- {
- case kAudDevRptBtnId:
- cmAdIfDeviceReport(_aiH);
- break;
-
- case kEnableBtnId:
- cmAdIfEnableAudio(_aiH,static_cast<Fl_Check_Button*>(w)->value()!=0);
- break;
-
- case kAudioSysCfgBtnId:
- cmAdIfSetAudioSysCfg(_aiH,static_cast<Fl_Menu_Button*>(w)->mvalue()->argument());
- break;
-
- case kInAudDevBtnId:
- cmAdIfSetAudioDevice(_aiH,_getCurAudioSubSysIdx(),true,static_cast<Fl_Menu_Button*>(w)->mvalue()->argument());
- break;
-
- case kOutAudDevBtnId:
- cmAdIfSetAudioDevice(_aiH,_getCurAudioSubSysIdx(),false,static_cast<Fl_Menu_Button*>(w)->mvalue()->argument());
- break;
-
- case kPgmBtnId:
- cmAdIfLoadProgram(_aiH,_getCurAudioSubSysIdx(),static_cast<Fl_Menu_Button*>(w)->mvalue()->argument());
- break;
-
- case kSubSystemIdxBtnId:
- // TODO: change device and sample rate menu's to reflect the device and srate assigned to this asSubIdx.
- break;
-
- case kSrateBtnId:
- cmAdIfSetSampleRate(_aiH,_getCurAudioSubSysIdx(),static_cast<Fl_Menu_Button*>(w)->mvalue()->argument());
- break;
-
- case kTestBtnId:
- _testStub();
- break;
-
- default:
- { assert(0); }
- }
- }
-
- void kcApp::_s_ctl_cb(Fl_Widget* w, void* data)
- {
- ctl_t* cp = ((ctl_t*)data);
- cp->thisPtr->_ctl_cb(cp);
- }
-
- void kcApp::_ctl_cb(ctl_t* cp)
- {
- cmDspValue_t value = cmDspNullValue;
- unsigned instVarId = cmInvalidId;
-
- switch( cp->typeId )
- {
- case kNumbTypeId:
- case kSldrTypeId:
- instVarId = cp->u.sldr.varIdArray[ kSldrValArgIdx ];
- cmDsvSetDouble(&value,cp->u.sldr.val->value());
- break;
-
- case kTextTypeId:
- instVarId = cp->u.text.varIdArray[ kTextValArgIdx ];
- cmDsvSetStrz(&value,(cmChar_t*)cp->u.text.text->value());
- break;
-
- case kButnTypeId:
- instVarId = cp->u.butn.varIdArray[ kButnValArgIdx ];
- cmDsvSetDouble(&value,cp->u.butn.val);
- break;
-
- case kChckTypeId:
- {
- bool fl = cp->u.chck.chck->value();
- instVarId = cp->u.chck.varIdArray[ kChckValArgIdx ];
- cmDsvSetDouble(&value, fl ? 1.0 : 0.0 );
- }
- break;
-
- case kFnamTypeId:
- instVarId = cp->u.fnam.varIdArray[ kFnamValArgIdx ];
- cmDsvSetStrz( &value, (cmChar_t*)cp->u.fnam.fnam->filename());
- break;
-
- case kMlstTypeId:
- instVarId = cp->u.mlst.varIdArray[ kMlstSelArgIdx ];
-
- // add one to the selected index to account for skipping title row
- if( cp->u.mlst.mbtn==NULL)
- {
- unsigned idx = cp->u.mlst.mlst->value();
- //printf("list:%i\n",idx);
- cmDsvSetUInt( &value, idx);
- }
- else
- {
- unsigned idx = cp->u.mlst.mbtn->value();
- //printf("mbtn:%i\n",idx);
- cmDsvSetUInt( &value, idx + 1);
- cp->u.mlst.mbtn->label( cp->u.mlst.mbtn->text(idx) );
- }
-
- break;
-
- default:
- {assert(0);}
-
- }
-
- if( cmAdIfSendMsgToAudioDSP(
- _aiH,
- cp->asSubIdx,
- cp->mstrFl ? kUiMstrSelAsId : kUiSelAsId,
- kValueDuiId,
- 0,
- cp->instId,
- instVarId,
- &value) != kOkAiRC)
- {
- cmErrMsg(&_ctx.err,kEngFailKmRC,"An attempt to send a UI message to the audio DSP interface failed.");
- }
-
- }
-
-
- void kcApp::vprint(const char* fmt, va_list vl )
- {
- int bufCharCnt = 511;
- char buf[bufCharCnt+1];
-
- int n = vsnprintf(buf,bufCharCnt,fmt,vl);
-
- if( n > 0 )
- {
- // if the print queue exists (it might not during startup or shutdown) ...
- if( cmTsQueueIsValid(_printqH) )
- {
- // ... enqueue the text to print
- if( cmTsQueueEnqueueMsg(_printqH,buf,n+1) != kOkThRC )
- {
- printf("Print enqueue failed on msg:%s\n",buf);
- // we can't call an error here because it would generate an error
- // msg which would possibly fail at this same point resulting in
- // a recursion which would eventually overflow the stack.
-
- }
- }
- else
- _print(buf); // ... otherwise just send the text directly to the output console
- }
-
- }
-
- void kcApp::print( const char* fmt, ... )
- {
- va_list vl;
- va_start(vl,fmt);
- vprint(fmt,vl);
- va_end(vl);
- }
-
- void kcApp::_s_print( void* userPtr, const char* text )
- { ((kcApp*)userPtr)->print(text); }
-
- cmRC_t kcApp::_s_print_queue_cb(void* userCbPtr, unsigned msgByteCnt, const void* msgDataPtr )
- {
- kcApp* ap = (kcApp*)userCbPtr;
- ap->_print((const char*)msgDataPtr);
- return cmOkRC;
- }
-
- void kcApp::_checkPrintQueue()
- {
- while( cmTsQueueMsgWaiting(_printqH) )
- if( cmTsQueueDequeueMsg(_printqH, NULL, 0) != kOkThRC )
- cmErrMsg(&_ctx.err,kPrintQueFailKmRC,"Print dequeue failed.");
- }
-
- void kcApp::_print( const char* text )
- {
- if( con != NULL )
- con->insert(text);
- #ifndef NDEBUG
- fputs(text,stdout);
- #endif
- }
|