Makefile of resource shared among distributed process

Sometimes you need to start a batch process from several machines. One possible scenario may have a common resource, such as a library, that need to be built, and is placed in a common directory. If no care is taken, all process may start to build and write at the same file, causing corruption.

For such scenarios, a special Makefile need to handle multiple access to the resource. The target employs lockfile command to create a lock variable and prevent other process to start the compilation. Once the lock is acquired, the makefile calls itself recursively, now with a flag (called PROTECTED) set. The rule will be checked again, but now it will actually build the library or file, if it not updated.

If it was updated, it won't compile again. This happen when a process check the file need to be built, but other process already get the lock. Once the lock is released, it won't need to build the process again.

The sample Makefile showed bellow try to build the out out_file from the source_file (what a lack of creativity!).

# This makefile that generate one resouce in paralellal mode.
# the out_file is the target. First, the makefile verify if it
# is running protected, by consulting a PROTECTED variable.
# If not, it will create a lock file, and call itself with
# protected flag on, once it aquired the lock. As it call the 
# Makefile again, the rule will be checked if the resource 
# has already been created. So, the shared resource between
# process running the makefile will only be created once!
#
MAKEFILE=./Makefile

ifeq ($(PROTECTED),YES)
else
all: out_file
 @echo "Makefile $(MAKE_NUM) done!"
endif


out_file: source_file
ifeq ($(PROTECTED),YES)
 @echo "Creating out_file"
 @rm -f out_file
 @sleep 3
 @touch out_file
else
 @lockfile make.lock
 @echo "Enter Critical Section"
 @$(MAKE) -f $(MAKEFILE)  PROTECTED=YES 
 @echo "Leave Critical Section"
 @rm -f make.lock
endif

Perl and Unicode

#!/usr/bin/env perl
#
use strict;
use charnames ':full';
use utf8;

# First, let's print the source code.
open THIS, $0;
print $_ while (<THIS>);

# Get the vector elements sum. We use the Sigma greek letter.
sub Σ
{
    my ($accum) = shift;
    
    foreach(@_)
    {
      $accum += $_;  
    }
    return $accum;
}

# My Day is done!
# But Gauss would do it better!
# We can see that perl allows any
# Alphabet caracter to be used, but any symbol
# is reserverd. This is the case of integral symbols
# ∫, ∬, ∭, ∮, ∯, ∰, ∳, ∲. and even the Summantion sign ∑
# Note that this is not the greek sigma letter. Perl is smart, hum?

my @Ϯ = 1 .. 100; 
my $ΔU = Σ @Ϯ;  # Σ is not ∑. (Sigma and summantion sign).

print "The Summation from one to a handred is $ΔU.\n";

# Energy Funcion Ψ. 
# It goes from ± a radius around
# the center.
sub Ψ
{
    my ($α,$β,$γ) = @_[0..2];
    return  $α**2 + $β**2 + $γ**2;
}



# My runic letter Gar
my $ᚸ = Ψ(2.3, 234.0, 23.4);

# Listing day in Japanese, from Sunday to Saturday
my @Ա = qw/㈰ ㈪ ㈫ ㈬ ㈭ ㈮ ㈯/;

# A dictionary.
my %Ծ = 
(
    "㈰" => ["Sun", "Sunday"],
    "㈪"  => ["Moon", "Monday"],
    "㈫ " => ["Fire", "Tuesday"],
    "㈬"  => ["Water", "Wednesday"],
    "㈭"  => ["Wood", "Thursday"],
    "㈮"  => ["Metal", "Friday"],
    "㈯"  => ["Earth", "Saturday"],
);


# Now, lets print the sign for Astrological sign.

my $signs = join ", ", map { chr(ord("♈") + $_ - 1) } 1..12;

print "This is a list with the signs $signs.\n";

foreach my $Ʃ (@Ա)
{
    print "$Ʃ is the Japanese symbol for $Ծ{$Ʃ}->[0] element, also  $Ծ{$Ʃ}->[1] week\'s day.\n";
}