indev_get_compiling

Author: phgachoud

sheets/esheets.ecf

@@ -20,6 +20,7 @@
 		<library name="base" location="$ISE_LIBRARY\library\base\base.ecf"/>
 		<library name="cypress_consumer" location="$ISE_LIBRARY\contrib\library\web\authentication\oauth\cypress\consumer\consumer.ecf" readonly="false"/>
 		<library name="encoder" location="$ISE_LIBRARY\contrib\library\web\framework\ewf\text\encoder\encoder.ecf"/>
+		<library name="http" location="$ISE_LIBRARY\contrib\library\network\protocol\http\http.ecf"/>
 		<library name="json" location="$ISE_LIBRARY\contrib\library\text\parser\json\library\json.ecf" readonly="false"/>
 		<library name="logging" location="$ISE_LIBRARY\library\runtime\logging\logging.ecf"/>
 		<library name="login_with_google" location="$ISE_LIBRARY\contrib\library\web\authentication\oauth\cypress\login_with\google\login_with_google.ecf" readonly="false"/>

sheets/src/eg_sheets_api.e

@@ -72,23 +72,42 @@ feature -- Spreedsheets Operations
 			EIS:"name=get.spreedsheets", "src=https://developers.google.com/sheets/api/reference/rest/v4/spreadsheets/get", "protocol=uri"
 		require
 			not a_spreadsheet_id.is_empty
+		local
+			l_param: STRING
+			l_params: STRING_TABLE [STRING]
+			l_tuple: like parameters.item
 		do
-			api_post_call (sheets_url ("spreadsheets/" + a_spreadsheet_id, Void ), Void, Void)
+			logger.write_information ("Now getting sheet from id:" + a_spreadsheet_id)
+			l_param := "includeGridData=true"
+			l_param.append ("&fields=sheets.properties")
+			create l_params.make (2)
+			l_params.extend ("includeGridData", "true")
+			l_params.extend ("fields", "sheets.properties")
+			create l_tuple
+
+			api_get_call (sheets_url ("spreadsheets/" + a_spreadsheet_id, Void), l_params)
 			check
 				attached last_response as l_response and then
 				attached l_response.body as l_body
 			then
-				parse_last_response
-				Result := l_body
+				if l_response.status = {HTTP_STATUS_CODE}.ok then
+					parse_last_response
+					Result := l_body
+				elseif l_response.status = {HTTP_STATUS_CODE}.not_found then
+					logger.write_error ("get_from_id-> Not found:" + l_response.status.out + " %NBody: " + l_body)
+				else
+					logger.write_error ("get_from_id-> Status code invalid:" + l_response.status.out + " %NBody: " + l_body)
+				end
 			end
 		end
 
 feature -- Parameters Factory
 
 	parameters (a_params: detachable STRING_TABLE [STRING] ): detachable ARRAY [detachable TUPLE [name: STRING; value: STRING]]
+			-- @JV please add a call example
 		local
-			l_result: detachable ARRAY [detachable TUPLE [name: STRING; value: STRING]]
-			l_tuple : detachable TUPLE [name: STRING; value: STRING]
+			l_result: like parameters
+			l_tuple : like parameters.item
 			i: INTEGER
 		do
 			if attached a_params then
@@ -106,6 +125,7 @@ feature -- Parameters Factory
 			end
 		end
 
+
 feature -- Error Report
 
 	parse_last_response
@@ -210,6 +230,7 @@ feature {NONE} -- Implementation
 			api_service: OAUTH_20_SERVICE
 			config: OAUTH_CONFIG
 		do
+			logger.write_debug ("internal_api_call-> a_api_url:" + a_api_url + " method:" + a_method)
 				-- TODO improve this, so we can check the required scopes before we
 				-- do an api call.
 			create config.make_default ("", "")

sheets/src/logger/loggable.e

@@ -16,7 +16,19 @@ feature -- Access
 			create Result.make
 --				Result.set_file_path_sep (l_app_instance_sep.log_file_path_s)
 			create l_log_writter
+			l_log_writter.enable_debug_log_level
+
+			Result.enable_default_stderr_log
+--			Result.default_log_writer_system.enable_debug_log_level
+			Result.default_log_writer_stderr.enable_debug_log_level
+
 			Result.register_log_writer (l_log_writter)
+--			Result.enable_default_system_log
+
+--			Result.write_debug ("***************** TEST DEBUG")
+--			Result.write_information ("***************** TEST INFO")
+--			Result.write_error ("***************** TEST ERROR")
+
 		end
 
 end