File: show.c

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (70 lines) | stat: -rw-r--r-- 1,280 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
/* Copyright INRIA */
#include <string.h>

#include "list.h"
#include "graph.h"
#include "menus.h"
#include "metio.h"
#include "netcomm.h"

extern void UnhiliteAll();

void ShowPath(p,sup)
char *p;
int sup;
{
  arc *a;
  int ia;
  char *s;

  if (menuId == BEGIN) {
    sprintf(Description,"There is no loaded graph");
    MetanetAlert(Description);
    return;
  }
  if (!sup) UnhiliteAll();
  s = strtok(p,STRINGSEP);
  while(s != NULL) {
    sscanf(s,"%d",&ia);
    a = GetArc(ia,theGraph);
    if (a == 0) {
      sprintf(Description,"%d is not an internal arc number",ia);
      MetanetAlert(Description);
      return;
    }
    if (!a->hilited) {
      HiliteArc(a);
    }
    s = strtok(NULL,STRINGSEP);
  }
}

void ShowNodeSet(ns,sup)
char *ns; 
int sup;
{
  node *n;
  int in;
  char *s;

  if (menuId == BEGIN) {
    sprintf(Description,"There is no loaded graph");
    MetanetAlert(Description);
    return;
  }
  if (!sup) UnhiliteAll();
  s = strtok(ns,STRINGSEP);
  while(s != NULL) {
    sscanf(s,"%d",&in);
    n = GetNode(in,theGraph);
    if (n == 0) {
      sprintf(Description,"%d is not an internal node number",in);
      MetanetAlert(Description);
      return;
    }
    if (!n->hilited) {
      HiliteNode(n);
    }
    s = strtok(NULL,STRINGSEP);
  }
}