1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
!! duplicate a sheet
!if $scnt>=$max_sheets
error=bad_maxsheets
!reset job wims_ariane
!changeto var.proc
!endif
!bound sheet between 1 and $scnt default $empty
!if $sheet=$empty
error=bad_sheet
!reset job wims_ariane
!changeto var.proc
!endif
exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
!if $exocnt=0
!reset job wims_ariane
!changeto var.proc
!endif
!sh cd $wims_home/log/classes/$wims_class/sheets/\
cp .sheet$sheet .sheet$[$scnt+1]
tmp=!fileexists $wims_home/log/classes/$wims_class/sheets/sheet$sheet.src
!if $tmp=yes
msg2wims_primitives=!defof msgprim in wimshome/public_html/scripts/primitives/allmsgprim
!sh cd $wims_home/log/classes/$wims_class/sheets/\
cp -p sheet$sheet.src sheet$[$scnt+1].src\
$wims_home/bin/msg2wims sheet$[$scnt+1].src sheet$[$scnt+1].def
!endif
p=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
p=!replace line number 1 by 0 in $p
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :$p
!! --- copy severity of the sheet:
fsev=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity
sev=!line $[$sheet+1] of $fsev
!if $sev!=$empty
n=!linecnt $fsev
!while $n<$scnt+1
fsev=$fsev\
!increase n
!endwhile
fsev=!append line $sev to $fsev
!writefile wimshome/log/classes/$wims_class/sheets/.severity $fsev
!endif
!! ---
scnt=$[$scnt+1]
sheet=$scnt
message=$name_duplicateok
!reset job wims_ariane
!changeto var.proc
|
