cmd_collab.C Source File

00001 /***************************************************************************
00002  *cr
00003  *cr            (C) Copyright 1995-2019 The Board of Trustees of the
00004  *cr                        University of Illinois
00005  *cr                         All Rights Reserved
00006  *cr
00007  ***************************************************************************/
00008 
00009 /***************************************************************************
00010  * RCS INFORMATION:
00011  *
00012  *      $RCSfile: cmd_collab.C,v $
00013  *      $Author: johns $        $Locker:  $             $State: Exp $
00014  *      $Revision: 1.10 $      $Date: 2019/01/17 21:21:03 $
00015  *
00016  ***************************************************************************
00017  * DESCRIPTION:
00018  *   text commands for collaborative/remote control of VMD sessions
00019  ***************************************************************************/
00020 
00021 #include "CommandQueue.h"
00022 #include "VMDApp.h"
00023 #include "MoleculeList.h"
00024 #include "utilities.h"
00025 #include "config.h"    // for CMDLEN
00026 #include <stdlib.h>
00027 #include <tcl.h>
00028 
00029 #include "VMDCollab.h"
00030 
00031 int text_cmd_collab(ClientData cd, Tcl_Interp *interp, int argc,
00032                     const char *argv[]) {
00033   VMDApp *app = (VMDApp *)cd;
00034 
00035   if (argc == 4 && !strupncmp(argv[1], "connect", CMDLEN)) {
00036     const char *host = argv[2];
00037     int port;
00038     if (Tcl_GetInt(interp, argv[3], &port) != TCL_OK) return TCL_ERROR;
00039     if (!strcmp(host, Tcl_GetHostName())) {
00040       if (!app->vmdcollab->startserver(port)) {
00041         Tcl_AppendResult(interp, "Failed to start server on port ", argv[3], NULL);
00042         return TCL_ERROR;
00043       }
00044     }
00045     if (!app->vmdcollab->connect(host, port)) {
00046       Tcl_AppendResult(interp, "Failed to connect to vmdcollab at ", host,
00047           "port: ", argv[3], NULL);
00048       return TCL_ERROR;
00049     }
00050     return TCL_OK;
00051   }
00052   if (argc == 2 && !strupncmp(argv[1], "disconnect", CMDLEN)) {
00053     app->vmdcollab->disconnect();
00054     return TCL_OK;
00055   }
00056 
00057   Tcl_SetResult(interp, (char *) "Usage: vmdcollab [connect <host> <port> | disconnect",
00058       TCL_STATIC);
00059   return TCL_ERROR;
00060 }
00061 
00062