source: git/doc/sample.lib @ 2e553a

Last change on this file since 2e553a was 45d2830, checked in by Wolfram Decker <decker@…>, 12 years ago
revised docu git-svn-id: file:///usr/local/Singular/svn/trunk@13537 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 385 bytes
[33a3fda]1// Example of a user accessible procedure
2proc tab (int n)
[45d2830]3"USAGE:    tab(n);  n integer
[33a3fda]4RETURNS:  string of n space tabs
[8f2bf7d]5EXAMPLE:  example tab; shows an example"
[33a3fda]6{ return(internal_tab(n)); }
9  "EXAMPLE:"; echo=2;
[39aaa1a]10  for(int n=0; n<=4; n=n+1)
11  { tab(4-n)+"*"+tab(n)+"+"+tab(n)+"*"; }
[33a3fda]14// Example of a static procedure
[8f2bf7d]15static proc internal_tab (int n)
[33a3fda]16{ return(" "[1,n]); }
Note: See TracBrowser for help on using the repository browser.