Re: How to run a GNAT program without starting a terminal session

[Jerry <list_email@icloud.com>]

On Monday, July 16, 2018 at 6:20:50 PM UTC-7, Jerry wrote:
> How can I get Ada (GNAT) to run a program that has no text I/O without launching a terminal session? Specifically, on macOS, I have the following program. When I double-click it, it runs but first it opens Terminal.app and starts a session. I played with calling it from Applescript but without success. Can I make a bash file that doesn't start a terminal session?
> 
> 
> with Ada.Calendar; use Ada.Calendar;
> with Common; -- Contains "Beep".
> 
> procedure Run is
> begin
>     Delay 4.0;
>     Common.Beep(1);
> end Run;
> 
> 
> Jerry

It looks like there is no easy answer to the original question, how to run a GNAT program without a terminal, but here is a solution to my immediate problem with some do-dads added. Sorry, it's not Ada. It's Applescript. The Applescript compiler bundles this up nicely as a double-clickable application bundle and does what I want. (The dialog box at the end is a little gratuitous.) afplay plays any audio file.


delay 30
do shell script "afplay '/System/Library/Sounds/Frog.aiff'"
delay 15
do shell script "afplay '/System/Library/Sounds/Ping.aiff'"
delay 13
beep
delay 1
beep
delay 1
beep
say "Stop running Jerry" volume 0.5
display dialog "Stop running!" buttons {"OK"} default button 1


What is this piece of silliness? For some time I have taken seriously the claim that sitting for long periods of time is unhealthy, and consequently I set my computer to announce the time every half hour at which time I am *supposed* to get up and run in place for one minute. I believe that this is a simple version of interval training and can actually cause me to lose a little weight. The problem is that I have to watch an analog on-screen clock to see when to stop and this does not always have a background that makes the clock easy to see, plus I have to stick next to the computer. Using a utility, I launch this program with a simple key combination.

Jerry