fews/make.PRG at main · vespina/fews · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
CLOSE ALL
CLEAR ALL
CLEAR

#DEFINE CRLF		CHR(13)+CHR(10)

SET SAFETY OFF
SET TALK OFF
ON ERROR

?"FEWS MAKE PROGRAM"
?


?"* Cleaning dist folder..."
ERASE dist\fews.*
??"DONE!"


?"* Building dist\fews.prg..."
LOCAL ARRAY aSources[10]
aSources[1] = "winsock.prg"
aSources[2] = "fewsrequest.prg"
aSources[3] = "fewsresponse.prg"
aSources[4] = "fewshandlerabstract.prg"
aSources[5] = "fewsstaticcontenthandler.prg"
aSources[6] = "fewscorshandler.prg"
aSources[7] = "support.prg"
aSources[8] = "base64helper.prg"
aSources[9] = "fewshistorymanager.prg"
aSources[10] = "fewsserver.prg"

LOCAL cCode
cCode = FILETOSTR("src\header.prg")
FOR i = 1 TO ALEN(aSources,1)
	cSource = FILETOSTR(".\src\" + aSources[i])
	cCode = cCode + REPL("*",100) + CRLF + ;
	                "** " + UPPER(PADC(aSources[i],94)) + " **" + CRLF + ;
	                REPL("*",100) + CRLF + ;
	                cSource + CRLF + ;
	                PADC(" END OF " + UPPER(aSources[i]) + " ",100,"*") + CRLF + ;
	                CRLF
ENDFOR
STRTOFILE(cCode, "dist\fews.prg")
??"DONE!"

?"* Compiling..."
COMP dist\fews
??"DONE!"

?"* Checking for errors..."
IF FILE("dist\fews.err")
    ??"FOUND!"
	MODI FILE dist\fews.err
ELSE
 	??"DONE!"
    ?
    ?"PROCESS COMPLETED"
ENDIF