Fortran.io

An MVC web stack written in Fortran 90 (so you get arrays, and it's not punchcards)

Major credit due to:

authors of FLIBS (Arjen Markus and Michael Baudin)
Ricolindo Carino and Arjen Markus's Fortran FastCGI program and tutorial - in many ways this started as an update to this tutorial : http://flibs.sourceforge.net/fortran-fastcgi-nginx.html
String utils by George Benthian http://www.gbenthien.net/strings/index.html

Create an Ubuntu server

sudo apt-get update
sudo apt-get upgrade -y

sudo apt-get install nginx gfortran spawn-fcgi git libfcgi-dev sqlite3

Go to your IP address - you should see the "Welcome to nginx!" page

# create the user and home directory
useradd fortran
passwd fortran
# set password
mkdir /home/fortran
cd /home/fortran

# clone the repo
git clone https://github.com/mapmeld/fortran-machine.git

Change the location in /etc/nginx/sites-available/default :

server_name 101.101.101.101; <- your IP address

location / {
    root /home/fortran/fortran-machine;
    index index.html;
}

Restart nginx to make these settings for real:

sudo service nginx restart

You should now see the test page on your IP address.

Test doc

Use Fortran CGI script

Let's go from test page to Fortran script:

# enter the directory
cd fortran-machine

# compile the modules with your version of Fortran
gfortran -c flibs-0.9/flibs/src/cgi/cgi_protocol.f90
gfortran -c flibs-0.9/flibs/src/cgi/fcgi_protocol.f90
gfortran -c flibs-0.9/flibs/src/sqlite/fsqlite.f90
gfortran -c string_helpers.f90
gfortran -c jade.f90
gfortran -c marsupial.f90

# find your sqlite
find / -name 'libsqlite3.a'
> /usr/lib/x86_64-linux-gnu/libsqlite3.a
# copy sqlite to local directory
cp /usr/lib/x86_64-linux-gnu/libsqlite3.a ./

# compile the test server
gfortran -o fortran_fcgi fortran_fcgi.F90 marsupial.f90 jade.o string_helpers.o fsqlite.o csqlite.o libsqlite3.a cgi_protocol.o fcgi_protocol.o -ldl -lfcgi -pthread -Wl,--rpath -Wl,/usr/local/lib

Now change nginx config /etc/nginx/sites-available/default

location / {
    root /home/fortran/fortran-machine;
    fastcgi_pass 127.0.0.1:9000;
    fastcgi_index index.html;
    include fastcgi_params;
}

Then run sudo service nginx restart

# spawn the server
spawn-fcgi -a 127.0.0.1 -p 9000 ./fortran_fcgi

Restarting the script

After changing the source code, you can recompile and restart your server with:

ps aux | grep fcgi
# returns process ID of running server, if it's running

kill -9 _process_id_of_running_server

# recompile
gfortran -o fortran_fcgi fortran_fcgi.F90 marsupial.f90 jade.o string_helpers.o fsqlite.o csqlite.o libsqlite3.a cgi_protocol.o fcgi_protocol.o -ldl -lfcgi -pthread -Wl,--rpath -Wl,/usr/local/lib

# respawn fcgi
spawn-fcgi -a 127.0.0.1 -p 9000 ./fortran_fcgi

Add a static folder

Add to nginx config /etc/nginx/sites-available/default

location /static {
    root /home/fortran/fortran-machine;
}

And restart nginx

sudo service nginx restart

Fortran controller

The controller is written in Fortran in the fortran_fcgi.f90 file:

case ('/')
    ! most pages look like this
    templatefile = 'template/index.jade'
    call jadefile(templatefile, unitNo)

case ('/search')
    write(unitNo,AFORMAT) '<div class="container">'

    templatefile = 'template/search.jade'
    call jadefile(templatefile, unitNo)

    write(unitNo,AFORMAT) '</div>'

Jade Templates

In the template folder, you can write HTML templates similar to Jade or HAML.

If you want to have a loop or other structure, it's better to create a partial and run the loop in the Fortran controller.

.container
  .col-sm-6
    h3 Hello #{name}!
  .col-sm-6
    h3 Link
    a(href="http://example.com/profile/#{id}") A link

SQLite Database

You can connect to a SQLite database. The example on Fortran.io lets you search through marsupials!

Here's how the getAllMarsupials subroutine loads data into arrays:

subroutine getAllMarsupials(name, latinName, wikiLink, description)
    ! columns
    character(len=50), dimension(8) :: name, latinName, wikiLink, description

    call sqlite3_open('marsupials.sqlite3', db)

    allocate( column(4) )
    call sqlite3_column_query( column(1), 'name', SQLITE_CHAR )
    call sqlite3_column_query( column(2), 'latinName', SQLITE_CHAR )
    call sqlite3_column_query( column(3), 'wikiLink', SQLITE_CHAR )
    call sqlite3_column_query( column(4), 'description', SQLITE_CHAR )

    call sqlite3_prepare_select( db, 'marsupials', column, stmt, "WHERE 1=1 LIMIT 8")

    i = 1
    do
        call sqlite3_next_row(stmt, column, finished)
        if (finished) exit

        call sqlite3_get_column(column(1), name(i))
        call sqlite3_get_column(column(2), latinName(i))
        call sqlite3_get_column(column(3), wikiLink(i))
        call sqlite3_get_column(column(4), description(i))
        i = i + 1
    end do
endsubroutine

Then in the Fortran controller, you loop through:

call getAllMarsupials(names, latinNames, wikiLinks, descriptions)

i = 1
do
    pagevars(1,2) = names(i)
    pagevars(2,2) = latinNames(i)
    pagevars(3,2) = wikiLinks(i)
    pagevars(4,2) = descriptions(i)
    if (len(trim(pagevars(1,2))) == 0 .or. i == 5) then
        exit
    else
        ! template with string
        templatefile = 'template/result.jade'
        call jadetemplate(templatefile, unitNo, pagevars)
        i = i + 1
    endif
enddo

Then the individual result template:

.row
  .col-sm-12
    h4
      a(href="https://en.wikipedia.org#{wikiLink}") #{name}
    em #{latinName}
    hr
    p #{description}

HTTPS Certificate

Don't forget to get a free HTTPS Certificate using LetsEncrypt!

https://www.digitalocean.com/community/tutorials/how-to-secure-nginx-with-let-s-encrypt-on-ubuntu-14-04

License

This library, like FLIBS which it's based on, is available under the BSD license