2236         s4o.print("; ");

  2236         s4o.print("; ");

  2237         s4o.printupper(current_program_name);

  2237         s4o.printupper(current_program_name);

  2238         s4o.print(".");

  2238         s4o.print(".");

  2239         symbol->symbolic_variable->accept(*this);

  2239         symbol->symbolic_variable->accept(*this);

  2240         s4o.print(" = ");

  2240         s4o.print(" = ");

  2242           s4o.print("*");

  2242           s4o.print("*");

  2243         symbol->prog_data_source->accept(*this);

  2243         symbol->prog_data_source->accept(*this);

  2244         s4o.print(";}\n");

  2244         s4o.print(";}\n");

  2245       }

  2245       }

  2246       return NULL;

  2246       return NULL;

  2267         s4o.print(s4o.indent_spaces + "{extern ");

  2267         s4o.print(s4o.indent_spaces + "{extern ");

  2268         var_decl->accept(*this);

  2268         var_decl->accept(*this);

  2269         s4o.print(" *");

  2269         s4o.print(" *");

  2270         symbol->data_sink->accept(*this);

  2270         symbol->data_sink->accept(*this);

  2271         s4o.print("; ");

  2271         s4o.print("; ");

  2273           s4o.print("*");

  2273           s4o.print("*");

  2274         symbol->data_sink->accept(*this);

  2274         symbol->data_sink->accept(*this);

  2275         s4o.print(" = ");

  2275         s4o.print(" = ");

  2276         s4o.printupper(current_program_name);

  2276         s4o.printupper(current_program_name);

  2277         s4o.print(".");

  2277         s4o.print(".");