Mercurial > forge

annotate admin/no_vr_val.pm @ 12698:1a348ee9a848 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checking for netcdf4 support
author abarth93
date Wed, 02 Dec 2015 09:22:02 +0000
parents 033fd7a68983
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
598
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
1 #!/usr/bin/perl -w -n
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
2
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
3 ## Catches vr_val (x) transforms it into varargout(i++) = x;
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
4 ##
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
5
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
6 use OctRe;
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
7
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
8 BEGIN {
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
9 $first = "vr_val_cnt = 1; ";
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
10
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
11 }
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
12
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
13 ## Does necessary changes inplace on $_[0].
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
14 sub change_line {
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
15
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
16 if ($_[0] !~ /^\s*\#/) { # Don't do obvious comment lines
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
17
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
18 # Change function declaration
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
19 if ($_[0] =~ /$defun_rx/) {
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
20 $_[0] =~ s/\.\.\.(\s*\]\s*\=)/varargout$1/g;
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
21 }
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
22 # Change vr_val()
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
23
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
24 # BTW, if 1st vr_val() occurs in a loop,
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
25 # this will NOT WORK!
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
26
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
27 if ($_[0] =~
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
28 s{vr_val\s*\(([^;]*)\)(\s*;)}
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
29 {"$first" . "varargout\{vr_val_cnt++\} = $1$2"}eg) {
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
30
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
31 $first = "";
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
32 }
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
33 # Did I miss anything?
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
34 if ($_[0] =~ /vr_val\s*\(/) {
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
35 $_[0] .= "## TODO : Remove this vr_val\n";
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
36 }
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
37
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
38 }
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
39 $first = "vr_val_cnt = 1; " if $. == 1;
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
40 }
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
41
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
42 sub comment_line {
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
43 ""
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
44 }
033fd7a68983 vr_val o varargout-style variable length return list
etienne
parents:
diff changeset
45 1;