home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / h / COCT < prev    next >
Encoding:
Text File  |  1995-05-06  |  3.0 KB  |  82 lines
  1. #ifndef pOt_COCT__INC
  2. #define pOt_COCT__INC
  3. /* This code is generated by pOt. */
  4.  
  5.  
  6. typedef struct pOt__tag_1_COCT *pOt_Object_COCT;
  7. typedef struct pOt__tag_1_COCT pOt_ObjDesc_COCT;
  8. typedef struct pOt__tag_2_COCT *pOt_Struct_COCT;
  9. typedef struct pOt__tag_2_COCT pOt_StrDesc_COCT;
  10. typedef struct pOt__tag_3_COCT pOt_Item_COCT;
  11.  
  12. struct pOt__tag_0_COCT {
  13.   pOt__ArrTypDsc *td;
  14.   pOt_CHAR arr[0x20L];
  15. } ;
  16. extern pOt__ArrTypDsc pOt__td_0_COCT;
  17. struct pOt__tag_1_COCT {
  18.   pOt__RecTypDsc *td;
  19.   pOt_Object_COCT pOt_dsc, pOt_next;
  20.   pOt_Struct_COCT pOt_typ;
  21.   pOt_INTEGER pOt_mnolev;
  22.   pOt_LONGINT pOt_intval;
  23.   pOt_LONGREAL pOt_fltval;
  24.   pOt_SHORTINT pOt_mode;
  25.   pOt_BOOLEAN pOt_marked;
  26.   struct pOt__tag_0_COCT pOt_name;
  27. } ;
  28. extern pOt__RecTypDsc pOt__td_1_COCT;
  29. struct pOt__tag_2_COCT {
  30.   pOt__RecTypDsc *td;
  31.   pOt_SHORTINT pOt_form;
  32.   pOt_INTEGER pOt_mno, pOt_ref;
  33.   pOt_LONGINT pOt_n;
  34.   pOt_INTEGER pOt_descr;
  35.   pOt_Struct_COCT pOt_BaseTyp;
  36.   pOt_Object_COCT pOt_link, pOt_strobj;
  37. } ;
  38. extern pOt__RecTypDsc pOt__td_2_COCT;
  39. struct pOt__tag_3_COCT {
  40.   pOt__RecTypDsc *td;
  41.   pOt_SHORTINT pOt_mode;
  42.   pOt_INTEGER pOt_mnolev;
  43.   pOt_LONGINT pOt_intval;
  44.   pOt_LONGREAL pOt_fltval;
  45.   pOt_INTEGER pOt_qoffs;
  46.   pOt_Struct_COCT pOt_typ;
  47.   pOt_Object_COCT pOt_obj;
  48. } ;
  49. extern pOt__RecTypDsc pOt__td_3_COCT;
  50. struct pOt__tag_4_COCT {
  51.   pOt__PtrArrTypDsc *td;
  52.   pOt_Object_COCT arr[0x40L];
  53. } ;
  54. extern pOt__PtrArrTypDsc pOt__td_4_COCT;
  55.  
  56. extern pOt_Object_COCT pOt_topScope_COCT;
  57. extern pOt_Struct_COCT pOt_undftyp_COCT, pOt_bytetyp_COCT, pOt_booltyp_COCT, pOt_chartyp_COCT, pOt_sinttyp_COCT, pOt_inttyp_COCT, pOt_linttyp_COCT, pOt_realtyp_COCT, pOt_lrltyp_COCT, pOt_settyp_COCT, pOt_stringtyp_COCT, pOt_niltyp_COCT, pOt_notyp_COCT;
  58. extern pOt_INTEGER pOt_nofGmod_COCT;
  59. extern struct pOt__tag_4_COCT pOt_GlbMod_COCT;
  60. extern pOt_INTEGER pOt_level_COCT;
  61. extern pOt_Object_COCT pOt_wasderef_COCT;
  62. extern pOt_BOOLEAN pOt_typchk_COCT;
  63.  
  64. extern void pOt_Init_COCT pOt__ARGS((void));
  65. extern void pOt_Close_COCT pOt__ARGS((void));
  66. extern void pOt_FindImport_COCT pOt__ARGS((pOt_Object_COCT , pOt_Object_COCT *));
  67. extern void pOt_Find_COCT pOt__ARGS((pOt_Object_COCT *, pOt_INTEGER *));
  68. extern void pOt_FindObj_COCT pOt__ARGS((pOt_Object_COCT , pOt_INTEGER *));
  69. extern void pOt_FindField_COCT pOt__ARGS((pOt_Struct_COCT , pOt_Object_COCT *));
  70. extern void pOt_Insert_COCT pOt__ARGS((pOt__DynArr *, pOt_Object_COCT *));
  71. extern void pOt_Remove_COCT pOt__ARGS((pOt_Object_COCT ));
  72. extern void pOt_OpenScope_COCT pOt__ARGS((pOt_INTEGER , pOt__DynArr *));
  73. extern void pOt_CloseScope_COCT pOt__ARGS((void));
  74. extern pOt_BOOLEAN pOt_HasPtr_COCT pOt__ARGS((pOt_Struct_COCT ));
  75. extern pOt_BOOLEAN pOt_IsParam_COCT pOt__ARGS((pOt_Object_COCT ));
  76. extern void pOt_VarMode_COCT pOt__ARGS((struct pOt__tag_3_COCT *));
  77. extern void pOt_Import_COCT pOt__ARGS((pOt__DynArr *, pOt__DynArr *, pOt__DynArr *));
  78. extern void pOt_Export_COCT pOt__ARGS((pOt__DynArr *, pOt__DynArr *, pOt__DynArr *, pOt_BOOLEAN *, pOt_LONGINT *));
  79. extern void pOt_COCT__body pOt__ARGS((void));
  80.  
  81. #endif
  82.