HDTenEightyP/NetNews huggingface dataset:
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: Case dependent substitution
Originator: tchrist@pixel.convex.com
Date: Wed, 9 Sep 1992 23:59:21 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of noran!iowa!kburton@uunet.uu.net:
:
:I would like to substitute an arbitrary pattern for another, but it all of
:the alphabetic characters in the source pattern are upper case I would like
:to case the replacement pattern to also force upper case substitution.
:
:For example:
:
:	substitute "abc" in "ABCxyzabc" with "xyz" produces "XYZxyzxyz"
:	substitute "abc" in "abcxyzABC" with "xyz" produces "xyzxyzXYZ"
:
:I have started to work on a solution that first searches the string for pattern
:matches, checks the mathched patten, then finally makes the appropriate
:substitution. This "brute force" method doesn't seem very elegant or efficient
:and I was wondering if any of the more experienced perl users could give me
:a tip ? 

I've often wanted a /I switch that behaved this way.  Here's
what I use:

    s/abc/&mapcase('xyz')/gie;

where mapcase is as follows:

    sub mapcase {
	local($lhs, $rhs) = ($&, shift);
	for (local($i) = 0; $i < length($lhs); $i++) {
	    substr($lhs, $i, 1) =~ tr/A-Z//
		? substr($rhs, $i, 1) =~ tr/a-z/A-Z/
		: substr($rhs, $i, 1) =~ tr/A-Z/a-z/;
	}
	$rhs;
    }

You could do better if you hand-rolled it, because you could
save how the mapping works and not check the lhs each time 
again and again.

But it's not entirely satisfactory.  Consider

    $_ = "Green is the green apple who has GREEN WORMS\n";
    print;
    s/green/&mapcase3('red')/gie;
    print;

    print "\n";

    $_ = "Red is the red apple who has RED WORMS\n";
    print;
    s/red/&mapcase3('green')/gie;
    print;


Yields:

    Green is the green apple who has GREEN WORMS
    Red is the red apple who has RED WORMS

    Red is the red apple who has RED WORMS
    Green is the green apple who has GREen WORMS

Hmm.   I don't thing GREen is what you want here.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist

If you want your program to be readable, consider supplying the argument.
            --Larry Wall in the perl man page
From: verber@parc.xerox.com (Mark Verber)
Newsgroups: comp.lang.perl
Subject: looking for perl + TK
Date: 9 Sep 92 17:20:04 GMT
Distribution: comp
Organization: Xerox PARC, Palo Alto, CA

Has anyone done perl + Ousterhout's TK?  I would rather use perl
than tcl or C.

--mark
Xref: sparky comp.lang.perl:5744 sci.classics:687 alt.lang.intercal:92
From: rf@cl.cam.ac.uk (Robin Fairbairns)
Newsgroups: comp.lang.perl,sci.classics,alt.lang.intercal
Subject: Re: SCRIPT: Roman numeral conversion
Date: 5 Sep 92 10:18:11 GMT
Reply-To: rf@cl.cam.ac.uk (Robin Fairbairns)
Organization: U of Cambridge, England


In article <sherman.715665672@foster>, sherman@unx.sas.com (Chris
Sherman) writes:
|> In <Bu2ov7.B4H@rice.edu> adam@owlnet.rice.edu (Adam Justin Thornton) writes:
|> 
|> >Of course, INTERCAL deals with Roman numbers in native mode.
|> 
|> Why?

Whyever not?  [just to pursue the silly follow-up style]
--
Robin (dump Brian Kay) Fairbairns                    rf@cl.cam.ac.uk
U of Cambridge Computer Lab, Pembroke St, Cambridge  CB2 3QG, UK
[Finally back in work - what a relief! - of course, University work is
 probably permissible even if you _can_ program in Intercal (I can't,
 despite a desultory attempt at doing so)]
Newsgroups: comp.lang.perl
From: jimrutt@walney.com (Jim Rutt)
Subject: Piping to and from a unix command
Keywords: unix pipe perl
Organization: JPR Ventures
Date: Sat, 5 Sep 92 00:06:16 GMT



There's an intriguing aside in the O'Reilly & Assoc PERL book page 163 
in the description of the Open function speaking of using the open 
function to open a pipe to a unix command:

	"you may not have an open pipe command that pipes both in 
         and out, though it's easy to build using the _pipe_
         and _fork_ commands."

