Blame view
tools/lia_ltbox/lia_tagg_orig/src/tagg/extract_lex_from_arpa.c
2.38 KB
e6be5137b reinitialized pro... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
/* # -------------------------------------------------------- # LIA_TAGG: a statistical POS tagger + syntactic bracketer # -------------------------------------------------------- # # Copyright (C) 2001 FREDERIC BECHET # # .................................................................. # # This file is part of LIA_TAGG # # LIA_TAGG is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # .................................................................. # # Contact : # FREDERIC BECHET - LIA - UNIVERSITE D'AVIGNON # AGROPARC BP1228 84911 AVIGNON CEDEX 09 FRANCE # frederic.bechet@lia.univ-avignon.fr # .................................................................. */ /* Extract a sirlex lexicon from a arpa lm file (=liste of unigram) */ /* FRED 1101 */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include <strings.h> /*................................................................*/ #define TailleLigne 10000 #define True 1 #define False 0 #define max(a,b) ((a)>(b)?(a):(b)) #define min(a,b) ((a)<(b)?(a):(b)) void ERREUR(char *ch1,char *ch2) { fprintf(stderr,"ERREUR : %s %s ",ch1,ch2); exit(0); } /*................................................................*/ int main(int argc, char **argv) { char ch[TailleLigne],*pb,*word; int finish,ok,nb; for(finish=False,ok=nb=0;(finish==False)&&(fgets(ch,TailleLigne,stdin));) if (!strncmp(ch,"\\1-grams:",9)) ok++; else if (ok==2) if (ch[0]==' ') finish=True; else { pb=strtok(ch," \t "); if (pb==NULL) ERREUR("bad format in input file",""); word=strtok(NULL," \t "); if (word==NULL) ERREUR("bad format in input file",""); printf("%d\t%s ",nb++,word); } } |