#!/usr/bin/perl
 @keyword=(
   'and',     'and_eq',   'asm',       'auto',    'bitand',   'bitor',
   'bool',    'break',    'case',      'catch',   'char',     'class',
   'compl',   'const',    'const_cast','continue','default',  'delete',
   'do',      'double',   'dynaminc_cast', 'else', 'enum',    'explicit', 
   'export',  'extern',   'false',     'float',   'for',      'friend',
   'goto',    'if',       'inline',    'int',     'long',     'mutable',
   'namespace','new',     'not',       'not_eq',   'operator', 'or',
   'pr_eq',   'private',  'protected',  'public',  'register', 'reinterpert_cast',
   'return',  'short',    'signed',     'sizeof',  'static',   'static_cast',
   'struc',   'switch',   'template',   'this',    'throw',    'true',
   'try',     'typedef',  'typeid',     'typename','union',    'unsigned',
   'using',   'virtual',  'void',       'volatile','wchar_t',  'while',
   'xor',     'xor_eq');
for  $file (@ARGV)  {   
$_ = $file;
 s/.cpp$/.FF/;
 s/.hpp$/.FF/;
  $fileo = $_;
 open(file,$file) || (die "Can't open $file $!\n");
 open(fout,">$fileo") || (die "Can't open >$file-tex $!\n");
 print "$file -> $fileo \n";
 while (<file>) {
     s/\\/\\\\/g;
     foreach my $i (@keyword)
   { s/(\b$i\b)/\@$1/g; }
   print fout $_;
  };
 close(file);
 }
 print " On a fini\n";
