github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-10 02:00:17 +00:00
Code Issues Projects Releases Wiki Activity

Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

Browse Source
This commit is contained in:
Nick Briggs
2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
src/usrsubr.c Executable file
View File

@@ -0,0 +1,49 @@
/* $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"
/** 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);}
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);
}