Implement a few more views used in landmarks

mainstock/main.swift

@@ -0,0 +1 @@
+print("hello")

marina.swift

@@ -26,6 +26,10 @@ protocol MarinaViewContentAccessor {
 protocol MarinaTextAccess: MarinaViewContentAccessor {
 }
 
+struct Color {
+    static let primary = Color()
+}
+
 struct Text : View, MarinaTextAccess {
     var content:String
     var body:Never {
@@ -37,6 +41,9 @@ struct Text : View, MarinaTextAccess {
     func getContent() -> Any {
         return content
     }
+    func color(_ color: Color?) -> Text {
+        return self
+    }
 }
 
 protocol MarinaTupleViewAccess: MarinaViewContentAccessor {
@@ -125,12 +132,17 @@ struct HStack<Content> : View, MarinaHStackAccess where Content: View {
 protocol MarinaVStackAccess : MarinaViewContentAccessor {
 }
 
+struct HorizontalAlignment {
+    static let center = HorizontalAlignment()
+    static let leading = HorizontalAlignment()
+}
+
 struct VStack<Content> : View, MarinaVStackAccess where Content: View {
     var body:Never {
         fatalError("VStack has no body")
     }
     var content:Content
-    init(@ViewBuilder content: () -> Content) {
+    init(alignment: HorizontalAlignment = .center, @ViewBuilder content: () -> Content) {
         self.content = content()
     }
     func getContent() -> Any {
@@ -154,6 +166,62 @@ struct ZStack<Content> : View, MarinaHStackAccess where Content: View {
     }
 }
 
+protocol MarinaScrollViewAccess: MarinaViewContentAccessor {
+}
+
+struct ScrollView<Content>: View, MarinaScrollViewAccess where Content: View {
+    var body:Never {
+        fatalError("ScrollView has no body")
+    }
+    var content:Content
+    init(showsHorizontalIndicator: Bool = true, @ViewBuilder content: () -> Content) {
+        self.content = content()
+    }
+    func getContent() -> Any {
+        return content
+    }
+}
+
+protocol Identifiable {
+    associatedtype ID: Hashable
+    associatedtype IdentifiedValue = Self
+}
+
+struct ForEach<Data, Content> : View where Data : RandomAccessCollection, Content : View, Data.Element : Identifiable {
+    var body:Never {
+        fatalError("ForEach has no body")
+    }
+    var data: Data
+    var content: (Data.Element.IdentifiedValue) -> Content
+    init(_ data: Data, content: @escaping (Data.Element.IdentifiedValue) -> Content) {
+        self.data = data
+        self.content = content
+    }
+}
+
+struct NavigationButton<Label, Destination> : View where Label : View, Destination : View {
+    var body:Never {
+        fatalError("NavigationButton has no body")
+    }
+    init(destination: Destination, isDetail: Bool = true, onTrigger: @escaping () -> Bool = { true }, label: () -> Label) {
+    }
+}
+
+enum RenderingMode {
+    case automatic
+}
+
+struct Image: View {
+    var body:Never {
+        fatalError("Image has no body")
+    }
+    init(url: String, label: Text) {
+    }
+    func renderingMode(_ renderingMode: RenderingMode) -> Image {
+        return self
+    }
+}
+
 struct MarinaDemo : View {
     var body: some View {
         HStack {

stockDemo.sh

@@ -0,0 +1,9 @@
+#!/bin/sh
+set -e
+export DEVELOPER_DIR=/Applications/Xcode-beta.app/Contents/Developer
+SWIFTFLAGS="-sdk /Applications/Xcode-beta.app/Contents/Developer/Platforms/iPhoneSimulator.platform/Developer/SDKs/iPhoneSimulator13.0.sdk -target x86_64-apple-ios13.0-simulator"
+subdir="WorkingWithUIControls_StartingPoint/Landmarks/Landmarks"
+swiftc $SWIFTFLAGS -o marina mainstock/main.swift marina.swift marina_html.swift \
+	$subdir/CategoryRow.swift $subdir/Home.swift $subdir/LandmarkDetail.swift \
+	$subdir/models/* $@
+./run.sh