| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | ! Copyright (C) 2010 John Benediktsson | 
					
						
							|  |  |  | ! See http://factorcode.org/license.txt for BSD license | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | USING: help.syntax help.markup io.sockets math memcached | 
					
						
							|  |  |  | quotations sequences strings ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | IN: memcached | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: memcached-server | 
					
						
							|  |  |  | { $var-description | 
					
						
							|  |  |  |     "Holds an " { $link inet } " object with the address of " | 
					
						
							| 
									
										
										
										
											2015-07-02 13:31:22 -04:00
										 |  |  |     "an Memcached server." | 
					
						
							| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: with-memcached | 
					
						
							|  |  |  | { $values { "quot" quotation } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Opens a network connection to the " { $link memcached-server } | 
					
						
							|  |  |  |     " and runs the specified quotation." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/get | 
					
						
							|  |  |  | { $values { "key" string } { "val" string } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Gets a single key." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/set | 
					
						
							|  |  |  | { $values { "val" string } { "key" string } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Sets a single key to a particular value, whether the item " | 
					
						
							|  |  |  |     "exists or not." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/add | 
					
						
							|  |  |  | { $values { "val" string } { "key" string } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Adds an item only if the item does not already exist. " | 
					
						
							|  |  |  |     "If the item already exists, throws an error." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/replace | 
					
						
							|  |  |  | { $values { "val" string } { "key" string } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Replaces an item only if it already eixsts. " | 
					
						
							|  |  |  |     "If the item does not exist, throws an error." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/delete | 
					
						
							|  |  |  | { $values { "key" string } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Deletes an item." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/append | 
					
						
							|  |  |  | { $values { "val" string } { "key" string } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Appends the value to the specified item." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/prepend | 
					
						
							|  |  |  | { $values { "val" string } { "key" string } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Prepends the value to the specified item." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/incr | 
					
						
							| 
									
										
										
										
											2011-08-23 15:19:58 -04:00
										 |  |  | { $values { "key" string } { "val" string } } | 
					
						
							| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | { $description | 
					
						
							|  |  |  |     "Increments the value of the specified item by 1." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/incr-val | 
					
						
							| 
									
										
										
										
											2011-08-23 15:19:58 -04:00
										 |  |  | { $values { "amt" string } { "key" string } { "val" string } } | 
					
						
							| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | { $description | 
					
						
							|  |  |  |     "Increments the value of the specified item by the specified amount." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/decr | 
					
						
							| 
									
										
										
										
											2011-08-23 15:19:58 -04:00
										 |  |  | { $values { "key" string } { "val" string } } | 
					
						
							| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | { $description | 
					
						
							|  |  |  |     "Decrements the value of the specified item by 1." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/decr-val | 
					
						
							| 
									
										
										
										
											2011-08-23 15:19:58 -04:00
										 |  |  | { $values { "amt" string } { "key" string } { "val" string } } | 
					
						
							| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | { $description | 
					
						
							|  |  |  |     "Decrements the value of the specified item by the specified amount." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/version | 
					
						
							| 
									
										
										
										
											2011-08-23 15:19:58 -04:00
										 |  |  | { $values { "version" string } } | 
					
						
							| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | { $description | 
					
						
							|  |  |  |     "Retrieves the version of the " { $link memcached-server } "." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/noop | 
					
						
							|  |  |  | { $description | 
					
						
							| 
									
										
										
										
											2017-06-05 13:13:54 -04:00
										 |  |  |     "Used as a keep-alive. Also flushes any outstanding quiet gets." | 
					
						
							| 
									
										
										
										
											2011-08-19 16:11:24 -04:00
										 |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/stats | 
					
						
							|  |  |  | { $values { "stats" sequence } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Get various statistics about the " { $link memcached-server } "." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/flush | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Deletes all the items in the cache now." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/flush-later | 
					
						
							|  |  |  | { $values { "seconds" integer } } | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Deletes all the items in the cache sometime in the future." | 
					
						
							|  |  |  | } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: m/quit | 
					
						
							|  |  |  | { $description | 
					
						
							|  |  |  |     "Close the connection to the " { $link memcached-server } "." | 
					
						
							|  |  |  | } ;
 |