ftp.nice.ch/pub/next/unix/audio/cmusic.bs.N.tar.gz#/src/cmusic/m.getp4.c

This is m.getp4.c in view mode; [Download] [Up]

#include "mm.head.h"

float getp4(s)
 char s[];
{
    float value;
    int PV = Verbose;

    if(Mergeflag)Verbose = 0;
    value = expr(s);
    if(Mergeflag)Verbose = PV;
    if(Tempo)value *= *Tempo;
    return( value );
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.