Unfortunately as a not very expereinced UNIXer and "C"er, fork and pipe
just aren't very intuitive for me yet.  

What I'm trying to do is open a pipe both to and from the same invocation
of a unix command - say for example grep, that lets me write to the command
and get back the result from it in the same perl program if writing and 
reading from a file.

I presume that's what is alluded to in the quote above.  If so, how
do I do it???




Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: class negation broken - OR - what am I doing wrong ?
Originator: tchrist@pixel.convex.com
Date: Thu, 10 Sep 1992 00:16:25 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of ronys@calisto.robcad.uunet (Rony Shapiro):
:I'd expect the following perl one-liner to print all characters except 'f':
:
:	perl -n -e 'print if /[^f]/' file
:
:However, ALL of the characters are printed.

Right -- your lines have two characters, one of which
is a newline, which your [^f] matched.

Add -l for auto chop and appending of \n.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist
But you have to allow a little for the desire to evangelize when you
think you have good news.  
		--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
Newsgroups: comp.lang.perl
From: budnick@cbnewse.cb.att.com (Mary Jo Budnick)
Subject: emulating mulit-dimentional arrays?
Organization: AT&T
Distribution: usa
Date: Wed, 9 Sep 1992 16:33:29 GMT

Hi,
 
I see there are no multi-dimensional arrays in Perl; however,
they can be emulated w/ join and "$;".  So, say I want to keep
track of "time" specific to a name and a counter:
 
        $name = foo;
        $index = 0;
        $time{$name, $index} = "11:00:00";
 
        $name = foo;
        $index = 1;
        $time{$name, $index} = "11:27:15";
 
        $name = goo;
        $index = 0;
        $time{$name, $index} = "12:00:27";
 
        $name = goo;
        $index = 1;
        $time{$name, $index} = "12:30:00";
 
 
Now, how do I later retrieve all of the names and process all of
the times for that name?
 
If I do:
 
        foreach $i (keys(%time)) {
                print "key = $i, time = $time{$key}\n";
        }
 
 
I get:
 
        key = foo1
        key = goo1
        key = foo0
        key = goo0
 
 
What I want to do is get "foo" and then get all of the times for
foo, indexed by 0,1, . . .  Then I want to get "goo" and get
the times for it indexed by 0,1,. . .  I don't know the total
number of names or what they are.  I don't know the total
number of times (indices) for each name.
 
Any hints?
 
Thanks,
 
MJ

Newsgroups: comp.lang.perl
From: Tom Christiansen <tchrist@convex.COM>
Subject: Re: Prompting for input
Originator: tchrist@pixel.convex.com
Date: Tue, 8 Sep 1992 17:43:08 GMT
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: Convex Computer Corporation, Colorado Springs, CO
X-Disclaimer: This message was written by a user at CONVEX Computer
              Corp. The opinions expressed are those of the user and
              not necessarily those of CONVEX.

From the keyboard of jim@spitws117.sbil.co.uk:
:foreach $file (@ARGV)
:{
:    print "'$command $file'";
:    $ans = getc;
:    exit if $ans eq "q";
:    next COMMAND if $ans eq "n";
:    
:    system $command, $file;
:}

:This works fine as long as you want to either execute everything or
:quit part way through, but if you type "n\n" to skip an instance, it
:skips that instance alright but executes the next one without a
:pause.  It appears to me that there must be something left on STDIN
:as a result of entering the string "n\n", but I can't find anything
:in the Camel book about such an occurrence, or how to "suck"
:everything off STDIN without sending an EOF.  

:Does anybody have any idea what's going on and how to fix it?

It's just your friend getc().  Use <STDIN> instead.

--tom
-- 
    Tom Christiansen      tchrist@convex.com      convex!tchrist


		Disco is to music what Etch-A-Sketch is to art.
From: dansmith@Autodesk.COM (Daniel Smith)
Newsgroups: comp.lang.perl
Subject: processing of "diff -c" for code reviews
Summary: perl to make diff -c easier on eyes?
Date: 5 Sep 92 00:40:22 GMT
Organization: Autodesk Inc., Sausalito CA, USA


	Looking for something that can take a context diff (like diff -c)
