DocumentWidget: Fetching URL contents

5 files changed, 229 insertions, 2 deletions

diff --git a/.clang-format b/.clang-format
new file mode 100644
index 00000000..0563a742
--- /dev/null
+++ b/.clang-format
@@ -0,0 +1,107 @@
+Language:        Cpp
+# BasedOnStyle:  Mozilla
+AccessModifierOffset: -4
+AlignAfterOpenBracket: Align
+AlignConsecutiveAssignments: true
+AlignConsecutiveDeclarations: true
+AlignEscapedNewlines: Right
+AlignOperands:   true
+AlignTrailingComments: true
+AllowAllParametersOfDeclarationOnNextLine: false
+AllowShortBlocksOnASingleLine: false
+AllowShortCaseLabelsOnASingleLine: false
+AllowShortFunctionsOnASingleLine: Inline
+AllowShortIfStatementsOnASingleLine: true
+AllowShortLoopsOnASingleLine: false
+AlwaysBreakAfterDefinitionReturnType: None
+AlwaysBreakAfterReturnType: None
+AlwaysBreakBeforeMultilineStrings: false
+AlwaysBreakTemplateDeclarations: false
+BinPackArguments: false
+BinPackParameters: true
+BraceWrapping:
+  AfterClass:      false
+  AfterControlStatement: false
+  AfterEnum:       false
+  AfterFunction:   false
+  AfterNamespace:  false
+  AfterObjCDeclaration: false
+  AfterStruct:     false
+  AfterUnion:      false 
+  BeforeCatch:     true
+  BeforeElse:      true
+  IndentBraces:    false
+  SplitEmptyFunction: true
+  SplitEmptyRecord: false
+  SplitEmptyNamespace: true
+BreakBeforeBinaryOperators: None
+BreakBeforeBraces: Custom
+BreakBeforeInheritanceComma: true
+BreakBeforeTernaryOperators: true
+BreakConstructorInitializersBeforeComma: true
+BreakConstructorInitializers: BeforeComma
+BreakAfterJavaFieldAnnotations: false
+BreakStringLiterals: true
+ColumnLimit:     100
+CommentPragmas:  '^ IWYU pragma:'
+CompactNamespaces: true
+ConstructorInitializerAllOnOneLineOrOnePerLine: false
+ConstructorInitializerIndentWidth: 4
+ContinuationIndentWidth: 4
+Cpp11BracedListStyle: false
+DerivePointerAlignment: false
+DisableFormat:   false
+ExperimentalAutoDetectBinPacking: false
+FixNamespaceComments: true
+ForEachMacros:
+  - foreach
+  - Q_FOREACH
+  - BOOST_FOREACH
+#IncludeBlocks: Preserve
+IncludeCategories:
+  - Regex:           '^"(llvm|llvm-c|clang|clang-c)/'
+    Priority:        2
+  - Regex:           '^(<|"(gtest|gmock|isl|json)/)'
+    Priority:        3
+  - Regex:           '.*'
+    Priority:        1
+IncludeIsMainRegex: '(Test)?$'
+IndentCaseLabels: true
+#IndentPPDirectives: AfterHash
+IndentWidth:     4
+IndentWrappedFunctionNames: false
+JavaScriptQuotes: Leave
+JavaScriptWrapImports: true
+KeepEmptyLinesAtTheStartOfBlocks: true
+MacroBlockBegin: ''
+MacroBlockEnd:   ''
+MaxEmptyLinesToKeep: 1
+NamespaceIndentation: None
+ObjCBlockIndentWidth: 2
+ObjCSpaceAfterProperty: true
+ObjCSpaceBeforeProtocolList: false
+PenaltyBreakAssignment: 2
+PenaltyBreakBeforeFirstCallParameter: 19
+PenaltyBreakComment: 300
+PenaltyBreakFirstLessLess: 120
+PenaltyBreakString: 1000
+PenaltyExcessCharacter: 1000000
+PenaltyReturnTypeOnItsOwnLine: 200
+PointerAlignment: Right
+ReflowComments:  true
+SortIncludes:    true
+SortUsingDeclarations: true
+SpaceAfterCStyleCast: true
+SpaceAfterTemplateKeyword: true
+SpaceBeforeAssignmentOperators: true
+SpaceBeforeParens: ControlStatements
+SpaceInEmptyParentheses: false
+SpacesBeforeTrailingComments: 1
+SpacesInAngles:  false
+SpacesInContainerLiterals: true
+SpacesInCStyleCastParentheses: false
+SpacesInParentheses: false
+SpacesInSquareBrackets: false
+Standard:        Cpp11
+TabWidth:        4
+UseTab:          Never
diff --git a/src/app.c b/src/app.c
index 019308be..20c9a399 100644
--- a/src/app.c
+++ b/src/app.c
@@ -101,7 +101,7 @@ static void loadPrefs_App_(iApp *d) {
         iRangecc line = iNullRange;
         while (nextSplit_Rangecc(&src, "\n", &line)) {
             iString cmd;
-            initRange_String(&cmd, &line);
+            initRange_String(&cmd, line);
             if (equal_Command(cstr_String(&cmd), "uiscale")) {
                 /* Must be handled before the window is created. */
                 setUiScale_Window(get_Window(), argf_Command(cstr_String(&cmd)));
diff --git a/src/ui/command.c b/src/ui/command.c
index 16a0d948..71228784 100644
--- a/src/ui/command.c
+++ b/src/ui/command.c
@@ -64,7 +64,7 @@ const iString *string_Command(const char *cmd, const char *label) {
     iRangecc val = { valuePtr_Command(cmd, label), NULL };
     if (val.start) {
         for (val.end = val.start; *val.end && !isspace(*val.end); val.end++) {}
-        return collect_String(newRange_String(&val));
+        return collect_String(newRange_String(val));
     }
     return collectNew_String();
 }
diff --git a/src/ui/documentwidget.c b/src/ui/documentwidget.c
index 31c1a14c..e8a0ded9 100644
--- a/src/ui/documentwidget.c
+++ b/src/ui/documentwidget.c
@@ -1,20 +1,136 @@
 #include "documentwidget.h"
 #include "paint.h"
 
+#include <the_Foundation/regexp.h>
+#include <the_Foundation/tlsrequest.h>
+
+enum iDocumentState {
+    blank_DocumentState,
+    fetching_DocumentState,
+    layout_DocumentState,
+    ready_DocumentState,
+};
+
 struct Impl_DocumentWidget {
     iWidget widget;
+    enum iDocumentState state;
+    iString *url;
+    iString *source;
+    int statusCode;
+    iTlsRequest *request;
 };
 
+iDeclareType(Url)
+
+struct Impl_Url {
+    iRangecc protocol;
+    iRangecc host;
+    iRangecc port;
+    iRangecc path;
+    iRangecc query;
+};
+
+void init_Url(iUrl *d, const iString *text) {
+    iRegExp *pattern = new_RegExp("(.+)://([^/:?]+)(:[0-9]+)?([^?]*)(\\?.*)?", caseInsensitive_RegExpOption);
+    iRegExpMatch m;
+    if (matchString_RegExp(pattern, text, &m)) {
+        capturedRange_RegExpMatch(&m, 1, &d->protocol);
+        capturedRange_RegExpMatch(&m, 2, &d->host);
+        capturedRange_RegExpMatch(&m, 3, &d->port);
+        if (!isEmpty_Range(&d->port)) {
+            /* Don't include the colon. */
+            d->port.start++;
+        }
+        capturedRange_RegExpMatch(&m, 4, &d->path);
+        capturedRange_RegExpMatch(&m, 5, &d->query);
+    }
+    else {
+        iZap(*d);
+    }
+    iRelease(pattern);
+}
+
 iDefineObjectConstruction(DocumentWidget)
 
 void init_DocumentWidget(iDocumentWidget *d) {
     iWidget *w = as_Widget(d);
     init_Widget(w);
     setBackgroundColor_Widget(w, gray25_ColorId);
+    d->state = blank_DocumentState;
+    d->url = new_String();
+    d->statusCode = 0;
+    d->source = new_String();
+    d->request = NULL;
+
+    setUrl_DocumentWidget(d, collectNewCStr_String("gemini.circumlunar.space/"));
 }
 
 void deinit_DocumentWidget(iDocumentWidget *d) {
+    delete_String(d->source);
+    delete_String(d->url);
+}
+
+void setSource_DocumentWidget(iDocumentWidget *d, const iString *source) {
+    /* TODO: lock source during update */
+    set_String(d->source, source);
+    printf("%s\n", cstr_String(d->source));
+    d->state = layout_DocumentState;
+}
+
+static iRangecc getLine_(iRangecc text) {
+    iRangecc line = { text.start, text.start };
+    for (; *line.end != '\n' && line.end != text.end; line.end++) {}
+    return line;
+}
+
+static void requestFinished_DocumentWidget_(iAnyObject *obj) {
+    iDocumentWidget *d = obj;
+    iBlock *response = readAll_TlsRequest(d->request);
+    iRangecc responseRange = { constBegin_Block(response), constEnd_Block(response) };
+    iRangecc respLine = getLine_(responseRange);
+    responseRange.start = respLine.end + 1;
+    /* First line is the status code. */ {
+        iString *line = newRange_String(respLine);
+        trim_String(line);
+        printf("response: %s\n", cstr_String(line));
+        delete_String(line);
+    }
+    setSource_DocumentWidget(d, collect_String(newRange_String(responseRange)));
+    delete_Block(response);
+    iReleaseLater(d->request);
+    d->request = NULL;
+    fflush(stdout);
+}
+
+static void fetch_DocumentWidget_(iDocumentWidget *d) {
+    iAssert(!d->request);
+    d->state = fetching_DocumentState;
+    d->statusCode = 0;
+    iUrl url;
+    init_Url(&url, d->url);
+    d->request = new_TlsRequest();
+    uint16_t port = toInt_String(collect_String(newRange_String(url.port)));
+    if (port == 0) {
+        port = 1965; /* default Gemini port */
+    }
+    setUrl_TlsRequest(d->request, collect_String(newRange_String(url.host)), port);
+    /* The request string is an UTF-8 encoded absolute URL. */
+    iString *content = collectNew_String();
+    append_String(content, d->url);
+    appendCStr_String(content, "\r\n");
+    setContent_TlsRequest(d->request, utf8_String(content));
+    iConnect(TlsRequest, d->request, finished, d, requestFinished_DocumentWidget_);
+    submit_TlsRequest(d->request);
+}
 
+void setUrl_DocumentWidget(iDocumentWidget *d, const iString *url) {
+    clear_String(d->url);
+    if (indexOfCStr_String(url, "://") == iInvalidPos && !startsWithCase_String(url, "gemini:")) {
+        /* Prepend default protocol. */
+        setCStr_String(d->url, "gemini://");
+    }
+    append_String(d->url, url);
+    fetch_DocumentWidget_(d);
 }
 
 static iBool processEvent_DocumentWidget_(iDocumentWidget *d, const SDL_Event *ev) {
@@ -25,6 +141,8 @@ static iBool processEvent_DocumentWidget_(iDocumentWidget *d, const SDL_Event *e
 static void draw_DocumentWidget_(const iDocumentWidget *d) {
     const iWidget *w = constAs_Widget(d);
     draw_Widget(w);
+    if (d->state != ready_DocumentState) return;
+    /* TODO: lock source during draw */
 }
 
 iBeginDefineSubclass(DocumentWidget, Widget)
diff --git a/src/ui/documentwidget.h b/src/ui/documentwidget.h
index e03e08e4..02b75e69 100644
--- a/src/ui/documentwidget.h
+++ b/src/ui/documentwidget.h
@@ -4,3 +4,5 @@
 
 iDeclareWidgetClass(DocumentWidget)
 iDeclareObjectConstruction(DocumentWidget)
+
+void    setUrl_DocumentWidget   (iDocumentWidget *d, const iString *url);