dynamic-nam.conf
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:2k
源码类别:

通讯编程

开发平台:

Visual C++

  1. #-*-Tcl-*-
  2. #
  3. # Copyright (C) 1997 by USC/ISI
  4. # All rights reserved.                                            
  5. #                                                                
  6. # Redistribution and use in source and binary forms are permitted
  7. # provided that the above copyright notice and this paragraph are
  8. # duplicated in all such forms and that any documentation, advertising
  9. # materials, and other materials related to such distribution and use
  10. # acknowledge that the software was developed by the University of
  11. # Southern California, Information Sciences Institute.  The name of the
  12. # University may not be used to endorse or promote products derived from
  13. # this software without specific prior written permission.
  14. # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
  15. # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  16. # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  17. #
  18. # $Header: /cvsroot/nsnam/ns-2/tcl/ex/dynamic-nam.conf,v 1.2 1997/11/07 00:56:04 haoboy Exp $
  19. #
  20. #
  21. # These functions are needed by nam
  22. # They are actually the functions used in the 'v' events in the nam traces
  23. # The 'v' events are generated by dynamic links (rtmodel). Whenever you have 
  24. # a nam trace which has dynamic link traces, you'll need to define the following
  25. # functions.
  26. # A note on using this file. 
  27. # For example, if you have a nam trace file foo.nam, which includes traces 
  28. # generated using rtmodel, you need to run nam as follows:
  29. #  nam -f dynamic-nam.conf foo.nam
  30. # Alternatively, you can do the following (in the same directory):
  31. # cp dynamic-nam.conf .nam.tcl
  32. # nam foo.nam
  33. #
  34. # Upon startup, nam will load .nam.tcl in current directory.
  35. #
  36. proc link-up {now src dst} {
  37. sim_annotation $now link($src:$dst) up
  38. }
  39. proc link-down {now src dst} {
  40. sim_annotation $now link($src:$dst) down
  41. }
  42. proc node-up {now src} {
  43. sim_annotation $now $node $src up
  44. }
  45. proc node-down {now src} {
  46. sim_annotation $now $node $src down
  47. }