equal
deleted
inserted
replaced
613 This is EXPERIMENTAL - and being evaluated for usability. |
613 This is EXPERIMENTAL - and being evaluated for usability. |
614 It may change or even vanish (if it shows to be not useful)." |
614 It may change or even vanish (if it shows to be not useful)." |
615 |
615 |
616 %{ /* NOCONTEXT */ |
616 %{ /* NOCONTEXT */ |
617 #if defined(F_IGNORED) && defined(M_PRIVACY) |
617 #if defined(F_IGNORED) && defined(M_PRIVACY) |
618 int f = __intVal(__INST(flags)); |
618 INT f = __intVal(__INST(flags)); |
619 |
619 |
620 if ((f & M_PRIVACY) == F_IGNORED) { |
620 if ((f & M_PRIVACY) == F_IGNORED) { |
621 RETURN (true); |
621 RETURN (true); |
622 } |
622 } |
623 #endif |
623 #endif |
639 |
639 |
640 %{ /* NOCONTEXT */ |
640 %{ /* NOCONTEXT */ |
641 /* I made this a primitive to get the define constant from stc.h */ |
641 /* I made this a primitive to get the define constant from stc.h */ |
642 |
642 |
643 #if defined(F_PRIVATE) && defined(M_PRIVACY) |
643 #if defined(F_PRIVATE) && defined(M_PRIVACY) |
644 int f = __intVal(__INST(flags)); |
644 INT f = __intVal(__INST(flags)); |
645 |
645 |
646 if ((f & M_PRIVACY) == F_PRIVATE) { |
646 if ((f & M_PRIVACY) == F_PRIVATE) { |
647 RETURN (true); |
647 RETURN (true); |
648 } |
648 } |
649 #endif |
649 #endif |
666 |
666 |
667 %{ /* NOCONTEXT */ |
667 %{ /* NOCONTEXT */ |
668 /* I made this a primitive to get the define constant from stc.h */ |
668 /* I made this a primitive to get the define constant from stc.h */ |
669 |
669 |
670 #if defined(F_CLASSPRIVATE) && defined(M_PRIVACY) |
670 #if defined(F_CLASSPRIVATE) && defined(M_PRIVACY) |
671 int f = __intVal(__INST(flags)); |
671 INT f = __intVal(__INST(flags)); |
672 |
672 |
673 if ((f & M_PRIVACY) == F_CLASSPRIVATE) { |
673 if ((f & M_PRIVACY) == F_CLASSPRIVATE) { |
674 RETURN (true); |
674 RETURN (true); |
675 } |
675 } |
676 #endif |
676 #endif |
691 %{ /* NOCONTEXT */ |
691 %{ /* NOCONTEXT */ |
692 /* I made this a primitive to get the define constant from stc.h */ |
692 /* I made this a primitive to get the define constant from stc.h */ |
693 |
693 |
694 #if defined(M_PRIVACY) && (defined(F_PRIVATE) || defined(F_CLASSPRIVATE) || defined(F_IGNORED)) |
694 #if defined(M_PRIVACY) && (defined(F_PRIVATE) || defined(F_CLASSPRIVATE) || defined(F_IGNORED)) |
695 |
695 |
696 int f = __intVal(__INST(flags)); |
696 INT f = __intVal(__INST(flags)); |
697 # ifdef F_PRIVATE |
697 # ifdef F_PRIVATE |
698 if ((f & M_PRIVACY) == F_PRIVATE) { |
698 if ((f & M_PRIVACY) == F_PRIVATE) { |
699 RETURN (false); |
699 RETURN (false); |
700 } |
700 } |
701 # endif |
701 # endif |
726 This is EXPERIMENTAL - and being evaluated for usability. |
726 This is EXPERIMENTAL - and being evaluated for usability. |
727 It may change or even vanish (if it shows to be not useful)." |
727 It may change or even vanish (if it shows to be not useful)." |
728 |
728 |
729 %{ /* NOCONTEXT */ |
729 %{ /* NOCONTEXT */ |
730 #ifdef F_RESTRICTED |
730 #ifdef F_RESTRICTED |
731 int f = __intVal(__INST(flags)); |
731 INT f = __intVal(__INST(flags)); |
732 |
732 |
733 if (f & F_RESTRICTED) { |
733 if (f & F_RESTRICTED) { |
734 RETURN (true); |
734 RETURN (true); |
735 } |
735 } |
736 #endif |
736 #endif |
812 |
812 |
813 %{ /* NOCONTEXT */ |
813 %{ /* NOCONTEXT */ |
814 /* I made this a primitive to get the define constant from stc.h */ |
814 /* I made this a primitive to get the define constant from stc.h */ |
815 |
815 |
816 #ifdef F_RESTRICTED |
816 #ifdef F_RESTRICTED |
817 int f = __intVal(__INST(flags)); |
817 INT f = __intVal(__INST(flags)); |
818 int old; |
818 INT old; |
819 |
819 |
820 old = f; |
820 old = f; |
821 if (aBoolean == true) |
821 if (aBoolean == true) |
822 f |= F_RESTRICTED; |
822 f |= F_RESTRICTED; |
823 else |
823 else |
847 |
847 |
848 This is EXPERIMENTAL - and being evaluated for usability. |
848 This is EXPERIMENTAL - and being evaluated for usability. |
849 It may change or even vanish (if it shows to be not useful)." |
849 It may change or even vanish (if it shows to be not useful)." |
850 |
850 |
851 %{ /* NOCONTEXT */ |
851 %{ /* NOCONTEXT */ |
852 int f = __intVal(__INST(flags)); |
852 INT f = __intVal(__INST(flags)); |
853 |
853 |
854 #if defined(F_IGNORED) && defined(M_PRIVACY) |
854 #if defined(F_IGNORED) && defined(M_PRIVACY) |
855 f = (f & ~M_PRIVACY) | F_IGNORED; |
855 f = (f & ~M_PRIVACY) | F_IGNORED; |
856 #endif |
856 #endif |
857 __INST(flags) = __MKSMALLINT(f); |
857 __INST(flags) = __MKSMALLINT(f); |
876 |
876 |
877 %{ /* NOCONTEXT */ |
877 %{ /* NOCONTEXT */ |
878 /* I made this a primitive to get the define constant from stc.h */ |
878 /* I made this a primitive to get the define constant from stc.h */ |
879 |
879 |
880 #if defined(F_PRIVATE) && defined(M_PRIVACY) |
880 #if defined(F_PRIVATE) && defined(M_PRIVACY) |
881 int f = __intVal(__INST(flags)); |
881 INT f = __intVal(__INST(flags)); |
882 |
882 |
883 f = (f & ~M_PRIVACY) | F_PRIVATE; |
883 f = (f & ~M_PRIVACY) | F_PRIVATE; |
884 __INST(flags) = __MKSMALLINT(f); |
884 __INST(flags) = __MKSMALLINT(f); |
885 #endif |
885 #endif |
886 %} |
886 %} |
904 |
904 |
905 %{ /* NOCONTEXT */ |
905 %{ /* NOCONTEXT */ |
906 /* I made this a primitive to get the define constant from stc.h */ |
906 /* I made this a primitive to get the define constant from stc.h */ |
907 |
907 |
908 #if defined(F_CLASSPRIVATE) && defined(M_PRIVACY) |
908 #if defined(F_CLASSPRIVATE) && defined(M_PRIVACY) |
909 int f = __intVal(__INST(flags)); |
909 INT f = __intVal(__INST(flags)); |
910 |
910 |
911 f = (f & ~M_PRIVACY) | F_CLASSPRIVATE; |
911 f = (f & ~M_PRIVACY) | F_CLASSPRIVATE; |
912 __INST(flags) = __MKSMALLINT(f); |
912 __INST(flags) = __MKSMALLINT(f); |
913 #endif |
913 #endif |
914 %} |
914 %} |
931 |
931 |
932 %{ /* NOCONTEXT */ |
932 %{ /* NOCONTEXT */ |
933 /* I made this a primitive to get the define constant from stc.h */ |
933 /* I made this a primitive to get the define constant from stc.h */ |
934 |
934 |
935 #ifdef M_PRIVACY |
935 #ifdef M_PRIVACY |
936 int f = __intVal(__INST(flags)); |
936 INT f = __intVal(__INST(flags)); |
937 |
937 |
938 f = f & ~M_PRIVACY; |
938 f = f & ~M_PRIVACY; |
939 __INST(flags) = __MKSMALLINT(f); |
939 __INST(flags) = __MKSMALLINT(f); |
940 #endif |
940 #endif |
941 %} |
941 %} |
1718 It can be used to find resource-flagged methods quicker." |
1718 It can be used to find resource-flagged methods quicker." |
1719 |
1719 |
1720 %{ /* NOCONTEXT */ |
1720 %{ /* NOCONTEXT */ |
1721 |
1721 |
1722 #ifdef F_RESOURCE |
1722 #ifdef F_RESOURCE |
1723 int f = __intVal(__INST(flags)); |
1723 INT f = __intVal(__INST(flags)); |
1724 |
1724 |
1725 f |= F_RESOURCE; |
1725 f |= F_RESOURCE; |
1726 __INST(flags) = __MKSMALLINT(f); |
1726 __INST(flags) = __MKSMALLINT(f); |
1727 #endif |
1727 #endif |
1728 %} |
1728 %} |
2420 ! ! |
2420 ! ! |
2421 |
2421 |
2422 !Method class methodsFor:'documentation'! |
2422 !Method class methodsFor:'documentation'! |
2423 |
2423 |
2424 version |
2424 version |
2425 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.139 1997-07-31 22:30:07 cg Exp $' |
2425 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.140 1997-08-19 20:40:49 cg Exp $' |
2426 ! ! |
2426 ! ! |
2427 Method initialize! |
2427 Method initialize! |