// license:GPL-2.0+ // copyright-holders:Couriersud /* * nld_system.c * */ #include "../solver/nld_solver.h" #include "../solver/nld_matrix_solver.h" #include "nlid_system.h" namespace netlist { namespace devices { // ---------------------------------------------------------------------------------------- // netlistparams // ---------------------------------------------------------------------------------------- // ---------------------------------------------------------------------------------------- // clock // ---------------------------------------------------------------------------------------- NETLIB_UPDATE_PARAM(clock) { m_inc = netlist_time::from_double(1.0 / (m_freq() * 2.0)); } NETLIB_UPDATE(clock) { m_Q.push(!m_feedback(), m_inc); } // ---------------------------------------------------------------------------------------- // extclock // ---------------------------------------------------------------------------------------- NETLIB_RESET(extclock) { m_cnt = 0; m_off = netlist_time::from_double(m_offset()); m_feedback.m_delegate = NETLIB_DELEGATE(extclock, update); //m_feedback.m_delegate .set(&NETLIB_NAME(extclock)::update, this); //m_Q.initial(0); } NETLIB_HANDLER(extclock, clk2) { m_Q.push((m_cnt & 1) ^ 1, m_inc[m_cnt]); if (++m_cnt >= m_size) m_cnt = 0; } NETLIB_HANDLER(extclock, clk2_pow2) { m_Q.push((m_cnt & 1) ^ 1, m_inc[m_cnt]); m_cnt = (++m_cnt) & (m_size-1); } NETLIB_UPDATE(extclock) { m_Q.push((m_cnt & 1) ^ 1, m_inc[m_cnt] + m_off); m_off = netlist_time::zero(); if (++m_cnt >= m_size) m_cnt = 0; // continue with optimized clock handlers .... if ((m_size & (m_size-1)) == 0) // power of 2? m_feedback.m_delegate.set(&NETLIB_NAME(extclock)::clk2_pow2, this); else m_feedback.m_delegate.set(&NETLIB_NAME(extclock)::clk2, this); } // ----------------------------------------------------------------------------- // nld_res_sw // ----------------------------------------------------------------------------- NETLIB_RESET(res_sw) { m_last_state = 0; m_R.set_R(m_ROFF()); } NETLIB_UPDATE(res_sw) { const netlist_sig_t state = m_I(); if (state != m_last_state) { m_last_state = state; const nl_double R = state ? m_RON() : m_ROFF(); // FIXME: We only need to update the net first if this is a time stepping net m_R.update(); m_R.set_R(R); m_R.solve_later(); } } /* ----------------------------------------------------------------------------- * nld_function * ----------------------------------------------------------------------------- */ NETLIB_RESET(function) { //m_Q.initial(0.0); } NETLIB_UPDATE(function) { for (std::size_t i=0; i < static_cast(m_N()); i++) { m_vals[i] = (*m_I[i])(); } m_Q.push(m_compiled.evaluate(m_vals)); } NETLIB_DEVICE_IMPL(dummy_input, "DUMMY_INPUT", "") NETLIB_DEVICE_IMPL(frontier, "FRONTIER_DEV", "+I,+G,+Q") NETLIB_DEVICE_IMPL(function, "AFUNC", "N,FUNC") NETLIB_DEVICE_IMPL(analog_input, "ANALOG_INPUT", "IN") NETLIB_DEVICE_IMPL(clock, "CLOCK", "FREQ") NETLIB_DEVICE_IMPL(extclock, "EXTCLOCK", "FREQ,PATTERN") NETLIB_DEVICE_IMPL(res_sw, "RES_SWITCH", "+IN,+P1,+P2") NETLIB_DEVICE_IMPL(mainclock, "MAINCLOCK", "FREQ") NETLIB_DEVICE_IMPL(gnd, "GND", "") NETLIB_DEVICE_IMPL(netlistparams, "PARAMETER", "") NETLIB_DEVICE_IMPL(logic_input, "LOGIC_INPUT", "IN,FAMILY") NETLIB_DEVICE_IMPL_ALIAS(logic_input_ttl, logic_input, "TTL_INPUT", "IN") } //namespace devices } // namespace netlist