From 2f5f2529958894bcdf2db13a69d3b00765cf0278 Mon Sep 17 00:00:00 2001 From: Thomas Huth Date: Fri, 23 Jun 2017 19:18:33 +0200 Subject: libnet: Remove remainders of netsave code 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 Signed-off-by: Alexey Kardashevskiy --- lib/libnet/netapps.h | 1 - lib/libnet/tftp.h | 2 -- slof/fs/loaders.fs | 10 ---------- 3 files changed, 13 deletions(-) diff --git a/lib/libnet/netapps.h b/lib/libnet/netapps.h index 91c1ebd..2fea4a7 100644 --- a/lib/libnet/netapps.h +++ b/lib/libnet/netapps.h @@ -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); diff --git a/lib/libnet/tftp.h b/lib/libnet/tftp.h index 303feaf..b1dbc21 100644 --- a/lib/libnet/tftp.h +++ b/lib/libnet/tftp.h @@ -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); diff --git a/slof/fs/loaders.fs b/slof/fs/loaders.fs index 8ae502d..9d18462 100644 --- a/slof/fs/loaders.fs +++ b/slof/fs/loaders.fs @@ -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 -- cgit v1.1