ns-process.cc
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:3k
源码类别:

通讯编程

开发平台:

Visual C++

  1. /* -*- Mode:C++; c-basic-offset:8; tab-width:8; indent-tabs-mode:t -*- */
  2. //
  3. /*
  4.  * ns-process.cc
  5.  * Copyright (C) 1997 by the University of Southern California
  6.  * $Id: ns-process.cc,v 1.5 2005/08/25 18:58:02 johnh Exp $
  7.  *
  8.  * This program is free software; you can redistribute it and/or
  9.  * modify it under the terms of the GNU General Public License,
  10.  * version 2, as published by the Free Software Foundation.
  11.  *
  12.  * This program is distributed in the hope that it will be useful,
  13.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.  * GNU General Public License for more details.
  16.  *
  17.  * You should have received a copy of the GNU General Public License along
  18.  * with this program; if not, write to the Free Software Foundation, Inc.,
  19.  * 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
  20.  *
  21.  *
  22.  * The copyright of this module includes the following
  23.  * linking-with-specific-other-licenses addition:
  24.  *
  25.  * In addition, as a special exception, the copyright holders of
  26.  * this module give you permission to combine (via static or
  27.  * dynamic linking) this module with free software programs or
  28.  * libraries that are released under the GNU LGPL and with code
  29.  * included in the standard release of ns-2 under the Apache 2.0
  30.  * license or under otherwise-compatible licenses with advertising
  31.  * requirements (or modified versions of such code, with unchanged
  32.  * license).  You may copy and distribute such a system following the
  33.  * terms of the GNU GPL for this module and the licenses of the
  34.  * other code concerned, provided that you include the source code of
  35.  * that other code when and as the GNU GPL requires distribution of
  36.  * source code.
  37.  *
  38.  * Note that people who make modified versions of this module
  39.  * are not obligated to grant this special exception for their
  40.  * modified versions; it is their choice whether to do so.  The GNU
  41.  * General Public License gives permission to release a modified
  42.  * version without this exception; this exception also makes it
  43.  * possible to release a modified version which carries forward this
  44.  * exception.
  45.  *
  46.  */
  47. //
  48. // Other copyrights might apply to parts of this software and are so
  49. // noted when applicable.
  50. //
  51. // ADU and ADU processor
  52. //
  53. // $Header: /cvsroot/nsnam/ns-2/common/ns-process.cc,v 1.5 2005/08/25 18:58:02 johnh Exp $
  54. #include "ns-process.h"
  55. static class ProcessClass : public TclClass {
  56.  public:
  57. ProcessClass() : TclClass("Process") {}
  58. TclObject* create(int, const char*const*) {
  59. return (new Process);
  60. }
  61. } class_process;
  62. void Process::process_data(int, AppData*)
  63. {
  64. abort();
  65. }
  66. AppData* Process::get_data(int&, AppData*)
  67. {
  68. abort();
  69. /* NOTREACHED */
  70. return NULL; // Make msvc happy 
  71. }
  72. int Process::command(int argc, const char*const* argv)
  73. {
  74. Tcl& tcl = Tcl::instance();
  75. if (strcmp(argv[1], "target") == 0) {
  76. if (argc == 2) {
  77. Process *p = target();
  78. tcl.resultf("%s", p ? p->name() : "");
  79. return TCL_OK;
  80. } else if (argc == 3) { 
  81. Process *p = (Process *)TclObject::lookup(argv[2]);
  82. if (p == NULL) {
  83. fprintf(stderr, "Non-existent media app %sn",
  84. argv[2]);
  85. abort();
  86. }
  87. target() = p;
  88. return TCL_OK;
  89. }
  90. }
  91. return TclObject::command(argc, argv);
  92. }