FilesExpand file tree

 master

/

luaidl.lua

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

105 lines (95 loc) · 3.1 KB

 master

/

luaidl.lua

Copy path

Top

File metadata and controls

• Code
• Blame

105 lines (95 loc) · 3.1 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

--

-- Project: LuaIDL

-- Version: 0.8.9b

-- Author: Ricardo Cosme <rcosme@tecgraf.puc-rio.br>

-- Filename: init.lua

--

local assert = assert

local error = error

local pcall = pcall

local require = require

local type = type

local unpack = unpack

local io = require "io"

local string = require "string"

module 'luaidl'

local _pre = require 'luaidl.pre'

local sin = require 'luaidl.sin'

VERSION = '0.8.9b'

--- Preprocesses an IDL code.

--

-- @param idl String with IDL code.

-- @param options (optional)Table with preprocessor options, the available keys are:

-- 'incpath', a table with include paths;

-- 'filename', the IDL filename.

-- @return String with the given IDL preprocessed.

function pre( idl, options )

return _pre.run( idl, options )

end

--- Preprocesses an IDL file.

--

-- @param filename The IDL filename.

-- @param options (optional)Table with preprocessor options, the available keys are:

-- 'incpath', a table with include paths.

-- @return String with the given IDL preprocessed.

-- @see pre

function prefile( filename, options )

local t = type( filename )

if t ~= 'string' then

error( string.format( "bad argument #1 to 'prefile' (filename expected, got %s)", t ), 2 )

end --if

local fh, msg = io.open( filename )

if not fh then

error( msg, 2 )

end --if

if not options then

options = { }

end --if

options.filename = filename

local str = pre( fh:read( '*a' ), options )

fh:close()

return str

end

local function parseAux( idl, options )

local status, tab_output = pcall( sin.parse, idl, options )

if status then

return unpack( tab_output )

else

return nil, tab_output

end --if

end

--- Parses an IDL code.

--

-- @param idl String with IDL code.

-- @param options (optional)Table with parser and preprocessor options, the available keys are:<br>

-- 'callbacks', a table of callback methods.<br>

-- 'incpath', a table with include paths.<br>

-- 'filename',the IDL filename.<br>

-- 'notypecode', a flag that deactivates the implicit definition of a CORBA::TypeCode.<br>

-- @return A graph(lua table),

-- that represents an IDL definition in Lua, for each IDL definition found.

function parse(idl, options)

idl = pre(idl, options)

return parseAux(idl, options)

end

--- Parses an IDL file.

-- Calls the method 'prefile' with

-- the given arguments, and so it parses the output of 'prefile'

-- calling the method 'parse'.

-- @param filename The IDL filename.

-- @param options (optional)Table with parser and preprocessor options, the available keys are:<br>

-- 'callbacks', a table of callback methods.<br>

-- 'incpath', a table with include paths.<br>

-- 'notypecode', a flag that deactivates the implicit definition of a CORBA::TypeCode.<br>

-- @return A graph(lua table),

-- that represents an IDL definition in Lua, for each IDL definition found.

-- @see prefile

-- @see parse

function parsefile( filename, options )

local t = type( filename )

if t ~= 'string' then

error( string.format( "bad argument #1 to 'parsefile' (filename expected, got %s)", t ), 2 )

end --if

local stridl = prefile( filename, options )

return parseAux( stridl, options )

end