Data Update

Task/HTTP/FutureBasic/http.basic

@@ -0,0 +1,25 @@
+include "NSLog.incl"
+
+#plist NSAppTransportSecurity @{NSAllowsArbitraryLoads:YES}
+
+local fn URLSessionHandler( session as URLSessionRef, dta as CFDataRef, response as URLResponseRef, err as ErrorRef, userData as ptr )
+  if ( fn HTTPURLResponseStatusCode( (HTTPURLResponseRef)response ) == 200 )
+    NSLog( @"%@", fn StringWithData( dta, NSUTF8StringEncoding ) )
+  else
+    NSLog( @"%@", fn ErrorLocalizedDescription( err ) )
+  end if
+  NSLogScrollToTop
+end fn
+
+local fn URLSessionWithGetRequest( path as CFStringRef )
+  CFURLRef url = fn URLWithString( path )
+  MutableURLRequestRef urlRequest = fn MutableURLRequestWithURL( url )
+  MutableURLRequestSetHTTPMethod( urlRequest, @"HTTP" )
+  URLSessionRef session = fn URLSessionSharedSession
+  URLSessionDataTaskRef task = fn URLSessionDataTaskWithRequestCompletionHandler( session, urlRequest, @fn URLSessionHandler, NULL )
+  URLSessionTaskResume( task )
+end fn
+
+fn URLSessionWithGetRequest( @"http://rosettacode.org" )
+
+HandleEvents