+ if (typeId_isInvalid (boolType))
+ {
+ boolType = usymtab_getTypeId (context_getBoolName ());
+ }
+
+ if (typeId_isInvalid (boolType)) {
+ return FALSE;
+ } else {
+ return (typeIdSet_member (gc.acct, boolType));
+ }
+}
+*/
+
+/* evs 2000-07-25: old version - replaced */
+
+ctype
+context_boolImplementationType () {
+ /* For now, this is bogus! */
+ return ctype_int;
+}
+
+bool
+context_canAccessBool (void)
+{
+ static typeId boolType = typeId_invalid;
+
+ if (typeId_isInvalid (boolType))
+ {
+ boolType = usymtab_getTypeId (context_getBoolName ());
+ }
+
+ if (!typeId_isInvalid (boolType))
+ {
+ return context_hasAccess (boolType);
+ }
+ else