File: 2138.gvpr

package info (click to toggle)
graphviz 14.0.5-2
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 139,388 kB
  • sloc: ansic: 141,938; cpp: 11,957; python: 7,766; makefile: 4,043; yacc: 3,030; xml: 2,972; tcl: 2,495; sh: 1,388; objc: 1,159; java: 560; lex: 423; perl: 243; awk: 156; pascal: 139; php: 58; ruby: 49; cs: 31; sed: 1
file content (43 lines) | stat: -rw-r--r-- 1,302 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
BEGIN{
  int i, j, l, cnt;
  string POS, st, tst, tok[int];

  void tstStuff(string inStr){
 
    print ("//  tok array count: ",cnt);
    for (i=0;i<cnt;i++){
      print("// tok[",i,"]    >>",tok[i],"<<   should NOT include trailing spaces or junk chars");
      st=tok[i];
      //st=sub(tok[i],"[	 ]"); // remove tabs and spaces !!
      l=length(st);
      print("// length (st) : ",l);
      j=index(st," ");
      print("// index of space (st) : ", j, "   << must NOT be less than -1");
      st=sub(st,"[	 ]");
      print ("// st   >>",st,"<<");
      l=length(st);
      print("// length (st) : ",l);
      print("//");
    }
   }
   
  tst=" abc def   ghijk 3456789 012  ";
  print("\n*****", tst, "******");
  print("*********  space delimiter  *****************");  
  print("*********  split results  *****************");
  cnt=split(tst, tok );
  tstStuff();
  print("\n*********  tokens results  ***************");
  cnt=tokens(tst, tok );
  tstStuff();

  tst="^abc^def^^^ghijk^3456789^012^^^";
  print("\n*****", tst, "******");
  print("*********  ^ delimiter  *****************");
  print("*********  split results  *****************");
  cnt=split(tst, tok,"^" );
  tstStuff();
  print("\n*********  tokens results  ***************");
  cnt=tokens(tst, tok, "^" );
  tstStuff();
}