chiark / gitweb /
WIP routesearch; change LP variable names in routetrade to be more like those in...
[ypp-sc-tools.db-test.git] / yarrg / rsmain.c
1 /**/
2
3 #include "rscommon.h"
4
5 int o_quiet= 0;
6 double max_mass=-1, max_volu=-1, max_capi=-1;
7 double distance_loss_factor_per_league;
8 int max_dist= -1;
9
10 int main(int argc, const char **argv) {
11   const char *arg;
12
13   debug_flags= ~( dbg_sql2 );
14   sysassert( !setvbuf(debug,0,_IOLBF,0) );
15
16   setup_sql();
17   setup_value();
18   setup_search();
19
20   max_mass= atof(*++argv);
21   max_volu= atof(*++argv);
22   max_capi= atof(*++argv);
23   double loss_per_league= atof(*++argv);
24
25   if (!loss_per_league) loss_per_league= 1e-7;
26   distance_loss_factor_per_league= 1.0 - loss_per_league;
27   
28   arg= *++argv;
29   if (!strcmp(arg,"specific")) {
30     int ia[argc], ni=0;
31     while ((arg= *++argv))
32       ia[ni++]= atoi(arg);
33
34     double val= value_route(ni, ia);
35     printf("route value is %g\n", val);
36   } else if (!strcmp(arg,"search")) {
37     max_dist= atoi(*++argv);
38     while ((arg= *++argv))
39       search(atoi(arg));
40   } else {
41     abort();
42   }
43   return 0;
44 }