home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / h / COCS < prev    next >
Encoding:
Text File  |  1995-05-07  |  1.0 KB  |  41 lines
  1. #ifndef pOt_COCS__INC
  2. #define pOt_COCS__INC
  3. /* This code is generated by pOt. */
  4.  
  5.  
  6.  
  7. struct pOt__tag_1_COCS {
  8.   pOt__ArrTypDsc *td;
  9.   pOt_CHAR arr[0x80L];
  10. } ;
  11. extern pOt__ArrTypDsc pOt__td_1_COCS;
  12. struct pOt__tag_2_COCS {
  13.   pOt__ArrTypDsc *td;
  14.   pOt_CHAR arr[0x100L];
  15. } ;
  16. extern pOt__ArrTypDsc pOt__td_2_COCS;
  17. struct pOt__tag_3_COCS {
  18.   pOt__RecTypDsc *td;
  19.   struct pOt__tag_2_COCS pOt_name;
  20.   pOt_LONGINT pOt_line;
  21.   pOt_INTEGER pOt_col;
  22. } ;
  23. extern pOt__RecTypDsc pOt__td_3_COCS;
  24.  
  25. extern pOt_BOOLEAN pOt_linecol_COCS;
  26. extern pOt_INTEGER pOt_numtyp_COCS;
  27. extern pOt_LONGINT pOt_intval_COCS;
  28. extern pOt_REAL pOt_realval_COCS;
  29. extern pOt_LONGREAL pOt_lrlval_COCS;
  30. extern pOt_BOOLEAN pOt_scanerr_COCS;
  31. extern struct pOt__tag_1_COCS pOt_name_COCS;
  32. extern struct pOt__tag_3_COCS pOt_txtpos_COCS;
  33.  
  34. extern void pOt_Mark_COCS pOt__ARGS((pOt_INTEGER ));
  35. extern void pOt_Get_COCS pOt__ARGS((pOt_INTEGER *));
  36. extern void pOt_Open_COCS pOt__ARGS((pOt__DynArr *));
  37. extern void pOt_Close_COCS pOt__ARGS((void));
  38. extern void pOt_COCS__body pOt__ARGS((void));
  39.  
  40. #endif
  41.