annotate src/typemap @ 791:98a88a884610 v7.0230

updated for version 7.0230
author vimboss
date Mon, 20 Mar 2006 21:59:49 +0000
parents 3fc0f57ecb91
children dec4338a7da2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1 TYPEMAP
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2 VIWIN T_VIOBJNOMUNGE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3 VIBUF T_VIOBJNOMUNGE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5 INPUT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6 T_VIOBJNOMUNGE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7 if (sv_isa($arg, \"${ntype}\")) {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8 IV tmp = SvIV((SV*)SvRV($arg));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
9 $var = ($type) tmp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10 if (!tmp)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11 croak(\"$ntype no longer exists\");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14 croak(\"$var is not of type ${ntype}\")