/*+ * COUNT mprpp() * * Description : Routine to 'pop' a record number from the menu-stack * This routine is reserved for MPR-subroutines only * * Returns : MPRPP = INTEGER returning the record number of a menu * name-record from the menu-stack, * zero record number means: stack is empty * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : MPRPP.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprpp.c * * Package : TRAMPC * * Updates : name version * * description : -*/ #include #include COUNT mprpp() { IMPORT MPRCOM m; COUNT mprpp, i; for(mprpp = m.istack[0], i = 0; i < m.mstack-1; m.istack[i] = m.istack[i+1], ++i); m.istack[m.mstack] = NULL; return(mprpp); }