You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
1.5 KiB
70 lines
1.5 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
|
|
**********/
|
|
|
|
/* Initialize io, cp_chars[], variable "history". */
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/cpdefs.h"
|
|
|
|
#include "init.h"
|
|
#include "variable.h"
|
|
|
|
|
|
void
|
|
cp_init(void)
|
|
/* called from ft_cpinit() in cpitf.c.
|
|
Uses global variables:
|
|
cp_chars[128]
|
|
cp_maxhistlength (set to 10000 in com_history.c)
|
|
cp_curin, cp_curout, cp_curerr (defined in streams.c)
|
|
*/
|
|
{
|
|
cp_vset("history", CP_NUM, &cp_maxhistlength);
|
|
|
|
cp_curin = stdin;
|
|
cp_curout = stdout;
|
|
cp_curerr = stderr;
|
|
|
|
/* io redirection in streams.c:
|
|
cp_in set to cp_curin etc. */
|
|
cp_ioreset();
|
|
|
|
/*set a variable oscompiled containing the OS at compile time
|
|
[0], Other
|
|
[1], MINGW for MS Windows
|
|
[2], Cygwin for MS Windows
|
|
[3], FreeBSD
|
|
[4], OpenBSD
|
|
[5], Solaris
|
|
[6], Linux
|
|
[7], macOS
|
|
[8], Visual Studio for MS Windows
|
|
The variable may be used in a .control section to perform OS
|
|
specific actions (setting fonts etc.).
|
|
*/
|
|
int itmp;
|
|
#if OS_COMPILED == 1
|
|
itmp = 1;
|
|
#elif OS_COMPILED == 2
|
|
itmp = 2;
|
|
#elif OS_COMPILED == 3
|
|
itmp = 3;
|
|
#elif OS_COMPILED == 4
|
|
itmp = 4;
|
|
#elif OS_COMPILED == 5
|
|
itmp = 5;
|
|
#elif OS_COMPILED == 6
|
|
itmp = 6;
|
|
#elif OS_COMPILED == 7
|
|
itmp = 7;
|
|
#else
|
|
itmp = 0;
|
|
#endif
|
|
/* not using configure.ac */
|
|
#ifdef _MSC_VER
|
|
itmp = 8;
|
|
#endif
|
|
cp_vset("oscompiled", CP_NUM, &itmp);
|
|
}
|