home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / MPW / GCC 1.37.1r15 / Tests / pasproc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-02-10  |  457 b   |  26 lines  |  [TEXT/MPS ]
  1. short foo(char, short, long);
  2. pascal short bar(char, short, long);
  3. pascal short (*tobar)(char, short, long);
  4.  
  5. typedef pascal short (*barptr)(char, short, long);
  6.  
  7. barptr tobar2;
  8. pascal barptr tobar3;
  9.  
  10. short fancy(barptr callback, short ditem);
  11.  
  12. main()
  13. {
  14.     foo(1, 2, 3);
  15.     bar(4, 5, 6);
  16.     (*tobar)(7, 8, 9);
  17.     (*tobar2)(10, 11, 12);
  18.     (*tobar3)(13, 14, 15);
  19.     fancy(tobar2, 12345);
  20. }
  21.  
  22. short fancy(barptr callback, short ditem)
  23. {
  24.     return (*callback)(1, ditem, 3);
  25. }
  26.