/help/help-br/title |
---|
1,0 → 0,0 |
SISTEMA DE AJUDA DO SVARDOS [20230826] |
SISTEMA DE AJUDA DO SVARDOS [20230825] |
/help/help-de/title |
---|
1,0 → 0,0 |
SVARDOS-HILFESYSTEM [20230826] |
SVARDOS-HILFESYSTEM [20230825] |
/help/help-en/title |
---|
1,0 → 0,0 |
SVARDOS HELP SYSTEM [20230826] |
SVARDOS HELP SYSTEM [20230825] |
/pkgnet/trunk/Makefile |
---|
10,6 → 10,7 |
release: pkgnet.exe .symbolic |
mkdir bin |
mkdir appinfo |
upx --8086 -9 pkgnet.exe |
copy pkgnet.exe bin |
copy pkgnet.lng bin |
copy pkgnet.lsm appinfo |
32,7 → 33,6 |
move /y out.lng ..\pkgnet.lng |
cd .. |
*wcl -lr -k4096 $(LIB) pkgnet.obj deflang.c net.obj unchunk.obj lsm.obj helpers.obj trim.obj -fe=pkgnet.exe |
upx --8086 -9 pkgnet.exe |
pkgnet.obj: pkgnet.c |
*wcc $(CFLAGS) pkgnet.c |
/pkgnet/trunk/net.c |
---|
34,6 → 34,19 |
}; |
int net_dnsresolve(char *ip, const char *name, int retries) { |
unsigned long ipnum; |
do { |
ipnum = resolve(name); /* I could use WatTCP's lookup_host() to do all the |
job for me, unfortunately lookup_host() issues |
wild outs() calls putting garbage on screen... */ |
} while ((ipnum == 0) && (retries-- > 0)); |
if (ipnum == 0) return(-1); |
_inet_ntoa(ip, ipnum); /* convert to string */ |
return(0); |
} |
static int dummy_printf(const char * format, ...) { |
if (format == NULL) return(-1); |
return(0); |
/pkgnet/trunk/pkgnet.c |
---|
43,9 → 43,9 |
#define PVER "20230823" |
#define PDATE "2021-2023" |
#define HOSTNAME "svardos.org" |
#define HOSTADDR "141.95.149.60" |
#define HOSTADDR "svardos.org" |
/* convenience define that outputs nls strings to screen (followed by CR/LF) */ |
#define putsnls(x,y) puts(svarlang_strid((x << 8) | y)) |
262,7 → 262,7 |
sock = net_connect(ipaddr, 80, tcpbuflen); |
if (sock == NULL) { |
printf(svarlang_strid(0x0902), HOSTNAME); /* "ERROR: failed to connect to " HOSTNAME */ |
printf(svarlang_strid(0x0902), HOSTADDR); /* "ERROR: failed to connect to " HOSTADDR */ |
puts(""); |
goto SHITQUIT; |
} |
272,7 → 272,7 |
int connstate = net_isconnected(sock); |
if (connstate > 0) break; |
if (connstate < 0) { |
printf(svarlang_strid(0x0902), HOSTNAME); /* "ERROR: failed to connect to " HOSTNAME */ |
printf(svarlang_strid(0x0902), HOSTADDR); /* "ERROR: failed to connect to " HOSTADDR */ |
puts(""); |
goto SHITQUIT; |
} |
281,9 → 281,9 |
/* socket is connected - send the http request (MUST be HTTP/1.0 because I do not support chunked transfers!) */ |
if (ispost) { |
snprintf((char *)buffer, buffersz, "POST %s HTTP/1.1\r\nHOST: " HOSTNAME "\r\nUSER-AGENT: pkgnet/" PVER "\r\nTransfer-Encoding: chunked\r\nConnection: close\r\n\r\n", url); |
snprintf((char *)buffer, buffersz, "POST %s HTTP/1.1\r\nHOST: " HOSTADDR "\r\nUSER-AGENT: pkgnet/" PVER "\r\nTransfer-Encoding: chunked\r\nConnection: close\r\n\r\n", url); |
} else { |
snprintf((char *)buffer, buffersz, "GET %s HTTP/1.1\r\nHOST: " HOSTNAME "\r\nUSER-AGENT: pkgnet/" PVER "\r\nConnection: close\r\n\r\n", url); |
snprintf((char *)buffer, buffersz, "GET %s HTTP/1.1\r\nHOST: " HOSTADDR "\r\nUSER-AGENT: pkgnet/" PVER "\r\nConnection: close\r\n\r\n", url); |
} |
if (net_send(sock, buffer, strlen((char *)buffer)) != (int)strlen((char *)buffer)) { |
421,6 → 421,7 |
struct { |
unsigned char buffer[5000]; |
char ipaddr[64]; |
char url[64]; |
char outfname[16]; |
} *mem; |
465,7 → 466,12 |
puts(""); /* required because watt-32 likes to print out garbage sometimes ("configuring through DHCP...") */ |
flen = htget(HOSTADDR, mem->url, mem->outfname, &bsum, ispost, mem->buffer, sizeof(mem->buffer), tcpbufsz); |
if (net_dnsresolve(mem->ipaddr, HOSTADDR, 2) != 0) { |
putsnls(9, 12); /* "ERROR: DNS resolution failed" */ |
return(1); |
} |
flen = htget(mem->ipaddr, mem->url, mem->outfname, &bsum, ispost, mem->buffer, sizeof(mem->buffer), tcpbufsz); |
if (flen < 1) return(1); |
if (mem->outfname[0] != 0) { |
/sved/tags/2023.4/sved.txt |
---|
68,9 → 68,6 |
### CHANGELOG ################################################################ |
2023.5 [07 Nov 2023] |
- improved compatibility with MS-DOS 2.x |
2023.4 [27 Aug 2023] |
- added german translation, credits to Bernd Boeckmann |
/sved/trunk/libc.c |
---|
26,6 → 26,32 |
return(dst); |
} |
unsigned short mdr_dos_fopen(const char *fname, unsigned short *fhandle) { |
unsigned short res = 0; |
unsigned short handle = 0; |
_asm { |
push cx |
push dx |
mov ax, 0x3d00 |
mov dx, fname |
xor cl, cl |
int 0x21 |
jc err |
mov handle, ax |
jmp done |
err: |
mov res, ax |
done: |
pop dx |
pop cx |
} |
*fhandle = handle; |
return(res); |
} |
unsigned short mdr_dos_fclose(unsigned short handle) { |
unsigned short res = 0; |
_asm { |
/sved/trunk/sved.c |
---|
666,25 → 666,7 |
/* make the filename canonical (DOS 3+ only, on earlier versions it just copies the filename) */ |
mdr_dos_truename(db->fname, fname); |
/* fopen file */ |
fd = 0; |
_asm { |
push cx |
push dx |
mov ax, 0x3d00 |
mov dx, fname // works only in SMALL memory model! |
xor cl, cl |
int 0x21 |
mov fd, ax |
jnc done |
mov err, al |
done: |
pop dx |
pop cx |
} |
err = mdr_dos_fopen(fname, &fd); |
if (err != 0) goto SKIPLOADING; |
db->lfonly = 1; |
987,6 → 969,14 |
static struct line far *clipboard; |
static unsigned char original_breakflag; |
mdr_coutraw_puts("glob_monomode:"); |
mdr_coutraw_char('0' + glob_monomode); |
mdr_coutraw_crlf(); |
mdr_coutraw_puts("original_breakflag:"); |
mdr_coutraw_char('0' + original_breakflag); |
mdr_coutraw_crlf(); |
{ /* load NLS resource */ |
unsigned short i = 0; |
const char far *selfptr; |
1024,6 → 1014,10 |
SCHEME_SCROLL = 0x70; |
SCHEME_MSG = 0x6f; |
SCHEME_ERR = 0x4f; |
} else { |
// FIXME |
mdr_coutraw_char('0' + glob_monomode); |
_asm int 0x20 |
} |
screenlastrow = screenh - 1; |
screenlastcol = screenw - 1; |