Skip to main content

ocaml list directory


Goals

The goal with this very simple script is to list a directory and find who is a directory, who is a file.
The secondary goal (for me) is to run it as a script. I dont want to compile it but just run it as I would run bash, Perl or PHP script.

The code

This is how I do it :
#!/usr/bin/ocamlrun /usr/bin/ocaml

#load "unix.cma";;
print_string "Loaded Unix\n";;

let tmp_dir = Unix.opendir "/tmp";;
print_string "opened /tmp\n";;

(* let tmp_dir_files = Unix.readdir tmp_dir;; *)


let print_type a_thing =
  match Sys.is_directory ("/tmp/" ^ a_thing) with
    | true -> print_string ("Dir:\t"   ^  a_thing ^ "/\n")
    | false -> print_string ("File:\t" ^  a_thing ^ "\n");;

print_type (Unix.readdir tmp_dir);;
print_type (Unix.readdir tmp_dir);;
print_type (Unix.readdir tmp_dir);;
print_type (Unix.readdir tmp_dir);;
print_type (Unix.readdir tmp_dir);;
print_type (Unix.readdir tmp_dir);;
print_type (Unix.readdir tmp_dir);;
print_type (Unix.readdir tmp_dir);;

print_string "Listed files in  /tmp\n";;



Labels:

Popular posts from this blog

npm run build base-href

Using NPM to specify base-href When building an Angular application, people usually use "ng" and pass arguments to that invocation. Typically, when wanting to hard code "base-href" in "index.html", one will issue: ng build --base-href='https://ngx.rktmb.org/foo' I used to build my angular apps through Bamboo or Jenkins and they have a "npm" plugin. I got the habit to build the application with "npm run build" before deploying it. But the development team once asked me to set the "--base-href='https://ngx.rktmb.org/foo'" parameter. npm run build --base-href='https://ngx.rktmb.org/foo did not set the base href in indext.html After looking for a while, I found https://github.com/angular/angular-cli/issues/13560 where it says: You need to use −− to pass arguments to npm scripts. This did the job! The command to issue is then: npm run build -- --base-href='https://ngx.rktmb.org/foo&
Read more

Jenkins invalid privatekey

Publish over SSH, Message "invalid privatekey:" With quite recent (June-July 2020) installations of Jenkins and OpenSSH, I have the following error message when using the "Deploy overs SSH" Jenkins plug-in and publishing artifacts to the target overs SSH: jenkins.plugins.publish_over.BapPublisherException: Failed to add SSH key. Message [invalid privatekey: [B@d8d395a] This problem seems to be referenced here: https://issues.jenkins-ci.org/browse/JENKINS-57495 Just regenerate a key with the right parameters To solve it: ssh-keygen -t rsa -b 4096 Or ssh-keygen -t rsa -b 4096 -m PEM
Read more

Emacs Pulumi LSP

Install Pulumi Emacs Mode The source code is on https://github.com/pulumi/pulumi-lsp. At the very bottom of the page are the instructions on how to install. You Need to have make installed. $ make install emacs-client mkdir -p ./bin go build -ldflags "-X github.com/pulumi/pulumi-lsp/sdk/version.Version=v0.2.3-6-gec49054" -o ./bin -p 10 ./cmd/... go: downloading github.com/pulumi/pulumi/sdk/v3 v3.53.1 ... ... ... go install -ldflags "-X github.com/pulumi/pulumi-lsp/sdk/version.Version=v0.2.3-6-gec49054" ./cmd/... mkdir -p editors/emacs/bin cd editors/emacs && emacs -Q --batch --eval "(progn (setq package-user-dir \"$(pwd)/bin\" \ package-archives '((\"melpa\" . \"https://melpa.org/packages/\") \
Read more