/[eiffelstudio]/trunk/Src/bench/Eiffel/API/queries/e_show_classes.e
ViewVC logotype

Diff of /trunk/Src/bench/Eiffel/API/queries/e_show_classes.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 57780 by tedf, Fri Mar 10 20:30:45 2006 UTC revision 57781 by patrickr, Mon Mar 27 17:11:27 2006 UTC
# Line 22  feature -- Execution Line 22  feature -- Execution
22          work is          work is
23                          -- Show classes in universe                          -- Show classes in universe
24                  local                  local
25                          clusters: ARRAYED_LIST [CLUSTER_I];                          l_groups: ARRAYED_LIST [CONF_GROUP];
26                          cursor: CURSOR;                          cursor: CURSOR;
27                          classes: HASH_TABLE [CLASS_I, STRING];                          l_classes: HASH_TABLE [CONF_CLASS, STRING];
28                          sorted_classes: SORTED_TWO_WAY_LIST [CLASS_I];                          l_sorted_classes: SORTED_TWO_WAY_LIST [CONF_CLASS];
29                          a_classi: CLASS_I;                          a_classi: CLASS_I;
30                          a_classe: CLASS_C;                          a_classe: CLASS_C;
31                  do                  do
32                          clusters := Eiffel_universe.clusters;                          l_groups := Eiffel_universe.groups
33                          if not clusters.is_empty then                          if not l_groups.is_empty then
34                                  create sorted_classes.make;                                  create l_sorted_classes.make;
35                                  from                                  from
36                                          clusters.start                                          l_groups.start
37                                  until                                  until
38                                          clusters.after                                          l_groups.after
39                                  loop                                  loop
40                                          cursor := clusters.cursor;                                          cursor := l_groups.cursor;
41                                          classes := clusters.item.classes;                                          l_classes := l_groups.item.classes;
42                                          from                                          if l_classes /= Void then
43                                                  classes.start                                                  from
44                                          until                                                          l_classes.start
45                                                  classes.after                                                  until
46                                          loop                                                          l_classes.after
47                                                  sorted_classes.put_front (classes.item_for_iteration);                                                  loop
48                                                  classes.forth                                                          l_sorted_classes.put_front (l_classes.item_for_iteration);
49                                          end;                                                          l_classes.forth
50                                          clusters.go_to (cursor);                                                  end;
51                                          clusters.forth                                          end
52                                            l_groups.go_to (cursor);
53                                            l_groups.forth
54                                  end;                                  end;
55                                  sorted_classes.sort;                                  l_sorted_classes.sort;
56                                  from                                  from
57                                          sorted_classes.start                                          l_sorted_classes.start
58                                  until                                  until
59                                          sorted_classes.after                                          l_sorted_classes.after
60                                  loop                                  loop
61                                          a_classi := sorted_classes.item;                                          a_classi ?= l_sorted_classes.item;
62                                            check
63                                                    a_classi_not_void: a_classi /= Void
64                                            end
65                                          a_classe := a_classi.compiled_class;                                          a_classe := a_classi.compiled_class;
66                                          if a_classe /= Void then                                          if a_classe /= Void then
67                                                  a_classe.append_signature (text_formatter, True)                                                  a_classe.append_signature (text_formatter, True)
# Line 65  feature -- Execution Line 70  feature -- Execution
70                                          end;                                          end;
71                                          text_formatter.add_new_line;                                          text_formatter.add_new_line;
72                                          text_formatter.add_indent;                                          text_formatter.add_indent;
73                                          text_formatter.add ("-- Cluster: ");                                          text_formatter.add ("-- Group: ");
74                                          text_formatter.add_cluster (a_classi.cluster, a_classi.cluster.cluster_name);                                          text_formatter.add_group (a_classi.group, a_classi.group.name);
75                                          text_formatter.add_new_line;                                          text_formatter.add_new_line;
76                                          sorted_classes.forth                                          l_sorted_classes.forth
77                                  end                                  end
78                          end                          end
79                  end;                  end;

Legend:
Removed from v.57780  
changed lines
  Added in v.57781

  ViewVC Help
Powered by ViewVC 1.1.23