tools/flexcat/contrib/Storm_FlexCat/FlexCatCatalog.srx

   1 /*
   2         FlexCatCatalog.srx
   3         created by Christian Hattemer
   4         chris@mail.riednet.wh.tu-darmstadt.de
   5
   6         Compile a catalog description file to a catalog translation
   7         and a catalog file.
   8
   9         $VER FlexCatCatalog.srx 1.2 (26.01.99)
  10 */
  11
  12 /* Don't forget the point '.' at the end      \/        */
  13 PARSE ARG '"' Filename '"' '"' Projectname '"' .
  14
  15 Projname = SUBSTR(Projectname,LASTPOS('/',Projectname)+1)
  16 Projname = LEFT(Projname,LASTPOS('.¶',Projname)-1)
  17 Lang     = LEFT(Filename,LASTPOS('/',Filename)-1)
  18 Dir      = LEFT(Lang,LASTPOS('/',Lang)-1)
  19
  20 CdFile   = Dir||"/"||Projname||".cd"
  21 Catalog  = Lang||"/"||Projname||".catalog"
  22
  23 /* set object file of catalog file */
  24 OBJECTS Filename Catalog Filename
  25 DEPENDENCIES Filename CdFile
  26
  27 /* compile */
  28 ADDRESS COMMAND "FlexCat "||CdFile||" "||Filename||" NEWCTFILE "||Filename
  29 ADDRESS COMMAND "FlexCat "||CdFile||" "||Filename||" CATALOG "||Catalog||" FLUSH"
  30