cloudrail_si 0.1.5

data/lib/cloudrail_si/services/FacebookPage.rb

@@ -0,0 +1,310 @@
+require_relative '../servicecode/Interpreter'
+require_relative '../servicecode/Sandbox'
+require_relative '../errors/DetailErrors'
+require_relative '../servicecode/InitSelfTest'
+require_relative '../statistics/Statistics'
+
+module CloudRailSi
+  module Services
+    class FacebookPage
+
+      SERVICE_CODE = {
+        
+          "init" => [
+            [ "set", "$P0.boundary", "Amgrmg43ghg3g39glv0k2ldk"]
+            
+          ],
+        
+          "Social:postUpdate" => [
+            [ "if==than", "$P1", nil, 2],
+            [ "create", "$L0", "Error", "The content is not allowed to be null.", "IllegalArgument"],
+            [ "throwError", "$L0"],
+            [ "callFunc", "checkAuthentication", "$P0"],
+            [ "create", "$L3", "String"],
+            [ "string.urlEncode", "$L3", "$P1"],
+            [ "create", "$L0", "Object"],
+            [ "set", "$L0.method", "POST"],
+            [ "create", "$L1", "String"],
+            [ "string.concat", "$L1", "https://graph.facebook.com/v2.8/", "$S0.pageId", "/feed?message=", "$L3"],
+            [ "set", "$L0.url", "$L1"],
+            [ "create", "$L0.requestHeaders", "Object"],
+            [ "string.concat", "$L0.requestHeaders.Authorization", "Bearer ", "$S0.accessToken"],
+            [ "create", "$L2", "Object"],
+            [ "http.requestCall", "$L2", "$L0"],
+            [ "callFunc", "validateResponse", "$P0", "$L2"]
+            
+          ],
+        
+          "Social:postImage" => [
+            [ "if==than", "$P1", nil, 2],
+            [ "create", "$L0", "Error", "The message is not allowed to be null.", "IllegalArgument"],
+            [ "throwError", "$L0"],
+            [ "if==than", "$P2", nil, 2],
+            [ "create", "$L0", "Error", "The image is not allowed to be null.", "IllegalArgument"],
+            [ "throwError", "$L0"],
+            [ "callFunc", "checkAuthentication", "$P0"],
+            [ "create", "$L0", "Object"],
+            [ "set", "$L0.method", "POST"],
+            [ "string.concat", "$L0.url", "https://graph.facebook.com/v2.8/", "$S0.pageId", "/photos"],
+            [ "create", "$L0.requestHeaders", "Object"],
+            [ "string.concat", "$L0.requestHeaders.Content-Type", "multipart/form-data; boundary=", "$P0.boundary"],
+            [ "string.concat", "$L0.requestHeaders.Authorization", "Bearer ", "$S0.accessToken"],
+            [ "string.concat", "$L1", "--", "$P0.boundary", "\r\n"],
+            [ "string.concat", "$L1", "$L1", "Content-Disposition: form-data; name=\"caption\"\r\n\r\n"],
+            [ "string.concat", "$L1", "$L1", "$P1", "\r\n"],
+            [ "string.concat", "$L1", "$L1", "--", "$P0.boundary", "\r\n"],
+            [ "string.concat", "$L1", "$L1", "Content-Disposition: form-data; name=\"source\"; filename=\"somename\"\r\n"],
+            [ "string.concat", "$L1", "$L1", "Content-Transfer-Encoding: binary\r\n\r\n"],
+            [ "stream.stringToStream", "$L1", "$L1"],
+            [ "string.concat", "$L2", "\r\n--", "$P0.boundary", "--"],
+            [ "stream.stringToStream", "$L2", "$L2"],
+            [ "stream.makeJoinedStream", "$L0.requestBody", "$L1", "$P2", "$L2"],
+            [ "http.requestCall", "$L4", "$L0"],
+            [ "callFunc", "validateResponse", "$P0", "$L4"]
+            
+          ],
+        
+          "Social:postVideo" => [
+            [ "if==than", "$P1", nil, 2],
+            [ "create", "$L0", "Error", "The message is not allowed to be null.", "IllegalArgument"],
+            [ "throwError", "$L0"],
+            [ "if==than", "$P2", nil, 2],
+            [ "create", "$L0", "Error", "The image is not allowed to be null.", "IllegalArgument"],
+            [ "throwError", "$L0"],
+            [ "callFunc", "checkAuthentication", "$P0"],
+            [ "create", "$L0", "Object"],
+            [ "set", "$L0.method", "POST"],
+            [ "string.concat", "$L0.url", "https://graph-video.facebook.com/v2.8/", "$S0.pageId", "/videos"],
+            [ "string.indexOf", "$L20", "$P4", "/"],
+            [ "math.add", "$L20", "$L20", 1],
+            [ "string.substring", "$L21", "$P4", "$L20"],
+            [ "create", "$L0.requestHeaders", "Object"],
+            [ "string.concat", "$L0.requestHeaders.Content-Type", "multipart/form-data; boundary=", "$P0.boundary"],
+            [ "string.concat", "$L0.requestHeaders.Authorization", "Bearer ", "$S0.accessToken"],
+            [ "string.concat", "$L1", "--", "$P0.boundary", "\r\n"],
+            [ "string.concat", "$L1", "$L1", "Content-Disposition: form-data; name=\"description\"\r\n\r\n"],
+            [ "string.concat", "$L1", "$L1", "$P1", "\r\n"],
+            [ "string.concat", "$L1", "$L1", "--", "$P0.boundary", "\r\n"],
+            [ "string.concat", "$L1", "$L1", "Content-Disposition: form-data; name=\"source\"; filename=\"somename.", "$L21", "\"\r\n"],
+            [ "string.concat", "$L1", "$L1", "Content-Transfer-Encoding: binary\r\n\r\n"],
+            [ "stream.stringToStream", "$L1", "$L1"],
+            [ "string.concat", "$L2", "\r\n--", "$P0.boundary", "--"],
+            [ "stream.stringToStream", "$L2", "$L2"],
+            [ "stream.makeJoinedStream", "$L0.requestBody", "$L1", "$P2", "$L2"],
+            [ "http.requestCall", "$L4", "$L0"],
+            [ "callFunc", "validateResponse", "$P0", "$L4"]
+            
+          ],
+        
+          "Social:getConnections" => [
+            
+          ],
+        
+          "Authenticating:login" => [
+            [ "callFunc", "checkAuthentication", "$P0"]
+            
+          ],
+        
+          "Authenticating:logout" => [
+            [ "set", "$P0.userInfo", nil],
+            [ "if!=than", "$S0.accessToken", nil, 10],
+            [ "create", "$L0", "Object"],
+            [ "set", "$L0.method", "DELETE"],
+            [ "create", "$L1", "String"],
+            [ "string.concat", "$L1", "https://graph.facebook.com/v2.8/me/permissions"],
+            [ "set", "$L0.url", "$L1"],
+            [ "create", "$L0.requestHeaders", "Object"],
+            [ "string.concat", "$L0.requestHeaders.Authorization", "Bearer ", "$S0.accessToken"],
+            [ "create", "$L2", "Object"],
+            [ "http.requestCall", "$L2", "$L0"],
+            [ "callFunc", "validateResponse", "$P0", "$L2"]
+            
+          ],
+        
+          "checkAuthentication" => [
+            [ "if==than", "$S0.accessToken", nil, 1],
+            [ "callFunc", "authenticate", "$P0"]
+            
+          ],
+        
+          "authenticate" => [
+            [ "create", "$L0", "String"],
+            [ "create", "$L1", "String"],
+            [ "string.urlEncode", "$L3", "$P0.redirectUri"],
+            [ "string.concat", "$L0", "https://www.facebook.com/dialog/oauth?response_type=code&client_id=", "$P0.clientID", "&redirect_uri=", "$L3", "&state=", "$P0.state", "&scope=manage_pages%2Cpublish_pages%2Cpages_show_list"],
+            [ "awaitCodeRedirect", "$L2", "$L0"],
+            [ "string.concat", "$L1", "https://graph.facebook.com/v2.8/oauth/access_token?client_id=", "$P0.clientID", "&redirect_uri=", "$L3", "&client_secret=", "$P0.clientSecret", "&code=", "$L2"],
+            [ "create", "$L5", "Object"],
+            [ "set", "$L5.url", "$L1"],
+            [ "set", "$L5.method", "GET"],
+            [ "http.requestCall", "$L6", "$L5"],
+            [ "callFunc", "validateResponse", "$P0", "$L6"],
+            [ "stream.streamToString", "$L7", "$L6.responseBody"],
+            [ "json.parse", "$L8", "$L7"],
+            [ "set", "$S0.accessToken", "$L8.access_token"],
+            [ "create", "$L0", "Object"],
+            [ "set", "$L0.method", "GET"],
+            [ "string.concat", "$L0.url", "https://graph.facebook.com/v2.8/oauth/access_token?client_id=", "$P0.clientID", "&client_secret=", "$P0.clientSecret", "&grant_type=fb_exchange_token&fb_exchange_token=", "$S0.accessToken"],
+            [ "http.requestCall", "$L1", "$L0"],
+            [ "callFunc", "validateResponse", "$P0", "$L1"],
+            [ "json.parse", "$L2", "$L1.responseBody"],
+            [ "callFunc", "getPageCredentials", "$P0", "$L2.access_token"]
+            
+          ],
+        
+          "getPageCredentials" => [
+            [ "create", "$L0", "Object"],
+            [ "set", "$L0.method", "GET"],
+            [ "string.concat", "$L0.url", "https://graph.facebook.com/v2.8/me/accounts", "?access_token=", "$P1"],
+            [ "http.requestCall", "$L1", "$L0"],
+            [ "callFunc", "validateResponse", "$P0", "$L1"],
+            [ "json.parse", "$L2", "$L1.responseBody"],
+            [ "set", "$L3", "$L2.data"],
+            [ "size", "$L4", "$L3"],
+            [ "create", "$L5", "Number", 0],
+            [ "if<than", "$L5", "$L4", 7],
+            [ "get", "$L6", "$L3", "$L5"],
+            [ "if==than", "$L6.name", "$P0.pageName", 3],
+            [ "set", "$S0.accessToken", "$L6.access_token"],
+            [ "set", "$S0.pageId", "$L6.id"],
+            [ "jumpRel", 2],
+            [ "math.add", "$L5", "$L5", 1],
+            [ "jumpRel", -8],
+            [ "if==than", "$S0.accessToken", nil, 2],
+            [ "create", "$L7", "Error", "The page was not found or the signed in user is not an admin of that page.", "IllegalArgument"],
+            [ "throwError", "$L7"]
+            
+          ],
+        
+          "validateResponse" => [
+            [ "if>=than", "$P1.code", 400, 3],
+            [ "stream.streamToString", "$L2", "$P1.responseBody"],
+            [ "create", "$L3", "Error", "$L2", "Http"],
+            [ "throwError", "$L3"]
+            
+          ]
+        
+      }
+
+      def initialize(redirect_receiver, page_name, client_id, client_secret, redirect_uri, state)
+          @interpreter_storage = {}
+          @persistent_storage = [{}]
+          @instance_dependency_storage = {
+              redirect_receiver: redirect_receiver
+          }
+
+          ServiceCode::InitSelfTest.init_test('FacebookPage')
+
+          @interpreter_storage['pageName'] = page_name
+          @interpreter_storage['clientID'] = client_id
+          @interpreter_storage['clientSecret'] = client_secret
+          @interpreter_storage['redirectUri'] = redirect_uri
+          @interpreter_storage['state'] = state
+          
+
+          
+
+          # call init servicecode function
+          ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+          # check and call the initialization function if is available
+
+          ip.call_function_sync('init', @interpreter_storage) if (SERVICE_CODE['init'])
+      end
+
+      def check_for_error(error)
+        if (error)
+          ServiceCode::Statistics.add_error('FacebookPage', '')
+          case (error.type)
+          when 'IllegalArgument'
+            raise Errors::IllegalArgumentError.new(error.message)
+          when 'Authentication'
+            raise Errors::AuthenticationError.new(error.message)
+          when 'NotFound'
+            raise Errors::NotFoundError.new(error.message)
+          when 'Http'
+            raise Errors::HttpError.new(error.message)
+          when 'ServiceUnavailable'
+            raise Errors::ServiceUnavailableError.new(error.message)
+          else
+            raise Errors::StandardError.new(error.message)
+          end
+        end
+      end
+
+      
+      def post_update(content)
+        ServiceCode::Statistics.add_call('FacebookPage', 'post_update')
+        ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+        ip.call_function('Social:postUpdate', @interpreter_storage, content)
+
+        check_for_error(ip.sandbox.thrown_error)
+        return nil
+      end
+      
+      def post_image(message, image)
+        ServiceCode::Statistics.add_call('FacebookPage', 'post_image')
+        ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+        ip.call_function('Social:postImage', @interpreter_storage, message, image)
+
+        check_for_error(ip.sandbox.thrown_error)
+        return nil
+      end
+      
+      def post_video(message, video, size, mime_type)
+        ServiceCode::Statistics.add_call('FacebookPage', 'post_video')
+        ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+        ip.call_function('Social:postVideo', @interpreter_storage, message, video, size, mime_type)
+
+        check_for_error(ip.sandbox.thrown_error)
+        return nil
+      end
+      
+      def get_connections()
+        ServiceCode::Statistics.add_call('FacebookPage', 'get_connections')
+        ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+        ip.call_function('Social:getConnections', @interpreter_storage, nil)
+
+        check_for_error(ip.sandbox.thrown_error)
+        return nil || ip.get_parameter(1)
+      end
+      
+      def login()
+        ServiceCode::Statistics.add_call('FacebookPage', 'login')
+        ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+        ip.call_function('Authenticating:login', @interpreter_storage)
+
+        check_for_error(ip.sandbox.thrown_error)
+        return nil
+      end
+      
+      def logout()
+        ServiceCode::Statistics.add_call('FacebookPage', 'logout')
+        ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+        ip.call_function('Authenticating:logout', @interpreter_storage)
+
+        check_for_error(ip.sandbox.thrown_error)
+        return nil
+      end
+      
+
+    	def save_as_string
+    		ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+    		return ip.save_as_string()
+    	end
+
+    	def load_as_string(saved_state)
+    		sandbox = ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage)
+    		ip = ServiceCode::Interpreter.new(sandbox)
+    		ip.load_as_string(saved_state)
+    		@persistent_storage = sandbox.persistent_storage
+    	end
+
+      def resume_login(execution_state, callback)
+        sandbox = ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage)
+        sandbox.load_state_from_string(execution_state)
+        ip = ServiceCode::Interpreter.new(sandbox)
+        ip.resume_function('Authenticating:login', @interpreter_storage, callback)
+      end
+    end
+  end
+end

