]> gitweb.factorcode.org Git - factor.git/commitdiff
more doc type fixes.
authorJohn Benediktsson <mrjbq7@gmail.com>
Sun, 25 May 2014 00:16:26 +0000 (17:16 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sun, 25 May 2014 00:16:26 +0000 (17:16 -0700)
19 files changed:
extra/24-game/24-game-docs.factor
extra/backtrack/backtrack-docs.factor
extra/bitcoin/client/client-docs.factor
extra/crypto/passwd-md5/passwd-md5-docs.factor
extra/game/models/obj/obj-docs.factor
extra/grouping/extras/extras-docs.factor
extra/hashcash/hashcash-docs.factor
extra/imap/imap-docs.factor
extra/math/algebra/algebra-docs.factor
extra/math/blas/vectors/vectors-docs.factor
extra/math/finance/finance-docs.factor
extra/math/primes/lists/lists-docs.factor
extra/math/text/french/french-docs.factor
extra/math/text/utils/utils-docs.factor
extra/path-finding/path-finding-docs.factor
extra/peg/javascript/javascript-docs.factor
extra/s3/s3-docs.factor
extra/sequences/extras/extras-docs.factor
extra/splitting/extras/extras-docs.factor

index 5f5cfb7e8e84f0153dcce10818a2a0e3186c133a..280d74dff916f0924738ec8630d8cb535162805d 100644 (file)
@@ -1,4 +1,4 @@
-USING: help.markup help.syntax math kernel arrays ;
+USING: arrays help.markup help.syntax kernel math ;
 IN: 24-game
 
 HELP: 24-game
@@ -48,7 +48,7 @@ HELP: makes-24?
     { "b" integer }
     { "c" integer }
     { "d" integer }
-    { "?" "a boolean" }
+    { "?" boolean }
 }
 { $description
     "Tells if it is possible to win 24-game with these integers."
index 2c753c2888998811172f56d0e4b07325319c332d..d9e344b130c619103fbf6e257bd4979d8e596fdf 100644 (file)
@@ -1,6 +1,6 @@
 ! Copyright (c) 2009 Samuel Tardieu.
 ! See See http://factorcode.org/license.txt for BSD license.
-USING: help.markup help.syntax quotations sequences ;
+USING: help.markup help.syntax kernel quotations sequences ;
 IN: backtrack
 
 HELP: fail
@@ -32,7 +32,7 @@ HELP: if-amb
 { $values
   { "true" { $quotation ( -- ? ) } }
   { "false" quotation }
-  { "?" "a boolean" }
+  { "?" boolean }
 }
 { $description "Execute the first quotation and returns " { $link t } " if it returns " { $link t } " itself. If it fails with " { $link fail } " or returns " { $link f } ", then the second quotation is executed and " { $link f } " is returned." } ;
 
index f5136b66dcfb80dfe31ad0f384acd40e13669e9f..c4350a3d7c475619b77481ba08881db203216973 100644 (file)
@@ -1,11 +1,11 @@
 ! Copyright (C) 2010 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: help.markup help.syntax ;
+USING: help.markup help.syntax kernel math sequences strings ;
 IN: bitcoin.client
 
 HELP: bitcoin-server
 { $values 
-  { "string" "a string" } 
+  { "string" string } 
 }
 { $description 
     "Returns the hostname of the json-rpc server for the bitcoin client. "
@@ -16,7 +16,7 @@ HELP: bitcoin-server
 
 HELP: bitcoin-port
 { $values 
-  { "n" "a number" } 
+  { "n" number } 
 }
 { $description 
     "Returns the port of the json-rpc server for the bitcoin client. "
@@ -27,7 +27,7 @@ HELP: bitcoin-port
 
 HELP: bitcoin-user
 { $values 
-  { "string" "a string" } 
+  { "string" string } 
 }
 { $description 
     "Returns the username required to authenticate with the json-rpc "
@@ -38,7 +38,7 @@ HELP: bitcoin-user
 
 HELP: bitcoin-password
 { $values 
-  { "string" "a string" } 
+  { "string" string } 
 }
 { $description 
     "Returns the password required to authenticate with the json-rpc "
@@ -49,8 +49,8 @@ HELP: bitcoin-password
 
 HELP: get-addresses-by-label
 { $values 
-  { "label" "a string" } 
-  { "seq" "a sequence" } 
+  { "label" string } 
+  { "seq" sequence } 
 }
 { $description 
     "Returns the list of addresses with the given label."
@@ -58,7 +58,7 @@ HELP: get-addresses-by-label
 
 HELP: get-balance
 { $values 
-  { "n" "a number" } 
+  { "n" number } 
 }
 { $description 
     "Returns the server's available balance."
@@ -66,7 +66,7 @@ HELP: get-balance
 
 HELP: get-block-count
 { $values 
-  { "n" "a number" } 
+  { "n" number } 
 }
 { $description 
     "Returns the number of blocks in the longest block chain."
@@ -74,7 +74,7 @@ HELP: get-block-count
 
 HELP: get-block-number
 { $values 
-  { "n" "a number" } 
+  { "n" number } 
 }
 { $description 
     "Returns the block number of the latest block in the longest block chain."
@@ -82,7 +82,7 @@ HELP: get-block-number
 
 HELP: get-connection-count
 { $values 
-  { "n" "a number" } 
+  { "n" number } 
 }
 { $description 
     "Returns the number of connections to other nodes."
@@ -90,7 +90,7 @@ HELP: get-connection-count
 
 HELP: get-difficulty
 { $values 
-  { "n" "a number" } 
+  { "n" number } 
 }
 { $description 
     "Returns the proof-of-work difficulty as a multiple of the minimum "
@@ -99,7 +99,7 @@ HELP: get-difficulty
 
 HELP: get-generate
 { $values 
-  { "?" "a boolean" } 
+  { "?" boolean } 
 }
 { $description 
     "Returns true if the server is trying to generate bitcoins, false "
@@ -108,8 +108,8 @@ HELP: get-generate
 
 HELP: set-generate
 { $values 
-  { "gen" "a boolean" } 
-  { "n" "a number" } 
+  { "gen" boolean } 
+  { "n" number } 
 }
 { $description 
     "If 'gen' is true, the server starts generating bitcoins. If 'gen' is "
@@ -128,8 +128,8 @@ HELP: get-info
 
 HELP: get-label
 { $values 
-  { "address" "a string" } 
-  { "label" "a string" } 
+  { "address" string } 
+  { "label" string } 
 }
 { $description 
     "Returns the label associated with the given address."
@@ -137,8 +137,8 @@ HELP: get-label
 
 HELP: set-label
 { $values 
-  { "address" "a string" } 
-  { "label" "a string" } 
+  { "address" string } 
+  { "label" string } 
 }
 { $description 
     "Sets the label associateed with the given address."
@@ -146,7 +146,7 @@ HELP: set-label
 
 HELP: remove-label
 { $values 
-  { "address" "a string" } 
+  { "address" string } 
 }
 { $description 
     "Removes the label associated with the given address."
@@ -154,7 +154,7 @@ HELP: remove-label
 
 HELP: get-new-address
 { $values 
-  { "address" "a string" } 
+  { "address" string } 
 }
 { $description 
     "Returns a new bitcoin address for receiving payments."
@@ -162,8 +162,8 @@ HELP: get-new-address
 
 HELP: get-new-labelled-address
 { $values 
-  { "label" "a string" } 
-  { "address" "a string" } 
+  { "label" string } 
+  { "address" string } 
 }
 { $description 
     "Returns a new bitcoin address for receiving payments. The given "
@@ -172,8 +172,8 @@ HELP: get-new-labelled-address
 
 HELP: get-received-by-address
 { $values 
-  { "address" "a string" } 
-  { "amount" "a number" }
+  { "address" string } 
+  { "amount" number }
 }
 { $description 
     "Returns the total amount received by the address in transactions "
@@ -182,9 +182,9 @@ HELP: get-received-by-address
 
 HELP: get-confirmed-received-by-address
 { $values 
-  { "address" "a string" } 
-  { "minconf" "a number" }
-  { "amount" "a number" }
+  { "address" string } 
+  { "minconf" number }
+  { "amount" number }
 }
 { $description 
     "Returns the total amount received by the address in transactions "
@@ -193,8 +193,8 @@ HELP: get-confirmed-received-by-address
 
 HELP: get-received-by-label
 { $values 
-  { "label" "a string" } 
-  { "amount" "a number" }
+  { "label" string } 
+  { "amount" number }
 }
 { $description 
     "Returns the total amount received by addresses with 'label' in transactions "
@@ -203,9 +203,9 @@ HELP: get-received-by-label
 
 HELP: get-confirmed-received-by-label
 { $values 
-  { "label" "a string" } 
-  { "minconf" "a number" }
-  { "amount" "a number" }
+  { "label" string } 
+  { "minconf" number }
+  { "amount" number }
 }
 { $description 
     "Returns the total amount received by the addresses with 'label' in transactions "
@@ -214,9 +214,9 @@ HELP: get-confirmed-received-by-label
 
 HELP: list-received-by-address
 { $values 
-  { "minconf" "a number" } 
-  { "include-empty" "a boolean" }
-  { "seq" "a sequence" }
+  { "minconf" number } 
+  { "include-empty" boolean }
+  { "seq" sequence }
 }
 { $description 
     "Return a sequence containing an assoc of data about the payments an "
@@ -227,9 +227,9 @@ HELP: list-received-by-address
 
 HELP: list-received-by-label
 { $values 
-  { "minconf" "a number" } 
-  { "include-empty" "a boolean" }
-  { "seq" "a sequence" }
+  { "minconf" number } 
+  { "include-empty" boolean }
+  { "seq" sequence }
 }
 { $description 
     "Return a sequence containing an assoc of data about the payments that "
@@ -241,9 +241,9 @@ HELP: list-received-by-label
 
 HELP: send-to-address
 { $values 
-  { "address" "a string" } 
-  { "amount" "a number" }
-  { "?" "a boolean" }
+  { "address" string } 
+  { "amount" number }
+  { "?" boolean }
 }
 { $description 
     "Sends 'amount' from the server's available balance to 'address'. "
@@ -258,9 +258,9 @@ HELP: stop
 
 HELP: list-transactions
 { $values 
-  { "count" "a number" } 
-  { "include-generated" "a boolean" }
-  { "seq" "a sequence" }
+  { "count" number } 
+  { "include-generated" boolean }
+  { "seq" sequence }
 }
 { $description 
     "Return's a sequence containing up to 'count' most recent transactions."
index 6bb6bf631cef0bc0df474869aa6ed88abd4705c5..3b4c7df6dfe220edfbda815843b5593a577c52df 100644 (file)
@@ -1,12 +1,13 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: help.markup help.syntax io.streams.string strings ;
+USING: help.markup help.syntax io.streams.string kernel
+strings ;
 IN: crypto.passwd-md5
 
 HELP: authenticate-password
 { $values
      { "shadow" string } { "password" string }
-     { "?" "a boolean" } }
+     { "?" boolean } }
 { $description "Encodes the provided password and compares it to the encoded password entry from a shadowed password file." } ;
 
 HELP: parse-shadow-password
index a41ca13b8e923aa31d3fcade43fc112c19774c0e..9fa51c4936aaf6979ebc3330fe70a851493c5f52 100644 (file)
@@ -1,9 +1,7 @@
 ! Copyright (C) 2010 Erik Charlebois
 ! See http://factorcode.org/license.txt for BSD license.
-USING: help.markup help.crossref help.stylesheet help.topics help.syntax
-definitions io prettyprint summary arrays math sequences vocabs strings
-see xml.data hashtables assocs game.models.obj.private game.models
-game.models.util io.pathnames ;
+USING: assocs game.models.obj.private help.markup help.syntax
+io.pathnames kernel sequences strings ;
 IN: game.models.obj
 
 ABOUT: "game.models.obj"
@@ -58,7 +56,7 @@ HELP: face>aos
 { $description "Convert a face line to a sequence of vertex attributes." } ;
 
 HELP: push*
-{ $values { "elt" "an object" } { "seq" sequence } }
+{ $values { "elt" object } { "seq" sequence } }
 { $description "Push the value onto the sequence, keeping the sequence on the stack." } ;
 
 HELP: push-current-model
index 4081df9d6745243210c7ebcaa997a9b71f2d58b0..fdf50c595686dcfae49125be135086dab0544df3 100644 (file)
@@ -3,7 +3,7 @@ USING: help.markup help.syntax sequences splitting strings ;
 IN: grouping.extras
 
 HELP: group-by
-{ $values { "seq" "a sequence" } { "quot" { $quotation ( elt -- key ) } } { "groups" "a new assoc" } }
+{ $values { "seq" sequence } { "quot" { $quotation ( elt -- key ) } } { "groups" "a new assoc" } }
 { $description "Groups the elements by the key received by applying quot to each element in the sequence." }
 { $examples
   { $example
index 85d98f1c99169feae024a2214fe866b72a884289..5de07be1660eededd1e19340c4fcd949f3359b2c 100644 (file)
@@ -1,4 +1,4 @@
-USING: help.markup help.syntax kernel math ;
+USING: help.markup help.syntax kernel math strings ;
 IN: hashcash
 
 ARTICLE: "hashcash" "Hashcash"
@@ -31,7 +31,7 @@ $nl
 { mint mint* <hashcash> check-stamp salt } related-words
 
 HELP: mint
-{ $values { "resource" "a string" } { "stamp" "generated stamp" } }
+{ $values { "resource" string } { "stamp" "generated stamp" } }
 { $description "This word generate a valid stamp with default parameters and the specified resource." } ;
 
 HELP: mint*
@@ -39,11 +39,11 @@ HELP: mint*
 { $description "As " { $snippet "mint" } " but it takes an hashcash tuple as a parameter." } ;
 
 HELP: check-stamp
-{ $values { "stamp" "a string" } { "?" boolean } }
+{ $values { "stamp" string } { "?" boolean } }
 { $description "Check for stamp's validity. Only supports hashcash version 1." } ;
 
 HELP: salt
-{ $values { "length" integer } { "salted" "a string" } }
+{ $values { "length" integer } { "salted" string } }
 { $description "It generates a random string of " { $snippet "length" } " characters." } ;
 
 HELP: <hashcash>
index e4f67f42812276d5a68d5444fb622f2b891542bd..bb077d1910fa3fbc483437ab85068f8c4e15d5e2 100644 (file)
@@ -65,7 +65,7 @@ HELP: capabilities
 { $description "Fetches the advertised extensions of the IMAP server." } ;
 
 HELP: list-folders
-{ $values { "directory" string } { "folders" "a sequence" } }
+{ $values { "directory" string } { "folders" sequence } }
 { $description "Lists all folders in " { $snippet "directory" } ". Folders is a sequence of 3-tuples with the attributes, root and name of each folder matched." } ;
 
 HELP: select-folder
index a623268403fc303e9d7b984a9be8ad78a93c9567..29bc7a1054b7fc0f4bcddadc67e6ce8fcfb09123 100644 (file)
@@ -1,6 +1,6 @@
-USING: help.markup help.syntax ;
+USING: help.markup help.syntax math ;
 IN: math.algebra
 
 HELP: chinese-remainder
-{ $values { "aseq" "a sequence of integers" } { "nseq" "a sequence of positive integers" } { "x" "an integer" } }
+{ $values { "aseq" "a sequence of integers" } { "nseq" "a sequence of positive integers" } { "x" integer } }
 { $description "If " { $snippet "nseq" } " integers are pairwise coprimes, " { $snippet "x" } " is the smallest positive integer congruent to each element in " { $snippet "aseq" } " modulo the corresponding element in " { $snippet "nseq" } "." } ;
index aa8faa4bce6ca6ee78074c42e249bc642e26ac2a..c3f1dda5ae555977eaba657a987fe196585921f2 100644 (file)
@@ -116,7 +116,7 @@ HELP: n*V+V
 { $description "Calculate the vector sum " { $snippet "αx + y" } " and return a freshly-allocated vector with the same length as " { $snippet "x" } " and " { $snippet "y" } " containing the result. Corresponds to the xAXPY routines in BLAS." } ;
 
 HELP: n*V
-{ $values { "alpha" "a number" } { "x" blas-vector-base } { "alpha*x" blas-vector-base } }
+{ $values { "alpha" number } { "x" blas-vector-base } { "alpha*x" blas-vector-base } }
 { $description "Calculate the scalar-vector product " { $snippet "αx" } " and return a freshly-allocated vector with the same length as " { $snippet "x" } " containing the result. Corresponds to the xSCAL routines in BLAS." } ;
 
 HELP: V+
index b7b81fa27be04df10c454eccc9a8401bacbeaa26..af76025072d966bba2be9b02376eadfcc1545dbb 100644 (file)
@@ -1,14 +1,14 @@
 ! Copyright (C) 2008 John Benediktsson, Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license
-USING: help.markup help.syntax math ;
+USING: help.markup help.syntax math sequences ;
 IN: math.finance
 
 HELP: sma
-{ $values { "seq" "a sequence" } { "n" "number of periods" } { "newseq" "a sequence" } }
+{ $values { "seq" sequence } { "n" "number of periods" } { "newseq" sequence } }
 { $description "Returns the Simple Moving Average with the specified periodicity." } ;
 
 HELP: ema
-{ $values { "seq" "a sequence" } { "n" "number of periods" } { "newseq" "a sequence" } }
+{ $values { "seq" sequence } { "n" "number of periods" } { "newseq" sequence } }
 { $description 
     "Returns the Exponential Moving Average with the specified periodicity, calculated by:\n" 
     { $list 
@@ -17,14 +17,14 @@ HELP: ema
 } ;
 
 HELP: macd
-{ $values { "seq" "a sequence" } { "n1" "short number of periods" } { "n2" "long number of periods" } { "newseq" "a sequence" } }
+{ $values { "seq" sequence } { "n1" "short number of periods" } { "n2" "long number of periods" } { "newseq" sequence } }
 { $description 
     "Returns the Moving Average Converge of the sequence, calculated by:\n"
     { $list "MACD[t] = EMA2[t] - EMA1[t]" }
 } ;
 
 HELP: momentum
-{ $values { "seq" "a sequence" } { "n" "number of periods" } { "newseq" "a sequence" } }
+{ $values { "seq" sequence } { "n" "number of periods" } { "newseq" sequence } }
 { $description
     "Returns the Momentum of the sequence, calculated by:\n"
     { $list "MOM[t] = SEQ[t] - SEQ[t-n]" }
index ecab12ceb7a0a00242521f643e554c9a0709615c..bc3f2c99e0698b5f57e005344eded0b5b3379a50 100644 (file)
@@ -1,4 +1,4 @@
-USING: help.markup help.syntax ;
+USING: help.markup help.syntax math ;
 IN: math.primes.lists
 
 HELP: lprimes
@@ -6,5 +6,5 @@ HELP: lprimes
 { $description "Return a sorted list containing all the prime numbers." } ;
 
 HELP: lprimes-from
-{ $values { "n" "an integer" } { "list" "a lazy list" } }
+{ $values { "n" integer } { "list" "a lazy list" } }
 { $description "Return a sorted list containing all the prime numbers greater or equal to " { $snippet "n" } "." } ;
index 702a963e05ffb9c83de69ba421d05b5a96e164e2..659c5eea10951f73adac69727563f8ea79c6e1df 100644 (file)
@@ -1,6 +1,6 @@
-USING: help.markup help.syntax ;
+USING: help.markup help.syntax math strings ;
 IN: math.text.french
 
 HELP: number>text
-{ $values { "n" "an integer" } { "str" "a string" } }
+{ $values { "n" integer } { "str" string } }
 { $description "Return the a string describing " { $snippet "n" } " in French. Numbers with absolute value equal to or greater than 10^12 will be returned using their numeric representation." } ;
index 2352ab948844fd2525650bc6d0da568c261bc8f2..cdfd3b38649d1e2ac79928f59fd490498d006453 100644 (file)
@@ -1,6 +1,6 @@
-USING: help.markup help.syntax ;
+USING: help.markup help.syntax sequences ;
 IN: math.text.utils
 
 HELP: digit-groups
-{ $values { "n" "a positive integer" } { "k" "a positive integer" } { "seq" "a sequence" } }
+{ $values { "n" "a positive integer" } { "k" "a positive integer" } { "seq" sequence } }
 { $description "Decompose a number into groups of " { $snippet "k" } " digits and return them in a sequence starting with the least significant grouped digits first." } ;
index 090bdb0f8f6d27999010f1a1c3bf0e92f0278a41..e94a223ea7da7a33a0e31992c41ff7d87fa61284 100644 (file)
@@ -1,6 +1,6 @@
 ! Copyright (C) 2010 Samuel Tardieu.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: help.markup help.syntax assocs ;
+USING: assocs help.markup help.syntax math sequences ;
 IN: path-finding
 
 { <astar> <bfs> <dijkstra> } related-words
@@ -15,7 +15,7 @@ HELP: cost
   { "from" "a node" }
   { "to" "a node" }
   { "astar" "an instance of a subclassed " { $link astar } " tuple" }
-  { "n" "a number" }
+  { "n" number }
 }
 { $description "Return the cost to go from " { $snippet "from" } " to " { $snippet "to" } ". "
   { $snippet "to" } " is necessarily a neighbour of " { $snippet "from" } "."
@@ -26,7 +26,7 @@ HELP: heuristic
   { "from" "a node" }
   { "to" "a node" }
   { "astar" "an instance of a subclassed " { $link astar } " tuple" }
-  { "n" "a number" }
+  { "n" number }
 }
 { $description "Return the estimated (undervalued) cost to go from " { $snippet "from" } " to " { $snippet "to" } ". "
   { $snippet "from" } " and " { $snippet "to" } " are not necessarily neighbours."
@@ -92,7 +92,7 @@ HELP: find-path
 HELP: considered
 { $values
   { "astar" astar }
-  { "considered" "a sequence" }
+  { "considered" sequence }
 }
 { $description "When called after a call to " { $link find-path } ", return a list of nodes "
   "which have been examined during the A* exploration."
index 5fdc3e858774c25479aaa10bb5a99f601b7a8c97..c05a61b235f0bee86425fd764c46f125b719554f 100644 (file)
@@ -1,14 +1,14 @@
 ! Copyright (C) 2007 Chris Double.\r
 ! See http://factorcode.org/license.txt for BSD license.\r
-USING: help.markup help.syntax ;\r
+USING: help.markup help.syntax strings ;\r
 IN: peg.javascript\r
 \r
 HELP: parse-javascript\r
-{ $values \r
-  { "string" "a string" } \r
-  { "ast" "a JavaScript abstract syntax tree" } \r
+{ $values\r
+  { "string" string }\r
+  { "ast" "a JavaScript abstract syntax tree" }\r
 }\r
-{ $description \r
+{ $description\r
     "Parse the input string using the JavaScript parser. Throws an error if "\r
     "the string does not contain valid JavaScript. Returns the abstract syntax tree "\r
     "if successful." } ;\r
index 6f9c10010da2d4e06031979aa53e60528f906a93..bac372bc150c6f88c771bbf078820e43084bef18 100644 (file)
@@ -1,6 +1,6 @@
 ! Copyright (C) 2009 Chris Double.\r
 ! See http://factorcode.org/license.txt for BSD license.\r
-USING: help.markup help.syntax ;\r
+USING: assocs help.markup help.syntax kernel strings ;\r
 IN: s3\r
 \r
 HELP: buckets\r
@@ -16,7 +16,7 @@ HELP: buckets
 \r
 HELP: create-bucket\r
 { $values \r
-  { "bucket" "a string" } \r
+  { "bucket" string } \r
 }\r
 { $description \r
     "Creates a bucket with the given name."\r
@@ -28,7 +28,7 @@ HELP: create-bucket
 \r
 HELP: delete-bucket\r
 { $values \r
-  { "bucket" "a string" } \r
+  { "bucket" string } \r
 }\r
 { $description \r
     "Deletes the bucket with the given name."\r
@@ -40,7 +40,7 @@ HELP: delete-bucket
 \r
 HELP: keys\r
 { $values \r
-  { "bucket" "a string" } \r
+  { "bucket" string } \r
   { "seq" "a sequence of " { $link key } " objects"} \r
 }\r
 { $description \r
@@ -53,10 +53,10 @@ HELP: keys
 \r
 HELP: get-object\r
 { $values \r
-  { "bucket" "a string" } \r
-  { "key" "a string" } \r
-  { "response" "The HTTP response object"} \r
-  { "data" "The data returned from the http request"} \r
+  { "bucket" string }\r
+  { "key" string }\r
+  { "response" "The HTTP response object"}\r
+  { "data" "The data returned from the http request"}\r
 }\r
 { $description \r
     "Does an HTTP request to retrieve the object in the bucket with the given key."\r
@@ -67,12 +67,12 @@ HELP: get-object
 ;\r
 \r
 HELP: put-object\r
-{ $values \r
-  { "data" "an object" } \r
-  { "mime-type" "a string" } \r
-  { "bucket" "a string"} \r
-  { "key" "a string"} \r
-  { "headers" "an assoc"} \r
+{ $values\r
+  { "data" object }\r
+  { "mime-type" string }\r
+  { "bucket" string }\r
+  { "key" string }\r
+  { "headers" assoc }\r
 }\r
 { $description \r
     "Stores the object under the key in the given bucket. The object has "\r
@@ -90,8 +90,8 @@ HELP: put-object
 \r
 HELP: delete-object\r
 { $values \r
-  { "bucket" "a string"} \r
-  { "key" "a string"} \r
+  { "bucket" string }\r
+  { "key" string }\r
 }\r
 { $description \r
     "Deletes the object in the bucket with the given key."\r
index 6dfb30c2ce01a007c290ad800d7b79f5bce466e2..17d7e3a8118b2d9dfbddb842264699550c4f6920 100644 (file)
@@ -1,11 +1,9 @@
-USING: arrays help.markup help.syntax math
-sequences.private vectors strings kernel math.order layouts
-quotations generic.single ;
+USING: help.markup help.syntax math sequences ;
 IN: sequences.extras
 
 HELP: subseq*
 { $values
-     { "from" "an integer" } { "to" "an integer" } { "seq" "sequence" } { "subseq" "sequence" } }
+     { "from" integer } { "to" integer } { "seq" sequence } { "subseq" sequence } }
 { $description "Outputs a new sequence using positions relative to one or both ends of the sequence. Positive values describes offsets relative to the start of the sequence, negative values relative to the end. Values of " { $link f } " for " { $snippet "from" } " indicate the beginning of the sequence, while an " { $link f } " for " { $snippet "to" } " indicates the end of the sequence." }
 { $notes "Both " { $snippet "from" } " and " { $snippet "to" } " can be safely set to values outside the length of the sequence. Also, " { $snippet "from" } " can safely reference a smaller or greater index position than " { $snippet "to" } "." }
 { $examples
index 4f61c07849764db94ef7749f08eb508ffc35f9bb..d4271db0511dd22278c11a59f58923bb713b6c45 100644 (file)
@@ -2,15 +2,15 @@ USING: help.markup help.syntax sequences splitting strings ;
 IN: splitting.extras
 
 HELP: split*-when
-{ $values { "seq" "a sequence" } { "quot" { $quotation ( ... elt -- ... ? ) } } { "pieces" "a new array" } }
+{ $values { "seq" sequence } { "quot" { $quotation ( ... elt -- ... ? ) } } { "pieces" "a new array" } }
 { $description "A variant of " { $link split-when } " that includes the elements along which the sequence was split." }
 { $examples { $example "USING: ascii kernel prettyprint splitting.extras ;" "\"hello,world-how.are:you\" [ letter? not ] split*-when ." "{ \"hello\" \",\" \"world\" \"-\" \"how\" \".\" \"are\" \":\" \"you\" }" } } ;
 
 HELP: split*
-{ $values { "seq" "a sequence" } { "separators" "a sequence" } { "pieces" "a new array" } }
+{ $values { "seq" sequence } { "separators" sequence } { "pieces" "a new array" } }
 { $description "A variant of " { $link split } " that includes the elements along which the sequence was split." }
 { $examples { $example "USING: prettyprint splitting.extras ;" "\"hello world-how are you?\" \" -\" split* ." "{ \"hello\" \" \" \"world\" \"-\" \"how\" \" \" \"are\" \" \" \"you?\" }" } } ;
 
 HELP: split-find
-{ $values { "seq" "a sequence" } { "quot" { $quotation ( seq -- i ) } } { "pieces" "a new array" } }
+{ $values { "seq" sequence } { "quot" { $quotation ( seq -- i ) } } { "pieces" "a new array" } }
 { $description "Splits a sequence into slices using the provided quotation to find split points." } ;