Anton Andreev's blog - .NET

F# AsyncWorkflow demo that really compiles

nospam@example.com (Anton Andreev) — Thu, 16 Apr 2009 21:00:51 +0300

You can browse/download the code from http://code.google.com/p/fsharpdemos/source/browse/#svn/trunk

You need F# version 1.9.6.2 and reference to FSharp.PowerPack.

Sample 4

#light
open System.Net
open System.IO

type System.Net.WebRequest with
member x.GetResponseAsync() =
Async.BuildPrimitive(x.BeginGetResponse, x.EndGetResponse)

let downloadPage(url:string) =
async { let request = WebRequest.Create(url)
use! response = request.AsyncGetResponse()
use stream = response.GetResponseStream()
use reader = new StreamReader(stream)
let! html = reader.AsyncReadToEnd()
return (url, html)
}

let download(arr : ResizeArray<string>) =
let urls = List.of_seq(arr)
let dotnetresult = new System.Collections.Generic.Dictionary<string,string>()
let results = Async.Run(Async.Parallel [for site in urls -> downloadPage site])
results |> Seq.iter(fun x -> dotnetresult.Add( (fst x) , (snd x)))
dotnetresult

And C# code that calls it:

Dictionary<string, string> bc = AsyncWorkflowDemo.download(scores.ToList<string>());
foreach (string key in bc.Keys)
{
Console.WriteLine(bc[key]);
}

Consuming/Calling F# from C#

nospam@example.com (Anton Andreev) — Thu, 16 Apr 2009 09:47:10 +0300

F# is a functional language being developed by Microsoft Research.

Summary
In this article you will learn how to pass parameters and retrieve results from a F# library. Although F# can be used to program everything in my humble opinion it should be used in areas where it will make the code more robust, more easier to understand or support, but it should not be used for ordinary tasks where today imperative languages do their job just fine. In other words we should use both of them. F# and C# may both be .NET using the Common Type System, but communication between them might not be that straight forward, at least not in the beginning. In this demos we will be using the Task Parallel Library which is another cool library that optimizes you code running on multi-core machines. TPL is available for all .NET languages and in this demo we using the TPL CTP June 2008. The three demos do the same thing, they only differ in input and output parameters usage. The F# code resides in a separate project as a F# library. The purpose of the F# code is to download web pages.

Credits:
Credit goes to this polyglot article, the website stackoverflow.com and what I've learned thanks to the F# community.

You can browse/download the code from http://code.google.com/p/fsharpdemos/source/browse/#svn/trunk. The version of F# used is 1.9.6.2.

The three F# demos start with:

#light
open System.IO
open System.Net
open Microsoft.FSharp.Control.CommonExtensions
open System.Threading
open System.Threading.Tasks;
open System.Threading.Collections
open System

Sample 1

let download (urls:string list) =
seq { use results = new BlockingCollection<(string string)>()
use pagesRemain = new CountdownEvent(1)
let = Task.Create(fun ->
urls |> List.iter(fun url ->
let wc = new WebClient()
wc.DownloadStringCompleted.Add(fun args ->
if args.Error = null then
results.Add(((args.UserState :?> string), args.Result))
if pagesRemain.Decrement() then
results.CompleteAdding()
)

pagesRemain.Increment()
wc.DownloadStringAsync(new Uri(url), url)
)

if pagesRemain.Decrement() then results.CompleteAdding()
)

for result in results.GetConsumingEnumerable() do yield result
}

The problem here is that the input parameter is a F# list which quite different from the C# List. This means that:
- you need to include the FSharp.Core assembly in your C# application
- build that F# list and pass it

string[] scores = { "http://osnews.com", "http://cnn.com"};

//We create an empty list and move backwards because we are adding values before what we've just added and this way we keep the C# value order.
var fs_scores = Microsoft.FSharp.Collections.List<string>.get_uniq_Empty();
for (int i = scores.Length - 1; i >= 0; i--)
{
// In functional programming lists are build from tuples as each tuple links to the next.
// Cons(scores[i], fs_scores) means that we attach the next C# element to the previously created list
// The first time the list had one tuple that has the last value of the C# array and links to empty list
// which acts as a sentinel.
fs_scores = Microsoft.FSharp.Collections.List<string>.Cons(scores[i], fs_scores);
}

//The result also comes in the form of tuples:
foreach (Microsoft.FSharp.Core.Tuple<string, string> pair in InteroperabilityDemo1.download(fs_scores))
{
Console.WriteLine(pair.Item2);
}

Sample 2
Here we replace the input F# list with type easily recognized by C#

