publicclass TopicList

{

[Dto]publicclass Topic { Name :string; Author :string; Rating :string; Comments :string; Url :string }

[Dto]publicclass CommentNode { Text :string; Children : List[CommentNode] }

privatemutable _url :string;

privatemutable _topics : List[Topic];

privatemutable _selectedTopic : CommentNode;

public Url :string

{

OpenTopic(url :string) :void

{

window.alert(url);

_ = server.LoadReplies(url, node => _selectedTopic = node);

}

[Html]

public View() :string

{

<#

<div $foreach(topicin _topics)class="topic" click="$(OpenTopic(topic.Url))">

<div $foreach(topicin _topics)class="topic" click="$(OpenTopic(topic.Url))" visible="$(_selectedTopic == null)">

<spanclass="topic-name">$(topic.Name)</span>

<spanclass="topic-comment-count">Ответов: $(topic.Comments)</span>

<spanclass="topic-author">Автор: $(topic.Author)</span>

{

TopicLoader.GetTopicList(url);

}

public LoadReplies(url :string) : CommentNode

{

TopicLoader.LoadReplies(url)

}

}

}

}

using Nemerle.Collections;

using Nemerle.Text;

using Nemerle.Utility;

using Nemerle.Imperative;

using System;

using System.Collections.Generic;

using System.Linq;

using System.Net;

using System.Text.RegularExpressions;

using HtmlAgilityPack;

TopicList.Topic(name, author, rating, comments, url);

});

}

public LoadReplies(url :string) : TopicList.CommentNode

{

def start = url.LastIndexOf('/');

def end = url.LastIndexOf('.');

when (start ==-1 || end ==-1)

return TopicList.CommentNode();

def id = url.Substring(start+1, (end- start)-1);

def replies = WebClient().DownloadString("http://rsdn.ru/Forum/LoadRe.aspx?tid="+ id);

def start' = replies.IndexOf("window.parent.LE");

def start'' = replies.IndexOf("\"", start');

def end' = replies.IndexOf('\n', start'') - 3;

def repliesHtml = replies.Substring(start'', end'- start'');

def doc = HtmlDocument();

doc.LoadHtml(repliesHtml);

def docNode = doc.DocumentNode;

def buildCommentNode(node, isRoot) {

def url =if(!isRoot) node.SelectSingleNode(".//a[@href]").Attributes["href"].Valueelse"";

TopicList.CommentNode(url, node.ChildNodes

.Where(c => c.Name =="table")

.Select(c => buildCommentNode(c, false)).ToList())

}

def res = buildCommentNode(docNode, true);

res

}

}

}