cscope 15 $HOME/dev/axb 0000164289

@luaengine.cpp

1 

~"lu«ngše.h

"

2 

~"luasüt.h

"

3 

~<sys/ty³s.h

>

4 

~<¡dlib.h

>

5 

~<¡dio.h

>

6 

~<uni¡d.h

>

7 

~<sys/¡©.h

>

8 

~<fúŽ.h

>

9 

~<¡ršg.h

>

10

#MAX_BUF

1024

)

11

LuaEngše

*

gLuaEngše

::

š¡ªû

=

NULL

;

12

LuaEngše

*

gLuaEngše

::

$g‘In¡ªû

()

14 if(

š¡ªû

=ð

NULL

)

15

š¡ªû

=

Ãw

`LuaEngše

();

16 

š¡ªû

;

17

}

}

19

LuaSüt

*

gLuaEngše

::

$lßdSüt

(*

fžeP©h

)

21 

fd

=

`Ý’

(

fžeP©h

,

O_RDONLY

);

22 

bufãr

[

MAX_BUF

+1];

23

`bz”o

(

bufãr

,

MAX_BUF

);

24

LuaSüt

*

süt

=

Ãw

`LuaSüt

();

25 

`»ad

(

fd

,

bufãr

,

MAX_BUF

)>0)

26

süt

->

`lßdSüt

(

bufãr

);

27

`þo£

(

fd

);

28 

süt

;

29

}

}

30

LuaSüt

*

gLuaEngše

::

$ü—‹Süt

()

32 

NULL

;

33

}

}

@luaengine.h

1 #iâdeà

_LUAENGINE_

2

#_LUAENGINE_

)

3 

~<¡dlib.h

>

4

þass

gLuaSüt

;

5 þas 

cLuaEngše

7

mpublic

:

8 

LuaEngše

*

g‘In¡ªû

();

9

LuaSüt

*

lßdSüt

(*

fžeP©h

);

10

LuaSüt

*

ü—‹Süt

();

11

m´Ùeùed

:

12 

LuaEngše

*

š¡ªû

;

@luascript.cpp

1 

~"luasüt.h

"

2 

~"šþude/lua.hµ

"

3

lua_S‹

*

gLuaSüt

::

lua

=

NULL

;

4

gLuaSüt

::

$LuaSüt

()

6 if(

lua

!=

NULL

)

8

`lua_þo£

(

lua

);

10

lua

=

`luaL_Ãw¡©e

();

11

`luaL_Ý’libs

(

lua

);

13

}

}

14 

gLuaSüt

::

$lßdSüt

(*

süt

)

16

`luaL_do¡ršg

(

lua

,

süt

);

18

}

}

19 

gLuaSüt

::

$doRe¥Ú£

()

22

}

}

23 cÚ¡ *

gLuaSüt

::

$g‘Re¥Ú£

()

25

`lua_g‘glob®

(

lua

,"response");

26 

`lua_to¡ršg

(

lua

,-1);

28

}

}

@luascript.h

1 #iâdeà

_LUASCRIPT_

2

#_LUASCRIPT_

)

3

þass

glua_S‹

;

4 þas 

cLuaSüt

6

mpublic

:

7

LuaSüt

();

8 

lßdSüt

(*

süt

);

9 

doRe¥Ú£

();

10 cÚ¡ *

g‘Re¥Ú£

();

11

m´iv©e

:

12 

lua_S‹

*

lua

;

@luaserver.cpp

1 

~"lua£rv”.h

"

2 

~<¬·/š‘.h

>

3 

~<¡ršg.h

>

4 

~<sys/¡©.h

>

5 

~<¡dio.h

>

6 

~<Ãtš‘/š.h

>

7 

~<sys/sock‘.h

>

8 

~<¡dlib.h

>

9 

~<uni¡d.h

>

10 

~<sys/wa™.h

>

11 

~"lu«ngše.h

"

12 

~"»que¡.h

"

13 

~"luasüt.h

"

14 

~"»¥Ú£mªag”.h

"

15

#BACKLOG

10

)

16 

gLuaS”v”

::

$š™S”v”

(

pÜt

)

18

`sigÇl

(

SIGCHLD

,

SIG_IGN

);

19

`´štf

("init server...\n");

20

£rv”Sock‘

=

`makeS”v”Sock‘

(

pÜt

);

21

mªag”

=

Ãw

`Re¥Ú£Mªag”

();

22 if(

£rv”Sock‘

== -1)

24

`´štf

("can't create socket!\n");

29

}

}

30 

gLuaS”v”

