From 5275f90ac6aaec1b0ac873e981b9baaccdec330f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 17 Sep 2006 21:54:50 +0000 Subject: stellenbosch 5.0 (14sep06) git-svn-id: svn://tug.org/texlive/trunk@2139 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-a.bst | 11 +++++------ Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-n.bst | 11 +++++------ Master/texmf-dist/bibtex/bst/stellenbosch/ussagus.bst | 10 +++++----- 3 files changed, 15 insertions(+), 17 deletions(-) (limited to 'Master/texmf-dist/bibtex/bst') diff --git a/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-a.bst b/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-a.bst index 85c75f37773..98be85449fc 100644 --- a/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-a.bst +++ b/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-a.bst @@ -185,12 +185,11 @@ FUNCTION {remove.dots} while$ } -FUNCTION {remove.spaces} - { 'z := - "" - { z empty$ not } - { z #1 #1 substring$ - z #2 global.max$ substring$ 'z := +STRINGS {zstr} +FUNCTION {remove.spaces} { 'zstr := "" + { zstr empty$ not } + { zstr #1 #1 substring$ + zstr #2 global.max$ substring$ 'zstr := duplicate$ "~" = 'pop$ { duplicate$ " " = diff --git a/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-n.bst b/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-n.bst index e903a18b9c9..6bc85b9649f 100644 --- a/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-n.bst +++ b/Master/texmf-dist/bibtex/bst/stellenbosch/usmeg-n.bst @@ -424,12 +424,11 @@ FUNCTION {write.url} if$ } -STRINGS {z} - -FUNCTION {remove.spaces} { 'z := "" - { z empty$ not } - { z #1 #1 substring$ - z #2 global.max$ substring$ 'z := +STRINGS {zstr} +FUNCTION {remove.spaces} { 'zstr := "" + { zstr empty$ not } + { zstr #1 #1 substring$ + zstr #2 global.max$ substring$ 'zstr := duplicate$ "~" = 'pop$ { duplicate$ " " = diff --git a/Master/texmf-dist/bibtex/bst/stellenbosch/ussagus.bst b/Master/texmf-dist/bibtex/bst/stellenbosch/ussagus.bst index 8f9276bb4d6..1133418b48b 100644 --- a/Master/texmf-dist/bibtex/bst/stellenbosch/ussagus.bst +++ b/Master/texmf-dist/bibtex/bst/stellenbosch/ussagus.bst @@ -390,12 +390,12 @@ FUNCTION {write.url} if$ } -STRINGS {z} +STRINGS {zstr} -FUNCTION {remove.spaces} { 'z := "" - { z empty$ not } - { z #1 #1 substring$ - z #2 global.max$ substring$ 'z := +FUNCTION {remove.spaces} { 'zstr := "" + { zstr empty$ not } + { zstr #1 #1 substring$ + zstr #2 global.max$ substring$ 'zstr := duplicate$ "~" = 'pop$ { duplicate$ " " = -- cgit v1.2.3