Last active
May 1, 2023 19:09
-
-
Save JeremyGrosser/5885a65c2134c52368a4ed6155e2cc9c to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment