home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NANNWS24.ARC / MAIN.PRG < prev    next >
Encoding:
Text File  |  1988-05-18  |  1.3 KB  |  34 lines
  1. * Figure 1.  MAIN.PRG
  2.  
  3.  
  4. * MAIN.PRG
  5. * How Clipper handles unknown symbols
  6. *                                                        PUBLICIZE   EXTERNALIZE
  7. *
  8. EXTERNAL ext_sym           && unconditional               --         EXT_SYM
  9.  
  10. SET PROCEDURE TO pfl1_sym  && file on disk                --         --
  11. SET PROCEDURE TO pfl2_sym  && file not on disk            --         PFL2_SYM
  12.  
  13. SET FORMAT TO fmt1_sym     && file on disk                --         --
  14. SET FORMAT TO fmt2_sym     && file not on disk            --         FMT2_SYM
  15.  
  16. DO prc1_sym                && code here in file           --         --
  17. DO some_proc               && code in a co-file           --         --
  18. DO prc2_sym                && code not in file; on disk   --         --
  19. DO prc3_sym                && code not in file or on disk --         PRC3_SYM
  20.  
  21. x = udf1_sym               && code here in file           --         --
  22. x = udf2_sym               && code not in file            --         UDF2_SYM
  23.  
  24. mac_var = "mac_sym"        && no action, figure it        --         --
  25. DO &mac_var                &&     out at runtime          --         --
  26.  
  27. *-----------------------
  28. PROCEDURE prc1_sym         && here's code,                PRC1_SYM   --
  29. RETURN
  30.  
  31. FUNCTION udf1_sym          && here's code,                UDF1_SYM   --
  32. RETURN("")
  33.  
  34.