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";;



Comments

Popular posts from this blog

dockerfile multiline to file

Outputing a multiline string from Dockerfile
I motsly use a Dockerfile by sourcing from a base ditribution: CentOS or Debian.
But I also have a local mirror and would like to use it for packages installation.

Espacially on CentOS it is about many lines to write to the /etc/yum.repos.d/CentOS-Base.repo file.

Easiest way: one RUN per line The first method that comes in mind is to issue one RUN per line to write.
Here you are:

RUN echo "[base] " > /etc/yum.repos.d/CentOS-Base.repo RUN echo "name=CentOS-$releasever - Base " >> /etc/yum.repos.d/CentOS-Base.repo RUN echo "baseurl=ftp://packages-infra.mg.rktmb.org/pub/centos/7/base-reposync-7 " >> /etc/yum.repos.d/CentOS-Base.repo RUN echo "gpgcheck=0 " >>…

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'

Jira workflow for new projects

Associated workflow creation I'm a Jira Cloud user and begining from some version 6, I noticed that when I create a project, it automatically creates a Workflow and Issue Scheme that is prepended by the project key and which is a copy of the default scheme.
I always had to make a cleanup after creating a project. Default workflow for new projects I also miss a feature that would allow me to make a custom workflow (and globally custom project setting) the default for new projects I create.
Solution: Create with shared configuration While searching, I noticed that with Jira Cloud which is version 7.1.0 at the time I write, there is a link at the bottom of the "Create project" wizard:
"Create with shared configuration" will allow me to select the project I want the new one to share configuration with.

The new created project will use the same configuration as the project I selectThere will be no creation of Workflow and Issue Scheme that I need to cleanup

This fea…