source: git/doc/sample.lib @ 1f2d3b

spielwiese
Last change on this file since 1f2d3b was 45d2830, checked in by Wolfram Decker <decker@…>, 13 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
Line 
1// Example of a user accessible procedure
2proc tab (int n)
3"USAGE:    tab(n);  n integer
4RETURNS:  string of n space tabs
5EXAMPLE:  example tab; shows an example"
6{ return(internal_tab(n)); }
7example
8{
9  "EXAMPLE:"; echo=2;
10  for(int n=0; n<=4; n=n+1)
11  { tab(4-n)+"*"+tab(n)+"+"+tab(n)+"*"; }
12}
13
14// Example of a static procedure
15static proc internal_tab (int n)
16{ return(" "[1,n]); }
Note: See TracBrowser for help on using the repository browser.