Remove unused development directories

src/spicelib/devices/adms/badcode1/admsva/my.mak

@@ -1,42 +0,0 @@
-# -*- makefile -*-
-# (compile "make -i -f my.mak to")
-
-CFLAGS=-I ../../../../../include -I ../../../../../../../w32/src/include
-
-SRCS = \
-r2_cmcacld.c r2_cmc.analogfunction.c r2_cmcask.c r2_cmc.c r2_cmcdel.c r2_cmcdest.c r2_cmcguesstopology.c r2_cmcinit.c r2_cmcload.c r2_cmcmask.c r2_cmcmdel.c r2_cmcmpar.c r2_cmcnoise.c r2_cmcpar.c r2_cmcpzld.c r2_cmcsetup.c r2_cmctemp.c r2_cmctrunc.c
-
-to : $(SRCS:%.c=%.o)
-
-scripts = \
-	-x \
-	-e ../../admst/adms.implicit.xml \
-	-e ../../admst/ngspiceVersion.xml \
-	-e ../../admst/analogfunction.xml \
-	-e ../../admst/ngspiceMODULEitf.h.xml \
-	-e ../../admst/ngspiceMODULEinit.c.xml \
-	-e ../../admst/ngspiceMODULEinit.h.xml \
-	-e ../../admst/ngspiceMODULEext.h.xml \
-	-e ../../admst/ngspiceMODULEdefs.h.xml \
-	-e ../../admst/ngspiceMODULEask.c.xml \
-	-e ../../admst/ngspiceMODULEmask.c.xml \
-	-e ../../admst/ngspiceMODULEpar.c.xml \
-	-e ../../admst/ngspiceMODULEmpar.c.xml \
-	-e ../../admst/ngspiceMODULEload.c.xml \
-	-e ../../admst/ngspiceMODULEacld.c.xml \
-	-e ../../admst/ngspiceMODULEpzld.c.xml \
-	-e ../../admst/ngspiceMODULEtemp.c.xml \
-	-e ../../admst/ngspiceMODULEtrunc.c.xml \
-	-e ../../admst/ngspiceMODULEsetup.c.xml \
-	-e ../../admst/ngspiceMODULEdel.c.xml \
-	-e ../../admst/ngspiceMODULEmdel.c.xml \
-	-e ../../admst/ngspiceMODULEdest.c.xml \
-	-e ../../admst/ngspiceMODULEnoise.c.xml \
-	-e ../../admst/ngspiceMODULEguesstopology.c.xml \
-	-e ../../admst/ngspiceMODULE.hxx.xml \
-	-e ../../admst/ngspiceMODULE.c.xml
-
-$(SRCS) : do
-
-do : r2_cmc.va
-	../../../../../../adms/ADMS/admsXml/admsXml  $(scripts) $<

src/spicelib/devices/adms/badcode1/admsva/r2_cmc.va

@@ -1,26 +0,0 @@
-`include "constants.vams"
-`include "disciplines.vams"
-
-module r2_cmc(d, s);
-   inout     d, s;
-
-   electrical d, s;
-
-   real      Taa, Txx;
-
-   analog begin
-
-      Taa = 0;
-
-      // Txx = 0;
-      Txx = Taa;
-
-      Taa = V(d,s);
-
-      Taa = Txx;
-      Taa = 0;
-
-      I(d,s) <+ Taa;
-   end
-
-endmodule

src/spicelib/devices/adms/ex-1/admsva/r2_cmc.va

@@ -1,72 +0,0 @@
-//
-// simple capacitor model
-// t     R       i    C      b
-// o——/\/\/——o——| |——o
-//
-
-`include "constants.h"
-`include "discipline.h"
-
-`define P_CELCIUS0 273.15
-`define TNOM (`P_CELCIUS0 + 27.0)
-
-module r2_cmc(t, b);
-   inout t, b;
-   electrical t, b;
-   electrical i;
-   branch (t, i) R;
-   branch (i, b) C;
-   parameter real w = 1u from (0.1u : +inf);
-   parameter real l = 1u from (0.1u : +inf);
-   parameter real nc = 1 from [1:2];
-   parameter real rsh = 1 from (0 : +inf);
-   parameter real ca = 1f from (0 : +inf);
-   parameter real tcr = 0;
-   parameter real vc1 = 0;
-   parameter real vc2 = 0;
-   parameter real type = 0; // 0=n, 1=p
-   real dT, rsh_t, c, r, Ir, Qc, Ceff, pwrR;
-   analog begin : L
-       if ($port_connected(b) == 0)
-          $finish(113);
-       if ($param_given(tcr))
-          $finish(4);
-       if ($param_given(tcr))
-          $finish(4);
-       if (nc > 2)
-          $finish(0);
-       begin : initializeModel
-          dT = $temperature - `TNOM;
-          rsh_t = rsh*(1.0+tcr*dT);
-       end
-       begin : initializeInstance
-          c = w*l*ca*1e12; // unit conversion
-          if (nc > 1.5)
-            r = rsh_t*(w/l)/12;
-          else
-            r = rsh_t*(w/l)/3;
-       end
-       begin : evaluateStatic
-          Ir = V(R)/r;
-       end
-       begin : evaluateDynamic
-          if (type > 0.5) // inelegant
-            Qc = c*V(C)*(1-V(C)*(vc1/2-V(C)*vc2/3));
-          else
-            Qc = c*V(C)*(1+V(C)*(vc1/2+V(C)*vc2/3));
-       end
-       begin : loadStatic
-          I(R) <+ Ir;
-       end
-       begin : loadDynamic
-          I(C) <+ ddt(Qc);
-       end
-      begin : postProcess
-         if (type > 0.5)
-           Ceff = c*(1.0-V(C)*(vc1/2-V(C)/3));//error!
-         else
-           Ceff = c*(1.0+V(C)*(vc1/2+V(C)/3));//error!
-         pwrR = V(R)*Ir;
-      end
-   end // analog
-endmodule