Subversion Repositories wimsdev

Rev

Rev 12569 | Rev 12819 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12569 Rev 12760
Line 5... Line 5...
5 
desc_limit=255
 5 
desc_limit=255
6 
!if $cmd=new or $cmd=resume
 6 
!if $cmd=new or $cmd=resume
7 
  glossarys=
 7 
  glossarys=
8 
  !for i=1 to $glossarytot
 8 
  !for i=1 to $glossarytot
9 
    glo=!record $i of $gloss_dir/.glossaryindex
 9 
    glo=!record $i of $gloss_dir/.glossaryindex
10 
    !distribute lines $glo into a_,t_
 10 
    !distribute lines $glo into a_,t_,d_
11 
    glossarys=!append line $i,$t_ to $glossarys
 11 
    glossarys=!append line $i,$t_,$a_,[$d_] to $glossarys
12 
  !next i
 12 
  !next i
13 
  glossarytot=!linecnt $glossarys
 13 
  glossarytot=!linecnt $glossarys
14 
  !ifval $glossarytot=0
 14 
  !ifval $glossarytot=0
15 
    error=no_glossary
 15 
    error=no_glossary
16 
    !exit
 16 
    !exit
17 
  !endif
 17 
  !endif
18 
  !set glo=!line $gl of $(glossarys)
 18 
  !set glo=!line $gl of $(glossarys)
19 
  !distribute item $glo into d,ti
 19 
  !distribute item $glo into d,ti,st,di
- 
 
 20 
  !set di=!declosing $di
20 
  !exit
 21 
  !exit
21 
!endif
 22 
!endif
22 
!if $cmd=reply
 23 
!if $cmd=reply
23 
  !if $gl=$empty
 24 
  !if $gl=$empty
24 
    error=no_pick
 25 
    error=no_pick
Line 31... Line 32...
31 
  !endif
 32 
  !endif
32 
  !set glocnt=!recordcnt $gloss_dir/.glossary$gl
 33 
  !set glocnt=!recordcnt $gloss_dir/.glossary$gl
33 
  !for j=1 to $glocnt
 34 
  !for j=1 to $glocnt
34 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
 35 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
35 
    ititle=!singlespace $(title$j)
 36 
    ititle=!singlespace $(title$j)
- 
 
 37 
    idesc=!singlespace $(desc$j)
36 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
 38 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
37 
    !set sglo=!replace line number 2 by $ititle in $glocontent
 39 
    !set sglo=!replace line number 2 by $ititle in $glocontent
- 
 
 40 
    !set sglo=!replace line number 3 by $idesc in $glocontent
38 
    !if $sglo!=$glocontent
 41 
    !if $sglo!=$glocontent
39 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
 42 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
40 
$j\
 43 
$j\
41 
\
 44 
\
42 
$sglo
 45 
$sglo
Line 53... Line 56...
53 
2\
 56 
2\
54 
sort
 57 
sort
55 
 
 58 
 
56 
  glo=!record $gl of $gloss_dir/.glossaryindex
 59 
  glo=!record $gl of $gloss_dir/.glossaryindex
57 
  ititle=!singlespace $title
 60 
  ititle=!singlespace $title
- 
 
 61 
  idesc=!singlespace $desc
58 
  !set glo=$glo\
 62 
  !set glo=$glo\
59 
\
 63 
\
60 
 
 64 
 
61 
  !set sglo=!replace line number 2 by $ititle in $glo
 65 
  !set sglo=!replace line number 2 by $ititle in $glo
- 
 
 66 
  !set sglo=!replace line number 3 by $idesc in $glo
62 
  !read proc/updatefield.proc $gloss_dir/.glossaryindex\
 67 
  !read proc/updatefield.proc $gloss_dir/.glossaryindex\
63 
$gl\
 68 
$gl\
64 
\
 69 
\
65 
$sglo
 70 
$sglo
66 
 
 71