and process it so that it can be useful in code reviews.  Any pointers
to scripts already written out there?

				Daniel
-- 
     Daniel Smith, Autodesk, Sausalito, California, (415) 332-2344 x 2580
	      Disclaimer: written by a highly caffeinated mammal
	    dansmith@autodesk.com            dansmith@well.sf.ca.us
Newsgroups: comp.lang.perl
Subject: Re: REXX compared to perl
From: russell@ccu1.aukuni.ac.nz (Russell Fulton)
Date: Mon, 14 Sep 1992 21:27:52 GMT
Distribution: comp
Organization: University of Auckland, New Zealand.

ckd@eff.org (Christopher Davis) writes:

>PM> == Peter Mutsaers <muts@fysap.fys.ruu.nl> 

> PM> Now this person is quite biassed towards old fashioned (but proven)
> PM> technology which is used in financial and administrative environments
> PM> and I don't trust such statements a lot, but still I became curious
> PM> about it. Is REXX something similar to perl, and if so how do they
> PM> compare?

>It's similar.  It's basically VM-PERL (hehe ;-) though it's been ported
>to the Amiga and other systems.  It doesn't have anywhere near the
>string-handling capabilities that perl does (I literally had to
>implement rot13 by listing the entire alphabet 4 times, because it
>doesn't support ranges).  It's used for a lot of the same sorts of
>things perl gets used for, often by default, since it is the best/only
>script language on many systems.
>--
>Christopher Davis   | ]CALL -151       
><ckd@eff.org>       | *300: 20 DD FB 60
>System Administrator| *3D0G            
>EFF +1 617 864 0665 | ]CALL 768        

It's a couple of years since I used REXX on a VM system so my experience
may be out of date (Given the speed at which IBM moves, I doubt it:-)

Rex did not have Regular expressions, or associtative arrays - two
things that are the essence of perl. Nor did it have the direct access
to system calls built in in the way perl does. Rexx is essentially
general purpose macro language for some other interpreter, e.g. VM or
Xedit. 

Rexx is OK so far as it goes, but , IMHO, not a patch on perl. 

BTW I saw a prerelease version of rexx on one of IBM's inhouse systems
years ago, it had a nice interface for fullscreen aplications. I was
most disappointed when the official release arrived with out it. Another
victim of IBM's marketing machine, there were at least two VM products
that would have been made redundant.

Cheers, Russell.
-- 
Russell Fulton, Computer Center, University of Auckland, New Zealand.
<rj_fulton@aukuni.ac.nz>
From: lando@cirrus.com (Dave Landis)
Newsgroups: comp.lang.perl
Subject: MS-DOS version of Perl
Date: 11 Sep 92 16:33:20 GMT
Organization: Cirrus Logic Inc.  Fremont, California
Originator: lando@tango


Using the subroutine y_or_n from page 53 in the Camel Book,
I wrote the following on my Sparc2 workstation.
-----------------------------------
#! /cirrus/bin/perl
#

if( &y_or_n ("the answer is yes [y|n]:  ")) {
   printf("The answer was yes!\n");
}

if(! &y_or_n ("the answer is no [y|n]:  ")) {
   printf("The answer was no!\n");
}

sub y_or_n {
    local($prompt) = @_;
    printf STDOUT $prompt;
    local($answer) = scalar(<STDIN>);
    $answer =~ /^y/i;
}

#
# yesOrno
#
-----------------------------------
This routine works just fine on my Sparc2.  However, I downloaded to my
PC and my PC version of Perl did not like the useage of scalar.  Are there
any other users that have encountered a similar problem?
-- 
"He is the best friend of American liberty who is most sincere and active
 in promoting pure and undefiled religion." John Witherspoon, signer of the
 Declaration of Independence.
From: jcv26@cas.org (Jon Vander Hill)
Newsgroups: comp.lang.perl
Subject: Re: stdout from 'system'?
Date: 11 Sep 92 14:28:35 GMT
Organization: Chemical Abstracts Service, Columbus, Ohio, USA

In article <1180030@hpcc01.corp.hp.com> lynch@hpcc01.corp.hp.com (Howard Lynch) writes:

   I want to get the hostname of the system my perl script is running
   on into a script variable.

