Changeset 20b4e44 for app/src


Ignore:
Timestamp:
03/19/08 12:29:21 (17 years ago)
Author:
pawelk <pawelk@…>
Branches:
master, help
Children:
389de9a
Parents:
d593c5e
git-author:
pawelk <pawelk@…> (03/19/08 12:29:21)
git-committer:
pawelk <pawelk@…> (03/19/08 12:29:21)
Message:

Wersja niestabilna, zawiera wstepne poprawki.

git-svn-id: ​svn://atos.wmid.amu.edu.pl/utt@13 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

Location:
app/src
Files:
1 deleted
11 edited

Legend:

Unmodified
Added
Removed

  • app/src/compiledic/compiledic

    r25ae32e r20b4e44  
    11#! /usr/bin/env perl 
     2 
     3#package:       UAM Text Tools 
     4#component:     compiledic 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
     7 
     8use strict; 
     9use locale; 
     10use File::HomeDir; 
     11use File::Basename; 
     12use File::Temp; 
     13use Getopt::Long; 
     14 
     15my $systemconfigfile=''; 
     16my $userconfigfile=home()."/.utt/compiledic.conf"; 
     17 
     18Getopt::Long::Configure('no_ignore_case_always'); 
    219 
    320$symfile='~/.utt/pl/pl_PL.iso-8859-2.sym'; 
    … …  
    724$sclfile = $symfilenoext . '.scl'; 
    825 
    9 use locale; 
    10 #use strict; 
    11  
    1226################################################## 
    1327$linesPerFile = 20000; 
    1428 
    1529if (@ARGV < 1) { 
    16     print "usage: prep_user_dict.pl dictionary_file\n"; 
     30    print "usage: ", basename($0), " dictionary_file\n"; 
    1731    exit; 
    1832} 

  • app/src/gph/gph

    r25ae32e r20b4e44  
    11#!/usr/bin/perl 
    22 
     3#package:       UAM Text Tools 
     4#component:     gph 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
     7 
     8use strict; 
    39use Getopt::Long; 
    410 

  • app/src/grp/grp

    r25ae32e r20b4e44  
    22 
    33#package:        UAM Text Tools 
    4 #component name: gre 
    5 #author:         Tomasz Obrêbski 
     4#component name: grp 
     5#version:        1.0 
     6#author:         Tomasz Obrebski 
    67 
    78use strict; 
    89use Getopt::Long; 
     10use File::HomeDir; 
    911 
    10 my $LIB_DIR="/usr/local/lib/utt";  # katalog zawierajacy terms.m4 
     12# katalog zawierajacy terms.m4 
     13my $LIB_DIR="/usr/local/lib/utt"; 
    1114 
    1215my $systemconfigfile="/usr/local/etc/utt/grp.conf"; 
    13 my $userconfigfile="$ENV{'HOME'}/.utt/grp.conf"; 
     16#my $userconfigfile="$ENV{'HOME'}/.utt/grp.conf"; 
     17my $userconfigfile=home()."/.utt/grp.conf"; 
    1418 
    1519Getopt::Long::Configure('no_ignore_case_always'); 

  • app/src/kon/kon

    r246900a r20b4e44  
    11#!/usr/bin/perl -w 
     2 
     3#package:       UAM Text Tools 
     4#component:     kon (search context) 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
     7 
    28use strict; 
    39use Getopt::Long; 
    410use locale; 
     11use File::HomeDir; 
    512 
    613Getopt::Long::Configure('no_ignore_case_always'); 
    … …  
    1926 
    2027my $systemconfigfile='/usr/local/etc/utt/kon.conf'; 
    21 my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf"; 
     28#my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf"; 
     29my $userconfigfile=home()."/.utt/kon.conf"; 
    2230 
    2331#read configuration files########################### 

  • app/src/kot/kot

    r246900a r20b4e44  
    11#!/usr/bin/perl 
     2 
     3#package:       UAM Text Tools 
     4#component:     kot 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
    27 
    38use strict; 
    49use Getopt::Long; 
     10use File::HomeDir; 
    511 
    612my $help=0; 
    … …  
    915 
    1016my $systemconfigfile='/usr/local/etc/utt/kot.conf'; 
    11 my $userconfigfile="$ENV{'HOME'}/.utt/kot.conf"; 
     17#my $userconfigfile="$ENV{'HOME'}/.utt/kot.conf"; 
     18my $userconfigfile=home()."/.utt/kot.conf"; 
    1219 
    1320#read configuration files########################### 

  • app/src/mar/mar

    r25ae32e r20b4e44  
    11#!/usr/bin/perl 
    22 
    3 #package: UAM Text Tools 
    4 #component name: mrk 
    5 #author: Marcin Walas 
     3#package:       UAM Text Tools 
     4#component:     mar 
     5#version:       1.0 
     6#author:        Marcin Walas 
    67 
    78#this program tags the tokenized file with given tags  

  • app/src/rm12/rm12

    r25ae32e r20b4e44  
    11#!/bin/bash 
    22 
     3#package:       UAM Text Tools 
     4#component:     rm12 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
     7 
     8 
    39sed -r '/[0-9]+[ \t]+[0-9]+[ \t]+BOS/! s/[0-9]+[ \t]+[0-9]+[ \t]//' 

  • app/src/ser/ser

    r754d2a3 r20b4e44  
    33#package:        UAM Text Tools 
    44#component:      ser (pattern search tool) 
    5 #author:         Tomasz Obrêbski 
     5#version:        1.0 
     6#author:         Tomasz Obrebski 
    67 
    78use strict; 
    89use Getopt::Long; 
    910use File::Temp; 
     11use File::HomeDir; 
    1012 
    1113my $LIB_DIR="/usr/local/lib/utt"; 
    12  
    1314my $systemconfigfile='/usr/local/etc/utt/ser.conf'; 
    14 my $userconfigfile="$ENV{'HOME'}/.utt/ser.conf"; 
    15  
    16 #use lib "$ENV{HOME}/.utt/lib/perl"; 
    17 #use attr; 
     15#my $userconfigfile="$ENV{'HOME'}/.utt/ser.conf"; 
     16my $userconfigfile=home()."/.utt/ser.conf"; 
    1817 
    1918Getopt::Long::Configure('no_ignore_case_always'); 
    … …  
    161160if($flex) 
    162161{ 
    163     system "cat $tmpfile_l"; 
    164     exit 0; 
     162        #system "cat $tmpfile_l"; 
     163        if(open(FLEX, $tmpfile_l)) { 
     164                while(<FLEX>) { 
     165                        print @_; 
     166                } 
     167                close FLEX; 
     168        } 
     169        else { 
     170                print "Unable to open file $tmpfile_l\n"; 
     171        } 
     172        exit 0; 
    165173} 
    166174 
    … …  
    169177system "$tmpfile_x"; 
    170178 
    171 system "rm -f $tmpfile_l $tmpfile_c $tmpfile_x"; 
     179#system "rm -f $tmpfile_l $tmpfile_c $tmpfile_x"; 
     180unlink $tmpfile_l; 
     181unlink $tmpfile_c; 
     182unlink $tmpfile_x; 
    172183 

  • app/src/tags/uam.tag2re

    r25ae32e r20b4e44  
    11#!/usr/bin/perl 
    22 
     3#package:       UAM Text Tools 
     4#component:     tags for utt 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
     7 
     8use strict; 
    39use locale; 
    410 

  • app/src/tok/tok

    r246900a r20b4e44  
    11#!/usr/bin/perl 
    22 
     3#package:       UAM Text Tools 
     4#component:     tok (tokenizer) 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
     7 
     8use strict; 
    39use locale; 
    410use Getopt::Long; 
     11use File::HomeDir; 
    512 
    613my $interactive=0; 
    … …  
    815 
    916my $systemconfigfile='/usr/local/etc/utt/tok.conf'; 
    10 my $userconfigfile="$ENV{'HOME'}/.utt/tok.conf"; 
     17#my $userconfigfile="$ENV{'HOME'}/.utt/tok.conf"; 
     18my $userconfigfile=home()."/.utt/tok.conf"; 
    1119 
    1220#read configuration files########################### 

  • app/src/unfla/unfla

    r25ae32e r20b4e44  
     1#!/bin/bash 
     2 
     3#package:       UAM Text Tools 
     4#component:     unfla 
     5#version:       1.0 
     6#author:        Tomasz Obrebski 
     7 
    18tr '\014' '\012' 
Note: See TracChangeset for help on using the changeset viewer.