File add-missing-resource_class_request-4.patch of Package policy-settings-basic-n900

From 8a1b708321b1700ff2cae4ca61f9c4451b0e893e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juho=20H=C3=A4m=C3=A4l=C3=A4inen?= <juho.hamalainen@tieto.com>
Date: Thu, 16 Aug 2012 16:42:41 +0300
Subject: [PATCH 1/2] Add missing resource_class_request/4. Fixes NEMO#257

---
 basic/policy/resource.pl |   22 ++++++++++++++++++++--
 1 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/basic/policy/resource.pl b/basic/policy/resource.pl
index 53db90d..e2b57fd 100644
--- a/basic/policy/resource.pl
+++ b/basic/policy/resource.pl
@@ -2,10 +2,10 @@
 	  [update_resource_entries/1, update_resource_owner_entries/1,
 	   resource_owner/2, resource_owner/3, resource_group/2,
  	   granted_resource/2, granted_resource/3, active_resource/3,
- 	   force_resource_release/3]).
+	   force_resource_release/3, resource_class_request/4]).
 
 rules([update_resource_entries/1, update_resource_owner_entries/1,
-       force_resource_release/3]).
+       force_resource_release/3, resource_class_request/4]).
 
 
 /*
@@ -447,3 +447,21 @@ active_resource(Class, Group, Resource) :-
     GrantedBit is Granted /\ ResourceBit,
     GrantedBit = ResourceBit,
     !.
+
+resource_bits([], A, A).
+resource_bits([A|C], B, E) :-
+    D is A\/B,
+    resource_bits(C, D, E).
+
+resource_bits_list(C, D) :-
+    findall(A,
+        (resource_classes:resource_bit(B, A),
+        resource_classes:valid_resource_class(B, C)),
+        D).
+
+resource_class_request(Class, M, O, Result) :-
+    resource_bits_list(Class, BitList),
+    resource_bits(BitList, 0, BitMask),
+    Mandatory is M/\BitMask,
+    Optional is O/\BitMask,
+    Result=[[resource, [mandatory, Mandatory], [optional, Optional]]].
-- 
1.7.0.4