To invoke a method with parameters, you can do this (assuming you've called it "object"):

Arguably the most useful method is edit, which lets you edit the contents of a given method. To edit the associate method, for instance, you can do this:

I'm sure there are bugs; this is only a preliminary implementation. Let me know if you find any.

Every program was created to solve a problem. Microsoft created Word because not participating in the word-processing market had a high opportunity cost. Linus Torvalds created Linux because there wasn't a free UNIX available. Bram Moolenar wrote VIM because (1) he didn't like some things about the old VI, and (2) he didn't have a widely-used program to use as a vehicle for charity work in Uganda. (I'm sure there are other reasons too.)

Often the problem statement shapes the project. If your problem statement is to build a calculator that is useful to chemists, for instance, then you'll know immediately that you need reaction equations and other chemistry-related stuff. That, in turn, influences the design (in this example you'll want symbolic computation), and ultimately the whole development process (we could use Lisp or Python to make symbolic computation easy).

If you're just one developer, usually you will have a problem statement of some sort even if it isn't verbally stated. And often, in familiar problem domains, that intuition-level statement is enough to get by. The real challenge begins when you have a team of developers. If each developer has their own vision for a project, then it will end up with small fragments of functionality that are poorly tied together. Making a central problem statement ensures that all of the developers are focused on solving one fundamental problem, even if they end up solving other problems along the way.

What does a problem statement look like? I like to have one sentence that answers the question, "Why do I care about this software." So, for example, decentralized version control systems such as Git exist because, "As a developer, you want to be able to make commits on your local code without influencing the main branch in production." Cheloniidae exists because, "The Joseph Baldwin Academy needed a free turtle graphics library for Java, and Spencer wanted it to be 3D." What's cool about this is you often get an elevator-pitch and a direction for marketing presentations for free. This is important because marketing isn't just for people outside the company; it needs to be there to give developers a goal to work towards too.

I mentioned that solo developers can get by without a problem statement for familiar problem domains. Today I realized that writing Perl file-objects (covered a few posts ago) is not a familiar domain, and, well, I'm a bit stuck. The original problem statement, as I recall, was "wouldn't it be awesome to have a program that rewrote itself ....". Unfortunately, being awesome doesn't quite set the direction for a project. Awesomeness is a good feature, but the system needs to be useful too.

So, since I'm having trouble coming up with a problem statement, I'd like to hear some thoughts, use-cases, etc. The idea is that you've got a script that runs anywhere (Perl is a good choice for this, being almost ubiquitous) and saves its state between executions by rewriting itself. It could do anything, from summing a list of numbers to storing a document and its revisions to being a self-contained configurable backup script.

I love TeX as a typesetting system, but creating new documents and setting up the build process (which, if you use a TOC, you will probably want) is a few steps too many. So I wrote a self-modifying Perl script that acts as your TeX document. Here's how to use it:

First, download here and chmod u+x. Now stash that in a bin directory and remove all write permissions so that it can't be changed. (It will be used as a template for future TeX documents.)

The file comes bundled with instructions; if you run it without arguments it will give you a basic tutorial. I'll give a brief overview of the usage here.

If this is your first time using tex-document and you're a VIM user, then I recommend doing this:

That will register the VIM highlighter for my custom TeX format. Now you can create a new document:

Now you're inside the document's shell. Here are some of the commands you can use (you can find all of them by running ls):

There are also options that you can set. Since the shell interface still needs some work, I recommend doing this from Bash:

Finally, the TeX syntax. Hopefully it's not too mysterious, but here's basically what's going on:

Everything else is straight TeX. To see what it's generating, you can also say this:

While working on my JavaScript library (both the first incarnation and this one), I ran across some aspects of JavaScript that threw some monkey-wrenches into the development process. Here are a few:

However, if you are into mountain biking, then you might enjoy this. A couple of months ago I bought a Mongoose XR-75 bike. I've found it to be a good, inexpensive, reasonably lightweight and tough bike for both city and off-road riding, and the suspension bottoms out only on the worst rides once you adjust the rear spring.

This afternoon I had the misfortune of ending up with the rear shifter caught in the spokes going downhill. (Not much idea of how this happened, either.) I came out of it all right, but the shifter was pretty well mangled, the gear-plate was shattered, and the spokes were bent out of shape.

I didn't imagine I would get a great reception from customer support ("How the heck did you manage that?!", for instance), but in fact they were extremely understanding and immediately volunteered to send out a new shifter. When I asked about a new rear wheel too, they told me that they were backordered but that they would send one out as soon as it was in stock. All of this with no questions asked.

Typeclasses are great for GUI stuff where the prototype is inaccessible, but what if speed is an issue and you don't care about dynamic extensibility of your objects? There's actually a very nice mapping from typeclasses to normal JavaScript prototype functions.

As a prerequisite, you'll need to be able to add a typeclass to an object without the typeclass binding the functions as it adds them. This is important because traditional prototype-based classes share their functions across instances, so the binding is the only way to tie the function invocation to the object. Currently, the typeclass library doesn't support this; I may, however, release a fix that provides this flexibility.

Once you have this, all you need to do is write a constructor function in normal prototype style, such as this:

After this, instances may be created as new f (x, y) and will have the same members as their originating typeclass.

Naturally, by extension, any function prototype may also become a typeclass. This conversion is simpler, since the members hash of a typeclass does not expect its functions to be bound, and indeed in a prototype context they are not; thus no extra conversion needs to be done to make this happen.

Lately I've been thinking about aspects of an idealized computer interface -- that is, one that overcomes the inconveniences that most computer users face by allowing us to do common things more easily. There are several common tasks that jump to mind:

There are a couple of different aspects to all of this. First, files should be represented not just as a series of bytes, but rather in some structured way. I think we all agree about that, at least at some level. But this raises the issue of user-mode vs. primitive abstraction, and that issue is not easily resolved.

So what is the difference between user-mode abstraction and primitive abstraction? User-mode abstraction is extensible; given one abstraction, you can implement another on top of it, you can replace the first, etc., all without changing the underlying platform. Primitive abstraction is provided by the underlying platform and cannot be changed. One example of user-mode abstraction is the HTML format. The only applications that know what HTML is were written to know; the OS doesn't need to be changed if you want to implement HTML emphasis using the <em> tag instead of <i>. In contrast, file metadata is a primitive abstraction, at least on many filesystems currently in use. You get the modification date, permissions, owner, group, and so forth, but outside of those there is little to no extensibility.

The same patterns of abstraction occur all throughout computation. Some programming languages such as PHP and Ruby provide a lot of primitive abstractions (and many user-mode ones as well), while others such as C and Lisp provide more user-mode abstractions. HTML provided so many primitive abstractions that the W3C decided to create XHTML to consolidate the base and establish CSS, an orthogonal framework, to provide much-needed isolation of functionality. A common theme is visible: Languages with many primitive abstractions are used ubiquitously but are later phased out, while languages with few primitive abstractions are used infrequently but survive for a very long time.

I have a lot of respect for the way John McCarthy designed Lisp (which, incidentally, was much more similar to Scheme than it was to the modern Common Lisp -- this is important). He had five primitive functions, and that was sufficient to make a Turing-complete language. One of the consequences of designing the language with so little predefined behavior was that when object-oriented programming was invented, Lisp hackers wrote the CLOS in Lisp itself, and the language and compiler didn't have to be changed. CLOS could be used as a library instead of a built-in system, at least in theory. When exception processing and stack unwinding were popularized, Scheme could build that abstraction on top of call/cc, also without changing the language.

OK, so why this tangent? Because it's very important to choose your primitive abstractions carefully. If you introduce even one primitive abstraction that is unnecessary and later must be changed, then you'll be fighting against legacy and lagging behind the cutting edge. That's where file systems are today, which is why it's impossible to annotate some arbitrary file to say things like, "I got this file from www.whereever.com/download.html on Tuesday." It's also why we have special programs such as CVS and Git to manage revisions, Java packages to manage source code locations, HTML hrefs and src tags, SQL servers, E-mail clients with their own data formats, and a general inability to convert from one file format to another.

Pragmatism dictates that most abstractions should be primitive, since they are easier to code and easier to use. I agree. However, this philosophy should be carefully considered when dealing with software that is spread over a large user base and is unlikely to be replaced with anything else. At that point, the type of pragmatism that is valued so highly for internal application development should be put aside in favor of a well-thought-out, elegant solution. It may not pay off in the immediate future, but 50 years later users will still be happy with the elegant solution.

After using the literate OCaml project (see previous post) for a Sudoku application, I've seen the need to make a few upgrades.

The first, rather important, upgrade is that the edit function automatically saves to disk after each edit. This prevents the data loss that otherwise could occur if you made an edit, didn't save, and then killed the shell. (This could also happen if you issued Ctrl-C during a running OCaml build and it bypassed the automatic exiting-from-shell save.)

The other more superficial upgrade is that there's now a list command that will show you a listing of the generated source code at a particular line. Currently it gives you nine lines of context in each direction. So, suppose you get this output from OCaml:

Now you can type list 377 (if you're inside the shell; otherwise you'll need to type ./my-project list 377) to get this:

list also takes an optional second parameter to specify the build profile. By default, 'run' is used, but if you want to make sure your conditional-compilation rules are working correctly you can say something like list 377 debug.

