thinBasic_enVar/Module_thinBASICInterface.inc at master · ErosOlmi/thinBasic_enVar · 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
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
'
' Module thinBASIC interface
'

#INCLUDE "Module_Implementation.inc"

' -----------------------------------------------------------------------------

FUNCTION Module_LoadSymbols() AS LONG

  thinBasic_LoadSymbol  "EnVar_List"        , %thinBasic_ReturnString  , CODEPTR( Exec_EnVar_List )                 , %thinBasic_ForceOverWrite
  thinBasic_LoadSymbol  "EnVar_Set"         , %thinBasic_ReturnCodeLong, CODEPTR( Exec_EnVar_Set )                  , %thinBasic_ForceOverWrite
  thinBasic_LoadSymbol  "EnVar_Get"         , %thinBasic_ReturnString  , CODEPTR( Exec_EnVar_Get )                  , %thinBasic_ForceOverWrite
  thinBasic_LoadSymbol  "EnVar_GetItem"     , %thinBasic_ReturnString  , CODEPTR( Exec_EnVar_GetItem )              , %thinBasic_ForceOverWrite
  thinBasic_LoadSymbol  "EnVar_GetItemCount", %thinBasic_ReturnCodeLong, CODEPTR( Exec_EnVar_GetItemCount )         , %thinBasic_ForceOverWrite
  thinBasic_LoadSymbol  "EnVar_Remove"      , %thinBasic_ReturnCodeLong, CODEPTR( Exec_EnVar_Remove )               , %thinBasic_ForceOverWrite
  thinBasic_LoadSymbol  "EnVar_Exists"      , %thinBasic_ReturnCodeLong, CODEPTR( Exec_EnVar_Exists )               , %thinBasic_ForceOverWrite

END FUNCTION

FUNCTION Exec_EnVar_List() AS STRING

  LOCAL sSeparator AS STRING
  IF thinBasic_CheckOpenParens_Optional() = %TRUE THEN
    thinBasic_ParseString(sSeparator)
    IF thinBasic_CheckCloseParens_Mandatory = %FALSE THEN
      thinBasic_RunTimeError(%ERR__MODULE_SPECIFIC, "You forgot enclosing brackets after separator")
    END IF
  ELSE
    sSeparator = ","
  END IF

  IF thinBasic_ErrorFree THEN
    FUNCTION = EnvironmentVariable_List(sSeparator)
  END IF

END FUNCTION

FUNCTION Exec_EnVar_Set() AS LONG

  LOCAL varName, varValue AS STRING
  LOCAL parensSpecified   AS LONG

  parensSpecified = thinBasic_CheckOpenParens_Optional

  thinBasic_ParseString(varName)
  IF thinBasic_CheckComma_Mandatory THEN
    thinBasic_ParseString(varValue)

    IF parensSpecified THEN
      thinBasic_CheckCloseParens_Mandatory
    END IF
  ELSE
    ' -- Run time error will be triggered
  END IF


  IF thinBasic_ErrorFree THEN
    FUNCTION = EnvironmentVariable_Set(varName, varValue)
  END IF

END FUNCTION

FUNCTION Exec_EnVar_Get() AS STRING

  LOCAL varName AS STRING

  IF TryParseSingleStringParameter(varName) THEN
    FUNCTION = EnvironmentVariable_Get(varName)
  END IF

END FUNCTION

FUNCTION Exec_EnVar_GetItem() AS STRING

  REGISTER parensSpecified AS LONG

  LOCAL varName AS STRING
  LOCAL itemIndex AS LONG
  LOCAL itemSeparator AS STRING

  parensSpecified = thinBasic_CheckOpenParens_Optional
  thinBasic_ParseString(varName)
  IF thinBasic_CheckComma_Mandatory AND thinBasic_ErrorFree THEN
    thinBasic_ParseString(itemSeparator)
    IF thinBasic_CheckComma_Mandatory AND thinBasic_ErrorFree THEN
      itemIndex = thinBasic_Parse1Number

      IF parensSpecified THEN
        thinBasic_CheckCloseParens_Mandatory
      END IF

      FUNCTION = EnvironmentVariable_GetItem(varName, itemSeparator, itemIndex)

    END IF

  END IF

END FUNCTION

FUNCTION Exec_EnVar_GetItemCount() AS LONG

  REGISTER parensSpecified AS LONG

  LOCAL varName AS STRING
  LOCAL itemSeparator AS STRING

  parensSpecified = thinBasic_CheckOpenParens_Optional
  thinBasic_ParseString(varName)
  IF thinBasic_CheckComma_Optional AND thinBasic_ErrorFree THEN
    thinBasic_ParseString(itemSeparator)
  END IF

  IF parensSpecified THEN
    thinBasic_CheckCloseParens_Mandatory
  END IF

  FUNCTION = EnvironmentVariable_GetItemCount(varName, itemSeparator)

END FUNCTION

FUNCTION Exec_EnVar_Remove() AS LONG

  LOCAL varName AS STRING

  IF TryParseSingleStringParameter(varName) THEN
    FUNCTION = EnvironmentVariable_Remove(varName)
  END IF

END FUNCTION

FUNCTION Exec_EnVar_Exists() AS LONG

  LOCAL varName AS STRING

  IF TryParseSingleStringParameter(varName) THEN
    FUNCTION = IIF(EnvironmentVariable_Exists(varName), 1, 0)
  END IF

END FUNCTION

FUNCTION TryParseSingleStringParameter(BYREF parsedValue AS STRING) AS LONG
  REGISTER parensSpecified AS LONG

  parensSpecified = thinBasic_CheckOpenParens_Optional
  thinBasic_ParseString(parsedValue)
  IF parensSpecified THEN
    thinBasic_CheckCloseParens_Mandatory
  END IF

  FUNCTION = thinBasic_ErrorFree

END FUNCTION