/usr/share/octave/packages/secs2d-0.0.8/Utilities/Umsh2pdetool.m is in octave-secs2d 0.0.8-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | function msh=Umsh2pdetool(filename);
##
##
## loadgmshmesh(filename);
##
##
awk_command = "BEGIN { filename = ARGV[1] ; gsub(/\\./,""_"",filename) }\n\
\n\
/\\$NOD/,/\\$ENDNOD/ { \n\
if ( FNR>2 ) \n\
{ \n\
if($0 ~ /^[^\\$]/ ) \n\
{\n\
print ""p ( "" $1 "" ,:) = ["" $2 "" "" $3""];"" > filename ""_p.m"" \n\
}\n\
} \n\
} \n\
\n\
/\\$ELM/,/\\$ENDNELM/ { \n\
if ( $1 ~ /\\$ELM/ )\n\
{\n\
gsub(/\\$ELM/,""t=["")\n\
print > filename ""_t.m""\n\
gsub(/t=\\[/,""e=["")\n\
print > filename ""_e.m""\n\
\n\
} else if ($1 ~ /\\$ENDELM/ ){\n\
gsub(/\\$ENDELM/,""];"")\n\
print > filename ""_t.m""\n\
print > filename ""_e.m""\n\
}\n\
else if ( $2 == ""2"" )\n\
{\n\
print ( $6 "" "" $7 "" "" $8 "" "" $4) > filename ""_t.m"" \n\
}\n\
else if ( $2 == ""1"" )\n\
{\n\
print ( $6 "" "" $7 "" 0 0 "" $4 "" 0 0"") > filename ""_e.m"" \n\
}\n\
else if ( $2 == ""9"" )\n\
{\n\
print ( $6 "" "" $7 "" "" $8 "" "" $9 "" "" $10 "" "" $11 "" "" \
$4) > filename ""_t.m"" \n\
}\n\
else if ( $2 == ""8"" )\n\
{\n\
print ( $6 "" "" $7 "" "" $8 "" 0 "" $4) > filename ""_e.m"" \n\
}\n\
}\n\
\n\
{ }"
system(["awk '" awk_command "' " filename ".msh"]);
eval([ filename "_msh_p"]);
eval([ filename "_msh_e"]);
eval([ filename "_msh_t"]);
msh=struct("p",p',"t",t',"e",e');
|