Added Cypress Branch 18_11.

Author: jvelilla

.travis.yml

@@ -0,0 +1,20 @@
+language: eiffel
+before_script:
+  - export current_dir=$PWD ; echo current_dir=$current_dir ; cd ..
+  - export ISE_PLATFORM=linux-x86-64
+  - curl -sSL https://www.eiffel.org/setup/install.sh | bash > eiffel.rc
+  - source ./eiffel.rc
+  - echo `ec -version`
+  - cd $current_dir
+
+# safelist
+branches:
+  only:
+  - cypress_18_11
+  - develop
+
+script: 
+  #compile code  
+  - compile_all -ecb -melt -list_failures -log_verbose -clean -options dotnet=false
+  #testing
+  - ec -config test/test_suite.ecf -c_compile -tests 

apis/facebook/api/facebook_api.ecf

@@ -15,11 +15,11 @@
 		<capability>
 			<concurrency support="none"/>
 		</capability>
-		<library name="login_with" location="..\..\..\login_with\login_with.ecf" readonly="false"/>
 		<library name="base" location="$ISE_LIBRARY\library\base\base.ecf"/>
 		<library name="cypress_consumer" location="..\..\..\consumer\consumer-safe.ecf" readonly="false"/>
 		<library name="encoder" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\text\encoder\encoder-safe.ecf"/>
 		<library name="json" location="$ISE_LIBRARY\contrib\library\text\parser\json\library\json-safe.ecf" readonly="false"/>
+		<library name="login_with_facebook" location="..\..\..\login_with\facebook\login_with_facebook.ecf" readonly="false"/>
 		<library name="uri" location="$ISE_LIBRARY\library\text\uri\uri-safe.ecf"/>
 		<cluster name="facebook_api" location=".\src\" recursive="true"/>
 	</target>

apis/facebook/api/src/facebook_api.e

@@ -1,7 +1,10 @@
 note
-	description: "Summary description for {FACEBOOK_API}."
-	date: "$Date$"
-	revision: "$Revision$"
+	description: "[
+				Facebook API Interface: specify how to read and write Facebook data.
+				]"
+	date: "$Date: 2018-09-06 13:07:18 -0300 (ju. 06 de sep. de 2018) $"
+	revision: "$Revision: 102137 $"
+	EIS: "name=Facebook Graph API", "src=http://developers.facebook.com/docs/api", "protocol=uri"
 
 class
 	FACEBOOK_API
@@ -124,9 +127,53 @@ feature -- Facebook: Get User
 			end
 		end
 
+	user_likes (a_path: STRING; a_params: detachable FB_PAGE_PARAMETER): detachable STRING
+		do
+			if
+				a_params /= Void and then
+				attached a_params.parameters as l_parameters
+			then
+				api_get_call (facebook_url (a_path, l_parameters ), Void)
+			else
+				if a_path.starts_with ("https") then
+					api_get_call (a_path, Void)
+				else
+					api_get_call (facebook_url (a_path, Void ), Void)
+				end
+			end
+			if
+				attached last_response as l_response and then
+				attached l_response.body as l_body
+			then
+				Result := l_body
+			end
+		end
+
+	user_groups (a_path: STRING; a_params: detachable FB_GROUP_PARAMETER): detachable STRING
+		do
+			if
+				attached a_params and then
+				attached a_params.parameters as l_parameters
+			then
+				api_get_call (facebook_url (a_path, l_parameters ), Void)
+			else
+				if a_path.starts_with ("https") then
+					api_get_call (a_path, Void)
+				else
+					api_get_call (facebook_url (a_path, Void ), Void)
+				end
+			end
+			if
+				attached last_response as l_response and then
+				attached l_response.body as l_body
+			then
+				Result := l_body
+			end
+		end
+
 feature -- Feeds: publish, delete, update
 
-	user_feed_publish (a_user_id: STRING; a_params: detachable FB_USER_FEED_PUBLISHING): detachable STRING
+	publish_on_user_feed (a_user_id: STRING; a_params: detachable FB_USER_FEED_PUBLISHING): detachable STRING
 		do
 			api_post_call (facebook_url (a_user_id, Void ), a_params, Void)
 			if
@@ -148,11 +195,23 @@ feature -- Feeds: publish, delete, update
 			end
 		end
 
-	user_feed_publish_photo (a_user_id: STRING; a_photo: PATH): detachable STRING
-		local
-			l_file: RAW_FILE
+	publish_photo_on_user_feed (a_user_id: STRING; a_photo: PATH; a_params: detachable FB_USER_FEED_PUBLISHING ): detachable STRING
 		do
-			api_post_call (facebook_url (a_user_id, Void ), Void, [a_photo, "multipart/form-data; boundary=%"attachment boundary%""])
+			api_post_call (facebook_url (a_user_id, Void ), a_params, [a_photo, "multipart/form-data"])
+
+			if
+				attached last_response as l_response and then
+				attached l_response.body as l_body
+			then
+				Result := l_body
+			end
+		end
+
+
+	publish_video_on_user_feed (a_user_id: STRING; a_video: PATH; a_params: detachable FB_VIDEO_PUBLISHING ): detachable STRING
+		do
+			api_post_call (facebook_video_url (a_user_id, Void ), a_params, [a_video, "multipart/form-data"])
+
 			if
 				attached last_response as l_response and then
 				attached l_response.body as l_body
@@ -262,7 +321,7 @@ feature {NONE} -- Implementation
 			EIS:"name=access token", "src=https://developers.facebook.com/docs/facebook-login/access-tokens", "protocol=uri"
 		local
 			request: OAUTH_REQUEST
