Changeset 246900a for app/src/kot

Timestamp:

03/14/08 14:05:07 (16 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/kot/kot (modified) (6 diffs)

app/src/kot/kot

@@ -8 +8 @@
 my $spaces=0;
 
-my $configfile1="../../conf/kot.conf";
-my $configfile2="../conf/kot.conf";
+my $systemconfigfile='/usr/local/etc/utt/kot.conf';
+my $userconfigfile="$ENV{'HOME'}/.utt/kot.conf";
 
 #read configuration files###########################
 my $file;
-foreach $file ($configfile1, $configfile2){
+foreach $file ($systemconfigfile, $userconfigfile){
   if(open(CONFIG, $file)){
         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 "gap-fill")or($name eq "g")){
@@ -31 +31 @@
                         $help=1;
                 }
-        
-        } 
+
+        }
         close CONFIG;
   }
@@ -49 +49 @@
 Options:
    --gap-fill -g                  Help.
-   --spaces -r                    
+   --spaces -r
    --define=FILE                  Read macrodefinitions from FILE.
    --flex-template=FILE           Read flex code template from FILE.
@@ -71 +71 @@
 {
     my ($start,$len,$type,$form) = /^\s*(\d+)\s+(\d+)\s+(\S+)\s+(\S+)/;
-    
+
     if($start > $prevend)
     {
@@ -78 +78 @@
 
     $prevend=$start+$len;
-    
+
     next if $len==0;# || $form eq "*";
 
@@ -94 +94 @@
     print $form;
 }
-
-#print $gap_fill;
-
-# print "\n";