gistfile1.txt

synack@polar ~/src/ravenscar_full_rp2040((HEAD detached at 4176e8f)) $ ls -al links/ | head -n 30
total 60
drwxr-xr-x  2 synack synack 53248 May  1 12:04 .
drwxr-xr-x 15 synack synack  4096 May  1 12:04 ..
lrwxrwxrwx  1 synack synack    15 May  1 12:04 ada.ads -> ../gnat/ada.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-assertions.adb -> ../gnat/a-assert.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-assertions.ads -> ../gnat/a-assert.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-calendar.adb -> ../gnat/a-calend.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-calendar.ads -> ../gnat/a-calend.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-calendar-control.adb -> ../gnat/a-calcon.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-calendar-control.ads -> ../gnat/a-calcon.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters.ads -> ../gnat/a-charac.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-conversions.adb -> ../gnat/a-chacon.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-conversions.ads -> ../gnat/a-chacon.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-handling.adb -> ../gnat/a-chahan.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-handling.ads -> ../gnat/a-chahan.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-latin_1.ads -> ../gnat/a-chlat1.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-latin_9.ads -> ../gnat/a-chlat9.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-wide_latin_1.ads -> ../gnat/a-cwila1.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-wide_latin_9.ads -> ../gnat/a-cwila9.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-wide_wide_latin_1.ads -> ../gnat/a-chzla1.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-characters-wide_wide_latin_9.ads -> ../gnat/a-chzla9.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers.ads -> ../gnat/a-contai.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_doubly_linked_lists.adb -> ../gnat/a-cbdlli.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_doubly_linked_lists.ads -> ../gnat/a-cbdlli.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_hashed_maps.adb -> ../gnat/a-cbhama.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_hashed_maps.ads -> ../gnat/a-cbhama.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_hashed_sets.adb -> ../gnat/a-cbhase.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_hashed_sets.ads -> ../gnat/a-cbhase.ads
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_holders.adb -> ../gnat/a-coboho.adb
lrwxrwxrwx  1 synack synack    20 May  1 12:04 ada-containers-bounded_holders.ads -> ../gnat/a-coboho.ads

link_packages.py

#!/usr/bin/python3
'''
Create symlinks to .ads and .adb files with expanded filenames.
'''
import os.path
import os
import sys

sources = ['gnat', 'gnarl']
links = 'links'

def package_name(path):
    with open(path, 'r') as fd:
        for line in fd.readlines():
            if line.startswith('package '):
                line = line.split(' ')[1:]
                if line[0] == 'body':
                    line = line[1:]
                return line[0].strip('\r\n\t $')

def basename(filename):
    return filename.split('.', 1)[0]

bases = {}

if not os.path.exists(links):
    os.makedirs(links)

for source in sources:
    for dirpath, dirnames, filenames in os.walk(source):
        for filename in filenames:
            filename = filename.strip('\r\n\t $')
            path = os.path.join(dirpath, filename)
            pn = package_name(path)
            if pn is not None:
                bases[basename(filename)] = pn

    for dirpath, dirnames, filenames in os.walk(source):
        for filename in filenames:
            filename = filename.strip('\r\n\t $')
            path = os.path.join(dirpath, filename)
            pn = bases.get(basename(filename), None)
            if pn is not None:
                newname = '%s.%s' % (pn.lower().replace('.', '-'), filename.rsplit('.', 1)[-1])
                newname = newname.strip('\r\n\t ')
                newname = os.path.join(links, newname)
                path = os.path.join('../', path)
                print('ln', '-s', path, newname)
                os.symlink(path, newname)