source:
git/doc/sample.lib
@
8f2bf7d
| Last change on this file since 8f2bf7d was 8f2bf7d, checked in by , 23 years ago | |
|---|---|
|
|
| File size: 387 bytes | |
| Rev | Line | |
|---|---|---|
| [33a3fda] | 1 | // Example of a user accessible procedure |
| 2 | proc tab (int n) | |
| 3 | "USAGE: tab(n); (n integer) | |
| 4 | RETURNS: string of n space tabs | |
| [8f2bf7d] | 5 | EXAMPLE: example tab; shows an example" |
| [33a3fda] | 6 | { return(internal_tab(n)); } |
| 7 | example | |
| 8 | { | |
| 9 | "EXAMPLE:"; echo=2; | |
| [39aaa1a] | 10 | for(int n=0; n<=4; n=n+1) |
| 11 | { tab(4-n)+"*"+tab(n)+"+"+tab(n)+"*"; } | |
| [33a3fda] | 12 | } |
| [c3c00f] | 13 | |
| [33a3fda] | 14 | // Example of a static procedure |
| [8f2bf7d] | 15 | static proc internal_tab (int n) |
| [33a3fda] | 16 | { return(" "[1,n]); } |
Note: See TracBrowser
for help on using the repository browser.
