summary refs log tree commit diff stats
path: root/lib
diff options
context:
space:
mode:
authorOleh Prypin <blaxpirit@gmail.com>2015-04-10 16:54:51 +0300
committerOleh Prypin <blaxpirit@gmail.com>2015-04-10 17:18:59 +0300
commit3aa7f7f49173b3693102f4bf1f856bbda7d707db (patch)
treed5e470eb655d67cb7f895c9fe464b2999816fae0 /lib
parentfd8c6d0a32d616c7080ba8161d1acd0f2fb74468 (diff)
downloadNim-3aa7f7f49173b3693102f4bf1f856bbda7d707db.tar.gz
Change datatypes and remove broken editable procs from PCRE
Diffstat (limited to 'lib')
-rw-r--r--lib/wrappers/pcre.nim34
1 files changed, 11 insertions, 23 deletions
diff --git a/lib/wrappers/pcre.nim b/lib/wrappers/pcre.nim
index 56c4ee8e3..310343765 100644
--- a/lib/wrappers/pcre.nim
+++ b/lib/wrappers/pcre.nim
@@ -296,13 +296,13 @@ type
 ## to remain compatible.
 type
   ExtraData* = object
-    flags*: culong                 ## Bits for which fields are set
+    flags*: clong                  ## Bits for which fields are set
     study_data*: pointer           ## Opaque data from pcre_study()
-    match_limit*: culong           ## Maximum number of calls to match()
+    match_limit*: clong            ## Maximum number of calls to match()
     callout_data*: pointer         ## Data passed back in callouts
-    tables*: ptr cuchar            ## Pointer to character tables
-    match_limit_recursion*: culong ## Max recursive calls to match()
-    mark*: ptr ptr cuchar          ## For passing back a mark pointer
+    tables*: pointer               ## Pointer to character tables
+    match_limit_recursion*: clong  ## Max recursive calls to match()
+    mark*: pointer                 ## For passing back a mark pointer
     executable_jit*: pointer       ## Contains a pointer to a compiled jit code
 
 ## The structure for passing out data via the pcre_callout_function. We use a
@@ -326,21 +326,9 @@ type
     pattern_position*: cint       ## Offset to next item in the pattern
     next_item_length*: cint       ## Length of next item in the pattern
     # ------------------- Added for Version 2 --------------------------
-    mark*            : ptr cuchar ## Pointer to current mark or NULL
+    mark*            : pointer    ## Pointer to current mark or NULL
     # ------------------------------------------------------------------
 
-# Indirection for store get and free functions. These can be set to
-# alternative malloc/free functions if required. Special ones are used in the
-# non-recursive case for "frames". There is also an optional callout function
-# that is triggered by the (?) regex item. For Virtual Pascal, these definitions
-# have to take another form.
-var
-  pcre_malloc*: proc (a: csize): pointer {.cdecl.}
-  pcre_free*: proc (a: pointer) {.cdecl.}
-  pcre_stack_malloc*: proc (a: csize): pointer {.cdecl.}
-  pcre_stack_free*: proc (a: pointer) {.cdecl.}
-  pcre_callout*: proc (a: ptr CalloutBlock): cint {.cdecl.}
-  pcre_stack_guard*: proc (): cint {.cdecl.}
 
 ## User defined callback which provides a stack just before the match starts.
 type
@@ -366,14 +354,14 @@ proc compile*(pattern: cstring,
               options: cint,
               errptr: ptr cstring,
               erroffset: ptr cint,
-              tableptr: ptr cuchar): ptr Pcre
+              tableptr: pointer): ptr Pcre
 
 proc compile2*(pattern: cstring,
                options: cint,
                errorcodeptr: ptr cint,
                errptr: ptr cstring,
                erroffset: ptr cint,
-               tableptr: ptr cuchar): ptr Pcre
+               tableptr: pointer): ptr Pcre
 
 proc config*(what: cint,
              where: pointer): cint
@@ -425,7 +413,7 @@ proc jit_exec*(code: ptr Pcre,
 
 proc free_substring*(stringptr: cstring)
 
-proc free_substring_list*(stringptr: ptr cstring)
+proc free_substring_list*(stringptr: cstringArray)
 
 proc fullinfo*(code: ptr Pcre,
                extra: ptr ExtraData,
@@ -458,7 +446,7 @@ proc get_substring_list*(subject: cstring,
                          stringcount: cint,
                          listptr: ptr cstringArray): cint
 
-proc maketables*(): ptr cuchar
+proc maketables*(): pointer
 
 proc refcount*(code: ptr Pcre,
                adjust: cint): cint
@@ -475,7 +463,7 @@ proc version*(): cstring
 
 proc pattern_to_host_byte_order*(code: ptr Pcre,
                                  extra: ptr ExtraData,
-                                 tables: ptr cuchar): cint
+                                 tables: pointer): cint
 
 # JIT compiler related functions.
 
{ color: #555555 } /* Name.Decorator */ .highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */ .highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */ .highlight .nl { color: #336699; font-style: italic } /* Name.Label */ .highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */ .highlight .py { color: #336699; font-weight: bold } /* Name.Property */ .highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */ .highlight .nv { color: #336699 } /* Name.Variable */ .highlight .ow { color: #008800 } /* Operator.Word */ .highlight .w { color: #bbbbbb } /* Text.Whitespace */ .highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */ .highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */ .highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */ .highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */ .highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */ .highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */ .highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */ .highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */ .highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */ .highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */ .highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */ .highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */ .highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */ .highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */ .highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */ .highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */ .highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */ .highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
discard """
  errormsg: "internal error: cannot generate C type for: PA"
  disabled: true
"""
# Test recursive type descriptions
# (mainly for the C code generator)

type
  PA = ref TA
  TA = array[0..2, PA]

  PRec = ref TRec
  TRec {.final.} = object
    a, b: TA

  P1 = ref T1
  PB = ref TB
  TB = array[0..3, P1]
  T1 = array[0..6, PB]

var
  x: PA
new(x)
#ERROR_MSG internal error: cannot generate C type for: PA