chop($host=`hostname`);

   I want to get the stdout from a unix command into a script variable.

$s = `some_command`;             # stdout and stderr
$s = `some_command 2>/dev/null`; # just stdout

Assignment to arrays is sometimes useful.  Each member corresponds
to a line of output.  You can also use the 'chop' call as above
with arrays.  This chops newlines from each line read.

@a = `some_command 2>/dev/null`; # just stdout


Jon Vander Hill
jon@cas.org
Newsgroups: comp.lang.perl
From: mmelling@Trirex.com(Michael Mellinger)
Subject: Parsing RTF
Organization: Trirex Systems Inc.
Date: Tue, 15 Sep 1992 03:52:14 GMT

I'm interested in writing a small RTF parser in Perl.  Given rtf text,  
like that shown below, what is the best way to extract tokens from the  
text?

{\rtf0\ansi{\fonttbl\f0\fswiss Helvetica;}
\margl120
\margr120
{{\attachment0 telephonedirectory2.wp
}
\pard\tx533\tx1067\tx1601\tx2135\tx2668\tx3202\tx3736\tx4270\tx4803\tx5337 
\f0\b0\i0\ul0\fs36 This is the body of the message.

The keywords like \rtf and tx (tab settings) are followed by numbers, and  
as can be seen, keywords don't need to be seperated by spaces.   At the  
moment, I just want to extract out the keywords, but later I anticipate  
wanting to do more.

For those that don't know anything about RTF(Rich Text Format), all  
keywords begin with a \ and groups of keywords(like stylesheets) are  
enclose in {}.

-Mike
mmelling@Trirex.com
Xref: sparky comp.lang.perl:5742 sci.classics:686 alt.lang.intercal:91
From: sherman@unx.sas.com (Chris Sherman)
Newsgroups: comp.lang.perl,sci.classics,alt.lang.intercal
Subject: Re: SCRIPT: Roman numeral conversion
Date: 5 Sep 92 04:01:12 GMT
Organization: SAS Institute Inc.

In <Bu2ov7.B4H@rice.edu> adam@owlnet.rice.edu (Adam Justin Thornton) writes:

>Of course, INTERCAL deals with Roman numbers in native mode.

Why?

-- 
     ____/     /     /     __  /    _  _/    ____/
    /         /     /     /   /      /     /          Chris Sherman
   /         ___   /        _/      /          /
 _____/   __/   __/   __/ _\    _____/   _____/           sherman@unx.sas.com
Newsgroups: comp.lang.perl
From: utashiro@sran230.sra.co.jp (Kazumasa Utashiro)
Subject: Re: processing of "diff -c" for code reviews
Organization: Software Research Associates, Inc., Japan
Date: Thu, 10 Sep 1992 15:01:40 GMT

In article <ASHERMAN.92Sep9161406@laser.fmrco.com> asherman@fmrco.COM writes:
>> utashiro> I hope that you'll like my cdif and sdif.  Cdif is
>> utashiro> post-processor of diff which hilights modified part of text
>> utashiro> by changing text attributes.  Sdif is a clone of System V
>> utashiro> sdiff command but more powerfull except lack of -o option.
>> utashiro> Sdif can handle cdif output.
>> 
>> If the original poster wanted something to look at at a conference
>> table with others around, this may not work, since getting a terminal
>> to the meeting might not be trivial.

I didn't say that cdif works only on terminal.  You can
specify any sequence to hilight texts (e.g. \fB and \fP).
If the standard output is not a terminal, cdif hilights
texts by overstruck and underlined character by default.
Also using my version of a2ps, overstruck and underlined
texts are printed in bold and italic font respectively.

>> I've actually found that GNU's diff -u (unified diff) is quite
>> readable. Here is a sample:

Yes, cdif can process diff -u output, of course :-)
And so does the sdif.

--utashiro
Newsgroups: comp.lang.perl
From: robt@is.morgan.com (Rob Torop)
Subject: Re: usersub problems when invoked within a subroutine
Organization: Morgan Stanley & Company
Date: Sun, 13 Sep 1992 19:45:20 GMT

In article <1992Sep11.201054.1512@tandem.com> sylvia@Tandem.com (Sylvia Tom) writes:

   Thanks for posting the notes on how to hook in usubs.
   I've compiled ex1.c on a sun workstation and found
   the following problem.  If I call opie from within 
   a subroutine and the subroutine returns a list,
   the resulting information returned is lost.  If,
   I put parenthesis around $new in the call to opie,
   eg ($new) = &opie($num), the script runs as
   expected.  Do you know why this is behaving this way?

   Thanks,
   sylvia
   sylvia@tandem.com


    [ ... Program omitted ... ]

This works ok with pathlevel > 19.  I'm running 4.35 now, and this problem
does not occur.  I recompiled with 19 and got the problem described above.

--
-- Rob Torop

+---------------------------------------------------------------------+
| The views expressed here are neither mine nor those of my employer. |
+---------------------------------------------------------------------+
Newsgroups: comp.lang.perl
From: ckd@eff.org (Christopher Davis)
Subject: Re: Tips and Techniques...
Organization: Electronic Frontier Foundation Tech Central
	<MERLYN.92Sep10172212@romulus.reed.edu>
	<1992Sep11.170304.22452@netlabs.com>
Date: Fri, 11 Sep 1992 21:14:28 GMT

LW>  == Larry Wall <lwall@netlabs.com> 
RLS> == merlyn@ora.com (Randal L. Schwartz) writes:

 RLS> Or maybe the text (so far) of the new book.  (NOT!)

 LW> Postfix Operators Considered Harmful

They're often useful for disabling "magic names" (/var/yp,
/usr/ucb/quota, etc).  Wayne and Garth's System Administration Tip #1 is
to use .NOT as a handy suffix:

