git.annexia.org
/
libguestfs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fb19874
)
Documentation fixes.
author
Richard Jones
<rjones@redhat.com>
Fri, 10 Apr 2009 09:19:00 +0000
(10:19 +0100)
committer
Richard Jones
<rjones@redhat.com>
Fri, 10 Apr 2009 09:19:00 +0000
(10:19 +0100)
src/generator.ml
patch
|
blob
|
history
diff --git
a/src/generator.ml
b/src/generator.ml
index
50079eb
..
54c691b
100755
(executable)
--- a/
src/generator.ml
+++ b/
src/generator.ml
@@
-15,11
+15,19
@@
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- *
- * This script generates a large amount of code and documentation for
+ *)
+
+(* This script generates a large amount of code and documentation for
* all the daemon actions. To add a new action there are only two
* files you need to change, this one to describe the interface, and
* daemon/<somefile>.c to write the implementation.
* all the daemon actions. To add a new action there are only two
* files you need to change, this one to describe the interface, and
* daemon/<somefile>.c to write the implementation.
+ *
+ * After editing this file, run it (./src/generator.ml) to regenerate
+ * all the output files.
+ *
+ * IMPORTANT: This script should not print any warnings. If it prints
+ * warnings, you should treat them as errors.
+ * [Need to add -warn-error to ocaml command line]
*)
#load "unix.cma";;
*)
#load "unix.cma";;
@@
-32,7
+40,7
@@
and ret =
* indication, ie. 0 or -1.
*)
| Err
* indication, ie. 0 or -1.
*)
| Err
- (* "Int" as a return value means an int which is -1 for error
+ (* "
R
Int" as a return value means an int which is -1 for error
* or any value >= 0 on success.
*)
| RInt of string
* or any value >= 0 on success.
*)
| RInt of string