// Check for any unnamed construction class that does not contain a capital
// letter.
*operation* int check_class_names()
  *init* (@ 1 @)

    *traverse* *join* (*from*      Cd_graph
                       *to*        Regular,

                       *from*      Regular
                       *bypassing* ->Term,actual_parameters,*
                       *to*        Vertex)

  *wrapper* Cd_graph
    *prefix* (@ cout << "Checking that if a class is used without a label, "
                     << "then the name of" << endl 
                     << "this class must contain at least one capital letter "
                     << "..." << endl;
              @)

  *wrapper* Vertex
    *prefix* (@ char* ptr = this->get_vertex_name()->get_val();
                int val = 1;
                while (*ptr != '\0') {
                  if ((*ptr >= 'A') && (*ptr <= 'Z')) val = 0;
                  ptr++;
                }
                if (val) {
                  return_val = 0;
                  cout << "sem-check: error: on line "
                       << this->get_vertex_name()->get_line_number()
                       << " class '";
                  this->get_vertex_name()->g_print();
                  cout << "' contains no CAPITAL letter" << endl
                       << "\t\tbut is used without a label." << endl;
                }
              @)