Added .FUNC component

This pseudo-device allows to define user math function. It is transalted
to standard SPICE .FUNC directive and is placed before components
initialization in the netlist.

qucs/extsimkernels/abstractspicekernel.cpp

@@ -133,8 +133,16 @@ void AbstractSpiceKernel::startNetlist(QTextStream &stream, bool xyce)
 {
         QString s;
 
-        // Include Directives
+        // User-defined functions
+        for(Component *pc = Sch->DocComps.first(); pc != 0; pc = Sch->DocComps.next()) {
+            if ((pc->SpiceModel==".FUNC")) {
+                s = pc->getExpression();
+                stream<<s;
+            }
+        }
+
         QStringList incls;
+        // Include Directives
         for(Component *pc = Sch->DocComps.first(); pc != 0; pc = Sch->DocComps.next()) {
             if ((pc->SpiceModel==".INCLUDE")||
                 (pc->Model=="SpLib")) {

qucs/module.cpp

@@ -572,6 +572,7 @@ void Module::registerModules (void) {
       REGISTER_SPICE_SEC_1 (NutmegEquation);
       REGISTER_SPICE_SEC_1 (S4Q_Model);
       REGISTER_SPICE_SEC_1 (S4Q_Include);
+      REGISTER_SPICE_SEC_1 (SpiceFunc);
 
       // Qucs legacy devices
       REGISTER_QUCS_2 (Resistor, info, info_us);

qucs/qucs.qrc

@@ -277,6 +277,7 @@
         <file>bitmaps/Vac_SPICE.png</file>
         <file>bitmaps/sp_nutmeg.png</file>
         <file>bitmaps/sp_ic.png</file>
+        <file>bitmaps/sp_func.png</file>
         <file>bitmaps/sp_nodeset.png</file>
         <file>bitmaps/sp_noise.png</file>
         <file>bitmaps/Cmeter_SPICE.png</file>

qucs/spicecomponents/CMakeLists.txt

@@ -18,6 +18,7 @@ sp_ic.cpp
 sp_nodeset.cpp
 sp_model.cpp
 sp_include.cpp
+sp_func.cpp
 
 #end of SPICE section
 
@@ -102,6 +103,7 @@ sp_ic.h
 sp_nodeset.h
 sp_model.h
 sp_include.h
+sp_func.h
 
 #end SPICE sections
 

qucs/spicecomponents/sp_func.cpp

@@ -0,0 +1,82 @@
+/***************************************************************************
+                          sp_ic.cpp  -  description
+                             -------------------
+    begin                : Mon May 25 2015
+    copyright            : (C) 2015 by Vadim Kuznetsov
+    email                : ra3xdh@gmail.com
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   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 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+#include "sp_func.h"
+#include "main.h"
+
+#include <QFontMetrics>
+
+SpiceFunc::SpiceFunc()
+{
+  isEquation = false;
+  Type = isComponent; // Analogue and digital component.
+  Description = QObject::tr(".FUNC new function definition");
+
+  QFont f = QucsSettings.font;
+  f.setWeight(QFont::Light);
+  f.setPointSizeF(12.0);
+  QFontMetrics  metrics(f, 0);  // use the the screen-compatible metric
+  QSize r = metrics.size(0, QObject::tr(".FUNC"));
+  int xb = r.width()  >> 1;
+  int yb = r.height() >> 1;
+
+  Lines.append(new Line(-xb, -yb, -xb,  yb,QPen(Qt::darkRed,2)));
+  Lines.append(new Line(-xb,  yb,  xb+3,yb,QPen(Qt::darkRed,2)));
+  Texts.append(new Text(-xb+4,  -yb-3, QObject::tr(".FUNC"),
+			QColor(0,0,0), 12.0));
+
+  x1 = -xb-3;  y1 = -yb-5;
+  x2 =  xb+9; y2 =  yb+3;
+
+  tx = x1+4;
+  ty = y2+4;
+  Model = "SpiceFunc";
+  Name  = "SpiceFunc";
+  SpiceModel = ".FUNC";
+
+  Props.append(new Property("prod(x,y)", "{x*y}", true));
+}
+
+SpiceFunc::~SpiceFunc()
+{
+}
+
+Component* SpiceFunc::newOne()
+{
+  return new SpiceFunc();
+}
+
+Element* SpiceFunc::info(QString& Name, char* &BitmapFile, bool getNewOne)
+{
+  Name = QObject::tr(".FUNC new function");
+  BitmapFile = (char *) "sp_func";
+
+  if(getNewOne)  return new SpiceFunc();
+  return 0;
+}
+
+QString SpiceFunc::getExpression(bool)
+{
+    if (isActive != COMP_IS_ACTIVE) return QString("");
+
+    QString s;
+    s.clear();
+    foreach (Property *pp, Props) {
+        s += QString(".FUNC %1 = %2\n").arg(pp->Name).arg(pp->Value);
+    }
+    return s;
+}
+

qucs/spicecomponents/sp_func.h

@@ -0,0 +1,39 @@
+/***************************************************************************
+                          sp_ic.h  -  description
+                             -------------------
+    begin                : Mon May 25 2015
+    copyright            : (C) 2015 by Vadim Kuznetsov
+    email                : ra3xdh@gmail.com
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   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 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+
+#ifndef SP_FUNC_H
+#define SP_FUNC_H
+
+#include "components/component.h"
+
+
+class SpiceFunc : public Component  {
+
+public:
+  SpiceFunc();
+  ~SpiceFunc();
+  Component* newOne();
+  static Element* info(QString&, char* &, bool getNewOne=false);
+  QString getExpression(bool isXyce);
+
+protected:
+  QString vhdlCode(int) { return QString(""); }
+  QString verilogCode(int) { return QString(""); }
+  QString netlist() { return QString(""); }
+};
+
+#endif

qucs/spicecomponents/spicecomponents.h

@@ -71,6 +71,7 @@
 #include "sp_ic.h"
 #include "sp_model.h"
 #include "sp_include.h"
+#include "sp_func.h"
 
 // Spice simulations
 #include "sp_fourier.h"