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
|
proc procdir {dir} {
set dirs [glob -nocomplain -directory $dir -types d *]
set files [glob -nocomplain -directory $dir -types f *]
foreach d $dirs {
exec chmod 775 $d
procdir $d
}
puts "\n\n\nDIR: $dir"
foreach f $files {
puts $f
exec chmod 664 $f
dos2unix $f
}
}
proc dos2unix {fnm} {
set doit 0
if {[regexp {\.(c|cxx|h|tcl|svx|th|ini|thcfg|th2|thc|cof|xpm|txt|pl|mp|tex|TXT|sty|usr|enc|htm|xvi)$} $fnm]} {
set doit 1
} elseif {[regexp {(Makefile|TODO\.\w|README|COPYING|CHANGES|thconfig|thconfig\..*)$} $fnm]} {
set doit 1
}
if {!$doit} return;
set fmtime [file mtime $fnm]
set fid [open $fnm r]
fconfigure $fid -translation binary
set fdt [read $fid]
close $fid
if {[regexp {\15} $fdt]} {
puts " ...converted to UNIX format"
regsub -all {\15} $fdt {} fdt
set fid [open $fnm w]
fconfigure $fid -translation binary
puts -nonewline $fid $fdt
close $fid
file mtime $fnm $fmtime
}
}
procdir .
exec chmod 775 ./cclass.pl
exec chmod 775 makeconvert.pl
exec chmod 775 makeconvert2.pl
exec chmod 775 thcsdata.tcl
exec chmod 775 threpair-files
exec chmod 775 thsymbolsetlist.pl
exec chmod 775 geomag/igrf2c.py
exec chmod 775 mpost/genmpost.pl
exec chmod 775 samples/samples.tcl
exec chmod 775 tex/gentex.pl
exec chmod 775 texenc/afm2enc.pl
exec chmod 775 texenc/mktexenc.pl
exec chmod 775 texenc/unidata.pl
exec chmod 775 thchencdata/generate.pl
exec chmod 775 thlang/process.pl
exec chmod 775 thlang/thlang_stats.pl
exec chmod 775 xtherion/bac.tcl
exec chmod 775 xtherion/dbg.tcl
exec chmod 775 xtherion/bac.tcl
exec chmod 775 xtherion/source.tcl
exec chmod 775 xtherion/lang/process.pl
exec chmod 775 ./abisso2th.py
exec chmod 775 geomag/test/build.sh
exec chmod 775 geomag/test/test.py
|
