Is the webactions part of portable allegroserve supported under cmucl?
I keep getting:
the function ACL-COMPAT.EXCL::FILESYS-INODE is undefined.
Seems like this is only present in the mcl compability library...
Petter
--
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?
Petter Gustad <·············@gustad.com> writes:
> Is the webactions part of portable allegroserve supported under cmucl?
>
> I keep getting:
>
> the function ACL-COMPAT.EXCL::FILESYS-INODE is undefined.
Not too much to change in the source though ;)
It's part of the randomization of the random number generator.
--
Torkel Holm
Torkel Holm <······@ii.uib.no> writes:
> Petter Gustad <·············@gustad.com> writes:
>
> > Is the webactions part of portable allegroserve supported under cmucl?
> >
> > I keep getting:
> >
> > the function ACL-COMPAT.EXCL::FILESYS-INODE is undefined.
>
> Not too much to change in the source though ;)
> It's part of the randomization of the random number generator.
Of course it is. I was just looking at the source of the function (in
mcl). I assumed it had something to do with low level filesystem
access...
Petter
--
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?
Petter Gustad <·············@gustad.com> writes:
> Is the webactions part of portable allegroserve supported under cmucl?
>
> I keep getting:
>
> the function ACL-COMPAT.EXCL::FILESYS-INODE is undefined.
>
> Seems like this is only present in the mcl compability library...
I looked at webactions in CMUCL a while ago for a project I was
involved in. I used the following patch to acl-excl.lisp:
--- acl-excl.lisp.orig 2004-01-18 18:44:29.000000000 +0100
+++ acl-excl.lisp 2004-02-14 23:09:35.000000000 +0100
@@ -112,6 +112,19 @@
(defun filesys-write-date (stream)
(file-write-date stream))
+(defun filesys-inode (path)
+ (multiple-value-bind (success dev ino) (unix:unix-stat path)
+ (declare (ignore dev))
+ (if success
+ ino
+ 'nil)))
+
+(defun cl-internal-real-time ()
+ (multiple-value-bind (sec frac)
+ (truncate (/ (get-internal-real-time)
+ internal-time-units-per-second))
+ (values sec (* 1000 frac))))
+
(defun stream-input-fn (stream)
stream)
The project ended up using Perl/Mason instead, in part because
webactions support in CMUCL was rather unfinished and we didn't have
time to develop the framework as well as the application.
In consequence, I never actually got webactions up and running, but at
least I got rid of the warnings for those two functions. If I
remember correctly the definition for CL-INTERNAL-REAL-TIME is a bit
of an overkill for the use it sees in webactions, but it tries to be
consistent with the Allegro version in at least the first two values.
(Allegro returns four values, according to prompt.franz.com, but I
never did figure out the last two.)
I pushed this patch to the paserve project on sourceforge, but I don't
think it was picked up.
...Peder...
--
Cogito ergo panta rei.
·····@news.klingenberg.no (Peder O. Klingenberg) writes:
> Petter Gustad <·············@gustad.com> writes:
>
> > Is the webactions part of portable allegroserve supported under cmucl?
> >
> > I keep getting:
> >
> > the function ACL-COMPAT.EXCL::FILESYS-INODE is undefined.
> >
> > Seems like this is only present in the mcl compability library...
>
> I looked at webactions in CMUCL a while ago for a project I was
> involved in. I used the following patch to acl-excl.lisp:
>
> --- acl-excl.lisp.orig 2004-01-18 18:44:29.000000000 +0100
> +++ acl-excl.lisp 2004-02-14 23:09:35.000000000 +0100
> @@ -112,6 +112,19 @@
> (defun filesys-write-date (stream)
> (file-write-date stream))
>
> +(defun filesys-inode (path)
> + (multiple-value-bind (success dev ino) (unix:unix-stat path)
> + (declare (ignore dev))
> + (if success
> + ino
> + 'nil)))
> +
> +(defun cl-internal-real-time ()
> + (multiple-value-bind (sec frac)
> + (truncate (/ (get-internal-real-time)
> + internal-time-units-per-second))
> + (values sec (* 1000 frac))))
> +
> (defun stream-input-fn (stream)
> stream)
Both filesys-inode and cl-internal-real-time are now defined in
acl-compat/cmucl/acl-excl.lisp.
To the OP: it's generally better to use the cvs version of
paserve. webactions works right out of the box in cmucl.
Andras
······@math.bme.hu (Simon Andr�s) writes:
> To the OP: it's generally better to use the cvs version of
> paserve. webactions works right out of the box in cmucl.
I am using the cvs version, however it's a few weeks ago since I did
the checkout. Last night I could not reach the sourceforge cvs server
so I applied a couple patches myself and got some simple code up and
running. I will do a cvs update tonight.
Petter
--
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?
·····@news.klingenberg.no (Peder O. Klingenberg) writes:
> Petter Gustad <·············@gustad.com> writes:
>
> > Is the webactions part of portable allegroserve supported under cmucl?
> >
> > I keep getting:
> >
> > the function ACL-COMPAT.EXCL::FILESYS-INODE is undefined.
> >
> > Seems like this is only present in the mcl compability library...
>
> I looked at webactions in CMUCL a while ago for a project I was
> involved in. I used the following patch to acl-excl.lisp:
[snip]
I applied a couple of similar modifications myself and got it up and
running. But I will do a cvs update tonight since these problems have
been fixed (see message from Simon Andr�s).
> The project ended up using Perl/Mason instead, in part because
> webactions support in CMUCL was rather unfinished and we didn't have
> time to develop the framework as well as the application.
:-(
Are there any sites out there running Webactions? I've been running
aserve (without Webactions) on an internal server without any problems
for almost a year (since last powerfailure) now.
Petter
--
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?
On 2004-05-26, Petter Gustad <·············@gustad.com> wrote:
> Are there any sites out there running Webactions? I've been running
> aserve (without Webactions) on an internal server without any problems
> for almost a year (since last powerfailure) now.
I use Webactions at http://meme.b9.com and am quite happy with the model.
--
Kevin Rosenberg
·····@rosenberg.net
"Kevin M. Rosenberg" <·····@news.swcp.com> writes:
> On 2004-05-26, Petter Gustad <·············@gustad.com> wrote:
> > Are there any sites out there running Webactions? I've been running
> > aserve (without Webactions) on an internal server without any problems
> > for almost a year (since last powerfailure) now.
>
> I use Webactions at http://meme.b9.com and am quite happy with the model.
Neat, especially the color coding of the log activity in the table.
Petter
--
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?
Petter Gustad <·············@gustad.com> writes:
> running. But I will do a cvs update tonight since these problems
> have been fixed (see message from Simon Andr�s).
A cvs update fixed the problems.
Petter
--
A: Because it messes up the order in which people normally read text.
Q: Why is top-posting such a bad thing?
A: Top-posting.
Q: What is the most annoying thing on usenet and in e-mail?