| 694 |
|
} |
| 695 |
|
if$ |
| 696 |
|
} |
| 697 |
+ |
|
| 698 |
+ |
%FUNCTION {first.page} |
| 699 |
+ |
%{ 't := |
| 700 |
+ |
% "" |
| 701 |
+ |
% { t empty$ not t #1 #1 substring$ "-" = not and } |
| 702 |
+ |
% { t #1 #1 substring$ * |
| 703 |
+ |
% t #2 global.max$ substring$ 't := |
| 704 |
+ |
% } |
| 705 |
+ |
% while$ |
| 706 |
+ |
%} |
| 707 |
+ |
|
| 708 |
+ |
%FUNCTION {format.journal.pages} |
| 709 |
+ |
%{ |
| 710 |
+ |
% pages empty$ |
| 711 |
+ |
% 'skip$ |
| 712 |
+ |
% { duplicate$ empty$ |
| 713 |
+ |
% { pop$ format.pages } |
| 714 |
+ |
% { ", " * pages first.page * } |
| 715 |
+ |
% if$ |
| 716 |
+ |
% } |
| 717 |
+ |
% if$ |
| 718 |
+ |
%} |
| 719 |
|
|
| 720 |
|
FUNCTION {format.journal.pages} |
| 721 |
|
{ |
| 1188 |
|
|
| 1189 |
|
FUNCTION {default.type} { misc } |
| 1190 |
|
|
| 1191 |
< |
READ |
| 1191 |
> |
%READ |
| 1192 |
|
|
| 1193 |
|
FUNCTION {sortify} |
| 1194 |
|
{ purify$ |
| 1335 |
|
'sort.key$ := |
| 1336 |
|
} |
| 1337 |
|
|
| 1338 |
< |
ITERATE {presort} |
| 1338 |
> |
%%ITERATE {presort} |
| 1339 |
|
|
| 1340 |
< |
SORT |
| 1340 |
> |
%SORT |
| 1341 |
|
|
| 1342 |
+ |
READ |
| 1343 |
+ |
|
| 1344 |
|
STRINGS { longest.label } |
| 1345 |
|
|
| 1346 |
|
INTEGERS { number.label longest.label.width } |
