wmake/src/dirToString.c

   1 /*----------------------------------------------------------------------------*\
   2  =========                   |
   3  \\      /   F ield          | OpenFOAM: The Open Source CFD Toolbox
   4   \\    /    O peration      |
   5    \\  /     A nd            | Copyright (C) 1991-2008 OpenCFD Ltd.
   6     \\/      M anipulation   |
   7 -------------------------------------------------------------------------------
   8 License
   9     This file is part of OpenFOAM.
  10
  11     OpenFOAM is free software; you can redistribute it and/or modify it
  12     under the terms of the GNU General Public License as published by the
  13     Free Software Foundation; either version 2 of the License, or (at your
  14     option) any later version.
  15
  16     OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
  17     ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  18     FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  19     for more details.
  20
  21     You should have received a copy of the GNU General Public License
  22     along with OpenFOAM; if not, write to the Free Software Foundation,
  23     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
  24
  25 Application
  26     dirToString
  27
  28 Description
  29     converts a directory path into a string with appropriate capitalisation
  30     e.g. dir1/dir2 becomes dir1Dir2
  31
  32 Usage
  33     echo dirName | dirToString
  34
  35     e.g.
  36         using csh
  37         set baseDirName=`echo $dir | sed 's%^\./%%' | $rulesPath/dirToString`
  38
  39         using ksh
  40         baseDirName=`echo $dir | sed 's%^\./%%' | $rulesPath/dirToString`
  41
  42 \*----------------------------------------------------------------------------*/
  43
  44 #include <stdio.h>
  45 #include <stdlib.h>
  46 #include <ctype.h>
  47
  48 int main()
  49 {
  50     int c;
  51     int nextupper = 0;
  52
  53     while ((c=getchar()) != EOF)
  54     {
  55         if (c == '/')
  56         {
  57             nextupper = 1;
  58         }
  59         else
  60         {
  61             if (nextupper)
  62             {
  63                 putchar(toupper(c));
  64             }
  65             else
  66             {
  67                 putchar(c);
  68             }
  69
  70             nextupper = 0;
  71         }
  72     }
  73
  74     return 0;
  75 }
  76
  77
  78 /*****************************************************************************/