data/lib/cloudrail_si/services/Foursquare.rb

@@ -0,0 +1,314 @@
+require_relative '../servicecode/Interpreter'
+require_relative '../servicecode/Sandbox'
+require_relative '../errors/DetailErrors'
+require_relative '../servicecode/InitSelfTest'
+require_relative '../statistics/Statistics'
+
+module CloudRailSi
+  module Services
+    class Foursquare
+
+      SERVICE_CODE = {
+        
+          "init" => [
+            [ "create", "$P0.crToFoursquare", "Object"],
+            [ "create", "$P0.foursquareToCr", "Object"],
+            [ "callFunc", "addCategory", "$P0", "airport", "4bf58dd8d48988d1ed931735"],
+            [ "callFunc", "addCategory", "$P0", "amusement_park", "4bf58dd8d48988d182941735"],
+            [ "callFunc", "addCategory", "$P0", "aquarium", "4fceea171983d5d06c3e9823"],
+            [ "callFunc", "addCategory", "$P0", "art_gallery", "4bf58dd8d48988d1e2931735"],
+            [ "callFunc", "addCategory", "$P0", "bakery", "4bf58dd8d48988d16a941735 "],
+            [ "callFunc", "addCategory", "$P0", "bank", "4bf58dd8d48988d10a951735"],
+            [ "callFunc", "addCategory", "$P0", "bar", "4bf58dd8d48988d116941735"],
+            [ "callFunc", "addCategory", "$P0", "beauty_salon", "54541900498ea6ccd0202697"],
+            [ "callFunc", "addCategory", "$P0", "bicycle_store", "4bf58dd8d48988d115951735"],
+            [ "callFunc", "addCategory", "$P0", "book_store", "4bf58dd8d48988d114951735"],
+            [ "callFunc", "addCategory", "$P0", "bowling_alley", "4bf58dd8d48988d1e4931735"],
+            [ "callFunc", "addCategory", "$P0", "bus_station", "4bf58dd8d48988d1fe931735"],
+            [ "callFunc", "addCategory", "$P0", "cafe", "4bf58dd8d48988d16d941735"],
+            [ "callFunc", "addCategory", "$P0", "car_dealer", "4eb1c1623b7b52c0e1adc2ec"],
+            [ "callFunc", "addCategory", "$P0", "car_rental", "4bf58dd8d48988d1ef941735"],
+            [ "callFunc", "addCategory", "$P0", "car_repair", "56aa371be4b08b9a8d5734d3"],
+            [ "callFunc", "addCategory", "$P0", "car_wash", "4f04ae1f2fb6e1c99f3db0ba"],
+            [ "callFunc", "addCategory", "$P0", "casino", "4bf58dd8d48988d17c941735"],
+            [ "callFunc", "addCategory", "$P0", "cemetery", "4bf58dd8d48988d15c941735"],
+            [ "callFunc", "addCategory", "$P0", "church", "4bf58dd8d48988d132941735"],
+            [ "callFunc", "addCategory", "$P0", "clothing_store", "4bf58dd8d48988d103951735"],
+            [ "callFunc", "addCategory", "$P0", "convenience_store", "4d954b0ea243a5684a65b473"],
+            [ "callFunc", "addCategory", "$P0", "courthouse", "4bf58dd8d48988d12b941735"],
+            [ "callFunc", "addCategory", "$P0", "dentist", "4bf58dd8d48988d178941735"],
+            [ "callFunc", "addCategory", "$P0", "department_store", "4bf58dd8d48988d1f6941735"],
+            [ "callFunc", "addCategory", "$P0", "doctor", "4bf58dd8d48988d177941735"],
+            [ "callFunc", "addCategory", "$P0", "electronics_store", "4bf58dd8d48988d122951735"],
+            [ "callFunc", "addCategory", "$P0", "embassy", "4bf58dd8d48988d12c951735"],
+            [ "callFunc", "addCategory", "$P0", "finance", "503287a291d4c4b30a586d65"],
+            [ "callFunc", "addCategory", "$P0", "fire_station", "4bf58dd8d48988d12c941735"],
+            [ "callFunc", "addCategory", "$P0", "florist", "4bf58dd8d48988d11b951735"],
+            [ "callFunc", "addCategory", "$P0", "food", "4d4b7105d754a06374d81259"],
+            [ "callFunc", "addCategory", "$P0", "funeral_home", "4f4534884b9074f6e4fb0174"],
+            [ "callFunc", "addCategory", "$P0", "furniture_store", "4bf58dd8d48988d1f8941735"],
+            [ "callFunc", "addCategory", "$P0", "gas_station", "4bf58dd8d48988d113951735"],
+            [ "callFunc", "addCategory", "$P0", "grocery_or_supermarket", "4bf58dd8d48988d118951735"],
+            [ "callFunc", "addCategory", "$P0", "gym", "4bf58dd8d48988d175941735"],
+            [ "callFunc", "addCategory", "$P0", "hardware_store", "4bf58dd8d48988d112951735"],
+            [ "callFunc", "addCategory", "$P0", "health", "54541900498ea6ccd0202697"],
+            [ "callFunc", "addCategory", "$P0", "hindu_temple", "52e81612bcbc57f1066b7a3f"],
+            [ "callFunc", "addCategory", "$P0", "hospital", "4bf58dd8d48988d196941735"],
+            [ "callFunc", "addCategory", "$P0", "jewelry_store", "4bf58dd8d48988d111951735"],
+            [ "callFunc", "addCategory", "$P0", "laundry", "4bf58dd8d48988d1fc941735"],
+            [ "callFunc", "addCategory", "$P0", "lawyer", "52f2ab2ebcbc57f1066b8b3f"],
+            [ "callFunc", "addCategory", "$P0", "library", "4bf58dd8d48988d12f941735"],
+            [ "callFunc", "addCategory", "$P0", "locksmith", "52f2ab2ebcbc57f1066b8b1e"],
+            [ "callFunc", "addCategory", "$P0", "mosque", "4bf58dd8d48988d138941735"],
+            [ "callFunc", "addCategory", "$P0", "movie_theater", "4bf58dd8d48988d17f941735"],
+            [ "callFunc", "addCategory", "$P0", "museum", "4bf58dd8d48988d181941735"],
+            [ "callFunc", "addCategory", "$P0", "night_club", "4bf58dd8d48988d11f941735"],
+            [ "callFunc", "addCategory", "$P0", "parks", "4bf58dd8d48988d163941735"],
+            [ "callFunc", "addCategory", "$P0", "parking", "4c38df4de52ce0d596b336e1"],
+            [ "callFunc", "addCategory", "$P0", "pet_store", "4bf58dd8d48988d100951735"],
+            [ "callFunc", "addCategory", "$P0", "pharmacy", "4bf58dd8d48988d10f951735"],
+            [ "callFunc", "addCategory", "$P0", "physiotherapist", "5744ccdfe4b0c0459246b4af"],
+            [ "callFunc", "addCategory", "$P0", "police", "4bf58dd8d48988d12e941735"],
+            [ "callFunc", "addCategory", "$P0", "post_office", "4bf58dd8d48988d172941735"],
+            [ "callFunc", "addCategory", "$P0", "real_estate_agency", "5032885091d4c4b30a586d66"],
+            [ "callFunc", "addCategory", "$P0", "restaurant", "4d4b7105d754a06374d81259"],
+            [ "callFunc", "addCategory", "$P0", "rv_park", "52f2ab2ebcbc57f1066b8b53"],
+            [ "callFunc", "addCategory", "$P0", "school", "4bf58dd8d48988d13b941735"],
+            [ "callFunc", "addCategory", "$P0", "shoe_store", "4bf58dd8d48988d107951735"],
+            [ "callFunc", "addCategory", "$P0", "shopping_mall", "4bf58dd8d48988d1fd941735"],
+            [ "callFunc", "addCategory", "$P0", "spa", "4bf58dd8d48988d1ed941735"],
+            [ "callFunc", "addCategory", "$P0", "stadium", "4bf58dd8d48988d184941735"],
+            [ "callFunc", "addCategory", "$P0", "synagogue", "4bf58dd8d48988d139941735"],
+            [ "callFunc", "addCategory", "$P0", "taxi_stand", "53fca564498e1a175f32528b"],
+            [ "callFunc", "addCategory", "$P0", "train_station", "4bf58dd8d48988d129951735"],
+            [ "callFunc", "addCategory", "$P0", "travel_agency", "4f04b08c2fb6e1c99f3db0bd"],
+            [ "callFunc", "addCategory", "$P0", "university", "4d4b7105d754a06372d81259"],
+            [ "callFunc", "addCategory", "$P0", "veterinary_care", "4d954af4a243a5684765b473"],
+            [ "callFunc", "addCategory", "$P0", "zoo", "4bf58dd8d48988d17b941735"]
+            
+          ],
+        
+          "getNearbyPOIs" => [
+            [ "callFunc", "checkNull", "$P0", "$P2", "Latitude"],
+            [ "callFunc", "checkNull", "$P0", "$P3", "Longitude"],
+            [ "callFunc", "checkNull", "$P0", "$P4", "Radius"],
+            [ "callFunc", "checkLessThan", "$P0", "$P2", -90, "Latitude"],
+            [ "callFunc", "checkLessThan", "$P0", "$P3", -180, "Longitude"],
+            [ "callFunc", "checkLessThan", "$P0", "$P4", 0, "Radius"],
+            [ "callFunc", "checkGreaterThan", "$P0", "$P2", 90, "Latitude"],
+            [ "callFunc", "checkGreaterThan", "$P0", "$P3", 180, "Longitude"],
+            [ "callFunc", "checkGreaterThan", "$P0", "$P4", 40000, "Radius"],
+            [ "if!=than", "$P6", nil, 1],
+            [ "callFunc", "checkIsEmpty", "$P0", "$P6", "Categories"],
+            [ "create", "$L0", "Object"],
+            [ "set", "$L0.method", "GET"],
+            [ "set", "$L0.url", "https://api.foursquare.com/v2/venues/search?v=20160614&m=foursquare"],
+            [ "string.concat", "$L1", "$P2", ",", "$P3"],
+            [ "string.urlEncode", "$L1", "$L1"],
+            [ "string.concat", "$L0.url", "$L0.url", "&ll=", "$L1"],
+            [ "string.concat", "$L0.url", "$L0.url", "&radius=", "$P4"],
+            [ "if!=than", "$P5", nil, 2],
+            [ "string.urlEncode", "$L1", "$P5"],
+            [ "string.concat", "$L0.url", "$L0.url", "&query=", "$L1"],
+            [ "if!=than", "$P6", nil, 3],
+            [ "callFunc", "getCategoriesString", "$P0", "$L2", "$P6"],
+            [ "string.urlEncode", "$L2", "$L2"],
+            [ "string.concat", "$L0.url", "$L0.url", "&categoryId=", "$L2"],
+            [ "string.concat", "$L0.url", "$L0.url", "&client_id=", "$P0.clientID", "&client_secret=", "$P0.clientSecret"],
+            [ "http.requestCall", "$L2", "$L0"],
+            [ "callFunc", "checkHttpResponse", "$P0", "$L2"],
+            [ "json.parse", "$L3", "$L2.responseBody"],
+            [ "set", "$L3", "$L3.response.venues"],
+            [ "create", "$P1", "Array"],
+            [ "create", "$L4", "Number", 0],
+            [ "size", "$L5", "$L3"],
+            [ "if<than", "$L4", "$L5", 5],
+            [ "get", "$L6", "$L3", "$L4"],
+            [ "callFunc", "extractPOI", "$P0", "$L7", "$L6"],
+            [ "push", "$P1", "$L7"],
+            [ "math.add", "$L4", "$L4", 1],
+            [ "jumpRel", -6]
+            
+          ],
+        
+          "checkNull" => [
+            [ "if==than", "$P1", nil, 3],
+            [ "string.concat", "$L0", "$P2", " is not allowed to be null."],
+            [ "create", "$L1", "Error", "$L0", "IllegalArgument"],
+            [ "throwError", "$L1"]
+            
+          ],
+        
+          "checkLessThan" => [
+            [ "if<than", "$P1", "$P2", 3],
+            [ "string.concat", "$L0", "$P3", " is not allowed to be less than ", "$P2", "."],
+            [ "create", "$L1", "Error", "$L0", "IllegalArgument"],
+            [ "throwError", "$L1"]
+            
+          ],
+        
+          "checkGreaterThan" => [
+            [ "if>than", "$P1", "$P2", 3],
+            [ "string.concat", "$L0", "$P3", " is not allowed to be greater than ", "$P2", "."],
+            [ "create", "$L1", "Error", "$L0", "IllegalArgument"],
+            [ "throwError", "$L1"]
+            
+          ],
+        
+          "checkIsEmpty" => [
+            [ "size", "$L0", "$P2"],
+            [ "if==than", "$L0", 0, 3],
+            [ "string.concat", "$L0", "$P3", " is not allowed to be empty."],
+            [ "create", "$L1", "Error", "$L0", "IllegalArgument"],
+            [ "throwError", "$L1"]
+            
+          ],
+        
+          "checkHttpResponse" => [
+            [ "if>=than", "$P1.code", 400, 9],
+            [ "if==than", "$P1.code", 401, 2],
+            [ "create", "$L1", "Error", "Invalid credentials or access rights.", "Authentication"],
+            [ "throwError", "$L1"],
+            [ "if==than", "$P1.code", 503, 2],
+            [ "create", "$L1", "Error", "Service unavailable. Try again later.", "ServiceUnavailable"],
+            [ "throwError", "$L1"],
+            [ "json.parse", "$L0", "$P1.responseBody"],
+            [ "create", "$L1", "Error", "$L0.meta.errorDetail", "Http"],
+            [ "throwError", "$L1"]
+            
+          ],
+        
+          "getCategoriesString" => [
+            [ "create", "$P1", "String"],
+            [ "create", "$L0", "Number", 0],
+            [ "size", "$L1", "$P2"],
+            [ "if<than", "$L0", "$L1", 10],
+            [ "get", "$L2", "$P2", "$L0"],
+            [ "get", "$L2", "$P0.crToFoursquare", "$L2"],
+            [ "if==than", "$L2", nil, 2],
+            [ "create", "$L3", "Error", "Unknown category.", "IllegalArgument"],
+            [ "throwError", "$L3"],
+            [ "if!=than", "$L0", 0, 1],
+            [ "string.concat", "$P1", "$P1", ","],
+            [ "string.concat", "$P1", "$P1", "$L2"],
+            [ "math.add", "$L0", "$L0", 1],
+            [ "jumpRel", -11]
+            
+          ],
+        
+          "extractPOI" => [
+            [ "create", "$L0", "Array"],
+            [ "create", "$L1", "Number", 0],
+            [ "size", "$L2", "$P2.categories"],
+            [ "if<than", "$L1", "$L2", 7],
+            [ "get", "$L3", "$P2.categories", "$L1"],
+            [ "set", "$L3", "$L3.id"],
+            [ "get", "$L4", "$P0.foursquareToCr", "$L3"],
+            [ "if!=than", "$L4", nil, 1],
+            [ "push", "$L0", "$L4"],
+            [ "math.add", "$L1", "$L1", 1],
+            [ "jumpRel", -8],
+            [ "create", "$L1", "Location"],
+            [ "set", "$L1.latitude", "$P2.location.lat"],
+            [ "set", "$L1.longitude", "$P2.location.lng"],
+            [ "create", "$L2", "Object"],
+            [ "set", "$L2.method", "GET"],
+            [ "string.concat", "$L2.url", "https://api.foursquare.com/v2/venues/", "$P2.id", "/photos"],
+            [ "string.concat", "$L2.url", "$L2.url", "?client_id=", "$P0.clientID", "&client_secret=", "$P0.clientSecret"],
+            [ "string.concat", "$L2.url", "$L2.url", "&limit=1&v=20160614&m=foursquare"],
+            [ "http.requestCall", "$L3", "$L2"],
+            [ "callFunc", "checkHttpResponse", "$P0", "$L3"],
+            [ "json.parse", "$L4", "$L3.responseBody"],
+            [ "get", "$L5", "$L4.response.photos.items"],
+            [ "size", "$L6", "$L5"],
+            [ "if==than", "$L6", 0, 2],
+            [ "set", "$L6", nil],
+            [ "jumpRel", 2],
+            [ "get", "$L5", "$L5", 0],
+            [ "string.concat", "$L6", "$L5.prefix", "original", "$L5.suffix"],
+            [ "create", "$P1", "POI", "$L0", "$L6", "$L1", "$P2.name", "$P2.contact.phone"]
+            
+          ],
+        
+          "addCategory" => [
+            [ "set", "$P0.crToFoursquare", "$P2", "$P1"],
+            [ "set", "$P0.foursquareToCr", "$P1", "$P2"]
+            
+          ]
+        
+      }
+
+      def initialize(redirect_receiver, client_id, client_secret)
+          @interpreter_storage = {}
+          @persistent_storage = [{}]
+          @instance_dependency_storage = {
+              redirect_receiver: redirect_receiver
+          }
+
+          ServiceCode::InitSelfTest.init_test('Foursquare')
+
+          @interpreter_storage['clientID'] = client_id
+          @interpreter_storage['clientSecret'] = client_secret
+          
+
+          
+
+          # call init servicecode function
+          ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+          # check and call the initialization function if is available
+
+          ip.call_function_sync('init', @interpreter_storage) if (SERVICE_CODE['init'])
+      end
+
+      def check_for_error(error)
+        if (error)
+          ServiceCode::Statistics.add_error('Foursquare', '')
+          case (error.type)
+          when 'IllegalArgument'
+            raise Errors::IllegalArgumentError.new(error.message)
+          when 'Authentication'
+            raise Errors::AuthenticationError.new(error.message)
+          when 'NotFound'
+            raise Errors::NotFoundError.new(error.message)
+          when 'Http'
+            raise Errors::HttpError.new(error.message)
+          when 'ServiceUnavailable'
+            raise Errors::ServiceUnavailableError.new(error.message)
+          else
+            raise Errors::StandardError.new(error.message)
+          end
+        end
+      end
+
+      
+      def get_nearby_pois(latitude, longitude, radius, search_term, categories)
+        ServiceCode::Statistics.add_call('Foursquare', 'get_nearby_pois')
+        ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+        ip.call_function('getNearbyPOIs', @interpreter_storage, nil, latitude, longitude, radius, search_term, categories)
+
+        check_for_error(ip.sandbox.thrown_error)
+        return nil || ip.get_parameter(1)
+      end
+      
+
+    	def save_as_string
+    		ip = ServiceCode::Interpreter.new(ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage))
+    		return ip.save_as_string()
+    	end
+
+    	def load_as_string(saved_state)
+    		sandbox = ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage)
+    		ip = ServiceCode::Interpreter.new(sandbox)
+    		ip.load_as_string(saved_state)
+    		@persistent_storage = sandbox.persistent_storage
+    	end
+
+      def resume_login(execution_state, callback)
+        sandbox = ServiceCode::Sandbox.new(SERVICE_CODE, @persistent_storage, @instance_dependency_storage)
+        sandbox.load_state_from_string(execution_state)
+        ip = ServiceCode::Interpreter.new(sandbox)
+        ip.resume_function('Authenticating:login', @interpreter_storage, callback)
+      end
+    end
+  end
+end