Skip to content

Commit

Permalink
ACP
Browse files Browse the repository at this point in the history
!) Remove getfilesize and fileexists and replace with calls to internal E function FileLength
2) Update version to 5.3.0
Express
1) Separate out consts, objects, enums and some general procedures from express.e
2) Implement AX Net send and receive host commands
3) Change some debug entries from WARN level to DEBUG level
4) Add multiple message base per conference options
5) Fix bug when starting paragon doors
6) Populate XIMPORT correctly on readchar to indicate where the character came from
7) Add options for external message sending
8) Fix upload/download nul references when no user is logged on
9) Add http download support
10) Fix divide by 0 error when upload takes less than 1 second
11) Fix divide by 0 error in conference maintenance when conf.db does not exist
12) Update to version 5.3.0
  • Loading branch information
dmcoles committed Feb 21, 2020
1 parent 84044ca commit 951a08d
Show file tree
Hide file tree
Showing 11 changed files with 2,926 additions and 1,883 deletions.
10 changes: 4 additions & 6 deletions ACP.e
Original file line number Diff line number Diff line change
Expand Up @@ -40,10 +40,8 @@

MODULE '*axcommon',
'*jsonParser',
'*miscfuncs',
'*stringlist'


/*
'Setup'
BBS:Config%d
Expand Down Expand Up @@ -785,10 +783,10 @@ PROC getToolTypes(filename:PTR TO CHAR)
isCfg:=FALSE
IF(dobj=NIL)
StringF(fn,'\s.cfg',filename)
IF fileExists(fn)
IF (len:=FileLength(fn))<>-1
dobj:=GetDefDiskObject(WBPROJECT)
IF dobj<>NIL
fileBuf:=New(getFileSize(fn)+1) ->allow an extra char in case file does not end in LF
fileBuf:=New(len+1) ->allow an extra char in case file does not end in LF

fh:=Open(fn,MODE_OLDFILE)
IF fh>0
Expand Down Expand Up @@ -2284,7 +2282,7 @@ PROC loadTranslators(baseDir:PTR TO CHAR)

trans2:=NEW trans2
AstrCopy(trans2.translatorName,translatorName,80)
fsize:=getFileSize(fullFileName)
fsize:=FileLength(fullFileName)

workMem:=New(fsize+2) ->allocate some memory (two extra bytes in case there is no newline at the end of the file)
trans2.translationText:=New(fsize+4) ->allocate some memory, two extra bytes for ending colon and space and some in case there is no newline
Expand Down Expand Up @@ -3453,7 +3451,7 @@ PROC main() HANDLE

KickVersion(37) -> E-Note: requires V37

StringF(myVerStr,'v5.2.1')
StringF(myVerStr,'v5.3.0')

FOR i:=0 TO MAX_NODES-1
ndUser[i]:=NIL
Expand Down
Loading

0 comments on commit 951a08d

Please sign in to comment.