static void run_template_parser(void) {
/* Initialize room info */
event_signal_message(EVENT_INITSTATUS, 0, "Initializing arrays... (dungeon profiles)");
if (run_parser(&profile_parser))
quit("Cannot initialize dungeon profiles");
/* Initialize room info */
event_signal_message(EVENT_INITSTATUS, 0, "Initializing arrays... (room templates)");
if (run_parser(&room_parser))
quit("Cannot initialize room templates");
/* Initialize vault info */
event_signal_message(EVENT_INITSTATUS, 0, "Initializing arrays... (vaults)");
if (run_parser(&v_parser))
quit("Cannot initialize vaults");
}
// append opens the given file or stream and parses it as a .dc file. The distributed
// classes defined in the file are added to the list of classes associated with the File.
// When appending from a stream, a filename is optional only used to report errors.
bool append(File* f, istream &in, const string &filename)
{
init_file_parser(in, filename, *f);
run_parser();
cleanup_parser();
return (parser_error_count() == 0);
}
void __fastcall TForm3::Button1Click(TObject *Sender)
{
char file_name[1024];
char gramm[1024];
strncpy( file_name , (OpenDialog1->FileName).c_str() , (OpenDialog1->FileName).Length()+1 );
scanner( file_name );
strncpy( gramm , (OpenDialog2->FileName).c_str() , (OpenDialog2->FileName).Length()+1 );
run_parser( TreeView1 , gramm );
TreeView1->FullExpand();
}
int main(int argc,
char **argv)
{
FILE *input = 0;
stable_Init(1024, &my_symbols);
setup_parser();
setup_walker();
if (argc > 1) {
printf("input = %s\n", argv[1]);
input = fopen(argv[1], "r");
}
if (input) {
run_parser(input);
} else {
push_tree("Value", 0);
push_tree("Symbol", 0);
push_tree("ParameterName", 1);
push_tree("LetAssign", 2);
stack_Dup(&the_trees);
push_tree("Statement", 0);
push_tree("Let", 3);
stack_Dup(&the_trees);
push_tree("Block", 2);
}
if (!the_trees.top) return 0;
Node_test value = the_trees.top->value;
node_Print(0, value);
if (!run_walker(value)) return 1;
return 0;
}
string parse_value(const DistributedType* dtype, istream &in, bool &err)
{
string value;
try
{
init_value_parser(in, "parse_value()", dtype, value);
run_parser();
cleanup_parser();
}
catch(const exception& e)
{
err = true;
return string("parse_value() error: ") + e.what();
}
if(parser_error_count() > 0)
{
err = true;
return string("parse value(): unknown error");
}
err = false;
return value;
}
void store_init(void)
{
event_signal_message(EVENT_INITSTATUS, 0, "Initializing stores...");
if (run_parser(&store_parser)) quit("Can't initialize stores");
stores = flatten_stores(stores);
}
int main(int argc, char ** argv) {
int ret, exit_status = NETLOC_SUCCESS;
int i;
netloc_network_t *network = NULL;
netloc_data_collection_handle_t *dc_handle = NULL;
/*
* Parse Args
*/
if( 0 != parse_args(argc, argv) ) {
printf("Usage: %s %s|%s <controller> [%s|%s <subnet id>] [%s|%s <output directory>] [%s|%s <URL Address:Port>] [%s|%s <username>] [%s|%s <password>] [%s|%s]\n",
argv[0],
ARG_CONTROLLER, ARG_SHORT_CONTROLLER,
ARG_SUBNET, ARG_SHORT_SUBNET,
ARG_OUTDIR, ARG_SHORT_OUTDIR,
ARG_ADDRESS, ARG_SHORT_ADDRESS,
ARG_AUTH_USER, ARG_SHORT_AUTH_USER,
ARG_AUTH_PASS, ARG_SHORT_AUTH_PASS,
ARG_HELP, ARG_SHORT_HELP);
printf(" Default %-10s = \"unknown\"\n", ARG_SUBNET);
printf(" Default %-10s = \"127.0.0.1:8080\"\n", ARG_ADDRESS);
printf(" Default %-10s = current working directory\n", ARG_OUTDIR);
printf(" Valid Options for %s:\n", ARG_CONTROLLER );
// Note: Hide 'noop' since it is only meant for debugging, and not for normal use
for(i = 1; i < num_valid_controllers; ++i) {
printf("\t\t%s\n", valid_controllers[i] );
}
return NETLOC_ERROR;
}
/*
* Run the parser requested
*/
if( 0 != (ret = run_parser() ) ) {
return ret;
}
/*
* Setup network information
*/
network = netloc_dt_network_t_construct();
ret = extract_network_info_from_json_file(network, out_file_nodes);
if( NETLOC_SUCCESS != ret ) {
fprintf(stderr, "Error: Failed to extract network information from the file: %s\n", out_file_nodes);
return ret;
}
dc_handle = netloc_dc_create(network, outdir);
if( NULL == dc_handle ) {
fprintf(stderr, "Error: Failed to create a new data file\n");
return ret;
}
netloc_dt_network_t_destruct(network);
network = NULL;
/*
* Convert the temporary node file to the proper format
*/
if( 0 != (ret = convert_nodes_file(dc_handle)) ) {
exit_status = ret;
goto cleanup;
}
/*
* Find all physical paths
*/
if( 0 != (ret = compute_physical_paths(dc_handle)) ) {
exit_status = ret;
goto cleanup;
}
cleanup:
/*
* Close the handle
*/
ret = netloc_dc_close(dc_handle);
if( NETLOC_SUCCESS != ret ) {
fprintf(stderr, "Error: Failed to close the data connection!\n");
return ret;
}
netloc_dt_data_collection_handle_t_destruct(dc_handle);
dc_handle = NULL;
/*
* Validate the resulting .dat files
*/
if( 0 == exit_status ) {
if( 0 != (ret = check_dat_files() ) ) {
return ret;
}
}
free(outdir);
free(out_file_nodes);
free(subnet);
free(uri_address);
free(auth_username);
free(auth_password);
return exit_status;
}
