Compare commits
389
Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
840ba03059 | ||
|
|
89fa1f862f | ||
|
|
c1a56eb2d1 | ||
|
|
dfd4a2e5c1 | ||
|
|
c0cb466a86 | ||
|
|
ea4e2c5432 | ||
|
|
d12eee4a39 | ||
|
|
2ba1ef3db1 | ||
|
|
6e603480b3 | ||
|
|
aeeb808b30 | ||
|
|
0043160893 | ||
|
|
af4a77f3e3 | ||
|
|
5740a9e3d2 | ||
|
|
ebf4c78ed8 | ||
|
|
8395974e1b | ||
|
|
6f3b0bd108 | ||
|
|
b142586b21 | ||
|
|
32dc9b67a9 | ||
|
|
6efc470726 | ||
|
|
fa2bb177eb | ||
|
|
7104004d57 | ||
|
|
fed1ff66dc | ||
|
|
d9e28af5f3 | ||
|
|
392c7ad8eb | ||
|
|
3a18a03f3d | ||
|
|
c09ddd48e3 | ||
|
|
0d69fc832e | ||
|
|
6e97fd01b0 | ||
|
|
e2c482312c | ||
|
|
00e0788723 | ||
|
|
3aab127556 | ||
|
|
58625c6ba9 | ||
|
|
2cf339ce3b | ||
|
|
57f9c7dae5 | ||
|
|
f6c86d7972 | ||
|
|
1fb596128b | ||
|
|
2cb77a221b | ||
|
|
33b2c94323 | ||
|
|
8d49123e73 | ||
|
|
9c024d9d3b | ||
|
|
82f2bed5fe | ||
|
|
6b29884385 | ||
|
|
06f42e40b2 | ||
|
|
2ff8145561 | ||
|
|
581d7fccf5 | ||
|
|
05b6284310 | ||
|
|
2ee9e74ac6 | ||
|
|
ba3f00d403 | ||
|
|
f837b2ca92 | ||
|
|
6724e74377 | ||
|
|
29c768d6c9 | ||
|
|
458c3e9cc5 | ||
|
|
31e49b4c7c | ||
|
|
298c9aa866 | ||
|
|
4612b57a1e | ||
|
|
b02ecd46ec | ||
|
|
f050bae793 | ||
|
|
b2cabbf79c | ||
|
|
14ab9ebc55 | ||
|
|
298a0ffc19 | ||
|
|
ea1fdc511d | ||
|
|
207a4b3122 | ||
|
|
2b394dc55d | ||
|
|
ab2df51726 | ||
|
|
e9dfa3ed3c | ||
|
|
ca8cef9587 | ||
|
|
0befd21328 | ||
|
|
f0e85a15a0 | ||
|
|
80c04f15f3 | ||
|
|
b633ee636f | ||
|
|
cbe4ab7b6a | ||
|
|
f6f8bdc72d | ||
|
|
a096c64c32 | ||
|
|
a9f031fc1a | ||
|
|
2e5746d60c | ||
|
|
850c978dcc | ||
|
|
5a3587a3ad | ||
|
|
3345a310b6 | ||
|
|
9038dae6fe | ||
|
|
817e391ddb | ||
|
|
011e7c1e5f | ||
|
|
040818e1db | ||
|
|
7a3766376f | ||
|
|
f387d58e76 | ||
|
|
afe025dc93 | ||
|
|
81e7dac314 | ||
|
|
dbd3f823aa | ||
|
|
78d6e8f34c | ||
|
|
a7bc79bffb | ||
|
|
0cd0d2191b | ||
|
|
071381e984 | ||
|
|
5f79368eaf | ||
|
|
aa7bf1b2e1 | ||
|
|
370b557389 | ||
|
|
711adf15f9 | ||
|
|
a14063d19a | ||
|
|
7ff4e84af2 | ||
|
|
60ca614740 | ||
|
|
473d9adddc | ||
|
|
089b997044 | ||
|
|
b61dbff448 | ||
|
|
4e3cd053db | ||
|
|
70da19ccf0 | ||
|
|
4206bf2818 | ||
|
|
a9c9e46669 | ||
|
|
3edc49c702 | ||
|
|
0872562c80 | ||
|
|
f09dcac785 | ||
|
|
6b7dec8d6a | ||
|
|
ad4c7a03b7 | ||
|
|
76fd53b302 | ||
|
|
7a36f11216 | ||
|
|
fed0f920e1 | ||
|
|
4f237d732e | ||
|
|
1227eed18e | ||
|
|
a21daf36ae | ||
|
|
2a2321bf6a | ||
|
|
5c3f6b06b7 | ||
|
|
3005927df1 | ||
|
|
0a38e523d3 | ||
|
|
f39dee95d7 | ||
|
|
124e36102e | ||
|
|
fb6da59e2f | ||
|
|
279c0829fc | ||
|
|
3b7c040233 | ||
|
|
c040d037ef | ||
|
|
2f9727a745 | ||
|
|
b24275a7c4 | ||
|
|
9f96f3816e | ||
|
|
edb8fe7c9b | ||
|
|
ab6f3aa7a8 | ||
|
|
f8e1773f67 | ||
|
|
89dbd5cedd | ||
|
|
21e01ee4e5 | ||
|
|
cc3b85771e | ||
|
|
fd512f5f94 | ||
|
|
67639babd5 | ||
|
|
1a457f040a | ||
|
|
906b33b772 | ||
|
|
a27098cb71 | ||
|
|
dd56627191 | ||
|
|
29b5516f5f | ||
|
|
ab7b060df7 | ||
|
|
4789e8e063 | ||
|
|
a29e5ccac3 | ||
|
|
dcebb038ed | ||
|
|
50199a5302 | ||
|
|
89653c15cf | ||
|
|
7dd3bef5d3 | ||
|
|
c86e9e2b45 | ||
|
|
17b5b3e020 | ||
|
|
6d547b0c2c | ||
|
|
ee9004c35f | ||
|
|
0a3a1a075a | ||
|
|
e620c687f7 | ||
|
|
098ad4c7f3 | ||
|
|
b91eaa4a75 | ||
|
|
52cf0e0a28 | ||
|
|
536fad2c6d | ||
|
|
ad77faa0e4 | ||
|
|
3665cff596 | ||
|
|
b5b121bedb | ||
|
|
24c0f50472 | ||
|
|
4e05ae8a64 | ||
|
|
31de47e1d6 | ||
|
|
2b54268bb7 | ||
|
|
6acfb3e800 | ||
|
|
67dd971e70 | ||
|
|
5f6824ef23 | ||
|
|
d56bda5224 | ||
|
|
d6bbe53dfb | ||
|
|
02cf664be1 | ||
|
|
f74fb9a7dc | ||
|
|
9fe163167b | ||
|
|
af23e7a53d | ||
|
|
a128f1c033 | ||
|
|
c615f910f7 | ||
|
|
649c413c41 | ||
|
|
a1c17947a6 | ||
|
|
da2d3610f9 | ||
|
|
3dd7667698 | ||
|
|
4291e4e815 | ||
|
|
f66286892b | ||
|
|
6dd81c7dba | ||
|
|
ae17e8d1b4 | ||
|
|
d7f4679221 | ||
|
|
afc0577d2e | ||
|
|
2215f74b2d | ||
|
|
d456e92a29 | ||
|
|
220e5e6245 | ||
|
|
66147b2e11 | ||
|
|
928360bd4d | ||
|
|
9419ff1d29 | ||
|
|
517a6a5159 | ||
|
|
63426886f5 | ||
|
|
075e333cc2 | ||
|
|
c5500b6035 | ||
|
|
0e05734542 | ||
|
|
392ecd0f2d | ||
|
|
f9a71ac128 | ||
|
|
ab4cbd7685 | ||
|
|
c4bcec96ea | ||
|
|
4855172d08 | ||
|
|
ee2c8b324f | ||
|
|
fc6c71a6ff | ||
|
|
7795886d49 | ||
|
|
fe22db4eda | ||
|
|
80a7fdbc90 | ||
|
|
01279acc11 | ||
|
|
3a3b91de59 | ||
|
|
00280a4727 | ||
|
|
02ab7419f0 | ||
|
|
ebf2863b94 | ||
|
|
14cf327d37 | ||
|
|
66bf4b493e | ||
|
|
9a7583c219 | ||
|
|
c899e46a97 | ||
|
|
56c8c7f4a2 | ||
|
|
4c0c6d80cd | ||
|
|
8897e69513 | ||
|
|
e341dd7a16 | ||
|
|
18c766a08c | ||
|
|
b15870ed70 | ||
|
|
e3d0b11da5 | ||
|
|
4f95cb4de4 | ||
|
|
0045179f39 | ||
|
|
de49e4b0fc | ||
|
|
7b3afa79ed | ||
|
|
21553ac98c | ||
|
|
c77e03b978 | ||
|
|
a17bf04dba | ||
|
|
2120b2e775 | ||
|
|
33d854e95b | ||
|
|
b33993aaf9 | ||
|
|
742df3666a | ||
|
|
f4ec29ceb2 | ||
|
|
39813465e8 | ||
|
|
615b18fee4 | ||
|
|
45c9e44c82 | ||
|
|
c69d9fda47 | ||
|
|
e5777aad56 | ||
|
|
6421b7b8b2 | ||
|
|
20e0998a32 | ||
|
|
5d4116b638 | ||
|
|
84bbce0e29 | ||
|
|
f67b351466 | ||
|
|
3fbbf14bf2 | ||
|
|
9f88ecdd97 | ||
|
|
56dbbded83 | ||
|
|
f5e6fef433 | ||
|
|
070d566ad5 | ||
|
|
0a04dce70d | ||
|
|
35231ec0d7 | ||
|
|
99a90efbfd | ||
|
|
b6088f7331 | ||
|
|
2f178f93ab | ||
|
|
49baa37b9c | ||
|
|
f6bd13629f | ||
|
|
025153490f | ||
|
|
cf333de098 | ||
|
|
f3f92eae51 | ||
|
|
6343875344 | ||
|
|
fcee72d2c7 | ||
|
|
fc71c7c2fc | ||
|
|
0f2d72cefb | ||
|
|
e5bf8e9ed0 | ||
|
|
c47a861663 | ||
|
|
0cdd87c215 | ||
|
|
cd48044e1b | ||
|
|
4fa48d135a | ||
|
|
25084dcd33 | ||
|
|
9a3e53bd90 | ||
|
|
ebd7b1edb7 | ||
|
|
86cfccca91 | ||
|
|
efb126543f | ||
|
|
c30f3e9569 | ||
|
|
c99f354166 | ||
|
|
defc33228d | ||
|
|
f23698ae34 | ||
|
|
910d0222de | ||
|
|
a3322b06ac | ||
|
|
482091f871 | ||
|
|
b1517df3ff | ||
|
|
a2e1bdf3b5 | ||
|
|
c387e380de | ||
|
|
1adac52046 | ||
|
|
15449e71fb | ||
|
|
02c730b298 | ||
|
|
9727e58e7d | ||
|
|
2f8611013d | ||
|
|
fc7a2d97e0 | ||
|
|
7c3b884ac2 | ||
|
|
5878b9510b | ||
|
|
3ae4ed89d0 | ||
|
|
ff1e919a1b | ||
|
|
d9fa72d22a | ||
|
|
3df3c35057 | ||
|
|
92b25c6016 | ||
|
|
53a9a5dc8f | ||
|
|
83f0cd1c03 | ||
|
|
fa960af760 | ||
|
|
180cec8aa9 | ||
|
|
17de94982b | ||
|
|
0134af324d | ||
|
|
87439e7d28 | ||
|
|
2ac074313b | ||
|
|
7081037955 | ||
|
|
eb342fb1e0 | ||
|
|
231cf96018 | ||
|
|
4ba63aa46a | ||
|
|
15194461b1 | ||
|
|
2664737588 | ||
|
|
0cb78052e4 | ||
|
|
3c86724fcf | ||
|
|
750dd56fe0 | ||
|
|
5bf4c011e1 | ||
|
|
965d357ab6 | ||
|
|
a2c547e12a | ||
|
|
8c7898b5d2 | ||
|
|
2ed258bb67 | ||
|
|
005227c53d | ||
|
|
96f84a6d9a | ||
|
|
6ad60f8b3b | ||
|
|
cf0a602c97 | ||
|
|
dbb32499b0 | ||
|
|
fd1bc4abd1 | ||
|
|
9393b695b2 | ||
|
|
7d9d9597aa | ||
|
|
259f659ad6 | ||
|
|
49ad442ac6 | ||
|
|
e037b3a40c | ||
|
|
7c1cfd6e15 | ||
|
|
1aa3608a1c | ||
|
|
cada5eb9bd | ||
|
|
f33056b162 | ||
|
|
fc553a3ea1 | ||
|
|
aca216973f | ||
|
|
1704d23d60 | ||
|
|
a1dd05a170 | ||
|
|
55383ed9b1 | ||
|
|
a73325fed0 | ||
|
|
ee4dcff50f | ||
|
|
e2721f9546 | ||
|
|
32beb1556e | ||
|
|
467e0d60b2 | ||
|
|
edcb5e1d91 | ||
|
|
14ec7c1d85 | ||
|
|
bd382d87b3 | ||
|
|
1e44705dc8 | ||
|
|
72c49f6909 | ||
|
|
feb336f6b3 | ||
|
|
efe33a9fd9 | ||
|
|
ce3437bf88 | ||
|
|
e69d8e8e92 | ||
|
|
8607752aa6 | ||
|
|
27cdb091ce | ||
|
|
49268667e2 | ||
|
|
f986721020 | ||
|
|
2ae1425228 | ||
|
|
d6340955cf | ||
|
|
7d3aa74249 | ||
|
|
c6927aa242 | ||
|
|
bb9c489d22 | ||
|
|
a3b5f315c6 | ||
|
|
dac1dde5ee | ||
|
|
359461f326 | ||
|
|
5ef16060be | ||
|
|
cd8531d293 | ||
|
|
4d4d50dc93 | ||
|
|
0188c9979d | ||
|
|
2394d76c65 | ||
|
|
d7aa18482a | ||
|
|
8c327a0577 | ||
|
|
1d9b09692d | ||
|
|
d281b9c141 | ||
|
|
d3aaff6a4e | ||
|
|
64996d4c1a | ||
|
|
9185af5e7a | ||
|
|
e2610bc7c7 | ||
|
|
ae4f67d283 | ||
|
|
f289a9d57e | ||
|
|
c56d964dcb | ||
|
|
35776acac0 | ||
|
|
86ee149689 | ||
|
|
d883e08781 | ||
|
|
89d6aec1f9 | ||
|
|
617405c023 | ||
|
|
b616f99ca6 | ||
|
|
6546b1dd3d |
@@ -1,14 +1,17 @@
|
||||
name: Linux Build and Test
|
||||
name: Linux
|
||||
on: [push]
|
||||
jobs:
|
||||
gcc:
|
||||
runs-on: ubuntu-latest
|
||||
runs-on: ubuntu-20.04
|
||||
strategy:
|
||||
matrix:
|
||||
symbols:
|
||||
- "no"
|
||||
- "mem"
|
||||
- "all"
|
||||
cfgopt:
|
||||
- ""
|
||||
- "CFLAGS=-DTCL_UTF_MAX=4"
|
||||
- "CFLAGS=-DTCL_NO_DEPRECATED=1"
|
||||
- "--disable-shared"
|
||||
- "--enable-symbols"
|
||||
- "--enable-symbols=mem"
|
||||
defaults:
|
||||
run:
|
||||
shell: bash
|
||||
@@ -16,15 +19,16 @@ jobs:
|
||||
steps:
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v2
|
||||
- name: Configure (symbols=${{ matrix.symbols }})
|
||||
- name: Prepare
|
||||
run: |
|
||||
touch tclStubInit.c tclOOStubInit.c tclOOScript.h
|
||||
working-directory: generic
|
||||
- name: Configure ${{ matrix.cfgopt }}
|
||||
run: |
|
||||
mkdir "${HOME}/install dir"
|
||||
./configure ${CFGOPT} "--prefix=$HOME/install dir" || (cat config.log && exit 1)
|
||||
env:
|
||||
CFGOPT: --enable-symbols=${{ matrix.symbols }}
|
||||
- name: Prepare
|
||||
run: touch tclStubInit.c tclOOStubInit.c
|
||||
working-directory: generic
|
||||
CFGOPT: ${{ matrix.cfgopt }}
|
||||
- name: Build
|
||||
run: |
|
||||
make all
|
||||
@@ -34,6 +38,8 @@ jobs:
|
||||
- name: Run Tests
|
||||
run: |
|
||||
make test
|
||||
env:
|
||||
ERROR_ON_FAILURES: 1
|
||||
- name: Test-Drive Installation
|
||||
run: |
|
||||
make install
|
||||
|
||||
@@ -1,8 +1,8 @@
|
||||
name: macOS Build and Test
|
||||
name: macOS
|
||||
on: [push]
|
||||
jobs:
|
||||
with-Xcode:
|
||||
runs-on: macos-latest
|
||||
xcode:
|
||||
runs-on: macos-11.0
|
||||
defaults:
|
||||
run:
|
||||
shell: bash
|
||||
@@ -11,7 +11,11 @@ jobs:
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v2
|
||||
- name: Prepare
|
||||
run: touch tclStubInit.c tclOOStubInit.c
|
||||
run: |
|
||||
touch tclStubInit.c tclOOStubInit.c tclOOScript.h
|
||||
wget https://github.com/culler/macher/releases/download/v1.2/macher
|
||||
sudo cp macher /usr/local/bin
|
||||
sudo chmod a+x /usr/local/bin/macher
|
||||
working-directory: generic
|
||||
- name: Build
|
||||
run: make all
|
||||
@@ -20,16 +24,15 @@ jobs:
|
||||
env:
|
||||
ERROR_ON_FAILURES: 1
|
||||
MAC_CI: 1
|
||||
Unix-like:
|
||||
runs-on: macos-latest
|
||||
clang:
|
||||
runs-on: macos-11.0
|
||||
strategy:
|
||||
matrix:
|
||||
symbols:
|
||||
- "no"
|
||||
- "mem"
|
||||
dtrace:
|
||||
- "no"
|
||||
- "yes"
|
||||
cfgopt:
|
||||
- ""
|
||||
- "--disable-shared"
|
||||
- "--enable-symbols"
|
||||
- "--enable-symbols=mem"
|
||||
defaults:
|
||||
run:
|
||||
shell: bash
|
||||
@@ -39,14 +42,17 @@ jobs:
|
||||
uses: actions/checkout@v2
|
||||
- name: Prepare
|
||||
run: |
|
||||
touch tclStubInit.c tclOOStubInit.c
|
||||
touch tclStubInit.c tclOOStubInit.c tclOOScript.h
|
||||
wget https://github.com/culler/macher/releases/download/v1.2/macher
|
||||
sudo cp macher /usr/local/bin
|
||||
sudo chmod a+x /usr/local/bin/macher
|
||||
mkdir "$HOME/install dir"
|
||||
working-directory: generic
|
||||
- name: Configure (symbols=${{ matrix.symbols }} dtrace=${{ matrix.dtrace }})
|
||||
- name: Configure ${{ matrix.cfgopt }}
|
||||
# Note that macOS is always a 64 bit platform
|
||||
run: ./configure --enable-64bit ${CFGOPT} "--prefix=$HOME/install dir" || (cat config.log && exit 1)
|
||||
run: ./configure --enable-64bit --enable-dtrace --enable-framework ${CFGOPT} "--prefix=$HOME/install" || (cat config.log && exit 1)
|
||||
env:
|
||||
CFGOPT: --enable-symbols=${{ matrix.symbols }} --enable-dtrace=${{ matrix.dtrace }}
|
||||
CFGOPT: ${{ matrix.cfgopt }}
|
||||
- name: Build
|
||||
run: |
|
||||
make all tcltest
|
||||
@@ -56,6 +62,3 @@ jobs:
|
||||
env:
|
||||
ERROR_ON_FAILURES: 1
|
||||
MAC_CI: 1
|
||||
- name: Trial Installation
|
||||
run: |
|
||||
make install
|
||||
|
||||
@@ -0,0 +1,134 @@
|
||||
name: Build Binaries
|
||||
on: [push]
|
||||
jobs:
|
||||
linux:
|
||||
name: Linux
|
||||
runs-on: ubuntu-16.04
|
||||
defaults:
|
||||
run:
|
||||
shell: bash
|
||||
steps:
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v2
|
||||
- name: Prepare
|
||||
run: |
|
||||
touch generic/tclStubInit.c generic/tclOOStubInit.c
|
||||
mkdir 1dist
|
||||
echo "VER_PATH=$(cd tools; pwd)/addVerToFile.tcl" >> $GITHUB_ENV
|
||||
working-directory: .
|
||||
- name: Configure
|
||||
run: ./configure --disable-symbols --disable-shared --enable-zipfs
|
||||
working-directory: unix
|
||||
- name: Build
|
||||
run: |
|
||||
make tclsh
|
||||
make shell SCRIPT="$VER_PATH $GITHUB_ENV"
|
||||
echo "TCL_ZIP=`pwd`/`echo libtcl*.zip`" >> $GITHUB_ENV
|
||||
working-directory: unix
|
||||
- name: Package
|
||||
run: |
|
||||
cp ../unix/tclsh tclsh${TCL_PATCHLEVEL}_unofficial
|
||||
chmod +x tclsh${TCL_PATCHLEVEL}_unofficial
|
||||
tar -cf tclsh${TCL_PATCHLEVEL}_unofficial.tar tclsh${TCL_PATCHLEVEL}_unofficial
|
||||
working-directory: 1dist
|
||||
- name: Upload
|
||||
uses: actions/upload-artifact@v2
|
||||
with:
|
||||
name: Tclsh ${{ env.TCL_PATCHLEVEL }} Linux single-file build (unofficial)
|
||||
path: 1dist/*.tar
|
||||
macos:
|
||||
name: macOS
|
||||
runs-on: macos-latest
|
||||
defaults:
|
||||
run:
|
||||
shell: bash
|
||||
steps:
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v2
|
||||
- name: Checkout create-dmg
|
||||
uses: actions/checkout@v2
|
||||
with:
|
||||
repository: create-dmg/create-dmg
|
||||
ref: v1.0.8
|
||||
path: create-dmg
|
||||
- name: Prepare
|
||||
run: |
|
||||
mkdir 1dist
|
||||
touch generic/tclStubInit.c generic/tclOOStubInit.c || true
|
||||
echo "VER_PATH=$(cd tools; pwd)/addVerToFile.tcl" >> $GITHUB_ENV
|
||||
echo "CREATE_DMG=$(cd create-dmg;pwd)/create-dmg" >> $GITHUB_ENV
|
||||
- name: Configure
|
||||
run: ./configure --disable-symbols --disable-shared --enable-zipfs
|
||||
working-directory: unix
|
||||
- name: Build
|
||||
run: |
|
||||
make tclsh
|
||||
make shell SCRIPT="$VER_PATH $GITHUB_ENV"
|
||||
echo "TCL_BIN=`pwd`/tclsh" >> $GITHUB_ENV
|
||||
echo "TCL_ZIP=`pwd`/`echo libtcl*.zip`" >> $GITHUB_ENV
|
||||
working-directory: unix
|
||||
- name: Package
|
||||
run: |
|
||||
mkdir contents
|
||||
cp $TCL_BIN contents/tclsh${TCL_PATCHLEVEL}_unofficial
|
||||
chmod +x contents/tclsh${TCL_PATCHLEVEL}_unofficial
|
||||
cat > contents/README.txt <<EOF
|
||||
This is a single-file executable developer preview of Tcl $TCL_PATCHLEVEL
|
||||
|
||||
It is not intended as an official release at all, so it is unsigned and unnotarized.
|
||||
Use strictly at your own risk.
|
||||
|
||||
To run it, you need to copy the executable out and run:
|
||||
xattr -d com.apple.quarantine tclsh${TCL_PATCHLEVEL}_unofficial
|
||||
to mark the executable as runnable on your machine.
|
||||
EOF
|
||||
$CREATE_DMG \
|
||||
--volname "Tcl $TCL_PATCHLEVEL (unofficial)" \
|
||||
--window-pos 200 120 \
|
||||
--window-size 800 400 \
|
||||
"Tcl-$TCL_PATCHLEVEL-(unofficial).dmg" \
|
||||
"contents/"
|
||||
working-directory: 1dist
|
||||
- name: Upload
|
||||
uses: actions/upload-artifact@v2
|
||||
with:
|
||||
name: Tclsh ${{ env.TCL_PATCHLEVEL }} macOS single-file build (unofficial)
|
||||
path: 1dist/*.dmg
|
||||
win:
|
||||
name: Windows
|
||||
runs-on: windows-latest
|
||||
defaults:
|
||||
run:
|
||||
shell: bash
|
||||
steps:
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v2
|
||||
- name: Install MSYS2
|
||||
uses: msys2/setup-msys2@v2
|
||||
- name: Prepare
|
||||
run: |
|
||||
touch generic/tclStubInit.c generic/tclOOStubInit.c
|
||||
echo "VER_PATH=$(cd tools; pwd)/addVerToFile.tcl" >> $GITHUB_ENV
|
||||
mkdir 1dist
|
||||
working-directory: .
|
||||
- name: Configure
|
||||
run: ./configure --disable-symbols --disable-shared --enable-zipfs
|
||||
working-directory: win
|
||||
- name: Build
|
||||
run: |
|
||||
make binaries libraries
|
||||
echo "TCL_ZIP=`pwd`/`echo libtcl*.zip`" >> $GITHUB_ENV
|
||||
working-directory: win
|
||||
- name: Get Exact Version
|
||||
run: |
|
||||
./tclsh*.exe $VER_PATH $GITHUB_ENV
|
||||
working-directory: win
|
||||
- name: Set Executable Name
|
||||
run: |
|
||||
cp ../win/tclsh*.exe tclsh${TCL_PATCHLEVEL}_unofficial.exe
|
||||
working-directory: 1dist
|
||||
- name: Upload
|
||||
uses: actions/upload-artifact@v2
|
||||
with:
|
||||
name: Tclsh ${{ env.TCL_PATCHLEVEL }} Windows single-file build (unofficial)
|
||||
path: '1dist/*_unofficial.exe'
|
||||
@@ -1,40 +1,49 @@
|
||||
name: Windows Build and Test
|
||||
name: Windows
|
||||
on: [push]
|
||||
jobs:
|
||||
MSVC:
|
||||
msvc:
|
||||
runs-on: windows-latest
|
||||
defaults:
|
||||
run:
|
||||
shell: powershell
|
||||
working-directory: win
|
||||
strategy:
|
||||
matrix:
|
||||
cfgopt:
|
||||
- ""
|
||||
- "OPTS=utfmax"
|
||||
- "CHECKS=nodep"
|
||||
- "OPTS=static"
|
||||
- "OPTS=symbols"
|
||||
- "OPTS=memdbg"
|
||||
# Using powershell means we need to explicitly stop on failure
|
||||
steps:
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v2
|
||||
- name: Init MSVC
|
||||
uses: ilammy/msvc-dev-cmd@v1
|
||||
- name: Build
|
||||
- name: Build ${{ matrix.cfgopt }}
|
||||
run: |
|
||||
&nmake -f makefile.vc all
|
||||
&nmake -f makefile.vc ${{ matrix.cfgopt }} all
|
||||
if ($lastexitcode -ne 0) {
|
||||
throw "nmake exit code: $lastexitcode"
|
||||
}
|
||||
- name: Build Test Harness
|
||||
- name: Build Test Harness ${{ matrix.cfgopt }}
|
||||
run: |
|
||||
&nmake -f makefile.vc tcltest
|
||||
&nmake -f makefile.vc ${{ matrix.cfgopt }} tcltest
|
||||
if ($lastexitcode -ne 0) {
|
||||
throw "nmake exit code: $lastexitcode"
|
||||
}
|
||||
- name: Run Tests
|
||||
- name: Run Tests ${{ matrix.cfgopt }}
|
||||
run: |
|
||||
&nmake -f makefile.vc test
|
||||
&nmake -f makefile.vc ${{ matrix.cfgopt }} test
|
||||
if ($lastexitcode -ne 0) {
|
||||
throw "nmake exit code: $lastexitcode"
|
||||
}
|
||||
env:
|
||||
ERROR_ON_FAILURES: 1
|
||||
CI_BUILD_WITH_MSVC: 1
|
||||
MSYS-gcc:
|
||||
gcc:
|
||||
runs-on: windows-latest
|
||||
defaults:
|
||||
run:
|
||||
@@ -42,10 +51,13 @@ jobs:
|
||||
working-directory: win
|
||||
strategy:
|
||||
matrix:
|
||||
symbols:
|
||||
- "no"
|
||||
- "mem"
|
||||
- "all"
|
||||
cfgopt:
|
||||
- ""
|
||||
- "CFLAGS=-DTCL_UTF_MAX=4"
|
||||
- "CFLAGS=-DTCL_NO_DEPRECATED=1"
|
||||
- "--disable-shared"
|
||||
- "--enable-symbols"
|
||||
- "--enable-symbols=mem"
|
||||
# Using powershell means we need to explicitly stop on failure
|
||||
steps:
|
||||
- name: Checkout
|
||||
@@ -54,14 +66,14 @@ jobs:
|
||||
run: choco install msys2 make
|
||||
- name: Prepare
|
||||
run: |
|
||||
touch tclStubInit.c tclOOStubInit.c
|
||||
touch tclStubInit.c tclOOStubInit.c tclOOScript.h
|
||||
mkdir "${HOME}/install dir"
|
||||
working-directory: generic
|
||||
- name: Configure (symbols=${{ matrix.symbols }})
|
||||
- name: Configure ${{ matrix.cfgopt }}
|
||||
run: |
|
||||
./configure ${CFGOPT} "--prefix=$HOME/install dir" || (cat config.log && exit 1)
|
||||
env:
|
||||
CFGOPT: --enable-64bit --enable-symbols=${{ matrix.symbols }}
|
||||
CFGOPT: --enable-64bit ${{ matrix.cfgopt }}
|
||||
- name: Build
|
||||
run: make all
|
||||
- name: Build Test Harness
|
||||
|
||||
@@ -5,22 +5,7 @@
|
||||
<projects>
|
||||
</projects>
|
||||
<buildSpec>
|
||||
<buildCommand>
|
||||
<name>org.eclipse.cdt.managedbuilder.core.genmakebuilder</name>
|
||||
<triggers>clean,full,incremental,</triggers>
|
||||
<arguments>
|
||||
</arguments>
|
||||
</buildCommand>
|
||||
<buildCommand>
|
||||
<name>org.eclipse.cdt.managedbuilder.core.ScannerConfigBuilder</name>
|
||||
<triggers>full,incremental,</triggers>
|
||||
<arguments>
|
||||
</arguments>
|
||||
</buildCommand>
|
||||
</buildSpec>
|
||||
<natures>
|
||||
<nature>org.eclipse.cdt.core.cnature</nature>
|
||||
<nature>org.eclipse.cdt.managedbuilder.core.managedBuildNature</nature>
|
||||
<nature>org.eclipse.cdt.managedbuilder.core.ScannerConfigNature</nature>
|
||||
</natures>
|
||||
</projectDescription>
|
||||
|
||||
+8
-54
@@ -55,14 +55,6 @@ jobs:
|
||||
env:
|
||||
- BUILD_DIR=unix
|
||||
- CFGOPT="--enable-symbols=mem"
|
||||
# C++ build.
|
||||
- name: "Linux/G++/Shared"
|
||||
os: linux
|
||||
dist: focal
|
||||
compiler: g++
|
||||
env:
|
||||
- BUILD_DIR=unix
|
||||
- CFGOPT="CC=g++ CFLAGS=-Dregister=dont+use+register"
|
||||
# Newer/Older versions of GCC
|
||||
- name: "Linux/GCC 10/Shared"
|
||||
os: linux
|
||||
@@ -147,14 +139,6 @@ jobs:
|
||||
homebrew:
|
||||
packages:
|
||||
- libtommath
|
||||
- name: "macOS/Clang++/Xcode 12/Shared"
|
||||
os: osx
|
||||
osx_image: xcode12.2
|
||||
env:
|
||||
- BUILD_DIR=unix
|
||||
- CFGOPT="CC=clang++ --enable-framework --enable-dtrace CFLAGS=-Dregister=dont+use+register CPPFLAGS=-D__private_extern__=extern"
|
||||
script:
|
||||
- make all tcltest
|
||||
# Newer MacOS versions
|
||||
- name: "macOS/Clang/Xcode 12/Universal Apps/Shared"
|
||||
os: osx
|
||||
@@ -224,7 +208,6 @@ jobs:
|
||||
- BUILD_DIR=win
|
||||
- VCDIR="/C/Program Files (x86)/Microsoft Visual Studio/2017/BuildTools/VC/Auxiliary/Build"
|
||||
before_install: &vcpreinst
|
||||
- rm -rf tests/safe-stock8*.test
|
||||
- touch generic/tclStubInit.c generic/tclOOStubInit.c generic/tclOOScript.h
|
||||
- PATH="$PATH:$VCDIR"
|
||||
- cd ${BUILD_DIR}
|
||||
@@ -248,8 +231,8 @@ jobs:
|
||||
before_install: *vcpreinst
|
||||
install: []
|
||||
script:
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=nodep' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=nodep' '-f' makefile.vc test
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'CHECKS=nodep' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'CHECKS=nodep' '-f' makefile.vc test
|
||||
- name: "Windows/MSVC/Static"
|
||||
os: windows
|
||||
compiler: cl
|
||||
@@ -257,17 +240,8 @@ jobs:
|
||||
before_install: *vcpreinst
|
||||
install: []
|
||||
script:
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=static,msvcrt' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=static,msvcrt' '-f' makefile.vc test
|
||||
- name: "Windows/MSVC/StaticPackage"
|
||||
os: windows
|
||||
compiler: cl
|
||||
env: *vcenv
|
||||
before_install: *vcpreinst
|
||||
install: []
|
||||
script:
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=static,staticpkg,msvcrt' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=static,staticpkg,msvcrt' '-f' makefile.vc test
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=static' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x64 '&&' nmake 'OPTS=static' '-f' makefile.vc test
|
||||
- name: "Windows/MSVC/Debug"
|
||||
os: windows
|
||||
compiler: cl
|
||||
@@ -312,8 +286,8 @@ jobs:
|
||||
before_install: *vcpreinst
|
||||
install: []
|
||||
script:
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'OPTS=nodep' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'OPTS=nodep' '-f' makefile.vc test
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'CHECKS=nodep' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'CHECKS=nodep' '-f' makefile.vc test
|
||||
- name: "Windows/MSVC-x86/Static"
|
||||
os: windows
|
||||
compiler: cl
|
||||
@@ -321,8 +295,8 @@ jobs:
|
||||
before_install: *vcpreinst
|
||||
install: []
|
||||
script:
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'OPTS=static,msvcrt' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'OPTS=static,msvcrt' '-f' makefile.vc test
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'OPTS=static' '-f' makefile.vc all tcltest
|
||||
- cmd.exe //C vcvarsall.bat x86 '&&' nmake 'OPTS=static' '-f' makefile.vc test
|
||||
- name: "Windows/MSVC-x86/Debug"
|
||||
os: windows
|
||||
compiler: cl
|
||||
@@ -349,7 +323,6 @@ jobs:
|
||||
- BUILD_DIR=win
|
||||
- CFGOPT="--enable-64bit"
|
||||
before_install: &makepreinst
|
||||
- rm -rf tests/safe-stock8*.test
|
||||
- touch generic/tclStubInit.c generic/tclOOStubInit.c generic/tclOOScript.h
|
||||
- choco install -y make zip
|
||||
- cd ${BUILD_DIR}
|
||||
@@ -367,15 +340,6 @@ jobs:
|
||||
- BUILD_DIR=win
|
||||
- CFGOPT="--enable-64bit CFLAGS=-DTCL_NO_DEPRECATED=1"
|
||||
before_install: *makepreinst
|
||||
- name: "Windows/G++/Shared"
|
||||
os: windows
|
||||
compiler: g++
|
||||
env:
|
||||
- BUILD_DIR=win
|
||||
- CFGOPT="CC=g++ --enable-64bit"
|
||||
before_install: *makepreinst
|
||||
script:
|
||||
- make all tcltest
|
||||
- name: "Windows/GCC/Static"
|
||||
os: windows
|
||||
compiler: gcc
|
||||
@@ -418,15 +382,6 @@ jobs:
|
||||
- BUILD_DIR=win
|
||||
- CFGOPT="CFLAGS=-DTCL_NO_DEPRECATED=1"
|
||||
before_install: *makepreinst
|
||||
- name: "Windows/G++-x86/Shared"
|
||||
os: windows
|
||||
compiler: g++
|
||||
env:
|
||||
- BUILD_DIR=win
|
||||
- CFGOPT="CC=g++"
|
||||
before_install: *makepreinst
|
||||
script:
|
||||
- make all tcltest
|
||||
- name: "Windows/GCC-x86/Static"
|
||||
os: windows
|
||||
compiler: gcc
|
||||
@@ -458,7 +413,6 @@ jobs:
|
||||
script:
|
||||
- make dist
|
||||
before_install:
|
||||
- rm -rf tests/safe-stock8*.test
|
||||
- touch generic/tclStubInit.c generic/tclOOStubInit.c generic/tclOOScript.h
|
||||
- cd ${BUILD_DIR}
|
||||
install:
|
||||
|
||||
@@ -5,20 +5,9 @@ This is the **Tcl 8.7a4** source distribution.
|
||||
You can get any source release of Tcl from [our distribution
|
||||
site](https://sourceforge.net/projects/tcl/files/Tcl/).
|
||||
|
||||
8.6.10
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux+Build+and+Test%22+branch%3Acore-8-6-branch)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows+Build+and+Test%22+branch%3Acore-8-6-branch)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS+Build+and+Test%22+branch%3Acore-8-6-branch)
|
||||
<br>
|
||||
8.7a4
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux+Build+and+Test%22+branch%3Acore-8-branch)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows+Build+and+Test%22+branch%3Acore-8-branch)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS+Build+and+Test%22+branch%3Acore-8-branch)
|
||||
<br>
|
||||
9.0a2
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux+Build+and+Test%22+branch%3Amain)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows+Build+and+Test%22+branch%3Amain)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS+Build+and+Test%22+branch%3Amain)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Linux%22+branch%3Acore-8-branch)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22Windows%22+branch%3Acore-8-branch)
|
||||
[](https://github.com/tcltk/tcl/actions?query=workflow%3A%22macOS%22+branch%3Acore-8-branch)
|
||||
|
||||
## Contents
|
||||
1. [Introduction](#intro)
|
||||
@@ -42,19 +31,19 @@ powerful command languages for applications.
|
||||
|
||||
Tcl is maintained, enhanced, and distributed freely by the Tcl community.
|
||||
Source code development and tracking of bug reports and feature requests
|
||||
takes place at [core.tcl-lang.org](https://core.tcl-lang.org/).
|
||||
take place at [core.tcl-lang.org](https://core.tcl-lang.org/).
|
||||
Tcl/Tk release and mailing list services are [hosted by
|
||||
SourceForge](https://sourceforge.net/projects/tcl/)
|
||||
with the Tcl Developer Xchange hosted at
|
||||
[www.tcl-lang.org](https://www.tcl-lang.org).
|
||||
|
||||
Tcl is a freely available open source package. You can do virtually
|
||||
Tcl is a freely available open-source package. You can do virtually
|
||||
anything you like with it, such as modifying it, redistributing it,
|
||||
and selling it either in whole or in part. See the file
|
||||
`license.terms` for complete information.
|
||||
|
||||
## <a id="doc">2.</a> Documentation
|
||||
Extensive documentation is available at our website.
|
||||
Extensive documentation is available on our website.
|
||||
The home page for this release, including new features, is
|
||||
[here](https://www.tcl.tk/software/tcltk/8.7.html).
|
||||
Detailed release notes can be found at the
|
||||
@@ -101,16 +90,16 @@ about building Tcl from sources
|
||||
[online](https://www.tcl-lang.org/doc/howto/compile.html).
|
||||
|
||||
## <a id="devtools">4.</a> Development tools
|
||||
ActiveState produces a high quality set of commercial quality development
|
||||
ActiveState produces a high-quality set of commercial quality development
|
||||
tools that is available to accelerate your Tcl application development.
|
||||
Tcl Dev Kit builds on the earlier TclPro toolset and provides a debugger,
|
||||
static code checker, single-file wrapping utility, bytecode compiler and
|
||||
static code checker, single-file wrapping utility, bytecode compiler, and
|
||||
more. More information can be found at
|
||||
|
||||
http://www.ActiveState.com/Tcl
|
||||
|
||||
## <a id="complangtcl">5.</a> Tcl newsgroup
|
||||
There is a USENET news group, "`comp.lang.tcl`", intended for the exchange of
|
||||
There is a USENET newsgroup, "`comp.lang.tcl`", intended for the exchange of
|
||||
information about Tcl, Tk, and related applications. The newsgroup is a
|
||||
great place to ask general information questions. For bug reports, please
|
||||
see the "Support and bug fixes" section below.
|
||||
|
||||
@@ -8992,6 +8992,135 @@ in this changeset (new minor version) rather than bug fixes:
|
||||
|
||||
- Released 8.6.10, Nov 21, 2019 - details at http://core.tcl-lang.org/tcl/ -
|
||||
|
||||
2019-12-03 (bug)[3cd9be] Corner case in surrogate handling (nijtmans)
|
||||
|
||||
2019-12-09 (new) Add tcltest::(Setup|Eval|Cleanup|)Test (coulter,sebres)
|
||||
=> tcltest 2.5.2
|
||||
|
||||
2019-12-12 (new) Add 3 libtommath functions to stub table (nijtmans)
|
||||
|
||||
2019-12-23 (bug)[ce3b9f] compilation errors with clang, windows msys2 (nijtmans)
|
||||
|
||||
2019-12-27 (bug)[1de6b0] [expr 1e2147483648] => 0.0 (kbk)
|
||||
|
||||
2020-01-04 (bug)[912886] tis-620 encoding fails to load (coulter)
|
||||
|
||||
2020-01-13 (bug)[0b9332] Win: support system encoding init to utf-8 (jedlička)
|
||||
|
||||
2020-01-17 (bug)[8cd2fe] [unload] corrupted list of loaded packages (berc)
|
||||
|
||||
2020-01-17 (bug)[5d989f] segfault in lsort for large list length (sebres)
|
||||
|
||||
2020-01-30 (bug) Reset WSAGetLastError()/errno in channel close (nijtmans)
|
||||
|
||||
2020-02-17 (bug) Win: avoid create of legacy error-vars on init phase (sebres)
|
||||
|
||||
2020-02-25 (bug) release refs when setting class's superclasses fails (dkf)
|
||||
|
||||
2020-02-26 (bug) C++ compiler compatibility for registry and dde (nijtmans)
|
||||
=> registry 1.4.3
|
||||
=> dde 1.3.5
|
||||
|
||||
2020-03-05 (new) Update to Unicode-13 (nijtmans)
|
||||
|
||||
2020-03-16 (bug)[8f89e2] Win: env var encoding, env-2.5 (sebres, nijtmans)
|
||||
|
||||
2020-03-27 (bug)[767e07] Tcl_Get(Range|UniChar) validate index inputs (nijtmans)
|
||||
|
||||
2020-03-28 (bug)[8edfce] [binary encode base64] & multi-byte wrapchars (dgp)
|
||||
|
||||
2020-03-28 (bug)[ffeb20] [binary decode base64] ignore invalid chars (dgp)
|
||||
See RFC 2045
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-03-31 (bug)[b8e82d] some -maxlen values break uuencode round trip (dgp)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-04-01 (bug)[f58371] Fileevent run in proper thread (bron,sebres)
|
||||
|
||||
2020-04-13 (bug)[afa4b2] TclNeedSpace bug; tests util-8.5 .. util-8.11 (dgp)
|
||||
|
||||
2020-04-13 (bug)[085913] Tcl_DStringAppendElement # quoting precision (dgp)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-04-13 (bug)[a7f685] test util-5.52 (dgp)
|
||||
|
||||
2020-04-13 (bug)[c61818] Tcl_UtfPrev regression (dgp)
|
||||
|
||||
2020-04-15 (bug)[8af92d] zlib transform issue, bad inflate (sebres)
|
||||
|
||||
2020-04-16 (bug)[5e6346] Tcl_UtfPrev handling of overlong sequences (dgp)
|
||||
|
||||
2020-04-27 (bug)[45ca23] [string tolower] inconsistency (dgp)
|
||||
|
||||
2020-04-30 (bug)[da2352] init [info hostname] with DNS, not NetBIOS (nadkarni)
|
||||
|
||||
2020-05-11 (bug)[d402ff] Win32 potential crash when using main() (werner)
|
||||
|
||||
2020-05-13 (bug)[81242a] revised documentation for Tcl_UtfAtIndex() (nijtmans)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-05-13 (bug)[ed2980] Tcl_UtfToUniChar reads > TCL_UTF_MAX bytes (nijtmans)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-06-02 (bug) prevent segfault in parser (sebres)
|
||||
|
||||
2020-06-21 (bug)[f81bec] http POST a binary file (alakendu,nash)
|
||||
=> http 2.9.2
|
||||
|
||||
2020-06-23 (bug)[41c985] auto_path nonsense in Safe Base (nash)
|
||||
|
||||
2020-06-24 (bug)[f70ce1] zlib multi-stream inflate acts only on first (sebres)
|
||||
|
||||
2020-07-09 (bug)[a1bd37] [clock scan] new ISO format (clock-34.(19-24)) (sebres)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-07-10 (bug)[501974] [clock scan] +time zone (clock-34.(53-68)) (sebres)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-07-15 (bug)[3c6e47] compiled [lappend] performance, avoid copy (sebres)
|
||||
|
||||
2020-07-16 (bug)[5bbd04] Fix index underflow (schwab)
|
||||
|
||||
2020-07-27 (bug)[cb0373] http::geturl -keepalive fixes (nash)
|
||||
=> http 2.9.3
|
||||
|
||||
2020-08-10 (bug)[29e884] cmd resolution cycle (namespace-57.0) (coulter,sebres)
|
||||
|
||||
2020-08-12 (bug)[e87000] Tcl_BadChannelOption tolerate NULL (werner,nijtmans)
|
||||
|
||||
2020-08-31 (TIP #581) disfavor Master/Slave terminology (nijtmans)
|
||||
=> opt 0.4.8
|
||||
|
||||
2020-09-11 (bug)[3bc0f4] UBSan complains about body.chars[] usage (nijtmans)
|
||||
|
||||
2020-09-17 (bug)[835c93] Support TIP 525 exit code for -singleproc 1 (nijtmans)
|
||||
=> tcltest 2.5.3
|
||||
|
||||
2020-09-25 (new) force -eofchar \032 when evaluating library scripts (nijtmans)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-09-29 (bug)[0063cb] http::geturl -headers must be dict (oehlmann,nijtmans)
|
||||
|
||||
2020-10-19 (bug)[cb4582] Update install-sh script (stu,nijtmans)
|
||||
|
||||
2020-10-22 (bug)[c97593] Usage of gnu_printf in latest mingw-w64 (nijtmans)
|
||||
|
||||
2020-10-26 (new)[48898a] improve error message consistency (stu)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-11-06 (new) revised case of module names (nijtmans)
|
||||
*** POTENTIAL INCOMPATIBILITY ***
|
||||
|
||||
2020-12-10 (bug)[ed5be7] Win: recognize "comx:" as serial port (oehlmann)
|
||||
|
||||
2020-12-11 (new) support for msys2, Big Sur (nijtmans)
|
||||
=> platform 1.0.15
|
||||
|
||||
2020-12-23 tzdata updated to Olson's tzdata2020e (jima)
|
||||
|
||||
- Released 8.6.11, Dec 31, 2020 - details at http://core.tcl-lang.org/tcl/ -
|
||||
|
||||
Changes to 8.7a3 include all changes to the 8.6 line through 8.6.10,
|
||||
plus the following, which focuses on the high-level feature changes
|
||||
in this changeset (new minor version) rather than bug fixes:
|
||||
@@ -9120,3 +9249,9 @@ in this changeset (new minor version) rather than bug fixes:
|
||||
2019-09-14 [TIP 548] wchar_t conversion functions
|
||||
|
||||
- Released 8.7a3, Nov 21, 2019 --- http://core.tcl-lang.org/tcl/ for details -
|
||||
|
||||
Changes to 8.7a5 include all changes to the 8.6 line through 8.6.11,
|
||||
plus the following, which focuses on the high-level feature changes
|
||||
in this changeset (new minor version) rather than bug fixes:
|
||||
|
||||
- Released 8.7a5, Jan 21, 2021 --- http://core.tcl-lang.org/tcl/ for details -
|
||||
|
||||
+3
-2
@@ -37,8 +37,9 @@ byte-array type. For \fBTcl_GetByteArrayFromObj\fR and
|
||||
\fBTcl_SetByteArrayLength\fR, this points to the value from which to get
|
||||
the byte-array value; if \fIobjPtr\fR does not already point to a byte-array
|
||||
value, it will be converted to one.
|
||||
.AP int *lengthPtr out
|
||||
If non-NULL, filled with the length of the array of bytes in the value.
|
||||
.AP size_t | int *lengthPtr out
|
||||
Filled with the length of the array of bytes in the value.
|
||||
May be (int *)NULL when not used.
|
||||
.BE
|
||||
|
||||
.SH DESCRIPTION
|
||||
|
||||
+3
-3
@@ -600,9 +600,9 @@ in preference to the \fIseekProc\fR, but both must be defined if the
|
||||
following prototype:
|
||||
.PP
|
||||
.CS
|
||||
typedef Tcl_WideInt \fBTcl_DriverWideSeekProc\fR(
|
||||
typedef long long \fBTcl_DriverWideSeekProc\fR(
|
||||
ClientData \fIinstanceData\fR,
|
||||
Tcl_WideInt \fIoffset\fR,
|
||||
long long \fIoffset\fR,
|
||||
int \fIseekMode\fR,
|
||||
int *\fIerrorCodePtr\fR);
|
||||
.CE
|
||||
@@ -824,7 +824,7 @@ length. It can be NULL.
|
||||
.CS
|
||||
typedef int \fBTcl_DriverTruncateProc\fR(
|
||||
ClientData \fIinstanceData\fR,
|
||||
Tcl_WideInt \fIlength\fR);
|
||||
long long \fIlength\fR);
|
||||
.CE
|
||||
.PP
|
||||
\fIInstanceData\fR is the same as the value passed to
|
||||
|
||||
+1
-1
@@ -1,7 +1,7 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1989-1993 The Regents of the University of California.
|
||||
'\" Copyright (c) 1994-1996 Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 2002 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
'\" Copyright (c) 2002 Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1992-1999 Karl Lehenbauer & Mark Diekhans.
|
||||
'\" Copyright (c) 2000 by Scriptics Corporation.
|
||||
'\" Copyright (c) 2000 Scriptics Corporation.
|
||||
'\" All rights reserved.
|
||||
'\"
|
||||
.TH "Tcl_DumpActiveMemory" 3 8.1 Tcl "Tcl Library Procedures"
|
||||
|
||||
+5
-5
@@ -144,16 +144,16 @@ Tcl_Obj *
|
||||
Tcl_StatBuf *
|
||||
\fBTcl_AllocStatBuf\fR()
|
||||
.sp
|
||||
Tcl_WideInt
|
||||
long long
|
||||
\fBTcl_GetAccessTimeFromStat\fR(\fIstatPtr\fR)
|
||||
.sp
|
||||
unsigned
|
||||
\fBTcl_GetBlockSizeFromStat\fR(\fIstatPtr\fR)
|
||||
.sp
|
||||
Tcl_WideUInt
|
||||
unsigned long long
|
||||
\fBTcl_GetBlocksFromStat\fR(\fIstatPtr\fR)
|
||||
.sp
|
||||
Tcl_WideInt
|
||||
long long
|
||||
\fBTcl_GetChangeTimeFromStat\fR(\fIstatPtr\fR)
|
||||
.sp
|
||||
int
|
||||
@@ -174,10 +174,10 @@ int
|
||||
unsigned
|
||||
\fBTcl_GetModeFromStat\fR(\fIstatPtr\fR)
|
||||
.sp
|
||||
Tcl_WideInt
|
||||
long long
|
||||
\fBTcl_GetModificationTimeFromStat\fR(\fIstatPtr\fR)
|
||||
.sp
|
||||
Tcl_WideUInt
|
||||
unsigned long long
|
||||
\fBTcl_GetSizeFromStat\fR(\fIstatPtr\fR)
|
||||
.sp
|
||||
int
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1998-2000 by Scriptics Corporation.
|
||||
'\" Copyright (c) 1998-2000 Scriptics Corporation.
|
||||
'\" All rights reserved.
|
||||
'\"
|
||||
.TH Tcl_GetHostName 3 8.3 Tcl "Tcl Library Procedures"
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1996 by Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 1996 Sun Microsystems, Inc.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 2001 by Kevin B. Kenny <kennykb@acm.org>.
|
||||
'\" Copyright (c) 2001 Kevin B. Kenny <kennykb@acm.org>.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1998-2000 by Scriptics Corporation.
|
||||
'\" Copyright (c) 1998-2000 Scriptics Corporation.
|
||||
'\" All rights reserved.
|
||||
'\"
|
||||
.TH Tcl_Init 3 8.0 Tcl "Tcl Library Procedures"
|
||||
|
||||
+1
-1
@@ -102,7 +102,7 @@ are provided by the C language standard. The \fBTcl_WideInt\fR type is a
|
||||
typedef defined to be whatever signed integral type covers at least the
|
||||
64-bit integer range (-9223372036854775808 to 9223372036854775807). Depending
|
||||
on the platform and the C compiler, the actual type might be
|
||||
\fBlong long int\fR, \fB__int64\fR, or something else.
|
||||
\fBlong long int\fR, or something else.
|
||||
The \fBmp_int\fR type is a multiple-precision integer type defined
|
||||
by the LibTomMath multiple-precision integer library.
|
||||
.PP
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
.\"
|
||||
.\" Copyright (c) 2008 by Kevin B. Kenny.
|
||||
.\" Copyright (c) 2018 by Nathan Coulter.
|
||||
.\" Copyright (c) 2008 Kevin B. Kenny.
|
||||
.\" Copyright (c) 2018 Nathan Coulter.
|
||||
.\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -232,5 +232,5 @@ Tcl_CreateCommand(3), Tcl_CreateObjCommand(3), Tcl_EvalObjEx(3), Tcl_GetCommandF
|
||||
.SH KEYWORDS
|
||||
stackless, nonrecursive, execute, command, global, value, result, script
|
||||
.SH COPYRIGHT
|
||||
Copyright (c) 2008 by Kevin B. Kenny.
|
||||
Copyright (c) 2018 by Nathan Coulter.
|
||||
Copyright \(co 2008 Kevin B. Kenny.
|
||||
Copyright \(co 2018 Nathan Coulter.
|
||||
|
||||
+4
-4
@@ -92,10 +92,10 @@ int
|
||||
int
|
||||
\fBTcl_OutputBuffered\fR(\fIchannel\fR)
|
||||
.sp
|
||||
Tcl_WideInt
|
||||
long long
|
||||
\fBTcl_Seek\fR(\fIchannel, offset, seekMode\fR)
|
||||
.sp
|
||||
Tcl_WideInt
|
||||
long long
|
||||
\fBTcl_Tell\fR(\fIchannel\fR)
|
||||
.sp
|
||||
int
|
||||
@@ -190,7 +190,7 @@ A buffer containing the bytes to output to the channel.
|
||||
.AP int bytesToWrite in
|
||||
The number of bytes to consume from \fIcharBuf\fR or \fIbyteBuf\fR and
|
||||
output to the channel.
|
||||
.AP Tcl_WideInt offset in
|
||||
.AP "long long" offset in
|
||||
How far to move the access point in the channel at which the next input or
|
||||
output operation will be applied, measured in bytes from the position
|
||||
given by \fIseekMode\fR. May be either positive or negative.
|
||||
@@ -198,7 +198,7 @@ given by \fIseekMode\fR. May be either positive or negative.
|
||||
Relative to which point to seek; used with \fIoffset\fR to calculate the new
|
||||
access point for the channel. Legal values are \fBSEEK_SET\fR,
|
||||
\fBSEEK_CUR\fR, and \fBSEEK_END\fR.
|
||||
.AP Tcl_WideInt length in
|
||||
.AP "long long" length in
|
||||
The (non-negative) length to truncate the channel the channel to.
|
||||
.AP "const char" *optionName in
|
||||
The name of an option applicable to this channel, such as \fB\-blocking\fR.
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1997 by Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 1997 Sun Microsystems, Inc.
|
||||
'\" Contributions from Don Porter, NIST, 2004. (not subject to US copyright)
|
||||
'\" Copyright (c) 2018 Nathan Coulter.
|
||||
'\"
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1998-2000 by Scriptics Corporation.
|
||||
'\" Copyright (c) 1998-2000 Scriptics Corporation.
|
||||
'\" All rights reserved.
|
||||
'\"
|
||||
.TH Tcl_SourceRCFile 3 8.3 Tcl "Tcl Library Procedures"
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 2001 by ActiveState Corporation
|
||||
'\" Copyright (c) 2001 ActiveState Corporation
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+3
-3
@@ -119,9 +119,9 @@ returned as a new value.
|
||||
Points to a value to manipulate.
|
||||
.AP Tcl_Obj *appendObjPtr in
|
||||
The value to append to \fIobjPtr\fR in \fBTcl_AppendObjToObj\fR.
|
||||
.AP int *lengthPtr out
|
||||
If non-NULL, the location where \fBTcl_GetStringFromObj\fR will store
|
||||
the length of a value's string representation.
|
||||
.AP size_t | int *lengthPtr out
|
||||
The location where \fBTcl_GetStringFromObj\fR will store the length
|
||||
of a value's string representation. May be (int *)NULL when not used.
|
||||
.AP "const char" *string in
|
||||
Null-terminated string value to append to \fIobjPtr\fR.
|
||||
.AP va_list argList in
|
||||
|
||||
+1
-1
@@ -1,6 +1,6 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1992-1999 Karl Lehenbauer & Mark Diekhans.
|
||||
'\" Copyright (c) 2000 by Scriptics Corporation.
|
||||
'\" Copyright (c) 2000 Scriptics Corporation.
|
||||
'\" All rights reserved.
|
||||
'\"
|
||||
.TH TCL_MEM_DEBUG 3 8.1 Tcl "Tcl Library Procedures"
|
||||
|
||||
@@ -224,7 +224,7 @@ is reached. The upper bits of the Unicode character will be 0.
|
||||
.RS
|
||||
.PP
|
||||
The range U+00D800\(enU+00DFFF is reserved for surrogates, which
|
||||
are illegal on its own. Therefore, such sequences will result in
|
||||
are illegal on their own. Therefore, such sequences will result in
|
||||
the replacement character U+FFFD. Surrogate pairs should be
|
||||
encoded as single \e\fBU\fIhhhhhhhh\fR character.
|
||||
.RE
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1997 by Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 1997 Sun Microsystems, Inc.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
oo::abstract \- a class that does not allow direct instances of itself
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBoo::abstract\fI method \fR?\fIarg ...\fR?
|
||||
.fi
|
||||
|
||||
+2
-2
@@ -1,6 +1,6 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1997 by Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 2008 by Donal K. Fellows
|
||||
'\" Copyright (c) 1997 Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 2008 Donal K. Fellows
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
callback, mymethod \- generate callbacks to methods
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBcallback\fR \fImethodName\fR ?\fIarg ...\fR?
|
||||
\fBmymethod\fR \fImethodName\fR ?\fIarg ...\fR?
|
||||
|
||||
+2
-2
@@ -175,7 +175,7 @@ operating system, as returned by \fBencoding system\fR.
|
||||
.TP
|
||||
\fB\-eofchar\fR \fB{\fIinChar outChar\fB}\fR
|
||||
.
|
||||
This option supports DOS file systems that use Control-z (\ex1a) as an
|
||||
This option supports DOS file systems that use Control-z (\ex1A) as an
|
||||
end of file marker. If \fIchar\fR is not an empty string, then this
|
||||
character signals end-of-file when it is encountered during input.
|
||||
For output, the end-of-file character is output when the channel is
|
||||
@@ -188,7 +188,7 @@ will apply to both reading and writing. When querying the end-of-file
|
||||
character of a read-write channel, a two-element list will always be
|
||||
returned. The default value for \fB\-eofchar\fR is the empty string
|
||||
in all cases except for files under Windows. In that case the
|
||||
\fB\-eofchar\fR is Control-z (\ex1a) for reading and the empty string
|
||||
\fB\-eofchar\fR is Control-z (\ex1A) for reading and the empty string
|
||||
for writing.
|
||||
The acceptable range for \fB\-eofchar\fR values is \ex01 - \ex7f;
|
||||
attempting to set \fB\-eofchar\fR to a value outside of this range will
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
oo::class \- class of all classes
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBoo::class\fI method \fR?\fIarg ...\fR?
|
||||
.fi
|
||||
|
||||
+1
-1
@@ -13,7 +13,7 @@
|
||||
classvariable \- create link from local variable to variable in class
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBclassvariable\fR \fIvariableName\fR ?\fI...\fR?
|
||||
.fi
|
||||
|
||||
+2
-2
@@ -8,7 +8,7 @@
|
||||
.SH NAME
|
||||
clock \- Obtain and manipulate dates and times
|
||||
.SH "SYNOPSIS"
|
||||
package require \fBTcl 8.5\fR
|
||||
package require \fBTcl 8.5-\fR
|
||||
.sp
|
||||
\fBclock add\fR \fItimeVal\fR ?\fIcount unit...\fR? ?\fI\-option value\fR?
|
||||
.sp
|
||||
@@ -951,7 +951,7 @@ msgcat(n)
|
||||
.SH KEYWORDS
|
||||
clock, date, time
|
||||
.SH "COPYRIGHT"
|
||||
Copyright (c) 2004 Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
Copyright \(co 2004 Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
'\" Local Variables:
|
||||
'\" mode: nroff
|
||||
'\" End:
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
oo::copy \- create copies of objects and classes
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBoo::copy\fI sourceObject \fR?\fItargetObject\fR? ?\fItargetNamespace\fR?
|
||||
.fi
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
oo::define, oo::objdefine \- define and configure classes and objects
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBoo::define\fI class defScript\fR
|
||||
\fBoo::define\fI class subcommand arg\fR ?\fIarg ...\fR?
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1998 by Scriptics Corporation.
|
||||
'\" Copyright (c) 1998 Scriptics Corporation.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+2
-13
@@ -246,15 +246,6 @@ the backslash character. If an argument contains forward slashes as the
|
||||
path separator, it may or may not be recognized as a path name, depending on
|
||||
the program.
|
||||
.PP
|
||||
Additionally, when calling a 16-bit DOS or Windows 3.X application, all path
|
||||
names must use the short, cryptic, path format (e.g., using
|
||||
.QW applba~1.def
|
||||
instead of
|
||||
.QW applbakery.default ),
|
||||
which can be obtained with the
|
||||
.QW "\fBfile attributes\fI fileName \fB\-shortname\fR"
|
||||
command.
|
||||
.PP
|
||||
Two or more forward or backward slashes in a row in a path refer to a
|
||||
network path. For example, a simple concatenation of the root directory
|
||||
\fBc:/\fR with a subdirectory \fB/windows/system\fR will yield
|
||||
@@ -295,11 +286,9 @@ The directory from which the Tcl executable was loaded.
|
||||
.IP \(bu 3
|
||||
The current directory.
|
||||
.IP \(bu 3
|
||||
The Windows NT 32-bit system directory.
|
||||
The Windows 32-bit system directory.
|
||||
.IP \(bu 3
|
||||
The Windows NT 16-bit system directory.
|
||||
.IP \(bu 3
|
||||
The Windows NT home directory.
|
||||
The Windows home directory.
|
||||
.IP \(bu 3
|
||||
The directories listed in the path.
|
||||
.PP
|
||||
|
||||
+2
-2
@@ -1,7 +1,7 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1993 The Regents of the University of California.
|
||||
'\" Copyright (c) 1994-2000 Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 2005 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved
|
||||
'\" Copyright (c) 2005 Kevin B. Kenny <kennykb@acm.org>. All rights reserved
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -514,7 +514,7 @@ arithmetic, boolean, compare, expression, fuzzy comparison, integer value
|
||||
.nf
|
||||
Copyright \(co 1993 The Regents of the University of California.
|
||||
Copyright \(co 1994-2000 Sun Microsystems Incorporated.
|
||||
Copyright \(co 2005 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
Copyright \(co 2005 Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
.fi
|
||||
'\" Local Variables:
|
||||
'\" mode: nroff
|
||||
|
||||
+3
-3
@@ -105,7 +105,7 @@ system, as returned by \fBencoding system\fR.
|
||||
.TP
|
||||
\fB\-eofchar\fR \fB{\fIinChar outChar\fB}\fR
|
||||
.
|
||||
This option supports DOS file systems that use Control-z (\ex1a) as an
|
||||
This option supports DOS file systems that use Control-z (\ex1A) as an
|
||||
end of file marker. If \fIchar\fR is not an empty string, then this
|
||||
character signals end-of-file when it is encountered during input. For
|
||||
output, the end-of-file character is output when the channel is closed.
|
||||
@@ -117,9 +117,9 @@ channel you can specify a single value that will apply to both reading
|
||||
and writing. When querying the end-of-file character of a read-write
|
||||
channel, a two-element list will always be returned. The default value
|
||||
for \fB\-eofchar\fR is the empty string in all cases except for files
|
||||
under Windows. In that case the \fB\-eofchar\fR is Control-z (\ex1a) for
|
||||
under Windows. In that case the \fB\-eofchar\fR is Control-z (\ex1A) for
|
||||
reading and the empty string for writing.
|
||||
The acceptable range for \fB\-eofchar\fR values is \ex01 - \ex7f;
|
||||
The acceptable range for \fB\-eofchar\fR values is \ex01 - \ex7F;
|
||||
attempting to set \fB\-eofchar\fR to a value outside of this range will
|
||||
generate an error.
|
||||
.TP
|
||||
|
||||
+23
-20
@@ -38,28 +38,31 @@ generated. On Windows, FAT file systems do not support access time.
|
||||
.TP
|
||||
\fBfile attributes \fIname\fR ?\fIoption value option value...\fR?
|
||||
.
|
||||
This subcommand returns or sets platform specific values associated
|
||||
with a file. The first form returns a list of the platform specific
|
||||
flags and their values. The second form returns the value for the
|
||||
specific option. The third form sets one or more of the values. The
|
||||
values are as follows:
|
||||
This subcommand returns or sets platform-specific values associated
|
||||
with a file. The first form returns a list of the platform-specific
|
||||
options and their values. The second form returns the value for the
|
||||
given option. The third form sets one or more of the values. The values
|
||||
are as follows:
|
||||
.RS
|
||||
.PP
|
||||
On Unix, \fB\-group\fR gets or sets the group name for the file. A group id
|
||||
can be given to the command, but it returns a group name. \fB\-owner\fR gets
|
||||
or sets the user name of the owner of the file. The command returns the
|
||||
owner name, but the numerical id can be passed when setting the
|
||||
owner. \fB\-permissions\fR sets or retrieves the octal code that chmod(1)
|
||||
uses. This command does also has limited support for setting using the
|
||||
symbolic attributes for chmod(1), of the form [ugo]?[[+\-=][rwxst],[...]],
|
||||
where multiple symbolic attributes can be separated by commas (example:
|
||||
\fBu+s,go\-rw\fR add sticky bit for user, remove read and write
|
||||
permissions for group and other). A simplified \fBls\fR style string,
|
||||
of the form rwxrwxrwx (must be 9 characters), is also supported
|
||||
(example: \fBrwxr\-xr\-t\fR is equivalent to 01755).
|
||||
On versions of Unix supporting file flags, \fB\-readonly\fR gives the
|
||||
value or sets or clears the readonly attribute of the file,
|
||||
i.e. the user immutable flag \fBuchg\fR to chflags(1).
|
||||
On Unix, \fB\-group\fR gets or sets the group name for the file. A
|
||||
group id can be given to the command, but it returns a group name.
|
||||
\fB\-owner\fR gets or sets the user name of the owner of the file. The
|
||||
command returns the owner name, but the numerical id can be passed when
|
||||
setting the owner. \fB\-permissions\fR retrieves or sets a file's
|
||||
access permissions, using octal notation by default. This option also
|
||||
provides limited support for setting permissions using the symbolic
|
||||
notation accepted by the \fBchmod\fR command, following the form
|
||||
[\fBugo\fR]?[[\fB+-=\fR][\fBrwxst\fR]\fB,\fR[...]]. Multiple permission
|
||||
specifications may be given, separated by commas. E.g., \fBu+s,go-rw\fR
|
||||
would set the setuid bit for a file's owner as well as remove read and
|
||||
write permission for the file's group and other users. An
|
||||
\fBls\fR-style string of the form \fBrwxrwxrwx\fR is also accepted but
|
||||
must always be 9 characters long. E.g., \fBrwxr-xr-t\fR is equivalent
|
||||
to \fB01755\fR. On versions of Unix supporting file flags,
|
||||
\fB-readonly\fR returns the value of, or sets, or clears the readonly
|
||||
attribute of a file, i.e., the user immutable flag (\fBuchg\fR) to the
|
||||
\fBchflags\fR command.
|
||||
.PP
|
||||
On Windows, \fB\-archive\fR gives the value or sets or clears the
|
||||
archive attribute of the file. \fB\-hidden\fR gives the value or sets
|
||||
|
||||
+1
-3
@@ -150,9 +150,7 @@ The safest approach is to use names consisting of
|
||||
alphanumeric characters only. Care should be taken with filenames
|
||||
which contain spaces (common on Windows systems) and
|
||||
filenames where the backslash is the directory separator (Windows
|
||||
native path names). Also Windows 3.1 only supports file
|
||||
names with a root of no more than 8 characters and an extension of no
|
||||
more than 3 characters.
|
||||
native path names).
|
||||
.PP
|
||||
On Windows platforms there are file and path length restrictions.
|
||||
Complete paths or filenames longer than about 260 characters will lead
|
||||
|
||||
+3
-3
@@ -1,6 +1,6 @@
|
||||
'\"
|
||||
'\" Copyright (c) 2018 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved
|
||||
'\" Copyright (c) 2019 by Donal Fellows
|
||||
'\" Copyright (c) 2018 Kevin B. Kenny <kennykb@acm.org>. All rights reserved
|
||||
'\" Copyright (c) 2019 Donal Fellows
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -12,7 +12,7 @@
|
||||
.SH NAME
|
||||
fpclassify \- Floating point number classification of Tcl values
|
||||
.SH SYNOPSIS
|
||||
package require \fBTcl 8.7\fR
|
||||
package require \fBtcl 8.7\fR
|
||||
.sp
|
||||
\fBfpclassify \fIvalue\fR
|
||||
.BE
|
||||
|
||||
+1
-1
@@ -1,6 +1,6 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1995-1997 Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 1998-2000 by Ajuba Solutions.
|
||||
'\" Copyright (c) 1998-2000 Ajuba Solutions.
|
||||
'\" Copyright (c) 2004 ActiveState Corporation.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
|
||||
+1
-1
@@ -1,7 +1,7 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1993 The Regents of the University of California.
|
||||
'\" Copyright (c) 1994-1996 Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 2001 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
'\" Copyright (c) 2001 Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -13,7 +13,7 @@
|
||||
link \- create link from command to method of object
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBlink\fR \fImethodName\fR ?\fI...\fR?
|
||||
\fBlink\fR \fB{\fIcommandName methodName\fB}\fR ?\fI...\fR?
|
||||
|
||||
+3
-2
@@ -89,9 +89,10 @@ Tcl tries to guess the name of the package.
|
||||
This may be done differently on different platforms.
|
||||
The default guess, which is used on most UNIX platforms, is to
|
||||
take the last element of \fIfileName\fR, strip off the first
|
||||
three characters if they are \fBlib\fR, and use any following
|
||||
three characters if they are \fBlib\fR, then strip off the next
|
||||
three characters if they are \fBtcl\fR, and use any following
|
||||
alphabetic and underline characters as the module name.
|
||||
For example, the command \fBload libxyz4.2.so\fR uses the module
|
||||
For example, the command \fBload libtclxyz4.2.so\fR uses the module
|
||||
name \fBxyz\fR and the command \fBload bin/last.so {}\fR uses the
|
||||
module name \fBlast\fR.
|
||||
.PP
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 2018 by Peter Spjuth. All rights reserved.
|
||||
'\" Copyright (c) 2018 Peter Spjuth. All rights reserved.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 2003 by Simon Geard. All rights reserved.
|
||||
'\" Copyright (c) 2003 Simon Geard. All rights reserved.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 2006 by Donal K. Fellows. All rights reserved.
|
||||
'\" Copyright (c) 2006 Donal K. Fellows. All rights reserved.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 2001 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
'\" Copyright (c) 2001 Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+3
-3
@@ -1,7 +1,7 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1993 The Regents of the University of California.
|
||||
'\" Copyright (c) 1994-2000 Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 2005 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved
|
||||
'\" Copyright (c) 2005 Kevin B. Kenny <kennykb@acm.org>. All rights reserved
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -13,7 +13,7 @@
|
||||
.SH NAME
|
||||
mathfunc \- Mathematical functions for Tcl expressions
|
||||
.SH SYNOPSIS
|
||||
package require \fBTcl 8.5\fR
|
||||
package require \fBTcl 8.5-\fR
|
||||
.sp
|
||||
\fB::tcl::mathfunc::abs\fR \fIarg\fR
|
||||
.br
|
||||
@@ -360,7 +360,7 @@ expr(n), fpclassify(n), mathop(n), namespace(n)
|
||||
.nf
|
||||
Copyright \(co 1993 The Regents of the University of California.
|
||||
Copyright \(co 1994-2000 Sun Microsystems Incorporated.
|
||||
Copyright \(co 2005, 2006 by Kevin B. Kenny <kennykb@acm.org>.
|
||||
Copyright \(co 2005-2006 Kevin B. Kenny <kennykb@acm.org>.
|
||||
.fi
|
||||
'\" Local Variables:
|
||||
'\" mode: nroff
|
||||
|
||||
+1
-1
@@ -11,7 +11,7 @@
|
||||
.SH NAME
|
||||
mathop \- Mathematical operators as Tcl commands
|
||||
.SH SYNOPSIS
|
||||
package require \fBTcl 8.5\fR
|
||||
package require \fBTcl 8.5-\fR
|
||||
.sp
|
||||
\fB::tcl::mathop::!\fR \fInumber\fR
|
||||
.br
|
||||
|
||||
+2
-2
@@ -1,6 +1,6 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1992-1999 by Karl Lehenbauer & Mark Diekhans
|
||||
'\" Copyright (c) 2000 by Scriptics Corporation.
|
||||
'\" Copyright (c) 1992-1999 Karl Lehenbauer & Mark Diekhans
|
||||
'\" Copyright (c) 2000 Scriptics Corporation.
|
||||
'\" All rights reserved.
|
||||
'\"
|
||||
.TH memory n 8.1 Tcl "Tcl Built-In Commands"
|
||||
|
||||
+1
-1
@@ -11,7 +11,7 @@
|
||||
.SH NAME
|
||||
msgcat \- Tcl message catalog
|
||||
.SH SYNOPSIS
|
||||
\fBpackage require Tcl 8.7\fR
|
||||
\fBpackage require tcl 8.7\fR
|
||||
.sp
|
||||
\fBpackage require msgcat 1.7\fR
|
||||
.sp
|
||||
|
||||
@@ -12,7 +12,7 @@
|
||||
my, myclass \- invoke any method of current object or its class
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBmy\fI methodName\fR ?\fIarg ...\fR?
|
||||
\fBmyclass\fI methodName\fR ?\fIarg ...\fR?
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
next, nextto \- invoke superclass method implementations
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBnext\fR ?\fIarg ...\fR?
|
||||
\fBnextto\fI class\fR ?\fIarg ...\fR?
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
oo::object \- root class of the class hierarchy
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBoo::object\fI method \fR?\fIarg ...\fR?
|
||||
.fi
|
||||
|
||||
+1
-1
@@ -1,5 +1,5 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1998-2000 by Scriptics Corporation.
|
||||
'\" Copyright (c) 1998-2000 Scriptics Corporation.
|
||||
'\" All rights reserved.
|
||||
'\"
|
||||
.TH pkg::create n 8.3 Tcl "Tcl Built-In Commands"
|
||||
|
||||
+17
-2
@@ -137,11 +137,26 @@ later, under \fBESCAPES\fR.
|
||||
.TP 8
|
||||
\fB^\fR
|
||||
.
|
||||
matches at the beginning of a line
|
||||
matches at the beginning of the string or a line (according to whether
|
||||
matching is newline-sensitive or not, as described in \fBMATCHING\fR,
|
||||
below).
|
||||
.TP
|
||||
\fB$\fR
|
||||
.
|
||||
matches at the end of a line
|
||||
matches at the end of the string or a line (according to whether
|
||||
matching is newline-sensitive or not, as described in \fBMATCHING\fR,
|
||||
below).
|
||||
.RS
|
||||
.PP
|
||||
The difference between string and line matching modes is immaterial
|
||||
when the string does not contain a newline character. The \fB\eA\fR
|
||||
and \fB\eZ\fR constraint escapes have a similar purpose but are
|
||||
always constraints for the overall string.
|
||||
.PP
|
||||
The default newline-sensitivity depends on the command that uses the
|
||||
regular expression, and can be overridden as described in
|
||||
\fBMETASYNTAX\fR, below.
|
||||
.RE
|
||||
.TP
|
||||
\fB(?=\fIre\fB)\fR
|
||||
.
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
self \- method call internal introspection
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBself\fR ?\fIsubcommand\fR?
|
||||
.fi
|
||||
|
||||
+1
-1
@@ -12,7 +12,7 @@
|
||||
oo::singleton \- a class that does only allows one instance of itself
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
package require TclOO
|
||||
package require tcl::oo
|
||||
|
||||
\fBoo::singleton\fI method \fR?\fIarg ...\fR?
|
||||
.fi
|
||||
|
||||
+1
-1
@@ -1,6 +1,6 @@
|
||||
'\"
|
||||
'\" Copyright (c) 1996 Sun Microsystems, Inc.
|
||||
'\" Copyright (c) 1998-1999 by Scriptics Corporation.
|
||||
'\" Copyright (c) 1998-1999 Scriptics Corporation.
|
||||
'\"
|
||||
'\" See the file "license.terms" for information on usage and redistribution
|
||||
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -44,7 +44,7 @@ If this character is present in the file, the \fBtclsh\fR application
|
||||
will read text up to but not including the character. An application
|
||||
that requires this character in the file may safely encode it as
|
||||
.QW \e032 ,
|
||||
.QW \ex1a ,
|
||||
.QW \ex1A ,
|
||||
or
|
||||
.QW \eu001a ;
|
||||
or may generate it by use of commands such as \fBformat\fR or \fBbinary\fR.
|
||||
|
||||
@@ -1179,7 +1179,6 @@ Here is a sketch of a sample test suite main script:
|
||||
.RS
|
||||
.PP
|
||||
.CS
|
||||
package require Tcl 8.6
|
||||
package require tcltest 2.5
|
||||
package require example
|
||||
\fB::tcltest::configure\fR -testdir \e
|
||||
|
||||
+1
-1
@@ -14,7 +14,7 @@
|
||||
zipfs \- Mount and work with ZIP files within Tcl
|
||||
.SH SYNOPSIS
|
||||
.nf
|
||||
\fBpackage require zipfs \fR?\fB1.0\fR?
|
||||
\fBpackage require tcl::zipfs \fR?\fB1.0\fR?
|
||||
.sp
|
||||
\fBzipfs canonical\fR ?\fImntpnt\fR? \fIfilename\fR ?\fIZIPFS\fR?
|
||||
\fBzipfs exists\fR \fIfilename\fR
|
||||
|
||||
@@ -2,7 +2,7 @@
|
||||
* colorings of characters
|
||||
* This file is #included by regcomp.c.
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+1
-1
@@ -2,7 +2,7 @@
|
||||
* Utility functions for handling cvecs
|
||||
* This file is #included by regcomp.c.
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+2
-2
@@ -2,7 +2,7 @@
|
||||
* lexical analyzer
|
||||
* This file is #included by regcomp.c.
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
@@ -1005,7 +1005,7 @@ brenext(
|
||||
if (LASTTYPE(EMPTY) || LASTTYPE('(') || LASTTYPE('^')) {
|
||||
RETV(PLAIN, c);
|
||||
}
|
||||
RET('*');
|
||||
RETV('*', 1);
|
||||
break;
|
||||
case CHR('['):
|
||||
if (HAVE(6) && *(v->now+0) == CHR('[') &&
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
* This file contains the Unicode locale specific regexp routines.
|
||||
* This file is #included by regcomp.c.
|
||||
*
|
||||
* Copyright (c) 1998 by Scriptics Corporation.
|
||||
* Copyright © 1998 Scriptics Corporation.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -2,7 +2,7 @@
|
||||
* NFA utilities.
|
||||
* This file is #included by regcomp.c.
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+1
-1
@@ -2,7 +2,7 @@
|
||||
* re_*comp and friends - compile REs
|
||||
* This file #includes several others (see the bottom).
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+1
-1
@@ -2,7 +2,7 @@
|
||||
* DFA routines
|
||||
* This file is #included by regexec.c.
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+1
-1
@@ -1,7 +1,7 @@
|
||||
/*
|
||||
* regerror - error-code expansion
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+1
-1
@@ -1,7 +1,7 @@
|
||||
/*
|
||||
* re_*exec and friends - match REs
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+1
-1
@@ -1,7 +1,7 @@
|
||||
/*
|
||||
* regfree - free an RE
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+1
-1
@@ -4,7 +4,7 @@
|
||||
* Mostly for implementation of backward-compatibility kludges. Note that
|
||||
* these routines exist ONLY in char versions.
|
||||
*
|
||||
* Copyright (c) 1998, 1999 Henry Spencer. All rights reserved.
|
||||
* Copyright © 1998, 1999 Henry Spencer. All rights reserved.
|
||||
*
|
||||
* Development of this software was funded, in part, by Cray Research Inc.,
|
||||
* UUNET Communications Services Inc., Sun Microsystems Inc., and Scriptics
|
||||
|
||||
+25
-11
@@ -5,9 +5,9 @@
|
||||
# This file is used to generate the tclDecls.h, tclPlatDecls.h
|
||||
# and tclStubInit.c files.
|
||||
#
|
||||
# Copyright (c) 1998-1999 by Scriptics Corporation.
|
||||
# Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved.
|
||||
# Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>
|
||||
# Copyright © 1998-1999 Scriptics Corporation.
|
||||
# Copyright © 2001, 2002 Kevin B. Kenny. All rights reserved.
|
||||
# Copyright © 2007 Daniel A. Steffen <das@users.sourceforge.net>
|
||||
#
|
||||
# See the file "license.terms" for information on usage and redistribution
|
||||
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -1751,10 +1751,10 @@ declare 490 {
|
||||
Tcl_StatBuf *Tcl_AllocStatBuf(void)
|
||||
}
|
||||
declare 491 {
|
||||
Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, int mode)
|
||||
long long Tcl_Seek(Tcl_Channel chan, long long offset, int mode)
|
||||
}
|
||||
declare 492 {
|
||||
Tcl_WideInt Tcl_Tell(Tcl_Channel chan)
|
||||
long long Tcl_Tell(Tcl_Channel chan)
|
||||
}
|
||||
|
||||
# TIP#91 (back-compat enhancements for channels) dkf
|
||||
@@ -2026,7 +2026,7 @@ declare 559 {
|
||||
|
||||
# TIP #208 ('chan' command) jeffh
|
||||
declare 560 {
|
||||
int Tcl_TruncateChannel(Tcl_Channel chan, Tcl_WideInt length)
|
||||
int Tcl_TruncateChannel(Tcl_Channel chan, long long length)
|
||||
}
|
||||
declare 561 {
|
||||
Tcl_DriverTruncateProc *Tcl_ChannelTruncateProc(
|
||||
@@ -2177,19 +2177,19 @@ declare 595 {
|
||||
int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr)
|
||||
}
|
||||
declare 596 {
|
||||
Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr)
|
||||
long long Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr)
|
||||
}
|
||||
declare 597 {
|
||||
Tcl_WideInt Tcl_GetModificationTimeFromStat(const Tcl_StatBuf *statPtr)
|
||||
long long Tcl_GetModificationTimeFromStat(const Tcl_StatBuf *statPtr)
|
||||
}
|
||||
declare 598 {
|
||||
Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr)
|
||||
long long Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr)
|
||||
}
|
||||
declare 599 {
|
||||
Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr)
|
||||
unsigned long long Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr)
|
||||
}
|
||||
declare 600 {
|
||||
Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr)
|
||||
unsigned long long Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr)
|
||||
}
|
||||
declare 601 {
|
||||
unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr)
|
||||
@@ -2402,6 +2402,17 @@ declare 648 {
|
||||
int length, Tcl_DString *dsPtr)
|
||||
}
|
||||
|
||||
# TIP #481
|
||||
declare 651 {
|
||||
char *TclGetStringFromObj(Tcl_Obj *objPtr, size_t *lengthPtr)
|
||||
}
|
||||
declare 652 {
|
||||
Tcl_UniChar *TclGetUnicodeFromObj(Tcl_Obj *objPtr, size_t *lengthPtr)
|
||||
}
|
||||
declare 653 {
|
||||
unsigned char *TclGetByteArrayFromObj(Tcl_Obj *objPtr, size_t *lengthPtr)
|
||||
}
|
||||
|
||||
# ----- BASELINE -- FOR -- 8.7.0 ----- #
|
||||
|
||||
##############################################################################
|
||||
@@ -2440,6 +2451,9 @@ declare 1 macosx {
|
||||
const char *bundleName, const char *bundleVersion,
|
||||
int hasResourceFile, int maxPathLen, char *libraryPath)
|
||||
}
|
||||
declare 2 macosx {
|
||||
void Tcl_MacOSXNotifierAddRunLoopMode(const void *runLoopMode)
|
||||
}
|
||||
|
||||
##############################################################################
|
||||
|
||||
|
||||
+34
-36
@@ -137,7 +137,11 @@ extern "C" {
|
||||
# define TCL_VARARGS_START(type, name, list) (va_start(list, name), name)
|
||||
#endif /* !TCL_NO_DEPRECATED */
|
||||
#if defined(__GNUC__) && (__GNUC__ > 2)
|
||||
# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a, b)))
|
||||
# if defined(_WIN32) && defined(__USE_MINGW_ANSI_STDIO) && __USE_MINGW_ANSI_STDIO
|
||||
# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__MINGW_PRINTF_FORMAT, a, b)))
|
||||
# else
|
||||
# define TCL_FORMAT_PRINTF(a,b) __attribute__ ((__format__ (__printf__, a, b)))
|
||||
# endif
|
||||
# define TCL_NORETURN __attribute__ ((noreturn))
|
||||
# define TCL_NOINLINE __attribute__ ((noinline))
|
||||
# if defined(BUILD_tcl) || defined(BUILD_tk)
|
||||
@@ -188,8 +192,7 @@ extern "C" {
|
||||
* MSVCRT.
|
||||
*/
|
||||
|
||||
#if (defined(_WIN32) && (defined(_MSC_VER) || (defined(__BORLANDC__) && (__BORLANDC__ >= 0x0550)) || defined(__LCC__) || defined(__WATCOMC__) || (defined(__GNUC__) && defined(__declspec))))
|
||||
# define HAVE_DECLSPEC 1
|
||||
#ifdef _WIN32
|
||||
# ifdef STATIC_BUILD
|
||||
# define DLLIMPORT
|
||||
# define DLLEXPORT
|
||||
@@ -327,17 +330,22 @@ typedef long LONG;
|
||||
|
||||
#ifdef __APPLE__
|
||||
# ifdef __LP64__
|
||||
# undef TCL_WIDE_INT_TYPE
|
||||
# define TCL_WIDE_INT_IS_LONG 1
|
||||
# define TCL_CFG_DO64BIT 1
|
||||
# else /* !__LP64__ */
|
||||
# define TCL_WIDE_INT_TYPE long long
|
||||
# undef TCL_WIDE_INT_IS_LONG
|
||||
# undef TCL_CFG_DO64BIT
|
||||
# endif /* __LP64__ */
|
||||
# undef HAVE_STRUCT_STAT64
|
||||
#endif /* __APPLE__ */
|
||||
|
||||
/* Cross-compiling 32-bit on a 64-bit platform? Then our
|
||||
* configure script does the wrong thing. Correct that here.
|
||||
*/
|
||||
#if defined(__GNUC__) && !defined(_WIN32) && !defined(__LP64__)
|
||||
# undef TCL_WIDE_INT_IS_LONG
|
||||
#endif
|
||||
|
||||
/*
|
||||
* Define Tcl_WideInt to be a type that is (at least) 64-bits wide, and define
|
||||
* Tcl_WideUInt to be the unsigned variant of that type (assuming that where
|
||||
@@ -353,32 +361,18 @@ typedef long LONG;
|
||||
*
|
||||
* The following invariant should hold for any long value 'longVal':
|
||||
* longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))
|
||||
*
|
||||
* Note on converting between Tcl_WideInt and strings. This implementation (in
|
||||
* tclObj.c) depends on the function
|
||||
* sprintf(...,"%" TCL_LL_MODIFIER "d",...).
|
||||
*/
|
||||
|
||||
#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)
|
||||
# if defined(_WIN32) && (!defined(__USE_MINGW_ANSI_STDIO) || !__USE_MINGW_ANSI_STDIO)
|
||||
# define TCL_WIDE_INT_TYPE __int64
|
||||
# define TCL_LL_MODIFIER "I64"
|
||||
# if defined(_WIN64)
|
||||
# define TCL_Z_MODIFIER "I"
|
||||
# endif
|
||||
# elif defined(__GNUC__)
|
||||
# define TCL_Z_MODIFIER "z"
|
||||
# else /* ! _WIN32 && ! __GNUC__ */
|
||||
#if !defined(TCL_WIDE_INT_TYPE) && !defined(TCL_WIDE_INT_IS_LONG) && !defined(_WIN32) && !defined(__GNUC__)
|
||||
/*
|
||||
* Don't know what platform it is and configure hasn't discovered what is
|
||||
* going on for us. Try to guess...
|
||||
*/
|
||||
# include <limits.h>
|
||||
# if defined(LLONG_MAX) && (LLONG_MAX == LONG_MAX)
|
||||
# define TCL_WIDE_INT_IS_LONG 1
|
||||
# endif
|
||||
# endif /* _WIN32 */
|
||||
#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */
|
||||
# include <limits.h>
|
||||
# if defined(LLONG_MAX) && (LLONG_MAX == LONG_MAX)
|
||||
# define TCL_WIDE_INT_IS_LONG 1
|
||||
# endif
|
||||
#endif
|
||||
|
||||
#ifndef TCL_WIDE_INT_TYPE
|
||||
# define TCL_WIDE_INT_TYPE long long
|
||||
@@ -388,11 +382,17 @@ typedef TCL_WIDE_INT_TYPE Tcl_WideInt;
|
||||
typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;
|
||||
|
||||
#ifndef TCL_LL_MODIFIER
|
||||
# define TCL_LL_MODIFIER "ll"
|
||||
# if defined(_WIN32) && (!defined(__USE_MINGW_ANSI_STDIO) || !__USE_MINGW_ANSI_STDIO)
|
||||
# define TCL_LL_MODIFIER "I64"
|
||||
# else
|
||||
# define TCL_LL_MODIFIER "ll"
|
||||
# endif
|
||||
#endif /* !TCL_LL_MODIFIER */
|
||||
#ifndef TCL_Z_MODIFIER
|
||||
# if defined(__GNUC__) && !defined(_WIN32)
|
||||
# define TCL_Z_MODIFIER "z"
|
||||
# elif defined(_WIN64)
|
||||
# define TCL_Z_MODIFIER TCL_LL_MODIFIER
|
||||
# else
|
||||
# define TCL_Z_MODIFIER ""
|
||||
# endif
|
||||
@@ -402,10 +402,8 @@ typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;
|
||||
#define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val)))
|
||||
#define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val)))
|
||||
|
||||
#if defined(_WIN32)
|
||||
# ifdef __BORLANDC__
|
||||
typedef struct stati64 Tcl_StatBuf;
|
||||
# elif defined(_WIN64) || defined(_USE_64BIT_TIME_T)
|
||||
#ifdef _WIN32
|
||||
# if defined(_WIN64) || defined(_USE_64BIT_TIME_T)
|
||||
typedef struct __stat64 Tcl_StatBuf;
|
||||
# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) || defined(_USE_32BIT_TIME_T)
|
||||
typedef struct _stati64 Tcl_StatBuf;
|
||||
@@ -956,7 +954,7 @@ typedef struct Tcl_DString {
|
||||
* 64-bit integers).
|
||||
*/
|
||||
|
||||
#define TCL_INTEGER_SPACE 24
|
||||
#define TCL_INTEGER_SPACE (3*(int)sizeof(Tcl_WideInt))
|
||||
|
||||
/*
|
||||
* Flag values passed to Tcl_ConvertElement.
|
||||
@@ -1102,7 +1100,7 @@ typedef struct Tcl_DString {
|
||||
#define TCL_LINK_CHARS 15
|
||||
#define TCL_LINK_BINARY 16
|
||||
#define TCL_LINK_READ_ONLY 0x80
|
||||
|
||||
|
||||
/*
|
||||
*----------------------------------------------------------------------------
|
||||
* Forward declarations of Tcl_HashTable and related types.
|
||||
@@ -1444,8 +1442,8 @@ typedef int (Tcl_DriverGetHandleProc) (ClientData instanceData,
|
||||
typedef int (Tcl_DriverFlushProc) (ClientData instanceData);
|
||||
typedef int (Tcl_DriverHandlerProc) (ClientData instanceData,
|
||||
int interestMask);
|
||||
typedef Tcl_WideInt (Tcl_DriverWideSeekProc) (ClientData instanceData,
|
||||
Tcl_WideInt offset, int mode, int *errorCodePtr);
|
||||
typedef long long (Tcl_DriverWideSeekProc) (ClientData instanceData,
|
||||
long long offset, int mode, int *errorCodePtr);
|
||||
/*
|
||||
* TIP #218, Channel Thread Actions
|
||||
*/
|
||||
@@ -1454,8 +1452,8 @@ typedef void (Tcl_DriverThreadActionProc) (ClientData instanceData,
|
||||
/*
|
||||
* TIP #208, File Truncation (etc.)
|
||||
*/
|
||||
typedef int (Tcl_DriverTruncateProc) (ClientData instanceData,
|
||||
Tcl_WideInt length);
|
||||
typedef int (Tcl_DriverTruncateProc) (void *instanceData,
|
||||
long long length);
|
||||
|
||||
/*
|
||||
* struct Tcl_ChannelType:
|
||||
|
||||
+4
-4
@@ -6,9 +6,9 @@
|
||||
* that don't exactly fit are passed up to the next larger size. Blocks
|
||||
* over a certain size are directly allocated from the system.
|
||||
*
|
||||
* Copyright (c) 1983 Regents of the University of California.
|
||||
* Copyright (c) 1996-1997 Sun Microsystems, Inc.
|
||||
* Copyright (c) 1998-1999 by Scriptics Corporation.
|
||||
* Copyright © 1983 Regents of the University of California.
|
||||
* Copyright © 1996-1997 Sun Microsystems, Inc.
|
||||
* Copyright © 1998-1999 Scriptics Corporation.
|
||||
*
|
||||
* Portions contributed by Chris Kingsley, Jack Jansen and Ray Johnson.
|
||||
*
|
||||
@@ -31,7 +31,7 @@
|
||||
* until Tcl uses config.h properly.
|
||||
*/
|
||||
|
||||
#if defined(_MSC_VER) || defined(__MSVCRT__) || defined(__BORLANDC__)
|
||||
#if defined(_MSC_VER) || defined(__MSVCRT__)
|
||||
typedef size_t caddr_t;
|
||||
#endif
|
||||
|
||||
|
||||
@@ -6,8 +6,8 @@
|
||||
* This file contains the procedures that convert Tcl Assembly Language (TAL)
|
||||
* to a sequence of bytecode instructions for the Tcl execution engine.
|
||||
*
|
||||
* Copyright (c) 2010 by Ozgur Dogan Ugurlu.
|
||||
* Copyright (c) 2010 by Kevin B. Kenny.
|
||||
* Copyright © 2010 Ozgur Dogan Ugurlu.
|
||||
* Copyright © 2010 Kevin B. Kenny.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+2
-2
@@ -5,8 +5,8 @@
|
||||
* in a safe way. The code here doesn't actually handle signals, though.
|
||||
* This code is based on proposals made by Mark Diekhans and Don Libes.
|
||||
*
|
||||
* Copyright (c) 1993 The Regents of the University of California.
|
||||
* Copyright (c) 1994 Sun Microsystems, Inc.
|
||||
* Copyright © 1993 The Regents of the University of California.
|
||||
* Copyright © 1994 Sun Microsystems, Inc.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+8
-7
@@ -5,13 +5,13 @@
|
||||
* including interpreter creation and deletion, command creation and
|
||||
* deletion, and command/script execution.
|
||||
*
|
||||
* Copyright (c) 1987-1994 The Regents of the University of California.
|
||||
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright (c) 1998-1999 by Scriptics Corporation.
|
||||
* Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>
|
||||
* Copyright (c) 2006-2008 by Joe Mistachkin. All rights reserved.
|
||||
* Copyright (c) 2008 Miguel Sofer <msofer@users.sourceforge.net>
|
||||
* Copyright © 1987-1994 The Regents of the University of California.
|
||||
* Copyright © 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright © 1998-1999 Scriptics Corporation.
|
||||
* Copyright © 2001, 2002 Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 2007 Daniel A. Steffen <das@users.sourceforge.net>
|
||||
* Copyright © 2006-2008 Joe Mistachkin. All rights reserved.
|
||||
* Copyright © 2008 Miguel Sofer <msofer@users.sourceforge.net>
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -1175,6 +1175,7 @@ Tcl_CreateInterp(void)
|
||||
*/
|
||||
|
||||
Tcl_PkgProvideEx(interp, "Tcl", TCL_PATCH_LEVEL, &tclStubs);
|
||||
Tcl_PkgProvideEx(interp, "tcl", TCL_PATCH_LEVEL, &tclStubs);
|
||||
|
||||
if (TclTommath_Init(interp) != TCL_OK) {
|
||||
Tcl_Panic("%s", TclGetString(Tcl_GetObjResult(interp)));
|
||||
|
||||
+33
-3
@@ -4,8 +4,8 @@
|
||||
* This file contains the implementation of the "binary" Tcl built-in
|
||||
* command and the Tcl binary data object.
|
||||
*
|
||||
* Copyright (c) 1997 by Sun Microsystems, Inc.
|
||||
* Copyright (c) 1998-1999 by Scriptics Corporation.
|
||||
* Copyright © 1997 Sun Microsystems, Inc.
|
||||
* Copyright © 1998-1999 Scriptics Corporation.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -496,7 +496,7 @@ TclGetBytesFromObj(
|
||||
/*
|
||||
*----------------------------------------------------------------------
|
||||
*
|
||||
* Tcl_GetByteArrayFromObj --
|
||||
* Tcl_GetByteArrayFromObj/TclGetByteArrayFromObj --
|
||||
*
|
||||
* Attempt to get the array of bytes from the Tcl object. If the object
|
||||
* is not already a ByteArray object, an attempt will be made to convert
|
||||
@@ -511,6 +511,7 @@ TclGetBytesFromObj(
|
||||
*----------------------------------------------------------------------
|
||||
*/
|
||||
|
||||
#undef Tcl_GetByteArrayFromObj
|
||||
unsigned char *
|
||||
Tcl_GetByteArrayFromObj(
|
||||
Tcl_Obj *objPtr, /* The ByteArray object. */
|
||||
@@ -533,6 +534,35 @@ Tcl_GetByteArrayFromObj(
|
||||
if (lengthPtr != NULL) {
|
||||
*lengthPtr = baPtr->used;
|
||||
}
|
||||
return (unsigned char *) baPtr->bytes;
|
||||
}
|
||||
|
||||
unsigned char *
|
||||
TclGetByteArrayFromObj(
|
||||
Tcl_Obj *objPtr, /* The ByteArray object. */
|
||||
size_t *lengthPtr) /* If non-NULL, filled with length of the
|
||||
* array of bytes in the ByteArray object. */
|
||||
{
|
||||
ByteArray *baPtr;
|
||||
const Tcl_ObjIntRep *irPtr;
|
||||
unsigned char *result = TclGetBytesFromObj(NULL, objPtr, (int *)NULL);
|
||||
|
||||
if (result) {
|
||||
return result;
|
||||
}
|
||||
|
||||
irPtr = TclFetchIntRep(objPtr, &tclByteArrayType);
|
||||
assert(irPtr != NULL);
|
||||
|
||||
baPtr = GET_BYTEARRAY(irPtr);
|
||||
|
||||
if (lengthPtr != NULL) {
|
||||
#if TCL_MAJOR_VERSION > 8
|
||||
*lengthPtr = baPtr->used;
|
||||
#else
|
||||
*lengthPtr = ((size_t)(unsigned)(baPtr->used + 1)) - 1;
|
||||
#endif
|
||||
}
|
||||
return baPtr->bytes;
|
||||
}
|
||||
|
||||
|
||||
@@ -5,9 +5,9 @@
|
||||
* problems involving overwritten, double freeing memory and loss of
|
||||
* memory.
|
||||
*
|
||||
* Copyright (c) 1991-1994 The Regents of the University of California.
|
||||
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright (c) 1998-1999 by Scriptics Corporation.
|
||||
* Copyright © 1991-1994 The Regents of the University of California.
|
||||
* Copyright © 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright © 1998-1999 Scriptics Corporation.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+3
-3
@@ -5,9 +5,9 @@
|
||||
* the time and date facilities of TclX, by Mark Diekhans and Karl
|
||||
* Lehenbauer.
|
||||
*
|
||||
* Copyright (c) 1991-1995 Karl Lehenbauer & Mark Diekhans.
|
||||
* Copyright (c) 1995 Sun Microsystems, Inc.
|
||||
* Copyright (c) 2004 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 1991-1995 Karl Lehenbauer & Mark Diekhans.
|
||||
* Copyright © 1995 Sun Microsystems, Inc.
|
||||
* Copyright © 2004 Kevin B. Kenny. All rights reserved.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+2
-2
@@ -4,8 +4,8 @@
|
||||
* This file contains the top-level command routines for most of the Tcl
|
||||
* built-in commands whose names begin with the letters A to H.
|
||||
*
|
||||
* Copyright (c) 1987-1993 The Regents of the University of California.
|
||||
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright © 1987-1993 The Regents of the University of California.
|
||||
* Copyright © 1994-1997 Sun Microsystems, Inc.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+6
-6
@@ -6,12 +6,12 @@
|
||||
* contains only commands in the generic core (i.e., those that don't
|
||||
* depend much upon UNIX facilities).
|
||||
*
|
||||
* Copyright (c) 1987-1993 The Regents of the University of California.
|
||||
* Copyright (c) 1993-1997 Lucent Technologies.
|
||||
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright (c) 1998-1999 by Scriptics Corporation.
|
||||
* Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright (c) 2005 Donal K. Fellows.
|
||||
* Copyright © 1987-1993 The Regents of the University of California.
|
||||
* Copyright © 1993-1997 Lucent Technologies.
|
||||
* Copyright © 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright © 1998-1999 Scriptics Corporation.
|
||||
* Copyright © 2001 Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 2005 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+37
-37
@@ -6,11 +6,11 @@
|
||||
* contains only commands in the generic core (i.e. those that don't
|
||||
* depend much upon UNIX facilities).
|
||||
*
|
||||
* Copyright (c) 1987-1993 The Regents of the University of California.
|
||||
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright (c) 1998-2000 Scriptics Corporation.
|
||||
* Copyright (c) 2002 ActiveState Corporation.
|
||||
* Copyright (c) 2003-2009 Donal K. Fellows.
|
||||
* Copyright © 1987-1993 The Regents of the University of California.
|
||||
* Copyright © 1994-1997 Sun Microsystems, Inc.
|
||||
* Copyright © 1998-2000 Scriptics Corporation.
|
||||
* Copyright © 2002 ActiveState Corporation.
|
||||
* Copyright © 2003-2009 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -36,31 +36,31 @@ static int UniCharIsHexDigit(int character);
|
||||
*/
|
||||
|
||||
const char tclDefaultTrimSet[] =
|
||||
"\x09\x0a\x0b\x0c\x0d " /* ASCII */
|
||||
"\xc0\x80" /* nul (U+0000) */
|
||||
"\xc2\x85" /* next line (U+0085) */
|
||||
"\xc2\xa0" /* non-breaking space (U+00a0) */
|
||||
"\xe1\x9a\x80" /* ogham space mark (U+1680) */
|
||||
"\xe1\xa0\x8e" /* mongolian vowel separator (U+180e) */
|
||||
"\xe2\x80\x80" /* en quad (U+2000) */
|
||||
"\xe2\x80\x81" /* em quad (U+2001) */
|
||||
"\xe2\x80\x82" /* en space (U+2002) */
|
||||
"\xe2\x80\x83" /* em space (U+2003) */
|
||||
"\xe2\x80\x84" /* three-per-em space (U+2004) */
|
||||
"\xe2\x80\x85" /* four-per-em space (U+2005) */
|
||||
"\xe2\x80\x86" /* six-per-em space (U+2006) */
|
||||
"\xe2\x80\x87" /* figure space (U+2007) */
|
||||
"\xe2\x80\x88" /* punctuation space (U+2008) */
|
||||
"\xe2\x80\x89" /* thin space (U+2009) */
|
||||
"\xe2\x80\x8a" /* hair space (U+200a) */
|
||||
"\xe2\x80\x8b" /* zero width space (U+200b) */
|
||||
"\xe2\x80\xa8" /* line separator (U+2028) */
|
||||
"\xe2\x80\xa9" /* paragraph separator (U+2029) */
|
||||
"\xe2\x80\xaf" /* narrow no-break space (U+202f) */
|
||||
"\xe2\x81\x9f" /* medium mathematical space (U+205f) */
|
||||
"\xe2\x81\xa0" /* word joiner (U+2060) */
|
||||
"\xe3\x80\x80" /* ideographic space (U+3000) */
|
||||
"\xef\xbb\xbf" /* zero width no-break space (U+feff) */
|
||||
"\x09\x0A\x0B\x0C\x0D " /* ASCII */
|
||||
"\xC0\x80" /* nul (U+0000) */
|
||||
"\xC2\x85" /* next line (U+0085) */
|
||||
"\xC2\xA0" /* non-breaking space (U+00a0) */
|
||||
"\xE1\x9A\x80" /* ogham space mark (U+1680) */
|
||||
"\xE1\xA0\x8E" /* mongolian vowel separator (U+180e) */
|
||||
"\xE2\x80\x80" /* en quad (U+2000) */
|
||||
"\xE2\x80\x81" /* em quad (U+2001) */
|
||||
"\xE2\x80\x82" /* en space (U+2002) */
|
||||
"\xE2\x80\x83" /* em space (U+2003) */
|
||||
"\xE2\x80\x84" /* three-per-em space (U+2004) */
|
||||
"\xE2\x80\x85" /* four-per-em space (U+2005) */
|
||||
"\xE2\x80\x86" /* six-per-em space (U+2006) */
|
||||
"\xE2\x80\x87" /* figure space (U+2007) */
|
||||
"\xE2\x80\x88" /* punctuation space (U+2008) */
|
||||
"\xE2\x80\x89" /* thin space (U+2009) */
|
||||
"\xE2\x80\x8A" /* hair space (U+200a) */
|
||||
"\xE2\x80\x8B" /* zero width space (U+200b) */
|
||||
"\xE2\x80\xA8" /* line separator (U+2028) */
|
||||
"\xE2\x80\xA9" /* paragraph separator (U+2029) */
|
||||
"\xE2\x80\xAF" /* narrow no-break space (U+202f) */
|
||||
"\xE2\x81\x9F" /* medium mathematical space (U+205f) */
|
||||
"\xE2\x81\xA0" /* word joiner (U+2060) */
|
||||
"\xE3\x80\x80" /* ideographic space (U+3000) */
|
||||
"\xEF\xBB\xBF" /* zero width no-break space (U+feff) */
|
||||
;
|
||||
|
||||
/*
|
||||
@@ -4148,14 +4148,14 @@ Tcl_TimeRateObjCmd(
|
||||
Tcl_Obj *objPtr;
|
||||
int result, i;
|
||||
Tcl_Obj *calibrate = NULL, *direct = NULL;
|
||||
TclWideMUInt count = 0; /* Holds repetition count */
|
||||
Tcl_WideUInt count = 0; /* Holds repetition count */
|
||||
Tcl_WideInt maxms = WIDE_MIN;
|
||||
/* Maximal running time (in milliseconds) */
|
||||
TclWideMUInt maxcnt = WIDE_MAX;
|
||||
Tcl_WideUInt maxcnt = WIDE_MAX;
|
||||
/* Maximal count of iterations. */
|
||||
TclWideMUInt threshold = 1; /* Current threshold for check time (faster
|
||||
Tcl_WideUInt threshold = 1; /* Current threshold for check time (faster
|
||||
* repeat count without time check) */
|
||||
TclWideMUInt maxIterTm = 1; /* Max time of some iteration as max
|
||||
Tcl_WideUInt maxIterTm = 1; /* Max time of some iteration as max
|
||||
* threshold, additionally avoiding divide to
|
||||
* zero (i.e., never < 1) */
|
||||
unsigned short factor = 50; /* Factor (4..50) limiting threshold to avoid
|
||||
@@ -4529,13 +4529,13 @@ Tcl_TimeRateObjCmd(
|
||||
|
||||
{
|
||||
Tcl_Obj *objarr[8], **objs = objarr;
|
||||
TclWideMUInt usec, val;
|
||||
Tcl_WideUInt usec, val;
|
||||
int digits;
|
||||
|
||||
/*
|
||||
* Absolute execution time in microseconds or in wide clicks.
|
||||
*/
|
||||
usec = (TclWideMUInt)(middle - start);
|
||||
usec = (Tcl_WideUInt)(middle - start);
|
||||
|
||||
#ifdef TCL_WIDE_CLICKS
|
||||
/*
|
||||
@@ -4565,7 +4565,7 @@ Tcl_TimeRateObjCmd(
|
||||
* Estimate the time of overhead (microsecs).
|
||||
*/
|
||||
|
||||
TclWideMUInt curOverhead = overhead * count;
|
||||
Tcl_WideUInt curOverhead = overhead * count;
|
||||
|
||||
if (usec > curOverhead) {
|
||||
usec -= curOverhead;
|
||||
|
||||
@@ -4,10 +4,10 @@
|
||||
* This file contains compilation procedures that compile various Tcl
|
||||
* commands into a sequence of instructions ("bytecodes").
|
||||
*
|
||||
* Copyright (c) 1997-1998 Sun Microsystems, Inc.
|
||||
* Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright (c) 2002 ActiveState Corporation.
|
||||
* Copyright (c) 2004-2013 by Donal K. Fellows.
|
||||
* Copyright © 1997-1998 Sun Microsystems, Inc.
|
||||
* Copyright © 2001 Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 2002 ActiveState Corporation.
|
||||
* Copyright © 2004-2013 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
@@ -5,10 +5,10 @@
|
||||
* commands (beginning with the letters 'g' through 'r') into a sequence
|
||||
* of instructions ("bytecodes").
|
||||
*
|
||||
* Copyright (c) 1997-1998 Sun Microsystems, Inc.
|
||||
* Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright (c) 2002 ActiveState Corporation.
|
||||
* Copyright (c) 2004-2013 by Donal K. Fellows.
|
||||
* Copyright © 1997-1998 Sun Microsystems, Inc.
|
||||
* Copyright © 2001 Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 2002 ActiveState Corporation.
|
||||
* Copyright © 2004-2013 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
@@ -6,10 +6,10 @@
|
||||
* [upvar] and [variable]) into a sequence of instructions ("bytecodes").
|
||||
* Also includes the operator command compilers.
|
||||
*
|
||||
* Copyright (c) 1997-1998 Sun Microsystems, Inc.
|
||||
* Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright (c) 2002 ActiveState Corporation.
|
||||
* Copyright (c) 2004-2010 by Donal K. Fellows.
|
||||
* Copyright © 1997-1998 Sun Microsystems, Inc.
|
||||
* Copyright © 2001 Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 2002 ActiveState Corporation.
|
||||
* Copyright © 2004-2010 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
@@ -5,8 +5,8 @@
|
||||
* commands (like quoted strings or nested sub-commands) into a sequence
|
||||
* of instructions ("bytecodes").
|
||||
*
|
||||
* Copyright (c) 1996-1998 Sun Microsystems, Inc.
|
||||
* Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 1996-1998 Sun Microsystems, Inc.
|
||||
* Copyright © 2001 Kevin B. Kenny. All rights reserved.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+1
-1
@@ -4,7 +4,7 @@
|
||||
* This file provides the facilities which allow Tcl and other packages
|
||||
* to embed configuration information into their binary libraries.
|
||||
*
|
||||
* Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net>
|
||||
* Copyright © 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net>
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+71
-18
@@ -1464,10 +1464,10 @@ EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
|
||||
/* 490 */
|
||||
EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
|
||||
/* 491 */
|
||||
EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset,
|
||||
EXTERN long long Tcl_Seek(Tcl_Channel chan, long long offset,
|
||||
int mode);
|
||||
/* 492 */
|
||||
EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan);
|
||||
EXTERN long long Tcl_Tell(Tcl_Channel chan);
|
||||
/* 493 */
|
||||
EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
|
||||
const Tcl_ChannelType *chanTypePtr);
|
||||
@@ -1665,7 +1665,7 @@ EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
|
||||
Tcl_Obj *obj, void *value);
|
||||
/* 560 */
|
||||
EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
|
||||
Tcl_WideInt length);
|
||||
long long length);
|
||||
/* 561 */
|
||||
EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
|
||||
const Tcl_ChannelType *chanTypePtr);
|
||||
@@ -1771,16 +1771,16 @@ EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
|
||||
/* 595 */
|
||||
EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
|
||||
/* 596 */
|
||||
EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
|
||||
EXTERN long long Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
|
||||
/* 597 */
|
||||
EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat(
|
||||
EXTERN long long Tcl_GetModificationTimeFromStat(
|
||||
const Tcl_StatBuf *statPtr);
|
||||
/* 598 */
|
||||
EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
|
||||
EXTERN long long Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
|
||||
/* 599 */
|
||||
EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
|
||||
EXTERN unsigned long long Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
|
||||
/* 600 */
|
||||
EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
|
||||
EXTERN unsigned long long Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
|
||||
/* 601 */
|
||||
EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
|
||||
/* 602 */
|
||||
@@ -1920,6 +1920,17 @@ EXTERN char * Tcl_UniCharToUtfDString(const int *uniStr,
|
||||
/* 648 */
|
||||
EXTERN int * Tcl_UtfToUniCharDString(const char *src, int length,
|
||||
Tcl_DString *dsPtr);
|
||||
/* Slot 649 is reserved */
|
||||
/* Slot 650 is reserved */
|
||||
/* 651 */
|
||||
EXTERN char * TclGetStringFromObj(Tcl_Obj *objPtr,
|
||||
size_t *lengthPtr);
|
||||
/* 652 */
|
||||
EXTERN Tcl_UniChar * TclGetUnicodeFromObj(Tcl_Obj *objPtr,
|
||||
size_t *lengthPtr);
|
||||
/* 653 */
|
||||
EXTERN unsigned char * TclGetByteArrayFromObj(Tcl_Obj *objPtr,
|
||||
size_t *lengthPtr);
|
||||
|
||||
typedef struct {
|
||||
const struct TclPlatStubs *tclPlatStubs;
|
||||
@@ -2446,8 +2457,8 @@ typedef struct TclStubs {
|
||||
Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
|
||||
void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
|
||||
Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
|
||||
Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
|
||||
Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
|
||||
long long (*tcl_Seek) (Tcl_Channel chan, long long offset, int mode); /* 491 */
|
||||
long long (*tcl_Tell) (Tcl_Channel chan); /* 492 */
|
||||
Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
|
||||
int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
|
||||
int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
|
||||
@@ -2515,7 +2526,7 @@ typedef struct TclStubs {
|
||||
void (*tcl_SetBignumObj) (Tcl_Obj *obj, void *value); /* 557 */
|
||||
int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, void *value); /* 558 */
|
||||
int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, void *value); /* 559 */
|
||||
int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
|
||||
int (*tcl_TruncateChannel) (Tcl_Channel chan, long long length); /* 560 */
|
||||
Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
|
||||
void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
|
||||
void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
|
||||
@@ -2551,11 +2562,11 @@ typedef struct TclStubs {
|
||||
int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
|
||||
int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
|
||||
int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
|
||||
Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
|
||||
Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
|
||||
Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
|
||||
Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
|
||||
Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
|
||||
long long (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
|
||||
long long (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
|
||||
long long (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
|
||||
unsigned long long (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
|
||||
unsigned long long (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
|
||||
unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
|
||||
int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
|
||||
int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
|
||||
@@ -2604,6 +2615,11 @@ typedef struct TclStubs {
|
||||
int (*tcl_UtfToUniChar) (const char *src, int *chPtr); /* 646 */
|
||||
char * (*tcl_UniCharToUtfDString) (const int *uniStr, int uniLength, Tcl_DString *dsPtr); /* 647 */
|
||||
int * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 648 */
|
||||
void (*reserved649)(void);
|
||||
void (*reserved650)(void);
|
||||
char * (*tclGetStringFromObj) (Tcl_Obj *objPtr, size_t *lengthPtr); /* 651 */
|
||||
Tcl_UniChar * (*tclGetUnicodeFromObj) (Tcl_Obj *objPtr, size_t *lengthPtr); /* 652 */
|
||||
unsigned char * (*tclGetByteArrayFromObj) (Tcl_Obj *objPtr, size_t *lengthPtr); /* 653 */
|
||||
} TclStubs;
|
||||
|
||||
extern const TclStubs *tclStubsPtr;
|
||||
@@ -3932,6 +3948,14 @@ extern const TclStubs *tclStubsPtr;
|
||||
(tclStubsPtr->tcl_UniCharToUtfDString) /* 647 */
|
||||
#define Tcl_UtfToUniCharDString \
|
||||
(tclStubsPtr->tcl_UtfToUniCharDString) /* 648 */
|
||||
/* Slot 649 is reserved */
|
||||
/* Slot 650 is reserved */
|
||||
#define TclGetStringFromObj \
|
||||
(tclStubsPtr->tclGetStringFromObj) /* 651 */
|
||||
#define TclGetUnicodeFromObj \
|
||||
(tclStubsPtr->tclGetUnicodeFromObj) /* 652 */
|
||||
#define TclGetByteArrayFromObj \
|
||||
(tclStubsPtr->tclGetByteArrayFromObj) /* 653 */
|
||||
|
||||
#endif /* defined(USE_TCL_STUBS) */
|
||||
|
||||
@@ -4114,6 +4138,37 @@ extern const TclStubs *tclStubsPtr;
|
||||
# endif
|
||||
#endif
|
||||
|
||||
#undef Tcl_GetString
|
||||
#undef Tcl_GetUnicode
|
||||
#define Tcl_GetString(objPtr) \
|
||||
Tcl_GetStringFromObj(objPtr, (int *)NULL)
|
||||
#define Tcl_GetUnicode(objPtr) \
|
||||
Tcl_GetUnicodeFromObj(objPtr, (int *)NULL)
|
||||
#ifdef TCL_NO_DEPRECATED
|
||||
#undef Tcl_GetStringFromObj
|
||||
#undef Tcl_GetUnicodeFromObj
|
||||
#undef Tcl_GetByteArrayFromObj
|
||||
#endif
|
||||
#if defined(USE_TCL_STUBS)
|
||||
#ifdef TCL_NO_DEPRECATED
|
||||
#define Tcl_GetStringFromObj(objPtr, sizePtr) \
|
||||
(sizeof(*sizePtr) <= sizeof(int) ? tclStubsPtr->tcl_GetStringFromObj(objPtr, (int *)sizePtr) : tclStubsPtr->tclGetStringFromObj(objPtr, (size_t *)sizePtr))
|
||||
#define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \
|
||||
(sizeof(*sizePtr) <= sizeof(int) ? tclStubsPtr->tcl_GetByteArrayFromObj(objPtr, (int *)sizePtr) : tclStubsPtr->tclGetByteArrayFromObj(objPtr, (size_t *)sizePtr))
|
||||
#define Tcl_GetUnicodeFromObj(objPtr, sizePtr) \
|
||||
(sizeof(*sizePtr) <= sizeof(int) ? tclStubsPtr->tcl_GetUnicodeFromObj(objPtr, (int *)sizePtr) : tclStubsPtr->tclGetUnicodeFromObj(objPtr, (size_t *)sizePtr))
|
||||
#endif
|
||||
#else
|
||||
#ifdef TCL_NO_DEPRECATED
|
||||
#define Tcl_GetStringFromObj(objPtr, sizePtr) \
|
||||
(sizeof(*sizePtr) <= sizeof(int) ? (Tcl_GetStringFromObj)(objPtr, (int *)sizePtr) : (TclGetStringFromObj)(objPtr, (size_t *)sizePtr))
|
||||
#define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \
|
||||
(sizeof(*sizePtr) <= sizeof(int) ? (Tcl_GetByteArrayFromObj)(objPtr, (int *)sizePtr) : TclGetByteArrayFromObj(objPtr, (size_t *)sizePtr))
|
||||
#define Tcl_GetUnicodeFromObj(objPtr, sizePtr) \
|
||||
(sizeof(*sizePtr) <= sizeof(int) ? (Tcl_GetUnicodeFromObj)(objPtr, (int *)sizePtr) : TclGetUnicodeFromObj(objPtr, (size_t *)sizePtr))
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#undef Tcl_NewLongObj
|
||||
#define Tcl_NewLongObj(value) Tcl_NewWideIntObj((long)(value))
|
||||
#undef Tcl_NewIntObj
|
||||
@@ -4124,8 +4179,6 @@ extern const TclStubs *tclStubsPtr;
|
||||
#define Tcl_SetIntObj(objPtr, value) Tcl_SetWideIntObj((objPtr), (int)(value))
|
||||
#undef Tcl_SetLongObj
|
||||
#define Tcl_SetLongObj(objPtr, value) Tcl_SetWideIntObj((objPtr), (long)(value))
|
||||
#undef Tcl_GetUnicode
|
||||
#define Tcl_GetUnicode(objPtr) Tcl_GetUnicodeFromObj((objPtr), NULL)
|
||||
#undef Tcl_BackgroundError
|
||||
#define Tcl_BackgroundError(interp) Tcl_BackgroundException((interp), TCL_ERROR)
|
||||
#undef Tcl_StringMatch
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
* This file contains functions that implement the Tcl dict object type
|
||||
* and its accessor command.
|
||||
*
|
||||
* Copyright (c) 2002-2010 by Donal K. Fellows.
|
||||
* Copyright © 2002-2010 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
@@ -4,9 +4,9 @@
|
||||
* This file contains procedures that disassemble bytecode into either
|
||||
* human-readable or Tcl-processable forms.
|
||||
*
|
||||
* Copyright (c) 1996-1998 Sun Microsystems, Inc.
|
||||
* Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.
|
||||
* Copyright (c) 2013-2016 Donal K. Fellows.
|
||||
* Copyright © 1996-1998 Sun Microsystems, Inc.
|
||||
* Copyright © 2001 Kevin B. Kenny. All rights reserved.
|
||||
* Copyright © 2013-2016 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
*
|
||||
* Contains the implementation of the encoding conversion package.
|
||||
*
|
||||
* Copyright (c) 1996-1998 Sun Microsystems, Inc.
|
||||
* Copyright © 1996-1998 Sun Microsystems, Inc.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
@@ -2570,7 +2570,7 @@ UtfToUtf16Proc(
|
||||
*dst++ = (((*chPtr - 0x10000) >> 10) & 0xFF);
|
||||
*dst++ = (((*chPtr - 0x10000) >> 18) & 0x3) | 0xD8;
|
||||
*dst++ = (*chPtr & 0xFF);
|
||||
*dst++ = ((*chPtr & 0x3) >> 8) | 0xDC;
|
||||
*dst++ = ((*chPtr >> 8) & 0x3) | 0xDC;
|
||||
}
|
||||
#else
|
||||
*dst++ = (*chPtr & 0xFF);
|
||||
@@ -2582,10 +2582,10 @@ UtfToUtf16Proc(
|
||||
*dst++ = (*chPtr >> 8);
|
||||
*dst++ = (*chPtr & 0xFF);
|
||||
} else {
|
||||
*dst++ = ((*chPtr & 0x3) >> 8) | 0xDC;
|
||||
*dst++ = (*chPtr & 0xFF);
|
||||
*dst++ = (((*chPtr - 0x10000) >> 18) & 0x3) | 0xD8;
|
||||
*dst++ = (((*chPtr - 0x10000) >> 10) & 0xFF);
|
||||
*dst++ = ((*chPtr >> 8) & 0x3) | 0xDC;
|
||||
*dst++ = (*chPtr & 0xFF);
|
||||
}
|
||||
#else
|
||||
*dst++ = (*chPtr >> 8);
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
* Contains support for ensembles (see TIP#112), which provide simple
|
||||
* mechanism for creating composite commands on top of namespaces.
|
||||
*
|
||||
* Copyright (c) 2005-2013 Donal K. Fellows.
|
||||
* Copyright © 2005-2013 Donal K. Fellows.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
+2
-2
@@ -6,8 +6,8 @@
|
||||
* is primarily responsible for keeping the "env" arrays in sync with the
|
||||
* system environment variables.
|
||||
*
|
||||
* Copyright (c) 1991-1994 The Regents of the University of California.
|
||||
* Copyright (c) 1994-1998 Sun Microsystems, Inc.
|
||||
* Copyright © 1991-1994 The Regents of the University of California.
|
||||
* Copyright © 1994-1998 Sun Microsystems, Inc.
|
||||
*
|
||||
* See the file "license.terms" for information on usage and redistribution of
|
||||
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user