通讯编程

开发平台：

Visual C++

queen.w：源码内容

							% This file is part of the Stanford GraphBase (c) Stanford University 1993
@i boilerplate.w %<< legal stuff: PLEASE READ IT BEFORE MAKING ANY CHANGES!
@i gb_types.w
deftitle{QUEEN}
@* Queen moves.
This is a short demonstration of how to generate and traverse graphs
with the Stanford GraphBase. It creates a graph with 12 vertices,
representing the cells of a $3times4$ rectangular board; two
cells are considered adjacent if you can get from one to another
by a queen move. Then it prints a description of the vertices and
their neighbors, on the standard output file.
An ASCII file called .{queen.gb} is also produced. Other programs
can obtain a copy of the queen graph by calling |restore_graph("queen.gb")|.
You might find it interesting to compare the output of {sc QUEEN} with
the contents of .{queen.gb}; the former is intended to be readable
by human beings, the latter by computers.
@p
#include "gb_graph.h" /* we use the {sc GB_,GRAPH} data structures */
#include "gb_basic.h" /* we test the basic graph operations */
#include "gb_save.h" /* and we save our results in ASCII format */
@#
main()
{@+Graph *g,*gg,*ggg;
  g=board(3L,4L,0L,0L,-1L,0L,0L); /* a graph with rook moves */
  gg=board(3L,4L,0L,0L,-2L,0L,0L); /* a graph with bishop moves */
  ggg=gunion(g,gg,0L,0L); /* a graph with queen moves */
  save_graph(ggg,"queen.gb"); /* generate an ASCII file for |ggg| */
  @<Print the vertices and edges of |ggg|@>;
  return 0; /* normal exit */
}
@ @<Print the vertices and edges of |ggg|@>=
if (ggg==NULL) printf("Something went wrong (panic code %ld)!n",panic_code);
else {
  register Vertex *v; /* current vertex being visited */
  printf("Queen Moves on a 3x4 Boardnn");
  printf("  The graph whose official name isn%sn", ggg->id);
  printf("  has %ld vertices and %ld arcs:nn", ggg->n, ggg->m);
  for (v=ggg->vertices; v<ggg->vertices+ggg->n; v++) {
    register Arc *a; /* current arc from |v| */
    printf("%sn", v->name);
    for (a=v->arcs; a; a=a->next)
      printf("  -> %s, length %ldn", a->tip->name, a->len);
  }
}
@* Index.

						