Maple Professional
Maple Academic
Maple Student Edition
Maple Personal Edition
Maple Player
Maple Player for iPad
MapleSim Professional
MapleSim Academic
Maple T.A. - Testing & Assessment
Maple T.A. MAA Placement Test Suite
Möbius - Online Courseware
Machine Design / Industrial Automation
Aerospace
Vehicle Engineering
Robotics
Power Industries
System Simulation and Analysis
Model development for HIL
Plant Modeling for Control Design
Robotics/Motion Control/Mechatronics
Other Application Areas
Mathematics Education
Engineering Education
High Schools & Two-Year Colleges
Testing & Assessment
Students
Financial Modeling
Operations Research
High Performance Computing
Physics
Live Webinars
Recorded Webinars
Upcoming Events
MaplePrimes
Maplesoft Blog
Maplesoft Membership
Maple Ambassador Program
MapleCloud
Technical Whitepapers
E-Mail Newsletters
Maple Books
Math Matters
Application Center
MapleSim Model Gallery
User Case Studies
Exploring Engineering Fundamentals
Teaching Concepts with Maple
Maplesoft Welcome Center
Teacher Resource Center
Student Help Center
ModulePrint - function to apply prior to pretty-printing a module
Calling Sequence
module() export ModulePrint, ...; ... end module;
Description
If a module has an export or local named ModulePrint, the result of the ModulePrint() command is displayed instead of the module when a command in that module is executed.
ModulePrint is analogous to the user-defined function formatting facility described in ?print, except no arguments are passed to the formatting function.
Examples
Here we create a linked list package. The package provides the ability to create a new linked list, and prepend to an existing linked list via the New and Prepend exports. Creating a new linked list returns a module node "object".
LinkedList := module() option package; export New, Prepend; local DisplayNode; New := proc( data ) module() export Val, Next; local ModulePrint; Val := data; Next := 0; ModulePrint := proc() DisplayNode(thismodule); end proc; end module; end proc; Prepend := proc( llist, val ) local node; node := New(val); node:-Next := eval(llist); return node; end proc; DisplayNode := proc( node ) if node = 0 then return NULL; else return node:-Val, DisplayNode(node:-Next); end if; end proc; end module:
Now load the package and create a linked list. Note how the node modules get displayed. The head node is formatted by the ModulePrint command which calls DisplayNode to output the entire linked list.
See Also
module, ModuleApply, print, procedure
Download Help Document