let download (array : ResizeArray<string>) =
seq { use results = new BlockingCollection<(string string)>()
use pagesRemain = new CountdownEvent(1)

let urls = List.of_seq(array)

let = Task.Create(fun ->
urls |> List.iter(fun url ->
let wc = new WebClient()
wc.DownloadStringCompleted.Add(fun args ->
if args.Error = null then
results.Add(((args.UserState :?> string), args.Result))
if pagesRemain.Decrement() then
results.CompleteAdding()
)

pagesRemain.Increment()
wc.DownloadStringAsync(new Uri(url), url)
)

if pagesRemain.Decrement() then results.CompleteAdding()
)

for result in results.GetConsumingEnumerable() do yield result
}

The calling code from C# is:

string[] scores = { "http://osnews.com", "http://cnn.com"};

foreach (Microsoft.FSharp.Core.Tuple<string, string> pair in InteroperabilityDemo2.download(scores.ToList<string>()))
{
Console.WriteLine(pair.Item2);
}

The code here definitely shorter, but unfortunately still use the FSharp.Core for the tuples in the output.

Sample 3
Here we add an additional structure "dotnetresult" to make sure the result is recognized with no problems in C#.

let download (arr : ResizeArray<string>) =
use results = new BlockingCollection<(string * string)>()
use pagesRemain = new CountdownEvent(1)
let dotnetresult = new System.Collections.Generic.Dictionary<string,string>()
let urls = List.of_seq(arr)

let = Task.Create(fun ->
urls |> List.iter(fun url ->
let wc = new WebClient()
wc.DownloadStringCompleted.Add(fun args ->
if args.Error = null then
results.Add(((args.UserState :?> string), args.Result))
if pagesRemain.Decrement() then
results.CompleteAdding()
)

pagesRemain.Increment()
wc.DownloadStringAsync(new Uri(url), url)
)

if pagesRemain.Decrement() then results.CompleteAdding()
)

//(fst result) returns the url and (snd result) returns the html
for result in results.GetConsumingEnumerable() do dotnetresult.Add((fst result), (snd result))

dotnetresult

An the calling C# code:

string[] scores = { "http://osnews.com", "http://cnn.com"};

Dictionary<string, string> bc = InteroperabilityDemo3.download(scores.ToList<string>());
foreach (string key in bc.Keys)
{
Console.WriteLine(bc[key]);
}

Now we do not need FSharp.Core and no one should guess in what language our F# library has been written.

Update:
Developing standard .NET libraries in F# webcast by Tomas Petricek

Microsoft Cloud Techology: Azure

nospam@example.com (Anton Andreev) — Tue, 28 Oct 2008 14:15:28 +0200

Microsoft Windows Azure
It is a cloud technology that comes with integration with Visual Studio.

The main advantage to me is scalability and the fact that charging is based on what you really consume.
By scalability I mean that your application will be able to access more resources either by you requesting more or even dynamically when there is a peek in visitors on your web site. That is petty cool, cause you do need to upgrade your hardware just because your visitors double every Monday when you have promotions, but the rest of the week you have less visitors.

As expect that MS will charge per CPU, HDD and bandwidth usage. This gives you the relief that if you have no visitors this month and you have not generated much income then you will pay less expenditures.

Keep an eye on Windows Azure progress!

Visual Studio on Linux or Mac

nospam@example.com (Anton Andreev) — Thu, 08 May 2008 18:27:01 +0300

SeamlessRDP allows an individual application on Windows XP to be run in an X11 window via rdesktop.

You still need a Windows instance which can be a remote machine or a virtual machine on the same machine as your Mac or Linux. It is something like VMWare fusion, but it is not only for Mac.

It works, I have tested it myself on a Linux machine!

Microsoft Days 2008

nospam@example.com (Anton Andreev) — Mon, 28 Apr 2008 23:57:13 +0300

Малко ми е трудно да пиша при условие, че съм говорил лично с шефа на маркетинга на Microsoft Bulgaria и споменаха, че получават редовно бюлетин за всичко публикувано на тема Microsoft в пресата и Интернет :), което е нормално (искат да имат реален поглед към отношението към Microsoft)

На такива представяния не трябва да се ходи на нещата, които може и сам да си прочетеш, а на нещата които не би седнал сам да разглеждаш. Беше крайно време да се запозная с някои продукти на Microsoft (било то и малко насила). Ако си developer трябва да погледнеш и от другата страна на нещата. Съществува позиция, която е sales и deployment: подробно познаване на продукта и неговото внедряване. Мисля, че подобна позиция е също една от перспективите към която трябва да се стремя.

