J'ai ça :
- from_external p:NATIVE_ARRAY[CHARACTER] <-
ça me rend :
//* Syntaxe,Header : := from_external_copy <p>
J'ai écris pour cela le bête code :
#!/bin/perl
use strict;
my $res;
while (my $line = ) {
if ($line =~ /\s*-([\w\s_:,\[\]]+)<-/) {
# C'est une ligne de def de slot
$res = $1;
$res =~ s/([\w_]+)(\s*:[A-Z_\]\[]+)/<$1>/g;
print " //* Syntaxe,Header : (…)