Rev 15584 | Rev 18307 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 15584 | Rev 18287 | ||
---|---|---|---|
Line 33... | Line 33... | ||
33 | !set glocnt=!recordcnt $gloss_dir/.glossary$gl |
33 | !set glocnt=!recordcnt $gloss_dir/.glossary$gl |
34 | !for j=1 to $glocnt |
34 | !for j=1 to $glocnt |
35 | !set glocontent=!record $j of $gloss_dir/.glossary$gl |
35 | !set glocontent=!record $j of $gloss_dir/.glossary$gl |
36 | ititle=!singlespace $(title$j) |
36 | ititle=!singlespace $(title$j) |
37 | idesc=!singlespace $(desc$j) |
37 | idesc=!singlespace $(desc$j) |
- | 38 | iadress=!singlespace $(adress$j) |
|
38 | !set glocontent=!record $j of $gloss_dir/.glossary$gl |
39 | !set glocontent=!record $j of $gloss_dir/.glossary$gl |
39 | !set sglo=!replace line number |
40 | !set sglo=!replace line number 1 by $iadress in $glocontent |
- | 41 | !set sglo=!replace line number 2 by $ititle in $sglo |
|
40 | !set sglo=!replace line number 3 by $idesc in $sglo |
42 | !set sglo=!replace line number 3 by $idesc in $sglo |
41 | !if $sglo!=$glocontent |
43 | !if $sglo!=$glocontent |
42 | !read proc/updatefield.proc $gloss_dir/.glossary$gl\ |
44 | !read proc/updatefield.proc $gloss_dir/.glossary$gl\ |
43 | $j\ |
45 | $j\ |
44 | \ |
46 | \ |
45 | $sglo |
47 | $sglo |
46 | !endif |
48 | !endif |
Line 55... | Line 57... | ||
55 | !read proc/updatefield.proc $gloss_dir/.glossary$gl\ |
57 | !read proc/updatefield.proc $gloss_dir/.glossary$gl\ |
56 | 2\ |
58 | 2\ |
57 | sort |
59 | sort |
58 | 60 | ||
59 | glo=!record $gl of $gloss_dir/.glossaryindex |
61 | glo=!record $gl of $gloss_dir/.glossaryindex |
- | 62 | iadress=!singlespace $adress |
|
60 | ititle=!singlespace $title |
63 | ititle=!singlespace $title |
61 | idesc=!singlespace $desc |
64 | idesc=!singlespace $desc |
62 | !set glo=$glo\ |
65 | !set glo=$glo\ |
63 | \ |
66 | \ |
64 | 67 | ||
- | 68 | !set sglo=!replace line number 1 by $iadress in $glo |
|
65 | !set sglo=!replace line number 2 by $ititle in |
69 | !set sglo=!replace line number 2 by $ititle in $sglo |
66 | !set sglo=!replace line number 3 by $idesc in $sglo |
70 | !set sglo=!replace line number 3 by $idesc in $sglo |
67 | !read proc/updatefield.proc $gloss_dir/.glossaryindex\ |
71 | !read proc/updatefield.proc $gloss_dir/.glossaryindex\ |
68 | $gl\ |
72 | $gl\ |
69 | \ |
73 | \ |
70 | $sglo |
74 | $sglo |