source:
git/doc/sample.lib
@
2e553a
| Last change on this file since 2e553a was 45d2830, checked in by , 12 years ago | |
|---|---|
|
|
| File size: 385 bytes | |
| Rev | Line | |
|---|---|---|
| [33a3fda] | 1 | // Example of a user accessible procedure |
| 2 | proc tab (int n) | |
| [45d2830] | 3 | "USAGE: tab(n); n integer |
| [33a3fda] | 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.
