static any initSym(any v, char *s) { any x, *h; h = Intern + ihash(x = mkName(s)); x = consSym(v,x); *h = cons(x,*h); return x; }
int main(int argc, char *argv) { name *n = mkName("Yoshikuni", "Jujo"); printName(n); freeName(n); return 0; }
int CbDevice::LoadDeviceInfo(const TCHAR* prefix) { // we expect the ini file to be in the same directory as the application, // namely, this DLL. It's the only way to find the file if it's not // in the windows subdirectory _ASSERTE(_iniSection.length()>0); TCHAR keyname[64]; strcpy(keyname,prefix); int clockMHz=0; CBI_CHECK(cbGetConfig(BOARDINFO, _BoardNum, 0, BICLOCK, &clockMHz)); ATLTRACE2(MCC_UL_CALL,3,"cbGetConfig (BOARDINFO,_BoardNum = %d,0,BICLOCK, &clockMHz); result: DIOdevs=%d\n",_BoardNum,clockMHz); _ClockBaseFrequency=clockMHz*1e6; _FifoSize=GetFromIni(mkName(keyname,_T("FIFO")),0); _maxSampleRate = GetFromIni(mkName(keyname,_T("MaxSR")),0); _maxContinuousSampleRate = GetFromIni(mkName(keyname,_T("MaxContSR")),0); _minSampleRate = GetFromIni(mkName(keyname,_T("MinSR")),0); _Resolution= GetFromIni(mkName(keyname,_T("Resolution")),12); return S_OK; }