linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Files called from SICServer should now compile under linux

Browse Source
This commit is contained in:
cvs
2000-07-21 13:01:55 +00:00
parent d782d43951
commit 5f5aface14
15 changed files with 401 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tecs/tecs_cli.c
View File

@@ -13,7 +13,11 @@ pTecsClient TeccInit(char *startcmd, int port) {
CocConn *conn;
NEW(conn);
ERR_I(CocInitClient(conn, "", port, "#rwacs", 0, startcmd));
if (startcmd[0]=='#') {
ERR_I(CocInitClient(conn, startcmd+1, port, "#rwacs", 0, ""));
} else {
ERR_I(CocInitClient(conn, "", port, "#rwacs", 0, startcmd));
}
CocDefFlt(tempC, CocRD);
CocDefFlt(tempP, CocRD);
CocDefFlt(tempX, CocRD);
@@ -115,7 +119,7 @@ int TeccQuitServer(pTecsClient conn) {
void TeccClose(pTecsClient conn) {
if (conn!=NULL) {
CocCloseClient(conn);
my_free(conn);
FREE(conn);
}
}
@@ -126,6 +130,10 @@ void TeccClose(pTecsClient conn) {
*/
#ifdef F_CHAR
/* compile only when fortran c interface stuff is defined */
#ifdef __VMS
#define tecs_get_par_ tecs_get_par
#define tecs_set_par_ tecs_set_par
@@ -211,3 +219,4 @@ int tecs_quit_server_(void) {
return(TeccQuitServer(conn));
}
#endif