Incidentally, after some Googling I was able to build a profile that gives you backtraces for top-level errors (I'm using OUnit for unit testing as well):

The key is to compile debugging information into your bytecode (-g) and to specify the backtrace option (-b) for ocamlrun. Unfortunately, I don't think there's a way to get backtraces with the normal OCaml interpreter.

The new version is up under the same download link, since it's fully backwards-compatible: Literate OCaml Project. To upgrade an existing project to use the new definitions, you'll have to download the new template, replacing the old one, and then run this:

I mentioned a day or two ago that it is possible to parse infix arithmetic expressions using the universal translator. Here's a snippet of such a configuration and how it works (all included with the universal translator source code, by the way):

Obviously, the steps going into this are not that straightforward. I'm cheating just a little bit by doing a direct mapping from the symbols +, -, *, and / to their Lisp-function equivalents. That's done with the construct :(:op :x :y), which literally means, "evaluate the list (:op :x :y) after :op, :x, and :y have been replaced by their bound values." Notice, however, that an extra rule is required for exponentiation since ^ isn't defined as a Lisp exponentiation function.

An important note: This code is unlikely to work outside of CLisp (though the universal translator does in general). The reason is that most Lisps don't allow empty keywords unless they are made explicit by typing :||.

There are many more cool things that can be done in remarkably little code by using the translator system. Once I have some more examples, I'll post them and try to explain why the rules work the way they do.

After looking over the points made in Hank's comment, I'll have to declare agnosticism for now about the "greed-is-good" philosophy. Kudos to Hank for pointing out those fallacies!

When writing stateful shell scripts, I was very careful to have an average-case insertion/lookup time of O(1). This involved running md5sum externally to produce a good, presumably uniform hash value for the input string. This makes collisions extremely unlikely.

That O(1) figure is deceptive, though. It's true that for all practical purposes the computation is constant in the number of elements in the table, but the constant is huge. Since md5sum isn't a Bash builtin, it's got to create a whole new process, connect the input pipe to a string, grab the output, etc.

After noting the obvious inefficiency of such a strategy (it becomes obvious if you time the execution of a stateful shell script), I started thinking about more efficient ways to do the same thing. Some deliberation on this point led to the conclusion that I should use a binary searching algorithm with a complexity of O(log n). While having a higher asymptotic complexity, the point at which it becomes slower than the constant-time algorithm is far beyond any practical use-case. (Something on the order of 2¹⁰⁰, I believe.)

So given this analysis, I'll write up an associative-array setup in Bash using binary instead of hash-based searching. Hopefully it will result in noticeably faster lookup and associate operations.

I was on one of my (frequent) rants about how more people need to make their variables constant when my wife stopped me. "How is functional programming fundamentally different from stateful, though, considering that both are Turing-complete?"

I had to think about that for a minute. Apart from the obvious multithreading scenario where shared-nothing is useful, it took me a while to come up with a reason that the traditional way of maintaining state (whether in the form of objects, local variables in long methods, etc.) was counterintuitive. After some thought, I was able to come up with this:

If your program is purely functional, then you do of course have "state" of a sort -- where you are in the program and which values you received as parameters. But any state you introduce into your program in the form of local variables and parameters all gets erased with the activation frame. So your state management shouldn't be any more complicated than the call stack can be.

However, in a stateful program you end up with state persisting beyond the end of a function call. If you combine this with impure functions, then you have the spaghetti-code equivalent of state -- control flow being determined very nonlocally in a way that's difficult to trace. The problem is compounded with multiple threads.

The problem becomes obvious when you look at it in a real-world context. Years ago there was a video game called Marble Drop in which you were supposed to put marbles into a series of tracks and into the properly colored bins. The challenge was to predict where the marbles would go, which wouldn't have been difficult except that the track had elements that would change each time a marble passed over them. And you could have multiple marbles running through the system at once, which meant that you had to be able to predict exactly when certain changes would happen. Designed as a challenging puzzle game, I was somewhat dismayed to notice the similarity to deciphering stateful code: http://www.youtube.com/watch?v=K3oe2dlTQxQ.

I've often heard that rich people are greedy. This can certainly be true. After all, greed will prompt one to accumulate wealth. But many people who believe that rich people are greedy also believe that this is a problem.

Here's why. Suppose you have two non-greedy people, Bob and Joe. Bob and Joe are two college graduates each working for the same company and making the same salary. However, Bob works three times as fast as Joe does. So anytime the supervisor needs something done, he gives it to Bob. Since Bob can get three times as much stuff done as Joe can, the company saves a lot of money. Unfortunately, the company also doesn't need Joe anymore, since Bob is effectively taking the place of two other programmers. So the company lays off Joe and Stan, one of Bob and Joe's friends. The end result is that Bob is producing $150,000 of value for the company (since the company would be paying three programmers), but only making $50,000. Two other employees are out of work and not producing anything or making anything.

It gets worse. Suppose people like Bob all around the world just stay where they are and put other programmers out of work. Then employers will have a surplus of ordinary jobs being filled by exceptional people, and the market for ordinary jobs will get much more competitive. As a result, ordinary programmers will either have to apply to very difficult positions (those where people like Bob could be working if they wanted to), or they will have to apply to positions where they are paid even less than they would make working where they were before they got laid off. Also, organizations who do high-end stuff will have to close down because there are just not enough high-end programmers out there who want to work for them. So high-end and middle-level jobs are both lost, and more people are left to compete for the low-end jobs for which they are overqualified and underpaid.

Now let's rewind this scenario and make Bob greedy. He starts out working for the same salary as everyone else, but quickly becomes aware that he's more productive than his coworkers. After being passed up for promotion, he decides to look for a better job. He finds an opening for someone of his skills and is now being paid $120,000 per year. So what happens here? Bob still produces about $150,000 of value for his company, and Joe, Stan, and Dave (the guy who replaced Bob) are each still making $50,000 per year and producing at least that much for their company. The only difference is that Bob replaced one person in his high-end corporation instead of three people in the ordinary corporation. That's OK for ordinary people, because high-end programmers accustomed to making $120,000 per year are not likely to start looking for $50K jobs.

OK, so why should corporations pay high salaries to capable people? It makes sense from a supply-and-demand perspective, but it also helps less-capable workers keep their jobs. Here's why. At the beginning of the greedy-Bob scenario, he's working for the ordinary company and doing three people's worth of work. He probably enjoys the amount of attention he's getting from everyone because he's doing an exceptional job. So that provides him with some incentive to stay. However, he's also got a family to take care of, and the attention he's getting isn't worth $70,000 in income he could be making if he found a better job. But if the high-end company he found the $120K job with had been offering only $60,000 per year, Bob might have simply been able to negotiate a pay raise with his current employer and stay where he was.

We need to pay capable people more because it attracts them away from jobs that less-capable people could be working. This helps everyone; more capable people make more money, which isn't a bad thing, and less-capable people have higher job security.

Now, is it really a good thing for rich people to be greedy and hoard their money? Probably not. But regardless of how little they give back to the economy from their paycheck, they're doing the world a tremendous favor by producing whatever value they provide for their employers, and by increasing the job security of everyone who makes less money than they do.

__08DryJv6GHa3WO54tEhY+oplvHvtkP4IdfAtbUiFZtE meta::data('table-of-contents', <<'__a4ayc/80/OGda4BO/1o/V0etpOqiLx1JwB5S3beHW0s'); 1 __a4ayc/80/OGda4BO/1o/V0etpOqiLx1JwB5S3beHW0s meta::data('top-level-sections', <<'__/VTh01YAqvlcRb8Yguljj4Yh6bfNFqBlrGzITqXzQC0'); blog meta cheloniidae simulation operations-research __/VTh01YAqvlcRb8Yguljj4Yh6bfNFqBlrGzITqXzQC0 meta::data('vim-highlighter', <<'__mFCbKlCky8km0a6t5He/FDNQht+N8oWVIsdTX4oWQh4'); " Cleaner HTML " Maintainer: Spencer Tipping " Language: Cleaner HTML if version < 600 syntax clear elseif exists("b:current_syntax") finish endif syn match clhSection /^\s*- .*$/ syn match clhBegin /^begin$/ syn region clhVerbatim start=/^\s*::$/ end=/^\s*:\.$/ syn region clhBlogPost start=/^\s*post:/ end=/$/ contains=clhPostKeyword,clhPostValue syn match clhPostKeyword /[A-Za-z0-9_-]\+\s*=/ contained syn match clhPostValue /[^=]*$/ contained syn match clhEnumeratedThing /^\s*[ei]\[/ syn match clhEnumeratedThing /^\s*\][ei]/ syn match clhItem /^\s*+\s/ syn match clhQuantifiedItem /^\s*+\[[^\]]*\]\s/ runtime! syntax/html.vim hi link clhBegin Keyword hi link clhTitle Identifier hi link clhAuthor Identifier hi link clhDate Identifier hi link clhEnumeratedThing Special hi link clhItem Special hi link clhQuantifiedItem Special hi link clhSection Type hi link clhVerbatim String hi link clhBlogPost Special hi link clhPostKeyword Type hi link clhPostValue String let b:current_syntax = "clhtml" __mFCbKlCky8km0a6t5He/FDNQht+N8oWVIsdTX4oWQh4 meta::file('mcm/mcm-2007.py', <<'__dZ8HzfFvi1P+hIlJV//7AmLoPGL6jrfIPKBteHTuzwY'); # vim: set ts=4 sw=4 : # # Simulation code written by Spencer Tipping # Licensed under the LGPL, latest version. # from random import Random from sys import stderr from sys import stdout # # Generic simulation code # def main (): # # These are keys used to index connections between nodes. # class directions: north = "n" south = "s" east = "e" west = "w" def opposite (s): if s == directions.north: return directions.south if s == directions.south: return directions.north if s == directions.east: return directions.west if s == directions.west: return directions.east return None def ordinal (s): # # Right and down are positive; other directions # are negative. # if s == directions.north or s == directions.west: return -1 if s == directions.east or s == directions.south: return 1 return None class debugging: very_verbose = 5 quite_verbose = 4 moderately_verbose = 3 not_looped = 2 status = 1 output = 0 error = -1 tracing = True current_debug = very_verbose def debug (level, message_function): # # I'm using a message function for optimization purposes. If we don't end up # using this level of debugging, then there's no reason to compute the string # required. # if level <= debugging.current_debug: if level >= debugging.error: stdout.write (message_function () + "\n") else: stderr.write (message_function () + "\n") def shuffle (l): r = Random () new_list = [[r.randint (0, len (l)), x] for x in l] new_list.sort () return [y[1] for y in new_list] class node: # # Note that these row and file are mainly for reference # purposes so that we can have each node print out its # contents in a meaningful way. # # # Arranged like this: # # SSSS A SSS A SSSS # A A # SSSS A SSS A SSSS # ... # where vertical is row and horizontal is file. # def __init__ (self, row, file, nearest_luggage_bin): self.current_occupant = None self.row = row self.file = file self.nearest_luggage_bin = nearest_luggage_bin self.connectors = {directions.north: None, directions.south: None, directions.east: None, directions.west: None} def __str__ (self): if self.nearest_luggage_bin: return " B(%3d, %3d)B " % (self.row, self.file) else: return " (%3d, %3d) " % (self.row, self.file) def available (self): return self.current_occupant == None def enter (self, someone): self.current_occupant = someone someone.location = self return self def leave (self, someone): self.current_occupant = None return self def connect (self, direction, destination): # # Connects this to another node (and vice versa) and returns the destination. # self.connectors [direction] = destination destination.connectors [opposite(direction)] = self return destination def is_seat (self): return not (self.connectors [directions.north] or self.connectors [directions.south]) def is_aisle (self): return self.connectors [directions.north] or self.connectors [directions.south] def shoot_off (self, direction): n = self while n.connectors [direction]: n = n.connectors [direction] return n def travel (self, direction, distance): n = self for i in range (distance): n = n.connectors [direction] return n def travel_until_empty (self, direction): n = self count = 0 # # This function stops on borrowed nodes. # while n.connectors [direction] and n.connectors [direction].current_occupant and \ n.connectors [direction].current_occupant.location == n.connectors [direction]: n = n.connectors [direction] count += 1 return (count, n) def nearest_aisle (self): # # Returns a 2-tuple with (distance, aisle_cell). # if self.is_aisle (): return (0, self) else: west_offshoot = self west_counter = 0 east_offshoot = self east_counter = 0 while west_offshoot.connectors [directions.west] and not west_offshoot.connectors [directions.west].is_aisle (): west_offshoot = west_offshoot.connectors [directions.west] west_counter += 1 while east_offshoot.connectors [directions.east] and not east_offshoot.connectors [directions.east].is_aisle (): east_offshoot = east_offshoot.connectors [directions.east] east_counter += 1 if not west_offshoot.connectors [directions.west]: return (east_counter, east_offshoot) if not east_offshoot.connectors [directions.east]: return (west_counter, west_offshoot) if east_counter < west_counter: return (east_counter, east_offshoot) else: return (west_counter, west_offshoot) def trail (self, direction): n = self t = [n] while n.connectors [direction]: n = n.connectors [direction] t += [n] return t def compact_representation (self): if self.current_occupant: if self.current_occupant.location != self: # # The occupant is borrowing a cell. # return " -%03d-%01d- " % (self.current_occupant.personal_delay_counter, self.current_occupant.number_of_bags) else: if self.is_aisle (): return " #%03d-%01d# " % (self.current_occupant.personal_delay_counter, self.current_occupant.number_of_bags) else: return " ++%03d++ " % (self.current_occupant.needed_to_wait) else: if self.is_aisle (): return " | " else: return " - " class boarder: pre_boarding = None find_aisle = 0 find_row = 1 find_seat = 2 # # I'm using self.location to determine whether or not the boarder is on the plane. # If they are not, then the location is None, whereas if they are, it will be set # to someplace where they can find their way to their seats. # def __init__ (self, location, target, number_of_bags, aisles_on_plane, SS, AS, SA, AA): self.target = target self.number_of_bags = number_of_bags self.personal_delay_counter = 0 self.aisles_on_plane = aisles_on_plane self.location = boarder.pre_boarding self.seek_phase = boarder.find_aisle self.closest_aisle = None self.SS = SS self.SA = SA self.AS = AS self.AA = AA self.sequence_identifier = 0 self.needed_to_wait = 0 self.borrowed_cells = [] # # Create a back-reference to the passenger. # target.passenger = self def __str__ (self): return "#%4d: %s --> %s; delay %4d; carrying %2d bags" % \ (self.sequence_identifier, str (self.location), str (self.target), self.personal_delay_counter, self.number_of_bags) def number_of_bags_factor (self): return self.number_of_bags_factor_function (self.number_of_bags) def finished (self): return self.location == self.target and self.personal_delay_counter == 0 def step (self): if self.personal_delay_counter == 0: for cell in self.borrowed_cells: if cell.current_occupant == self: cell.current_occupant = None else: debug (debugging.error, lambda: "%s: Inconsistency in cell ownership of %s" % (str (self.location), str (cell))) self.borrowed_cells = [] if self.location != self.target and self.location: if self.seek_phase == boarder.find_aisle: # # We find the aisle closest to our seat. # if not self.closest_aisle: self.closest_aisle = min ([[abs (a.file - self.target.file), a.file] for a in self.aisles_on_plane]) [1] # # Now, navigate towards that aisle. # if self.location.file < self.closest_aisle: self.next_direction = directions.east elif self.location.file > self.closest_aisle: self.next_direction = directions.west else: self.seek_phase = boarder.find_row self.next_direction = None if self.next_direction: if self.location.connectors [self.next_direction].available (): self.personal_delay_counter += self.AA () self.location.leave (self).connectors [self.next_direction].enter (self) else: self.needed_to_wait += 1 # # We're going to go ahead and fall through to the next if statement. # if self.seek_phase == boarder.find_row: # # Now, we embark upon the simple task of locating our row. # if self.location.row < self.target.row: self.next_direction = directions.south elif self.location.row > self.target.row: self.next_direction = directions.north else: self.seek_phase = boarder.find_seat self.next_direction = None if self.next_direction: if self.location.connectors [self.next_direction]: if self.location.connectors [self.next_direction].available (): self.location.leave (self).connectors [self.next_direction].enter (self) self.personal_delay_counter += self.AA () else: self.needed_to_wait += 1 #debug (debugging.very_verbose, lambda: " > Waiting") else: debug (debugging.error, lambda: " > %s is trying to go along nonexistent path %s" % (str (self), self.next_direction)) if self.seek_phase == boarder.find_seat: # # Finally, we find the seat in question. # First, we make sure that we don't have any bags. # if self.number_of_bags > 0 and self.location.nearest_luggage_bin: self.personal_delay_counter += self.location.nearest_luggage_bin.load_delay (self.number_of_bags) self.number_of_bags = 0 if self.location.file > self.target.file: self.next_direction = directions.west elif self.location.file < self.target.file: self.next_direction = directions.east else: debug (debugging.quite_verbose, lambda: "Found my seat!") self.next_direction = None if self.next_direction and self.location != self.target and self.location.connectors [self.next_direction]: if self.location.connectors [self.next_direction].available (): # # This is the simplest case. The cell that we want to move into is available. # if self.location.is_aisle (): self.personal_delay_counter += self.AS () else: self.personal_delay_counter += self.SS () self.borrowed_cells += [self.location] self.location.connectors [self.next_direction].enter (self) else: # # We need to figure out how many people we have to cross. # number_of_people_to_cross = self.location.travel_until_empty (self.next_direction) [0] if number_of_people_to_cross == 0: # # The adjacent cell is borrowed, so we must wait for it to clear. # self.needed_to_wait += 1 else: # # If we can borrow a spot in the aisle, then do that. # To pull off the borrowing part, we'll be in both places simultaneously. :) # next_cell = self.location.connectors [self.next_direction] if self.location.is_aisle (): # # Try to claim adjacency for the aisle so that we can get more space # and avoid shuffling (not explcitly simulated). # south_aisle_cell = self.location.connectors [directions.south] if south_aisle_cell and south_aisle_cell.available (): # # We have more space to work with, so we can save some time. # mandatory_delay = 0 else: # # Simulate some aisle-shuffling that would take extra time. # mandatory_delay = self.AA () + self.AA () if number_of_people_to_cross == 1: # # The cell may be borrowed. This is possible because travel_until_empty stops # when it hits a borrowed or empty cell. # if next_cell.connectors [self.next_direction].available (): self.borrowed_cells += [self.location] if south_aisle_cell and south_aisle_cell.available (): self.borrowed_cells += [south_aisle_cell] south_aisle_cell.current_occupant = self mandatory_delay += max (self.AA (), self.SS ()) + self.AS () + max (self.SS (), self.AS ()) self.personal_delay_counter += mandatory_delay next_cell.current_occupant.personal_delay_counter += mandatory_delay next_cell.connectors [self.next_direction].enter (self) else: self.needed_to_wait += 1 elif number_of_people_to_cross == 2: # # If we have to cross two people, then we are going after our target because # no seat is farther than three away from the aisle. # if self.target.available (): self.borrowed_cells += [self.location] if south_aisle_cell and south_aisle_cell.available (): self.borrowed_cells += [south_aisle_cell] south_aisle_cell.current_occupant = self mandatory_delay += max (self.AA (), self.SA (), self.SS ()) + \ self.SA () + self.AS () + max (self.SA (), self.SS ()) + \ max (self.SS (), self.SS (), self.AS ()) self.personal_delay_counter += mandatory_delay next_cell.current_occupant.personal_delay_counter += mandatory_delay next_cell.connectors [self.next_direction].current_occupant.personal_delay_counter += mandatory_delay self.target.enter (self) else: self.needed_to_wait += 1 else: debug (debugging.error, lambda: "%s: Too many people to handle crossing process" % str (self.location)) else: # # Use the simple function for the number of spots to cross mid-seat. # First, though, we need the aisle to be available so that we can swap. # aisle_cell = self.location.connectors [opposite (self.next_direction)] if aisle_cell.available () and self.target.available () and \ next_cell.current_occupant.personal_delay_counter == 0: aisle_cell.current_occupant = self self.borrowed_cells += [aisle_cell, self.location] mandatory_delay = max (self.SA (), self.SS ()) + self.SA () + self.AS () + max (self.SS (), self.AS ()) self.personal_delay_counter += mandatory_delay + self.SS () next_cell.current_occupant.personal_delay_counter += mandatory_delay + self.SS () self.target.enter (self) else: self.needed_to_wait += 1 class luggage_bin: def __init__ (self, bag_capacity, load_delay_function): self.bag_capacity = bag_capacity self.current_load = 0 self.delay = load_delay_function def load_one_bag (self): self.current_load += 1 return self.delay (self.current_load, self.bag_capacity) def load_delay (self, additional_load): return sum ([self.load_one_bag () for i in range (additional_load)]) class aisle: # # An aisle is just the collection of nodes that makes up the # aisle portion of an aircraft. It does not include any seats. # Seats are added by using add_window_row and add_bridge_row. # def __init__ (self, rows, file, bin_capacity, bin_load_delay_function, bin_row_span): last_bin = luggage_bin (bin_capacity, bin_load_delay_function) self.head = node (0, file, last_bin) self.file = file self.nodes = self.head, self.rows = rows p = self.head last_bin_row = 1 # # The rows will go from 0 to rows - 1, inclusive. # I'm using 1..rows because this translates to 1..rows - 1, and we # added the zero row above. # for i in range (1, rows): if i > last_bin_row + bin_row_span - 1: last_bin = luggage_bin (bin_capacity, bin_load_delay_function) last_bin_row = i n = node (i, file, last_bin) p.connect (directions.south, n) self.nodes += n, p = n self.tail = n def add_window_row (self, row, direction, files, major_file): # # Returns the window seat. # base = self.nodes [row] for i in range (files): base = base.connect (direction, node (row, self.file + (i+1) * ordinal (direction), None)) base.major_file = major_file return base def add_bridge_row (self, bridged_aisle, row, direction, files, major_file): # # Returns the seat in the bridged aisle to which this aisle connects. # return self.add_window_row (row, direction, files, major_file).connect ( \ direction, bridged_aisle.nodes [row]) class grid_plane_geometry: def __init__ (self, rows, file_count_list, \ row_select_function, number_of_bags_function, SS, AS, SA, AA, bin_capacity, \ bin_load_delay_function, bin_row_span): # # Build the aisles at the appropriate files. The reason I'm subtracting one # is because there are three file widths here, and only two aisles: # # 3 3 4 # SSS|SSS|SSSS # SSS|SSS|SSSS # # ... # self.aisles = [aisle (rows + 1, sum (file_count_list [0:i+1]) + i, \ bin_capacity, bin_load_delay_function, bin_row_span) \ for i in range (len (file_count_list) - 1)] self.file_count_list = file_count_list self.start_location = self.aisles [0].head self.passengers = [] self.rows = rows + 1 # # Create the bridge for the first row. There won't be passengers here, just some nodes # to allow them to cross. # for aisle_index in range (1, len (self.aisles)): self.aisles [aisle_index - 1].add_bridge_row ( \ self.aisles [aisle_index], 0, directions.east, file_count_list [aisle_index], aisle_index) for row in range (1, rows + 1): # # First, connect all of the aisles together east-west. # self.aisles [0].add_window_row (row, directions.west, file_count_list [0], 0) for aisle_index in range (1, len (self.aisles)): self.aisles [aisle_index - 1].add_bridge_row ( \ self.aisles [aisle_index], row, directions.east, file_count_list [aisle_index], aisle_index) self.aisles [len (self.aisles) - 1].add_window_row (row, directions.east, file_count_list [len (file_count_list) - 1], len (self.aisles)) # # Next, put a passenger in each seat. # However, we're using the filter-lambda combination to eliminate aisle seats # from that list (those being ones with north or south connections). # self.passengers += [boarder (boarder.pre_boarding, x, number_of_bags_function (), \ self.aisles, SS, AS, SA, AA) \ for x in filter (lambda cell: not (cell.connectors [directions.north] or cell.connectors [directions.south]), \ self.row (row))] # # Now, re-index all of the passengers. # for i in range (len (self.passengers)): self.passengers [i].sequence_identifier = i def row (self, index): return self.aisles [0].nodes [index].shoot_off (directions.west).trail (directions.east) def __str__ (self): s = "" for i in range (self.rows): for cell in self.row (i): s += str (cell) s += "\n" return s def compact_representation (self): s = "" for i in range (self.rows): for cell in self.row (i): s += cell.compact_representation () s += "\n" return s class two_floor_plane_geometry: upper_floor = "upper" lower_floor = "lower" def __init__ (self, lower_geometry, upper_geometry, floor_change_time_function): self.lower_geometry = lower_geometry self.upper_geometry = upper_geometry self.floor_change_time_function = floor_change_time_function self.passengers = lower_geometry.passengers + upper_geometry.passengers self.start_location = lower_geometry.start_location self.rows = lower_geometry.rows # # Change the floors of each geometry. # for row in range (lower_geometry.rows): for cell in lower_geometry.row (row): cell.floor = two_floor_plane_geometry.lower_floor for row in range (upper_geometry.rows): for cell in upper_geometry.row (row): cell.floor = two_floor_plane_geometry.upper_floor def board (self, passenger): if passenger.target.floor == two_floor_plane_geometry.upper_floor: self.upper_geometry.start_location.enter (passenger) else: self.lower_geometry.start_location.enter (passenger) def available (self): return self.upper_geometry.start_location.available () and \ self.lower_geometry.start_location.available () def compact_representation (self): return "Upper floor:\n" + self.upper_geometry.compact_representation () + \ "\nLower floor:\n" + self.lower_geometry.compact_representation () class combined_plane_geometry: def __init__ (self, north_geometry, south_geometry, binding_function = \ lambda north, south: [north.aisles [x].tail.connect (directions.south, south.aisles [x].head) \ for x in range (len (north.aisles))]): binding_function (north_geometry, south_geometry) self.passengers = [p for p in north_geometry.passengers + south_geometry.passengers] self.rows = north_geometry.rows + south_geometry.rows self.aisles = north_geometry.aisles self.north_geometry = north_geometry self.south_geometry = south_geometry # # Add the new sequencing index to the south group of passengers. # Also, properly set their aisle knowledge. # max_in_north = max ([p.sequence_identifier for p in north_geometry.passengers]) for p in south_geometry.passengers: p.sequence_identifier += max_in_north p.aisles_on_plane = north_geometry.aisles # # Also, update the row indices appropriately. # To do this, we'll just bump them up by the number of rows in the northern part. # for row_index in range (south_geometry.rows): for n in south_geometry.row (row_index): n.row += north_geometry.rows binding_function (north_geometry, south_geometry) def row (self, index): if index >= self.north_geometry.rows: return self.north_geometry.row (index) else: return self.south_geometry.row (index) def __str__ (self): return str (self.north_geometry) + "\n\n" + str (self.south_geometry) def compact_representation (self): return self.north_geometry.compact_representation () + "\n\n" + self.south_geometry.compact_representation () class single_entrance_manager: def __init__ (self, entrance): self.entrance = entrance def board (self, person): self.entrance.enter (person) def available (self): return self.entrance.current_occupant == None class simulation: def __init__ (self, plane, boarding_function): self.plane = plane self.boarding_function = boarding_function def run (self, passenger_selector_function = lambda p: True, boarding_delay_function = lambda: 8, time_step = 1): time = 0 iterations = 0 next_boarding = 0 debug (debugging.status, lambda: "Beginning simulation...") debug (debugging.not_looped, lambda: str (self.plane) + "\n") currently_unboarded = self.plane.passengers currently_unfinished = [] queue = [] while len (currently_unfinished) or len (currently_unboarded) > 0 or len (queue) > 0: iterations += 1 if debugging.tracing and iterations % 1 == 0: debug (debugging.quite_verbose, lambda: self.plane.compact_representation () + "\n" + str (int (time)) + "\n") if len (queue) == 0 and len (currently_unboarded) > 0: # # The boarding function is used so that we can choose to board people in # stages; for example, we may want to board first-class first and then let # everyone else file in randomly. # queue += self.boarding_function (time, currently_unboarded) debug (debugging.quite_verbose, lambda: "Enqueued %d person(s)" % len (queue)) for passenger in queue: if passenger in currently_unboarded: currently_unboarded.remove (passenger) else: debug (debugging.quite_verbose, lambda: "") # # The plane will decide how to board queued passengers. # if len (queue) > 0 and self.plane.available () and time > next_boarding: debug (debugging.quite_verbose, lambda: "Plane: Boarding one person") passenger = queue.pop (0) # # Add this passenger to the "unfinished" list and board them onto the plane. # Also, set the clock for that person to be synchronized with the "since-the-beginning- # of-the-boarding-process" clock, and set the appropriate delay before adding the # next person. # currently_unfinished += [passenger] self.plane.board (passenger) next_boarding = time + boarding_delay_function () else: debug (debugging.quite_verbose, lambda: "") time += time_step delete_necessary = False for p in currently_unfinished: p.personal_delay_counter -= time_step if p.personal_delay_counter < 0: p.personal_delay_counter = 0 p.step () if p.finished (): delete_necessary = True if delete_necessary: copy = currently_unfinished for p in copy: if p.finished (): currently_unfinished.remove (p) return time # # Planes # class airbus_320 (single_entrance_manager, grid_plane_geometry): name = "airbus-320" def __init__ (self, number_of_bags_function, bin_load_delay_function, SS, AS, SA, AA): grid_plane_geometry.__init__ (self, 23, (3, 3), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 4, bin_load_delay_function, 2) single_entrance_manager.__init__ (self, self.aisles [0].head) S1 = airbus_320 class boeing_767_200 (single_entrance_manager, combined_plane_geometry): name = "boeing-767-200" def __init__ (self, number_of_bags_function, bin_load_delay_function, SS, AS, SA, AA): combined_plane_geometry.__init__ (self, \ grid_plane_geometry (8, (2, 2, 2), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 8, bin_load_delay_function, 3), \ grid_plane_geometry (25, (2, 3, 2), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 8, bin_load_delay_function, 3)) single_entrance_manager.__init__ (self, self.aisles [0].head) S2 = boeing_767_200 class boeing_767_400 (single_entrance_manager, combined_plane_geometry): name = "boeing-767-400" def __init__ (self, number_of_bags_function, bin_load_delay_function, SS, AS, SA, AA): combined_plane_geometry.__init__ (self, \ grid_plane_geometry (8, (2, 2, 2), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 8, bin_load_delay_function, 3), \ grid_plane_geometry (25, (2, 3, 2), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 8, bin_load_delay_function, 3)) single_entrance_manager.__init__ (self, self.aisles [0].head) M1 = boeing_767_400 class airbus_a300_600 (single_entrance_manager, grid_plane_geometry): name = "airbus-a300-600" def __init__ (self, number_of_bags_function, bin_load_delay_function, SS, AS, SA, AA): grid_plane_geometry.__init__ (self, 50, (2, 4, 2), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 4, bin_load_delay_function, 2) single_entrance_manager.__init__ (self, self.aisles [0].head) M2 = airbus_a300_600 class boeing_747 (single_entrance_manager, grid_plane_geometry): name = "boeing-747" def __init__ (self, number_of_bags_function, bin_load_delay_function, SS, AS, SA, AA): grid_plane_geometry.__init__ (self, 40, (3, 4, 3), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 4, bin_load_delay_function, 2) single_entrance_manager.__init__ (self, self.aisles [0].head) L1 = boeing_747 class airbus_380 (single_entrance_manager, two_floor_plane_geometry): name = "airbus-380" def __init__ (self, number_of_bags_function, bin_load_delay_function, SS, AS, SA, AA): two_floor_plane_geometry.__init__ (self, \ grid_plane_geometry (40, (3, 4, 3), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 4, bin_load_delay_function, 2), \ grid_plane_geometry (30, (2, 4, 2), \ lambda row: True, number_of_bags_function, SS, AS, SA, AA, 4, bin_load_delay_function, 2), \ SS) def board (self, passenger): two_floor_plane_geometry.board (self, passenger) def available (self): return two_floor_plane_geometry.available (self) L2 = airbus_380 # # Test code # # # Passenger queues # def blocks (unboarded_passengers, number_of_blocks): # # This isn't a queue function; rather, it just breaks the plane # into roughly equal blocks (actually, the blocks are adaptively # sized to be roughly equal for the number of passengers remaining). # farthest_back_row = max ([p.target.row for p in unboarded_passengers]) # # Choose even sections. # zone = range (number_of_blocks) for i in range (len (zone)): zone [i] = filter (lambda p: p.target.row * number_of_blocks / (farthest_back_row + 1) == i, unboarded_passengers) return zone def random_loader (time, unboarded_passengers): return shuffle (unboarded_passengers) random_loader.name = "pre_assigned_random" def sequential_loader (time, unboarded_passengers): return unboarded_passengers sequential_loader.name = "sequential" def sequential_block_loader (time, unboarded_passengers): b = blocks (shuffle (unboarded_passengers), 5) return b[0] + b[1] + b[2] + b[3] + b[4] sequential_block_loader.name = "sequential_block" def reverse_block_loader (time, unboarded_passengers): b = blocks (shuffle (unboarded_passengers), 5) return b[4] + b[3] + b[2] + b[1] + b[0] reverse_block_loader.name = "reverse_block" def reverse_loader (time, unboarded_passengers): unboarded_passengers.reverse () return unboarded_passengers reverse_loader.name = "reverse_sequential" def outside_in_loader (time, unboarded_passengers): maximum_distance_to_aisle = max ([p.target.nearest_aisle ()[0] for p in unboarded_passengers]) return filter (lambda p: p.target.nearest_aisle ()[0] == maximum_distance_to_aisle, shuffle (unboarded_passengers)) outside_in_loader.name = "outside_in" def reverse_pyramid_loader (time, unboarded_passengers): maximum_distance_to_aisle = max ([p.target.nearest_aisle ()[0] for p in unboarded_passengers]) farthest_back_row = max ([p.target.row for p in unboarded_passengers]) return filter (lambda p: \ (maximum_distance_to_aisle - p.target.nearest_aisle ()[0]) * (farthest_back_row / 2) < \ p.target.row, shuffle (unboarded_passengers)) reverse_pyramid_loader.name = "reverse_pyramid" def rotating_block_loader (time, unboarded_passengers): b = blocks (shuffle (unboarded_passengers), 5) return b[0] + b[4] + b[1] + b[3] + b[2] rotating_block_loader.name = "rotating_block" # # Variations on the queue functions # def staggered_adapter (previous_method): return lambda time, unboarded_passengers: \ filter (lambda p: p.target.row % 2 == p.target.major_file % 2, previous_method (time, unboarded_passengers)) + \ filter (lambda p: p.target.row % 2 != p.target.major_file % 2, previous_method (time, unboarded_passengers)) staggered_adapter.name = "staggered" def even_odd_adapter (previous_method): return lambda time, unboarded_passengers: \ filter (lambda p: p.target.row % 2 == 0, previous_method (time, unboarded_passengers)) + \ filter (lambda p: p.target.row % 2 == 1, previous_method (time, unboarded_passengers)) even_odd_adapter.name = "even_odd" def identity_adapter (previous_method): return lambda time, unboarded_passengers: previous_method (time, unboarded_passengers) identity_adapter.name = "original" # # Running routines # def plane_generator (plane, r, SS, AS, SA, AA, bin_load_delay): return plane ( number_of_bags_function = lambda: r.randint (0, 2), \ bin_load_delay_function = lambda t, c: t**0.5 * r.gauss (bin_load_delay, bin_load_delay / 6.0), \ SS = SS, AS = AS, SA = SA, AA = AA) def run_single_simulation (): r = Random () debugging.current_debug = debugging.very_verbose debugging.tracing = True debug (debugging.status, lambda: "Building aircraft model and passenger list...") debug (debugging.output, lambda: "Simulation: boarding took %s units of time." % \ simulation (plane_generator (S2, r, \ lambda: r.gauss (7.0, 2.0), \ lambda: r.gauss (3.0, 0.8), \ lambda: r.gauss (3.5, 0.4), \ lambda: r.gauss (2.0, 0.3), \ 3.0), \ boarding_function = staggered_adapter (reverse_block_loader)).run ( \ passenger_selector_function = lambda passenger: True, \ boarding_delay_function = lambda: r.gauss (7.0, 1.0), \ time_step = 0.5)) def run_statistical_batch_simulation (planes, sensitivity_test_levels, how_many_adapters = 1, trial_count = 200): r = Random () debugging.current_debug = debugging.error debugging.tracing = False boarding_functions = (reverse_block_loader, rotating_block_loader, random_loader, reverse_pyramid_loader, outside_in_loader) adapters = [identity_adapter, even_odd_adapter, staggered_adapter][:how_many_adapters] adjustable_parameters = (7.0, 3.0, 3.5, 2.0, 2.0, 0.8, 0.4, 0.3, 2.0, 7.0) possibilities = [[1.0, 1.0, 1.0, 1.0, 1.0, d] for d in sensitivity_test_levels.keys ()] + \ [[1.0, 1.0, 1.0, 1.0, c, 1.0] for c in sensitivity_test_levels.keys ()] + \ [[1.0, 1.0, 1.0, b, 1.0, 1.0] for b in sensitivity_test_levels.keys ()] + \ [[1.0, 1.0, a, 1.0, 1.0, 1.0] for a in sensitivity_test_levels.keys ()] + \ [[1.0, x, 1.0, 1.0, 1.0, 1.0] for x in sensitivity_test_levels.keys ()] + \ [[y, 1.0, 1.0, 1.0, 1.0, 1.0] for y in sensitivity_test_levels.keys ()] if len (possibilities) == 0: possibilities = [[1.0] * 6] sensitivity_test_levels = {1.0: 'n'} else: sensitivity_test_levels[1.0] = 'n' possibility_description = lambda p: sensitivity_test_levels[p[0]] + sensitivity_test_levels[p[1]] + \ sensitivity_test_levels[p[2]] + sensitivity_test_levels[p[3]] + \ sensitivity_test_levels[p[4]] + sensitivity_test_levels[p[5]] trials_per_configuration = trial_count time_step = 1 for plane in planes: for possibility in possibilities: if len (possibilities) > 1: current_file = file (plane.name + possibility_description (possibility), 'w') else: current_file = file (plane.name, 'w') for a in adapters: for b in boarding_functions: current_file.write ("%s_%s\t" % (a.name, b.name)) debug (debugging.status, lambda: "%s_%s\n" % (a.name, b.name)) current_file.write ("\n") for trial in range (trials_per_configuration): for a in adapters: for b in boarding_functions: immediate_result = str (simulation ( \ plane = plane_generator (plane, r, \ lambda: r.gauss (adjustable_parameters [0] * possibility [0], adjustable_parameters [4] * possibility [0]), \ lambda: r.gauss (adjustable_parameters [1] * possibility [1], adjustable_parameters [5] * possibility [1]), \ lambda: r.gauss (adjustable_parameters [2] * possibility [2], adjustable_parameters [6] * possibility [2]), \ lambda: r.gauss (adjustable_parameters [3] * possibility [3], adjustable_parameters [7] * possibility [3]), \ adjustable_parameters [8] * possibility [4]), \ boarding_function = a (b)).run ( \ passenger_selector_function = lambda passenger: True, \ boarding_delay_function = lambda: \ r.gauss (adjustable_parameters [9] * possibility [5], possibility [5]), \ time_step = time_step)) current_file.write (immediate_result + "\t") debug (debugging.status, lambda: immediate_result + "\n") current_file.write ("\n") current_file.flush () debug (debugging.status, lambda: "\n") current_file.close () run_single_simulation () # run_statistical_batch_simulation ([L2], {}, 3, 200) # run_statistical_batch_simulation ([S1, S2, M1, M2, L1, L2], {0.5: 'l', 1.75: 'h'}, 1, 25) main () __dZ8HzfFvi1P+hIlJV//7AmLoPGL6jrfIPKBteHTuzwY meta::file('objects/class', <<'__P98jjKXN1Mx1BiXmtRN+nNWN+VIcZokvYtirR5d+5jY'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; meta::meta('datatypes::bootstrap', <<'__guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM'); meta::define_form 'bootstrap', sub {}; __guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM meta::meta('datatypes::data', <<'__96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek'); meta::define_form 'data', sub { my ($name, undef) = @_; $externalized_functions{$name} = "data::$name"; *{$name} = sub { associate("data::$name", $_[1] || join('', )) if @_ > 0 && $_[0] eq '='; retrieve("data::$name"); }; }; __96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek meta::meta('datatypes::function', <<'__XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0'); meta::define_form 'function', sub { my ($name, $value) = @_; $externalized_functions{$name} = "function::$name"; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0 meta::meta('datatypes::implementation', <<'__HlPiT4rdiKooLTNwpSFca93RrAG3djkduI7cDiOVkmY'); meta::define_form 'implementation', sub {}; __HlPiT4rdiKooLTNwpSFca93RrAG3djkduI7cDiOVkmY meta::meta('datatypes::internal_function', <<'__heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong'); meta::define_form 'internal_function', sub { my ($name, $value) = @_; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong meta::meta('internal::runtime', <<'__Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA'); meta::define_form 'internal', \&meta::meta::implementation; __Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA meta::bootstrap('initialization', <<'__bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; __bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs meta::bootstrap('pod', <<'__0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o'); =head1 NAME object - Stateful file-based object =head1 SYNOPSYS object [options] action [arguments...] object shell =head1 DESCRIPTION Stateful objects preserve their state between executions by rewriting themselves. Each time the script exits it replaces its contents with its new state. Thus state management, for user-writable scripts, is completely transparent. An object rewrites itself only if its state has changed. This may seem like a dangerous operation, but some checks are put into place to ensure that it goes smoothly. First, the object is initially written to a separate file. Next, that file is executed and asked to provide a hashsum of its contents. The original object is rewritten only if that hashsum is correct. This ensures that the replacement object is functional and has the right data. Currently the only known way to lose your data is to edit the serialization-related functions in such a way that they no longer function. However, this is not something most people will normally do. In the future there may be a locking mechanism to prevent unintentional edits of these attributes. =cut __0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o meta::data('default-action', <<'__zmNcTqv/Xk9W26j7HjnKI1UwqitrGFM+7xrzhiAWxXc'); shell __zmNcTqv/Xk9W26j7HjnKI1UwqitrGFM+7xrzhiAWxXc meta::data('name', <<'__CIkRPgTTID8MQBwXwP2LNSt0DcYHQzd50+3KoTMgsAE'); class __CIkRPgTTID8MQBwXwP2LNSt0DcYHQzd50+3KoTMgsAE meta::function('add-to', <<'__KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q'); my ($filename) = @_; my @members = grep /^implementation::/, keys %data; for (@members) { my $destination_name = basename($_); open my($handle), "| $filename import $destination_name" or messages::error("Attribute $_ could not be written."); print $handle retrieve($_); close $handle; } __KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q meta::function('cat', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::function('clone', <<'__qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY'); for (@_) { if ($_) { eval { file::write($_, serialize(), noclobber => 1); chmod(0700, $_); print "File $_ cloned successfully.\n"; }; print "$@\n" if $@; } } __qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY meta::function('cp', <<'__yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4'); my ($from, $to) = @_; $data{$to} = $data{$from} if $data{$from}; messages::error("No such attribute $from") unless $data{$from}; $data{$from}; __yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4 meta::function('create', <<'__4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY'); my ($name, $value) = @_; messages::error("Attribute $name already exists.") if grep {$_ eq $name} keys %data; associate($name, $value || join('', ) || "\n"); __4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY meta::function('edit', <<'__OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ'); my ($name, %options) = @_; my $meta_extension = join '', grep { my $s = $_; $s =~ s/\s.*$//; $name =~ /$s/ } split /\n/, &{'meta-associations'}(); $meta_extension =~ s/^.*\s//; chomp $meta_extension; messages::error("Attribute $name does not exist.") unless grep {$_ eq $name} keys %data; associate($name, invoke_editor_on($data{$name} || "# Attribute $name", %options, extension => $meta_extension), execute => $name !~ /^internal::/ && $name !~ /^bootstrap::/); delete $data{$name} if length($data{$name}) == 0; save(); __OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ meta::function('exists', <<'__bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk'); my $name = shift; grep {$_ eq $name} keys %data; __bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk meta::function('grab', <<'__sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8'); my ($filename, @attribute_names) = @_; associate("implementation::$_", `$filename cat $_`) for @attribute_names; __sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8 meta::function('import', <<'__oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA'); my ($name) = @_; associate($name, join('', )); __oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA meta::function('lock', <<'__VTyQSQauC4LFHxYTJhus499/qkzVt6stbxsovwA5kGs'); my (undef, undef, $mode) = stat $0; chmod $mode & 0555, $0; __VTyQSQauC4LFHxYTJhus499/qkzVt6stbxsovwA5kGs meta::function('ls', <<'__M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg'); join("\n", sort keys %externalized_functions); __M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg meta::function('ls-a', <<'__6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18'); join("\n", map {" $_"} sort keys %data) . "\n"; __6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18 meta::function('mv', <<'__PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y'); my ($from, $to) = @_; messages::error("The '$from' attribute does not exist.") unless grep $from, keys %data; $data{$to} = $data{$from}; delete $data{$from}; __PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y meta::function('pull', <<'__IIDq/dsWHEYECpYpzXqTvkcve38taGb7d0m+Vsq+TQk'); my ($class_name) = @_; my @attributes = grep /^implementation::/, split /\n/, `$class_name ls-a`; for (@attributes) { s/^\s+//; s/\s+$//; print STDERR "Adding $_\n"; associate(basename($_), `$class_name cat "$_"`); } __IIDq/dsWHEYECpYpzXqTvkcve38taGb7d0m+Vsq+TQk meta::function('reload', <<'__GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM'); execute($_) for (grep {! (/^internal::/ || /^bootstrap::/)} keys %data); __GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM meta::function('rm', <<'__7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww'); for my $to_be_deleted (@_) { messages::warning("$to_be_deleted does not exist") unless grep {$_ eq $to_be_deleted} keys %data; } delete @data{@_}; __7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww meta::function('save', <<'__HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto'); my $serialized_data = serialize(); my $final_state = state(); my (undef, $temporary_filename) = tempfile("$0." . 'X' x 32, OPEN => 0); file::write($temporary_filename, $serialized_data); chmod 0700, $temporary_filename; my $observed_state = `perl $temporary_filename state`; chomp $observed_state; if ($observed_state ne $final_state) { messages::error("The state of this object ($final_state) is inconsistent with the state of $temporary_filename ($observed_state).\n" . "$0 has not been updated."); } else { file::write($0, $serialized_data); unlink $temporary_filename; } __HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto meta::function('serialize', <<'__KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw'); my @keys_without_internals = grep(!/^internal::/, sort keys %data); join "\n", $data{'bootstrap::initialization'}, (grep {$_} (map {serialize::single(@_)} grep(/^meta::/, @keys_without_internals), grep(!/^meta::/, @keys_without_internals), grep(/^internal::/, sort keys %data))), "__END__"; __KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw meta::function('shell', <<'__1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4'); use Term::ReadLine; my $term = new Term::ReadLine "$0 shell"; $term->ornaments(0); my $prompt = name() . '$ '; my $OUT = $term->OUT || \*STDOUT; while (defined ($_ = $term->readline($prompt))) { my $command_line = $_; my @args = split /\s+/; my $function_name = shift @args; return if $function_name eq 'exit'; if ($externalized_functions{$function_name}) { my $result = eval {&{$function_name}(@args)}; messages::warning($@) if $@; chomp $result; print $OUT $result, "\n" unless $@; } else { messages::warning("Command not found: $function_name"); } $term->addhistory($command_line) if $command_line; $prompt = name() . '$ '; } __1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4 meta::function('size', <<'__lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80'); length(serialize()); __lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80 meta::function('snapshot', <<'__qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0'); my ($name) = @_; file::write(my $finalname = state_based_filename($name), serialize(), noclobber => 1); chmod 0700, $finalname; __qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0 meta::function('state', <<'__1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI'); sha256_base64 serialize(); __1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI meta::function('unlock', <<'__2f3NoSvgge16m8wBuDokogr54ssy8D8fKdZ7+RtZitE'); my (undef, undef, $mode) = stat $0; chmod $mode | 0200, $0; __2f3NoSvgge16m8wBuDokogr54ssy8D8fKdZ7+RtZitE meta::function('usage', <<'__oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I'); <<"EOD" . join ' ', split /\n/, ls (); Usage: $0 [options] action [arguments] Defined actions: EOD __oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I meta::implementation('function::add-to', <<'__KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q'); my ($filename) = @_; my @members = grep /^implementation::/, keys %data; for (@members) { my $destination_name = basename($_); open my($handle), "| $filename import $destination_name" or messages::error("Attribute $_ could not be written."); print $handle retrieve($_); close $handle; } __KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q meta::implementation('meta::datatypes::implementation', <<'__HlPiT4rdiKooLTNwpSFca93RrAG3djkduI7cDiOVkmY'); meta::define_form 'implementation', sub {}; __HlPiT4rdiKooLTNwpSFca93RrAG3djkduI7cDiOVkmY meta::internal_function('associate', <<'__D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0'); my ($name, $value, %options) = @_; my $namespace = namespace($name); messages::error("Namespace $namespace does not exist") unless grep {$_ eq $namespace} @data_types; $data{$name} = $value; execute($name) if $options{'execute'}; __D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0 meta::internal_function('basename', <<'__T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw'); my ($name) = @_; $name =~ s/^[^:]*:://; $name; __T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw meta::internal_function('execute', <<'__FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE'); my ($name, %options) = @_; my $namespace = namespace($name); eval {&{"meta::$namespace"}(basename($name), retrieve($name))}; carp $@ if $@ && $options{'carp'}; __FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE meta::internal_function('file::read', <<'__ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg'); my $name = shift; open my($handle), "<", $name; my $result = join "", <$handle>; close $handle; $result; __ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg meta::internal_function('file::write', <<'__+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o'); my ($name, $contents, %options) = @_; die "Choosing not to overwrite file $name" if $options{'noclobber'} && -f $name; open my($handle), ">", $name or die "Can't open $name for writing"; print $handle $contents; close $handle; __+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o meta::internal_function('invoke_editor_on', <<'__4Qkh4HQjoCLvAQ83W1ClaVM5dkrhv2YNMxIHO18k1cA'); my ($data, %options) = @_; my $content_hash = sha256_base64($data); my $editor = $options{'editor'} || $ENV{'VISUAL'} || $ENV{'EDITOR'} || messages::error('Either the $VISUAL or $EDITOR environment variable should be set to a valid editor.'); my $options = $options{'options'} || $ENV{'VISUAL_OPTS'} || $ENV{'EDITOR_OPTS'} || ''; my $extension = $options{'extension'} || ''; my (undef, $filename) = tempfile("$0." . ("X" x 32) . $extension, OPEN => 0); file::write($filename, $data); system("$editor $options \"$filename\""); my $result = file::read($filename); unlink $filename; $result; __4Qkh4HQjoCLvAQ83W1ClaVM5dkrhv2YNMxIHO18k1cA meta::internal_function('messages::error', <<'__200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4'); my ($message) = @_; die "$message\n"; __200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4 meta::internal_function('messages::warning', <<'__DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc'); my ($message) = @_; print "$message\n"; __DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc meta::internal_function('namespace', <<'__D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug'); my ($name) = @_; $name =~ s/::.*$//; $name; __D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug meta::internal_function('retrieve', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::internal_function('serialize::single', <<'__lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE'); my $name = shift || $_; my $contents = $data{$name}; my $delimiter = "__" . sha256_base64 $contents; my $meta_function_name = "meta::" . namespace($name); my $invocation_name = basename $name; "$meta_function_name('$invocation_name', <<'$delimiter');\n$contents\n$delimiter\n"; __lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE meta::internal_function('state_based_filename', <<'__zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw'); my ($name) = @_; my $noise = $name || state(); $noise =~ s/\//-/g; "$0.$noise"; __zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw meta::internal('runtime', <<'__YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ'); my $initial_state = sha256_base64 serialize(); push @script_args, shift @ARGV while @ARGV && $ARGV[0] =~ /^-/; my $default_action = retrieve('data::default-action'); chomp $default_action; my $function_name = shift(@ARGV) || $default_action || 'usage'; $function_name = 'usage' unless $externalized_functions{$function_name}; my $result = &{$function_name}(@ARGV); chomp $result; print "$result\n" if $result; END { my $serialized_data = serialize(); my $final_state = sha256_base64 $serialized_data; save() unless $initial_state eq $final_state; } __YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ __END__ __P98jjKXN1Mx1BiXmtRN+nNWN+VIcZokvYtirR5d+5jY meta::file('objects/literate-ocaml-project', <<'__mCenmYz3wjgcf77IzQUJSMKnjn131e5HtYBp9F0mAdw'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; meta::meta('datatypes::bootstrap', <<'__guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM'); meta::define_form 'bootstrap', sub {}; __guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM meta::meta('datatypes::code_filter', <<'__gIaVDqDoWT04Y/vzEYyoyadmT36MLhB1ERa09udQZ9M'); meta::define_form 'code_filter', sub { my ($name, $value) = @_; *{"code_filter::$name"} = eval "sub {\n$value\n}"; carp $@ if $@; }; __gIaVDqDoWT04Y/vzEYyoyadmT36MLhB1ERa09udQZ9M meta::meta('datatypes::data', <<'__96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek'); meta::define_form 'data', sub { my ($name, undef) = @_; $externalized_functions{$name} = "data::$name"; *{$name} = sub { associate("data::$name", $_[1] || join('', )) if @_ > 0 && $_[0] eq '='; retrieve("data::$name"); }; }; __96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek meta::meta('datatypes::function', <<'__XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0'); meta::define_form 'function', sub { my ($name, $value) = @_; $externalized_functions{$name} = "function::$name"; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0 meta::meta('datatypes::internal_function', <<'__heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong'); meta::define_form 'internal_function', sub { my ($name, $value) = @_; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong meta::meta('datatypes::line_filter', <<'__/k1BhEweDsgaEdqrALbIEjvKhsVrk/hv//e/KPydA6A'); meta::define_form 'line_filter', sub { my ($name, $value) = @_; *{"line_filter::$name"} = eval "sub {\n$value\n}"; carp $@ if $@; }; __/k1BhEweDsgaEdqrALbIEjvKhsVrk/hv//e/KPydA6A meta::meta('datatypes::profile', <<'__ooDHth9M5OueUrUkgnPd0FXBXu16i2n8xg0w+pmXkVE'); meta::define_form 'profile', sub { my ($name, $value) = @_; *{"profile::$name"} = eval "sub {\n$value\n}"; carp $@ if $@; }; __ooDHth9M5OueUrUkgnPd0FXBXu16i2n8xg0w+pmXkVE meta::meta('datatypes::section', <<'__dyHqM5u2qiIza2BZZUe8tCJbUbz1UmJwCpsYozFvBmc'); meta::define_form 'section', sub {}; __dyHqM5u2qiIza2BZZUe8tCJbUbz1UmJwCpsYozFvBmc meta::meta('datatypes::unlit_converter', <<'__2X1thh9LQ0oUWCfeWj297YwiGJA/klB7hVI2sWEFtEE'); meta::define_form 'unlit_converter', sub { my ($name, $value) = @_; *{"unlit_converter::$name"} = eval "sub {\n$value\n}"; carp $@ if $@; }; __2X1thh9LQ0oUWCfeWj297YwiGJA/klB7hVI2sWEFtEE meta::meta('internal::runtime', <<'__Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA'); meta::define_form 'internal', \&meta::meta::implementation; __Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA meta::bootstrap('initialization', <<'__bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; __bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs meta::bootstrap('pod', <<'__0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o'); =head1 NAME object - Stateful file-based object =head1 SYNOPSYS object [options] action [arguments...] object shell =head1 DESCRIPTION Stateful objects preserve their state between executions by rewriting themselves. Each time the script exits it replaces its contents with its new state. Thus state management, for user-writable scripts, is completely transparent. An object rewrites itself only if its state has changed. This may seem like a dangerous operation, but some checks are put into place to ensure that it goes smoothly. First, the object is initially written to a separate file. Next, that file is executed and asked to provide a hashsum of its contents. The original object is rewritten only if that hashsum is correct. This ensures that the replacement object is functional and has the right data. Currently the only known way to lose your data is to edit the serialization-related functions in such a way that they no longer function. However, this is not something most people will normally do. In the future there may be a locking mechanism to prevent unintentional edits of these attributes. =cut __0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o meta::code_filter('ocaml', <<'__QFbEjTsynjJMakDMUcNnuimkfFrOIIFYhlOcz0dVOwI'); my ($line, %settings) = @_; if ($settings{'name'} =~ /\socaml(\s|$)/) { return '\begin{ocamlcode}' if $settings{'begin'}; return '\end{ocamlcode}' if $settings{'end'}; } return $line; __QFbEjTsynjJMakDMUcNnuimkfFrOIIFYhlOcz0dVOwI meta::code_filter('verbatim', <<'__AON9bxWzZOMpERGSJVrit8dkijYb5Re8IIg2PEC5i1s'); my ($line, %settings) = @_; unless ($settings{'name'}) { return '\begin{verbatim}' if $settings{'begin'}; return '\end{verbatim}' if $settings{'end'}; } return $line; __AON9bxWzZOMpERGSJVrit8dkijYb5Re8IIg2PEC5i1s meta::data('cltex-vim-highlighter', <<'__9M68+fUDGVDeeJP8SWHRqHPh2Bq1y6WM6Spq8bnK9yo'); " Cleaner TeX " Maintainer: Spencer Tipping " Language: Cleaner TeX (a variant of LaTeX) if version < 600 syntax clear elseif exists("b:current_syntax") finish endif syn match cltTitle /^= .*$/ syn match cltAuthor /^a .*$/ syn match cltDate /^d .*$/ syn match cltBegin /^begin$/ syn match cltSection /^\s*- .*$/ syn region cltVerbatim start=/^\s*::$/ end=/^\s*:\.$/ syn match cltEnumeratedThing /^\s*[eid]\[/ syn match cltEnumeratedThing /^\s*\][eid]/ syn match cltItem /^\s*+\s/ syn match cltQuantifiedItem /^\s*+\[[^\]]*\]\s/ runtime! syntax/tex.vim hi link cltBegin Keyword hi link cltTitle Identifier hi link cltAuthor Identifier hi link cltDate Identifier hi link cltEnumeratedThing Special hi link cltItem Special hi link cltQuantifiedItem Special hi link cltSection Type hi link cltVerbatim String let b:current_syntax = "cltex" __9M68+fUDGVDeeJP8SWHRqHPh2Bq1y6WM6Spq8bnK9yo meta::data('default-action', <<'__xDKzcuDjAmfmXiahKkLHlXq1LiXf48bUuSkhPYiWXkU'); intro __xDKzcuDjAmfmXiahKkLHlXq1LiXf48bUuSkhPYiWXkU meta::data('default-profile', <<'__rLolUSEA+AtW/DzNFMZb5V2UgAzad1hcX0Goh+OY+b4'); run __rLolUSEA+AtW/DzNFMZb5V2UgAzad1hcX0Goh+OY+b4 meta::data('document', <<'__38zrG0j5TGSHp0RwIEolgs0s7tPFRMJUty0obo+Z+7s'); = Literate OCaml Project a Spencer Tipping begin - Introduction The \TeX{} document generator is a simple utility for encapsulating the generation and compilation of \TeX{} documents. Combined with literate OCaml processing, it provides a way to simultaneously write good documentation and simplify the build process for your program. It simplifies: e[ + Writing \TeX{} documents quickly + Writing literate code ]e - Usage The easiest way to use the system is to clone a new project, like this: :: $ literate-ocaml-project clone my-project :. Then you can edit your new project by entering its shell and issuing the ``e'' command: :: $ my-document shell my-document$ e :. __38zrG0j5TGSHp0RwIEolgs0s7tPFRMJUty0obo+Z+7s meta::data('header', <<'__SonLChWgyOqhK+2WcupCsI3GoJLNWo9cobO0PIXVAHI'); \documentclass{article} \usepackage{palatino,mathpazo,amsmath,amssymb,listings} \lstnewenvironment{ocamlcode} {\lstset{language=[Objective]caml,frame=tlb,basicstyle={\scriptsize\tt}}} {} __SonLChWgyOqhK+2WcupCsI3GoJLNWo9cobO0PIXVAHI meta::data('intro', <<'__uirjwqAxCBH+vu23aaPBO6uNM7a7cUHAYKJo8gIJsGw'); This is a TeX document generator. If this is your first time using it, then you'll probably want to install the VIM highlighter for the custom TeX format. To do that, run this: $ tex-document install-vim-highlighter If you don't mind an extra line at the end of your .vimrc file, then you can automatically associate .cltex files: $ tex-document update-vimrc Now you're ready to go. To create a new TeX document, do this: $ tex-document new newdoc Next, edit the contents of your new document: $ ./newdoc e Once you're done editing, you can build and display the document: $ ./newdoc make Alternately, you can use the shell interface (exit with the 'exit' command or control-D): $ ./newdoc shell tex-document$ e tex-document$ make ... tex-document$ ^D $ If you edit and run make a lot, I recommend you save your document just to be on the safe side. Normally the document is not committed to disk until you exit the shell, but you can commit at any time by using the 'save' command. To extract your document in its original form, you can say this: $ ./newdoc document > file And to extract the generated TeX: $ ./newdoc compile-to-tex > file __uirjwqAxCBH+vu23aaPBO6uNM7a7cUHAYKJo8gIJsGw meta::data('meta-associations', <<'__N3KxYcBOzsS3OT1/dhxdDQoOlLHlHzvjQUHQVbvR1XM'); ^function:: .pl ^internal_function:: .pl ^meta:: .pl ^bootstrap:: .pl ^data::document$ .cltex -vim-highlighter$ .vim ^section:: .ocamltex ^unlit_converter:: .pl ^line_filter:: .pl ^code_filter:: .pl ^profile:: .pl __N3KxYcBOzsS3OT1/dhxdDQoOlLHlHzvjQUHQVbvR1XM meta::data('name', <<'__qUJIiBdWgxwK2BNKAYW1jW2bfWWB3gersY5X5lBXcO8'); literate-ocaml-project __qUJIiBdWgxwK2BNKAYW1jW2bfWWB3gersY5X5lBXcO8 meta::data('ocamltex-vim-highlighter', <<'__t466fjjfb63cNJow0A3UqQQB7IIO1JX9bvEyjonZT4k'); " TeX with OCaml " Maintainer: Spencer Tipping " Language: TeX with OCaml in it if version < 600 syntax clear elseif exists("b:current_syntax") finish endif syn region ocamltexComment start=/\%^\|^\s*:.$/ end=/\%$\|^\s*::.*\.*$/ contains=ocamltexSection syn match ocamltexSection /^\s*- .*$/ contained runtime! syntax/ocaml.vim hi link ocamltexSection Special hi link ocamltexComment Comment let b:current_syntax = "ocamltex" __t466fjjfb63cNJow0A3UqQQB7IIO1JX9bvEyjonZT4k meta::data('output-dir', <<'__6WcazSRIScVxZ8ZY+i+Wl1IEj3qxhKPc9cRstNVq4SQ'); /tmp __6WcazSRIScVxZ8ZY+i+Wl1IEj3qxhKPc9cRstNVq4SQ meta::data('pdf-output-file', <<'__oZdf0jyS/kLpZfGwwuMI2OK/tt4p1OwCoY0Z0N9MWmQ'); /tmp/literate-ocaml-project.Q7j-MmSr74MuQaObvyBbBaivonO5fF7xQvHMHCi205g/document.pdf __oZdf0jyS/kLpZfGwwuMI2OK/tt4p1OwCoY0Z0N9MWmQ meta::data('pdf-reader', <<'__BlFO10Obn0hAHVxLShDpKtlpv0BTeJ7iqm1v7vjCM+A'); evince __BlFO10Obn0hAHVxLShDpKtlpv0BTeJ7iqm1v7vjCM+A meta::data('pdftex', <<'__aHolEJEGN4wnHiydZyVzwRrETVuJhJOGo/nKL9tsLRY'); pdflatex -output-directory=__TEMPORARY_DIRECTORY__ __INPUT_FILE__ __aHolEJEGN4wnHiydZyVzwRrETVuJhJOGo/nKL9tsLRY meta::data('table-of-contents', <<'__a4ayc/80/OGda4BO/1o/V0etpOqiLx1JwB5S3beHW0s'); 1 __a4ayc/80/OGda4BO/1o/V0etpOqiLx1JwB5S3beHW0s meta::data('tex', <<'__36pVFkgFfbTr/DrquMMaLrTY5F5S/VJ5Z3Jc90KC+q4'); latex -output-directory=__TEMPORARY_DIRECTORY__ __INPUT_FILE__ __36pVFkgFfbTr/DrquMMaLrTY5F5S/VJ5Z3Jc90KC+q4 meta::function('add-to', <<'__KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q'); my ($filename) = @_; my @members = grep /^implementation::/, keys %data; for (@members) { my $destination_name = basename($_); open my($handle), "| $filename import $destination_name" or messages::error("Attribute $_ could not be written."); print $handle retrieve($_); close $handle; } __KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q meta::function('build', <<'__4Lp2CNnntEJAojZM3II/pFzJ1LU2cfLvxlMsJgsJSsg'); my ($profile) = @_; $profile ||= &{'default-profile'}(); my $unlit_source_code = unlit($profile); my $state = state(); $state =~ s/\//-/g; my $build_directory = "/tmp/$state"; mkdir $build_directory; file::write("$build_directory/input.ml", $unlit_source_code); &{"profile::$profile"}(in => "$build_directory/input.ml", out => "$build_directory/$profile", profile => $profile, build_directory => $build_directory); __4Lp2CNnntEJAojZM3II/pFzJ1LU2cfLvxlMsJgsJSsg meta::function('cat', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::function('clean', <<'__YiaR22ZfeeFhhPYBUFHWBZqstuOzKtkv2XqmTuXhy1E'); my $output_directory = &{'pdf-output-file'}(); $output_directory =~ s+/.*++g; unlink <$output_directory/*>; rmdir $output_directory; __YiaR22ZfeeFhhPYBUFHWBZqstuOzKtkv2XqmTuXhy1E meta::function('clone', <<'__qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY'); for (@_) { if ($_) { eval { file::write($_, serialize(), noclobber => 1); chmod(0700, $_); print "File $_ cloned successfully.\n"; }; print "$@\n" if $@; } } __qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY meta::function('compile', <<'__HfmDCotLaO8/ha33D7dUqCAhPmSSrWt1lJc73NXcPz8'); my $tex_command = tex(); my $pdftex_command = pdftex(); my $filename = 'document'; my $contents = &{'compile-to-tex'}(); my $output_directory = &{'output-dir'}(); chomp $output_directory; my $temporary_directory = state_based_filename(); $temporary_directory =~ s+^.*/++; $temporary_directory = "$output_directory/$temporary_directory"; $tex_command =~ s/__TEMPORARY_DIRECTORY__/$temporary_directory/g; $tex_command =~ s+__INPUT_FILE__+$temporary_directory/$filename.tex+g; $pdftex_command =~ s/__TEMPORARY_DIRECTORY__/$temporary_directory/g; $pdftex_command =~ s+__INPUT_FILE__+$temporary_directory/$filename.tex+g; mkdir $temporary_directory; file::write("$temporary_directory/$filename.tex", $contents); if (&{'table-of-contents'}()) { print "First invocation of TeX:\n"; system($tex_command); print "Second invocation of TeX:\n"; system($tex_command); print "PDFTeX:\n"; system($pdftex_command); } else { print "PDFTeX:\n"; system($pdftex_command); } associate('data::pdf-output-file', my $result = "$temporary_directory/$filename.pdf", execute => 1); $result; __HfmDCotLaO8/ha33D7dUqCAhPmSSrWt1lJc73NXcPz8 meta::function('compile-to-tex', <<'__cvWyD1kaLfBVnSppeGw/hSpleoWxLARJQwP1tUKvebc'); my ($document) = document(); $document = &$_($document) for (grep /^unlit_converter::/, sort keys %data); $document; __cvWyD1kaLfBVnSppeGw/hSpleoWxLARJQwP1tUKvebc meta::function('cp', <<'__yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4'); my ($from, $to) = @_; $data{$to} = $data{$from} if $data{$from}; messages::error("No such attribute $from") unless $data{$from}; $data{$from}; __yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4 meta::function('create', <<'__4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY'); my ($name, $value) = @_; messages::error("Attribute $name already exists.") if grep {$_ eq $name} keys %data; associate($name, $value || join('', ) || "\n"); __4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY meta::function('e', <<'__VOcQy5WG275NZGlFODdYHYBe3oJ7/CHmTT/L9O1I6t0'); edit('data::document', extension => '.tex'); reload(); __VOcQy5WG275NZGlFODdYHYBe3oJ7/CHmTT/L9O1I6t0 meta::function('edit', <<'__OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ'); my ($name, %options) = @_; my $meta_extension = join '', grep { my $s = $_; $s =~ s/\s.*$//; $name =~ /$s/ } split /\n/, &{'meta-associations'}(); $meta_extension =~ s/^.*\s//; chomp $meta_extension; messages::error("Attribute $name does not exist.") unless grep {$_ eq $name} keys %data; associate($name, invoke_editor_on($data{$name} || "# Attribute $name", %options, extension => $meta_extension), execute => $name !~ /^internal::/ && $name !~ /^bootstrap::/); delete $data{$name} if length($data{$name}) == 0; save(); __OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ meta::function('exists', <<'__bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk'); my $name = shift; grep {$_ eq $name} keys %data; __bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk meta::function('grab', <<'__sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8'); my ($filename, @attribute_names) = @_; associate("implementation::$_", `$filename cat $_`) for @attribute_names; __sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8 meta::function('import', <<'__oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA'); my ($name) = @_; associate($name, join('', )); __oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA meta::function('install-vim-highlighters', <<'__S9G7+5oBYqFAmTiBsEi0BzDB6UeM75H09wm4tG6uHGA'); my $home = $ENV{'HOME'}; mkdir "$home/.vim"; mkdir "$home/.vim/syntax"; file::write("$home/.vim/syntax/cltex.vim", retrieve('data::cltex-vim-highlighter')); file::write("$home/.vim/syntax/ocamltex.vim", retrieve('data::ocamltex-vim-highlighter')); <<"EOF"; The highlighters were created successfully. To have syntax highlighting activated automatically, append this to your .vimrc: au BufRead,BufNewFile *.cltex set filetype=cltex au BufRead,BufNewFile *.ocamltex set filetype=ocamltex Alternately, you can run $0 update-vimrc. EOF __S9G7+5oBYqFAmTiBsEi0BzDB6UeM75H09wm4tG6uHGA meta::function('list', <<'__+bxJbCjbt91ELEYggMKi3XgsZ3Nf9oa0lPiCTWTW384'); my ($line_number, $profile) = @_; $profile ||= 'run'; my @lines = split /\n/, unlit($profile); my $result = ''; for (0 .. scalar(@lines)) { $result .= sprintf "% 4d: %s\n", $_ + 1, $lines[$_] if abs ($_ + 1 - $line_number) < 10; } $result; __+bxJbCjbt91ELEYggMKi3XgsZ3Nf9oa0lPiCTWTW384 meta::function('lock', <<'__pqf/HijyN91BWpnS+uWYip/mFhHhcd+M9/YdlYsvv9Y'); my (undef, undef, $mode) = stat $0; chmod $mode & 0555, $0; __pqf/HijyN91BWpnS+uWYip/mFhHhcd+M9/YdlYsvv9Y meta::function('ls', <<'__M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg'); join("\n", sort keys %externalized_functions); __M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg meta::function('ls-a', <<'__6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18'); join("\n", map {" $_"} sort keys %data) . "\n"; __6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18 meta::function('make', <<'__8mAUcwqcvcEhgs6tEjHaIx3uF9QOC+9DAI7NmulvJ74'); compile(); view(); clean(); __8mAUcwqcvcEhgs6tEjHaIx3uF9QOC+9DAI7NmulvJ74 meta::function('mv', <<'__PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y'); my ($from, $to) = @_; messages::error("The '$from' attribute does not exist.") unless grep $from, keys %data; $data{$to} = $data{$from}; delete $data{$from}; __PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y meta::function('new', <<'__FQjehdFg7T3T2iHPMlGp6nAnrKAsQUIK5CXW02wNnos'); clone(@_); __FQjehdFg7T3T2iHPMlGp6nAnrKAsQUIK5CXW02wNnos meta::function('pull', <<'__ZU6uOu7dBdjjoNdEL/U7yrjicOQR5OLFQAacjrKqSCg'); my ($class_name) = @_; my @attributes = grep /^implementation::/, split /\n/, `$class_name ls-a`; for (@attributes) { s/^\s+//; s/\s+$//; print STDERR "Adding $_\n"; associate(basename($_), `$class_name cat "$_"`); } __ZU6uOu7dBdjjoNdEL/U7yrjicOQR5OLFQAacjrKqSCg meta::function('reload', <<'__GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM'); execute($_) for (grep {! (/^internal::/ || /^bootstrap::/)} keys %data); __GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM meta::function('rm', <<'__7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww'); for my $to_be_deleted (@_) { messages::warning("$to_be_deleted does not exist") unless grep {$_ eq $to_be_deleted} keys %data; } delete @data{@_}; __7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww meta::function('save', <<'__HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto'); my $serialized_data = serialize(); my $final_state = state(); my (undef, $temporary_filename) = tempfile("$0." . 'X' x 32, OPEN => 0); file::write($temporary_filename, $serialized_data); chmod 0700, $temporary_filename; my $observed_state = `perl $temporary_filename state`; chomp $observed_state; if ($observed_state ne $final_state) { messages::error("The state of this object ($final_state) is inconsistent with the state of $temporary_filename ($observed_state).\n" . "$0 has not been updated."); } else { file::write($0, $serialized_data); unlink $temporary_filename; } __HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto meta::function('serialize', <<'__KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw'); my @keys_without_internals = grep(!/^internal::/, sort keys %data); join "\n", $data{'bootstrap::initialization'}, (grep {$_} (map {serialize::single(@_)} grep(/^meta::/, @keys_without_internals), grep(!/^meta::/, @keys_without_internals), grep(/^internal::/, sort keys %data))), "__END__"; __KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw meta::function('shell', <<'__1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4'); use Term::ReadLine; my $term = new Term::ReadLine "$0 shell"; $term->ornaments(0); my $prompt = name() . '$ '; my $OUT = $term->OUT || \*STDOUT; while (defined ($_ = $term->readline($prompt))) { my $command_line = $_; my @args = split /\s+/; my $function_name = shift @args; return if $function_name eq 'exit'; if ($externalized_functions{$function_name}) { my $result = eval {&{$function_name}(@args)}; messages::warning($@) if $@; chomp $result; print $OUT $result, "\n" unless $@; } else { messages::warning("Command not found: $function_name"); } $term->addhistory($command_line) if $command_line; $prompt = name() . '$ '; } __1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4 meta::function('size', <<'__lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80'); length(serialize()); __lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80 meta::function('snapshot', <<'__qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0'); my ($name) = @_; file::write(my $finalname = state_based_filename($name), serialize(), noclobber => 1); chmod 0700, $finalname; __qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0 meta::function('state', <<'__1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI'); sha256_base64 serialize(); __1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI meta::function('unlit', <<'__qJxQQTnIdxxWBaOiySqDtTNC9V8xmwwiJXmRFACA8kA'); my ($profile, %options) = @_; $profile ||= &{'default-profile'}(); my $literate_code = join "\n", map retrieve($_), grep /^section::/, sort keys %data; my $inside_code = 0; my $code_indentation = 0; my $resulting_code = '(* '; for my $line (split /\n/, $literate_code) { if ($inside_code && $line =~ /^\s*:\.$/) { $inside_code = $code_indentation = 0; $line =~ s/^/(* /; } if ($inside_code) { my $spaces = ' ' x $code_indentation; $line =~ s/^$spaces//; } if ($line =~ /^(\s*)::(.*)$/) { my $spaces = $1; my $code_section_rules = $2; my $indentation = length $spaces; if ($code_section_rules =~ /\socaml(\s|$)/) { # See whether we should include this code piece. Its inclusion depends on the active # profile and whatever guards are present. if ($code_section_rules =~ /if\s*$([^)]*)$/) { my $guards = $1; my @profiles = split /\|/, $guards; if (grep {s/^\s*//; s/\s*$//; $_ eq $profile} @profiles) { $inside_code = 1; $code_indentation = $indentation; $line =~ s/$/ *)/; } } else { $inside_code = 1; $code_indentation = $indentation; $line =~ s/$/ *)/; } } } $resulting_code .= "$line\n"; } $resulting_code . ' *)'; __qJxQQTnIdxxWBaOiySqDtTNC9V8xmwwiJXmRFACA8kA meta::function('unlock', <<'__08PohCY8fcNe+pWCO6ic6XOOKv48NkrxpNMmTOUIFdA'); my (undef, undef, $mode) = stat $0; chmod $mode | 0200, $0; __08PohCY8fcNe+pWCO6ic6XOOKv48NkrxpNMmTOUIFdA meta::function('update-vimrc', <<'__sRyErNBmLBe0jRSE6VYb8QPNC/6/rBd+nf5X7r3XBtM'); open my $fh, '>>', "$ENV{'HOME'}/.vimrc"; print $fh "au BufRead,BufNewFile *.cltex set filetype=cltex\n"; print $fh "au BufRead,BufNewFile *.ocamltex set filetype=ocamltex"; close $fh; __sRyErNBmLBe0jRSE6VYb8QPNC/6/rBd+nf5X7r3XBtM meta::function('usage', <<'__oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I'); <<"EOD" . join ' ', split /\n/, ls (); Usage: $0 [options] action [arguments] Defined actions: EOD __oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I meta::function('view', <<'__wEtlK5H0ttR24UvcFUsgg5Es1V/VbjMJlU+SKiO2jKs'); my $pdf_reader = &{'pdf-reader'}(); my $pdf_output_file = &{'pdf-output-file'}(); chomp $pdf_reader; system("$pdf_reader '$pdf_output_file'"); __wEtlK5H0ttR24UvcFUsgg5Es1V/VbjMJlU+SKiO2jKs meta::internal_function('associate', <<'__D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0'); my ($name, $value, %options) = @_; my $namespace = namespace($name); messages::error("Namespace $namespace does not exist") unless grep {$_ eq $namespace} @data_types; $data{$name} = $value; execute($name) if $options{'execute'}; __D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0 meta::internal_function('basename', <<'__T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw'); my ($name) = @_; $name =~ s/^[^:]*:://; $name; __T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw meta::internal_function('execute', <<'__FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE'); my ($name, %options) = @_; my $namespace = namespace($name); eval {&{"meta::$namespace"}(basename($name), retrieve($name))}; carp $@ if $@ && $options{'carp'}; __FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE meta::internal_function('file::read', <<'__ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg'); my $name = shift; open my($handle), "<", $name; my $result = join "", <$handle>; close $handle; $result; __ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg meta::internal_function('file::write', <<'__+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o'); my ($name, $contents, %options) = @_; die "Choosing not to overwrite file $name" if $options{'noclobber'} && -f $name; open my($handle), ">", $name or die "Can't open $name for writing"; print $handle $contents; close $handle; __+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o meta::internal_function('invoke_editor_on', <<'__97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U'); my ($data, %options) = @_; my $content_hash = sha256_base64($data); my $editor = $options{'editor'} || $ENV{'VISUAL'} || $ENV{'EDITOR'} || messages::error('Either the $VISUAL or $EDITOR environment variable should be set to a valid editor.'); my $options = $options{'options'} || $ENV{'VISUAL_OPTS'} || $ENV{'EDITOR_OPTS'} || ''; my $extension = $options{'extension'} || ''; my (undef, $filename) = tempfile("$0." . ("X" x 32), OPEN => 0); $filename .= $extension; file::write($filename, $data); system("$editor $options \"$filename\""); my $result = file::read($filename); unlink $filename; $result; __97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U meta::internal_function('messages::error', <<'__200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4'); my ($message) = @_; die "$message\n"; __200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4 meta::internal_function('messages::warning', <<'__DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc'); my ($message) = @_; print "$message\n"; __DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc meta::internal_function('namespace', <<'__D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug'); my ($name) = @_; $name =~ s/::.*$//; $name; __D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug meta::internal_function('retrieve', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::internal_function('serialize::single', <<'__lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE'); my $name = shift || $_; my $contents = $data{$name}; my $delimiter = "__" . sha256_base64 $contents; my $meta_function_name = "meta::" . namespace($name); my $invocation_name = basename $name; "$meta_function_name('$invocation_name', <<'$delimiter');\n$contents\n$delimiter\n"; __lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE meta::internal_function('state_based_filename', <<'__zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw'); my ($name) = @_; my $noise = $name || state(); $noise =~ s/\//-/g; "$0.$noise"; __zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw meta::line_filter('convert_header_info', <<'__1jqqbjBcdOqh/3nTKZSDbW1AgEo4kg0dQ5HdRAgxyzE'); my ($line) = @_; $line =~ s/^= (.*)$/\\title{$1}/; $line =~ s/^a (.*)$/\\author{$1}/; $line =~ s/^d (.*)$/\\date{$1}/; my $document_header = '\begin{document}\maketitle'; $document_header .= '\tableofcontents' if &{'table-of-contents'}(); $line =~ s/^begin$/$document_header/; $line; __1jqqbjBcdOqh/3nTKZSDbW1AgEo4kg0dQ5HdRAgxyzE meta::line_filter('convert_itemized_environments', <<'__gAE2Xtr56GtOlw89sIcBSU7zkQUP/eBlx479kht7O2s'); my ($line) = @_; $line =~ s/^\s*\+ /\\item /; $line =~ s/^\s*\+\[([^\]]*)\] /\\item[\1] /; $line =~ s/^\s*e\[$/\\begin{enumerate}/; $line =~ s/^\s*i\[$/\\begin{itemize}/; $line =~ s/^\s*d\[$/\\begin{description}/; $line =~ s/^\s*a\[$/\\begin{align*}/; $line =~ s/^\s*\]e$/\\end{enumerate}/; $line =~ s/^\s*\]i$/\\end{itemize}/; $line =~ s/^\s*\]d$/\\end{description}/; $line =~ s/^\s*\]a$/\\end{align*}/; $line; __gAE2Xtr56GtOlw89sIcBSU7zkQUP/eBlx479kht7O2s meta::line_filter('convert_sections', <<'__r7g/dpG55JIga/lA77C7KlRs+wzunUtHKGgnLpn34CY'); my ($line) = @_; my %indentation_levels = ( 0 => '\section', 2 => '\subsection', 4 => '\subsubsection', 6 => '\paragraph', 8 => '\subparagraph'); if ($line =~ /^(\s*)- (.*)$/) { my $section = $indentation_levels{length($1)} || die "Invalid indentation level:\n$_"; my $section_name = $2; my $label_name = lc $section_name; $label_name =~ s/[^A-Za-z0-9.]/-/g; "${section} {$section_name} \\label{sec:$label_name}"; } else { $line; } __r7g/dpG55JIga/lA77C7KlRs+wzunUtHKGgnLpn34CY meta::profile('debug', <<'__RGdbCxc2zlwCZFKEQS8VGmaouCqzdyUqPk+E3KjrEw0'); my %options = @_; `ocaml $options{'in'}`; __RGdbCxc2zlwCZFKEQS8VGmaouCqzdyUqPk+E3KjrEw0 meta::profile('run', <<'__RGdbCxc2zlwCZFKEQS8VGmaouCqzdyUqPk+E3KjrEw0'); my %options = @_; `ocaml $options{'in'}`; __RGdbCxc2zlwCZFKEQS8VGmaouCqzdyUqPk+E3KjrEw0 meta::section('00-introduction', <<'__F4d/G+dyCjJNgMvAqDBcQhYBPlR3xyw4JMajrzOb1tE'); - Introduction to Literate Coding Literate coding allows you to write \TeX{} primarily, but insert code snippets where appropriate. For example: :: ocaml open Printf let _ = Printf.printf "Hello world!\n" :. Compiling the system is also simple: :: $ ./my-project compile [optional-output-filename] :. - Build Profiles Each build profile provides a set of compiler options. In addition, sections of code can be conditionally included using this syntax at the beginning of your \verb|::|-\verb|:.| blocks: :: ocaml if(profile1 | profile2 | ... | profileN) :. :: ocaml if (run) let _ = Printf.printf "You seem to be using the /run/ profile.\n" :. Each build profile can be configured independently using a \verb|profile::| variable. Profiles are simply Perl functions that will be passed a hash containing these parameters: e[ +[\tt in] Input filename after literate-to-source (unlit) conversion. +[\tt out] Expected output filename. +[\tt profile] Name of the active build profile. +[\tt build\_directory] Absolute pathname of the build directory. ]e There may also be other parameters later. An example of a simple build profile is: :: my %options = @_; `ocamlopt $options{'in'} -o $options{'out'}`; :. __F4d/G+dyCjJNgMvAqDBcQhYBPlR3xyw4JMajrzOb1tE meta::unlit_converter('create_sections', <<'__sUEcZkQbKEhRUbj5hKceGP4VevPCE9+rz0yea91XZVc'); my ($document) = @_; $document .= "\n" . retrieve($_) . "\n" for (grep /^section::/, sort keys %data); $document; __sUEcZkQbKEhRUbj5hKceGP4VevPCE9+rz0yea91XZVc meta::unlit_converter('main', <<'__3D082OWBmT2cWw4D6ktyDGp1MHknawaTDW2B0gvZPyM'); my ($document) = @_; my $sections_already_encountered = 0; my $inside_code_block = 0; my $code_block_indentation = 0; my $code_section_name = ''; my $result = ''; for (split /\n/, $document) { # Handle code blocks. if (/^(\s*):\.$/) { $inside_code_block = $code_block_indentation = 0; for my $filter_name (grep /^code_filter::/, sort keys %data) { $_ = &$filter_name($_, name => $code_section_name, indentation => $code_block_indentation, end => 1); } } if ($inside_code_block) { my $spaces_to_delete = ' ' x $code_block_indentation; s/^$spaces_to_delete//; for my $filter_name (grep /^code_filter::/, sort keys %data) { $_ = &$filter_name($_, name => $code_section_name, indentation => $code_block_indentation); } } else { for my $filter_name (grep /^line_filter::/, sort keys %data) { $_ = &$filter_name($_); } } if (/^(\s*)::(\s.*)?$/) { $inside_code_block = 1; $code_block_indentation = length($1); $code_section_name = $2; for my $filter_name (grep /^code_filter::/, sort keys %data) { $_ = &$filter_name($_, name => $code_section_name, indentation => $code_block_indentation, begin => 1); } } $result .= "$_\n"; } $result; __3D082OWBmT2cWw4D6ktyDGp1MHknawaTDW2B0gvZPyM meta::unlit_converter('zz_append_footer', <<'__xZrf+gAwEiK7btRcm+mwC/qtHsXp2FQ/Z8ZCwMvSw4Q'); my ($document) = @_; "$document\n\\end{document}"; __xZrf+gAwEiK7btRcm+mwC/qtHsXp2FQ/Z8ZCwMvSw4Q meta::unlit_converter('zz_prepend_header', <<'__4YCmTeTBS/MGOkeIFkQRlLujLJ1g/qS0/0iCeanWkkw'); my ($document) = @_; header() . "\n$document"; __4YCmTeTBS/MGOkeIFkQRlLujLJ1g/qS0/0iCeanWkkw meta::internal('runtime', <<'__YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ'); my $initial_state = sha256_base64 serialize(); push @script_args, shift @ARGV while @ARGV && $ARGV[0] =~ /^-/; my $default_action = retrieve('data::default-action'); chomp $default_action; my $function_name = shift(@ARGV) || $default_action || 'usage'; $function_name = 'usage' unless $externalized_functions{$function_name}; my $result = &{$function_name}(@ARGV); chomp $result; print "$result\n" if $result; END { my $serialized_data = serialize(); my $final_state = sha256_base64 $serialized_data; save() unless $initial_state eq $final_state; } __YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ __END__ __mCenmYz3wjgcf77IzQUJSMKnjn131e5HtYBp9F0mAdw meta::file('objects/object', <<'__53Hrxn/tcx0GV8vdSdJICs0/pXgkpjq+Z7svl2oLZ3I'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; meta::meta('datatypes::bootstrap', <<'__guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM'); meta::define_form 'bootstrap', sub {}; __guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM meta::meta('datatypes::data', <<'__j7lFraXGRfKk8ymj2mDJhNbCQMk9FSciN1hdDhzM99U'); meta::define_form 'data', sub { my ($name, undef) = @_; $externalized_functions{$name} = "data::$name"; *{$name} = sub { associate("data::$name", $_[1] || join('', )) if @_ > 0 && $_[0] eq '='; retrieve("data::$name"); }; }; __j7lFraXGRfKk8ymj2mDJhNbCQMk9FSciN1hdDhzM99U meta::meta('datatypes::function', <<'__XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0'); meta::define_form 'function', sub { my ($name, $value) = @_; $externalized_functions{$name} = "function::$name"; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0 meta::meta('datatypes::internal_function', <<'__heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong'); meta::define_form 'internal_function', sub { my ($name, $value) = @_; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong meta::meta('internal::runtime', <<'__Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA'); meta::define_form 'internal', \&meta::meta::implementation; __Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA meta::bootstrap('initialization', <<'__bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; __bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs meta::bootstrap('pod', <<'__0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o'); =head1 NAME object - Stateful file-based object =head1 SYNOPSYS object [options] action [arguments...] object shell =head1 DESCRIPTION Stateful objects preserve their state between executions by rewriting themselves. Each time the script exits it replaces its contents with its new state. Thus state management, for user-writable scripts, is completely transparent. An object rewrites itself only if its state has changed. This may seem like a dangerous operation, but some checks are put into place to ensure that it goes smoothly. First, the object is initially written to a separate file. Next, that file is executed and asked to provide a hashsum of its contents. The original object is rewritten only if that hashsum is correct. This ensures that the replacement object is functional and has the right data. Currently the only known way to lose your data is to edit the serialization-related functions in such a way that they no longer function. However, this is not something most people will normally do. In the future there may be a locking mechanism to prevent unintentional edits of these attributes. =cut __0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o meta::data('default-action', <<'__zmNcTqv/Xk9W26j7HjnKI1UwqitrGFM+7xrzhiAWxXc'); shell __zmNcTqv/Xk9W26j7HjnKI1UwqitrGFM+7xrzhiAWxXc meta::data('meta-associations', <<'__GGcLMIdIpQPyuKPkIVDso+D8DmmbfkaLqgG4z5YhJeA'); ^function:: .pl ^internal_function:: .pl ^meta:: .pl ^bootstrap:: .pl __GGcLMIdIpQPyuKPkIVDso+D8DmmbfkaLqgG4z5YhJeA meta::data('name', <<'__KVjUFtCKpaRy17UJA2y36v1UKt2EUn5moUXqZMtM3HU'); object __KVjUFtCKpaRy17UJA2y36v1UKt2EUn5moUXqZMtM3HU meta::function('add-to', <<'__KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q'); my ($filename) = @_; my @members = grep /^implementation::/, keys %data; for (@members) { my $destination_name = basename($_); open my($handle), "| $filename import $destination_name" or messages::error("Attribute $_ could not be written."); print $handle retrieve($_); close $handle; } __KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q meta::function('cat', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::function('clone', <<'__qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY'); for (@_) { if ($_) { eval { file::write($_, serialize(), noclobber => 1); chmod(0700, $_); print "File $_ cloned successfully.\n"; }; print "$@\n" if $@; } } __qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY meta::function('cp', <<'__yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4'); my ($from, $to) = @_; $data{$to} = $data{$from} if $data{$from}; messages::error("No such attribute $from") unless $data{$from}; $data{$from}; __yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4 meta::function('create', <<'__4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY'); my ($name, $value) = @_; messages::error("Attribute $name already exists.") if grep {$_ eq $name} keys %data; associate($name, $value || join('', ) || "\n"); __4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY meta::function('edit', <<'__rAkSOSll0evjt/D0qmnz2M++ACqz6cPtN8TLTHdQUJE'); my ($name, %options) = @_; my $meta_extension = join '', grep { my $s = $_; $s =~ s/\s.*$//; $name =~ /$s/ } split /\n/, &{'meta-associations'}(); $meta_extension =~ s/^.*\s//; chomp $meta_extension; messages::error("Attribute $name does not exist.") unless grep {$_ eq $name} keys %data; associate($name, invoke_editor_on($data{$name} || "# Attribute $name", %options, extension => $meta_extension), execute => $name !~ /^internal::/ && $name !~ /^bootstrap::/); delete $data{$name} if length($data{$name}) == 0; save(); __rAkSOSll0evjt/D0qmnz2M++ACqz6cPtN8TLTHdQUJE meta::function('exists', <<'__bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk'); my $name = shift; grep {$_ eq $name} keys %data; __bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk meta::function('grab', <<'__sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8'); my ($filename, @attribute_names) = @_; associate("implementation::$_", `$filename cat $_`) for @attribute_names; __sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8 meta::function('import', <<'__oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA'); my ($name) = @_; associate($name, join('', )); __oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA meta::function('lock', <<'__VTyQSQauC4LFHxYTJhus499/qkzVt6stbxsovwA5kGs'); my (undef, undef, $mode) = stat $0; chmod $mode & 0555, $0; __VTyQSQauC4LFHxYTJhus499/qkzVt6stbxsovwA5kGs meta::function('ls', <<'__M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg'); join("\n", sort keys %externalized_functions); __M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg meta::function('ls-a', <<'__6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18'); join("\n", map {" $_"} sort keys %data) . "\n"; __6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18 meta::function('mv', <<'__PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y'); my ($from, $to) = @_; messages::error("The '$from' attribute does not exist.") unless grep $from, keys %data; $data{$to} = $data{$from}; delete $data{$from}; __PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y meta::function('pull', <<'__IIDq/dsWHEYECpYpzXqTvkcve38taGb7d0m+Vsq+TQk'); my ($class_name) = @_; my @attributes = grep /^implementation::/, split /\n/, `$class_name ls-a`; for (@attributes) { s/^\s+//; s/\s+$//; print STDERR "Adding $_\n"; associate(basename($_), `$class_name cat "$_"`); } __IIDq/dsWHEYECpYpzXqTvkcve38taGb7d0m+Vsq+TQk meta::function('reload', <<'__GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM'); execute($_) for (grep {! (/^internal::/ || /^bootstrap::/)} keys %data); __GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM meta::function('rm', <<'__7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww'); for my $to_be_deleted (@_) { messages::warning("$to_be_deleted does not exist") unless grep {$_ eq $to_be_deleted} keys %data; } delete @data{@_}; __7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww meta::function('save', <<'__vhEbj5ff7CB7CfXgtAmJ/BCNllK5d8QgJfHWaHlBu70'); my $serialized_data = serialize(); my $final_state = state(); my (undef, $temporary_filename) = tempfile("$0." . 'X' x 32, OPEN => 0); file::write($temporary_filename, $serialized_data); chmod 0700, $temporary_filename; my $observed_state = `perl $temporary_filename state`; chomp $observed_state; if ($observed_state ne $final_state) { messages::error("The state of this object ($final_state) is inconsistent with the state of $temporary_filename ($observed_state).\n" . "$0 has not been updated."); } else { eval {file::write($0, $serialized_data)}; warn $@ if $@; my $observed_self_state = `perl $0 state`; unlink $temporary_filename if $observed_self_state eq $final_state; } __vhEbj5ff7CB7CfXgtAmJ/BCNllK5d8QgJfHWaHlBu70 meta::function('serialize', <<'__KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw'); my @keys_without_internals = grep(!/^internal::/, sort keys %data); join "\n", $data{'bootstrap::initialization'}, (grep {$_} (map {serialize::single(@_)} grep(/^meta::/, @keys_without_internals), grep(!/^meta::/, @keys_without_internals), grep(/^internal::/, sort keys %data))), "__END__"; __KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw meta::function('shell', <<'__g0FKviVlh5VYzuV+REx/lpPg3EmMtycTaZTK85Zq/SU'); use Term::ReadLine; my $term = new Term::ReadLine "$0 shell"; $term->ornaments(0); my $prompt = name() . '$ '; my $OUT = $term->OUT || \*STDOUT; while (defined ($_ = $term->readline($prompt))) { my $command_line = $_; my @args = split /\s+/; my $function_name = shift @args; return if $function_name eq 'exit'; if ($externalized_functions{$function_name}) { my $result = eval {&{$function_name}(@args)}; messages::warning($@) if $@; chomp $result; print $OUT $result, "\n" unless $@; } else { messages::warning("Command not found: $function_name"); } $term->addhistory($command_line) if $command_line; $prompt = name() . '$ '; save(); } __g0FKviVlh5VYzuV+REx/lpPg3EmMtycTaZTK85Zq/SU meta::function('size', <<'__lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80'); length(serialize()); __lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80 meta::function('snapshot', <<'__qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0'); my ($name) = @_; file::write(my $finalname = state_based_filename($name), serialize(), noclobber => 1); chmod 0700, $finalname; __qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0 meta::function('state', <<'__1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI'); sha256_base64 serialize(); __1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI meta::function('unlock', <<'__2f3NoSvgge16m8wBuDokogr54ssy8D8fKdZ7+RtZitE'); my (undef, undef, $mode) = stat $0; chmod $mode | 0200, $0; __2f3NoSvgge16m8wBuDokogr54ssy8D8fKdZ7+RtZitE meta::function('usage', <<'__oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I'); <<"EOD" . join ' ', split /\n/, ls (); Usage: $0 [options] action [arguments] Defined actions: EOD __oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I meta::internal_function('associate', <<'__D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0'); my ($name, $value, %options) = @_; my $namespace = namespace($name); messages::error("Namespace $namespace does not exist") unless grep {$_ eq $namespace} @data_types; $data{$name} = $value; execute($name) if $options{'execute'}; __D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0 meta::internal_function('basename', <<'__T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw'); my ($name) = @_; $name =~ s/^[^:]*:://; $name; __T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw meta::internal_function('execute', <<'__FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE'); my ($name, %options) = @_; my $namespace = namespace($name); eval {&{"meta::$namespace"}(basename($name), retrieve($name))}; carp $@ if $@ && $options{'carp'}; __FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE meta::internal_function('file::read', <<'__ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg'); my $name = shift; open my($handle), "<", $name; my $result = join "", <$handle>; close $handle; $result; __ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg meta::internal_function('file::write', <<'__+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o'); my ($name, $contents, %options) = @_; die "Choosing not to overwrite file $name" if $options{'noclobber'} && -f $name; open my($handle), ">", $name or die "Can't open $name for writing"; print $handle $contents; close $handle; __+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o meta::internal_function('invoke_editor_on', <<'__97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U'); my ($data, %options) = @_; my $content_hash = sha256_base64($data); my $editor = $options{'editor'} || $ENV{'VISUAL'} || $ENV{'EDITOR'} || messages::error('Either the $VISUAL or $EDITOR environment variable should be set to a valid editor.'); my $options = $options{'options'} || $ENV{'VISUAL_OPTS'} || $ENV{'EDITOR_OPTS'} || ''; my $extension = $options{'extension'} || ''; my (undef, $filename) = tempfile("$0." . ("X" x 32), OPEN => 0); $filename .= $extension; file::write($filename, $data); system("$editor $options \"$filename\""); my $result = file::read($filename); unlink $filename; $result; __97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U meta::internal_function('messages::error', <<'__200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4'); my ($message) = @_; die "$message\n"; __200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4 meta::internal_function('messages::warning', <<'__DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc'); my ($message) = @_; print "$message\n"; __DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc meta::internal_function('namespace', <<'__D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug'); my ($name) = @_; $name =~ s/::.*$//; $name; __D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug meta::internal_function('retrieve', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::internal_function('serialize::single', <<'__lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE'); my $name = shift || $_; my $contents = $data{$name}; my $delimiter = "__" . sha256_base64 $contents; my $meta_function_name = "meta::" . namespace($name); my $invocation_name = basename $name; "$meta_function_name('$invocation_name', <<'$delimiter');\n$contents\n$delimiter\n"; __lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE meta::internal_function('state_based_filename', <<'__zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw'); my ($name) = @_; my $noise = $name || state(); $noise =~ s/\//-/g; "$0.$noise"; __zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw meta::internal('runtime', <<'__YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ'); my $initial_state = sha256_base64 serialize(); push @script_args, shift @ARGV while @ARGV && $ARGV[0] =~ /^-/; my $default_action = retrieve('data::default-action'); chomp $default_action; my $function_name = shift(@ARGV) || $default_action || 'usage'; $function_name = 'usage' unless $externalized_functions{$function_name}; my $result = &{$function_name}(@ARGV); chomp $result; print "$result\n" if $result; END { my $serialized_data = serialize(); my $final_state = sha256_base64 $serialized_data; save() unless $initial_state eq $final_state; } __YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ __END__ __53Hrxn/tcx0GV8vdSdJICs0/pXgkpjq+Z7svl2oLZ3I meta::file('objects/tex-document', <<'__OxT3ZMZk0rDYS3fxoGkTW0EQMj+XeZU5MU+hSc8awpM'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; meta::meta('datatypes::bootstrap', <<'__guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM'); meta::define_form 'bootstrap', sub {}; __guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM meta::meta('datatypes::code_filter', <<'__gIaVDqDoWT04Y/vzEYyoyadmT36MLhB1ERa09udQZ9M'); meta::define_form 'code_filter', sub { my ($name, $value) = @_; *{"code_filter::$name"} = eval "sub {\n$value\n}"; carp $@ if $@; }; __gIaVDqDoWT04Y/vzEYyoyadmT36MLhB1ERa09udQZ9M meta::meta('datatypes::data', <<'__96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek'); meta::define_form 'data', sub { my ($name, undef) = @_; $externalized_functions{$name} = "data::$name"; *{$name} = sub { associate("data::$name", $_[1] || join('', )) if @_ > 0 && $_[0] eq '='; retrieve("data::$name"); }; }; __96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek meta::meta('datatypes::function', <<'__XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0'); meta::define_form 'function', sub { my ($name, $value) = @_; $externalized_functions{$name} = "function::$name"; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0 meta::meta('datatypes::internal_function', <<'__heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong'); meta::define_form 'internal_function', sub { my ($name, $value) = @_; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong meta::meta('datatypes::line_filter', <<'__/k1BhEweDsgaEdqrALbIEjvKhsVrk/hv//e/KPydA6A'); meta::define_form 'line_filter', sub { my ($name, $value) = @_; *{"line_filter::$name"} = eval "sub {\n$value\n}"; carp $@ if $@; }; __/k1BhEweDsgaEdqrALbIEjvKhsVrk/hv//e/KPydA6A meta::meta('datatypes::unlit_converter', <<'__2X1thh9LQ0oUWCfeWj297YwiGJA/klB7hVI2sWEFtEE'); meta::define_form 'unlit_converter', sub { my ($name, $value) = @_; *{"unlit_converter::$name"} = eval "sub {\n$value\n}"; carp $@ if $@; }; __2X1thh9LQ0oUWCfeWj297YwiGJA/klB7hVI2sWEFtEE meta::meta('internal::runtime', <<'__Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA'); meta::define_form 'internal', \&meta::meta::implementation; __Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA meta::bootstrap('initialization', <<'__bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; __bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs meta::bootstrap('pod', <<'__0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o'); =head1 NAME object - Stateful file-based object =head1 SYNOPSYS object [options] action [arguments...] object shell =head1 DESCRIPTION Stateful objects preserve their state between executions by rewriting themselves. Each time the script exits it replaces its contents with its new state. Thus state management, for user-writable scripts, is completely transparent. An object rewrites itself only if its state has changed. This may seem like a dangerous operation, but some checks are put into place to ensure that it goes smoothly. First, the object is initially written to a separate file. Next, that file is executed and asked to provide a hashsum of its contents. The original object is rewritten only if that hashsum is correct. This ensures that the replacement object is functional and has the right data. Currently the only known way to lose your data is to edit the serialization-related functions in such a way that they no longer function. However, this is not something most people will normally do. In the future there may be a locking mechanism to prevent unintentional edits of these attributes. =cut __0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o meta::code_filter('verbatim', <<'__AON9bxWzZOMpERGSJVrit8dkijYb5Re8IIg2PEC5i1s'); my ($line, %settings) = @_; unless ($settings{'name'}) { return '\begin{verbatim}' if $settings{'begin'}; return '\end{verbatim}' if $settings{'end'}; } return $line; __AON9bxWzZOMpERGSJVrit8dkijYb5Re8IIg2PEC5i1s meta::data('default-action', <<'__xDKzcuDjAmfmXiahKkLHlXq1LiXf48bUuSkhPYiWXkU'); intro __xDKzcuDjAmfmXiahKkLHlXq1LiXf48bUuSkhPYiWXkU meta::data('document', <<'__XTJAsZ2LWKGEYCet0rXSP8DwQBh2w15+p7Q6mmOdQ6A'); = TeX Document Generator a Spencer Tipping begin - Introduction The \TeX{} document generator is a simple utility for encapsulating the generation and compilation of \TeX{} documents. It simplifies: e[ + Writing \TeX{} documents quickly + Writing literate code ]e - Usage The easiest way to use the system is to clone a new document, like this: :: $ tex-document clone my-document :. Then you can edit your new document by entering its shell and issuing the ``e'' command: :: $ my-document shell my-document$ e :. __XTJAsZ2LWKGEYCet0rXSP8DwQBh2w15+p7Q6mmOdQ6A meta::data('header', <<'__eDtyvHFZSQrphEHm92Rjuvx5KOB2Cm+mxAPuG0JPt2g'); \documentclass{article} \usepackage{palatino,mathpazo,amsmath,amssymb} __eDtyvHFZSQrphEHm92Rjuvx5KOB2Cm+mxAPuG0JPt2g meta::data('intro', <<'__uirjwqAxCBH+vu23aaPBO6uNM7a7cUHAYKJo8gIJsGw'); This is a TeX document generator. If this is your first time using it, then you'll probably want to install the VIM highlighter for the custom TeX format. To do that, run this: $ tex-document install-vim-highlighter If you don't mind an extra line at the end of your .vimrc file, then you can automatically associate .cltex files: $ tex-document update-vimrc Now you're ready to go. To create a new TeX document, do this: $ tex-document new newdoc Next, edit the contents of your new document: $ ./newdoc e Once you're done editing, you can build and display the document: $ ./newdoc make Alternately, you can use the shell interface (exit with the 'exit' command or control-D): $ ./newdoc shell tex-document$ e tex-document$ make ... tex-document$ ^D $ If you edit and run make a lot, I recommend you save your document just to be on the safe side. Normally the document is not committed to disk until you exit the shell, but you can commit at any time by using the 'save' command. To extract your document in its original form, you can say this: $ ./newdoc document > file And to extract the generated TeX: $ ./newdoc compile-to-tex > file __uirjwqAxCBH+vu23aaPBO6uNM7a7cUHAYKJo8gIJsGw meta::data('meta-associations', <<'__Ql36C0s7UTZWfcWP/PM0xaUnVTY2wKIqUxjVsrvsZDU'); ^function:: .pl ^internal_function:: .pl ^meta:: .pl ^bootstrap:: .pl ^data::document$ .cltex ^data::vim-highlighter$ .vim ^unlit_converter:: .pl ^line_filter:: .pl ^code_filter:: .pl __Ql36C0s7UTZWfcWP/PM0xaUnVTY2wKIqUxjVsrvsZDU meta::data('name', <<'__MyX0rdO1O8lBOay1b19w6THTKQKU8ah1XPoRH26kXPU'); tex-document __MyX0rdO1O8lBOay1b19w6THTKQKU8ah1XPoRH26kXPU meta::data('output-dir', <<'__6WcazSRIScVxZ8ZY+i+Wl1IEj3qxhKPc9cRstNVq4SQ'); /tmp __6WcazSRIScVxZ8ZY+i+Wl1IEj3qxhKPc9cRstNVq4SQ meta::data('pdf-output-file', <<'__tFA84XAs7yM9v+osGnVIsQMu6yJffnoNslnzwDZA8Ys'); /tmp/tex-document.xk2VWDh4ZgOvAtdIIPbrIuXgugV6JFWL6Rg1HL4pOLw/document.pdf __tFA84XAs7yM9v+osGnVIsQMu6yJffnoNslnzwDZA8Ys meta::data('pdf-reader', <<'__BlFO10Obn0hAHVxLShDpKtlpv0BTeJ7iqm1v7vjCM+A'); evince __BlFO10Obn0hAHVxLShDpKtlpv0BTeJ7iqm1v7vjCM+A meta::data('pdftex', <<'__aHolEJEGN4wnHiydZyVzwRrETVuJhJOGo/nKL9tsLRY'); pdflatex -output-directory=__TEMPORARY_DIRECTORY__ __INPUT_FILE__ __aHolEJEGN4wnHiydZyVzwRrETVuJhJOGo/nKL9tsLRY meta::data('table-of-contents', <<'__a4ayc/80/OGda4BO/1o/V0etpOqiLx1JwB5S3beHW0s'); 1 __a4ayc/80/OGda4BO/1o/V0etpOqiLx1JwB5S3beHW0s meta::data('tex', <<'__36pVFkgFfbTr/DrquMMaLrTY5F5S/VJ5Z3Jc90KC+q4'); latex -output-directory=__TEMPORARY_DIRECTORY__ __INPUT_FILE__ __36pVFkgFfbTr/DrquMMaLrTY5F5S/VJ5Z3Jc90KC+q4 meta::data('vim-highlighter', <<'__9M68+fUDGVDeeJP8SWHRqHPh2Bq1y6WM6Spq8bnK9yo'); " Cleaner TeX " Maintainer: Spencer Tipping " Language: Cleaner TeX (a variant of LaTeX) if version < 600 syntax clear elseif exists("b:current_syntax") finish endif syn match cltTitle /^= .*$/ syn match cltAuthor /^a .*$/ syn match cltDate /^d .*$/ syn match cltBegin /^begin$/ syn match cltSection /^\s*- .*$/ syn region cltVerbatim start=/^\s*::$/ end=/^\s*:\.$/ syn match cltEnumeratedThing /^\s*[eid]\[/ syn match cltEnumeratedThing /^\s*\][eid]/ syn match cltItem /^\s*+\s/ syn match cltQuantifiedItem /^\s*+\[[^\]]*\]\s/ runtime! syntax/tex.vim hi link cltBegin Keyword hi link cltTitle Identifier hi link cltAuthor Identifier hi link cltDate Identifier hi link cltEnumeratedThing Special hi link cltItem Special hi link cltQuantifiedItem Special hi link cltSection Type hi link cltVerbatim String let b:current_syntax = "cltex" __9M68+fUDGVDeeJP8SWHRqHPh2Bq1y6WM6Spq8bnK9yo meta::function('add-to', <<'__KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q'); my ($filename) = @_; my @members = grep /^implementation::/, keys %data; for (@members) { my $destination_name = basename($_); open my($handle), "| $filename import $destination_name" or messages::error("Attribute $_ could not be written."); print $handle retrieve($_); close $handle; } __KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q meta::function('cat', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::function('clean', <<'__YiaR22ZfeeFhhPYBUFHWBZqstuOzKtkv2XqmTuXhy1E'); my $output_directory = &{'pdf-output-file'}(); $output_directory =~ s+/.*++g; unlink <$output_directory/*>; rmdir $output_directory; __YiaR22ZfeeFhhPYBUFHWBZqstuOzKtkv2XqmTuXhy1E meta::function('clone', <<'__qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY'); for (@_) { if ($_) { eval { file::write($_, serialize(), noclobber => 1); chmod(0700, $_); print "File $_ cloned successfully.\n"; }; print "$@\n" if $@; } } __qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY meta::function('compile', <<'__HfmDCotLaO8/ha33D7dUqCAhPmSSrWt1lJc73NXcPz8'); my $tex_command = tex(); my $pdftex_command = pdftex(); my $filename = 'document'; my $contents = &{'compile-to-tex'}(); my $output_directory = &{'output-dir'}(); chomp $output_directory; my $temporary_directory = state_based_filename(); $temporary_directory =~ s+^.*/++; $temporary_directory = "$output_directory/$temporary_directory"; $tex_command =~ s/__TEMPORARY_DIRECTORY__/$temporary_directory/g; $tex_command =~ s+__INPUT_FILE__+$temporary_directory/$filename.tex+g; $pdftex_command =~ s/__TEMPORARY_DIRECTORY__/$temporary_directory/g; $pdftex_command =~ s+__INPUT_FILE__+$temporary_directory/$filename.tex+g; mkdir $temporary_directory; file::write("$temporary_directory/$filename.tex", $contents); if (&{'table-of-contents'}()) { print "First invocation of TeX:\n"; system($tex_command); print "Second invocation of TeX:\n"; system($tex_command); print "PDFTeX:\n"; system($pdftex_command); } else { print "PDFTeX:\n"; system($pdftex_command); } associate('data::pdf-output-file', my $result = "$temporary_directory/$filename.pdf", execute => 1); $result; __HfmDCotLaO8/ha33D7dUqCAhPmSSrWt1lJc73NXcPz8 meta::function('compile-to-tex', <<'__cvWyD1kaLfBVnSppeGw/hSpleoWxLARJQwP1tUKvebc'); my ($document) = document(); $document = &$_($document) for (grep /^unlit_converter::/, sort keys %data); $document; __cvWyD1kaLfBVnSppeGw/hSpleoWxLARJQwP1tUKvebc meta::function('cp', <<'__yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4'); my ($from, $to) = @_; $data{$to} = $data{$from} if $data{$from}; messages::error("No such attribute $from") unless $data{$from}; $data{$from}; __yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4 meta::function('create', <<'__4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY'); my ($name, $value) = @_; messages::error("Attribute $name already exists.") if grep {$_ eq $name} keys %data; associate($name, $value || join('', ) || "\n"); __4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY meta::function('e', <<'__VOcQy5WG275NZGlFODdYHYBe3oJ7/CHmTT/L9O1I6t0'); edit('data::document', extension => '.tex'); reload(); __VOcQy5WG275NZGlFODdYHYBe3oJ7/CHmTT/L9O1I6t0 meta::function('edit', <<'__OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ'); my ($name, %options) = @_; my $meta_extension = join '', grep { my $s = $_; $s =~ s/\s.*$//; $name =~ /$s/ } split /\n/, &{'meta-associations'}(); $meta_extension =~ s/^.*\s//; chomp $meta_extension; messages::error("Attribute $name does not exist.") unless grep {$_ eq $name} keys %data; associate($name, invoke_editor_on($data{$name} || "# Attribute $name", %options, extension => $meta_extension), execute => $name !~ /^internal::/ && $name !~ /^bootstrap::/); delete $data{$name} if length($data{$name}) == 0; save(); __OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ meta::function('exists', <<'__bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk'); my $name = shift; grep {$_ eq $name} keys %data; __bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk meta::function('grab', <<'__sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8'); my ($filename, @attribute_names) = @_; associate("implementation::$_", `$filename cat $_`) for @attribute_names; __sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8 meta::function('import', <<'__oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA'); my ($name) = @_; associate($name, join('', )); __oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA meta::function('install-vim-highlighter', <<'__3qCLWaQi9Dp8Xjs/XCdFMcPXj4H4+DWldUwYv9/fAGs'); my $home = $ENV{'HOME'}; mkdir "$home/.vim"; mkdir "$home/.vim/syntax"; file::write("$home/.vim/syntax/cltex.vim", retrieve('data::vim-highlighter')); <<"EOF"; The highlighter was created successfully. To have syntax highlighting activated automatically, append this line to your .vimrc: au BufRead,BufNewFile *.cltex set filetype=cltex Alternately, you can run $0 update-vimrc. EOF __3qCLWaQi9Dp8Xjs/XCdFMcPXj4H4+DWldUwYv9/fAGs meta::function('lock', <<'__pqf/HijyN91BWpnS+uWYip/mFhHhcd+M9/YdlYsvv9Y'); my (undef, undef, $mode) = stat $0; chmod $mode & 0555, $0; __pqf/HijyN91BWpnS+uWYip/mFhHhcd+M9/YdlYsvv9Y meta::function('ls', <<'__M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg'); join("\n", sort keys %externalized_functions); __M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg meta::function('ls-a', <<'__6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18'); join("\n", map {" $_"} sort keys %data) . "\n"; __6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18 meta::function('make', <<'__8mAUcwqcvcEhgs6tEjHaIx3uF9QOC+9DAI7NmulvJ74'); compile(); view(); clean(); __8mAUcwqcvcEhgs6tEjHaIx3uF9QOC+9DAI7NmulvJ74 meta::function('mv', <<'__PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y'); my ($from, $to) = @_; messages::error("The '$from' attribute does not exist.") unless grep $from, keys %data; $data{$to} = $data{$from}; delete $data{$from}; __PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y meta::function('new', <<'__FQjehdFg7T3T2iHPMlGp6nAnrKAsQUIK5CXW02wNnos'); clone(@_); __FQjehdFg7T3T2iHPMlGp6nAnrKAsQUIK5CXW02wNnos meta::function('pull', <<'__ZU6uOu7dBdjjoNdEL/U7yrjicOQR5OLFQAacjrKqSCg'); my ($class_name) = @_; my @attributes = grep /^implementation::/, split /\n/, `$class_name ls-a`; for (@attributes) { s/^\s+//; s/\s+$//; print STDERR "Adding $_\n"; associate(basename($_), `$class_name cat "$_"`); } __ZU6uOu7dBdjjoNdEL/U7yrjicOQR5OLFQAacjrKqSCg meta::function('reload', <<'__GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM'); execute($_) for (grep {! (/^internal::/ || /^bootstrap::/)} keys %data); __GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM meta::function('rm', <<'__7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww'); for my $to_be_deleted (@_) { messages::warning("$to_be_deleted does not exist") unless grep {$_ eq $to_be_deleted} keys %data; } delete @data{@_}; __7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww meta::function('save', <<'__HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto'); my $serialized_data = serialize(); my $final_state = state(); my (undef, $temporary_filename) = tempfile("$0." . 'X' x 32, OPEN => 0); file::write($temporary_filename, $serialized_data); chmod 0700, $temporary_filename; my $observed_state = `perl $temporary_filename state`; chomp $observed_state; if ($observed_state ne $final_state) { messages::error("The state of this object ($final_state) is inconsistent with the state of $temporary_filename ($observed_state).\n" . "$0 has not been updated."); } else { file::write($0, $serialized_data); unlink $temporary_filename; } __HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto meta::function('serialize', <<'__KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw'); my @keys_without_internals = grep(!/^internal::/, sort keys %data); join "\n", $data{'bootstrap::initialization'}, (grep {$_} (map {serialize::single(@_)} grep(/^meta::/, @keys_without_internals), grep(!/^meta::/, @keys_without_internals), grep(/^internal::/, sort keys %data))), "__END__"; __KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw meta::function('shell', <<'__1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4'); use Term::ReadLine; my $term = new Term::ReadLine "$0 shell"; $term->ornaments(0); my $prompt = name() . '$ '; my $OUT = $term->OUT || \*STDOUT; while (defined ($_ = $term->readline($prompt))) { my $command_line = $_; my @args = split /\s+/; my $function_name = shift @args; return if $function_name eq 'exit'; if ($externalized_functions{$function_name}) { my $result = eval {&{$function_name}(@args)}; messages::warning($@) if $@; chomp $result; print $OUT $result, "\n" unless $@; } else { messages::warning("Command not found: $function_name"); } $term->addhistory($command_line) if $command_line; $prompt = name() . '$ '; } __1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4 meta::function('size', <<'__lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80'); length(serialize()); __lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80 meta::function('snapshot', <<'__qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0'); my ($name) = @_; file::write(my $finalname = state_based_filename($name), serialize(), noclobber => 1); chmod 0700, $finalname; __qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0 meta::function('state', <<'__1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI'); sha256_base64 serialize(); __1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI meta::function('unlock', <<'__08PohCY8fcNe+pWCO6ic6XOOKv48NkrxpNMmTOUIFdA'); my (undef, undef, $mode) = stat $0; chmod $mode | 0200, $0; __08PohCY8fcNe+pWCO6ic6XOOKv48NkrxpNMmTOUIFdA meta::function('update-vimrc', <<'__QweSkvdteATxlMZfDti3sl2iWNE+LbkHc1E7FkqNuCg'); open my $fh, '>>', "$ENV{'HOME'}/.vimrc"; print $fh "au BufRead,BufNewFile *.cltex set filetype=cltex"; close $fh; __QweSkvdteATxlMZfDti3sl2iWNE+LbkHc1E7FkqNuCg meta::function('usage', <<'__oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I'); <<"EOD" . join ' ', split /\n/, ls (); Usage: $0 [options] action [arguments] Defined actions: EOD __oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I meta::function('view', <<'__wEtlK5H0ttR24UvcFUsgg5Es1V/VbjMJlU+SKiO2jKs'); my $pdf_reader = &{'pdf-reader'}(); my $pdf_output_file = &{'pdf-output-file'}(); chomp $pdf_reader; system("$pdf_reader '$pdf_output_file'"); __wEtlK5H0ttR24UvcFUsgg5Es1V/VbjMJlU+SKiO2jKs meta::internal_function('associate', <<'__D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0'); my ($name, $value, %options) = @_; my $namespace = namespace($name); messages::error("Namespace $namespace does not exist") unless grep {$_ eq $namespace} @data_types; $data{$name} = $value; execute($name) if $options{'execute'}; __D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0 meta::internal_function('basename', <<'__T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw'); my ($name) = @_; $name =~ s/^[^:]*:://; $name; __T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw meta::internal_function('execute', <<'__FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE'); my ($name, %options) = @_; my $namespace = namespace($name); eval {&{"meta::$namespace"}(basename($name), retrieve($name))}; carp $@ if $@ && $options{'carp'}; __FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE meta::internal_function('file::read', <<'__ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg'); my $name = shift; open my($handle), "<", $name; my $result = join "", <$handle>; close $handle; $result; __ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg meta::internal_function('file::write', <<'__+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o'); my ($name, $contents, %options) = @_; die "Choosing not to overwrite file $name" if $options{'noclobber'} && -f $name; open my($handle), ">", $name or die "Can't open $name for writing"; print $handle $contents; close $handle; __+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o meta::internal_function('invoke_editor_on', <<'__97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U'); my ($data, %options) = @_; my $content_hash = sha256_base64($data); my $editor = $options{'editor'} || $ENV{'VISUAL'} || $ENV{'EDITOR'} || messages::error('Either the $VISUAL or $EDITOR environment variable should be set to a valid editor.'); my $options = $options{'options'} || $ENV{'VISUAL_OPTS'} || $ENV{'EDITOR_OPTS'} || ''; my $extension = $options{'extension'} || ''; my (undef, $filename) = tempfile("$0." . ("X" x 32), OPEN => 0); $filename .= $extension; file::write($filename, $data); system("$editor $options \"$filename\""); my $result = file::read($filename); unlink $filename; $result; __97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U meta::internal_function('messages::error', <<'__200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4'); my ($message) = @_; die "$message\n"; __200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4 meta::internal_function('messages::warning', <<'__DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc'); my ($message) = @_; print "$message\n"; __DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc meta::internal_function('namespace', <<'__D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug'); my ($name) = @_; $name =~ s/::.*$//; $name; __D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug meta::internal_function('retrieve', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::internal_function('serialize::single', <<'__lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE'); my $name = shift || $_; my $contents = $data{$name}; my $delimiter = "__" . sha256_base64 $contents; my $meta_function_name = "meta::" . namespace($name); my $invocation_name = basename $name; "$meta_function_name('$invocation_name', <<'$delimiter');\n$contents\n$delimiter\n"; __lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE meta::internal_function('state_based_filename', <<'__zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw'); my ($name) = @_; my $noise = $name || state(); $noise =~ s/\//-/g; "$0.$noise"; __zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw meta::line_filter('convert_header_info', <<'__1jqqbjBcdOqh/3nTKZSDbW1AgEo4kg0dQ5HdRAgxyzE'); my ($line) = @_; $line =~ s/^= (.*)$/\\title{$1}/; $line =~ s/^a (.*)$/\\author{$1}/; $line =~ s/^d (.*)$/\\date{$1}/; my $document_header = '\begin{document}\maketitle'; $document_header .= '\tableofcontents' if &{'table-of-contents'}(); $line =~ s/^begin$/$document_header/; $line; __1jqqbjBcdOqh/3nTKZSDbW1AgEo4kg0dQ5HdRAgxyzE meta::line_filter('convert_itemized_environments', <<'__ALAptDKGAFawh7jgFZo/RoW5oHCjUVEUEn68mWYAARw'); my ($line) = @_; $line =~ s/^\s*\+ /\\item /; $line =~ s/^\s*\+\[([^\]]*)\] /\\item[\1] /; $line =~ s/^\s*e\[$/\\begin{enumerate}/; $line =~ s/^\s*i\[$/\\begin{itemize}/; $line =~ s/^\s*d\[$/\\begin{description}/; $line =~ s/^\s*\]e$/\\end{enumerate}/; $line =~ s/^\s*\]i$/\\end{itemize}/; $line =~ s/^\s*\]d$/\\end{description}/; $line; __ALAptDKGAFawh7jgFZo/RoW5oHCjUVEUEn68mWYAARw meta::line_filter('convert_sections', <<'__lmhXPw+0a86ufxG3kCALtSl8Raqrt+7YZomx7zISUbw'); my ($line) = @_; my %indentation_levels = ( 0 => '\section', 2 => '\subsection', 4 => '\subsubsection', 6 => '\paragraph', 8 => '\subparagraph'); if ($line =~ /^(\s*)- (.*)$/) { my $section = $indentation_levels{length($1)} || die "Invalid indentation level:\n$_"; "${section} {${2}}"; } else { $line; } __lmhXPw+0a86ufxG3kCALtSl8Raqrt+7YZomx7zISUbw meta::unlit_converter('append_footer', <<'__xZrf+gAwEiK7btRcm+mwC/qtHsXp2FQ/Z8ZCwMvSw4Q'); my ($document) = @_; "$document\n\\end{document}"; __xZrf+gAwEiK7btRcm+mwC/qtHsXp2FQ/Z8ZCwMvSw4Q meta::unlit_converter('main', <<'__3D082OWBmT2cWw4D6ktyDGp1MHknawaTDW2B0gvZPyM'); my ($document) = @_; my $sections_already_encountered = 0; my $inside_code_block = 0; my $code_block_indentation = 0; my $code_section_name = ''; my $result = ''; for (split /\n/, $document) { # Handle code blocks. if (/^(\s*):\.$/) { $inside_code_block = $code_block_indentation = 0; for my $filter_name (grep /^code_filter::/, sort keys %data) { $_ = &$filter_name($_, name => $code_section_name, indentation => $code_block_indentation, end => 1); } } if ($inside_code_block) { my $spaces_to_delete = ' ' x $code_block_indentation; s/^$spaces_to_delete//; for my $filter_name (grep /^code_filter::/, sort keys %data) { $_ = &$filter_name($_, name => $code_section_name, indentation => $code_block_indentation); } } else { for my $filter_name (grep /^line_filter::/, sort keys %data) { $_ = &$filter_name($_); } } if (/^(\s*)::(\s.*)?$/) { $inside_code_block = 1; $code_block_indentation = length($1); $code_section_name = $2; for my $filter_name (grep /^code_filter::/, sort keys %data) { $_ = &$filter_name($_, name => $code_section_name, indentation => $code_block_indentation, begin => 1); } } $result .= "$_\n"; } $result; __3D082OWBmT2cWw4D6ktyDGp1MHknawaTDW2B0gvZPyM meta::unlit_converter('prepend_header', <<'__4YCmTeTBS/MGOkeIFkQRlLujLJ1g/qS0/0iCeanWkkw'); my ($document) = @_; header() . "\n$document"; __4YCmTeTBS/MGOkeIFkQRlLujLJ1g/qS0/0iCeanWkkw meta::internal('runtime', <<'__YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ'); my $initial_state = sha256_base64 serialize(); push @script_args, shift @ARGV while @ARGV && $ARGV[0] =~ /^-/; my $default_action = retrieve('data::default-action'); chomp $default_action; my $function_name = shift(@ARGV) || $default_action || 'usage'; $function_name = 'usage' unless $externalized_functions{$function_name}; my $result = &{$function_name}(@ARGV); chomp $result; print "$result\n" if $result; END { my $serialized_data = serialize(); my $final_state = sha256_base64 $serialized_data; save() unless $initial_state eq $final_state; } __YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ __END__ __OxT3ZMZk0rDYS3fxoGkTW0EQMj+XeZU5MU+hSc8awpM meta::file('objects/timesheet', <<'__O/0VT8xF6teBa3u5uSAndyXoPzQ/6gNDBY7luZigVRQ'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; meta::meta('datatypes::bootstrap', <<'__guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM'); meta::define_form 'bootstrap', sub {}; __guYWiOv4zBmdrlI3k3sW7f/q/xsX38Xvzz0dwwLCIRM meta::meta('datatypes::data', <<'__96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek'); meta::define_form 'data', sub { my ($name, undef) = @_; $externalized_functions{$name} = "data::$name"; *{$name} = sub { associate("data::$name", $_[1] || join('', )) if @_ > 0 && $_[0] eq '='; retrieve("data::$name"); }; }; __96H42jUO3qe63MqMco7Ih6e1BtrIcB+e18KFqPpfIek meta::meta('datatypes::function', <<'__XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0'); meta::define_form 'function', sub { my ($name, $value) = @_; $externalized_functions{$name} = "function::$name"; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __XSIHGGHv0Sh0JBj9KIrP/OzuuB2epyvn9pgtZyWE6t0 meta::meta('datatypes::internal_function', <<'__heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong'); meta::define_form 'internal_function', sub { my ($name, $value) = @_; *{$name} = eval "sub {\n$value\n}"; carp $@ if $@; }; __heBxmlI7O84FgR+9+ULeiCTWJ4hqd079Z02rZnl9Ong meta::meta('internal::runtime', <<'__Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA'); meta::define_form 'internal', \&meta::meta::implementation; __Nd6Dp1A6nL7yAGeoRfeZETeaW8vnPN8HI9Diqo66vDA meta::bootstrap('initialization', <<'__bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs'); #!/usr/bin/perl use File::Temp 'tempfile'; use Carp 'carp'; use Digest::SHA 'sha256_base64'; my %data; my %externalized_functions; my @data_types; my @script_args; sub meta::define_form { my ($namespace, $delegate) = @_; push @data_types, $namespace; *{"meta::${namespace}::implementation"} = $delegate; *{"meta::$namespace"} = sub { my ($name, $value) = @_; chomp $value; $data{"${namespace}::$name"} = $value; $delegate->($name, $value); }; } meta::define_form 'meta', sub { my ($name, $value) = @_; eval $value; carp $@ if $@; }; __bzFASokNzruPfsSIlwZC8OG4NFNI9EfmMYeL/oWGaDs meta::bootstrap('pod', <<'__0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o'); =head1 NAME object - Stateful file-based object =head1 SYNOPSYS object [options] action [arguments...] object shell =head1 DESCRIPTION Stateful objects preserve their state between executions by rewriting themselves. Each time the script exits it replaces its contents with its new state. Thus state management, for user-writable scripts, is completely transparent. An object rewrites itself only if its state has changed. This may seem like a dangerous operation, but some checks are put into place to ensure that it goes smoothly. First, the object is initially written to a separate file. Next, that file is executed and asked to provide a hashsum of its contents. The original object is rewritten only if that hashsum is correct. This ensures that the replacement object is functional and has the right data. Currently the only known way to lose your data is to edit the serialization-related functions in such a way that they no longer function. However, this is not something most people will normally do. In the future there may be a locking mechanism to prevent unintentional edits of these attributes. =cut __0h2CBA2cqa4qd6nox9dul6Jn9hcJFHw3uPdC89Xim7o meta::data('default-action', <<'__zmNcTqv/Xk9W26j7HjnKI1UwqitrGFM+7xrzhiAWxXc'); shell __zmNcTqv/Xk9W26j7HjnKI1UwqitrGFM+7xrzhiAWxXc meta::data('meta-associations', <<'__GGcLMIdIpQPyuKPkIVDso+D8DmmbfkaLqgG4z5YhJeA'); ^function:: .pl ^internal_function:: .pl ^meta:: .pl ^bootstrap:: .pl __GGcLMIdIpQPyuKPkIVDso+D8DmmbfkaLqgG4z5YhJeA meta::data('name', <<'__lt2Y2LOs08pjJC6uQYzodV6ZkX6V98YHz3BTeak4jc4'); timesheet __lt2Y2LOs08pjJC6uQYzodV6ZkX6V98YHz3BTeak4jc4 meta::data('times', <<'__AbpHGcgLb+kRsJGnwFEktk7uzpZOCcBY74+YBdrKVGs'); __AbpHGcgLb+kRsJGnwFEktk7uzpZOCcBY74+YBdrKVGs meta::function('add-to', <<'__KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q'); my ($filename) = @_; my @members = grep /^implementation::/, keys %data; for (@members) { my $destination_name = basename($_); open my($handle), "| $filename import $destination_name" or messages::error("Attribute $_ could not be written."); print $handle retrieve($_); close $handle; } __KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q meta::function('cat', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::function('clone', <<'__qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY'); for (@_) { if ($_) { eval { file::write($_, serialize(), noclobber => 1); chmod(0700, $_); print "File $_ cloned successfully.\n"; }; print "$@\n" if $@; } } __qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY meta::function('convert-to-csv', <<'__N4mlu4KLvs35DgiU887qqEExft/pQLqlWzZirc9N/1U'); my $times = retrieve('data::times'); my $minute_total = 0; my @new_lines; for my $line (split /\n+/, $times) { my @line_bits = split /\s{2,}/, $line; my $new_line = '"' . (join '","', @line_bits) . '"'; my @start_time = split /:/, $line_bits[1]; my @end_time = split /:/, $line_bits[2]; my $current_duration = ($end_time[0] - $start_time[0]) * 60 + $end_time[1] - $start_time[1]; $minute_total += $current_duration; push @new_lines, $new_line; } my $hour_total = 0; ++$hour_total, $minute_total -= 60 while $minute_total >= 60; my $formatted_minutes = sprintf '%02d', $minute_total; (join "\n", @new_lines) . "\n\"Total\",\"\",\"\",\"$hour_total:$formatted_minutes\""; __N4mlu4KLvs35DgiU887qqEExft/pQLqlWzZirc9N/1U meta::function('cp', <<'__yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4'); my ($from, $to) = @_; $data{$to} = $data{$from} if $data{$from}; messages::error("No such attribute $from") unless $data{$from}; $data{$from}; __yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4 meta::function('create', <<'__4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY'); my ($name, $value) = @_; messages::error("Attribute $name already exists.") if grep {$_ eq $name} keys %data; associate($name, $value || join('', ) || "\n"); __4e/yca7FeKtJK0U61l9uCtsCPTiznglZlwh6U3iRLvY meta::function('edit', <<'__OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ'); my ($name, %options) = @_; my $meta_extension = join '', grep { my $s = $_; $s =~ s/\s.*$//; $name =~ /$s/ } split /\n/, &{'meta-associations'}(); $meta_extension =~ s/^.*\s//; chomp $meta_extension; messages::error("Attribute $name does not exist.") unless grep {$_ eq $name} keys %data; associate($name, invoke_editor_on($data{$name} || "# Attribute $name", %options, extension => $meta_extension), execute => $name !~ /^internal::/ && $name !~ /^bootstrap::/); delete $data{$name} if length($data{$name}) == 0; save(); __OtbuwBGfWZZef+v2WP0gCvvxbtpyxi1FbVD11BTjZzQ meta::function('edit-times', <<'__5hy38e1mjTxFPn/pFfgcF9ftiZ1f/O1He8Z4mHJLXVA'); associate('data::times', invoke_editor_on(retrieve('data::times'), extension => 'times')); __5hy38e1mjTxFPn/pFfgcF9ftiZ1f/O1He8Z4mHJLXVA meta::function('exists', <<'__bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk'); my $name = shift; grep {$_ eq $name} keys %data; __bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk meta::function('grab', <<'__sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8'); my ($filename, @attribute_names) = @_; associate("implementation::$_", `$filename cat $_`) for @attribute_names; __sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8 meta::function('import', <<'__oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA'); my ($name) = @_; associate($name, join('', )); __oK2Kj5RYHcEUK0Iyiqu8w7zipbg+QNF4VO4hm7BkUNA meta::function('lock', <<'__VTyQSQauC4LFHxYTJhus499/qkzVt6stbxsovwA5kGs'); my (undef, undef, $mode) = stat $0; chmod $mode & 0555, $0; __VTyQSQauC4LFHxYTJhus499/qkzVt6stbxsovwA5kGs meta::function('ls', <<'__M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg'); join("\n", sort keys %externalized_functions); __M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg meta::function('ls-a', <<'__6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18'); join("\n", map {" $_"} sort keys %data) . "\n"; __6jKXRDXpIkzIOkcLtB2FOSTuZxqjBLyLZsF1vEmVn18 meta::function('mv', <<'__PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y'); my ($from, $to) = @_; messages::error("The '$from' attribute does not exist.") unless grep $from, keys %data; $data{$to} = $data{$from}; delete $data{$from}; __PY7iwIY+6QtPN4V5hV4MOImRJVAKDkMmEKtkN34cv5Y meta::function('pull', <<'__IIDq/dsWHEYECpYpzXqTvkcve38taGb7d0m+Vsq+TQk'); my ($class_name) = @_; my @attributes = grep /^implementation::/, split /\n/, `$class_name ls-a`; for (@attributes) { s/^\s+//; s/\s+$//; print STDERR "Adding $_\n"; associate(basename($_), `$class_name cat "$_"`); } __IIDq/dsWHEYECpYpzXqTvkcve38taGb7d0m+Vsq+TQk meta::function('reload', <<'__GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM'); execute($_) for (grep {! (/^internal::/ || /^bootstrap::/)} keys %data); __GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM meta::function('rm', <<'__7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww'); for my $to_be_deleted (@_) { messages::warning("$to_be_deleted does not exist") unless grep {$_ eq $to_be_deleted} keys %data; } delete @data{@_}; __7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww meta::function('save', <<'__HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto'); my $serialized_data = serialize(); my $final_state = state(); my (undef, $temporary_filename) = tempfile("$0." . 'X' x 32, OPEN => 0); file::write($temporary_filename, $serialized_data); chmod 0700, $temporary_filename; my $observed_state = `perl $temporary_filename state`; chomp $observed_state; if ($observed_state ne $final_state) { messages::error("The state of this object ($final_state) is inconsistent with the state of $temporary_filename ($observed_state).\n" . "$0 has not been updated."); } else { file::write($0, $serialized_data); unlink $temporary_filename; } __HuNR2A6/zt/GGZDRiR1x82a4nBxpAlIR1QGc4kUySto meta::function('serialize', <<'__KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw'); my @keys_without_internals = grep(!/^internal::/, sort keys %data); join "\n", $data{'bootstrap::initialization'}, (grep {$_} (map {serialize::single(@_)} grep(/^meta::/, @keys_without_internals), grep(!/^meta::/, @keys_without_internals), grep(/^internal::/, sort keys %data))), "__END__"; __KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw meta::function('shell', <<'__1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4'); use Term::ReadLine; my $term = new Term::ReadLine "$0 shell"; $term->ornaments(0); my $prompt = name() . '$ '; my $OUT = $term->OUT || \*STDOUT; while (defined ($_ = $term->readline($prompt))) { my $command_line = $_; my @args = split /\s+/; my $function_name = shift @args; return if $function_name eq 'exit'; if ($externalized_functions{$function_name}) { my $result = eval {&{$function_name}(@args)}; messages::warning($@) if $@; chomp $result; print $OUT $result, "\n" unless $@; } else { messages::warning("Command not found: $function_name"); } $term->addhistory($command_line) if $command_line; $prompt = name() . '$ '; } __1pX0YiaO1Jx8AIJ3/w6tbrNGcmnuuZfIo6840aq4bU4 meta::function('size', <<'__lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80'); length(serialize()); __lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80 meta::function('snapshot', <<'__qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0'); my ($name) = @_; file::write(my $finalname = state_based_filename($name), serialize(), noclobber => 1); chmod 0700, $finalname; __qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0 meta::function('state', <<'__1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI'); sha256_base64 serialize(); __1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI meta::function('unlock', <<'__2f3NoSvgge16m8wBuDokogr54ssy8D8fKdZ7+RtZitE'); my (undef, undef, $mode) = stat $0; chmod $mode | 0200, $0; __2f3NoSvgge16m8wBuDokogr54ssy8D8fKdZ7+RtZitE meta::function('usage', <<'__oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I'); <<"EOD" . join ' ', split /\n/, ls (); Usage: $0 [options] action [arguments] Defined actions: EOD __oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I meta::internal_function('associate', <<'__D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0'); my ($name, $value, %options) = @_; my $namespace = namespace($name); messages::error("Namespace $namespace does not exist") unless grep {$_ eq $namespace} @data_types; $data{$name} = $value; execute($name) if $options{'execute'}; __D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0 meta::internal_function('basename', <<'__T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw'); my ($name) = @_; $name =~ s/^[^:]*:://; $name; __T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw meta::internal_function('execute', <<'__FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE'); my ($name, %options) = @_; my $namespace = namespace($name); eval {&{"meta::$namespace"}(basename($name), retrieve($name))}; carp $@ if $@ && $options{'carp'}; __FfzmdPKSa4vnT4WNSN3uCxnwrUFKfkQbS6auoIa/SgE meta::internal_function('file::read', <<'__ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg'); my $name = shift; open my($handle), "<", $name; my $result = join "", <$handle>; close $handle; $result; __ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg meta::internal_function('file::write', <<'__+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o'); my ($name, $contents, %options) = @_; die "Choosing not to overwrite file $name" if $options{'noclobber'} && -f $name; open my($handle), ">", $name or die "Can't open $name for writing"; print $handle $contents; close $handle; __+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o meta::internal_function('invoke_editor_on', <<'__97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U'); my ($data, %options) = @_; my $content_hash = sha256_base64($data); my $editor = $options{'editor'} || $ENV{'VISUAL'} || $ENV{'EDITOR'} || messages::error('Either the $VISUAL or $EDITOR environment variable should be set to a valid editor.'); my $options = $options{'options'} || $ENV{'VISUAL_OPTS'} || $ENV{'EDITOR_OPTS'} || ''; my $extension = $options{'extension'} || ''; my (undef, $filename) = tempfile("$0." . ("X" x 32), OPEN => 0); $filename .= $extension; file::write($filename, $data); system("$editor $options \"$filename\""); my $result = file::read($filename); unlink $filename; $result; __97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U meta::internal_function('messages::error', <<'__200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4'); my ($message) = @_; die "$message\n"; __200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4 meta::internal_function('messages::warning', <<'__DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc'); my ($message) = @_; print "$message\n"; __DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc meta::internal_function('namespace', <<'__D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug'); my ($name) = @_; $name =~ s/::.*$//; $name; __D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug meta::internal_function('retrieve', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::internal_function('serialize::single', <<'__lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE'); my $name = shift || $_; my $contents = $data{$name}; my $delimiter = "__" . sha256_base64 $contents; my $meta_function_name = "meta::" . namespace($name); my $invocation_name = basename $name; "$meta_function_name('$invocation_name', <<'$delimiter');\n$contents\n$delimiter\n"; __lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE meta::internal_function('state_based_filename', <<'__zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw'); my ($name) = @_; my $noise = $name || state(); $noise =~ s/\//-/g; "$0.$noise"; __zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw meta::internal('runtime', <<'__YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ'); my $initial_state = sha256_base64 serialize(); push @script_args, shift @ARGV while @ARGV && $ARGV[0] =~ /^-/; my $default_action = retrieve('data::default-action'); chomp $default_action; my $function_name = shift(@ARGV) || $default_action || 'usage'; $function_name = 'usage' unless $externalized_functions{$function_name}; my $result = &{$function_name}(@ARGV); chomp $result; print "$result\n" if $result; END { my $serialized_data = serialize(); my $final_state = sha256_base64 $serialized_data; save() unless $initial_state eq $final_state; } __YPmIzwZkTg8URmPfjiwGRG4VDUF2ZCJqTEz+gjETYLQ __END__ __O/0VT8xF6teBa3u5uSAndyXoPzQ/6gNDBY7luZigVRQ meta::file('scripts/jquery.anchor.js', <<'__zvoIEvDYttNq/I50NKov2Mdde8EDaIU/7mwRMSi74Yc'); // jQuery anchor-based navigation plugin // Created by Spencer Tipping, licensed under the MIT source code license (function ($) { var state_changed_listeners = [] var the_current_state = document.location.hash $.anchor = { encodeURL: function (state) { var result = '' $.each (state, function (k) {result += k + '=' + this + '&'}) return '#' + result.replace (/&$/, '') }, decodeURL: function (anchor_part_of_url) { var result = {} $.each (anchor_part_of_url.replace (/^#/, '').split (/&/), function () { var pair = this.split (/=/) result[pair[0]] = pair[1] }) return result }, state: function (the_new_state) { if (the_new_state) return document.location.hash = $.anchor.encodeURL (the_new_state) else return $.anchor.decodeURL (document.location.hash) }, listen: function () { $.each (arguments, function () {state_changed_listeners.push (this)}) }, notify: function () { if (document.location.hash != the_current_state) { var the_new_state = $.anchor.decodeURL (the_current_state = document.location.hash) $.each (state_changed_listeners, function () { this.apply (the_new_state, []) }) } } } $(document).ready (function () { window.setInterval ($.anchor.notify, 100) }) }) (jQuery) __zvoIEvDYttNq/I50NKov2Mdde8EDaIU/7mwRMSi74Yc meta::file('scripts/jquery.js', <<'__yDcKLQUDWenVBazEEeb0V6SbITYKIebLySKbrTp2eJk'); /* * jQuery JavaScript Library v1.3.2 * http://jquery.com/ * * Copyright (c) 2009 John Resig * Dual licensed under the MIT and GPL licenses. * http://docs.jquery.com/License * * Date: 2009-02-19 17:34:21 -0500 (Thu, 19 Feb 2009) * Revision: 6246 */ (function(){var l=this,g,y=l.jQuery,p=l.$,o=l.jQuery=l.$=function(E,F){return new o.fn.init(E,F)},D=/^[^<]*(<(.|\s)+>)[^>]*$|^#([\w-]+)$/,f=/^.[^:#\[\.,]*$/;o.fn=o.prototype={init:function(E,H){E=E||document;if(E.nodeType){this[0]=E;this.length=1;this.context=E;return this}if(typeof E==="string"){var G=D.exec(E);if(G&&(G[1]||!H)){if(G[1]){E=o.clean([G[1]],H)}else{var I=document.getElementById(G[3]);if(I&&I.id!=G[3]){return o().find(E)}var F=o(I||[]);F.context=document;F.selector=E;return F}}else{return o(H).find(E)}}else{if(o.isFunction(E)){return o(document).ready(E)}}if(E.selector&&E.context){this.selector=E.selector;this.context=E.context}return this.setArray(o.isArray(E)?E:o.makeArray(E))},selector:"",jquery:"1.3.2",size:function(){return this.length},get:function(E){return E===g?Array.prototype.slice.call(this):this[E]},pushStack:function(F,H,E){var G=o(F);G.prevObject=this;G.context=this.context;if(H==="find"){G.selector=this.selector+(this.selector?" ":"")+E}else{if(H){G.selector=this.selector+"."+H+"("+E+")"}}return G},setArray:function(E){this.length=0;Array.prototype.push.apply(this,E);return this},each:function(F,E){return o.each(this,F,E)},index:function(E){return o.inArray(E&&E.jquery?E[0]:E,this)},attr:function(F,H,G){var E=F;if(typeof F==="string"){if(H===g){return this[0]&&o[G||"attr"](this[0],F)}else{E={};E[F]=H}}return this.each(function(I){for(F in E){o.attr(G?this.style:this,F,o.prop(this,E[F],G,I,F))}})},css:function(E,F){if((E=="width"||E=="height")&&parseFloat(F)<0){F=g}return this.attr(E,F,"curCSS")},text:function(F){if(typeof F!=="object"&&F!=null){return this.empty().append((this[0]&&this[0].ownerDocument||document).createTextNode(F))}var E="";o.each(F||this,function(){o.each(this.childNodes,function(){if(this.nodeType!=8){E+=this.nodeType!=1?this.nodeValue:o.fn.text([this])}})});return E},wrapAll:function(E){if(this[0]){var F=o(E,this[0].ownerDocument).clone();if(this[0].parentNode){F.insertBefore(this[0])}F.map(function(){var G=this;while(G.firstChild){G=G.firstChild}return G}).append(this)}return this},wrapInner:function(E){return this.each(function(){o(this).contents().wrapAll(E)})},wrap:function(E){return this.each(function(){o(this).wrapAll(E)})},append:function(){return this.domManip(arguments,true,function(E){if(this.nodeType==1){this.appendChild(E)}})},prepend:function(){return this.domManip(arguments,true,function(E){if(this.nodeType==1){this.insertBefore(E,this.firstChild)}})},before:function(){return this.domManip(arguments,false,function(E){this.parentNode.insertBefore(E,this)})},after:function(){return this.domManip(arguments,false,function(E){this.parentNode.insertBefore(E,this.nextSibling)})},end:function(){return this.prevObject||o([])},push:[].push,sort:[].sort,splice:[].splice,find:function(E){if(this.length===1){var F=this.pushStack([],"find",E);F.length=0;o.find(E,this[0],F);return F}else{return this.pushStack(o.unique(o.map(this,function(G){return o.find(E,G)})),"find",E)}},clone:function(G){var E=this.map(function(){if(!o.support.noCloneEvent&&!o.isXMLDoc(this)){var I=this.outerHTML;if(!I){var J=this.ownerDocument.createElement("div");J.appendChild(this.cloneNode(true));I=J.innerHTML}return o.clean([I.replace(/ jQuery\d+="(?:\d+|null)"/g,"").replace(/^\s*/,"")])[0]}else{return this.cloneNode(true)}});if(G===true){var H=this.find("*").andSelf(),F=0;E.find("*").andSelf().each(function(){if(this.nodeName!==H[F].nodeName){return}var I=o.data(H[F],"events");for(var K in I){for(var J in I[K]){o.event.add(this,K,I[K][J],I[K][J].data)}}F++})}return E},filter:function(E){return this.pushStack(o.isFunction(E)&&o.grep(this,function(G,F){return E.call(G,F)})||o.multiFilter(E,o.grep(this,function(F){return F.nodeType===1})),"filter",E)},closest:function(E){var G=o.expr.match.POS.test(E)?o(E):null,F=0;return this.map(function(){var H=this;while(H&&H.ownerDocument){if(G?G.index(H)>-1:o(H).is(E)){o.data(H,"closest",F);return H}H=H.parentNode;F++}})},not:function(E){if(typeof E==="string"){if(f.test(E)){return this.pushStack(o.multiFilter(E,this,true),"not",E)}else{E=o.multiFilter(E,this)}}var F=E.length&&E[E.length-1]!==g&&!E.nodeType;return this.filter(function(){return F?o.inArray(this,E)<0:this!=E})},add:function(E){return this.pushStack(o.unique(o.merge(this.get(),typeof E==="string"?o(E):o.makeArray(E))))},is:function(E){return !!E&&o.multiFilter(E,this).length>0},hasClass:function(E){return !!E&&this.is("."+E)},val:function(K){if(K===g){var E=this[0];if(E){if(o.nodeName(E,"option")){return(E.attributes.value||{}).specified?E.value:E.text}if(o.nodeName(E,"select")){var I=E.selectedIndex,L=[],M=E.options,H=E.type=="select-one";if(I<0){return null}for(var F=H?I:0,J=H?I+1:M.length;F=0||o.inArray(this.name,K)>=0)}else{if(o.nodeName(this,"select")){var N=o.makeArray(K);o("option",this).each(function(){this.selected=(o.inArray(this.value,N)>=0||o.inArray(this.text,N)>=0)});if(!N.length){this.selectedIndex=-1}}else{this.value=K}}})},html:function(E){return E===g?(this[0]?this[0].innerHTML.replace(/ jQuery\d+="(?:\d+|null)"/g,""):null):this.empty().append(E)},replaceWith:function(E){return this.after(E).remove()},eq:function(E){return this.slice(E,+E+1)},slice:function(){return this.pushStack(Array.prototype.slice.apply(this,arguments),"slice",Array.prototype.slice.call(arguments).join(","))},map:function(E){return this.pushStack(o.map(this,function(G,F){return E.call(G,F,G)}))},andSelf:function(){return this.add(this.prevObject)},domManip:function(J,M,L){if(this[0]){var I=(this[0].ownerDocument||this[0]).createDocumentFragment(),F=o.clean(J,(this[0].ownerDocument||this[0]),I),H=I.firstChild;if(H){for(var G=0,E=this.length;G1||G>0?I.cloneNode(true):I)}}if(F){o.each(F,z)}}return this;function K(N,O){return M&&o.nodeName(N,"table")&&o.nodeName(O,"tr")?(N.getElementsByTagName("tbody")[0]||N.appendChild(N.ownerDocument.createElement("tbody"))):N}}};o.fn.init.prototype=o.fn;function z(E,F){if(F.src){o.ajax({url:F.src,async:false,dataType:"script"})}else{o.globalEval(F.text||F.textContent||F.innerHTML||"")}if(F.parentNode){F.parentNode.removeChild(F)}}function e(){return +new Date}o.extend=o.fn.extend=function(){var J=arguments[0]||{},H=1,I=arguments.length,E=false,G;if(typeof J==="boolean"){E=J;J=arguments[1]||{};H=2}if(typeof J!=="object"&&!o.isFunction(J)){J={}}if(I==H){J=this;--H}for(;H-1}},swap:function(H,G,I){var E={};for(var F in G){E[F]=H.style[F];H.style[F]=G[F]}I.call(H);for(var F in G){H.style[F]=E[F]}},css:function(H,F,J,E){if(F=="width"||F=="height"){var L,G={position:"absolute",visibility:"hidden",display:"block"},K=F=="width"?["Left","Right"]:["Top","Bottom"];function I(){L=F=="width"?H.offsetWidth:H.offsetHeight;if(E==="border"){return}o.each(K,function(){if(!E){L-=parseFloat(o.curCSS(H,"padding"+this,true))||0}if(E==="margin"){L+=parseFloat(o.curCSS(H,"margin"+this,true))||0}else{L-=parseFloat(o.curCSS(H,"border"+this+"Width",true))||0}})}if(H.offsetWidth!==0){I()}else{o.swap(H,G,I)}return Math.max(0,Math.round(L))}return o.curCSS(H,F,J)},curCSS:function(I,F,G){var L,E=I.style;if(F=="opacity"&&!o.support.opacity){L=o.attr(E,"opacity");return L==""?"1":L}if(F.match(/float/i)){F=w}if(!G&&E&&E[F]){L=E[F]}else{if(q.getComputedStyle){if(F.match(/float/i)){F="float"}F=F.replace(/([A-Z])/g,"-$1").toLowerCase();var M=q.getComputedStyle(I,null);if(M){L=M.getPropertyValue(F)}if(F=="opacity"&&L==""){L="1"}}else{if(I.currentStyle){var J=F.replace(/\-(\w)/g,function(N,O){return O.toUpperCase()});L=I.currentStyle[F]||I.currentStyle[J];if(!/^\d+(px)?$/i.test(L)&&/^\d/.test(L)){var H=E.left,K=I.runtimeStyle.left;I.runtimeStyle.left=I.currentStyle.left;E.left=L||0;L=E.pixelLeft+"px";E.left=H;I.runtimeStyle.left=K}}}}return L},clean:function(F,K,I){K=K||document;if(typeof K.createElement==="undefined"){K=K.ownerDocument||K[0]&&K[0].ownerDocument||document}if(!I&&F.length===1&&typeof F[0]==="string"){var H=/^<(\w+)\s*\/?>$/.exec(F[0]);if(H){return[K.createElement(H[1])]}}var G=[],E=[],L=K.createElement("div");o.each(F,function(P,S){if(typeof S==="number"){S+=""}if(!S){return}if(typeof S==="string"){S=S.replace(/(<(\w+)[^>]*?)\/>/g,function(U,V,T){return T.match(/^(abbr|br|col|img|input|link|meta|param|hr|area|embed)$/i)?U:V+">"});var O=S.replace(/^\s+/,"").substring(0,10).toLowerCase();var Q=!O.indexOf("",""]||!O.indexOf("",""]||O.match(/^<(thead|tbody|tfoot|colg|cap)/)&&[1,"","

"]||!O.indexOf("",""]||(!O.indexOf("",""]||!O.indexOf("",""]||!o.support.htmlSerialize&&[1,"div

","

"]||[0,"",""];L.innerHTML=Q[1]+S+Q[2];while(Q[0]--){L=L.lastChild}if(!o.support.tbody){var R=/"&&!R?L.childNodes:[];for(var M=N.length-1;M>=0;--M){if(o.nodeName(N[M],"tbody")&&!N[M].childNodes.length){N[M].parentNode.removeChild(N[M])}}}if(!o.support.leadingWhitespace&&/^\s/.test(S)){L.insertBefore(K.createTextNode(S.match(/^\s*/)[0]),L.firstChild)}S=o.makeArray(L.childNodes)}if(S.nodeType){G.push(S)}else{G=o.merge(G,S)}});if(I){for(var J=0;G[J];J++){if(o.nodeName(G[J],"script")&&(!G[J].type||G[J].type.toLowerCase()==="text/javascript")){E.push(G[J].parentNode?G[J].parentNode.removeChild(G[J]):G[J])}else{if(G[J].nodeType===1){G.splice.apply(G,[J+1,0].concat(o.makeArray(G[J].getElementsByTagName("script"))))}I.appendChild(G[J])}}return E}return G},attr:function(J,G,K){if(!J||J.nodeType==3||J.nodeType==8){return g}var H=!o.isXMLDoc(J),L=K!==g;G=H&&o.props[G]||G;if(J.tagName){var F=/href|src|style/.test(G);if(G=="selected"&&J.parentNode){J.parentNode.selectedIndex}if(G in J&&H&&!F){if(L){if(G=="type"&&o.nodeName(J,"input")&&J.parentNode){throw"type property can't be changed"}J[G]=K}if(o.nodeName(J,"form")&&J.getAttributeNode(G)){return J.getAttributeNode(G).nodeValue}if(G=="tabIndex"){var I=J.getAttributeNode("tabIndex");return I&&I.specified?I.value:J.nodeName.match(/(button|input|object|select|textarea)/i)?0:J.nodeName.match(/^(a|area)$/i)&&J.href?0:g}return J[G]}if(!o.support.style&&H&&G=="style"){return o.attr(J.style,"cssText",K)}if(L){J.setAttribute(G,""+K)}var E=!o.support.hrefNormalized&&H&&F?J.getAttribute(G,2):J.getAttribute(G);return E===null?g:E}if(!o.support.opacity&&G=="opacity"){if(L){J.zoom=1;J.filter=(J.filter||"").replace(/alpha$[^)]*$/,"")+(parseInt(K)+""=="NaN"?"":"alpha(opacity="+K*100+")")}return J.filter&&J.filter.indexOf("opacity=")>=0?(parseFloat(J.filter.match(/opacity=([^)]*)/)[1])/100)+"":""}G=G.replace(/-([a-z])/ig,function(M,N){return N.toUpperCase()});if(L){J[G]=K}return J[G]},trim:function(E){return(E||"").replace(/^\s+|\s+$/g,"")},makeArray:function(G){var E=[];if(G!=null){var F=G.length;if(F==null||typeof G==="string"||o.isFunction(G)||G.setInterval){E[0]=G}else{while(F){E[--F]=G[F]}}}return E},inArray:function(G,H){for(var E=0,F=H.length;E0?this.clone(true):this).get();o.fn[F].apply(o(L[K]),I);J=J.concat(I)}return this.pushStack(J,E,G)}});o.each({removeAttr:function(E){o.attr(this,E,"");if(this.nodeType==1){this.removeAttribute(E)}},addClass:function(E){o.className.add(this,E)},removeClass:function(E){o.className.remove(this,E)},toggleClass:function(F,E){if(typeof E!=="boolean"){E=!o.className.has(this,F)}o.className[E?"add":"remove"](this,F)},remove:function(E){if(!E||o.filter(E,[this]).length){o("*",this).add([this]).each(function(){o.event.remove(this);o.removeData(this)});if(this.parentNode){this.parentNode.removeChild(this)}}},empty:function(){o(this).children().remove();while(this.firstChild){this.removeChild(this.firstChild)}}},function(E,F){o.fn[E]=function(){return this.each(F,arguments)}});function j(E,F){return E[0]&&parseInt(o.curCSS(E[0],F,true),10)||0}var h="jQuery"+e(),v=0,A={};o.extend({cache:{},data:function(F,E,G){F=F==l?A:F;var H=F[h];if(!H){H=F[h]=++v}if(E&&!o.cache[H]){o.cache[H]={}}if(G!==g){o.cache[H][E]=G}return E?o.cache[H][E]:H},removeData:function(F,E){F=F==l?A:F;var H=F[h];if(E){if(o.cache[H]){delete o.cache[H][E];E="";for(E in o.cache[H]){break}if(!E){o.removeData(F)}}}else{try{delete F[h]}catch(G){if(F.removeAttribute){F.removeAttribute(h)}}delete o.cache[H]}},queue:function(F,E,H){if(F){E=(E||"fx")+"queue";var G=o.data(F,E);if(!G||o.isArray(H)){G=o.data(F,E,o.makeArray(H))}else{if(H){G.push(H)}}}return G},dequeue:function(H,G){var E=o.queue(H,G),F=E.shift();if(!G||G==="fx"){F=E[0]}if(F!==g){F.call(H)}}});o.fn.extend({data:function(E,G){var H=E.split(".");H[1]=H[1]?"."+H[1]:"";if(G===g){var F=this.triggerHandler("getData"+H[1]+"!",[H[0]]);if(F===g&&this.length){F=o.data(this[0],E)}return F===g&&H[1]?this.data(H[0]):F}else{return this.trigger("setData"+H[1]+"!",[H[0],G]).each(function(){o.data(this,E,G)})}},removeData:function(E){return this.each(function(){o.removeData(this,E)})},queue:function(E,F){if(typeof E!=="string"){F=E;E="fx"}if(F===g){return o.queue(this[0],E)}return this.each(function(){var G=o.queue(this,E,F);if(E=="fx"&&G.length==1){G[0].call(this)}})},dequeue:function(E){return this.each(function(){o.dequeue(this,E)})}}); /* * Sizzle CSS Selector Engine - v0.9.3 * Copyright 2009, The Dojo Foundation * Released under the MIT, BSD, and GPL Licenses. * More information: http://sizzlejs.com/ */ (function(){var R=/((?:$(?:\([^()]+$|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?/g,L=0,H=Object.prototype.toString;var F=function(Y,U,ab,ac){ab=ab||[];U=U||document;if(U.nodeType!==1&&U.nodeType!==9){return[]}if(!Y||typeof Y!=="string"){return ab}var Z=[],W,af,ai,T,ad,V,X=true;R.lastIndex=0;while((W=R.exec(Y))!==null){Z.push(W[1]);if(W[2]){V=RegExp.rightContext;break}}if(Z.length>1&&M.exec(Y)){if(Z.length===2&&I.relative[Z[0]]){af=J(Z[0]+Z[1],U)}else{af=I.relative[Z[0]]?[U]:F(Z.shift(),U);while(Z.length){Y=Z.shift();if(I.relative[Y]){Y+=Z.shift()}af=J(Y,af)}}}else{var ae=ac?{expr:Z.pop(),set:E(ac)}:F.find(Z.pop(),Z.length===1&&U.parentNode?U.parentNode:U,Q(U));af=F.filter(ae.expr,ae.set);if(Z.length>0){ai=E(af)}else{X=false}while(Z.length){var ah=Z.pop(),ag=ah;if(!I.relative[ah]){ah=""}else{ag=Z.pop()}if(ag==null){ag=U}I.relative[ah](ai,ag,Q(U))}}if(!ai){ai=af}if(!ai){throw"Syntax error, unrecognized expression: "+(ah||Y)}if(H.call(ai)==="[object Array]"){if(!X){ab.push.apply(ab,ai)}else{if(U.nodeType===1){for(var aa=0;ai[aa]!=null;aa++){if(ai[aa]&&(ai[aa]===true||ai[aa].nodeType===1&&K(U,ai[aa]))){ab.push(af[aa])}}}else{for(var aa=0;ai[aa]!=null;aa++){if(ai[aa]&&ai[aa].nodeType===1){ab.push(af[aa])}}}}}else{E(ai,ab)}if(V){F(V,U,ab,ac);if(G){hasDuplicate=false;ab.sort(G);if(hasDuplicate){for(var aa=1;aa":function(Z,U,aa){var X=typeof U==="string";if(X&&!/\W/.test(U)){U=aa?U:U.toUpperCase();for(var V=0,T=Z.length;V=0)){if(!V){T.push(Y)}}else{if(V){U[X]=false}}}}return false},ID:function(T){return T[1].replace(/\\/g,"")},TAG:function(U,T){for(var V=0;T[V]===false;V++){}return T[V]&&Q(T[V])?U[1]:U[1].toUpperCase()},CHILD:function(T){if(T[1]=="nth"){var U=/(-?)(\d*)n((?:\+|-)?\d*)/.exec(T[2]=="even"&&"2n"||T[2]=="odd"&&"2n+1"||!/\D/.test(T[2])&&"0n+"+T[2]||T[2]);T[2]=(U[1]+(U[2]||1))-0;T[3]=U[3]-0}T[0]=L++;return T},ATTR:function(X,U,V,T,Y,Z){var W=X[1].replace(/\\/g,"");if(!Z&&I.attrMap[W]){X[1]=I.attrMap[W]}if(X[2]==="~="){X[4]=" "+X[4]+" "}return X},PSEUDO:function(X,U,V,T,Y){if(X[1]==="not"){if(X[3].match(R).length>1||/^\w/.test(X[3])){X[3]=F(X[3],null,null,U)}else{var W=F.filter(X[3],U,V,true^Y);if(!V){T.push.apply(T,W)}return false}}else{if(I.match.POS.test(X[0])||I.match.CHILD.test(X[0])){return true}}return X},POS:function(T){T.unshift(true);return T}},filters:{enabled:function(T){return T.disabled===false&&T.type!=="hidden"},disabled:function(T){return T.disabled===true},checked:function(T){return T.checked===true},selected:function(T){T.parentNode.selectedIndex;return T.selected===true},parent:function(T){return !!T.firstChild},empty:function(T){return !T.firstChild},has:function(V,U,T){return !!F(T[3],V).length},header:function(T){return/h\d/i.test(T.nodeName)},text:function(T){return"text"===T.type},radio:function(T){return"radio"===T.type},checkbox:function(T){return"checkbox"===T.type},file:function(T){return"file"===T.type},password:function(T){return"password"===T.type},submit:function(T){return"submit"===T.type},image:function(T){return"image"===T.type},reset:function(T){return"reset"===T.type},button:function(T){return"button"===T.type||T.nodeName.toUpperCase()==="BUTTON"},input:function(T){return/input|select|textarea|button/i.test(T.nodeName)}},setFilters:{first:function(U,T){return T===0},last:function(V,U,T,W){return U===W.length-1},even:function(U,T){return T%2===0},odd:function(U,T){return T%2===1},lt:function(V,U,T){return UT[3]-0},nth:function(V,U,T){return T[3]-0==U},eq:function(V,U,T){return T[3]-0==U}},filter:{PSEUDO:function(Z,V,W,aa){var U=V[1],X=I.filters[U];if(X){return X(Z,W,V,aa)}else{if(U==="contains"){return(Z.textContent||Z.innerText||"").indexOf(V[3])>=0}else{if(U==="not"){var Y=V[3];for(var W=0,T=Y.length;W=0)}}},ID:function(U,T){return U.nodeType===1&&U.getAttribute("id")===T},TAG:function(U,T){return(T==="*"&&U.nodeType===1)||U.nodeName===T},CLASS:function(U,T){return(" "+(U.className||U.getAttribute("class"))+" ").indexOf(T)>-1},ATTR:function(Y,W){var V=W[1],T=I.attrHandle[V]?I.attrHandle[V](Y):Y[V]!=null?Y[V]:Y.getAttribute(V),Z=T+"",X=W[2],U=W[4];return T==null?X==="!=":X==="="?Z===U:X==="*="?Z.indexOf(U)>=0:X==="~="?(" "+Z+" ").indexOf(U)>=0:!U?Z&&T!==false:X==="!="?Z!=U:X==="^="?Z.indexOf(U)===0:X==="$="?Z.substr(Z.length-U.length)===U:X==="|="?Z===U||Z.substr(0,U.length+1)===U+"-":false},POS:function(X,U,V,Y){var T=U[2],W=I.setFilters[T];if(W){return W(X,V,U,Y)}}}};var M=I.match.POS;for(var O in I.match){I.match[O]=RegExp(I.match[O].source+/(?![^\[]*\])(?![^$]*$)/.source)}var E=function(U,T){U=Array.prototype.slice.call(U);if(T){T.push.apply(T,U);return T}return U};try{Array.prototype.slice.call(document.documentElement.childNodes)}catch(N){E=function(X,W){var U=W||[];if(H.call(X)==="[object Array]"){Array.prototype.push.apply(U,X)}else{if(typeof X.length==="number"){for(var V=0,T=X.length;V";var T=document.documentElement;T.insertBefore(U,T.firstChild);if(!!document.getElementById(V)){I.find.ID=function(X,Y,Z){if(typeof Y.getElementById!=="undefined"&&!Z){var W=Y.getElementById(X[1]);return W?W.id===X[1]||typeof W.getAttributeNode!=="undefined"&&W.getAttributeNode("id").nodeValue===X[1]?[W]:g:[]}};I.filter.ID=function(Y,W){var X=typeof Y.getAttributeNode!=="undefined"&&Y.getAttributeNode("id");return Y.nodeType===1&&X&&X.nodeValue===W}}T.removeChild(U)})();(function(){var T=document.createElement("div");T.appendChild(document.createComment(""));if(T.getElementsByTagName("*").length>0){I.find.TAG=function(U,Y){var X=Y.getElementsByTagName(U[1]);if(U[1]==="*"){var W=[];for(var V=0;X[V];V++){if(X[V].nodeType===1){W.push(X[V])}}X=W}return X}}T.innerHTML="";if(T.firstChild&&typeof T.firstChild.getAttribute!=="undefined"&&T.firstChild.getAttribute("href")!=="#"){I.attrHandle.href=function(U){return U.getAttribute("href",2)}}})();if(document.querySelectorAll){(function(){var T=F,U=document.createElement("div");U.innerHTML="

";if(U.querySelectorAll&&U.querySelectorAll(".TEST").length===0){return}F=function(Y,X,V,W){X=X||document;if(!W&&X.nodeType===9&&!Q(X)){try{return E(X.querySelectorAll(Y),V)}catch(Z){}}return T(Y,X,V,W)};F.find=T.find;F.filter=T.filter;F.selectors=T.selectors;F.matches=T.matches})()}if(document.getElementsByClassName&&document.documentElement.getElementsByClassName){(function(){var T=document.createElement("div");T.innerHTML="

";if(T.getElementsByClassName("e").length===0){return}T.lastChild.className="e";if(T.getElementsByClassName("e").length===1){return}I.order.splice(1,0,"CLASS");I.find.CLASS=function(U,V,W){if(typeof V.getElementsByClassName!=="undefined"&&!W){return V.getElementsByClassName(U[1])}}})()}function P(U,Z,Y,ad,aa,ac){var ab=U=="previousSibling"&&!ac;for(var W=0,V=ad.length;W0){X=T;break}}}T=T[U]}ad[W]=X}}}var K=document.compareDocumentPosition?function(U,T){return U.compareDocumentPosition(T)&16}:function(U,T){return U!==T&&(U.contains?U.contains(T):true)};var Q=function(T){return T.nodeType===9&&T.documentElement.nodeName!=="HTML"||!!T.ownerDocument&&Q(T.ownerDocument)};var J=function(T,aa){var W=[],X="",Y,V=aa.nodeType?[aa]:aa;while((Y=I.match.PSEUDO.exec(T))){X+=Y[0];T=T.replace(I.match.PSEUDO,"")}T=I.relative[T]?T+"*":T;for(var Z=0,U=V.length;Z0||T.offsetHeight>0};F.selectors.filters.animated=function(T){return o.grep(o.timers,function(U){return T===U.elem}).length};o.multiFilter=function(V,T,U){if(U){V=":not("+V+")"}return F.matches(V,T)};o.dir=function(V,U){var T=[],W=V[U];while(W&&W!=document){if(W.nodeType==1){T.push(W)}W=W[U]}return T};o.nth=function(X,T,V,W){T=T||1;var U=0;for(;X;X=X[V]){if(X.nodeType==1&&++U==T){break}}return X};o.sibling=function(V,U){var T=[];for(;V;V=V.nextSibling){if(V.nodeType==1&&V!=U){T.push(V)}}return T};return;l.Sizzle=F})();o.event={add:function(I,F,H,K){if(I.nodeType==3||I.nodeType==8){return}if(I.setInterval&&I!=l){I=l}if(!H.guid){H.guid=this.guid++}if(K!==g){var G=H;H=this.proxy(G);H.data=K}var E=o.data(I,"events")||o.data(I,"events",{}),J=o.data(I,"handle")||o.data(I,"handle",function(){return typeof o!=="undefined"&&!o.event.triggered?o.event.handle.apply(arguments.callee.elem,arguments):g});J.elem=I;o.each(F.split(/\s+/),function(M,N){var O=N.split(".");N=O.shift();H.type=O.slice().sort().join(".");var L=E[N];if(o.event.specialAll[N]){o.event.specialAll[N].setup.call(I,K,O)}if(!L){L=E[N]={};if(!o.event.special[N]||o.event.special[N].setup.call(I,K,O)===false){if(I.addEventListener){I.addEventListener(N,J,false)}else{if(I.attachEvent){I.attachEvent("on"+N,J)}}}}L[H.guid]=H;o.event.global[N]=true});I=null},guid:1,global:{},remove:function(K,H,J){if(K.nodeType==3||K.nodeType==8){return}var G=o.data(K,"events"),F,E;if(G){if(H===g||(typeof H==="string"&&H.charAt(0)==".")){for(var I in G){this.remove(K,I+(H||""))}}else{if(H.type){J=H.handler;H=H.type}o.each(H.split(/\s+/),function(M,O){var Q=O.split(".");O=Q.shift();var N=RegExp("(^|\\.)"+Q.slice().sort().join(".*\\.")+"(\\.|$)");if(G[O]){if(J){delete G[O][J.guid]}else{for(var P in G[O]){if(N.test(G[O][P].type)){delete G[O][P]}}}if(o.event.specialAll[O]){o.event.specialAll[O].teardown.call(K,Q)}for(F in G[O]){break}if(!F){if(!o.event.special[O]||o.event.special[O].teardown.call(K,Q)===false){if(K.removeEventListener){K.removeEventListener(O,o.data(K,"handle"),false)}else{if(K.detachEvent){K.detachEvent("on"+O,o.data(K,"handle"))}}}F=null;delete G[O]}}})}for(F in G){break}if(!F){var L=o.data(K,"handle");if(L){L.elem=null}o.removeData(K,"events");o.removeData(K,"handle")}}},trigger:function(I,K,H,E){var G=I.type||I;if(!E){I=typeof I==="object"?I[h]?I:o.extend(o.Event(G),I):o.Event(G);if(G.indexOf("!")>=0){I.type=G=G.slice(0,-1);I.exclusive=true}if(!H){I.stopPropagation();if(this.global[G]){o.each(o.cache,function(){if(this.events&&this.events[G]){o.event.trigger(I,K,this.handle.elem)}})}}if(!H||H.nodeType==3||H.nodeType==8){return g}I.result=g;I.target=H;K=o.makeArray(K);K.unshift(I)}I.currentTarget=H;var J=o.data(H,"handle");if(J){J.apply(H,K)}if((!H[G]||(o.nodeName(H,"a")&&G=="click"))&&H["on"+G]&&H["on"+G].apply(H,K)===false){I.result=false}if(!E&&H[G]&&!I.isDefaultPrevented()&&!(o.nodeName(H,"a")&&G=="click")){this.triggered=true;try{H[G]()}catch(L){}}this.triggered=false;if(!I.isPropagationStopped()){var F=H.parentNode||H.ownerDocument;if(F){o.event.trigger(I,K,F,true)}}},handle:function(K){var J,E;K=arguments[0]=o.event.fix(K||l.event);K.currentTarget=this;var L=K.type.split(".");K.type=L.shift();J=!L.length&&!K.exclusive;var I=RegExp("(^|\\.)"+L.slice().sort().join(".*\\.")+"(\\.|$)");E=(o.data(this,"events")||{})[K.type];for(var G in E){var H=E[G];if(J||I.test(H.type)){K.handler=H;K.data=H.data;var F=H.apply(this,arguments);if(F!==g){K.result=F;if(F===false){K.preventDefault();K.stopPropagation()}}if(K.isImmediatePropagationStopped()){break}}}},props:"altKey attrChange attrName bubbles button cancelable charCode clientX clientY ctrlKey currentTarget data detail eventPhase fromElement handler keyCode metaKey newValue originalTarget pageX pageY prevValue relatedNode relatedTarget screenX screenY shiftKey srcElement target toElement view wheelDelta which".split(" "),fix:function(H){if(H[h]){return H}var F=H;H=o.Event(F);for(var G=this.props.length,J;G;){J=this.props[--G];H[J]=F[J]}if(!H.target){H.target=H.srcElement||document}if(H.target.nodeType==3){H.target=H.target.parentNode}if(!H.relatedTarget&&H.fromElement){H.relatedTarget=H.fromElement==H.target?H.toElement:H.fromElement}if(H.pageX==null&&H.clientX!=null){var I=document.documentElement,E=document.body;H.pageX=H.clientX+(I&&I.scrollLeft||E&&E.scrollLeft||0)-(I.clientLeft||0);H.pageY=H.clientY+(I&&I.scrollTop||E&&E.scrollTop||0)-(I.clientTop||0)}if(!H.which&&((H.charCode||H.charCode===0)?H.charCode:H.keyCode)){H.which=H.charCode||H.keyCode}if(!H.metaKey&&H.ctrlKey){H.metaKey=H.ctrlKey}if(!H.which&&H.button){H.which=(H.button&1?1:(H.button&2?3:(H.button&4?2:0)))}return H},proxy:function(F,E){E=E||function(){return F.apply(this,arguments)};E.guid=F.guid=F.guid||E.guid||this.guid++;return E},special:{ready:{setup:B,teardown:function(){}}},specialAll:{live:{setup:function(E,F){o.event.add(this,F[0],c)},teardown:function(G){if(G.length){var E=0,F=RegExp("(^|\\.)"+G[0]+"(\\.|$)");o.each((o.data(this,"events").live||{}),function(){if(F.test(this.type)){E++}});if(E<1){o.event.remove(this,G[0],c)}}}}}};o.Event=function(E){if(!this.preventDefault){return new o.Event(E)}if(E&&E.type){this.originalEvent=E;this.type=E.type}else{this.type=E}this.timeStamp=e();this[h]=true};function k(){return false}function u(){return true}o.Event.prototype={preventDefault:function(){this.isDefaultPrevented=u;var E=this.originalEvent;if(!E){return}if(E.preventDefault){E.preventDefault()}E.returnValue=false},stopPropagation:function(){this.isPropagationStopped=u;var E=this.originalEvent;if(!E){return}if(E.stopPropagation){E.stopPropagation()}E.cancelBubble=true},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=u;this.stopPropagation()},isDefaultPrevented:k,isPropagationStopped:k,isImmediatePropagationStopped:k};var a=function(F){var E=F.relatedTarget;while(E&&E!=this){try{E=E.parentNode}catch(G){E=this}}if(E!=this){F.type=F.data;o.event.handle.apply(this,arguments)}};o.each({mouseover:"mouseenter",mouseout:"mouseleave"},function(F,E){o.event.special[E]={setup:function(){o.event.add(this,F,a,E)},teardown:function(){o.event.remove(this,F,a)}}});o.fn.extend({bind:function(F,G,E){return F=="unload"?this.one(F,G,E):this.each(function(){o.event.add(this,F,E||G,E&&G)})},one:function(G,H,F){var E=o.event.proxy(F||H,function(I){o(this).unbind(I,E);return(F||H).apply(this,arguments)});return this.each(function(){o.event.add(this,G,E,F&&H)})},unbind:function(F,E){return this.each(function(){o.event.remove(this,F,E)})},trigger:function(E,F){return this.each(function(){o.event.trigger(E,F,this)})},triggerHandler:function(E,G){if(this[0]){var F=o.Event(E);F.preventDefault();F.stopPropagation();o.event.trigger(F,G,this[0]);return F.result}},toggle:function(G){var E=arguments,F=1;while(F=0){var E=G.slice(I,G.length);G=G.slice(0,I)}var H="GET";if(J){if(o.isFunction(J)){K=J;J=null}else{if(typeof J==="object"){J=o.param(J);H="POST"}}}var F=this;o.ajax({url:G,type:H,dataType:"html",data:J,complete:function(M,L){if(L=="success"||L=="notmodified"){F.html(E?o("

").append(M.responseText.replace(//g,"")).find(E):M.responseText)}if(K){F.each(K,[M.responseText,L,M])}}});return this},serialize:function(){return o.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?o.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||/select|textarea/i.test(this.nodeName)||/text|hidden|password|search/i.test(this.type))}).map(function(E,F){var G=o(this).val();return G==null?null:o.isArray(G)?o.map(G,function(I,H){return{name:F.name,value:I}}):{name:F.name,value:G}}).get()}});o.each("ajaxStart,ajaxStop,ajaxComplete,ajaxError,ajaxSuccess,ajaxSend".split(","),function(E,F){o.fn[F]=function(G){return this.bind(F,G)}});var r=e();o.extend({get:function(E,G,H,F){if(o.isFunction(G)){H=G;G=null}return o.ajax({type:"GET",url:E,data:G,success:H,dataType:F})},getScript:function(E,F){return o.get(E,null,F,"script")},getJSON:function(E,F,G){return o.get(E,F,G,"json")},post:function(E,G,H,F){if(o.isFunction(G)){H=G;G={}}return o.ajax({type:"POST",url:E,data:G,success:H,dataType:F})},ajaxSetup:function(E){o.extend(o.ajaxSettings,E)},ajaxSettings:{url:location.href,global:true,type:"GET",contentType:"application/x-www-form-urlencoded",processData:true,async:true,xhr:function(){return l.ActiveXObject?new ActiveXObject("Microsoft.XMLHTTP"):new XMLHttpRequest()},accepts:{xml:"application/xml, text/xml",html:"text/html",script:"text/javascript, application/javascript",json:"application/json, text/javascript",text:"text/plain",_default:"*/*"}},lastModified:{},ajax:function(M){M=o.extend(true,M,o.extend(true,{},o.ajaxSettings,M));var W,F=/=\?(&|$)/g,R,V,G=M.type.toUpperCase();if(M.data&&M.processData&&typeof M.data!=="string"){M.data=o.param(M.data)}if(M.dataType=="jsonp"){if(G=="GET"){if(!M.url.match(F)){M.url+=(M.url.match(/\?/)?"&":"?")+(M.jsonp||"callback")+"=?"}}else{if(!M.data||!M.data.match(F)){M.data=(M.data?M.data+"&":"")+(M.jsonp||"callback")+"=?"}}M.dataType="json"}if(M.dataType=="json"&&(M.data&&M.data.match(F)||M.url.match(F))){W="jsonp"+r++;if(M.data){M.data=(M.data+"").replace(F,"="+W+"$1")}M.url=M.url.replace(F,"="+W+"$1");M.dataType="script";l[W]=function(X){V=X;I();L();l[W]=g;try{delete l[W]}catch(Y){}if(H){H.removeChild(T)}}}if(M.dataType=="script"&&M.cache==null){M.cache=false}if(M.cache===false&&G=="GET"){var E=e();var U=M.url.replace(/(\?|&)_=.*?(&|$)/,"$1_="+E+"$2");M.url=U+((U==M.url)?(M.url.match(/\?/)?"&":"?")+"_="+E:"")}if(M.data&&G=="GET"){M.url+=(M.url.match(/\?/)?"&":"?")+M.data;M.data=null}if(M.global&&!o.active++){o.event.trigger("ajaxStart")}var Q=/^(\w+:)?\/\/([^\/?#]+)/.exec(M.url);if(M.dataType=="script"&&G=="GET"&&Q&&(Q[1]&&Q[1]!=location.protocol||Q[2]!=location.host)){var H=document.getElementsByTagName("head")[0];var T=document.createElement("script");T.src=M.url;if(M.scriptCharset){T.charset=M.scriptCharset}if(!W){var O=false;T.onload=T.onreadystatechange=function(){if(!O&&(!this.readyState||this.readyState=="loaded"||this.readyState=="complete")){O=true;I();L();T.onload=T.onreadystatechange=null;H.removeChild(T)}}}H.appendChild(T);return g}var K=false;var J=M.xhr();if(M.username){J.open(G,M.url,M.async,M.username,M.password)}else{J.open(G,M.url,M.async)}try{if(M.data){J.setRequestHeader("Content-Type",M.contentType)}if(M.ifModified){J.setRequestHeader("If-Modified-Since",o.lastModified[M.url]||"Thu, 01 Jan 1970 00:00:00 GMT")}J.setRequestHeader("X-Requested-With","XMLHttpRequest");J.setRequestHeader("Accept",M.dataType&&M.accepts[M.dataType]?M.accepts[M.dataType]+", */*":M.accepts._default)}catch(S){}if(M.beforeSend&&M.beforeSend(J,M)===false){if(M.global&&!--o.active){o.event.trigger("ajaxStop")}J.abort();return false}if(M.global){o.event.trigger("ajaxSend",[J,M])}var N=function(X){if(J.readyState==0){if(P){clearInterval(P);P=null;if(M.global&&!--o.active){o.event.trigger("ajaxStop")}}}else{if(!K&&J&&(J.readyState==4||X=="timeout")){K=true;if(P){clearInterval(P);P=null}R=X=="timeout"?"timeout":!o.httpSuccess(J)?"error":M.ifModified&&o.httpNotModified(J,M.url)?"notmodified":"success";if(R=="success"){try{V=o.httpData(J,M.dataType,M)}catch(Z){R="parsererror"}}if(R=="success"){var Y;try{Y=J.getResponseHeader("Last-Modified")}catch(Z){}if(M.ifModified&&Y){o.lastModified[M.url]=Y}if(!W){I()}}else{o.handleError(M,J,R)}L();if(X){J.abort()}if(M.async){J=null}}}};if(M.async){var P=setInterval(N,13);if(M.timeout>0){setTimeout(function(){if(J&&!K){N("timeout")}},M.timeout)}}try{J.send(M.data)}catch(S){o.handleError(M,J,null,S)}if(!M.async){N()}function I(){if(M.success){M.success(V,R)}if(M.global){o.event.trigger("ajaxSuccess",[J,M])}}function L(){if(M.complete){M.complete(J,R)}if(M.global){o.event.trigger("ajaxComplete",[J,M])}if(M.global&&!--o.active){o.event.trigger("ajaxStop")}}return J},handleError:function(F,H,E,G){if(F.error){F.error(H,E,G)}if(F.global){o.event.trigger("ajaxError",[H,F,G])}},active:0,httpSuccess:function(F){try{return !F.status&&location.protocol=="file:"||(F.status>=200&&F.status<300)||F.status==304||F.status==1223}catch(E){}return false},httpNotModified:function(G,E){try{var H=G.getResponseHeader("Last-Modified");return G.status==304||H==o.lastModified[E]}catch(F){}return false},httpData:function(J,H,G){var F=J.getResponseHeader("content-type"),E=H=="xml"||!H&&F&&F.indexOf("xml")>=0,I=E?J.responseXML:J.responseText;if(E&&I.documentElement.tagName=="parsererror"){throw"parsererror"}if(G&&G.dataFilter){I=G.dataFilter(I,H)}if(typeof I==="string"){if(H=="script"){o.globalEval(I)}if(H=="json"){I=l["eval"]("("+I+")")}}return I},param:function(E){var G=[];function H(I,J){G[G.length]=encodeURIComponent(I)+"="+encodeURIComponent(J)}if(o.isArray(E)||E.jquery){o.each(E,function(){H(this.name,this.value)})}else{for(var F in E){if(o.isArray(E[F])){o.each(E[F],function(){H(F,this)})}else{H(F,o.isFunction(E[F])?E[F]():E[F])}}}return G.join("&").replace(/%20/g,"+")}});var m={},n,d=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]];function t(F,E){var G={};o.each(d.concat.apply([],d.slice(0,E)),function(){G[this]=F});return G}o.fn.extend({show:function(J,L){if(J){return this.animate(t("show",3),J,L)}else{for(var H=0,F=this.length;H").appendTo("body");K=I.css("display");if(K==="none"){K="block"}I.remove();m[G]=K}o.data(this[H],"olddisplay",K)}}for(var H=0,F=this.length;H=0;H--){if(G[H].elem==this){if(E){G[H](true)}G.splice(H,1)}}});if(!E){this.dequeue()}return this}});o.each({slideDown:t("show",1),slideUp:t("hide",1),slideToggle:t("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"}},function(E,F){o.fn[E]=function(G,H){return this.animate(F,G,H)}});o.extend({speed:function(G,H,F){var E=typeof G==="object"?G:{complete:F||!F&&H||o.isFunction(G)&&G,duration:G,easing:F&&H||H&&!o.isFunction(H)&&H};E.duration=o.fx.off?0:typeof E.duration==="number"?E.duration:o.fx.speeds[E.duration]||o.fx.speeds._default;E.old=E.complete;E.complete=function(){if(E.queue!==false){o(this).dequeue()}if(o.isFunction(E.old)){E.old.call(this)}};return E},easing:{linear:function(G,H,E,F){return E+F*G},swing:function(G,H,E,F){return((-Math.cos(G*Math.PI)/2)+0.5)*F+E}},timers:[],fx:function(F,E,G){this.options=E;this.elem=F;this.prop=G;if(!E.orig){E.orig={}}}});o.fx.prototype={update:function(){if(this.options.step){this.options.step.call(this.elem,this.now,this)}(o.fx.step[this.prop]||o.fx.step._default)(this);if((this.prop=="height"||this.prop=="width")&&this.elem.style){this.elem.style.display="block"}},cur:function(F){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null)){return this.elem[this.prop]}var E=parseFloat(o.css(this.elem,this.prop,F));return E&&E>-10000?E:parseFloat(o.curCSS(this.elem,this.prop))||0},custom:function(I,H,G){this.startTime=e();this.start=I;this.end=H;this.unit=G||this.unit||"px";this.now=this.start;this.pos=this.state=0;var E=this;function F(J){return E.step(J)}F.elem=this.elem;if(F()&&o.timers.push(F)&&!n){n=setInterval(function(){var K=o.timers;for(var J=0;J=this.options.duration+this.startTime){this.now=this.end;this.pos=this.state=1;this.update();this.options.curAnim[this.prop]=true;var E=true;for(var F in this.options.curAnim){if(this.options.curAnim[F]!==true){E=false}}if(E){if(this.options.display!=null){this.elem.style.overflow=this.options.overflow;this.elem.style.display=this.options.display;if(o.css(this.elem,"display")=="none"){this.elem.style.display="block"}}if(this.options.hide){o(this.elem).hide()}if(this.options.hide||this.options.show){for(var I in this.options.curAnim){o.attr(this.elem.style,I,this.options.orig[I])}}this.options.complete.call(this.elem)}return false}else{var J=G-this.startTime;this.state=J/this.options.duration;this.pos=o.easing[this.options.easing||(o.easing.swing?"swing":"linear")](this.state,J,0,1,this.options.duration);this.now=this.start+((this.end-this.start)*this.pos);this.update()}return true}};o.extend(o.fx,{speeds:{slow:600,fast:200,_default:400},step:{opacity:function(E){o.attr(E.elem.style,"opacity",E.now)},_default:function(E){if(E.elem.style&&E.elem.style[E.prop]!=null){E.elem.style[E.prop]=E.now+E.unit}else{E.elem[E.prop]=E.now}}}});if(document.documentElement.getBoundingClientRect){o.fn.offset=function(){if(!this[0]){return{top:0,left:0}}if(this[0]===this[0].ownerDocument.body){return o.offset.bodyOffset(this[0])}var G=this[0].getBoundingClientRect(),J=this[0].ownerDocument,F=J.body,E=J.documentElement,L=E.clientTop||F.clientTop||0,K=E.clientLeft||F.clientLeft||0,I=G.top+(self.pageYOffset||o.boxModel&&E.scrollTop||F.scrollTop)-L,H=G.left+(self.pageXOffset||o.boxModel&&E.scrollLeft||F.scrollLeft)-K;return{top:I,left:H}}}else{o.fn.offset=function(){if(!this[0]){return{top:0,left:0}}if(this[0]===this[0].ownerDocument.body){return o.offset.bodyOffset(this[0])}o.offset.initialized||o.offset.initialize();var J=this[0],G=J.offsetParent,F=J,O=J.ownerDocument,M,H=O.documentElement,K=O.body,L=O.defaultView,E=L.getComputedStyle(J,null),N=J.offsetTop,I=J.offsetLeft;while((J=J.parentNode)&&J!==K&&J!==H){M=L.getComputedStyle(J,null);N-=J.scrollTop,I-=J.scrollLeft;if(J===G){N+=J.offsetTop,I+=J.offsetLeft;if(o.offset.doesNotAddBorder&&!(o.offset.doesAddBorderForTableAndCells&&/^t(able|d|h)$/i.test(J.tagName))){N+=parseInt(M.borderTopWidth,10)||0,I+=parseInt(M.borderLeftWidth,10)||0}F=G,G=J.offsetParent}if(o.offset.subtractsBorderForOverflowNotVisible&&M.overflow!=="visible"){N+=parseInt(M.borderTopWidth,10)||0,I+=parseInt(M.borderLeftWidth,10)||0}E=M}if(E.position==="relative"||E.position==="static"){N+=K.offsetTop,I+=K.offsetLeft}if(E.position==="fixed"){N+=Math.max(H.scrollTop,K.scrollTop),I+=Math.max(H.scrollLeft,K.scrollLeft)}return{top:N,left:I}}}o.offset={initialize:function(){if(this.initialized){return}var L=document.body,F=document.createElement("div"),H,G,N,I,M,E,J=L.style.marginTop,K='

';M={position:"absolute",top:0,left:0,margin:0,border:0,width:"1px",height:"1px",visibility:"hidden"};for(E in M){F.style[E]=M[E]}F.innerHTML=K;L.insertBefore(F,L.firstChild);H=F.firstChild,G=H.firstChild,I=H.nextSibling.firstChild.firstChild;this.doesNotAddBorder=(G.offsetTop!==5);this.doesAddBorderForTableAndCells=(I.offsetTop===5);H.style.overflow="hidden",H.style.position="relative";this.subtractsBorderForOverflowNotVisible=(G.offsetTop===-5);L.style.marginTop="1px";this.doesNotIncludeMarginInBodyOffset=(L.offsetTop===0);L.style.marginTop=J;L.removeChild(F);this.initialized=true},bodyOffset:function(E){o.offset.initialized||o.offset.initialize();var G=E.offsetTop,F=E.offsetLeft;if(o.offset.doesNotIncludeMarginInBodyOffset){G+=parseInt(o.curCSS(E,"marginTop",true),10)||0,F+=parseInt(o.curCSS(E,"marginLeft",true),10)||0}return{top:G,left:F}}};o.fn.extend({position:function(){var I=0,H=0,F;if(this[0]){var G=this.offsetParent(),J=this.offset(),E=/^body|html$/i.test(G[0].tagName)?{top:0,left:0}:G.offset();J.top-=j(this,"marginTop");J.left-=j(this,"marginLeft");E.top+=j(G,"borderTopWidth");E.left+=j(G,"borderLeftWidth");F={top:J.top-E.top,left:J.left-E.left}}return F},offsetParent:function(){var E=this[0].offsetParent||document.body;while(E&&(!/^body|html$/i.test(E.tagName)&&o.css(E,"position")=="static")){E=E.offsetParent}return o(E)}});o.each(["Left","Top"],function(F,E){var G="scroll"+E;o.fn[G]=function(H){if(!this[0]){return null}return H!==g?this.each(function(){this==l||this==document?l.scrollTo(!F?H:o(l).scrollLeft(),F?H:o(l).scrollTop()):this[G]=H}):this[0]==l||this[0]==document?self[F?"pageYOffset":"pageXOffset"]||o.boxModel&&document.documentElement[G]||document.body[G]:this[0][G]}});o.each(["Height","Width"],function(I,G){var E=I?"Left":"Top",H=I?"Right":"Bottom",F=G.toLowerCase();o.fn["inner"+G]=function(){return this[0]?o.css(this[0],F,false,"padding"):null};o.fn["outer"+G]=function(K){return this[0]?o.css(this[0],F,false,K?"margin":"border"):null};var J=G.toLowerCase();o.fn[J]=function(K){return this[0]==l?document.compatMode=="CSS1Compat"&&document.documentElement["client"+G]||document.body["client"+G]:this[0]==document?Math.max(document.documentElement["client"+G],document.body["scroll"+G],document.documentElement["scroll"+G],document.body["offset"+G],document.documentElement["offset"+G]):K===g?(this.length?o.css(this[0],J):null):this.css(J,typeof K==="string"?K:K+"px")}})})(); __yDcKLQUDWenVBazEEeb0V6SbITYKIebLySKbrTp2eJk meta::file('scripts/jquery.toc.js', <<'__gHxSwl5QfVDCZ7jDzinFclLYybkcK3An6wGsn7GYjEI'); // jQuery table of contents plugin // Created by Spencer Tipping and licensed under the MIT source code license (function ($) { $.toc = { encodeText: function (text) {return text.toLowerCase ().replace (/["']/g, '').replace (/[^a-zA-Z0-9]/g, '-'). replace (/-+/g, '-').replace (/-+$/, '').replace (/^-+/, '')} } $.fn.setupTableOfContents = function (options) { var options_prime = $.extend ({ pathToContent: '#content > div', pathToTitle: 'h1', variant: 'section', defaultOptions: {}, defaultItemPath: ':first', itemActivator: function () {$(this).addClass ('selected')}, itemDeactivator: function () {$(this).removeClass ('selected')}, contentActivator: function () {$(this).show ()}, contentDeactivator: function () {$(this).hide ()}, firstRunItemActivator: null, firstRunItemDeactivator: null, firstRunContentActivator: null, firstRunContentDeactivator: null }, options) var id_unique_stuff = $.toc.encodeText ($.anchor.encodeURL (options_prime.defaultOptions)) var id_for = function (item_name) {return id_unique_stuff + '-' + options_prime.variant + '-' + item_name} $(options_prime.pathToContent).each (function () { $(this).attr ('id', 'content-' + id_for ($.toc.encodeText ($(this).children (options_prime.pathToTitle).text ()))); (options_prime.firstRunContentDeactivator || options_prime.contentDeactivator).apply (this, []); }) var $i = function (encoded_item_name) {return $('#item-' + id_for (encoded_item_name))} var $c = function (encoded_item_name) {return $('#content-' + id_for (encoded_item_name))} this.each (function () { var state_delta = {} var encoded_item_name = $.toc.encodeText ($(this).text ()) state_delta[options_prime.variant] = encoded_item_name if ($c (encoded_item_name).size ()) $(this).wrap (''). attr ('id', 'item-' + id_for (encoded_item_name)); this != window && (options_prime.firstRunItemDeactivator || options_prime.itemDeactivator).apply (this, []); }) var current_item_name = null var select_item = function (new_item_encoded_name, first_run) { if (current_item_name != new_item_encoded_name) { if (current_item_name) { var current_item = $i(current_item_name).get (0) var current_content = $c(current_item_name).get (0) current_item && (first_run && options_prime.firstRunItemDeactivator || options_prime.itemDeactivator).apply (current_item, []); current_content && (first_run && options_prime.firstRunContentDeactivator || options_prime.contentDeactivator).apply (current_content, []); } var new_item = $i(new_item_encoded_name).get (0) var new_content = $c(new_item_encoded_name).get (0) new_item && (first_run && options_prime.firstRunItemActivator || options_prime.itemActivator).apply (new_item, []); new_content && (first_run && options_prime.firstRunContentActivator || options_prime.contentActivator).apply (new_content, []); current_item_name = new_item_encoded_name } } var default_item = function () { return $.toc.encodeText ($(options_prime.pathToContent).filter (options_prime.defaultItemPath).children (options_prime.pathToTitle).text ()) } select_item ($.anchor.state ()[options_prime.variant] || default_item (), true) $.anchor.listen (function () { select_item (this[options_prime.variant] || default_item ()) }) return this } }) (jQuery) __gHxSwl5QfVDCZ7jDzinFclLYybkcK3An6wGsn7GYjEI meta::file('scripts/main.js', <<'__vLAk9YHUaZFew9Qy7huvonRc811MOiRw2YkyS/OW4iU'); $(document).ready (function () { var slide_out = function () { $(this).stop (false, true).css ({position: 'absolute'}). animate ({left: '-10px', opacity: 'hide'}, {complete: function () { $(this).css ({position: 'relative', left: '-10px'}) }}) } var slide_in = function () { $(this).stop (false, true).css ({left: '10px', position: 'absolute'}). animate ({left: '0px', opacity: 'show'}, {complete: function () { $(this).css ({position: 'relative', left: '0px'}) }}) } var fade_out = function () {$(this).fadeOut ()} var fade_in = function () {$(this).fadeIn ()} var show = function () {$(this).show ().css ({position: 'relative'})} var hide = function () {$(this).hide ().css ({position: 'relative'})} $('.projects-link').replaceWith ("

<< All Projects

") $('#sidebar > div'). hover (function () {$(this).addClass ('hover')}, function () {$(this).removeClass ('hover')}). setupTableOfContents ({ contentActivator: slide_in, contentDeactivator: slide_out, firstRunContentActivator: show, firstRunContentDeactivator: hide }) var setup_section = function (section_name) { $('#' + section_name + '-navigation > div'). hover (function () {$(this).addClass ('hover')}, function () {$(this).removeClass ('hover')}). setupTableOfContents ({ pathToContent: '#' + section_name + '-content > div', pathToTitle: 'h2', variant: 'page', defaultOptions: {section: section_name}, contentActivator: slide_in, contentDeactivator: slide_out, firstRunContentActivator: show, firstRunContentDeactivator: hide }) } setup_section ('cheloniidae') setup_section ('universal-translator') setup_section ('jquery-plugins') setup_section ('self-modifying-perl') // Blog loading var blog_index = null var blog_posts = [] var blocks_to_load = 0 $('#blog-navigation').hide () $.getJSON ('blog-data/index', function (data) { blog_index = data load_individual_entries () }) var load_individual_entries = function () { $.each (blog_index.blocks, function () { ++blocks_to_load $('#blog-loading-indicator').prepend ('.') $.getJSON ('blog-data/' + this, function (block_data) { blog_posts = blog_posts.concat (block_data) $('#blog-loading-progress-' + blocks_to_load).removeClass ('inactive').addClass ('active') --blocks_to_load || window.setTimeout (setup_blog_menu, 100) }) }) } var post_link = function (post_data) { return $('

' + post_data['real-title'] + '

') } var post_content = function (post_data, last_post) { var header = '

' + post_data['real-title'] + '

'; var pre_content = '

All Posts ' + (last_post ? ' | ' + last_post['real-title'] + ' >>' : '') + '

'; return $('

' + header + pre_content + post_data['compiled-content'] + '

').hide () } var setup_blog_menu = function () { // First, sort blog posts by date. blog_posts = blog_posts.sort (function (p1, p2) {return p1.date < p2.date ? -1 : 1}) var last_post = null var post_nodes = [] var post_links = [] $.each (blog_posts, function () { post_links.push (post_link (this)) post_nodes.push (post_content (this, last_post)) last_post = this }) $('#blog-loading-indicator').remove () $.each (post_links.reverse (), function () {this.appendTo ('#blog-navigation')}) $.each (post_nodes.reverse (), function () {this.appendTo ('#blog-entries')}) $('#blog-navigation > div'). hover (function () {$(this).addClass ('hover')}, function () {$(this).removeClass ('hover')}). setupTableOfContents ({ pathToContent: '#blog-entries > div', pathToTitle: 'h1', variant: 'post', defaultOptions: {section: 'blog'}, defaultItemPath: '#content-section-blog-post-' + blog_posts[blog_posts.length - 1].title, contentActivator: slide_in, contentDeactivator: slide_out, firstRunContentActivator: fade_in, firstRunContentDeactivator: hide }) // Now enqueue images to start loading. $('.delayed-image > span').each (function () { var image_source = $(this).attr ('image-src') var alternate_text = $(this).attr ('alt') var class_name = $(this).attr ('class') $(this).replaceWith (' ' + alternate_text + '

') }) } }) __vLAk9YHUaZFew9Qy7huvonRc811MOiRw2YkyS/OW4iU meta::file('style/main.css', <<'__fEyBmSE7J5wVTEyhflYaSEllNKoXs9zmTil1p78mPow'); body { font-family: sans-serif; font-size: 9pt; margin: 0; background: #eee; min-width: 700px; padding-bottom: 40px; } #sidebar { float: right; width: 200px; background: #111; padding-top: 140px; padding-bottom: 300px; border-left: solid 1px black; } #sidebar div { font-size: 8pt; color: #666; padding: 10px 0px 10px 30px; cursor: pointer; margin-right: 20px; font-weight: bold; border-style: solid; border-width: 1px 1px 1px 0; border-color: transparent; } #sidebar div.sub { padding: 6px 0px 6px 40px; font-weight: normal; border-width: 0 1px 0 0; } #sidebar span.separator { display: block; height: 4px; } #sidebar div.hover { background: #222; border-color: #0c0c0c; } #sidebar div.selected { color: #f62; background: #222; border-color: #0c0c0c; } #header { background: #222; height: 140px; border-bottom: solid 1px black; } #content { left: 20px; margin-right: 201px; position: relative; } #content > div { padding: 0 40px 0 0; position: absolute; top: 0; left: 0; } #content h1, #content h2, #content h3 { display: block; font-weight: normal; margin-top: 0; text-transform: uppercase; margin-bottom: 16px; margin-top: 30px; } #content h1 { font-size: 16pt; color: #333; border-bottom: solid 1px #aaa; } #content h2 { font-size: 12pt; color: black; margin-bottom: 0; border-bottom: solid 1px #ccc; } #content h3 { font-size: 10pt; color: #c51; margin-bottom: 0; } .information { color: #444; display: block; text-align: right; } #content pre { overflow: auto; background: #ddd; color: #222; padding: 10px; font-size: 8pt; border-left: solid 2px #222; } .quotation { float: right; background: #aaa; margin-left: 20px; padding: 20px; } #content ul { color: #aca; } #content p, #content li { font-size: 9pt; color: #111; } .footer { clear: both; } a { color: #151; font-size: 9pt; text-decoration: none; outline: 0; } a.strong { font-weight: bold; } a:hover { color: #797; } img { border: none; } img.screenshot { border: solid 4px #222; margin: 10px; } .subsection-navigation div { display: inline-block; color: #222; padding: 5px; } .subsection-navigation div.hover { padding: 4px; border: solid 1px #888; } .subsection-navigation div.selected { color: #ccc; background: #444; border: solid 1px #222; padding: 4px; } .subsection-content { position: relative; } .indicator { color: #888; font-size: 9pt; } .field-label { color: #444; font-size: 9pt; } input { background: transparent; border: solid 1px #888; padding: 1px; color: #444; font-size: 9pt; } #blog-search { margin-left: 10px; float: right; } #blog-loading-indicator { padding-top: 60px; font-size: 40pt; font-weight: bold; text-align: center; } #blog-loading-indicator .inactive { color: #ccc; } #blog-loading-indicator .active { color: #888; } __fEyBmSE7J5wVTEyhflYaSEllNKoXs9zmTil1p78mPow meta::function('add-to', <<'__KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q'); my ($filename) = @_; my @members = grep /^implementation::/, keys %data; for (@members) { my $destination_name = basename($_); open my($handle), "| $filename import $destination_name" or messages::error("Attribute $_ could not be written."); print $handle retrieve($_); close $handle; } __KBgra0vG1gIsUI8CCVf4ZEdCatZDCdVO6HuUx+jOJ9Q meta::function('cat', <<'__h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk'); my ($name) = @_; $data{$name}; __h2PeSpk/pPmrzLRTTofdLTbhj06IWUw5WWke6ggUsdk meta::function('clean', <<'__YiaR22ZfeeFhhPYBUFHWBZqstuOzKtkv2XqmTuXhy1E'); my $output_directory = &{'pdf-output-file'}(); $output_directory =~ s+/.*++g; unlink <$output_directory/*>; rmdir $output_directory; __YiaR22ZfeeFhhPYBUFHWBZqstuOzKtkv2XqmTuXhy1E meta::function('clone', <<'__qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY'); for (@_) { if ($_) { eval { file::write($_, serialize(), noclobber => 1); chmod(0700, $_); print "File $_ cloned successfully.\n"; }; print "$@\n" if $@; } } __qP6xPZE75s9g0XJIiC6FGw0vnj2j0glUzsAHxyA3lvY meta::function('compile', <<'__qF19UvmjPvPOLR44SC4faaa4DCELcB0xlzfnV98Dy2I'); use File::Path 'mkpath'; use File::Basename 'dirname'; my $full = grep /^full$/, @_; my $contents = &{'compile-to-html'}(); my $name = (dirname $0) . '/' . name(); my $output_directory = "$name.output"; my $delta_directory = "$name.delta"; if ($full) { `rm -rf $output_directory`; `rm -rf $delta_directory`; overlay(); } mkpath($delta_directory); file::write("$delta_directory/index.html", $contents); file::write("$delta_directory/site-image", serialize()); generate_blog_posts(); for my $file (grep /^file::/ || /^binary::/, sort keys %data) { my $is_binary = $file =~ /^binary::/; $file =~ s/^file:://; $file =~ s/^binary:://; mkpath "$delta_directory/" . dirname $file; mkpath "$delta_directory/unpacked/" . dirname $file unless $is_binary; file::write("$delta_directory/$file", $is_binary ? unpack('u*', retrieve("binary::$file")) : &{'pack-file'}($file, retrieve("file::$file"))); file::write("$delta_directory/unpacked/$file", retrieve("file::$file")) unless $is_binary; } &{'overlay-delta'}(); __qF19UvmjPvPOLR44SC4faaa4DCELcB0xlzfnV98Dy2I meta::function('compile-sidebar', <<'__9YzWhZVTj7QkTEz9Yyxd29s4T4YwBNljba5u+NmYSVk'); my $sidebar = '"; __9YzWhZVTj7QkTEz9Yyxd29s4T4YwBNljba5u+NmYSVk meta::function('compile-to-html', <<'__h29x4X+U/q5mIgG/kTGUZf2OGJa3wNp1cPYFBVNhdso'); my ($document) = @_; $document ||= document(); $document = &$_($document) for (grep /^unlit_converter::/, sort keys %data); $document; __h29x4X+U/q5mIgG/kTGUZf2OGJa3wNp1cPYFBVNhdso meta::function('cp', <<'__yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4'); my ($from, $to) = @_; $data{$to} = $data{$from} if $data{$from}; messages::error("No such attribute $from") unless $data{$from}; $data{$from}; __yn1SQkcEk6o+gnuCy3QGVFtQb2piaCoUdJPGUkLjpD4 meta::function('create', <<'__YDNTuzkJSNUIk4tbdwxep6/rT8uGnceIj7rljM9gusc'); my ($name, $value) = @_; messages::error("Attribute $name already exists.") if grep {$_ eq $name} keys %data; if ($value) { associate($name, $value); } else { associate($name,''); edit ($name); } __YDNTuzkJSNUIk4tbdwxep6/rT8uGnceIj7rljM9gusc meta::function('edit', <<'__rAkSOSll0evjt/D0qmnz2M++ACqz6cPtN8TLTHdQUJE'); my ($name, %options) = @_; my $meta_extension = join '', grep { my $s = $_; $s =~ s/\s.*$//; $name =~ /$s/ } split /\n/, &{'meta-associations'}(); $meta_extension =~ s/^.*\s//; chomp $meta_extension; messages::error("Attribute $name does not exist.") unless grep {$_ eq $name} keys %data; associate($name, invoke_editor_on($data{$name} || "# Attribute $name", %options, extension => $meta_extension), execute => $name !~ /^internal::/ && $name !~ /^bootstrap::/); delete $data{$name} if length($data{$name}) == 0; save(); __rAkSOSll0evjt/D0qmnz2M++ACqz6cPtN8TLTHdQUJE meta::function('exists', <<'__bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk'); my $name = shift; grep {$_ eq $name} keys %data; __bxU1sDtIh3+P1x0HuuY0f7sKHr9qNZUEl64m2fvwmDk meta::function('export', <<'__I4eRG7HtLDZhFgrlr0QDrQO5MRwJYGFlotQsWQIE/d8'); # Exports data into a text file. # export attr1 attr2 attr3 ... file.txt my $name = pop @_; my @attributes = @_; if (@attributes) { my $file = join "\n", map {cat($_)} @attributes; file::write ($name, $file); } else { messages::error ("Not enough arguments"); } __I4eRG7HtLDZhFgrlr0QDrQO5MRwJYGFlotQsWQIE/d8 meta::function('generate_blog_post_bundles', <<'__YQkLMHqWnw6QOP95vRQIVdQUHVF+OG5xqAH3IUJNNKw'); # This deserves some explanation. # # What's going on here is that we want to optimize page loading by bundling all of the blog entries into roughly ideally-sized pieces. I'm assuming that the # content will be compressed in this calculation (as all modern browsers support this), so the content should get about 50% compression on average. # # The optimum size for a transfer is subjective, but I've set it in the variable $optimum_size. This should be large enough that it cuts down on a lot of # overhead, but small enough that a retry isn't expensive. Because of GZip compression, we should plan on things losing 50% of their volume over the wire. # # For now the algorithm is really simple. We just keep adding posts to the list until we get to the right size, and then bundle those up. Here's the thing, # though: We always start with the oldest and bundle in reverse. This way users' caches of old posts remain valid. If we started with the new ones, then we'd # have a rolling-effect whenever we added a new post. # # The serialization format, incidentally, is JSON. # # To navigate the blog effectively, an index file is also generated. This is another JSON document whose elements are 'blocks' and a hash 'posts' -- the # 'blocks' is an array that lists all files that should be requested, and the 'posts' is a hash mapping post titles to block names. The latter exists to handle # the case of a user jumping to the site without waiting for the full load time. # # Each block's filename is the hash of its contents (naturally with problematic characters replaced). The index, however, has a constant name of 'index'. use JSON; use File::Path 'mkpath'; my %posts = @_; my $optimum_size = 1024 * 20; sub encode_list { to_json([map {title => $_->{'title'}, 'real-title' => $_->{'real-title'}, date => $_->{'date'}, author => $_->{'author'}, 'compiled-content' => $_->{'compiled-content'}, tags => $_->{'tags'}}, @_]); } sub compact_hashsum { my $hash = sha256_base64($_[0]); $hash =~ tr[/+][-_]; $hash; } my @batches; my @queue; my @date_sorted_posts = sort {$posts{$a}{'date'} cmp $posts{$b}{'date'}} keys %posts; for my $post_name (@date_sorted_posts) { if ($posts{$post_name}{'status'} eq 'published') { push @queue, $posts{$post_name}; my $current_queue_encoding = encode_list @queue; if (length($current_queue_encoding) > $optimum_size) { push @batches, [$current_queue_encoding, map(${$_}{'title'}, @queue)]; @queue = (); } } } push @batches, [(encode_list @queue), map(${$_}{'title'}, @queue)] if scalar(@queue); my %index; my %blocks; my @ordered_blocks; mkpath('site.delta/blog-data'); for my $encoding (@batches) { my @encoding = @$encoding; my $contents = shift @encoding; my $block_name = compact_hashsum $contents; $index{$_} = $block_name for @encoding; $blocks{$block_name} = $contents; push @ordered_blocks, $block_name; file::write("site.delta/blog-data/$block_name", $contents); } file::write('site.delta/blog-data/index', to_json({'index' => \%index, 'blocks' => [reverse @ordered_blocks]})); __YQkLMHqWnw6QOP95vRQIVdQUHVF+OG5xqAH3IUJNNKw meta::function('generate_blog_posts', <<'__jP5UERNuTgmbpP7KkEmnDRWLI51KxYkAMwBwNP5Tct0'); my %blog_data; my %keyword_handlers; for my $post (grep /^blogpost::/, sort keys %data) { my $content = retrieve($post); my @keyword_lines = grep /^\s*post:/, split /\n/, $content; my %post_data; for my $line (@keyword_lines) { my ($keyword, $equals, @value_pieces) = split /(\s*=\s*)/, $line; my $value = join '', @value_pieces; $keyword =~ s/^\s*post://; $value =~ s/\s*$//; $post_data{$keyword} = $value; } $post_data{'content'} = $content; $post_data{'compiled-content'} = &{'compile-to-html'}($content); $blog_data{$post} = \%post_data; } generate_blog_post_bundles(%blog_data); __jP5UERNuTgmbpP7KkEmnDRWLI51KxYkAMwBwNP5Tct0 meta::function('grab', <<'__sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8'); my ($filename, @attribute_names) = @_; associate("implementation::$_", `$filename cat $_`) for @attribute_names; __sXs1aeJVBERH6nWE7ZpWiIO5Cg7fSBWcoscDg1DHzD8 meta::function('import', <<'__7f1Q36AcIJ8/OaaYPGUq10PPFTKnEF0CMxS56DRsjKk'); my $name = pop @_; my @files = @_; if (@files) { my $files = join "", map {file::read ($_)} @files; associate ($name, $files); } else { associate($name, join('', )); } __7f1Q36AcIJ8/OaaYPGUq10PPFTKnEF0CMxS56DRsjKk meta::function('import-binary', <<'__YQWKWmUREtXl75Ef+Mys3p6ia1M+m/ShhN7bK9qfZfc'); my ($name) = @_; associate($name, pack('u*', join('', ))); __YQWKWmUREtXl75Ef+Mys3p6ia1M+m/ShhN7bK9qfZfc meta::function('install-vim-highlighter', <<'__C7NdY3A4/O1xabnov56kIPazB2UViRtF/Lc7gF1e5Tg'); my $home = $ENV{'HOME'}; mkdir "$home/.vim"; mkdir "$home/.vim/syntax"; file::write("$home/.vim/syntax/clhtml.vim", retrieve('data::vim-highlighter')); <<"EOF"; The highlighter was created successfully. To have syntax highlighting activated automatically, append this line to your .vimrc: au BufRead,BufNewFile *.clhtml set filetype=clhtml Alternately, you can run $0 update-vimrc. EOF __C7NdY3A4/O1xabnov56kIPazB2UViRtF/Lc7gF1e5Tg meta::function('lock', <<'__pqf/HijyN91BWpnS+uWYip/mFhHhcd+M9/YdlYsvv9Y'); my (undef, undef, $mode) = stat $0; chmod $mode & 0555, $0; __pqf/HijyN91BWpnS+uWYip/mFhHhcd+M9/YdlYsvv9Y meta::function('ls', <<'__M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg'); join("\n", sort keys %externalized_functions); __M3wGXSw8/xm3RiNq0uLWke1dHm2OWQbvJpHkngdPafg meta::function('ls-a', <<'__ZF0mLdFoa0pys6NZ+Yz5lsmaE2GeJMG2Aw1C3j88moQ'); my $criteria = join '|', @_; join("\n", grep(/$criteria/, sort keys %data)); __ZF0mLdFoa0pys6NZ+Yz5lsmaE2GeJMG2Aw1C3j88moQ meta::function('mv', <<'__ijyNZ8r34FVK0Ki9/Q0Irx5k9U0pZ+/frrdlu+qkEP4'); my ($from, $to) = @_; messages::error("The '$from' attribute does not exist.") unless grep $from, keys %data; associate($to, retrieve($from)); rm($from); __ijyNZ8r34FVK0Ki9/Q0Irx5k9U0pZ+/frrdlu+qkEP4 meta::function('new', <<'__FQjehdFg7T3T2iHPMlGp6nAnrKAsQUIK5CXW02wNnos'); clone(@_); __FQjehdFg7T3T2iHPMlGp6nAnrKAsQUIK5CXW02wNnos meta::function('overlay', <<'__gFJlsNufi1tzGTd1QoXHosOpBWd3n0BGArArZS7nVLM'); `cp -r site.downloads site.output`; __gFJlsNufi1tzGTd1QoXHosOpBWd3n0BGArArZS7nVLM meta::function('overlay-delta', <<'__tdC5UQoRJs+qGkOpb+0CB1FyykO6VOHV6vyFlzXMHa0'); `cp -r site.delta/* site.output/`; __tdC5UQoRJs+qGkOpb+0CB1FyykO6VOHV6vyFlzXMHa0 meta::function('pack-file', <<'__H7hJfYvh2rzpgbamYm7gagDPaHL6p1J+EGhxH4SWAn4'); my ($filename, $data) = @_; return &{'compress-javascript'}($data) if $filename =~ /\.js$/; return &{'compress-css'}($data) if $filename =~ /\.css$/; return $data; __H7hJfYvh2rzpgbamYm7gagDPaHL6p1J+EGhxH4SWAn4 meta::function('perl', <<'__Ojd593Fa9fx1Yx2XuPzK6WTUyxO70Nbmlbl9YRodUWA'); my $result = eval($_[0]); $@ ? $@ : $result; __Ojd593Fa9fx1Yx2XuPzK6WTUyxO70Nbmlbl9YRodUWA meta::function('pop-state', <<'__eqnCLsMapvq2sYSx82KCxh25zmff+JIXFMYUan2kGKM'); %data = %{pop @{$transient{'states'}}} if @{$transient{'states'}}; reload(); __eqnCLsMapvq2sYSx82KCxh25zmff+JIXFMYUan2kGKM meta::function('pull', <<'__ZU6uOu7dBdjjoNdEL/U7yrjicOQR5OLFQAacjrKqSCg'); my ($class_name) = @_; my @attributes = grep /^implementation::/, split /\n/, `$class_name ls-a`; for (@attributes) { s/^\s+//; s/\s+$//; print STDERR "Adding $_\n"; associate(basename($_), `$class_name cat "$_"`); } __ZU6uOu7dBdjjoNdEL/U7yrjicOQR5OLFQAacjrKqSCg meta::function('push-state', <<'__ik0ofu7R8gHAKSmMjek79V+yfgdjdK5Jmtwf7h8SpJk'); push @{$transient{'states'} = $transient{'states'} || []}, {%data}; my $state_count = scalar @{$transient{'states'}}; "There are now $state_count states on the stack."; __ik0ofu7R8gHAKSmMjek79V+yfgdjdK5Jmtwf7h8SpJk meta::function('reload', <<'__GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM'); execute($_) for (grep {! (/^internal::/ || /^bootstrap::/)} keys %data); __GwQjnnfuj0xQlervDJ9EVWzdmdz+XL3Gq0i9rdejvzM meta::function('rm', <<'__7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww'); for my $to_be_deleted (@_) { messages::warning("$to_be_deleted does not exist") unless grep {$_ eq $to_be_deleted} keys %data; } delete @data{@_}; __7BVECTVo/mcT5+edC70WPc6S1xCbzAeyUCfCjkKWlww meta::function('save', <<'__uWXGnrQr+A7Cl0zcsDuiokbWAw1XdMdjeq9gDcTMJIw'); my $serialized_data = serialize(); my $final_state = state(); my (undef, $temporary_filename) = tempfile("$0." . 'X' x 32, OPEN => 0); file::write($temporary_filename, $serialized_data); chmod 0700, $temporary_filename; my $observed_state = `perl $temporary_filename state`; chomp $observed_state; if ($observed_state ne $final_state) { messages::error("The state of this object ($final_state) is inconsistent with the state of $temporary_filename ($observed_state).\n" . "$0 has not been updated."); } else { eval {file::write($0, $serialized_data)}; warn $@ if $@; my $observed_self_state = `perl $0 state`; chomp $observed_self_state; unlink $temporary_filename if $observed_self_state eq $final_state; } __uWXGnrQr+A7Cl0zcsDuiokbWAw1XdMdjeq9gDcTMJIw meta::function('serialize', <<'__KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw'); my @keys_without_internals = grep(!/^internal::/, sort keys %data); join "\n", $data{'bootstrap::initialization'}, (grep {$_} (map {serialize::single(@_)} grep(/^meta::/, @keys_without_internals), grep(!/^meta::/, @keys_without_internals), grep(/^internal::/, sort keys %data))), "__END__"; __KGiI48MlyG6RAVW5QYRK8y97y8tx+jeAwPlY5eDtMTw meta::function('shell', <<'__mzNaDzdnJhpI/Va1/nY8LTN9BQtfr77CFKIeK2GdIC0'); use Term::ReadLine; my $term = new Term::ReadLine "$0 shell"; $term->ornaments(0); my $prompt = &{'name'}() . '$ '; my $OUT = $term->OUT || \*STDOUT; $term->Attribs->{attempted_completion_function} = \&complete; while (defined ($_ = $term->readline($prompt))) { my $command_line = $_; my @args = grep length, split /\s+|("[^"\\]*(?:\\.)?")/o; my $function_name = shift @args; return if $function_name eq 'exit'; s/^"(.*)"$/\1/o, s/\\\\"/"/go for @args; if ($function_name) { if ($externalized_functions{$function_name}) { my $result = eval {&{$function_name}(@args)}; messages::warning($@) if $@; chomp $result; print $OUT $result, "\n" unless $@; } else { messages::warning("Command not found: $function_name"); } } for my $watch (@{$transient{'watch_list'}}) { print $OUT eval($watch), "\n"; print $OUT "Error evaluating watched expression $watch: $@\n" if $@; } $prompt = &{'name'}() . '$ '; } __mzNaDzdnJhpI/Va1/nY8LTN9BQtfr77CFKIeK2GdIC0 meta::function('size', <<'__lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80'); length(serialize()); __lDGr6yVnDwcDWLkJH16MNukltjG2ypBSk/ktYb80h80 meta::function('snapshot', <<'__qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0'); my ($name) = @_; file::write(my $finalname = state_based_filename($name), serialize(), noclobber => 1); chmod 0700, $finalname; __qjqsCy4CTt88dIi7IWM+Varpb3GcHsYrFTxW7EwpLW0 meta::function('state', <<'__1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI'); sha256_base64 serialize(); __1S8nzRSMoxJU/VEv2rx/NrAt1iRgXQ9ugxjUP3IFunI meta::function('unlock', <<'__08PohCY8fcNe+pWCO6ic6XOOKv48NkrxpNMmTOUIFdA'); my (undef, undef, $mode) = stat $0; chmod $mode | 0200, $0; __08PohCY8fcNe+pWCO6ic6XOOKv48NkrxpNMmTOUIFdA meta::function('update-from', <<'__8cUncWUFuzX5fV+tgmVU+RvuWGPysHg3WqI6pYTcrQI'); # Upgrade all attributes that aren't customized. In this case, we want everything except for configuration::, code::, and attribute::. return "That is a really bad idea." if $0 =~ /\.\/(.*)/ && $_[0] eq $1 || $_[0] eq $0; terminal::message('info', 'Replicating state...'); &{'push-state'}(); terminal::message('info', 'Updating meta attributes...'); for my $attribute (grep length && /^meta::/, split(/\n/, `$_[0] ls-a`)) { associate($attribute, join('', `$_[0] cat $attribute`)); reload(); print '.'; } print "\n"; terminal::message('info', 'Updating non-meta attributes...'); for my $attribute (grep length && ! (/^configuration::/ || /^code::/ || /^attribute::/ || /^function::pop-state$/ || /^list::/ || /^issue::/ || /^data::/ || /^meta::datatypes/), split(/\n/, `$_[0] ls-a`)) { associate($attribute, join('', `$_[0] cat $attribute`)); reload(); # Necessary to activate new datatypes. print '.'; } print "\n"; terminal::message('info', 'Reloading new configuration'); reload(); terminal::message('info', "Imported from $_[0]. Run pop-state to undo this change."); __8cUncWUFuzX5fV+tgmVU+RvuWGPysHg3WqI6pYTcrQI meta::function('update-vimrc', <<'__vXYJyuiswAu5gUEffomx4F4qQKXZVppkzX+0XOyxRVU'); open my $fh, '>>', "$ENV{'HOME'}/.vimrc"; print $fh "au BufRead,BufNewFile *.clhtml set filetype=clhtml"; close $fh; __vXYJyuiswAu5gUEffomx4F4qQKXZVppkzX+0XOyxRVU meta::function('usage', <<'__oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I'); <<"EOD" . join ' ', split /\n/, ls (); Usage: $0 [options] action [arguments] Defined actions: EOD __oHVev4RtZlF/82SSE87y4Bf7ran2afn/HDtukOQBf9I meta::function('vim', <<'__1EcCMR8Tks8HBoOg+zAKJ4LlrRIY8nvLs4M1VTr2Zec'); # Installs VIM highlighters. file::write("$ENV{'HOME'}/.vim/syntax/$_.vim", retrieve("vim_highlighter::$_")) for map {s/^vim_highlighter:://o; $_} grep /^vim_highlighter::/, sort keys %data; __1EcCMR8Tks8HBoOg+zAKJ4LlrRIY8nvLs4M1VTr2Zec meta::internal_function('associate', <<'__D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0'); my ($name, $value, %options) = @_; my $namespace = namespace($name); messages::error("Namespace $namespace does not exist") unless grep {$_ eq $namespace} @data_types; $data{$name} = $value; execute($name) if $options{'execute'}; __D8BKmEFp/adiPPqPnXyMOzlsBMCmuZi62UpJWdoFg/0 meta::internal_function('basename', <<'__T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw'); my ($name) = @_; $name =~ s/^[^:]*:://; $name; __T4JEqOUYjMzssdVwV/rdgAhvr0Vz9TQUo0noTdeBLxw meta::internal_function('complete', <<'__lhlD80z2kvEUEeHPqLFw6JE8xUdXr6J5Q1gXHg4beHg'); my @functions = sort keys %externalized_functions; my @attributes = sort keys %data; sub match { my ($text, @options) = @_; my @matches = sort grep /^$text/, @options; if (@matches == 0) {return undef;} elsif (@matches == 1) {return $matches [0];} elsif (@matches > 1) {return ((longest ($matches [0], $matches [@matches - 1])), @matches);} } sub longest { my ($s1, $s2) = @_; return substr ($s1, 0, length $1) if ($s1 ^ $s2) =~ /^(\0*)/; return ''; } # This is another way to implement autocompletion. # # my $attribs = $term->Attribs; # $attribs->{completion_entry_function} = $attribs->{list_completion_function}; # $attribs->{completion_word} = [sort keys %data, sort keys %externalized_functions]; my ($text, $line) = @_; if ($line =~ / /) { # Start matching attribute names. match ($text, @attributes); } else { # Start of line, so it's a function. match ($text, @functions); } __lhlD80z2kvEUEeHPqLFw6JE8xUdXr6J5Q1gXHg4beHg meta::internal_function('execute', <<'__Ge94WTpmLuqsMDappj5G/G2BKILAE0GjeCqAeHLW6fQ'); my ($name, %options) = @_; my $namespace = namespace($name); eval {&{"meta::$namespace"}(basename($name), retrieve($name))}; warn $@ if $@ && $options{'carp'}; __Ge94WTpmLuqsMDappj5G/G2BKILAE0GjeCqAeHLW6fQ meta::internal_function('file::read', <<'__ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg'); my $name = shift; open my($handle), "<", $name; my $result = join "", <$handle>; close $handle; $result; __ZxBqZsMZZRuLMQp8Sy//ZsoAvriDebjYLGAX7p7AxXg meta::internal_function('file::write', <<'__+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o'); my ($name, $contents, %options) = @_; die "Choosing not to overwrite file $name" if $options{'noclobber'} && -f $name; open my($handle), ">", $name or die "Can't open $name for writing"; print $handle $contents; close $handle; __+NhpMabvNL+hHZaTZwBoFx2IFa79cjOZwGxEXX+xG0o meta::internal_function('invoke_editor_on', <<'__97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U'); my ($data, %options) = @_; my $content_hash = sha256_base64($data); my $editor = $options{'editor'} || $ENV{'VISUAL'} || $ENV{'EDITOR'} || messages::error('Either the $VISUAL or $EDITOR environment variable should be set to a valid editor.'); my $options = $options{'options'} || $ENV{'VISUAL_OPTS'} || $ENV{'EDITOR_OPTS'} || ''; my $extension = $options{'extension'} || ''; my (undef, $filename) = tempfile("$0." . ("X" x 32), OPEN => 0); $filename .= $extension; file::write($filename, $data); system("$editor $options \"$filename\""); my $result = file::read($filename); unlink $filename; $result; __97Lgs5+qfyAu92Vv5GCVVSYgUgFhOKYkVYXlbWoUs6U meta::internal_function('messages::error', <<'__200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4'); my ($message) = @_; die "$message\n"; __200qXouilOAQNa4NkmIj6l+Rvb49Jpy8yxvIX29NcK4 meta::internal_function('messages::warning', <<'__DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc'); my ($message) = @_; print "$message\n"; __DeU/1Klulk/y4fO+wtKt+liOmUKwCEYKM8BvtlXYXBc meta::internal_function('namespace', <<'__D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug'); my ($name) = @_; $name =~ s/::.*$//; $name; __D7UfKyyYZ1slZZyaS28hIt8a68jkI3ELBaddROXOHug meta::internal_function('retrieve', <<'__Erqqkp11FEHKsitr0DEJZ6OCGDYAs+U6BSu4UvLvsFM'); @data{@_}; __Erqqkp11FEHKsitr0DEJZ6OCGDYAs+U6BSu4UvLvsFM meta::internal_function('serialize::single', <<'__lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE'); my $name = shift || $_; my $contents = $data{$name}; my $delimiter = "__" . sha256_base64 $contents; my $meta_function_name = "meta::" . namespace($name); my $invocation_name = basename $name; "$meta_function_name('$invocation_name', <<'$delimiter');\n$contents\n$delimiter\n"; __lDBHaXpbrfER2envI2Ipy77IcdjUnlZou+rggaxsAWE meta::internal_function('state_based_filename', <<'__zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw'); my ($name) = @_; my $noise = $name || state(); $noise =~ s/\//-/g; "$0.$noise"; __zNSrihAkMKJG5spRYgcFdoNArFKig1u12gIp6gJ8pZw meta::library('terminal', <<'__bakqo5o+Exi5Kw4onujvi9Pu3zR9lQA8cPKfYj6L74Q'); # Functions for nice-looking terminal output. package terminal; use constant black => "0;0"; use constant red => "1;31"; use constant yellow => "1;33"; use constant green => "1;32"; use constant blue => "1;34"; use constant purple => "1;35"; use constant cyan => "1;36"; my %default_colors = (info => green); my $longest_prefix = 0; $longest_prefix = $longest_prefix < $_ ? $_ : $longest_prefix for map length, keys %default_colors; sub message { my ($prefix, $message) = @_; my $color = $default_colors{$prefix}; my $padding = ' ' x ($longest_prefix - length $prefix); print "${padding}[\033[${color}m$prefix\033[0;0m] $message\n"; } __bakqo5o+Exi5Kw4onujvi9Pu3zR9lQA8cPKfYj6L74Q meta::line_filter('convert_header_stuff', <<'__hlSIsuhEdQW46sxXbd5WyYgT0RVROsZX8q0UXKGOimg'); my ($line) = @_; $line =~ s/^\s*script$(.*)$$/

Introduction

Example: Returning a Value the Hard Way

Example: Emulating the Return Command

Example: Error Handling

Example: Re-Entrant Code

' + post_data['real-title'] + '