girtobac_RepData.bas

Go to the documentation of this file.

TYPE RepData
  AS CONST gchar PTR Na  
  AS STRING _
    Er, _                
    Su = MKL(0) & CHR(1) 
  DECLARE CONSTRUCTOR(BYVAL T AS CONST gchar PTR)
  DECLARE FUNCTION Az() AS LONG
  DECLARE SUB add(BYVAL AS CONST ZSTRING PTR, BYVAL AS CONST ZSTRING PTR)
  DECLARE FUNCTION rep(BYVAL T AS CONST gchar PTR) AS CONST ZSTRING PTR
  DECLARE SUB list(BYREF Li AS STRING)
END TYPE


CONSTRUCTOR RepData(BYVAL T AS CONST gchar PTR)
  Na = T
END CONSTRUCTOR


FUNCTION RepData.Az() AS LONG : RETURN *CAST(INTEGER PTR, SADD(Su))
END FUNCTION



SUB RepData.list(BYREF Li AS STRING)
  VAR r = "", a = 6, e = INSTR(a, Su, CHR(2)), t = ""
  WHILE e > a
    VAR l = e - a : e += 1
    VAR x = INSTR(e, Su, CHR(1)), z = SADD(Er) + VALINT("&h" & MID(Su, e, x - e))
    VAR n = *CAST(LONG PTR, z - 4)
    IF 0 = n THEN Li &=  NL !"\t" & MID(Su, a, l) & " <" & *Na & ">"
    a = x + 1 : e = INSTR(a, Su, CHR(2))
  WEND
END SUB



SUB RepData.add(BYVAL S AS CONST ZSTRING PTR, BYVAL E AS CONST ZSTRING PTR)
  IF *S = "" THEN ?"Empty <" & *Na & "> search attribute!" : EXIT SUB
  IF INSTR(*S, ANY !"\000\001\002") THEN ?"Undefined char in <" & *Na & ">: " & *S : EXIT SUB
  VAR c = CHR(1) & *S & CHR(2) : IF INSTR(5, Su, c) THEN ?"Duplicated  <" & *Na & ">: " & *S : EXIT SUB
  *CAST(LONG PTR, SADD(Su)) += 1 : Su &= MID(c, 2) & HEX(LEN(Er) + 4) & CHR(1)
  Er &= MKL(0) & *E & CHR(0)
END SUB



FUNCTION RepData.rep(BYVAL T AS CONST gchar PTR) AS CONST ZSTRING PTR
  IF 0 = T THEN RETURN @"/'unknown'/"
  VAR a = INSTR(Su, CHR(1) & *T & CHR(2)) : IF a THEN a += LEN(*T) + 2 ELSE RETURN T
  VAR e = INSTR(a, Su, CHR(1)) + 1
  DIM AS ZSTRING PTR z = SADD(Er) + VALINT("&h" & MID(Su, a, e - a))
  *CAST(LONG PTR, z - 4) += 1 : RETURN z
END FUNCTION


TYPE Stack
  AS STRING Dat = ";" 
  AS INTEGER A = 1    
  DECLARE SUB add(BYVAL AS CONST gchar PTR)
  DECLARE FUNCTION nxt() AS STRING
  DECLARE FUNCTION find(BYVAL T AS CONST gchar PTR) AS INTEGER
END TYPE



SUB Stack.add(BYVAL S AS CONST gchar PTR)
  IF 0 = find(S) THEN Dat &= *S & ";" : EXIT SUB
  ?"Duplicated <first>: " & *S
END SUB



FUNCTION Stack.nxt() AS STRING
  VAR x = A : A = INSTR(A + 1, Dat, ";") : IF 0 = A THEN RETURN ""
  x += 1 : RETURN MID(Dat, x, A - x)
END FUNCTION



FUNCTION Stack.find(BYVAL T AS CONST gchar PTR) AS INTEGER
  RETURN INSTR(Dat, ";" & *T & ";")
END FUNCTION


DIM SHARED AS RepData _
  FB_TYP = @"type", _ 
  FB_NAM = @"name"    
DIM SHARED AS Stack _
  FIRST     



'& SUB_CDECL g2b_parser(){
G2b_parser:
_START_PARSER(G2b)

  SELECT CASE *element_name
  CASE "first"
    VAR n = find_value("search", AttNams, AttVals)  ' *< local variable
    IF 0 = n THEN EXIT SELECT
    FIRST.add(n) '& RepData.add();
  CASE "type"
    VAR s = find_value("search", AttNams, AttVals)  ' *< local variable
    IF 0 = s THEN EXIT SELECT
    VAR r = find_value("replace", AttNams, AttVals) ' *< local variable
    VAR a = find_value("add", AttNams, AttVals)     ' *< local variable
    IF r THEN FB_TYP.add(s, r) : EXIT SELECT '& RepData.add();

    VAR e = *s & *a ' *< local variable
    FB_TYP.add(s, e) '& RepData.add();
  CASE "name"
    VAR s = find_value("search", AttNams, AttVals)  ' *< local variable
    IF 0 = s THEN EXIT SELECT
    VAR r = find_value("replace", AttNams, AttVals) ' *< local variable
    VAR a = find_value("add", AttNams, AttVals)     ' *< local variable
    IF r THEN FB_NAM.add(s, r) : EXIT SELECT '& RepData.add();

    VAR e = *s & *a ' *< local variable
    FB_NAM.add(s, SADD(e)) '& RepData.add();
  CASE "binary"
    VAR n = find_value("name", AttNams, AttVals)    ' *< local variable
    IF 0 = n THEN EXIT SELECT
    .NamDll = *n
  CASE "check"
    VAR n = find_value("name", AttNams, AttVals)    ' *< local variable
    IF 0 = n THEN EXIT SELECT
    .Check = *n
  CASE "pack"
    VAR n = find_value("name", AttNams, AttVals)    ' *< local variable
    IF 0 = n THEN EXIT SELECT
    .NamSpace = *n

_END_PARSER(G2b)

  SELECT CASE *element_name
  CASE "type", "name", "first", "binary", "check", "pack"

_NEW_PARSER(G2b)
'& };