mv /etc/defaultdomain /etc/defaultdomain.NOT
mv /var/yp /var/yp.NOT
mv /usr/ucb/quota /usr/ucb/quota.NOT; ln -s /bin/true /usr/ucb/quota

and so on.

/sbin/perl -e 'print "Just another single-user mode Perl hacker,\n";'
--
Christopher Davis   | ]CALL -151       
<ckd@eff.org>       | *300: 20 DD FB 60
System Administrator| *3D0G            
EFF +1 617 864 0665 | ]CALL 768
From: jlm@gcm.com (John L. Mannion)
Newsgroups: comp.lang.perl
Subject: Sybase from Perl
Date: 10 Sep 92 20:52:11 GMT
Organization: Greenwich Capital Markets, Inc.
X-Newsreader: Tin 1.1 PL4

We are planning on using Sybase from perl scripts, and heard that
someone has created the usub functions to allow this.  Has anyone
used this?  Thanks for any help,
													  John Mannion
Newsgroups: comp.lang.perl
From: swu@att.com (Chi-Sharn Wu)
Subject: How to convice awk/sed users to use Perl ?
Originator: news@cbnewsb.cb.att.com
Reply-To: swu@att.com
Organization: AT&T Bell Laboratories
Date: Wed, 9 Sep 1992 14:36:29 GMT

As a Perl beginner, I don't know how to answer the following question raised by my
colleagues:
   I  use ksh/awk/sed very well, why bother to spend a lot of time to learn Perl ?
   What's the real advantages of perl over ksh/awk/sed ?

I will appreciate any help.

---

Chi-Sharn Wu
swu@probe.att.com
From: djbpitt+@pitt.edu (David J Birnbaum)
Newsgroups: comp.lang.perl
Subject: Re: aub problem finding sys/socket.ph
Date: 9 Sep 92 13:07:51 GMT
Organization: University of Pittsburgh

In article <1992Sep9.070854.22970@netlabs.com> lwall@netlabs.com
(Larry Wall) writes:

> 		require <sys/socket.ph>;
>
>Note that might not work with angle brackets, depending on how the
>globbing was done.  Did the original poster use angle brackets?
>You really oughta say
>
>	require "sys/socket.ph";
>
>It's only accidental that it works with angle brackets on many machines.

I just changed the angle brackets to quotes in Mark's test script and
ran it again. Same error message.

--David

-- 
Professor David J. Birnbaum         djbpitt+@pitt.edu [Internet]
The Royal York Apartments, #802     djbpitt@pittvms   [Bitnet]
3955 Bigelow Boulevard              voice: 1-412-687-4653
Pittsburgh, PA  15123  USA          fax:   1-412-624-9714
From: woody@gergu2.tamu.edu (Woody Lee)
Subject: Thought perl would be good for this task, but need help.
Reply-To: woody@gergu2.tamu.edu
Organization: Texas A&M University -- GERG
Date: Tue, 8 Sep 1992 16:46:28 GMT


