Rev 4118 | Rev 4561 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4118 | Rev 4176 | ||
---|---|---|---|
Line 26... | Line 26... | ||
26 | !read scripts/check.class |
26 | !read scripts/check.class |
27 | !if $error!=$empty |
27 | !if $error!=$empty |
28 | !exit |
28 | !exit |
29 | !endif |
29 | !endif |
30 | 30 | ||
31 |
|
31 | class_type=!defof class_type in $classdeffile |
32 | !if |
32 | !if $class_type != 2 |
33 | error=sorry, there shouldn't be a subclass in a simple class |
33 | error=sorry, there shouldn't be a subclass in a simple class |
34 | !exit |
34 | !exit |
35 | !endif |
35 | !endif |
36 | 36 | ||
37 | qclass = $qclass/$subclassid |
37 | qclass = $qclass/$subclassid |