По принцип на такива събития отговарям на въпроси и вземам много подаръци и затова се бяхме приготвили: казах на Динко вземе чувалите и да опразни колата, но за съжаление този път нямаше подаръци при отговор на въпроси.

С цел да разуча новите неща създадох нова моя мрежа в мрежата на Верео от моята работна станция и две виртуални машини. Сега вече администраторите ще ме молят аз да ги включа в моя domain. Да не говорим за няколкото Солариса

SCOM - System Center Operations Manager
SCOM e сърварен софтуер (последната налична версия работи само на Windows Server 2003 R2) чрез който може да следите останалите сървъри и компютри в мрежата. Има си агент, който се инсталира на всяка машина. Изисква SQL Server 2005 SP1 и машината да е част от domain. Инсталирах го, разцъках го. Не разбрах само как да кажа да следи даден Sql Server?

Лекцията на Мартин Кулов Debugging and Crash Dump ми се стори доста практична.

Интерс проявих и към Microsoft Deployment, Microsoft Performance Point Server, Visto, Excel Services, Microsoft Dynamics CRM

Мацките, яденето и пиенето бяха на ниво.

Участието ни беше финансирано от Верео.

Porting from Microsoft .NET to Novell Mono

nospam@example.com (Anton Andreev) — Tue, 12 Feb 2008 20:19:58 +0200

Damn ... without a debugger we needed to use the old fashion way with printing messages when entering a method, leaving a method or simply checking the value of a variable. We could use a .NET logger, but we did not. Our database is Sql Server and we used the provided VMWare image with preconfigured Mono runtime, compiler and tools from the Mono's website. Version of Mono is 1.2.6. I was the only one who had experience with Mono before. And when they came to me to ask whether it could be done, I said "True, I am your guy!".

Bug in the Mono Sql Server provider. Store procedures parameters are case-sensitive, this is not the expected behavior as the MS Sql Server provider parameters are NOT case-sensitive.

The second bug is with nvarchar parameters. We observed that when we execute the problematic store procedure with empty strings instead of dbnull we have the same error. Seems like that when you set the parameters to dbnull explicitly, the Mono Sql Server provider sends empty strings instead. This of course affects the store procedure logic which expects dbnull. We added the following code to all problematic store procedures:

IF @CLName = ''
BEGIN
SET @CLName = NULL
END

That is what we discovered, I did report the bug and I hope someone will check what the problem really is.

You also needed an explicit "Array" cast when using AddRange method:

command.Parameters.AddRange((Array)commandParameters);

or you will probably end up with null reference exception leaving you with no hint where it came from.
Also you have use Convert.ToInt32 instead of (int) cast or casting with the as operator which is indeed the right way to code no matter which runtime you use.

We had some exceptions that made us set the size property of some of our SQL Server store procedure character parameters in our C# code to some value (e.x. 1000)

Also we had problem with output parameter. Seems like it is not recommended to return anything longer that 8000/4000 characters length with an output parameter. Actually this makes sense. The exception informed us about some deprecated features related to output parameters.

Linux specific issues:

We had problems with generics in Monodevelop. The problem was that somehow when we created our project the runtime was set to .NET 1.1 and not 2.0, which was pretty surprising.

You have most chances of starting XSP2 properly from the command line by going to the root folder and simply typing "XSP2". When using Monodevelop use to stop button to stop the XSP2 process or you may end with a bunch XSP2 running processes that you need to kill.

If you feel that you have problems with filesystem permissions, create an empty Monodevelop Web project. Then copy all your source code in the directory that Monodevelop had created and call XSP2 from there.

Save all your source files to UTF-8 and then use:

After all we made it worked! I think it has something to do with fact that we were good ... Next is porting the database to Postgresql, oh... Lord, save us! Postgresql is my favorite database but I just do not think that conversion will be that easy ...

Our native language is Bulgarian. We set the Postgresql database encoding to 1251 and not UTF8. We had to add encoding=UNICODE; in the Postgresql connection string to make it work correct with Mono which did not make any sense to me.

You can also read my Postgresql post

Php и .NET

nospam@example.com (Anton Andreev) — Tue, 17 Apr 2007 10:40:46 +0300

Подкарах Php под .NET. Използвах Phalanger. Пуснах популярният форум Phpbb под .NET, IIS и Mysql, без PHP и Apache да инсталирам. Ето тук е описано как става номерът. По лесно ми се струва от подкарване на Apache и Php. Update: Подкарах го и с Postgresql, но има проблем с кирилицата.

Разни полезни неща (за .NET предимно)