I have a bunch of files with headers that have blank Lat and Lon
fields.  I also have a file with the necessary lines.  I want to read
the lines progressively out of the lat lon file and replace the blank
lines in the headers.




OK.  Here's part of the header as it exists now:

* Sea-Bird SBE 9 Raw Data File:
* FileName = D:92A001.DAT
* Software Version 4.003
* Temperature SN = 031273
* Conductivity SN = 040987
* Number of Bytes Per Scan = 24
* System UpLoad Time = May 1, 1992  4:47:02 pm
* Ship:      GYRE
* Cruise:    92A
* Station:   001
* Latitude:  
* Longitude: 
# nquan = 28
# nvalues = 495                         
# units = metric
# name 0 = scan: scan number
# name 1 = pr: pressure, decibars
Newsgroups: comp.lang.perl
From: klr@umbc4.umbc.edu (Kurt Reisler)
Subject: Anyone have a "untic" done in perl?
Keywords: tic untic terminfo
Organization: Hadron.com in exile
Date: Thu, 10 Sep 1992 03:36:36 GMT

Does anyone have a version of "untic" written in perl?  I have a need to
disassemble some System V terminfo files which I do not have access to
the "sources" for.

Thanks in advance.

-- 
                Kurt Reisler (UNISIG Chair, DECUS US Chapter)
		  Captain, UNISIG International Luge Team
		     Only a guest at klr@umbc4.umbc.edu
	     Are creative spellings like a patentable life form?
Newsgroups: comp.lang.perl
From: asherman@laser.fmrco.com (Aaron Sherman)
Subject: Re: stupid questions : deleted ing leading spaces
Reply-To: asherman@fmrco.COM
Organization: I-Kinetics, 19 Bishop-Allen Dr., Cambridge, MA
Date: Wed, 9 Sep 1992 21:04:24 GMT


>>>>> jhd@irfu.se (Jan D.) said:

jhd> chare@unilabs.uucp (Chris Hare) writes:

>As a matter of of fact, if you can suggest a way to remove the leading
>spaces, and compact multiple spaces any where else on the line to be one
>space I'd appreciate it.
>

jhd> 	s/^ //;
jhd> 	s/ +/ /g;

jhd> If you want to replace general white space (i.e. tabs and space)
jhd> you should say:

jhd> 	s/^\s//;
jhd> 	s/\s+/ /g;

s/^\s+//;	# or s/^ +//; for just spaces.
s/\s+/ /g;	# or s/ +//g; for just spaces.

Otherwise:

	"	   Hello, world!"

turns into:

	" Hello, world!"

Not:

	"Hello, world!"


			-AJS

--
--------
Disclaimer: I am solely responsible for the content of this message.
The views expressed here may not be the views of I-Kinetics, Fidelity,
any of the Fidelity-owned corporations or my mother.
Newsgroups: comp.lang.clos
From: gregor@parc.xerox.com (Gregor Kiczales)
Subject: Re: At the boundary of the MOP?
Organization: Xerox Palo Alto Research Center
Date: 1 Sep 92 20:28:30

In article <65076@cup.portal.com> Thomas_E_Morgan@cup.portal.com writes:

   From: Thomas_E_Morgan@cup.portal.com
   Newsgroups: comp.lang.clos

   I have been doing some work which involves taking over the
   slot storage for metaclass instances.  The purpose in doing
   so is to experiment with a fully versioned environment, where
   the values of slots, as well as the slots hemselves are 
   versioned.  Behaviors get version too, for that matter.

I'd like to try and help, but I don't understand just what it is you are
trying to do.  For one thing, I can't understand what you mean by "slot
storage for metaclass instances."  If you can say some more about this
that would be good.  

One specific question is whether you are trying to change just the
base-level semantics, or do you want a "three-level tower," where the
base level isn't normal CLOS, and the first meta-level isn't normal
CLOS, but the second meta-level is.

Perhaps an example?

Gregor
Newsgroups: comp.lang.clos