← Back to branch summary

~libecbufr-dev/libecbufr/trunk

« back to all changes in this revision

Viewing changes to API/Sources/bufr_tables.c

  • Committer: Michel Van Eeckhout
  • Date: 2010-03-12 16:37:56 UTC
  • mto: This revision was merged to the branch mainline in revision 109.
  • Revision ID: afsmmve@corbeau-20100312163756-n9fpy2r26y19ttxr
Modified sources for internationalisation + added m4 and po directories.

Show diffs side-by-side

added added

removed removed

Lines of Context:
API/Sources/bufr_tables.c
38
38
#include "bufr_value.h"
39
39
#include "bufr_tables.h"
40
40
#include "bufr_sequence.h"
 
41
#include "bufr_i18n.h"
41
42
 
42
43
static int          bad_descriptor=0;
43
44
static BufrValueEncoding bufr_errtbe;
617
618
            ival = *pival;
618
619
            if (ival == desc)
619
620
               {
620
 
               sprintf( errmsg, "Warning: Table D descriptor : %d is in a circular loop\n", desc );
 
621
               sprintf( errmsg, _("Warning: Table D descriptor : %d is in a circular loop\n"), desc );
621
622
               bufr_print_debug( errmsg );
622
623
               return -1;
623
624
               }
628
629
      etd = bufr_fetch_tableD( tbls, desc );
629
630
      if (etd == NULL)
630
631
         {
631
 
         sprintf( errmsg, "Warning: invalid Table D descriptor : %d\n", desc );
 
632
         sprintf( errmsg, _("Warning: invalid Table D descriptor : %d\n"), desc );
632
633
         bufr_print_debug( errmsg );
633
634
         return -1;
634
635
         }
669
670
      case 3 :
670
671
         {
671
672
         char buf[128];
672
 
         sprintf( buf, "Warning: Not table B descriptor %d\n", desc );
 
673
         sprintf( buf, _("Warning: Not table B descriptor %d\n"), desc );
673
674
         bufr_print_output( buf );
674
675
         bufr_print_debug( buf );
675
676
         return NULL;
691
692
         {
692
693
         char buf[128];
693
694
 
694
 
         sprintf( buf, "Warning: Unknown BUFR descriptor: %d\n", desc );
 
695
         sprintf( buf, _("Warning: Unknown BUFR descriptor: %d\n"), desc );
695
696
         bufr_print_output( buf );
696
697
         bufr_print_debug( buf );
697
698
         }
736
737
   if (e == NULL)
737
738
      {
738
739
      char buf[128];
739
 
      sprintf( buf, "Warning: Table D Code unknown: %d\n", desc );
 
740
      sprintf( buf, _("Warning: Table D Code unknown: %d\n"), desc );
740
741
      bufr_print_debug( buf );
741
742
      }
742
743
   return e;
769
770
   if (e == NULL)
770
771
      e = bufr_tabled_match_sequence( tbls->master.tableD, ndesc, desc );
771
772
   if (e == NULL)
772
 
      bufr_print_debug( "Warning: Table D sequence not found\n" );
 
773
      bufr_print_debug( _("Warning: Table D sequence not found\n") );
773
774
   return e;
774
775
   }
775
776
 
837
838
   fp = fopen ( filename, "r" ) ;
838
839
   if (fp == NULL)
839
840
      {
840
 
      sprintf( buf, "Warning: can't open Table B file %s\n", filename );
 
841
      sprintf( buf, _("Warning: can't open Table B file %s\n"), filename );
841
842
      bufr_print_debug( buf );
842
843
      return NULL;
843
844
      }
918
919
#if DEBUG
919
920
         if (isdebug)
920
921
            {
921
 
            sprintf( buf, "Skipped invalid descriptor: %s\n", ligne );
 
922
            sprintf( buf, _("Skipped invalid descriptor: %s\n"), ligne );
922
923
            bufr_print_debug( buf );
923
924
            }
924
925
#endif
936
937
#if DEBUG
937
938
            if (isdebug)
938
939
               {
939
 
               sprintf( buf, "Skipped local descriptor: %s\n", ligne );
 
940
               sprintf( buf, _("Skipped local descriptor: %s\n"), ligne );
940
941
               bufr_print_debug( buf );
941
942
               }
