Changeset 246900a for app/src/tok

Timestamp:

03/14/08 14:05:07 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

b2647de

Parents:

8d3e6ab

git-author:

pawelk <pawelk@…> (03/14/08 14:05:07)

git-committer:

pawelk <pawelk@…> (03/14/08 14:05:07)

Message:

Przejrzałem kody programów pod kątem korzystania z plików konfiguracyjnych.

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

File:

• app/src/tok/tok (modified) (4 diffs)

app/src/tok/tok

@@ -7 +7 @@
 my $help;
 
-my $configfile1=".../../conf/tok.conf";
-my $configfile2="../conf/tok.conf";
+my $systemconfigfile='/usr/local/etc/utt/tok.conf';
+my $userconfigfile="$ENV{'HOME'}/.utt/tok.conf";
 
 #read configuration files###########################
 my $file;
-foreach $file ($configfile1, $configfile2){
+foreach $file ($systemconfigfile, $userconfigfile){
         if(open(CONFIG, $configfile1)){
                 while (<CONFIG>) {
-                        chomp;                  
-                        s/#.*//;                
-                        s/^\s+//;               
-                        s/\s+$//;               
-                        next unless length;     
+                        chomp;
+                        s/#.*//;
+                        s/^\s+//;
+                        s/\s+$//;
+                        next unless length;
                         my ($name, $value) = split(/\s*=\s*/, $_, 2);
                         if(($name eq "interactive")or($name eq "i")){
@@ -27 +27 @@
                                 $help=1;
                         }
-                } 
+                }
                 close CONFIG;
         }
@@ -56 +56 @@
 while(<>)
 {
-    1 while  
+    1 while
         / [[:alpha:]]+   (?{seg('W',$&)})
         | \d+            (?{seg('N',$&)})
@@ -96 +96 @@
     $offset += $len;
 }
-