← urwebplay

intial

daae8a544da0d6f2d215b8551a6981fce521b9e1 · ovidiucs · Dec 22, 2015 20:22

+52 · 4 files changed

• urblog.sql +8 −0
• urblog.ur +37 −0
• urblog.urp +5 −0
• urblog.urs +2 −0

diff --git a/urblog.sql b/urblog.sql
new file mode 100644
index 0000000..146ea34
--- /dev/null
+++ b/urblog.sql
@@ -0,0 +1,8 @@
+CREATE TABLE uw_Urblog_entry(uw_id int8 NOT NULL, uw_title text NOT NULL, 
+                              uw_created timestamp NOT NULL, 
+                              uw_author text NOT NULL, uw_body text NOT NULL,
+ PRIMARY KEY (uw_id)
+  
+ );
+ 
+ 
\ No newline at end of file
diff --git a/urblog.ur b/urblog.ur
new file mode 100644
index 0000000..c0e8a29
--- /dev/null
+++ b/urblog.ur
@@ -0,0 +1,37 @@
+table entry : { Id : int, Title : string, Created : time, Author : string, Body : string }
+  PRIMARY KEY Id
+
+style blogEntry
+
+fun list () =
+    rows <- queryX (SELECT * FROM entry)
+            (fn row => 
+				<xml>
+					<div>
+						<h1>{[row.Entry.Title]}</h1><br />
+							<h2>By {[row.Entry.Author]} at {[row.Entry.Created]}</h2>
+						<p>{[row.Entry.Body]}</p>
+					</div>
+				</xml>
+            );
+    return 
+	 	<xml>
+		  <head>
+				<title>All Entries</title>
+            <link rel="stylesheet" type="text/css" href="http://expdev.net/urtutorial/step3/style.css"/>
+		  </head>
+		  <body>
+			<h1>All Entries</h1>
+        {rows}
+		  </body>
+    	</xml>
+
+fun main () = return <xml>
+  <head>
+    <title>UrBlog</title>
+  </head>
+
+  <body>
+    <h1>UrBlog</h1>
+  </body>
+</xml>
diff --git a/urblog.urp b/urblog.urp
new file mode 100644
index 0000000..0f474ae
--- /dev/null
+++ b/urblog.urp
@@ -0,0 +1,5 @@
+allow url http://expdev.net/urtutorial/step3/style.css
+database dbname=urblog
+sql urblog.sql
+
+urblog
diff --git a/urblog.urs b/urblog.urs
new file mode 100644
index 0000000..a246a28
--- /dev/null
+++ b/urblog.urs
@@ -0,0 +1,2 @@
+val main : unit -> transaction page
+val list : unit -> transaction page