942
943
#endif
964
965
      etb->encoding.type        = bufr_unit_to_datatype( etb->unit );
965
966
      if (etb->encoding.type == TYPE_UNDEFINED)
966
967
         {
967
 
         sprintf( errmsg, "Warning: error while loading Table B file: %s\n", 
 
968
         sprintf( errmsg, _("Warning: error while loading Table B file: %s\n"), 
968
969
            filename );
969
970
         bufr_print_debug( errmsg );
970
 
         sprintf( errmsg, "Error reading descriptor: %d unit=\"%s\"\n", 
 
971
         sprintf( errmsg, _("Error reading descriptor: %d unit=\"%s\"\n"), 
971
972
                etb->descriptor, etb->unit );
972
973
         bufr_print_debug( errmsg );
973
974
         }
974
975
#if DEBUG
975
976
      if (isdebug)
976
977
         {
977
 
         sprintf( buf, "Loaded descriptor: %s\n", ligne );
 
978
         sprintf( buf, _("Loaded descriptor: %s\n"), ligne );
978
979
         bufr_print_debug( buf );
979
980
         }
980
981
#endif
1223
1224
   fp = fopen ( filename, "r" ) ;
1224
1225
   if (fp == NULL)
1225
1226
                {
1226
 
      sprintf( ligne, "Warning: can't open Table D file %s\n", filename );
 
1227
      sprintf( ligne, _("Warning: can't open Table D file %s\n"), filename );
1227
1228
      bufr_print_debug( ligne );
1228
1229
      return NULL;
1229
1230
      }
1642
1643
      bufr_errtbe = *be;
1643
1644
      bad_descriptor = code;
1644
1645
      bufr_errcode = BUFR_TB_UNDERFLOW;
1645
 
      sprintf( buffer, "Warning: UNDERFLOW with element %d : value = %e, giving %lld",
 
1646
      sprintf( buffer, _("Warning: UNDERFLOW with element %d : value = %e, giving %lld"),
1646
1647
               code, fval, ival );
1647
1648
      bufr_print_debug( buffer );
1648
1649
      ival = -1;
1655
1656
      bufr_errtbe = *be;
1656
1657
      bad_descriptor = code;
1657
1658
      bufr_errcode = BUFR_TB_OVERFLOW;
1658
 
      sprintf( buffer, "Warning: OVERFLOW with element %d (max=%lld) : value = %e, giving %lld",
 
1659
      sprintf( buffer, _("Warning: OVERFLOW with element %d (max=%lld) : value = %e, giving %lld"),
1659
1660
               code, maxval, fval, ival );
1660
1661
      bufr_print_debug( buffer );
1661
1662
      ival = -1;
1753
1754
      bufr_errtbe = *be;
1754
1755
      bad_descriptor = code;
1755
1756
      bufr_errcode = BUFR_TB_UNDERFLOW;
1756
 
      sprintf( buffer, "Warning: UNDERFLOW with element %d : value = %f, giving %lld",
 
1757
      sprintf( buffer, _("Warning: UNDERFLOW with element %d : value = %f, giving %lld"),
1757
1758
               code, dval, ival );
1758
1759
      bufr_print_debug( buffer );
1759
1760
      ival = -1;
1765
1766
      bufr_errtbe = *be;
1766
1767
      bad_descriptor = code;
1767
1768
      bufr_errcode = BUFR_TB_OVERFLOW;
1768
 
      sprintf( buffer, "Warning: OVERFLOW with element %d (max=%lld) : value = %e, giving %lld",
 
1769
      sprintf( buffer, _("Warning: OVERFLOW with element %d (max=%lld) : value = %e, giving %lld"),
1769
1770
               code, maxval, dval, ival );
1770
1771
      bufr_print_debug( buffer );
1771
1772
      ival = -1;
2078
2079
      r = pe ? *pe : NULL;
2079
2080
      if ( r != NULL)
2080
2081
         {
2081
 
         sprintf( buf, "TableD : %d\n", r->code );
 
2082
         sprintf( buf, _("TableD : %d\n"), r->code );
2082
2083
         bufr_print_debug( buf );
2083
2084
         }
2084
2085
      }