14 lines
480 B
Plaintext
14 lines
480 B
Plaintext
include "NSLog.incl"
|
|
|
|
local fn GET_HTTPS
|
|
CFStringRef response = unix @"curl -ksL https://sourceforge.net/"
|
|
CFDataRef dta = fn StringData( response, NSUTF8StringEncoding )
|
|
CFDictionaryRef options = @{NSDocumentTypeDocumentAttribute: NSHTMLTextDocumentType, NSCharacterEncodingDocumentAttribute: @(NSUTF8StringEncoding)}
|
|
CFAttributedStringRef aStr = fn AttributedStringWithHTML( dta, options )
|
|
NSLog( @"%@", aStr )
|
|
end fn
|
|
|
|
fn GET_HTTPS
|
|
|
|
HandleEvents
|