-			l_access_token, request_token: detachable OAUTH_TOKEN
+			l_access_token: detachable OAUTH_TOKEN
 			api_service: OAUTH_20_SERVICE
 		do
 				-- Initialization
@@ -295,7 +354,7 @@ feature {NONE} -- Implementation
 		end
 
 	facebook_url (a_query: STRING; a_params: detachable STRING): STRING
-			-- Twitter url for `a_query' and `a_parameters'
+			-- Facebook url for `a_query' and `a_parameters'
 		require
 			a_query_attached: a_query /= Void
 		do
@@ -308,6 +367,20 @@ feature {NONE} -- Implementation
 			Result_attached: Result /= Void
 		end
 
+	facebook_video_url (a_query: STRING; a_params: detachable STRING): STRING
+			-- Facebook url for `a_query' and `a_parameters'
+		require
+			a_query_attached: a_query /= Void
+		do
+			Result := "https://graph-video.facebook.com/v2.9/" + a_query
+			if attached a_params then
+				Result.append_character ('?')
+				Result.append (a_params)
+			end
+		ensure
+			Result_attached: Result /= Void
+		end
+
 	url (a_base_url: STRING; a_parameters: detachable ARRAY [detachable TUPLE [name: STRING; value: STRING]]): STRING
 			-- url for `a_base_url' and `a_parameters'
 		require
@@ -355,16 +428,13 @@ feature {NONE} -- Implementation
 		end
 
 	add_parameters (a_method: STRING; request:OAUTH_REQUEST; a_params: detachable STRING_TABLE [STRING])
+			-- add parameters 'a_params' (with key, value) to the oauth request 'request'.
+			--| at the moment all params are added to the query_string.
 		do
-			if a_method.is_case_insensitive_equal_general ("GET") or else a_method.is_case_insensitive_equal_general ("DELETE") then
-				add_query_string (request, a_params)
-			else
-				check is_post: a_method.is_case_insensitive_equal_general ("POST") end
-				add_body_parameters (request, a_params)
-			end
+			add_query_parameters (request, a_params)
 		end
 
-	add_query_string (request:OAUTH_REQUEST; a_params: detachable STRING_TABLE [STRING])
+	add_query_parameters (request:OAUTH_REQUEST; a_params: detachable STRING_TABLE [STRING])
 		do
 			if attached a_params then
 				across a_params as ic
@@ -393,9 +463,8 @@ feature {NONE} -- Implementation
 				create l_raw_file.make_open_read (l_upload_data.file_name.absolute_path.name)
 				if l_raw_file.exists then
 					request.add_header ("Content-Type", l_upload_data.content_type)
-					request.add_header ("Content-Disposition",  "form-data; filename=%"+ l_upload_data.file_name.name%"")
-					request.add_header ("Content-Length", l_raw_file.count.out)
 					request.set_upload_filename (l_upload_data.file_name.absolute_path.name)
+					request.add_form_parameter("source", l_upload_data.file_name.name.as_string_32)
 				end
 			end
 		end

apis/facebook/api/src/facebook_i.e

@@ -60,6 +60,22 @@ feature --Get - User
 		deferred
 		end
 
+	user_likes (a_user_id: STRING; a_params: detachable FB_PAGE_PARAMETER): detachable FB_EDGES [FB_PAGE]
+			-- All the Pages this person has liked
+			-- GET /{user_id}/likes	
+		note
+			EIS: "name=User likes", "src=https://developers.facebook.com/docs/graph-api/reference/user/likes/", "protocol=uri"
+		deferred
+		end
+
+	user_groups (a_user_id: STRING; a_params: detachable FB_GROUP_PARAMETER): detachable FB_EDGES [FB_GROUP]
+			-- The Facebook Groups that the person is an admin of
+			-- GET /{user_id}/groups	
+		note
+			EIS: "name=User Groups", "src=https://developers.facebook.com/docs/graph-api/reference/user/groups/", "protocol=uri"
+		deferred
+		end
+
 feature	-- Post
 
 	post (a_post_id: READABLE_STRING_32; a_params: detachable FB_POST_PARAMETER): detachable FB_POST
@@ -82,7 +98,7 @@ feature -- Feed: Publish, Delete
 		deferred
 		end
 
-	publish_photo_on_user_feed (a_user_id: STRING; a_photo: PATH): detachable STRING
+	publish_photo_on_user_feed (a_user_id: STRING; a_photo: PATH; a_params: detachable FB_USER_FEED_PUBLISHING): detachable STRING
 			-- Uploading a photo to the user `a_user_id' timeline.
 			-- Attach the photo `a_potho' as multipart/form-data.
 			-- POST /{a_user_id}/photo
@@ -91,6 +107,15 @@ feature -- Feed: Publish, Delete
 		deferred
 		end
 
+	publish_video_on_user_feed (a_user_id: STRING; a_video: PATH; a_params: detachable FB_VIDEO_PUBLISHING): detachable STRING
+			-- Uploading a video to the user `a_user_id' timeline.
+			-- Attach the video `a_video' as multipart/form-data.
+			-- POST /{a_user_id}/videos
+		note
+			EIS: "name=Publish Video", "src=https://developers.facebook.com/docs/graph-api/reference/user/videos/#Creating", "protocol=uri"
+		deferred
+		end
+
 	delete_feed (a_post_id: STRING): BOOLEAN
 		deferred
 		end