home *** CD-ROM | disk | FTP | other *** search
/ Dream 57 / Amiga_Dream_57.iso / Amiga / Programmation / e / Exemples / capus.lha / Pmodules / PMHeader.e < prev   
Encoding:
Text File  |  1994-05-02  |  1.3 KB  |  27 lines
  1. /********************************************************************************
  2.  * Fichier      : PMheader.e
  3.  * ProcΘdures   : - p_DoReadHeader(PTR TO header)
  4.  * Informations : Use of MHeader.m
  5.  *******************************************************************************/
  6. /*********************************************************************************/
  7. /* DEF FOR MHeader (Mheader.m must be present in your source code                */
  8. /*********************************************************************************/
  9. DEF title_req[80]:STRING
  10. PROC p_DoReadHeader(my_header:PTR TO prgheader) /*"p_DoReadHeader(my_header:PTR TO prgheader)"*/
  11. /********************************************************************************
  12.  * Para         : Address of a prgheader struct (MHeader.m).
  13.  * Return       : NONE
  14.  * Description  : Initialise the Info Prg var.
  15.  *******************************************************************************/
  16.     DEF prg_version
  17.     DEF prg_revision
  18.     DEF prg_name[20]:STRING
  19.     DEF prg_author[20]:STRING
  20.     prg_version:=my_header.version
  21.     prg_revision:=my_header.revision
  22.     StringF(prg_name,'\s',my_header.nomprg)
  23.     StringF(prg_author,'\s',my_header.auteur)
  24.     StringF(title_req,'\s v\d.\d ⌐ \s',prg_name,prg_version,prg_revision,prg_author)
  25. ENDPROC
  26.  
  27.