void JankyShooter::setTargetRPM(int desiredrpm)
{
TargetRPMx4 = desiredrpm;
// PID.SetSetpoint(TargetRPMx4);
// SmartDashboard::GetInstance()->PutDouble("PIDOutput",PID.m_pidOutput);
if (ShooterTimer.Get()>MINSHOOT_WAIT)
{
DoCalculations();
ShooterTimer.Reset();
}
}
//This is needed for the ADC
void DoCalculations(void* ourMeasurement){
DoCalculations((measurements*) ourMeasurement);
}
DWORD CalculationThread (LPVOID lpvoid) {
(void)lpvoid;
bool needcalculationsslow;
NMEA_INFO tmpGPS;
DERIVED_INFO tmpCALCULATED;
FILETIME CreationTime, ExitTime, StartKernelTime, EndKernelTime, StartUserTime, EndUserTime ;
needcalculationsslow = false;
// let's not create a deadlock here, setting the go after another race condition
goCalculationThread=true; // 091119 CHECK
// wait for proper startup signal
while (!MapWindow::IsDisplayRunning()) {
Sleep(100);
}
// while (!goCalculating) Sleep(100);
Sleep(1000); // 091213 BUGFIX need to syncronize !!! TOFIX02 TODO
while (!MapWindow::CLOSETHREAD) {
WaitForSingleObject(dataTriggerEvent, 5000);
ResetEvent(dataTriggerEvent);
if (MapWindow::CLOSETHREAD) break; // drop out on exit
GetThreadTimes( hCalculationThread, &CreationTime, &ExitTime,&StartKernelTime,&StartUserTime);
// make local copy before editing...
LockFlightData();
FLARM_RefreshSlots(&GPS_INFO);
memcpy(&tmpGPS,&GPS_INFO,sizeof(NMEA_INFO));
memcpy(&tmpCALCULATED,&CALCULATED_INFO,sizeof(DERIVED_INFO));
UnlockFlightData();
DoCalculationsVario(&tmpGPS,&tmpCALCULATED);
if (!tmpGPS.VarioAvailable) {
TriggerVarioUpdate(); // emulate vario update
}
if(DoCalculations(&tmpGPS,&tmpCALCULATED)){
#if (WINDOWSPC>0) && !TESTBENCH
#else
if (!INPAN)
#endif
{
MapWindow::MapDirty = true;
}
needcalculationsslow = true;
if (tmpCALCULATED.Circling)
MapWindow::mode.Fly(MapWindow::Mode::MODE_FLY_CIRCLING);
else if (tmpCALCULATED.FinalGlide)
MapWindow::mode.Fly(MapWindow::Mode::MODE_FLY_FINAL_GLIDE);
else
MapWindow::mode.Fly(MapWindow::Mode::MODE_FLY_CRUISE);
}
if (MapWindow::CLOSETHREAD) break; // drop out on exit
// This is activating another run for Thread Draw
TriggerRedraws(&tmpGPS, &tmpCALCULATED);
if (MapWindow::CLOSETHREAD) break; // drop out on exit
if (SIMMODE) {
if (needcalculationsslow || ( ReplayLogger::IsEnabled() ) ) {
DoCalculationsSlow(&tmpGPS,&tmpCALCULATED);
needcalculationsslow = false;
}
} else {
if (needcalculationsslow) {
DoCalculationsSlow(&tmpGPS,&tmpCALCULATED);
needcalculationsslow = false;
}
}
if (MapWindow::CLOSETHREAD) break; // drop out on exit
// values changed, so copy them back now: ONLY CALCULATED INFO
// should be changed in DoCalculations, so we only need to write
// that one back (otherwise we may write over new data)
LockFlightData();
memcpy(&CALCULATED_INFO,&tmpCALCULATED,sizeof(DERIVED_INFO));
UnlockFlightData();
// update live tracker with new values
// this is a nonblocking call, live tracker runs on different thread
LiveTrackerUpdate(&tmpGPS, &tmpCALCULATED);
if (FlightDataRecorderActive) UpdateFlightDataRecorder(&tmpGPS,&tmpCALCULATED);
if ( (GetThreadTimes( hCalculationThread, &CreationTime, &ExitTime,&EndKernelTime,&EndUserTime)) == 0) {
Cpu_Calc=9999;
} else {
Cpustats(&Cpu_Calc,&StartKernelTime, &EndKernelTime, &StartUserTime, &EndUserTime);
}
}
return 0;
}
static void FindMaxAndMin(void)
{
static UINT16 comparationWindowTimer;
static UINT8 subStateFindingMaxAndMin;
if (subStateFindingMaxAndMin == SPO2_SUBSTATE_FINDING_MAX)
{
//if the SpO2 signal is going up
if (SpO2IRLedSignal.Result > SpO2IRMax)
{
SpO2IRMax = SpO2IRLedSignal.Result; //store new max values
SpO2RedMax = SpO2RedLedSignal.Result;
comparationWindowTimer = COMPARATION_WINDOW_INTERVAL; //restart counter
}
else
{
//slope changed, now signal is going down
comparationWindowTimer--;
if (comparationWindowTimer == 0)
{
//no more max peaks detected in the window time, go to detection of min
subStateFindingMaxAndMin = SPO2_SUBSTATE_FINDING_MIN;
maxCounter++;
SpO2IRMin = SpO2IRMax;
SpO2RedMin = SpO2RedMax;
}
}
}
else if (subStateFindingMaxAndMin == SPO2_SUBSTATE_FINDING_MIN)
{
//if the SpO2 signal is going down
if (SpO2IRLedSignal.Result < SpO2IRMin)
{
SpO2IRMin = SpO2IRLedSignal.Result; //store new min values
SpO2RedMin = SpO2RedLedSignal.Result;
comparationWindowTimer = COMPARATION_WINDOW_INTERVAL; //restart counter
}
else
{
//slope changed, now signal is going up
comparationWindowTimer--;
if (comparationWindowTimer == 0)
{
//no more min peaks detected in the window time, go to next state
subStateFindingMaxAndMin = SPO2_SUBSTATE_FINDING_MAX;
minCounter++;
gu16SpO2Offset = SpO2IRMin;
DoCalculations(); //do calculations before updating min and max values
SpO2IRMax = SpO2IRMin;
SpO2RedMax = SpO2RedMin;
SpO2_HeartBeatDetected = TRUE;
}
}
}
}
/*
* update the *.lis file with the state of the transistor
*/
void UpdateLIS(char *ConfigFile, char *InputFile)
{
int i, j, k;
char ltitle[LONGSTRINGSIZE]; /*title: found .alter @*/
char lelement[LONGSTRINGSIZE];
/*lmodel,*/ /*transistor/model name*/
char lVGS[LONGSTRINGSIZE], lVDS[LONGSTRINGSIZE], lVth[LONGSTRINGSIZE], lVDSAT[LONGSTRINGSIZE], fileLJR[LONGSTRINGSIZE];
FILE *fLJR; /**.ljr*/
FILE *fLIS, *fNoSat;
FILE *fsweepINI;
/*skip: array [1..100] of string [20];*/ /*100 transistor to skip*/
char laux[LONGSTRINGSIZE];
double Vovd, Voff, Vdst; /*overdrive, off and 'Vds-Vdsat' voltage read from sweep.ini file*/
ThreeLines stats;
fNoSat = NULL;
fLIS = NULL;
fLJR = NULL;
if ((fLIS=fopen(InputFile,"rt")) == 0) {
printf("auxfunc_updatelis.c - Cannot open input file: %s\n", InputFile);
exit(EXIT_FAILURE);
}
sprintf(fileLJR, "%.*sjr", (int)(strlen(InputFile) - 2), InputFile);
if ((fLJR=fopen(fileLJR,"wt")) == 0) {
printf("auxfunc_updatelis.c - Cannot open input file: %s\n", fileLJR);
exit(EXIT_FAILURE);
}
if ((fNoSat=fopen(NoSat,"wt")) == 0) {
printf("auxfunc_updatelis.c - Cannot open input file: %s\n", NoSat);
exit(EXIT_FAILURE);
}
for (i = 0; i < SKIPTRAN; i++) /*INITIALIZE: read transistors to skip*/
*skip[i] = '\0';
if ((fsweepINI=fopen(ConfigFile,"rt")) == 0) {
printf("auxfunc_updatelis.c - Cannot open input file: %s\n", ConfigFile);
exit(EXIT_FAILURE);
}
ReadKey(lkk, "SKIP_NOSAT", fsweepINI);
j = strpos2(lkk, "$", 1);
if (j != 0) /*This will skip the characters after '$', the inline comment used by the sweep tools*/
lkk[j-1]='\0';
StripSpaces(lkk);
k = 1;
if (!lkk[0])
printf("INFO: auxfunc_updatelis.c - 'SKIP_NOSAT' not found\n");
else {
while (!strcmp((sprintf(laux, "%.10s", lkk), laux), "SKIP_NOSAT")) { /*read SKIP_NOSAT from file*/
i = 1;
lkk[10] = ';';
while (i < (int)strlen(lkk)) {
ReadSubKey(laux, lkk, &i, ';', ';', 0);
StripSpaces(laux);
strcpy(skip[k - 1], laux);
k++;
if (k == SKIPTRAN) {
printf("auxfunc_updatelis.c - Maximum number of %d transistors to skip reached. Increase SKIPTRAN in auxfunc_updatelis\n", SKIPTRAN);
exit(EXIT_FAILURE);
}
}
ReadKey(lkk, "SKIP_NOSAT", fsweepINI);
j = strpos2(lkk, "$", 1);
if (j != 0) /*This will skip the characters after '$', the inline comment used by the sweep tools*/
lkk[j-1]='\0';
StripSpaces(lkk);
}
}
Vovd = 0.05; /*default OVERDRIVE VOLTAGE value is 50mV*/
fseek(fsweepINI, 0, SEEK_SET);
ReadKey(lkk, "VOVD", fsweepINI);
if (strcmp((sprintf(laux, "%.4s", lkk), laux), "VOVD"))
printf("INFO: auxfunc_updatelis.c - No Vovd, default value (50mV) will be used instead\n");
else {
i = 1;
i = (sscanf(ReadSubKey(laux, lkk, &i, ':', 'm', 5), "%lg", &Vovd) == 0);
if (i) { /*if (i=0) then laux contains a number and not text*/
printf("auxfunc_updatelis.c - Incorrect format: number must exist in '%s'\n", lkk);
exit(EXIT_FAILURE);
}
Vovd /= 1000;
/*the following line will print information about the symbols in 'fNoSat' file*/
fprintf(fNoSat, "` `:weak inversion if Vgs<Vth+%smV\n", laux);
}
Voff = 0.1; /*default OFF VOLTAGE value is 100mV*/
fseek(fsweepINI, 0, SEEK_SET);
ReadKey(lkk, "VOFF", fsweepINI);
if (strcmp((sprintf(laux, "%.4s", lkk), laux), "VOFF"))
printf("INFO: auxfunc_updatelis.c - No Voff: default value (100mV) will be used instead\n");
else {
i = 1;
i = (sscanf(ReadSubKey(laux, lkk, &i, ':', 'm', 5), "%lg", &Voff) == 0);
if (i) { /*if (i=0) then laux contains a number and not text*/
printf("auxfunc_updatelis.c - Incorrect format: number must exist in '%s'\n", lkk);
exit(EXIT_FAILURE);
}
Voff /= 1000;
}
Vdst = 0.0; /*default DST VOLTAGE value is 000mV*/
fseek(fsweepINI, 0, SEEK_SET);
ReadKey(lkk, "VDST", fsweepINI);
if (strcmp((sprintf(laux, "%.4s", lkk), laux), "VDST"))
printf("INFO: auxfunc_updatelis.c - No Vdst: default value (0mV) will be used instead\n");
else {
i = 1;
i = (sscanf(ReadSubKey(laux, lkk, &i, ':', 'm', 5), "%lg", &Vdst) == 0); /*read 'Vds-Vdsat' from file*/
if (i) {/*if (i=0) then laux contains a number and not text*/
printf("auxfunc_updatelis.c - Incorrect format: number must exist in '%s'\n", lkk);
exit(EXIT_FAILURE);
}
Vdst /= 1000;
/*the following lines will print information about the symbols in 'fNoSat' file*/
if (Vdst != 0)
fprintf(fNoSat, "`#`:Vds<Vdsat+%smV\n", laux);
fprintf(fNoSat, "`*`:Vds<Vdsat\n\n");
}
if (fsweepINI != NULL)
fclose(fsweepINI);
fsweepINI = NULL;
/* */
/* */
*ltitle = '\0';
while (!P_eof(fLIS)) {
switch(spice) {
case 1: /* Eldo */
while ((strcmp((sprintf(laux, "%.37s", lkk), laux), "0**** OPERATING POINT") != 0) & (!P_eof(fLIS))) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
StripSpaces(lkk); /*required due to Solaris OS*/
//if (lkk[0] == '@' && strcmp(lkk, ltitle)) {
if (strpos2(lkk, " .ALTER @", 1) !=0) {
fprintf(fNoSat, "%s | ", lkk);
strcpy(ltitle, lkk);
}
}
sprintf(laux, "%.37s", lkk);
if (!strcmp(laux, "0**** OPERATING POINT")) {
for (i = 1; i <= 6; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
while ( (strpos2(lkk, " M", 1) != 0) || (strpos2(lkk, " X", 1) != 0)) { /*find operating region for all transistors*/
strcpy(lelement, lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
//if (strpos2(lkk, "region", 1) !=0) { /* Due to HSPICE 2001.2 line */
// fgets2(lkk, LONGSTRINGSIZE, fLIS);
// fprintf(fLJR, "%s\n", lkk); /* with the operation region */
//}
/* fgets2(lkk, LONGSTRINGSIZE, fLIS); */
/* fprintf(fLJR, "%s\n", lkk); */
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lVGS, LONGSTRINGSIZE, fLIS); /*Vgs*/
fprintf(fLJR, "%s\n", lVGS);
fgets2(lVDS, LONGSTRINGSIZE, fLIS); /*Vds*/
fprintf(fLJR, "%s\n", lVDS);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lVth, LONGSTRINGSIZE, fLIS); /*Vth*/
fprintf(fLJR, "%s\n", lVth);
fgets2(lVDSAT, LONGSTRINGSIZE, fLIS); /*Vdsat*/
fprintf(fLJR, "%s\n", lVDSAT);
for (i = 1; i <= 24; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
DoCalculations(lelement, lVGS, lVDS, lVth, lVDSAT, Vovd, Voff, Vdst, stats, &fNoSat); /*gets three lines with operating region*/
fprintf(fLJR, "%s\n", stats[0]);
fprintf(fLJR, "%s\n", stats[1]);
fprintf(fLJR, "%s\n\n\n", stats[2]);
for (i = 1; i <= 2; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
if (i > 1)
fprintf(fLJR, "%s\n", lkk);
}
}
putc('\n', fNoSat);
}
break;
case 2: /* HSPICE */
i=0;
while ((strcmp((sprintf(laux, "%.12s", lkk), laux), "**** mosfets") != 0) & (!P_eof(fLIS))) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
StripSpaces(lkk); /*required due to Solaris OS*/
if (lkk[0] == '@' && strcmp(lkk, ltitle)) {
if (i>0) {
fprintf(fNoSat, "\n");
}
i++;
fprintf(fNoSat, "%s | ", lkk);
strcpy(ltitle, lkk);
}
}
sprintf(laux, "%.12s", lkk);
if (!strcmp(laux, "**** mosfets")) {
for (i = 1; i <= 4; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
while (strpos2(lkk, "element ", 1) != 0) { /*find operating region for all transistors*/
strcpy(lelement, lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
if (strpos2(lkk, "region", 1) !=0) { /* Due to HSPICE 2001.2 line */
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk); /* with the operation region */
}
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lVGS, LONGSTRINGSIZE, fLIS); /*Vgs*/
fprintf(fLJR, "%s\n", lVGS);
fgets2(lVDS, LONGSTRINGSIZE, fLIS); /*Vds*/
fprintf(fLJR, "%s\n", lVDS);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lVth, LONGSTRINGSIZE, fLIS); /*Vth*/
fprintf(fLJR, "%s\n", lVth);
fgets2(lVDSAT, LONGSTRINGSIZE, fLIS); /*Vdsat*/
fprintf(fLJR, "%s\n", lVDSAT);
for (i = 1; i <= 12; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
DoCalculations(lelement, lVGS, lVDS, lVth, lVDSAT, Vovd, Voff, Vdst, stats, &fNoSat); /*gets three lines with operating region*/
fprintf(fLJR, "%s\n", stats[0]);
fprintf(fLJR, "%s\n", stats[1]);
fprintf(fLJR, "%s\n\n\n", stats[2]);
for (i = 1; i <= 4; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
if (i > 2)
fprintf(fLJR, "%s\n", lkk);
}
}
putc('\n', fNoSat);
}
break;
case 3: /* LTspice */
while ((strcmp((sprintf(laux, "%.21s", lkk), laux), "--- BSIM3 MOSFETS ---") != 0) & (!P_eof(fLIS))) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
StripSpaces(lkk); /*required due to Solaris OS*/
if (lkk[0] == '@' && strcmp(lkk, ltitle)) {
fprintf(fNoSat, "%s | ", lkk);
strcpy(ltitle, lkk);
}
}
sprintf(laux, "%.21s", lkk);
if (!strcmp(laux, "--- BSIM3 MOSFETS ---")) {
for (i = 1; i <= 1; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
while (strpos2(lkk, "Name: ", 1) != 0) { /*find operating region for all transistors*/
strcpy(lelement, lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
//fgets2(lkk, LONGSTRINGSIZE, fLIS);
//fprintf(fLJR, "%s\n", lkk);
//if (strpos2(lkk, "region", 1) !=0) { /* Due to HSPICE 2001.2 line */
// fgets2(lkk, LONGSTRINGSIZE, fLIS);
// fprintf(fLJR, "%s\n", lkk); /* with the operation region */
//}
//fgets2(lkk, LONGSTRINGSIZE, fLIS);
//fprintf(fLJR, "%s\n", lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lVGS, LONGSTRINGSIZE, fLIS); /*Vgs*/
fprintf(fLJR, "%s\n", lVGS);
fgets2(lVDS, LONGSTRINGSIZE, fLIS); /*Vds*/
fprintf(fLJR, "%s\n", lVDS);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lVth, LONGSTRINGSIZE, fLIS); /*Vth*/
fprintf(fLJR, "%s\n", lVth);
fgets2(lVDSAT, LONGSTRINGSIZE, fLIS); /*Vdsat*/
fprintf(fLJR, "%s\n", lVDSAT);
for (i = 1; i <= 17; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
DoCalculations(lelement, lVGS, lVDS, lVth, lVDSAT, Vovd, Voff, Vdst, stats, &fNoSat); /*gets three lines with operating region*/
fprintf(fLJR, "%s\n", stats[0]);
fprintf(fLJR, "%s\n", stats[1]);
fprintf(fLJR, "%s\n\n", stats[2]);
for (i = 1; i <= 2; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
if (i > 1)
fprintf(fLJR, "%s\n", lkk);
}
}
putc('\n', fNoSat);
}
break;
case 4: /* Spectre */
// in input.scs put "dcOp dc oppoint=logfile"
// run spectre with "spectre input.scs =log input.lis"
//
// Code specific for "Primitive: bsim3v3" and is quite possible
// not to work on future Spectre versions and other transistor models
//
while ((strcmp((sprintf(laux, "%.31s", lkk), laux), "operating-point information `dc") != 0) & (!P_eof(fLIS))) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
StripSpaces(lkk); /*required due to Solaris OS*/
if (lkk[0] == '@' && strcmp(lkk, ltitle)) {
fprintf(fNoSat, "%s | ", lkk);
strcpy(ltitle, lkk);
}
Str2Lower(lkk); //required because versions until 2007 have "... Information" and after have "... information"
}
if (P_eof(fLIS))
break;
char l1[LONGSTRINGSIZE], l2[LONGSTRINGSIZE]; /*l1 and l2 are hold places for previous lines*/
fgets2(l1, LONGSTRINGSIZE, fLIS); fprintf(fLJR, "%s\n", l1);
fgets2(l2, LONGSTRINGSIZE, fLIS); fprintf(fLJR, "%s\n", l2);
/*bsim3v3*/ while ((strcmp((sprintf(laux, "%.18s", lkk), laux), "Primitive: bsim3v3") != 0) & (!P_eof(fLIS))) {
/*bsim4*/ // while ((strcmp((sprintf(laux, "%.16s", lkk), laux), "Primitive: bsim4") != 0) & (!P_eof(fLIS))) {
strcpy(l1, l2);
strcpy(l2, lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
StripSpaces(lkk);
if (lkk[0] == '@' && strcmp(lkk, ltitle)) {
fprintf(fNoSat, "%s | ", lkk);
strcpy(ltitle, lkk);
}
}
/*bsim3v3*/ sprintf(laux, "%.18s", lkk);
/*bsim3v3*/ if (!strcmp(laux, "Primitive: bsim3v3")) {
/*bsim4*/ // sprintf(laux, "%.16s", lkk);
/*bsim4*/ // if (!strcmp(laux, "Primitive: bsim4")) {
for (i = 1; i <= 0; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
/*bsim3v3*/ while (strpos2(lkk, "Primitive: bsim3v3", 1) != 0) { /*find operating region for all transistors*/
/*bsim4*/ // while (strpos2(lkk, "Primitive: bsim4", 1) != 0) { /*find operating region for all transistors*/
strcpy(lelement, l1);
if (strpos2(lelement, " of ", 1)) { /*to remove the library name if and when it appears*/
lelement[strpos2(lelement, " of ", 1)]='\0';
}
/*bsim3v3*/ for (i = 1; i <= 9; i++) {
/*bsim4*/ // for (i = 1; i <= 7; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
fgets2(lVGS, LONGSTRINGSIZE, fLIS); /*Vgs*/
fprintf(fLJR, "%s\n", lVGS);
{
i=1; ReadSubKey(laux, lVGS, &i, '=', 'V', 5);
i=strpos2(laux, " ", 2);
if ((laux[i]==109)) { /* 109=m; mV */
laux[i-1]='\0';
strcat(laux, "e-3");
}
if ((laux[i]==117)) { /* 117=u; uV */
laux[i-1]='\0';
strcat(laux, "e-6");
}
if ((laux[i]==110)) { /* 110=n; nV */
laux[i-1]='\0';
strcat(laux, "e-9");
}
sprintf(lVGS, " %s", laux); /* Puts the value on the expected column for DoCalculations */
}
fgets2(lVDS, LONGSTRINGSIZE, fLIS); /*Vds*/
fprintf(fLJR, "%s\n", lVDS);
{
i=1; ReadSubKey(laux, lVDS, &i, '=', 'V', 5);
i=strpos2(laux, " ", 2);
if ((laux[i]==109)) { /* 109=m; mV */
laux[i-1]='\0';
strcat(laux, "e-3");
}
if ((laux[i]==117)) { /* 117=u; uV */
laux[i-1]='\0';
strcat(laux, "e-6");
}
if ((laux[i]==110)) { /* 110=n; nV */
laux[i-1]='\0';
strcat(laux, "e-9");
}
sprintf(lVDS, " %s", laux); /* Puts the value on the expected column for DoCalculations */
}
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
fgets2(lVth, LONGSTRINGSIZE, fLIS); /*Vth*/
fprintf(fLJR, "%s\n", lVth);
{ //begin -- required for versions after the 2nd half of 2006 who have 3 more lines in between "vds" and "vth"
if (!strpos2(lVth, "vth =", 1)) {
fgets2(lVth, LONGSTRINGSIZE, fLIS); /*Vth*/
fprintf(fLJR, "%s\n", lVth);
fgets2(lVth, LONGSTRINGSIZE, fLIS); /*Vth*/
fprintf(fLJR, "%s\n", lVth);
fgets2(lVth, LONGSTRINGSIZE, fLIS); /*Vth*/
fprintf(fLJR, "%s\n", lVth);
}
if (!strpos2(lVth, "vth =", 1)) { /*Double-check just to be sure that vth was found*/
printf("auxfunc_updatelis.c - Spectre netlist format not supported\n");
exit(EXIT_FAILURE);
}
} //end -- required for versions after the 2nd half of 2006 who have 3 more lines in between "vds" and "vth"
{
i=1; ReadSubKey(laux, lVth, &i, '=', 'V', 5);
i=strpos2(laux, " ", 2);
if ((laux[i]==109)) { /* 109=m; mV */
laux[i-1]='\0';
strcat(laux, "e-3");
}
if ((laux[i]==117)) { /* 117=u; uV */
laux[i-1]='\0';
strcat(laux, "e-6");
}
if ((laux[i]==110)) { /* 110=n; nV */
laux[i-1]='\0';
strcat(laux, "e-9");
}
sprintf(lVth, " %s", laux); /* Puts the value on the expected column for DoCalculations */
}
fgets2(lVDSAT, LONGSTRINGSIZE, fLIS); /*Vdsat*/
fprintf(fLJR, "%s\n", lVDSAT);
{
i=1; ReadSubKey(laux, lVDSAT, &i, '=', 'V', 5);
i=strpos2(laux, " ", 2);
if ((laux[i]==109)) { /* 109=m; mV */
laux[i-1]='\0';
strcat(laux, "e-3");
}
if ((laux[i]==117)) { /* 117=u; uV */
laux[i-1]='\0';
strcat(laux, "e-6");
}
if ((laux[i]==110)) { /* 110=n; nV */
laux[i-1]='\0';
strcat(laux, "e-9");
}
sprintf(lVDSAT, " %s", laux); /* Puts the value on the expected column for DoCalculations */
}
for (i = 1; i <= 45; i++) {
fgets2(lkk, LONGSTRINGSIZE, fLIS);
fprintf(fLJR, "%s\n", lkk);
}
{ //begin -- required for versions after the 2nd half of 2006 who have 3 more lines in between "vds" and "vth"
fgets2(lkk, LONGSTRINGSIZE, fLIS);
//fprintf(fLJR, "%s\n", lkk);
//if ((int)(strlen(InputFile))) { /*empty line has been found, goes ahead*/
// i=0;
//}
while (strpos2(lkk, " = ", 1)) { /*empty line has been found, goes ahead*/
fprintf(fLJR, "%s\n", lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
}
} //end -- required for versions after the 2nd half of 2006 who have 3 more lines in between "vds" and "vth"
DoCalculations(lelement, lVGS, lVDS, lVth, lVDSAT, Vovd, Voff, Vdst, stats, &fNoSat); /*gets three lines with operating region*/
fprintf(fLJR, "%s\n", stats[0]);
fprintf(fLJR, "%s\n", stats[1]);
fprintf(fLJR, "%s\n\n", stats[2]);
for (i = 1; i <= 3; i++) {
strcpy(l1, l2);
strcpy(l2, lkk);
fgets2(lkk, LONGSTRINGSIZE, fLIS);
if (i > 0)
fprintf(fLJR, "%s\n", lkk);
}
}
putc('\n', fNoSat);
}
break;
case 50: /*Qucs*/
printf("auxfunc_updatelis.c - UpdateLIS -- Updatelis not implemente for Qucs\n");
exit(EXIT_FAILURE);
case 100: /* rosen */
printf("auxfunc_updatelis.c - UpdateLIS -- Updatelis not implemente for rosen\n");
exit(EXIT_FAILURE);
break;
default:
printf("auxfunc_updatelis.c - UpdateLIS -- Something unexpected has happened!\n");
exit(EXIT_FAILURE);
}
}
if (fLIS != NULL)
fclose(fLIS);
fLIS = NULL;
if (fLJR != NULL)
fclose(fLJR);
fLJR = NULL;
if (fNoSat != NULL)
fclose(fNoSat);
fNoSat = NULL;
if (fLJR != NULL)
fclose(fLJR);
if (fLIS != NULL)
fclose(fLIS);
if (fNoSat != NULL)
fclose(fNoSat);
} /*UpdateLIS*/
