mirror of
https://github.com/Interlisp/maiko.git
synced 2026-03-02 01:40:22 +00:00
48 lines
1.4 KiB
C
48 lines
1.4 KiB
C
/* $Id: usrsubr.c,v 1.3 1999/05/31 23:35:46 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
|
*/
|
|
static char *id = "$Id: usrsubr.c,v 1.3 1999/05/31 23:35:46 sybalsky Exp $ Copyright (C) Venue";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/* The contents of this file are proprietary information */
|
|
/* belonging to Venue, and are provided to you under license. */
|
|
/* They may not be further distributed or disclosed to third */
|
|
/* parties without the specific permission of Venue. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
/** User defined subrs here. Do NOT attempt to use this unless you FULLY
|
|
understand the dependencies of the LDE architecture. **/
|
|
|
|
#define DO_UFN \
|
|
{ return (-1); }
|
|
|
|
int UserSubr(int user_subr_index, int num_args, int *args) {
|
|
int result = 0;
|
|
|
|
/* *** remove the printf when finished debugging your user subr *** */
|
|
|
|
printf("debug: case: 0x%x, args: 0x%x\n", user_subr_index, num_args);
|
|
{
|
|
int i;
|
|
for (i = 0; i < num_args; i++) printf("debug: arg[%d]: 0x%x\n", i, args[i]);
|
|
};
|
|
|
|
switch (user_subr_index) {
|
|
case 0:
|
|
printf("sample UFN\n");
|
|
result = args[0];
|
|
break;
|
|
default: DO_UFN;
|
|
}
|
|
|
|
return (result);
|
|
}
|