From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <lisp-hacker@yandex.ru>
X-Original-To: caml-list@sympa.inria.fr
Delivered-To: caml-list@sympa.inria.fr
Received: from mail4-relais-sop.national.inria.fr (mail4-relais-sop.national.inria.fr [192.134.164.105])
	by sympa.inria.fr (Postfix) with ESMTPS id 293887ED34
	for <caml-list@sympa.inria.fr>; Tue,  3 Jul 2012 11:25:37 +0200 (CEST)
Received-SPF: None (mail4-smtp-sop.national.inria.fr: no sender
  authenticity information available from domain of
  ivg@ieee.org) identity=pra; client-ip=77.88.46.7;
  receiver=mail4-smtp-sop.national.inria.fr;
  envelope-from="lisp-hacker@yandex.ru";
  x-sender="ivg@ieee.org"; x-conformance=sidf_compatible
Received-SPF: Pass (mail4-smtp-sop.national.inria.fr: domain of
  lisp-hacker@yandex.ru designates 77.88.46.7 as permitted
  sender) identity=mailfrom; client-ip=77.88.46.7;
  receiver=mail4-smtp-sop.national.inria.fr;
  envelope-from="lisp-hacker@yandex.ru";
  x-sender="lisp-hacker@yandex.ru";
  x-conformance=sidf_compatible; x-record-type="v=spf1"
Received-SPF: None (mail4-smtp-sop.national.inria.fr: no sender
  authenticity information available from domain of
  postmaster@forward2.mail.yandex.net) identity=helo;
  client-ip=77.88.46.7;
  receiver=mail4-smtp-sop.national.inria.fr;
  envelope-from="lisp-hacker@yandex.ru";
  x-sender="postmaster@forward2.mail.yandex.net";
  x-conformance=sidf_compatible
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: An4CAOu48k9NWC4HlGdsb2JhbABFhVqxDiIBAQEBCQsJCRQDJIIZAQUEHAcLAUYQCQJGVwYTiA+oFAaTOIEeihqFBoEUA4hEhSKHT5Jn
X-IronPort-AV: E=Sophos;i="4.77,514,1336341600"; 
   d="scan'208";a="149466115"
Received: from forward2.mail.yandex.net ([77.88.46.7])
  by mail4-smtp-sop.national.inria.fr with ESMTP; 03 Jul 2012 11:25:35 +0200
Received: from web17d.yandex.ru (web17d.yandex.ru [77.88.47.162])
	by forward2.mail.yandex.net (Yandex) with ESMTP id 9C22E12A1736;
	Tue,  3 Jul 2012 13:25:34 +0400 (MSK)
Received: from 127.0.0.1 (localhost.localdomain [127.0.0.1])
	by web17d.yandex.ru (Yandex) with ESMTP id 2C9FC4DC0002;
	Tue,  3 Jul 2012 13:25:34 +0400 (MSK)
Received: from wimax-client.yota.ru (wimax-client.yota.ru [178.177.192.210]) by web17d.yandex.ru with HTTP;
	Tue, 03 Jul 2012 13:25:34 +0400
From: Ivan <ivg@ieee.org>
Envelope-From: lisp-hacker@yandex.ru
To: Fabrice Le Fessant <fabrice@lefessant.net>
Cc: Gabriel Scherer <gabriel.scherer@gmail.com>,
	Ivan <ivg@ieee.org>,
	=?utf-8?B?U3TDqXBoYW5lIEdsb25kdQ==?= <steph@glondu.net>,
	"\"caml-list@inria.fr\"" <caml-list@inria.fr>
In-Reply-To: <CAHvkLrM2bZyHr+AyM47qoBdBOLaCJFx_Ns-myact0=QsOFs5BQ@mail.gmail.com>
References: <271211341286221@web29f.yandex.ru>
	<4FF28EEA.7060009@glondu.net>
	<481061341303698@web18d.yandex.ru>
	<CAPFanBF-Y7o9fgTsi9BcJX0kVtmAcPwpb_zUVBqLDYa9VZDWTg@mail.gmail.com> <CAHvkLrM2bZyHr+AyM47qoBdBOLaCJFx_Ns-myact0=QsOFs5BQ@mail.gmail.com>
MIME-Version: 1.0
Message-Id: <544301341307534@web17d.yandex.ru>
Date: Tue, 03 Jul 2012 13:25:34 +0400
X-Mailer: Yamail [ http://yandex.ru ] 5.0
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset=koi8-r
Subject: Re: [Caml-list] howto: recursively iterate over filesystem



03.07.2012, 12:46, "Fabrice Le Fessant" <fabrice@lefessant.net>:
> let rec iter_dir f dirname =
> šššlet files = Sys.readdir dirname in
> šššArray.iter (fun file ->
> ššššššlet file = Filename.concat dirname file in
> šššššš(f file : unit);
> ššššššif Sys.is_directory file then iter_dir f file
> šš) files
>
> ?

Yes, this is exactly what I want. Thanks!

P.S. Didn't thought that it will be so simple.