← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to tests/breakpoints.tst

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/breakpoints.tst
 
1
// Copyright INRIA
 
2
mode(-1)
 
3
//
 
4
// (setbpt delbpt).
 
5
deff('[]=lig()',[
 
6
'shlig(2),';
 
7
'if 1>2 then,';
 
8
'  shlig(4),';
 
9
',';
 
10
'  shlig(6)     ,'; // break-point
 
11
',';
 
12
'end,shlig(8)   ,'; // break-point
 
13
'shlig(9),';
 
14
'for k=1:3,';
 
15
'  k;shlig(11)  ,'; // break-point 
 
16
'end,shlig(12)  ,'; // break-point
 
17
',';
 
18
'for l=1:10,';
 
19
'  if l==5 then break,end,';
 
20
'  l,';
 
21
'end,shlig(17)  ,'; // break-point
 
22
'shlig(18),';
 
23
'select 2,';
 
24
'case 1 then,';
 
25
',';
 
26
'case 2 then,';
 
27
'  shlig(23)   ,'; // break-point
 
28
'case 3 then,';
 
29
'1,';
 
30
'else,';
 
31
'2,';
 
32
'end,shlig(28) ,'; // break-point
 
33
'shlig(29),';
 
34
'select 0,';
 
35
'case 1 then,';
 
36
'1,';
 
37
'case 2 then,';
 
38
'2,';
 
39
'case 3 then,';
 
40
'3,';
 
41
'else,';
 
42
'  shlig(38)  ,'; // break-point
 
43
'end,shlig(39),'; // break-point
 
44
'shlig(40)    ,'; // break-point
 
45
'i=0,';
 
46
'while i<3,';
 
47
'i=i+1,shlig(43) ,'; // break-point 
 
48
'end,shlig(44) ,'; //break-point
 
49
'i=0;,';
 
50
'while i<10,';
 
51
'i=i+1,if i==2 then break,end,shlig(47),';
 
52
'end,shlig(48) ,' //break-point
 
53
],'n')
 
54
deff('[]=shlig(n)','write(%io(2),''ligne ''+string(n))')
 
55
 
 
56
//definition des points d'arrets
 
57
setbpt('lig',6)
 
58
setbpt('lig',8)
 
59
setbpt('lig',11)
 
60
setbpt('lig',12)
 
61
setbpt('lig',17)
 
62
setbpt('lig',23)
 
63
setbpt('lig',28)
 
64
setbpt('lig',38)
 
65
setbpt('lig',39)
 
66
setbpt('lig',40)
 
67
setbpt('lig',43)
 
68
setbpt('lig',44)
 
69
setbpt('lig',48)
 
70
write(%io(2),[
 
71
'user should check the line number'])
 
72
write(%io(2),[' ';'MACRO NOT COMPILED';'-----------------';' '])
 
73
lig()
 
74
resume
 
75
resume
 
76
resume
 
77
resume
 
78
resume
 
79
resume
 
80
resume
 
81
resume
 
82
resume
 
83
resume
 
84
resume
 
85
resume
 
86
resume
 
87
resume
 
88
resume
 
89
resume
 
90
 
 
91
comp(lig)
 
92
write(%io(2),[' ';'COMPILED MACRO';'-----------------';' '])
 
93
lig()
 
94
resume
 
95
resume
 
96
resume
 
97
resume
 
98
resume
 
99
resume
 
100
resume
 
101
resume
 
102
resume
 
103
resume
 
104
resume
 
105
resume
 
106
resume
 
107
resume
 
108
resume
 
109
resume
 
110
delbpt('lig')
 
111
clear lig shlig
 
112