@@ -20,7 +20,6 @@ struct filename_ip;
extern int netload(char *buffer, int len, char *ret_buffer, int huge_load,
int block_size, char *args_fs, int alen);
-extern int netsave(int argc, char *argv[]);
extern int ping(char *args_fs, int alen);
extern int dhcp(char *ret_buffer, struct filename_ip *fn_ip,
unsigned int retries, int flags);
@@ -42,8 +42,6 @@ typedef struct {
int tftp(filename_ip_t *, unsigned char *, int, unsigned int,
tftp_err_t *, int32_t mode, int32_t blocksize, int ip_version);
-int tftp_netsave(filename_ip_t *, uint8_t * buffer, int len,
- int use_ci, unsigned int retries, tftp_err_t * tftp_err);
int32_t handle_tftp(int fd, uint8_t *, int32_t);
void handle_tftp_dun(uint8_t err_code);
@@ -60,16 +60,6 @@ CREATE load-list 2 cells allot load-list 2 cells erase
: .client-exec ( arg len -- rc ) set-bootargs (client-exec) ;
' .client-exec to client-exec
-: netsave ( "addr len {filename}[,params]" -- rc )
- (parse-line) dup 0> IF
- s" netsave " 2swap $cat set-netbootpath client-exec
- ELSE
- cr
- ." Usage: netsave addr len [bootp|dhcp,]filename[,siaddr][,ciaddr][,giaddr][,bootp-retries][,tftp-retries][,use_ci]"
- cr 2drop
- THEN
-;
-
: ping ( "{device-path:[device-args,]server-ip,[client-ip[\nn]],[gateway-ip][,timeout]}" -- )
my-self >r current-node @ >r \ Save my-self
(parse-line) open-dev dup IF
The code does not exist in the repository, so it does not make sense to keep the prototypes and the Forth wrapper around. Signed-off-by: Thomas Huth <thuth@redhat.com> --- lib/libnet/netapps.h | 1 - lib/libnet/tftp.h | 2 -- slof/fs/loaders.fs | 10 ---------- 3 files changed, 13 deletions(-)