home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.uni-stuttgart.de/pub/systems/acorn/
/
Acorn.tar
/
Acorn
/
acornet
/
dev
/
hugs1.0.spk
/
Report
< prev
Wrap
Text File
|
1995-02-26
|
3KB
|
87 lines
************************************************************
* *
* Changes for Risc OS version *
* *
* Report to Mark Jones from *
* Gavin Wraith 14/02/95 *
* *
************************************************************
Many thanks for Hugs.
Just to report that Hugs compiled on my Acorn A5000 (Risc OS 3.1),
despite numerous warnings about dangling elses, etc, with only two
errors, which were dealt with by the first of the following:
# Changed first line of parser.c to
extern void *malloc(), *realloc();
to keep ANSI conformant compilers a bit happier.
# Changed done() in commonui.c to
Void done() { /* Goal has now been achieved */
if (useDots) {
while (maxPos>currPos++)
putchar('.');
putchar('\n');
aiming = FALSE;
}
else
#ifdef RISCOS
putchar(' ');
putchar('-');
putchar('>');
putchar(' ');
#else
for (; charCount>0; charCount--) {
putchar('\b');
putchar(' ');
putchar('\b');
}
#endif
fflush(stdout);
}
to avoid unpleasant |H representation of control code '\b' in taskwindows.
# Debugged builtin.c, changing primAsinFloat, primAcosFloat and
primExpFloat to the following:
primFun(primAsinFloat) { /* Float arc sin (trig) primitive */
eval(primArg(1));
if (whnfFloat>1 || whnfFloat <-1) cantReduce(); /* GCW 18/6/93 */
updateRoot(mkFloat(asin(whnfFloat)));
}
primFun(primAcosFloat) { /* Float arc cos (trig) primitive */
eval(primArg(1));
if (whnfFloat>1 || whnfFloat <-1) cantReduce(); /* GCW 18/6/93 */
updateRoot(mkFloat(acos(whnfFloat)));
}
primFun(primExpFloat) { /* Float exponential primitive */
eval(primArg(1));
if (whnfFloat > 88.02) cantReduce(); /* GCW 18/6/93 */
updateRoot(mkFloat(exp(whnfFloat)));
}
Hugs now runs with the desktop frontend that I devised for Gofer, so
that scripts and projects can be loaded by dragging their icons into
the Hugs window. I intend to upload it to the Acorn section of Hensa
and to a server at Stuttgart tomorrow.
Postscript
----------
1) In the first upload to Hensa and to Stuttgart I forgot to include
the Do utility, used in !Hugs.!Run.
2) Note that scripts such as hs.Ansi that use control codes will
not work with Hugs in a Risc OS taskwindow. Also, lhs.literate
has been modified to use h.<filename> rather than <filename>.h,
and so on. Otherwise, the scripts provided have not been altered
from the general distribution.