sfml3-rb 0.2.2 → 0.3.1

data/ext/graphics/view.c

@@ -42,36 +42,86 @@ static VALUE View_new_from(VALUE klass, sfView* c_view) {
     return self;
 }
 
-static VALUE View_new(VALUE klass) {
-    return View_new_from(klass, NULL);
+static VALUE View_alloc(VALUE klass) {
+    sfView* view = View_create();
+
+    if (view == NULL) {
+        rb_raise(rb_eRuntimeError, "failed to create view");
+    }
+
+    return TypedData_Wrap_Struct(klass, &View_data_type, view);
 }
 
 /* The rect is the visible area: position is the top-left corner, not the
    centre, which is what distinguishes this from new + center=/size=. */
+/* call-seq:
+ *   View.from_rect(rect) -> View
+ *
+ * Creates a view covering the given rectangle.
+ *
+ * @return [View] a view whose visible area is +rect+ (position is the
+ *   top-left corner)
+ */
 static VALUE View_s_from_rect(VALUE klass, VALUE rb_rect) {
     return View_new_from(klass, sfView_createFromRect(rect_from_rb(rb_rect)));
 }
 
+/* call-seq:
+ *   View.new -> View
+ *
+ * Creates a default view covering the (0, 0) - (1000, 1000) region.
+ *
+ * @return [View]
+ */
 static VALUE View_init(VALUE self) {
     return self;
 }
 
+/* call-seq:
+ *   rotation=(value) -> self
+ *
+ * Sets the object's rotation, in degrees.
+ *
+ * @return [self]
+ */
 static VALUE View_set_rotation(VALUE self, VALUE rb_rotation) {
     sfView_setRotation(Get_View_Struct(self), NUM2DBL(rb_rotation));
     return self;
 }
 
+/* call-seq:
+ *   size=(value) -> self
+ *
+ * Sets the object's size.
+ *
+ * @return [self]
+ */
 static VALUE View_set_size(VALUE self, VALUE rb_scale) {
     sfView_setSize(Get_View_Struct(self), vec2f_from_rb(rb_scale));
     return self;
 }
 
+/* call-seq:
+ *   center=(value) -> self
+ *
+ * Sets the view's center.
+ *
+ * @return [self]
+ */
 static VALUE View_set_center(VALUE self, VALUE rb_origin) {
     sfVector2f origin = VEC2_RB2C(rb_origin);
     sfView_setCenter(Get_View_Struct(self), origin);
     return self;
 }
 
+/* call-seq:
+ *   viewport=(value) -> self
+ *
+ * Sets the viewport: the target-relative (0..1) rectangle this view is
+ * rendered into.
+ *
+ * @return [self]
+ */
 static VALUE View_set_viewport(VALUE self, VALUE rb_viewport) {
     sfFloatRect viewport = RECT_RB2C(rb_viewport);
     sfView_setViewport(Get_View_Struct(self), viewport);
@@ -79,57 +129,141 @@ static VALUE View_set_viewport(VALUE self, VALUE rb_viewport) {
     return self;
 }
 
+/* call-seq: rotation -> Float
+ *
+ * Returns the object's rotation, in degrees.
+ *
+ * @return [Float] degrees
+ */
 static VALUE View_get_rotation(VALUE self) {
     return DBL2NUM(sfView_getRotation(Get_View_Struct(self)));
 }
 
+/* call-seq: size -> Vector2
+ *
+ * Returns the object's size.
+ *
+ * @return [Vector2]
+ */
 static VALUE View_get_size(VALUE self) {
     return vec2f_to_rb(sfView_getSize(Get_View_Struct(self)));
 }
 
+/* call-seq: center -> Vector2
+ *
+ * Returns the view's center.
+ *
+ * @return [Vector2]
+ */
 static VALUE View_get_center(VALUE self) {
     return vec2f_to_rb(sfView_getCenter(Get_View_Struct(self)));
 }
 
+/* call-seq: viewport -> Rect
+ *
+ * Returns the target's viewport rectangle, or +nil+ if none is set.
+ *
+ * @return [Rect]
+ */
 static VALUE View_get_viewport(VALUE self) {
     return RECT_C2RB(sfView_getViewport(Get_View_Struct(self)));
 }
 
+/* call-seq:
+ *   scissor=(value) -> self
+ *
+ * Sets the target's scissor rectangle.
+ *
+ * @return [self]
+ */
 static VALUE View_set_scissor(VALUE self, VALUE rb_scissor) {
     sfView_setScissor(Get_View_Struct(self), RECT_RB2C(rb_scissor));
 
     return self;
 }
 
+/* call-seq: scissor -> Rect
+ *
+ * Returns the target's scissor rectangle, or +nil+ if none is set.
+ *
+ * @return [Rect]
+ */
 static VALUE View_get_scissor(VALUE self) {
     return RECT_C2RB(sfView_getScissor(Get_View_Struct(self)));
 }
 
+/* call-seq:
+ *   move(offset) -> self
+ *
+ * Moves the object by +offset+.
+ *
+ * @return [self]
+ */
 static VALUE View_move(VALUE self, VALUE rb_move) {
     sfView_move(Get_View_Struct(self), vec2f_from_rb(rb_move));
     return self;
 }
 
+/* call-seq:
+ *   rotate(angle) -> self
+ *
+ * Rotates the object by +angle+ degrees.
+ *
+ * @return [self]
+ */
 static VALUE View_rotate(VALUE self, VALUE rb_angle) {
     sfView_rotate(Get_View_Struct(self), NUM2DBL(rb_angle));
 
     return self;
 }
 
+/* call-seq:
+ *   zoom(factor) -> self
+ *
+ * Multiplies the view's size by +factor+.
+ *
+ * @return [self]
+ */
 static VALUE View_zoom(VALUE self, VALUE rb_zoom) {
     sfView_zoom(Get_View_Struct(self), NUM2DBL(rb_zoom));
 
     return self;
 }
 
+/* call-seq: copy -> View
+ *
+ * Returns a deep copy of the object.
+ *
+ * @return [View] an independent copy
+ */
 static VALUE View_copy(VALUE self) {
     return Get_Casting_View(sfView_copy(Get_View_Struct(self)));
 }
 
-void Init_View(VALUE rb_module) {
-    rb_cView = rb_define_class_under(rb_module, "View", rb_cObject);
-
-    rb_define_singleton_method(rb_cView, "new", View_new, 0);
+/* Document-class: SFML::View
+ * A 2D camera: the region of the scene visible on a render target, and
+ * where on that target it is shown.
+ *
+ * @!attribute rotation
+ *   The object's rotation, in degrees.
+ *   @return [Float] degrees
+ * @!attribute size
+ *   The object's size.
+ *   @return [Vector2]
+ * @!attribute center
+ *   The view's center.
+ *   @return [Vector2]
+ * @!attribute viewport
+ *   The view's viewport rectangle.
+ *   @return [Rect] the target-relative (0..1) rectangle this view renders into
+ * @!attribute scissor
+ *   The view's scissor rectangle.
+ *   @return [Rect]
+ */
+void Init_View(VALUE rb_mSFML) {
+    rb_cView = rb_define_class_under(rb_mSFML, "View", rb_cObject);
+
+    rb_define_alloc_func(rb_cView, View_alloc);
     rb_define_singleton_method(rb_cView, "from_rect", View_s_from_rect, 1);
 
     // methods

data/ext/network/ftp.c

@@ -130,10 +130,48 @@ static VALUE FtpListingResponse_wrap(sfFtpListingResponse* handle) {
     return TypedData_Wrap_Struct(rb_cFtpListingResponse, &FtpListingResponse_data_type, ptr);
 }
 
-static VALUE Ftp_new(VALUE klass) {
+static VALUE Ftp_alloc(VALUE klass) {
+    (void)klass;
     return Ftp_wrap(sfFtp_create());
 }
 
+static VALUE FtpResponse_alloc(VALUE klass) {
+    (void)klass;
+    rb_raise(rb_eNotImpError, "FTP response objects are returned by Ftp methods and cannot be "
+                              "constructed directly");
+}
+
+static VALUE FtpDirectoryResponse_alloc(VALUE klass) {
+    (void)klass;
+    rb_raise(rb_eNotImpError, "FTP response objects are returned by Ftp methods and cannot be "
+                              "constructed directly");
+}
+
+static VALUE FtpListingResponse_alloc(VALUE klass) {
+    (void)klass;
+    rb_raise(rb_eNotImpError, "FTP response objects are returned by Ftp methods and cannot be "
+                              "constructed directly");
+}
+
+/* call-seq:
+ *   Ftp.new -> Ftp
+ *
+ * Creates a new FTP client.
+ *
+ * @return [Ftp]
+ */
+static VALUE Ftp_initialize(VALUE self) {
+    return self;
+}
+
+/* call-seq:
+ *   connect(address, port = 21, timeout = Time.zero) -> FtpResponse
+ *
+ * Connects to the specified FTP server. Blocks until connected or
+ * +timeout+ elapses.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_connect(int argc, VALUE* argv, VALUE self) {
     VALUE rb_address, rb_port, rb_timeout;
     sfTime timeout = sfTime_Zero;
@@ -153,27 +191,70 @@ static VALUE Ftp_connect(int argc, VALUE* argv, VALUE self) {
         Get_Ftp_Struct(self), ip_address_from_rb(rb_address, sfIpAddress_None), port, timeout));
 }
 
+/* call-seq:
+ *   login_anonymous -> FtpResponse
+ *
+ * Logs in using the standard "anonymous" account.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_login_anonymous(VALUE self) {
     return FtpResponse_wrap(sfFtp_loginAnonymous(Get_Ftp_Struct(self)));
 }
 
+/* call-seq:
+ *   login(name, password) -> FtpResponse
+ *
+ * Logs in with the given +name+ and +password+.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_login(VALUE self, VALUE rb_name, VALUE rb_password) {
     return FtpResponse_wrap(
         sfFtp_login(Get_Ftp_Struct(self), StringValueCStr(rb_name), StringValueCStr(rb_password)));
 }
 
+/* call-seq:
+ *   disconnect -> FtpResponse
+ *
+ * Closes the connection with the server.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_disconnect(VALUE self) {
     return FtpResponse_wrap(sfFtp_disconnect(Get_Ftp_Struct(self)));
 }
 
+/* call-seq:
+ *   keep_alive -> FtpResponse
+ *
+ * Sends a null command to keep the connection alive.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_keep_alive(VALUE self) {
     return FtpResponse_wrap(sfFtp_keepAlive(Get_Ftp_Struct(self)));
 }
 
+/* call-seq:
+ *   working_directory -> FtpDirectoryResponse
+ *
+ * Returns the current working directory on the server.
+ *
+ * @return [FtpDirectoryResponse] the current working directory on the server
+ */
 static VALUE Ftp_working_directory(VALUE self) {
     return FtpDirectoryResponse_wrap(sfFtp_getWorkingDirectory(Get_Ftp_Struct(self)));
 }
 
+/* call-seq:
+ *   directory_listing(directory = nil) -> FtpListingResponse
+ *
+ * Lists the contents of +directory+ (or the current working directory if
+ * omitted/nil).
+ *
+ * @return [FtpListingResponse]
+ */
 static VALUE Ftp_directory_listing(int argc, VALUE* argv, VALUE self) {
     VALUE rb_directory;
 
@@ -183,32 +264,82 @@ static VALUE Ftp_directory_listing(int argc, VALUE* argv, VALUE self) {
         Get_Ftp_Struct(self), NIL_P(rb_directory) ? NULL : StringValueCStr(rb_directory)));
 }
 
+/* call-seq:
+ *   change_directory(directory) -> FtpResponse
+ *
+ * Changes the current working directory on the server.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_change_directory(VALUE self, VALUE rb_directory) {
     return FtpResponse_wrap(
         sfFtp_changeDirectory(Get_Ftp_Struct(self), StringValueCStr(rb_directory)));
 }
 
+/* call-seq:
+ *   parent_directory -> FtpResponse
+ *
+ * Moves to the parent directory of the current working directory.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_parent_directory(VALUE self) {
     return FtpResponse_wrap(sfFtp_parentDirectory(Get_Ftp_Struct(self)));
 }
 
+/* call-seq:
+ *   create_directory(name) -> FtpResponse
+ *
+ * Creates a directory named +name+ on the server.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_create_directory(VALUE self, VALUE rb_name) {
     return FtpResponse_wrap(sfFtp_createDirectory(Get_Ftp_Struct(self), StringValueCStr(rb_name)));
 }
 
+/* call-seq:
+ *   delete_directory(name) -> FtpResponse
+ *
+ * Deletes the directory named +name+ on the server.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_delete_directory(VALUE self, VALUE rb_name) {
     return FtpResponse_wrap(sfFtp_deleteDirectory(Get_Ftp_Struct(self), StringValueCStr(rb_name)));
 }
 
+/* call-seq:
+ *   rename_file(file, new_name) -> FtpResponse
+ *
+ * Renames +file+ to +new_name+ on the server.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_rename_file(VALUE self, VALUE rb_file, VALUE rb_new_name) {
     return FtpResponse_wrap(sfFtp_renameFile(Get_Ftp_Struct(self), StringValueCStr(rb_file),
                                              StringValueCStr(rb_new_name)));
 }
 
+/* call-seq:
+ *   delete_file(name) -> FtpResponse
+ *
+ * Deletes the file named +name+ on the server.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_delete_file(VALUE self, VALUE rb_name) {
     return FtpResponse_wrap(sfFtp_deleteFile(Get_Ftp_Struct(self), StringValueCStr(rb_name)));
 }
 
+/* call-seq:
+ *   download(remote_file, local_path, mode = :binary) -> FtpResponse
+ *
+ * Downloads +remote_file+ from the server into +local_path+ (a local
+ * directory). +mode+ is an FtpTransferMode name or value.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_download(int argc, VALUE* argv, VALUE self) {
     VALUE rb_remote, rb_local, rb_mode;
     sfFtpTransferMode mode = sfFtpBinary;
@@ -223,6 +354,16 @@ static VALUE Ftp_download(int argc, VALUE* argv, VALUE self) {
                                            StringValueCStr(rb_local), mode));
 }
 
+/* call-seq:
+ *   upload(local_file, remote_path, mode = :binary, append = false) -> FtpResponse
+ *
+ * Uploads +local_file+ to +remote_path+ (a directory on the server).
+ * +mode+ is an FtpTransferMode name or value; if +append+ is true, the
+ * data is appended to an existing remote file of the same name instead of
+ * overwriting it.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_upload(int argc, VALUE* argv, VALUE self) {
     VALUE rb_local, rb_remote, rb_mode, rb_append;
     sfFtpTransferMode mode = sfFtpBinary;
@@ -242,6 +383,14 @@ static VALUE Ftp_upload(int argc, VALUE* argv, VALUE self) {
                                          StringValueCStr(rb_remote), mode, append));
 }
 
+/* call-seq:
+ *   send_command(command, parameter = nil) -> FtpResponse
+ *
+ * Sends a raw FTP command, for functionality not exposed by the other
+ * methods. +command+ should not include the trailing CRLF.
+ *
+ * @return [FtpResponse]
+ */
 static VALUE Ftp_send_command(int argc, VALUE* argv, VALUE self) {
     VALUE rb_command, rb_parameter;
 
@@ -252,81 +401,198 @@ static VALUE Ftp_send_command(int argc, VALUE* argv, VALUE self) {
                           NIL_P(rb_parameter) ? NULL : StringValueCStr(rb_parameter)));
 }
 
+/* call-seq: ok? -> true or false
+ *
+ * Returns +true+ if the server reported success.
+ *
+ * @return [Boolean] whether the status is a "success" code (< 400)
+ */
 static VALUE FtpResponse_ok(VALUE self) {
     return BOOL2RB(sfFtpResponse_isOk(Get_FtpResponse_Struct(self)));
 }
 
+/* call-seq: status -> Integer
+ *
+ * Returns the raw status code reported by the server.
+ *
+ * @return [Integer] the raw FTP status code
+ */
 static VALUE FtpResponse_status(VALUE self) {
     return INT2NUM(sfFtpResponse_getStatus(Get_FtpResponse_Struct(self)));
 }
 
+/* call-seq: status_name -> Symbol
+ *
+ * Returns the status as an FtpStatus name.
+ *
+ * @return [Symbol] an FtpStatus name for #status
+ */
 static VALUE FtpResponse_status_name(VALUE self) {
     return ID2SYM(
         rb_intern(ftp_status_name(sfFtpResponse_getStatus(Get_FtpResponse_Struct(self)))));
 }
 
+/* call-seq: message -> String
+ *
+ * Returns the message sent by the server.
+ *
+ * @return [String] the full response message sent by the server
+ */
 static VALUE FtpResponse_message(VALUE self) {
     return rb_str_new_cstr(sfFtpResponse_getMessage(Get_FtpResponse_Struct(self)));
 }
 
+/* call-seq: ok? -> true or false
+ *
+ * Returns +true+ if the server reported success.
+ *
+ * @return [Boolean] whether the status is a "success" code (< 400)
+ */
 static VALUE FtpDirectoryResponse_ok(VALUE self) {
     return BOOL2RB(sfFtpDirectoryResponse_isOk(Get_FtpDirectoryResponse_Struct(self)));
 }
 
+/* call-seq: status -> Integer
+ *
+ * Returns the raw status code reported by the server.
+ *
+ * @return [Integer] the raw FTP status code
+ */
 static VALUE FtpDirectoryResponse_status(VALUE self) {
     return INT2NUM(sfFtpDirectoryResponse_getStatus(Get_FtpDirectoryResponse_Struct(self)));
 }
 
+/* call-seq: status_name -> Symbol
+ *
+ * Returns the status as an FtpStatus name.
+ *
+ * @return [Symbol] an FtpStatus name for #status
+ */
 static VALUE FtpDirectoryResponse_status_name(VALUE self) {
     return ID2SYM(rb_intern(
         ftp_status_name(sfFtpDirectoryResponse_getStatus(Get_FtpDirectoryResponse_Struct(self)))));
 }
 
+/* call-seq: message -> String
+ *
+ * Returns the message sent by the server.
+ *
+ * @return [String] the full response message sent by the server
+ */
 static VALUE FtpDirectoryResponse_message(VALUE self) {
     return rb_str_new_cstr(
         sfFtpDirectoryResponse_getMessage(Get_FtpDirectoryResponse_Struct(self)));
 }
 
-/* Through the UTF-32 entry point, so a path with non-ASCII characters survives
-   the trip; the plain getter re-encodes it through the C locale. */
+/* call-seq: directory -> String
+ *
+ * Through the UTF-32 entry point, so a path with non-ASCII characters survives
+ * the trip; the plain getter re-encodes it through the C locale.
+ *
+ * @return [String] the directory requested/reported by the server
+ */
 static VALUE FtpDirectoryResponse_directory(VALUE self) {
     return utf32_to_rb(
         sfFtpDirectoryResponse_getDirectoryUnicode(Get_FtpDirectoryResponse_Struct(self)));
 }
 
+/* call-seq: ok? -> true or false
+ *
+ * Returns +true+ if the server reported success.
+ *
+ * @return [Boolean] whether the status is a "success" code (< 400)
+ */
 static VALUE FtpListingResponse_ok(VALUE self) {
     return BOOL2RB(sfFtpListingResponse_isOk(Get_FtpListingResponse_Struct(self)));
 }
 
+/* call-seq: status -> Integer
+ *
+ * Returns the raw status code reported by the server.
+ *
+ * @return [Integer] the raw FTP status code
+ */
 static VALUE FtpListingResponse_status(VALUE self) {
     return INT2NUM(sfFtpListingResponse_getStatus(Get_FtpListingResponse_Struct(self)));
 }
 
+/* call-seq: status_name -> Symbol
+ *
+ * Returns the status as an FtpStatus name.
+ *
+ * @return [Symbol] an FtpStatus name for #status
+ */
 static VALUE FtpListingResponse_status_name(VALUE self) {
     return ID2SYM(rb_intern(
         ftp_status_name(sfFtpListingResponse_getStatus(Get_FtpListingResponse_Struct(self)))));
 }
 
+/* call-seq: message -> String
+ *
+ * Returns the message sent by the server.
+ *
+ * @return [String] the full response message sent by the server
+ */
 static VALUE FtpListingResponse_message(VALUE self) {
     return rb_str_new_cstr(sfFtpListingResponse_getMessage(Get_FtpListingResponse_Struct(self)));
 }
 
+/* call-seq: count -> Integer
+ *
+ * Returns the number of filenames in the listing.
+ *
+ * @return [Integer] the number of filenames in the listing
+ */
 static VALUE FtpListingResponse_count(VALUE self) {
     return SIZET2NUM(sfFtpListingResponse_getCount(Get_FtpListingResponse_Struct(self)));
 }
 
+/* call-seq:
+ *   name(index) -> String
+ *
+ * Returns the filename stored at +index+ in the listing.
+ *
+ * @return [String] the filename at +index+ in the listing
+ * @raise [IndexError] if +index+ is out of range
+ */
 static VALUE FtpListingResponse_name(VALUE self, VALUE rb_index) {
-    return rb_str_new_cstr(sfFtpListingResponse_getName(Get_FtpListingResponse_Struct(self),
-                                                        (size_t)NUM2SIZET(rb_index)));
-}
+    void* response = Get_FtpListingResponse_Struct(self);
+    size_t index = (size_t)NUM2SIZET(rb_index);
+    size_t count = sfFtpListingResponse_getCount(response);
 
-void Init_Ftp(VALUE rb_module) {
-    rb_cFtp = rb_define_class_under(rb_module, "Ftp", rb_cObject);
-    rb_cFtpResponse = rb_define_class_under(rb_module, "FtpResponse", rb_cObject);
-    rb_cFtpDirectoryResponse = rb_define_class_under(rb_module, "FtpDirectoryResponse", rb_cObject);
-    rb_cFtpListingResponse = rb_define_class_under(rb_module, "FtpListingResponse", rb_cObject);
+    if (index >= count) {
+        rb_raise(rb_eIndexError, "index %zu outside of listing size %zu", index, count);
+    }
 
-    rb_define_singleton_method(rb_cFtp, "new", Ftp_new, 0);
+    return rb_str_new_cstr(sfFtpListingResponse_getName(response, index));
+}
+
+/* Document-class: SFML::Ftp
+ * A basic FTP client. Every command method blocks until the server replies
+ * and returns an FtpResponse (or a more specific subtype).
+ */
+void Init_Ftp(VALUE rb_mSFML) {
+    rb_cFtp = rb_define_class_under(rb_mSFML, "Ftp", rb_cObject);
+    rb_define_alloc_func(rb_cFtp, Ftp_alloc);
+    /* Document-class: SFML::FtpResponse
+     * The status and message returned by most Ftp commands.
+     */
+    rb_cFtpResponse = rb_define_class_under(rb_mSFML, "FtpResponse", rb_cObject);
+    rb_define_alloc_func(rb_cFtpResponse, FtpResponse_alloc);
+    /* Document-class: SFML::FtpDirectoryResponse
+     * An FtpResponse specialization returned by Ftp#working_directory,
+     * additionally carrying the directory path.
+     */
+    rb_cFtpDirectoryResponse = rb_define_class_under(rb_mSFML, "FtpDirectoryResponse", rb_cObject);
+    rb_define_alloc_func(rb_cFtpDirectoryResponse, FtpDirectoryResponse_alloc);
+    /* Document-class: SFML::FtpListingResponse
+     * An FtpResponse specialization returned by Ftp#directory_listing,
+     * additionally carrying the list of filenames.
+     */
+    rb_cFtpListingResponse = rb_define_class_under(rb_mSFML, "FtpListingResponse", rb_cObject);
+    rb_define_alloc_func(rb_cFtpListingResponse, FtpListingResponse_alloc);
+
+    rb_define_method(rb_cFtp, "initialize", Ftp_initialize, 0);
 
     rb_define_method(rb_cFtp, "connect", Ftp_connect, -1);
     rb_define_method(rb_cFtp, "login_anonymous", Ftp_login_anonymous, 0);