This commit is contained in:
Jarrod Sanders 2024-07-01 11:58:04 +07:00 committed by GitHub
commit 6664343a28
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
6 changed files with 81 additions and 0 deletions

19
packages/ada/2012/build.sh Executable file
View File

@ -0,0 +1,19 @@
#!/usr/bin/env bash
# Using the precompiled binary packages from https://github.com/annexi-strayline/gnat-packs
compname="gnat-10.3.0-base.tar.xz"
curl -L "https://gnat-packs.annexi-strayline.com/x86_64-linux-gnu/gnat-10.3.0-base.tar.xz" -o $compname
xz -cd $compname | sudo tar xP
#curl -L "https://storage.googleapis.com/dart-archive/channels/stable/release/2.12.1/sdk/dartsdk-linux-x64-release.zip" -o dart.zip
#
#unzip dart.zip
#rm dart.zip
#
#cp -r dart-sdk/* .
#rm -rf dart-sdk
#
#chmod -R +rx bin

30
packages/ada/2012/compile Normal file
View File

@ -0,0 +1,30 @@
#!/bin/bash
# split out all units in to their own files
gnatchop $@
# TODO try to compile more than just the hello unit
if [ -e "test.adb" ]
then
gnatmake "test.adb"
else
echo "It looks like you don't have a \"test\" unit"
fi
#case "${PISTON_LANGUAGE}" in
# ada)
# rename 's/$/\.cs/' "$@" # Add .cs extension
# csc -out:out *.cs
# ;;
# basic)
# rename 's/$/\.vb/' "$@" # Add .vb extension
# vbnc -out:out *.vb
# ;;
# *)
# echo "How did you get here? (${PISTON_LANGUAGE})"
# exit 1
# ;;
#esac

View File

@ -0,0 +1,7 @@
#!/usr/bin/env bash
# Put 'export' statements here for environment variables
#export PATH=$PWD/bin:$PATH
export PATH=/opt/gcc-fsf-gnat/bin:$PATH
export LD_LIBRARY_PATH=/opt/gcc-fsf-gnat/lib64:/opt/gcc-fsf-gnat/lib

View File

@ -0,0 +1,5 @@
{
"language": "ada",
"version": "2012",
"aliases": ["gnat"]
}

14
packages/ada/2012/run Normal file
View File

@ -0,0 +1,14 @@
#!/usr/bin/env bash
# Put instructions to run the runtime
#dart run "$@"
# assure there is only one unit in the given file
gnatchop "$1"
numSourceFiles=$(ls -1q *.adb | wc -l)
gnatmake "test.adb"

View File

@ -0,0 +1,6 @@
with Ada.Text_IO;
use Ada.Text_IO;
procedure Code is
begin
Put_Line ("OK");
end Code;