::

$makeS”v”Sock‘

(

pÜt

)

32 

sockaddr_š

£rv”Addr

;

33 

‹mpSockId

;

34

‹mpSockId

=

`sock‘

(

AF_INET

,

SOCK_STREAM

,0);

35 if(

‹mpSockId

==-1)

39

£rv”Addr

.

sš_çmžy

=

AF_INET

;

40

£rv”Addr

.

sš_pÜt

=

`htÚs

(

pÜt

);

41

£rv”Addr

.

sš_addr

.

s_addr

=

`š‘_addr

("192.168.1.147");

42

`mem£t

(&(

£rv”Addr

.

sš_z”o

),'\0',8);

43 if(

`bšd

(

‹mpSockId

,(

sockaddr

*)&

£rv”Addr

,(serverAddr))== -1)

45

`´štf

("bindingƒrror!\n");

48 if(

`li¡’

(

‹mpSockId

,

BACKLOG

) == -1)

50

`´štf

("listenƒrror\n");

53 

‹mpSockId

;

55

}

}

56 

gLuaS”v”

::

$¡¬t

()

58 

sockaddr_š

u£rSock‘

;

59 

acû±Sock‘

;

60

sockËn_t

sock‘Size

=(

sockaddr_š

);

64

acû±Sock‘

=

`acû±

(

£rv”Sock‘

,(

sockaddr

*)&

u£rSock‘

,&

sock‘Size

);

66 

ä

=

`fÜk

();

67 if(

ä

==0)

70

`þo£

(

£rv”Sock‘

);

71

`doRe¥Ú£

(

acû±Sock‘

);

72

`shutdown

(

acû±Sock‘

,

SHUT_RDWR

);

73

`þo£

(

acû±Sock‘

);

74

`_ex™

(0);

78

`þo£

(

acû±Sock‘

);

81

}

}

82 *

gLuaS”v”

::

$doRe¥Ú£

(

þ›ÁSock‘

)

84 

numby‹s

;

85 

bufãr

[

MAX_BUF

+1];

86

`bz”o

(

bufãr

,

MAX_BUF

);

87 if((

numby‹s

=

`»cv

(

þ›ÁSock‘

,

bufãr

,

MAX_BUF

,0)) == -1)

89

`³¼Ü

("recv");

90

`ex™

(1);

92

Reque¡

`»que¡

(

bufãr

,

numby‹s

);

93

mªag”

->

`doRe¥Ú£

(

»que¡

,

þ›ÁSock‘

);

96

}

}

@luaserver.h

1 #iâdeà

_LUASERVER_

2

#_LUASERVER_

)

3

#MAX_BUF

1024

)

4

#MAX_PATH

1024

)

5

þass

gRe¥Ú£Mªag”

;

6 þas 

cLuaS”v”

8

mpublic

:

9 

š™S”v”

(

pÜt

);

10 

¡¬t

();

11

m´iv©e

:

12 

makeS”v”Sock‘

(

pÜt

);

13 *

doRe¥Ú£

(

þ›ÁSock‘

);

14 

m£rv”Sock‘

;

15

Re¥Ú£Mªag”

*

mmªag”

;

@main.cpp

1 

~<¡dio.h

>

2 

~<¡dlib.h

>

3 

~"lua£rv”.h

"

6 

$maš

(

¬gc

,*

¬gv

[])

8

LuaS”v”

*

£rv”

=

Ãw

`LuaS”v”

();

9 

”r

=

£rv”

->

`š™S”v”

(8080);

10 if(

”r

== -1)

12

`ex™

(0);

14

`´štf

("fuck!hello world!\n");

15

£rv”

->

`¡¬t

();

16

}

}

@request.cpp

1 

~"»que¡.h

"

2 

~<¡dio.h

>

3 

~<¡ršg.h

>

4

gReque¡

::

$Reque¡

(*

»que¡h—d”

,

Ën

)

6

h—d”

=(*)

`m®loc

(()*

Ën

+1);

7

`¡rýy

(

h—d”

,

»que¡h—d”

);

8 *

lše

;

9 

c

=0;

10 

h

=0;

11 

c

=0;c<

Ën

;c++)

13 if(

h—d”

[

c

]=='\n'){

14

h—d”

[

c

]='\0';

15 if((

c

>1è&& (

h—d”

[c-1]=='\r'))header[c-1]='\0';

16 if(

h

!= 0){

17

lše

=

h—d”

+

h

;

18 if(

`¡ºcmp

(

lše

,"Reã»r:",8)==0)

ȋr

=line+8;