Kennt sich jemand mit perl regex non-greedy aus?

[Stefan Salewski (Gast)]

Ich probiere jetzt schon weit über eine Stunde herum...
Für mehrzeilige Textersetzungen benutze ich perl. In der Regel für 
konstannte Abschnitte, also ohne Patterns. Nun wollte ich procs() 
auskommentieren, die den Parameter "va_list" besitzen. Für non-greedy 
Patterns benutzt man ja ".*?". Aber scheinbar erfolgt die Substitution 
dennoch greedy. Es sollte die zweite und vierte proc ersetzt werden, da 
nur die den Parameter va_list enthalten. Das Problem ist wohl, das erste 
"proc" passt erst mal -- und dann lässt er nicht wieder locker. Muss ich 
wohl doch ohne Pattern machen...

 cat t.nim 
proc g_cclosure_marshal_VOID__UINT_POINTER*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_VOID__UINT_POINTER", libgobj.}
proc g_cclosure_marshal_VOID__UINT_POINTERv*(closure: ptr GClosure; 
    return_value: ptr GValue; instance: gpointer; args: va_list; 
    marshal_data: gpointer; n_params: cint; param_types: ptr GType) {.
    importc: "g_cclosure_marshal_VOID__UINT_POINTERv", libgobj.}
proc g_cclosure_marshal_BOOLEAN__FLAGS*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_BOOLEAN__FLAGS", libgobj.}
proc g_cclosure_marshal_BOOLEAN__FLAGSv*(closure: ptr GClosure; 
    return_value: ptr GValue; instance: gpointer; args: va_list; 
    marshal_data: gpointer; n_params: cint; param_types: ptr GType) {.
    importc: "g_cclosure_marshal_BOOLEAN__FLAGSv", libgobj.}
const 
  g_cclosure_marshal_BOOL__FLAGS* = g_cclosure_marshal_BOOLEAN__FLAGS
proc g_cclosure_marshal_STRING__OBJECT_POINTER*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_STRING__OBJECT_POINTER", libgobj.}

stefan@AMD64X2 ~/nimgobj $ perl -0777 -p -e "s/proc \w+\*\((.*?)va_list(.*?)\}/discard xxx/sg" t.nim
discard xxx
discard xxx
const 
  g_cclosure_marshal_BOOL__FLAGS* = g_cclosure_marshal_BOOLEAN__FLAGS
proc g_cclosure_marshal_STRING__OBJECT_POINTER*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_STRING__OBJECT_POINTER", libgobj.}

stefan@AMD64X2 ~/nimgobj $

[pustar (Gast)]

Vielleicht '}' als Record Separator nehmen, dann hast Du's jeweils
nur mit einer "Zeile" zu tun, und einfach  alles mit 'va_list' filtern?

[Stefan Salewski (Gast)]

Ah ja, das ist schon mal eine gute Idee, daran hatte ich nicht 
gedacht...

[Stefan Salewski (Gast)]

Mit etwas Probieren habe ich es jetzt soweit hinbekommen. proc als 
Record Separator. Wobei ich zunächst die Option s vergessen hatte, aber 
die ist nötig, damit . auch Zeilenendzeichen abdeckt. Der 
Record-Separator bleibt so aber zunächst unverändert stehen, daher ein 
nachfolgendes sed.

perl -p -e '$/ = "proc "; s/^\w+\*.*va_list.*}/discard """"$&"""\n/s' t.nim | sed 's/proc \(discard """\)/\1 proc/'