From octave-sources-request at bevo dot che dot wisc dot edu Mon Mar 26 02:55:26 2001 Subject: A `simplier' print command (2) From: Laurent Mazet To: octave-sources at bevo dot che dot wisc dot edu Cc: pkienzle at kienzle dot powernet dot co dot uk, Daniel.heiserer@physik.tu-muenchen.de Date: Mon, 26 Mar 2001 10:54:56 +0100 (MEST) This message is in MIME format --_=XFMail.1.4.7.Linux:20010326105456:28744=_ Content-Type: text/plain; charset=iso-8859-1 Hi, I've merge my own version of print.m with Daniel Heiserer's version. IMHO, this version is a bit `more' Matlab like. Regards, Laurent PS: sorry for previous message. I forget to add the function :-( PPS: I take into account the Francesco Potorti's version he send me. -- Dr. Laurent Mazet === Research Engineer === Centre de Recherche de MOTOROLA Tel: +33 (0)1 69 35 48 30 ========================= Email: mazet at crm dot mot dot com --_=XFMail.1.4.7.Linux:20010326105456:28744=_ Content-Disposition: attachment; filename="print.m" Content-Transfer-Encoding: base64 Content-Description: print.m Content-Type: application/octet-stream; name=print.m; SizeOnDisk=5077 IyMgdXNhZ2U6IHByaW50IChbbmFtZV0gWywgZm9udG5hbWVdKQojIwojIyBQcmludCBhIGdyYXBo CiMjCiMjIG5hbWU6IG91dHB1dCBmaWxlIG5hbWUuIEl0cyBleHRlbnRpb24gZGVmaW5lcyBpdHMg dHlwZS4gRXh0ZW50aW9uIGNhbiBiZQojIyAgICAgICAucHMsIC5lcHMsIC5maWcsIC5keGYsIC5t ZiwgLmdpZiwgLnBuZywgLnBibS4gSWYgeW91IHdhbnQgdG8gdXNlIGFuCiMjICAgICAgIG90aGVy IGZvcm1hdCwgaXQgdHJ5IHRvIHVzZSBjb252ZXJ0IGZyb20gSW1hZ2VNYWdpY2suCiMjIGZvbnRu YW1lOiBmb250IG5hbWUgKCJIZWx2ZXRpY2EiIGJ5IGRlZmF1bHQsICJUaW1lcy1Sb21hbiIpLgoj IwojIyBJZiB0aGUgYXJndW1lbnQgaXMgb21pdHRlZCwgcHJpbnRpbmcgaXMgZGlyZWN0ZWx5IHNl bmQgdG8gY29tbW9uIHByaW50ZXIuCgojIyBDb3B5cmlnaHQgKEMpIDE5OTkgRGFuaWVsIEhlaXNl cmVyCiMjIENvcHlyaWdodCAoQykgMjAwMSBMYXVyZW50IE1hemV0CiMjCiMjIFRoaXMgcHJvZ3Jh bSBpcyBmcmVlIHNvZnR3YXJlOyBpdCBpcyBkaXN0cmlidXRlZCBpbiB0aGUgaG9wZSB0aGF0IGl0 CiMjIHdpbGwgYmUgdXNlZnVsLCBidXQgV0lUSE9VVCBBTlkgV0FSUkFOVFk7IHdpdGhvdXQgZXZl biB0aGUgaW1wbGllZAojIyB3YXJyYW50eSBvZiBNRVJDSEFOVEFCSUxJVFkgb3IgRklUTkVTUyBG T1IgQSBQQVJUSUNVTEFSIFBVUlBPU0UuICBTZWUKIyMgdGhlIEdOVSBHZW5lcmFsIFB1YmxpYyBM aWNlbnNlIGZvciBtb3JlIGRldGFpbHMuCiMjCiMjIFlvdSBzaG91bGQgaGF2ZSByZWNlaXZlZCBh IGNvcHkgb2YgdGhlIEdOVSBHZW5lcmFsIFB1YmxpYyBMaWNlbnNlCiMjIGFsb25nIHdpdGggdGhp cyBmaWxlOyBzZWUgdGhlIGZpbGUgQ09QWUlORy4gIElmIG5vdCwgd3JpdGUgdG8gdGhlCiMjIEZy ZWUgU29mdHdhcmUgRm91bmRhdGlvbiwgNTkgVGVtcGxlIFBsYWNlIC0gU3VpdGUgMzMwLCBCb3N0 b24sIE1BCiMjIDAyMTExLTEzMDcsIFVTQS4KCiMjIEZpbGUgICA6ICRJZDogcHJpbnQubSx2IDEu MTAgMjAwMS8wMy8yNiAwODo1NDoxNSBtYXpldCBFeHAgJAojIyBBdXRob3IgOiAkQXV0aG9yOiBt YXpldCAkCiMjIERhdGUgICA6ICREYXRlOiAyMDAxLzAzLzI2IDA4OjU0OjE1ICQKIyMKIyMgUmVt YXJrIDogdGFrZSBpbnRvIGFjY291bnQgRnJhbmNlc2NvIFBvdG9ydGkncyB2ZXJzaW9uLgoKZnVu Y3Rpb24gcHJpbnQobmFtZSwgZm9udG5hbWUpCgogICMjIHRha2UgY2FyZSBvZiB0aGUgc2V0dGlu Z3Mgd2UgaGFkIGJlZm9yZQogIG9yaWd0ZXJtID1zcHJpbnRmICgiZ3NldCB0ZXJtaW5hbCAlcyIs IGdnZXQoInRlcm1pbmFsIikpOwogIGlmIChvcmlndGVybShsZW5ndGgob3JpZ3Rlcm0pKSA9PSAi XG4iKQogICAgb3JpZ3Rlcm09b3JpZ3Rlcm0oWzE6bGVuZ3RoKG9yaWd0ZXJtKS0xXSk7CiAgZW5k aWY7CiAgb3JpZ291dCA9IHNwcmludGYgKCJnc2V0IG91dHB1dCAlcyIsIGdnZXQoIm91dHB1dCIp KTsKICBpZiAob3JpZ291dChsZW5ndGgob3JpZ291dCkpID09ICJcbiIpCiAgICBvcmlnb3V0PW9y aWdvdXQoWzE6bGVuZ3RoKG9yaWdvdXQpLTFdKTsKICBlbmRpZjsKICAKICBfYXV0b21hdGljX3Jl cGxvdCA9IGF1dG9tYXRpY19yZXBsb3Q7CiAgCiAgYXV0b21hdGljX3JlcGxvdCA9IDA7CgogIGlm IChuYXJnaW4gPT0gMikKICAgIG5hcmdpbi0tOwogIGVsc2UKICAgIGZvbnRuYW1lID0gIlRpbWVz LVJvbWFuIjsKICBlbmRpZjsKCiAgaWYgKG5hcmdpbiA9PSAxKSAmJiAobmFtZSA9PSAiIikKICAg IG5hcmdpbi0tOwogIGVuZGlmOwoKICB0bXBfbmFtZSA9IGdldGVudiAoIlRNUCIpOwogIGlmIChs ZW5ndGgodG1wX25hbWUpID09IDApCiAgICB0bXBfbmFtZSA9IGdldGVudiAoIlRFTVAiKTsKICAg IGlmIChsZW5ndGgodG1wX25hbWUpID09IDApCiAgICAgIGlmIChsZW5ndGgoZmluZHN0ciAodG9s b3dlcihjb21wdXRlciksICJ3aW4iKSkgIT0gMCkKICAgICAgICB0bXBfbmFtZSA9ICIvdG1wLyI7 CiAgICAgIGVsc2UKICAgICAgICB0bXBfbmFtZSA9ICJDOlxcIjsKICAgICAgZW5kaWYKICAgIGVu ZGlmCiAgZW5kaWYgIAogIHRtcF9uYW1lID0gc3ByaW50ZiAoIiVzJXMucHMiLCB0bXBfbmFtZSwg c3lzdGVtKCJlY2hvIC1uICR7UFBJRH0iKSk7CgogICMjIERpcmVjdCB0byBwcmludGVyCiAgCiAg aWYgKG5hcmdpbiA9PSAwKQogICAgZXZhbCAoc3ByaW50ZiAoImdzZXQgb3V0cHV0IFwiJXNcIjsi LCB0bXBfbmFtZSkpOwogICAgZXZhbCAoc3ByaW50ZiAoImdzZXQgdGVybWluYWwgcG9zdHNjcmlw dCBsYW5kc2NhcGUgZW5oYW5jZWQgbW9ub2Nocm9tZSBkYXNoZWQgXCIlc1wiOyIsIGZvbnRuYW1l KSk7CiAgICByZXBsb3Q7CiAgICBzeXN0ZW0oc3ByaW50ZiAoImxwciAlcyIsIHRtcF9uYW1lKSk7 CiAgICBzeXN0ZW0oc3ByaW50ZiAoInJtICVzIiwgdG1wX25hbWUpKTsKCiAgICAjIyBQb3N0c2Ny aXB0IG1vbm9jaHJvbWUKICAgIAogIGVsc2VpZiAoKGxlbmd0aChuYW1lKSA+IDMpICYmIFwKICAg ICAgICAgICh0b2xvd2VyKG5hbWUobGVuZ3RoKG5hbWUpK1stMjowXSkpID09ICIucHMiKSkKICAg IGV2YWwgKHNwcmludGYgKCJnc2V0IG91dHB1dCBcIiVzXCI7IiwgbmFtZSkpOwogICAgZXZhbCAo c3ByaW50ZiAoImdzZXQgdGVybWluYWwgcG9zdHNjcmlwdCBlcHMgZW5oYW5jZWQgbW9ub2Nocm9t ZSBkYXNoZWQgXCIlc1wiOyIsIGZvbnRuYW1lKSk7CiAgICByZXBsb3Q7CiAKICAgICMjIFBvc3Rz Y3JpcHQgY29sb3IKICAgICAgIAogIGVsc2VpZiAoKGxlbmd0aChuYW1lKSA+IDQpICYmIFwKICAg ICAgICAgICh0b2xvd2VyKG5hbWUobGVuZ3RoKG5hbWUpK1stMzowXSkpID09ICIuZXBzIikpCiAg ICBldmFsIChzcHJpbnRmICgiZ3NldCBvdXRwdXQgXCIlc1wiOyIsIG5hbWUpKTsKICAgIGV2YWwg KHNwcmludGYgKCJnc2V0IHRlcm1pbmFsIHBvc3RzY3JpcHQgZXBzIGVuaGFuY2VkIGNvbG9yIHNv bGlkIFwiJXNcIjsiLCBmb250bmFtZSkpOwogICAgcmVwbG90OwogCiAgICAjIyBYZmlnIDMuMSAK ICAgICAgIAogIGVsc2VpZiAoKGxlbmd0aChuYW1lKSA+IDQpICYmIFwKICAgICAgICAgICh0b2xv d2VyKG5hbWUobGVuZ3RoKG5hbWUpK1stMzowXSkpID09ICIuZmlnIikpCiAgICBldmFsIChzcHJp bnRmICgiZ3NldCBvdXRwdXQgXCIlc1wiOyIsIG5hbWUpKTsKICAgIGdzZXQgdGVybWluYWwgZmln OwogICAgcmVwbG90OwoKICAgICMjIEF1dG9DYWQgRFhGCiAgICAKICBlbHNlaWYgKChsZW5ndGgo bmFtZSkgPiA0KSAmJiBcCiAgICAgICAgICAodG9sb3dlcihuYW1lKGxlbmd0aChuYW1lKStbLTM6 MF0pKSA9PSAiLmR4ZiIpKQogICAgZXZhbCAoc3ByaW50ZiAoImdzZXQgb3V0cHV0IFwiJXNcIjsi LCBuYW1lKSk7CiAgICBnc2V0IHRlcm1pbmFsIGR4ZjsKICAgIHJlcGxvdDsKCiAgICAjIyBNRVRB Rk9OVAogICAgCiAgZWxzZWlmICgobGVuZ3RoKG5hbWUpID4gMykgJiYgXAogICAgICAgICAgKHRv bG93ZXIobmFtZShsZW5ndGgobmFtZSkrWy0yOjBdKSkgPT0gIi5tZiIpKQogICAgZXZhbCAoc3By aW50ZiAoImdzZXQgb3V0cHV0IFwiJXNcIjsiLCBuYW1lKSk7CiAgICBnc2V0IHRlcm1pbmFsIG1m OwogICAgcmVwbG90OwoKICAgICMjIEdpZgogICAgCiAgZWxzZWlmICgobGVuZ3RoKG5hbWUpID4g NCkgJiYgXAogICAgICAgICAgKHRvbG93ZXIobmFtZShsZW5ndGgobmFtZSkrWy0zOjBdKSkgPT0g Ii5naWYiKSkKICAgIGV2YWwgKHNwcmludGYgKCJnc2V0IG91dHB1dCBcIiVzXCI7IiwgbmFtZSkp OwogICAgZ3NldCB0ZXJtaW5hbCBnaWY7CiAgICByZXBsb3Q7CgogICAgIyMgUG9ydGFibGUgTmV0 d29yayBHcmFwaGljcwogICAgCiAgZWxzZWlmICgobGVuZ3RoKG5hbWUpID4gNCkgJiYgXAogICAg ICAgICAgKHRvbG93ZXIobmFtZShsZW5ndGgobmFtZSkrWy0zOjBdKSkgPT0gIi5wbmciKSkKICAg IGV2YWwgKHNwcmludGYgKCJnc2V0IG91dHB1dCBcIiVzXCI7IiwgbmFtZSkpOwogICAgZ3NldCB0 ZXJtaW5hbCBwbmcgY29sb3I7CiAgICByZXBsb3Q7CgogICAgIyMgUEJNcGx1cwogICAgCiAgZWxz ZWlmICgobGVuZ3RoKG5hbWUpID4gNCkgJiYgXAogICAgICAgICAgKHRvbG93ZXIobmFtZShsZW5n dGgobmFtZSkrWy0zOjBdKSkgPT0gIi5wYm0iKSkKICAgIGV2YWwgKHNwcmludGYgKCJnc2V0IG91 dHB1dCBcIiVzXCI7IiwgbmFtZSkpOwogICAgZ3NldCB0ZXJtaW5hbCBwYm0gY29sb3I7CiAgICBy ZXBsb3Q7CgogICAgIyMgRGVmYXVsdAogICAgCiAgZWxzZQogICAgW1NURE9VVCwgU1RERVJSXSA9 IHN5c3RlbSgid2hpY2ggY29udmVydCIpOwogICAgaWYgKFNUREVSUiA9PSAwKQogICAgICBldmFs IChzcHJpbnRmICgiZ3NldCBvdXRwdXQgXCIlc1wiOyIsIHRtcF9uYW1lKSk7CiAgICAgIGV2YWwg KHNwcmludGYgKCJnc2V0IHRlcm1pbmFsIHBvc3RzY3JpcHQgZXBzIGVuaGFuY2VkIGNvbG9yIHNv bGlkIFwiJXNcIjsiLCBmb250bmFtZSkpOwogICAgICByZXBsb3Q7CiAgICAgIHN5c3RlbSAoc3By aW50ZiAoImNvbnZlcnQgJXMgJXMiLCB0bXBfbmFtZSwgbmFtZSkpOwogICAgZWxzZQogICAgICBl cnJvcigiU29ycnkgeW91IGRvbid0IGhhdmUgY29udmVydCBvbiB5b3VyIG1hY2hpbmUiKTsKICAg IGVuZGlmCiAgZW5kaWYKCiAgIyMgUmVzdG9yZSBpbml0IHN0YXRlCgogICMjIDEpIHRlcm1pbmFs CiAgZXZhbCAob3JpZ3Rlcm0pOwoKICAjIyAyKSBvdXRwdXQKICAjIyBnbnVwbG90IGlzIGEgYml0 IG1lc3N5IGhlcmUsIG9uY2Ugd2Ugc3RhcnQgd2l0aCBhIHgxMSBkZXZpY2UsCiAgIyMgaGUgc2F5 cyBvdXRwdXQgaXMgIiIsIHNob3VsZCBiZSBTVERPVVQKICBvcmlnb3V0ID0gW29yaWdvdXQsJyAg ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJ107CiAgaWYgKG9yaWdvdXQoWzE6MThdKSA9 PSAiZ3NldCBvdXRwdXQgb3V0cHV0IikKICAgIGV2YWwgKCJnc2V0IG91dHB1dCIpOwogIGVsc2UK ICAgIGV2YWwgKG9yaWdvdXQpOwogIGVuZAogIHJlcGxvdDsKCiAgIyMgMykgcGxvdHRpbmcgb3B0 aW9ucwogIGF1dG9tYXRpY19yZXBsb3QgPSBfYXV0b21hdGljX3JlcGxvdCA7CiAgCmVuZGZ1bmN0 aW9uCg== --_=XFMail.1.4.7.Linux:20010326105456:28744=_-- End of MIME message ------------------------------------------------------------- Octave is freely available under the terms of the GNU GPL. Octave's home on the web: http://www.octave.org How to fund new projects: http://www.octave.org/funding.html Subscription information: http://www.octave.org/archive.html -------------------------------------------------------------