nospam@example.com (Anton Andreev) — Wed, 17 Jan 2007 12:41:05 +0200

Laser Gesture Recognition Движиш лазер по стената (или накъдето е насочена web камера) и разпознава посоката на движенеито. Може да оправляваш media player с лазер. Ако някой намери от ония лазерни джаджи(дет си играехме едно време) - да купува и да ми носи .

Virtual keyboard Ако нямаш кирилизатор или за мобилни устройства.
LINQ .NET query език(Linq ще го има и в Mono), Linq install hacks
Ето пример:

using System;
using System.Query;
using System.Collections.Generic;

class App
{
static void Main() {
String[] names = {“Burke”, “Connor”, “Frank”, “Everett”, “Albert”, “George”, “Harris”, David” };
IEnumerable<string> expr = from s in names
where s.Length == 5
orderby s
select s.ToUpper();
foreach (string item in expr)
{
Console.WriteLine(item);
}
}
}

Blinq - генерира сайтове от база данни.

Код за .NET форумче
Google suggest dictionary

F#

nospam@example.com (Anton Andreev) — Fri, 15 Sep 2006 14:50:36 +0300

F# изглежда като език който се опитва да прибави елементи на функционалното програмиране. Звучи ми добре. Може да се инсталира към VS2005 и да работи без проблеми. Има си code-complete.

Динамични езици за .NET

nospam@example.com (Anton Andreev) — Sun, 13 Aug 2006 19:44:08 +0300

Phalanger e PHP за .NET. Освен това има Ruby.NET и IronPyton.

.NET 2.0

nospam@example.com (Anton Andreev) — Fri, 21 Apr 2006 21:08:43 +0300

Започнах на новата работа в ЕОА(Elements of Art). Ние сме клон на германска фирма. Само 3-ма сме, но си има предимства . Колегите са свестни, само дето са пушачи, аз им казах, че тях ще ги убия последни като почна да избивам всички пушачи на света ... Разучавам ASP.NET 2.0 и има доста нови неща. Има така наречените webparts. Това са контроли, които потребителя може динамично да драгва и слага на собствената си страница. Тоест ти може да правиш такива контроли като наследиш UserControl и IWebPart.

Аз направих такъв контрол, който се обновява без postback и ти показва като получиш поща. Много добре се получи. Microsoft-ската имплементация на AJAX не става ... AJAX .NET е доста по-добре. Само него ще ползвам. Има май възможност за слушане за събития от сървъра (то не е точно така на практика). Трябва да пусна mail client-a някъде хората да му се радват .

Според мен трябва човек да си има сайт,който да е като online desktop, който да е достъпен навсякъде където отидеш. Да ти показва информацията от която обикновенно имаш нужда - поща, новини. Да може да си оставяш бележки от всякакъв род и да има търсене в тях, още organaizer и др.

Интересни библиотеки за .NET

nospam@example.com (Anton Andreev) — Fri, 30 Dec 2005 13:12:26 +0200

Конзолен(console) интерфейс за DOS, както в доброто старо време
http://www.codeproject.com/useritems/FFCA.asp

Порт на Ethereal за .NET:
http://www.codeproject.com/csharp/pacanal.asp

Книгата

nospam@example.com (Anton Andreev) — Thu, 15 Dec 2005 16:06:22 +0200

Ето снимки от книгата за .NET. Това е сайта на самата книга. Добре беше, видях ме се всички най-после. Надявам се да участвам и в други проекти с повечето хора.

.NET изпита за първи проект

nospam@example.com (Anton Andreev) — Sun, 11 Dec 2005 21:45:43 +0200

Днес изпитвахме на .NET курса. Имаше проблем с базите данни, аз лично бях напълно наясно, че ще стане така и давах предупредителни сигнали на останалите. Трябват скриптове за базите данни, това е най-сигурният начин. Имаше малко проблеми с компютрите и тока, но аз оправях всчико. Относно колегите гледах да вида дали са си писали сами проектите, дали се ориентират в кода, питах кое как са направили. Гледах им кода, само отвън според мен не може да се прецени. Казваш им ако има по-лесен начин и намаляваш малко. Аз под 33 точки не съм писал. Предполагам следващият път ще бъдем още по-стриктни или поне аз. Рекламирах и търсачката си ... дано тези колеги кажат на други, други и дано стане все по-посещаема.
Имаше дежурен админ и той помагаше. Sho не беше там, а може би трябваше , той е администратор и освен това базите данни са му "профила". Можеше да помогне ... аз вече се опитвам да имам минимални взаимотношения с него ... просто не мога.