Timetable file pooldef.ttt

   1  $REQUIRE GETOPT.TTT
   2  $REQUIRE BG_DEF.TTT
   3  $REQUIRE JMD_DEF.TTT
   4  {MLGS??
   5  $REQUIRE REPLACE_MLG.TTT
   6  }
   7  #==============================================================================
   8  %*DEF(POOLFLAGS=F=SDEGLMFPUOXWZNBRCATR1234567;)
   9  # 1 - 7 Epoche
  10
  11  # A     Winter (f. e. Snowplow)
  12  # B     Night
  13  # C     Stadtverkehr/city traffic
  14  # D     Diesel
  15  # E     Elektrisch
  16  # F     Freight
  17  # G     Gleichstrom / andere Oberleitung
  18  # L     Niedrigere Oberleitung
  19  # M     Stromschiene
  20  # N     Narrow gauge/secondary line
  21  # O     Operation - not M=SIMPLE
  22  # P     Personenzug
  23  # R     Regional passenger train (stops at small stations)
  24  # S     Steam
  25  # T     Open door (stops behind the plattform)
  26  # U     Wendezug
  27  # W     Bahndienst (Work)
  28  # X     andere Oberleitung ( Landabhängig )
  29  # Z     Opaque
  30  #------------------------------------------------------------------------------
  31  {H?                     $POOL N=POOL_HUN;       %POOLFLAGS; AP2=M_ENV;  }
  32  {D&(E1|E2)?             $POOL N=POOL_GHIST;     %POOLFLAGS; AP2=DE_ENV; }
  33  {(D|BRD)&(E3|E4)?       $POOL N=POOL_BRD;       %POOLFLAGS; AP2=DE_ENV; }
  34  {D&(E5|E6)?             $POOL N=POOL_GER;       %POOLFLAGS; AP2=DE_ENV; }
  35  {(D|DDR)&(E3|E4)?       $POOL N=POOL_DDR;       %POOLFLAGS; AP2=DR_ENV; }
  36  {CH?                    $POOL N=POOL_CH;        %POOLFLAGS; AP2=CH_ENV; }
  37  {A?                     $POOL N=POOL_A;         %POOLFLAGS; AP2=A_ENV;  }
  38  {GB?                    $POOL N=POOL_GB;        %POOLFLAGS; AP2=GB_ENV; }
  39  {IE?                    $POOL N=POOL_IR;        %POOLFLAGS; AP2=IR_ENV; }
  40  {F?                     $POOL N=POOL_F;         %POOLFLAGS; AP2=F_ENV;  }
  41  {B?                     $POOL N=POOL_B;         %POOLFLAGS; AP2=B_ENV;  }
  42  {L?                     $POOL N=POOL_L;         %POOLFLAGS; AP2=L_ENV;  }
  43  {NL?                    $POOL N=POOL_NL;        %POOLFLAGS; AP2=NL_ENV; }
  44  {DK?                    $POOL N=POOL_DK;        %POOLFLAGS; AP2=DK_ENV; }
  45  {N?                     $POOL N=POOL_N;         %POOLFLAGS; AP2=N_ENV;  }
  46  {S?                     $POOL N=POOL_S;         %POOLFLAGS; AP2=S_ENV;  }
  47  {SF?                    $POOL N=POOL_SF;        %POOLFLAGS; AP2=FI_ENV; }
  48  {P?                     $POOL N=POOL_P;         %POOLFLAGS; AP2=P_ENV;  }
  49  {E?                     $POOL N=POOL_E;         %POOLFLAGS; AP2=E_ENV;  }
  50  {I?                     $POOL N=POOL_I;         %POOLFLAGS; AP2=I_ENV;  }
  51  {CSD|CS?                $POOL N=POOL_CS;        %POOLFLAGS; AP2=CS_ENV; }
  52  {SK?                    $POOL N=POOL_SK;        %POOLFLAGS; AP2=SK_ENV; }
  53  {PL?                    $POOL N=POOL_PL;        %POOLFLAGS; AP2=PL_ENV; }
  54  {RO?                    $POOL N=POOL_RO;        %POOLFLAGS; AP2=RO_ENV; }
  55  {SLO?                   $POOL N=POOL_SLO;       %POOLFLAGS; AP2=SLO_ENV;}
  56  {HR?                    $POOL N=POOL_HR;        %POOLFLAGS; AP2=HR_ENV; }
  57  {YU?                    $POOL N=POOL_YU;        %POOLFLAGS; AP2=YU_ENV; }
  58  {HSH?                   $POOL N=POOL_HSH;       %POOLFLAGS; AP2=YU_ENV; }
  59  {BG?                    $POOL N=POOL_BG;        %POOLFLAGS; AP2=BG_ENV; }
  60  {GR?                    $POOL N=POOL_GR;        %POOLFLAGS; AP2=GR_ENV; }
  61  {TR?                    $POOL N=POOL_TR;        %POOLFLAGS; AP2=TR_ENV; }
  62  {SU|RZD|UZ|BCH|EVR|LDZ|LG|GEO|AZ|KAZ|MD|UZB|ARM?
  63                          $POOL N=POOL_SU;        %POOLFLAGS; AP2=SU_ENV; }
  64  {USA|MEX|CAN?           $POOL N=POOL_USA;       %POOLFLAGS; AP2=US_ENV; }
  65  {J?                     $POOL N=POOL_JP;        %POOLFLAGS; AP2=J_ENV;  }
  66  {CN?                    $POOL N=POOL_CN;        %POOLFLAGS; AP2=CN_ENV; }
  67  {IND?                   $POOL N=POOL_IND;       %POOLFLAGS; AP2=IND_ENV; }
  68  {SA?                    $POOL N=POOL_SA;        %POOLFLAGS; AP2=SA_ENV; }
  69  {ASSD?                  $POOL N=POOL_OTH;       %POOLFLAGS; AP2=YU_ENV; }
  70  {AS?                    $POOL N=POOL_AS;        %POOLFLAGS; AP2=AS_ENV; }
  71  {AF?                    $POOL N=POOL_AF;        %POOLFLAGS; AP2=AF_ENV; }
  72  {NE?                    $POOL N=POOL_NE;        %POOLFLAGS; AP2=NE_ENV; }
  73  {AUS?                   $POOL N=POOL_AUS;       %POOLFLAGS; AP2=AUS_ENV;}
  74  {FAN?                   $POOL N=POOL_PHA;       %POOLFLAGS; AP2=YU_ENV; }
  75  #------------------------------------------------------------------------------
  76  $DEF Q_H=[POOL=POOL_HUN:#O#T]
  77  $DEF Q_D=[POOL=POOL_GHIST:#O#T]|[POOL=POOL_BRD:#O]|[POOL=POOL_DDR:#O#T]|[POOL=POOL_GER:#O#T]
  78  $DEF Q_CH=[POOL=POOL_CH:#O#T]
  79  $DEF Q_F=[POOL=POOL_F:#O#T]
  80  $DEF Q_A=[POOL=POOL_A:#O#T]
  81  $DEF Q_B=[POOL=POOL_B:#O#T]
  82  $DEF Q_L=[POOL=POOL_L:#O#T]
  83  $DEF Q_NL=[POOL=POOL_NL:#O#T]
  84  $DEF Q_N=[POOL=POOL_N:#O]|[POOL=POOL_S:#O]|[POOL=POOL_SF:#O#T]
  85  $DEF Q_I=[POOL=POOL_I:#O#T]
  86
  87  $DEF QP=Q_H|Q_D|Q_F|Q_NL
  88  $SET QP={H|BRD|DDR|F|NL?1?0}
  89
  90  $DEF QH=Q_D|Q_F|Q_B|Q_L|Q_I
  91  $SET QH={BRD|DDR|F|B|L|I?1?0}
  92
  93  $DEF QM=Q_CH|Q_A|Q_I
  94  $SET QM={CH|I?1?0}
  95
  96  $DEF QN=Q_N
  97  $SET QN={N|S|SF?1?0}
  98  #------------------------------------------------------------------------------
  99  %*DEF(ADDPOOL(N,E)=$ADDPOOL N=%N;; %POOLFLAGS; AP2=%E;;)
 100  %*DEF(ENDPOOL=$ENDPOOL)
 101  #------------------------------------------------------------------------------
 102  #{OWN??
 103    {(D|BRD)?
 104      $REQUIRE MLG_DE3B.TTT
 105      $REQUIRE MLG_DE4A.TTT
 106      $REQUIRE MLG_DE4B.TTT
 107      $REQUIRE MLG_DE5A.TTT
 108      $REQUIRE MLG_DE5B.TTT
 109      $REQUIRE MLG_DE6.TTT
 110      $REQUIRE MLG_DR9193.TTT
 111    }
 112    {CH?
 113      $REQUIRE MLG_CH45A.TTT
 114      $REQUIRE MLG_CH5B6.TTT
 115    }
 116    {A?
 117      $REQUIRE MLG_A.TTT
 118    }
 119    {F?
 120      $REQUIRE MLG_SNCF3B.TTT
 121      $REQUIRE MLG_SNCF4A.TTT
 122      $REQUIRE MLG_SNCF4B.TTT
 123      $REQUIRE MLG_SNCF5A.TTT
 124      $REQUIRE MLG_SNCF5B.TTT
 125      $REQUIRE MLG_SNCF6.TTT
 126      $REQUIRE MLG_FRVM.TTT
 127    }
 128    {L?
 129      $REQUIRE MLG_L.TTT
 130    }
 131    {B?
 132      $REQUIRE MLG_B.TTT
 133      $REQUIRE MLG_B3B.TTT
 134    }
 135    {NL?
 136      $REQUIRE MLG_NL.TTT
 137    }
 138    {DK?
 139      $REQUIRE MLG_DK.TTT
 140    }
 141    {I?
 142      $REQUIRE MLG_ITALY.TTT
 143    }
 144    {CSD|CS|SK?
 145      $REQUIRE MLG_CS.TTT
 146    }
 147
 148    {MLGT??
 149      {H?
 150        $REQUIRE JMD_HUNGARY.TTT
 151        $REQUIRE LB_HUNGARY.TTT
 152      }
 153      {D&(E1|E2)?
 154        $REQUIRE JMD_GHIST.TTT
 155        $REQUIRE LB_GHIST.TTT
 156      }
 157      {(D|BRD|DDR)&(E3|E4|E5|E6)?
 158        $REQUIRE JMD_BRD.TTT
 159        $REQUIRE LB_BRD.TTT
 160        $REQUIRE JMD_DDR.TTT
 161        $REQUIRE LB_DDR.TTT
 162      }
 163      {CH?
 164        $REQUIRE JMD_SWISS.TTT
 165        $REQUIRE LB_SWISS.TTT
 166      }
 167      {A?
 168        $REQUIRE JMD_AUSTRIA.TTT
 169        $REQUIRE LB_AUSTRIA.TTT
 170      }
 171      {GB?
 172        $REQUIRE JMD_BRITAIN.TTT
 173        $REQUIRE LB_BRITAIN.TTT
 174      }
 175      {F?
 176        $REQUIRE JMD_FRANCE.TTT
 177        $REQUIRE LB_FRANCE.TTT
 178      }
 179      {B|L|NL?
 180        $REQUIRE JMD_BENELUX.TTT
 181        $REQUIRE LB_BENELUX.TTT
 182      }
 183      {DK|N|S|SF?
 184        $REQUIRE JMD_EUNORD.TTT
 185        $REQUIRE LB_EUNORD.TTT
 186      }
 187      {P|E?
 188        $REQUIRE JMD_HISP.TTT
 189        $REQUIRE LB_HISP.TTT
 190      }
 191      {I?
 192        $REQUIRE JMD_ITALY.TTT
 193        $REQUIRE LB_ITALY.TTT
 194      }
 195      {CSD|CS|SK?
 196        $REQUIRE JMD_CS.TTT
 197        $REQUIRE LB_CS.TTT
 198      }
 199      {PL?
 200        $REQUIRE JMD_POLAND.TTT
 201        $REQUIRE LB_POLAND.TTT
 202      }
 203      {IE|RO|SLO|HR|YU|BG|GR|HSH|TR|ASSD?
 204        $REQUIRE JMD_EUOTHER.TTT
 205        $REQUIRE LB_EUOTHER.TTT
 206      }
 207      {SU|RZD|UZ|BCH|EVR|LDZ|LG|GEO|AZ|KAZ|MD|ARM?
 208        $REQUIRE JMD_SU.TTT
 209        $REQUIRE LB_SU.TTT
 210      }
 211      {USA?
 212        $REQUIRE JMD_USA.TTT
 213        $REQUIRE LB_USA.TTT
 214      }
 215      {J|CN|IND?
 216        $REQUIRE JMD_ASIA.TTT
 217      }
 218      {AUS|SA?
 219        $REQUIRE JMD_OTHER.TTT
 220      }
 221      {J|CN|SA|USA|AS|AF|NE?
 222        $REQUIRE LB_OTHER.TTT
 223      }
 224      {FAN?
 225        $REQUIRE LB_PHA.TTT
 226      }
 227      {CH|E|ASSD|SA|F|SU|CN|AS|AF?
 228        $REQUIRE ZSZ_OTHPOOL.TTT
 229      }
 230      {J?
 231        $REQUIRE ZSZ_JAPAN.TTT
 232      }
 233    }
 234  #}
 235
 236  {MLGT??
 237    {%FILEX(MM_OWN.ttt)?
 238      $REQUIRE MM_OWN.TTT
 239    }
 240  }