Added Include script component

Include script allows to add some custom SPICE code before the schematic
inialization.

qucs/extsimkernels/abstractspicekernel.cpp

@@ -135,7 +135,8 @@ void AbstractSpiceKernel::startNetlist(QTextStream &stream, bool xyce)
 
         // User-defined functions
         for(Component *pc = Sch->DocComps.first(); pc != 0; pc = Sch->DocComps.next()) {
-            if ((pc->SpiceModel==".FUNC")) {
+            if ((pc->SpiceModel==".FUNC")||
+                (pc->SpiceModel=="INCLSCR")) {
                 s = pc->getExpression();
                 stream<<s;
             }

qucs/extsimkernels/customsimdialog.cpp

@@ -82,6 +82,11 @@ CustomSimDialog::CustomSimDialog(SpiceCustomSim *pc, Schematic *sch, QWidget *pa
         edtVars->setEnabled(false);
         btnPlotAll->setEnabled(false);
         isXyceScr = true;
+    } else if (comp->Model == "INCLSCR") {
+        lblVars->setEnabled(false);
+        edtVars->setEnabled(false);
+        btnPlotAll->setEnabled(false);
+        btnFindOutputs->setEnabled(false);
     } else isXyceScr = false;
 }
 

qucs/module.cpp

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

qucs/mouseactions.cpp

@@ -1866,7 +1866,8 @@ void MouseActions::editElement(Schematic *Doc, QMouseEvent *Event)
          if(c->Model == "GND") return;
 
          if ((c->Model == ".CUSTOMSIM")||
-             (c->Model == ".XYCESCR")) {
+             (c->Model == ".XYCESCR") ||
+             (c->Model == "INCLSCR")) {
              CustomSimDialog *sd = new CustomSimDialog((SpiceCustomSim*)c, Doc);
              if(sd->exec() != 1) break;   // dialog is WDestructiveClose
          } else if(c->Model == "SPICE") {

qucs/qucs.qrc

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

qucs/spicecomponents/CMakeLists.txt

@@ -19,6 +19,7 @@ sp_nodeset.cpp
 sp_model.cpp
 sp_include.cpp
 sp_func.cpp
+incl_script.cpp
 
 #end of SPICE section
 
@@ -104,6 +105,7 @@ sp_nodeset.h
 sp_model.h
 sp_include.h
 sp_func.h
+incl_script.h
 
 #end SPICE sections
 

qucs/spicecomponents/incl_script.cpp

@@ -0,0 +1,81 @@
+/***************************************************************************
+                              xyce_script.cpp
+                               ------------
+    begin                : Wed Jun 22 2016
+    copyright            : (C) 2016 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 "incl_script.h"
+#include "main.h"
+#include <QFontMetrics>
+
+
+InclScript::InclScript()
+{
+    isEquation = false;
+    Type = isComponent; // Analogue and digital component.
+    Description = QObject::tr("Include script before simulation");
+
+    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(".INCLUDE SCRIPT"));
+    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(".INCLUDE SCRIPT"),
+                          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 = "INCLSCR";
+    Name  = "INCLSCR";
+    SpiceModel = "INCLSCR";
+
+    // The index of the first 4 properties must not changed. Used in recreate().
+    Props.append(new Property("SpiceCode", "\n"
+                              ".PARAM rp = 1k\n"
+                              ".FUNC prod(x,y) = {x*y}", true,
+                              "Insert spice code here"));
+    Props.append(new Property("","",false,"Extra property"));
+    Props.append(new Property("","",false,"Extra property"));
+
+}
+
+InclScript::~InclScript()
+{
+}
+
+Component* InclScript::newOne()
+{
+  return new InclScript();
+}
+
+Element* InclScript::info(QString& Name, char* &BitmapFile, bool getNewOne)
+{
+  Name = QObject::tr("Include script");
+  BitmapFile = (char *) "incl_script";
+
+  if(getNewOne)  return new InclScript();
+  return 0;
+}
+
+QString InclScript::getExpression(bool)
+{
+    return Props.at(0)->Value+"\n";
+}

qucs/spicecomponents/incl_script.h

@@ -0,0 +1,38 @@
+/***************************************************************************
+                               xyce_script.h
+                                ----------
+    begin                : Wed Jun 22 2016
+    copyright            : (C) 2016 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_INCLSCRIPT_H
+#define SP_INCLSCRIPT_H
+
+#include "components/component.h"
+
+
+class InclScript : public Component  {
+public:
+  InclScript();
+  ~InclScript();
+  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

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