Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit0f78649

Browse files
committed
Cleanup from Billy.
1 parent2facf54 commit0f78649

File tree

2 files changed

+8
-16
lines changed

2 files changed

+8
-16
lines changed

‎src/bin/pgtclsh/mkMakefile.tcltkdefs.sh.in

Lines changed: 4 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -16,14 +16,11 @@ fi
1616
. @TCL_CONFIG_SH@
1717
. @TK_CONFIG_SH@
1818

19-
set|
20-
egrep'^TCL_|^TK_'|
21-
sed -e's/=/="/' -e's/$/"/'|
22-
whileread v
19+
cat @TCL_CONFIG_SH@ @TK_CONFIG_SH@|
20+
egrep'^TCL_|^TK_'|
21+
whileread inp
2322
do
24-
eval"$v"
25-
v1=`echo$v| sed -e's/=.*//'`
26-
eval"echo$v1 =\"\$$v1\""
23+
evalevalecho$inp
2724
done>Makefile.tcltkdefs
2825

2926
exit 0

‎src/pl/tcl/mkMakefile.tcldefs.sh.in

Lines changed: 4 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -6,16 +6,11 @@ if [ ! -f @TCL_CONFIG_SH@ ]; then
66
exit 1
77
fi
88

9-
. @TCL_CONFIG_SH@
10-
11-
set|
12-
egrep'^TCL_|^TK_'|
13-
sed -e's/=[ ]*/="/' -e's/[ ]*$/"/'|
14-
whileread v
9+
cat @TCL_CONFIG_SH@|
10+
egrep'^TCL_|^TK_'|
11+
whileread inp
1512
do
16-
eval"$v"
17-
v1=`echo$v| sed -e's/=.*//'`
18-
eval"echo$v1 =\"\$$v1\""
13+
evalevalecho$inp
1914
done>Makefile.tcldefs
2015

2116
exit 0

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp