File: dw.rexx

package info (click to toggle)
regina 3.3-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 4,928 kB
  • ctags: 7,233
  • sloc: ansic: 50,555; sh: 2,727; lex: 2,298; yacc: 1,498; makefile: 1,010; cpp: 117
file content (20 lines) | stat: -rw-r--r-- 280 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
call P
say 'after return: p.1='p.1 /* 'ok' */

call Q
say 'after return: q.1='q.1 /* 'bad!' */

exit

P:
procedure expose p.1
p.1 = 'ok'
say 'before return: p.1='p.1 /* 'ok' */
return

Q:
procedure expose q.1
q. = 'bad!'
q.1 = 'ok'
say 'before return: q.1='q.1 /* 'ok' */
return