equal
deleted
inserted
replaced
34 hereby transferred. |
34 hereby transferred. |
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 version |
38 version |
39 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.63 1995-12-13 16:55:23 cg Exp $' |
39 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.64 1995-12-13 17:51:07 cg Exp $' |
40 ! |
40 ! |
41 |
41 |
42 documentation |
42 documentation |
43 " |
43 " |
44 this class defines protocol for executable methods; |
44 this class defines protocol for executable methods; |
508 It may change or even vanish (if it shows to be not useful)." |
508 It may change or even vanish (if it shows to be not useful)." |
509 |
509 |
510 %{ /* NOCONTEXT */ |
510 %{ /* NOCONTEXT */ |
511 /* I made this a primitive to get the define constant from stc.h */ |
511 /* I made this a primitive to get the define constant from stc.h */ |
512 |
512 |
513 #ifdef F_PRIVATE |
513 #if defined(F_PRIVATE) && defined(M_PRIVACY) |
514 int f = _intVal(_INST(flags)); |
514 int f = _intVal(_INST(flags)); |
515 |
515 |
516 f = (f & ~M_PRIVACY) | F_PRIVATE; |
516 f = (f & ~M_PRIVACY) | F_PRIVATE; |
517 _INST(flags) = _MKSMALLINT(f); |
517 _INST(flags) = _MKSMALLINT(f); |
518 #endif |
518 #endif |
536 It may change or even vanish (if it shows to be not useful)." |
536 It may change or even vanish (if it shows to be not useful)." |
537 |
537 |
538 %{ /* NOCONTEXT */ |
538 %{ /* NOCONTEXT */ |
539 /* I made this a primitive to get the define constant from stc.h */ |
539 /* I made this a primitive to get the define constant from stc.h */ |
540 |
540 |
541 #ifdef F_CLASSPRIVATE |
541 #if defined(F_CLASSPRIVATE) && defined(M_PRIVACY) |
542 int f = _intVal(_INST(flags)); |
542 int f = _intVal(_INST(flags)); |
543 |
543 |
544 f = (f & ~M_PRIVACY) | F_CLASSPRIVATE; |
544 f = (f & ~M_PRIVACY) | F_CLASSPRIVATE; |
545 _INST(flags) = _MKSMALLINT(f); |
545 _INST(flags) = _MKSMALLINT(f); |
546 #endif |
546 #endif |
563 It may change or even vanish (if it shows to be not useful)." |
563 It may change or even vanish (if it shows to be not useful)." |
564 |
564 |
565 %{ /* NOCONTEXT */ |
565 %{ /* NOCONTEXT */ |
566 /* I made this a primitive to get the define constant from stc.h */ |
566 /* I made this a primitive to get the define constant from stc.h */ |
567 |
567 |
568 #if M_PRIVACY |
568 #ifdef M_PRIVACY |
569 int f = _intVal(_INST(flags)); |
569 int f = _intVal(_INST(flags)); |
570 |
570 |
571 f = f & ~M_PRIVACY; |
571 f = f & ~M_PRIVACY; |
572 _INST(flags) = _MKSMALLINT(f); |
572 _INST(flags) = _MKSMALLINT(f); |
573 #endif |
573 #endif |
587 It may change or even vanish (if it shows to be not useful)." |
587 It may change or even vanish (if it shows to be not useful)." |
588 |
588 |
589 %{ /* NOCONTEXT */ |
589 %{ /* NOCONTEXT */ |
590 int f = _intVal(_INST(flags)); |
590 int f = _intVal(_INST(flags)); |
591 |
591 |
592 #if F_IGNORED |
592 #if defined(F_IGNORED) && defined(M_PRIVACY) |
593 f = (f & ~M_PRIVACY) | F_IGNORED; |
593 f = (f & ~M_PRIVACY) | F_IGNORED; |
594 #endif |
594 #endif |
595 _INST(flags) = _MKSMALLINT(f); |
595 _INST(flags) = _MKSMALLINT(f); |
596 %} |
596 %} |
597 ! |
597 ! |
609 It may change or even vanish (if it shows to be not useful)." |
609 It may change or even vanish (if it shows to be not useful)." |
610 |
610 |
611 %{ /* NOCONTEXT */ |
611 %{ /* NOCONTEXT */ |
612 /* I made this a primitive to get the define constant from stc.h */ |
612 /* I made this a primitive to get the define constant from stc.h */ |
613 |
613 |
614 #ifdef F_PRIVATE |
614 #if defined(F_PRIVATE) && defined(M_PRIVACY) |
615 int f = _intVal(_INST(flags)); |
615 int f = _intVal(_INST(flags)); |
616 |
616 |
617 if ((f & M_PRIVACY) == F_PRIVATE) { |
617 if ((f & M_PRIVACY) == F_PRIVATE) { |
618 RETURN (true); |
618 RETURN (true); |
619 } |
619 } |
636 It may change or even vanish (if it shows to be not useful)." |
636 It may change or even vanish (if it shows to be not useful)." |
637 |
637 |
638 %{ /* NOCONTEXT */ |
638 %{ /* NOCONTEXT */ |
639 /* I made this a primitive to get the define constant from stc.h */ |
639 /* I made this a primitive to get the define constant from stc.h */ |
640 |
640 |
641 #ifdef F_CLASSPRIVATE |
641 #if defined(F_CLASSPRIVATE) && defined(M_PRIVACY) |
642 int f = _intVal(_INST(flags)); |
642 int f = _intVal(_INST(flags)); |
643 |
643 |
644 if ((f & M_PRIVACY) == F_CLASSPRIVATE) { |
644 if ((f & M_PRIVACY) == F_CLASSPRIVATE) { |
645 RETURN (true); |
645 RETURN (true); |
646 } |
646 } |
660 It may change or even vanish (if it shows to be not useful)." |
660 It may change or even vanish (if it shows to be not useful)." |
661 |
661 |
662 %{ /* NOCONTEXT */ |
662 %{ /* NOCONTEXT */ |
663 /* I made this a primitive to get the define constant from stc.h */ |
663 /* I made this a primitive to get the define constant from stc.h */ |
664 |
664 |
665 #if defined(F_PRIVATE) || defined(F_CLASSPRIVATE) || defined(F_IGNORED) |
665 #if defined(M_PRIVACY) && (defined(F_PRIVATE) || defined(F_CLASSPRIVATE) || defined(F_IGNORED)) |
666 |
666 |
667 int f = _intVal(_INST(flags)); |
667 int f = _intVal(_INST(flags)); |
668 # ifdef F_PRIVATE |
668 # ifdef F_PRIVATE |
669 if ((f & M_PRIVACY) == F_PRIVATE) { |
669 if ((f & M_PRIVACY) == F_PRIVATE) { |
670 RETURN (false); |
670 RETURN (false); |
699 |
699 |
700 This is EXPERIMENTAL - and being evaluated for usability. |
700 This is EXPERIMENTAL - and being evaluated for usability. |
701 It may change or even vanish (if it shows to be not useful)." |
701 It may change or even vanish (if it shows to be not useful)." |
702 |
702 |
703 %{ /* NOCONTEXT */ |
703 %{ /* NOCONTEXT */ |
704 #ifdef F_IGNORED |
704 #if defined(F_IGNORED) && defined(M_PRIVACY) |
705 int f = _intVal(_INST(flags)); |
705 int f = _intVal(_INST(flags)); |
706 |
706 |
707 if ((f & M_PRIVACY) == F_IGNORED) { |
707 if ((f & M_PRIVACY) == F_IGNORED) { |
708 RETURN (true); |
708 RETURN (true); |
709 } |
709 } |