home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 379b.lha / p2c_v1.13a / examples / p2crc < prev    next >
Text File  |  1990-06-03  |  822b  |  28 lines
  1.  
  2. # Configuration options for translating the p2c examples.
  3.  
  4.  
  5. Language    HP    # All programs are in HP Pascal dialect
  6.  
  7. VarFiles    0    # This helps basic.text's listtokens procedure work
  8.  
  9. UseEnum        0    # Not necessary except to keep Sun's pitpicking
  10.             # compiler happy.
  11.  
  12.  
  13. # These kludges will get basic.c to compile without extra runtime support:
  14. # External procedures:
  15. FuncMacro    hpm_new(p,n) = (*p = Malloc(n))
  16. FuncMacro    hpm_dispose(p,n) = Free(*p)
  17. FuncMacro    misc_getioerrmsg(s,io) = sprintf(s, "I/O Error %d", (int)io)
  18. FuncMacro    misc_printerror(er,io) = printf("Error %d/%d!\n", (int)er, (int)io)
  19. FuncMacro    gotoxy(a,b) = 0
  20. # Functions imported from asm:
  21. FuncMacro    asm_iand(a,b) = (a & b)
  22. FuncMacro    asm_ior(a,b) = (a | b)
  23. # Functions in basic.text; may as well do these, too:
  24. FuncMacro    ixor(a,b) = (a ^ b)
  25. FuncMacro    inot(a) = (~a)
  26.  
  27.  
  28.