Rev 20 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 20 | Rev 37 | ||
|---|---|---|---|
| 1 | # find user definition file location. |
1 | # find user definition file location. |
| 2 | # Calling parameter: directory,class,user. |
2 | # Calling parameter: directory,class,user. |
| 3 | # directory is deplicated, but its place must be held for compatibility. |
3 | # directory is deplicated, but its place must be held for compatibility. |
| 4 | 4 | ||
| 5 | !distribute items $wims_read_parm into d_,c_,u_ |
5 | !distribute items $wims_read_parm into d_,c_,u_ |
| 6 | d_=wimshome/log/classes |
6 | d_=wimshome/log/classes |
| 7 | D_=$wims_home/log/classes |
7 | D_=$wims_home/log/classes |
| 8 | 8 | ||
| 9 | !if $u_=supervisor |
9 | !if $u_=supervisor |
| 10 | userdef=$d_/$c_/supervisor |
10 | userdef=$d_/$c_/supervisor |
| 11 | !exit |
11 | !exit |
| 12 | !else |
12 | !else |
| 13 | f_=.users/$u_ |
13 | f_=.users/$u_ |
| 14 | !endif |
14 | !endif |
| 15 | 15 | ||
| 16 | scl_=!defof class_superclass in $d_/$c_/.def |
16 | scl_=!defof class_superclass in $d_/$c_/.def |
| 17 | scl_=!item -1 of $scl_ |
17 | scl_=!item -1 of $scl_ |
| 18 | !default scl_=$c_ |
18 | !default scl_=$c_ |
| 19 | 19 | ||
| 20 | userdef=$d_/$scl_/$f_ |
20 | userdef=$d_/$scl_/$f_ |
| 21 | Userdef=$D_/$scl_/$f_ |
21 | Userdef=$D_/$scl_/$f_ |
| 22 | 22 | ||
| 23 | 23 | ||