Well that looks pretty cool :-) Thanks for the update and explanation.
Dave
On Wed, May 03, 2017 at 05:35:49PM -0400, Louis LaBrunda wrote:
Hi Dave,
Thanks for checking this for me. Sorry it took me so long to get back to this. I had to set up a new Raspberry and Samba and Apache2 gave me a lot of trouble, not to mentions the Bash script.
I did know about Smalltalk>snapshot:andQuitWithExitCode: when I posted about Smalltalk>snapshot:andQuit:withExitCode:embedded:, I just wanted to point everyone to the method that did the work.
Big picture: I'm working on a Squeak/Seaside program that controls four relays. I gave my old Raspberry Pi (model 1) to a friend to open and close his garage doors. The Seaside parts displays a web page (login, relay page and settings) in any web browser. With a hole in his router, he can get to it from anywhere, even with his iPhone.
You may remember me asking about how to shutdown or reboot from within Squeak. I wanted to be able to reboot to clean up a problem or shutdown if you wanted to turn off the power without just pulling the plug while things were running. I had some timing problems with that and had to use a delay options in the shutdown call. The problem with that is that you couldn't wait less than a minute. There is a call that says it could wait n number of seconds but it waited n minutes. Looks like a bug to me. Anyway, waiting a minute was too long. Since I was already using a script to start pigpiod and Squeak, I decided to remove the shutdown/reboot calls from within my program and move them out to the Bash script. The final version of the script is below. I know Linux is free open source and I shouldn't complain about free stuff but what a mess of a scripting language. Too many ways to do the same thing. All too easily mixed together in ways that won't work.
This is the final script. It works and allows the user to exit the Squeak program and optionally shutdown or reboot. The script is automatically on boot.
#!/bin/bash sudo systemctl start pigpiod
squeak -vm-display-null /usr/share/RaspberryRelay/RasRelay.image RasRelay.St ret=$?
if [ $ret -eq 1 ]; then sudo reboot elif [ $ret -eq 2 ]; then sudo halt fi
On Fri, 28 Apr 2017 20:05:46 -0400, "David T. Lewis" lewis@mail.msen.com wrote:
Confirming: Yes it works with the latest Spur VM and Squeak trunk image.
From a console window, run Squeak in the foreground (no '&' at the end of the command):
$ spur64 my64BitImage
Then in the image, do e.g. "Smalltalk snapshot: false andQuitWithExitCode: 3" to quit without saving and return exit status 3.
After the image exits, test the exit status that was returned to the shell:
$ echo $? 3
Dave
On Fri, Apr 28, 2017 at 01:13:38PM -0400, Louis LaBrunda wrote:
Hi Guys,
Thanks for the reply's. I found:
snapshot: save andQuit: quit withExitCode: exitCode embedded: embeddedFlag
which looks like it will do what I want. I will give it a try and report back.
Lou
On Fri, 28 Apr 2017 18:43:59 +0200, Nicolas Cellier nicolas.cellier.aka.nice@gmail.com wrote:
2017-04-28 18:36 GMT+02:00 Nicolas Cellier < nicolas.cellier.aka.nice@gmail.com>:
2017-04-28 17:48 GMT+02:00 David T. Lewis lewis@mail.msen.com:
> Hi Squeakers, > > Is there a way to quit/exit Squeak with a return code that can be tested > in a .so file? >
I think I remember implementing this a long time ago in the Unix VM. I can't really look further right now but I'll check later and try to give a better answer.
IIRC, primitiveQuit can take an optional argument that is passed back to the shell script that in turn gives you an exit code that you can test. This probably is working right now in the interpreter VM (sorry I can't check it at the moment). I'm not sure if it's in Cog/Spur, but if not it can be easily added.
Dave
Answer is yes, if you browse the code on github, https://raw.githubusercontent.com/OpenSmalltalk/ opensmalltalk-vm/Cog/src/vm/cointerp.c then you will see this:
/* 113 */ primitiveQuit,
... snip...
/* InterpreterPrimitives>>#primitiveQuit */ static void primitiveQuit(void) { DECL_MAYBE_SQ_GLOBAL_STRUCT ioExitWithErrorCode((GIV(argumentCount) == 1 ? ((longAt(GIV(stackPointer))) >> 1) : 0)); }
So you can pass a SmallInteger to the primitive 113
Then to know what the platform will do with this error code, just query it thru github web iface:
https://github.com/OpenSmalltalk/opensmalltalk-vm/search?utf8=%E2%9C%93&... ioExitWithErrorCode&type=
Sorry, I wanted to post that all supported platforms would call
exit(errorCode), but I'm bad with web iface shortcuts...
<rant> The windows squeak spur VM/image fixture insist on having shortcuts thru ALT instead of CTRL which certainly DOES NOT HELP!!! </rant>
-- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon
-- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon