source: src/lem_utf8/main.cc

#include "../lib/iotools.h"
//do wyrzucenia - definicja w Makefile! #define _CMDLINE_FILE "../lem/cmdline.h"
#include "../common/common.h"
#include "common_lem.h"
#include "lem.h"
#include "cmdline.h"
#include <cwchar>
#include <clocale>
#include <wctype.h>

int main(int argc, char** argv) {

   setlocale(LC_CTYPE,"");

  gengetopt_args_info args;

  if(cmdline_parser(argc, argv, &args) != 0)
    exit(1);

  process_config_files(&args,argv[0]);
  process_common_options(&args,argv[0]);
  process_lem_options(&args);
  
  wchar_t line[MAX_LINE+1];
  wchar_t outline[MAX_LINE+1];
  wchar_t parms[MAX_LINE+1], desc[MAX_LINE+1], lemma[MAX_LINE+1];
  long line_count = 0;

  Lem* lem;
  
  if(strcmp(dictionary+strlen(dictionary)-4,".bin")==0)
    lem = new Lem(dictionary);
  else if(strcmp(dictionary+strlen(dictionary)-4,".dic")==0)
    lem = new AuxLem(dictionary);
  else
    fprintf(stderr,"lem: Invalid dictionary file extension.\n");
  
  Words tab;
//   Segment seg;

  while (fgetws(line, MAX_LINE, inputf))
  {
      ++line_count;
      int start, len;
     
      char linechar[MAX_LINE+1];
      wcstombs(linechar, line, MAX_LINE+1);
      if (!process_seg(linechar, args)) // TO POWINNO BYC WCZESNIEJ ZABEZPIECZONE
              fputws(line, outputf);
      else
            {
              wchar_t form[MAX_FORM+1];

              tab.clear();
                wchar_t winput_field_prefix[MAX_LINE+1];
                mbstowcs(winput_field_prefix, input_field_prefix, MAX_LINE+1);
                getfield(line,winput_field_prefix,form); /// SEGMENTATION FAULT!!!
                /* W trakcie uzupelniania pola "4" nastepuje cos dziwnego... */
              if (form==NULL) continue;//BZDURA
              lem->ana(form, tab);
              if(tab.count()==0)
              {
                          
                wchar_t form1[MAX_FORM]; // tymczasowo tak, trzeba zmienic ana
                wchar_t* p;
                wcscpy(form1,form);
                for(p=form1;*p;++p) *p=towlower(*p);
                p=form1;
                lem->ana(p,tab);
              }
              if (tab.count() == 0) {
                fputws(line, outputf);
                 }
      
              else 
              { // mamy jakies opisy w slowniku
                if(one_line)
                      {
                        wchar_t* descp=desc;
            //wchar_t woutput_field_prefix[MAX_LINE+1];
            //mbstowcs(woutput_field_prefix, output_field_prefix, MAX_LINE+1);
                        wprintf(L"tab.count() in one-line: %d prefix: %s", tab.count(), output_field_prefix);
            for (int i=0; i< tab.count(); ++i)
                        {
                          descp += swprintf(descp,MAX_LINE, L" %s%s,%s", output_field_prefix, tab[i].lemma(), tab[i].descr());
              wprintf(L"for %d lemma '%s' descr '%s'", i, tab[i].lemma(), tab[i].descr());
                        }
            wprintf(L"descp: %ls", descp);
                        wcscpy(outline,line);
                        outline[wcslen(outline)-1]='\0';
                        wcscat(outline,descp);
                        wcscat(outline,L"\n");
                        fputws(outline, outputf);
                        if (copy_processed)
                            fputws(line,outputf);
                      }
                else if(one_field)
                      {
                  wchar_t* descp=desc;
                  for (int i=0; i< tab.count(); ++i)
                          if(i==0)
                      descp += swprintf(descp,MAX_LINE,L" %s%s,%s", output_field_prefix, tab[i].lemma(), tab[i].descr());
                          else
                          {
                                if(strcmp(tab[i].lemma(),tab[i-1].lemma())==0)
                                  descp += swprintf(descp,MAX_LINE,L",%s",tab[i].descr());
                                else
                                  descp += swprintf(descp,MAX_LINE,L";%s,%s",tab[i].lemma(),tab[i].descr());
                      }
                         
                          wcscpy(outline,line);
                        wprintf(L"%ls \n", line);
                  outline[wcslen(outline)-1]=L'\0';
                          wcscat(outline,desc);
                          wcscat(outline,L"\n");
                          fputws(outline, outputf);
                          
              if (copy_processed)  fputws(line,outputf);
                      }
          else
                      {
                          for (int i=0; i< tab.count(); ++i)
                                {
                                      swprintf(desc,MAX_LINE,L" %s%s,%s \n", output_field_prefix, tab[i].lemma(), tab[i].descr());
                                      wcscpy(outline,line);
                                      outline[wcslen(outline)-1]='\0';
                                      wcscat(outline,desc);
                                      fputws(outline, outputf);
                                }
                          if (copy_processed) fputws(line,outputf);
                      }
              } 
            }
      
      if (args.interactive_flag) fflush(outputf);
      
    }
    cmdline_parser_free(&args);
}