mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-05 16:04:45 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
296
src/cdrom.c
Executable file → Normal file
296
src/cdrom.c
Executable file → Normal file
@@ -1,8 +1,6 @@
|
||||
/* $Id: cdrom.c,v 1.3 1999/05/31 23:35:26 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: cdrom.c,v 1.3 1999/05/31 23:35:26 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
static char *id = "$Id: cdrom.c,v 1.3 1999/05/31 23:35:26 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
@@ -17,10 +15,9 @@ static char *id = "$Id: cdrom.c,v 1.3 1999/05/31 23:35:26 sybalsky Exp $ Copyrig
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
/***********************************
|
||||
|
||||
file: cdrom.c
|
||||
file: cdrom.c
|
||||
|
||||
***********************************/
|
||||
|
||||
@@ -36,215 +33,190 @@ static char *id = "$Id: cdrom.c,v 1.3 1999/05/31 23:35:26 sybalsky Exp $ Copyrig
|
||||
#include "arith.h"
|
||||
#include "cdrom.h"
|
||||
|
||||
int cdrom(LispPTR *args) {
|
||||
int request;
|
||||
int res;
|
||||
|
||||
int cdrom(LispPTR *args)
|
||||
{
|
||||
int request;
|
||||
int res;
|
||||
|
||||
|
||||
N_GETNUMBER(args[0], request, BAD_ARG);
|
||||
N_GETNUMBER(args[0], request, BAD_ARG);
|
||||
|
||||
#ifdef DEBUG
|
||||
printf("CD-ROM function called. function = %d\n",request);
|
||||
printf("CD-ROM function called. function = %d\n", request);
|
||||
#endif
|
||||
|
||||
switch(request){
|
||||
case CDROM_INIT_DRV:
|
||||
res = cdrom_init_drv(args);
|
||||
break;
|
||||
case CDROM_KEN_INT:
|
||||
res = cdrom_ken_int(args);
|
||||
break;
|
||||
case CDROM_CHOSAKU:
|
||||
res = cdrom_chosaku(args);
|
||||
break;
|
||||
case CDROM_MIKANA:
|
||||
res = cdrom_mikana(args);
|
||||
break;
|
||||
case CDROM_MIKANAT:
|
||||
res = cdrom_mikanat(args);
|
||||
break;
|
||||
case CDROM_SYURYO:
|
||||
res = cdrom_syuryo(args);
|
||||
break;
|
||||
default:
|
||||
return(NIL);
|
||||
break;
|
||||
}
|
||||
switch (request) {
|
||||
case CDROM_INIT_DRV: res = cdrom_init_drv(args); break;
|
||||
case CDROM_KEN_INT: res = cdrom_ken_int(args); break;
|
||||
case CDROM_CHOSAKU: res = cdrom_chosaku(args); break;
|
||||
case CDROM_MIKANA: res = cdrom_mikana(args); break;
|
||||
case CDROM_MIKANAT: res = cdrom_mikanat(args); break;
|
||||
case CDROM_SYURYO: res = cdrom_syuryo(args); break;
|
||||
default: return (NIL); break;
|
||||
}
|
||||
#ifdef DEBUG
|
||||
printf( "Result = %d\n",res );
|
||||
printf("Result = %d\n", res);
|
||||
#endif
|
||||
if ( res == 0 ) {
|
||||
return(ATOM_T);
|
||||
} else {
|
||||
return( GetSmallp(res) );
|
||||
}
|
||||
if (res == 0) {
|
||||
return (ATOM_T);
|
||||
} else {
|
||||
return (GetSmallp(res));
|
||||
}
|
||||
|
||||
BAD_ARG:
|
||||
return(NIL);
|
||||
BAD_ARG:
|
||||
return (NIL);
|
||||
}
|
||||
|
||||
static int cdrom_init_drv(LispPTR *args)
|
||||
|
||||
|
||||
/*
|
||||
args[0] function number
|
||||
args[1] pointer to buffer
|
||||
args[2] device name
|
||||
args[0] function number
|
||||
args[1] pointer to buffer
|
||||
args[2] device name
|
||||
*/
|
||||
{
|
||||
int res;
|
||||
char *buff;
|
||||
char drive[80];
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
int res;
|
||||
char *buff;
|
||||
char drive[80];
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
|
||||
if (GetTypeNumber(args[1]) == TYPE_ONED_ARRAY ){
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[1]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return(1);
|
||||
LispStringToCString(args[2], drive, 80);
|
||||
if (GetTypeNumber(args[1]) == TYPE_ONED_ARRAY) {
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[1]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return (1);
|
||||
LispStringToCString(args[2], drive, 80);
|
||||
|
||||
return( init_drv(buff, drive) );
|
||||
return (init_drv(buff, drive));
|
||||
}
|
||||
|
||||
|
||||
static int cdrom_ken_int(LispPTR *args)
|
||||
|
||||
|
||||
/*
|
||||
args[0] function number
|
||||
args[1] shoseki number
|
||||
args[2] flag for index and sort
|
||||
args[0] function number
|
||||
args[1] shoseki number
|
||||
args[2] flag for index and sort
|
||||
*/
|
||||
{
|
||||
int bunno;
|
||||
int flg;
|
||||
int bunno;
|
||||
int flg;
|
||||
|
||||
N_GETNUMBER(args[1], bunno, BAD_ARG);
|
||||
N_GETNUMBER(args[2], flg, BAD_ARG);
|
||||
N_GETNUMBER(args[1], bunno, BAD_ARG);
|
||||
N_GETNUMBER(args[2], flg, BAD_ARG);
|
||||
#ifdef DEBUG
|
||||
printf( "bunno = %x\n",bunno );
|
||||
printf( "flg = %d\n",flg );
|
||||
printf("bunno = %x\n", bunno);
|
||||
printf("flg = %d\n", flg);
|
||||
#endif
|
||||
return( ken_int(bunno, flg) );
|
||||
return (ken_int(bunno, flg));
|
||||
|
||||
BAD_ARG:
|
||||
return(1);
|
||||
BAD_ARG:
|
||||
return (1);
|
||||
}
|
||||
|
||||
|
||||
static int cdrom_chosaku(LispPTR *args)
|
||||
|
||||
|
||||
/*
|
||||
args[0] function number
|
||||
args[1] buffer for copy right data
|
||||
args[2] real data size
|
||||
args[0] function number
|
||||
args[1] buffer for copy right data
|
||||
args[2] real data size
|
||||
*/
|
||||
{
|
||||
char *buff;
|
||||
int size;
|
||||
int *data_size;
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
|
||||
if (GetTypeNumber(args[1]) == TYPE_ONED_ARRAY ){
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[1]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return(1);
|
||||
size = (int)(((OneDArray *)naddress)->totalsize);
|
||||
#ifdef DEBUG
|
||||
printf( "size = %d\n",size );
|
||||
#endif
|
||||
data_size = (int *)(Addr68k_from_LADDR(args[2]));
|
||||
return( chosaku(buff, size, data_size) );
|
||||
}
|
||||
char *buff;
|
||||
int size;
|
||||
int *data_size;
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
|
||||
if (GetTypeNumber(args[1]) == TYPE_ONED_ARRAY) {
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[1]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return (1);
|
||||
size = (int)(((OneDArray *)naddress)->totalsize);
|
||||
#ifdef DEBUG
|
||||
printf("size = %d\n", size);
|
||||
#endif
|
||||
data_size = (int *)(Addr68k_from_LADDR(args[2]));
|
||||
return (chosaku(buff, size, data_size));
|
||||
}
|
||||
|
||||
static int cdrom_mikana(LispPTR *args)
|
||||
|
||||
|
||||
/*
|
||||
args[0] function number
|
||||
args[1] relative id number
|
||||
args[2] pointer to retrieve data
|
||||
args[3] size of retrieve data
|
||||
args[0] function number
|
||||
args[1] relative id number
|
||||
args[2] pointer to retrieve data
|
||||
args[3] size of retrieve data
|
||||
*/
|
||||
{
|
||||
int hyono;
|
||||
char *buff;
|
||||
int buff_size;
|
||||
int *data_size;
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
int hyono;
|
||||
char *buff;
|
||||
int buff_size;
|
||||
int *data_size;
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
|
||||
|
||||
N_GETNUMBER(args[1], hyono, BAD_ARG);
|
||||
if (GetTypeNumber(args[2]) == TYPE_ONED_ARRAY ){
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[2]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return(1);
|
||||
buff_size = (int)(((OneDArray *)naddress)->totalsize);
|
||||
data_size = (int *)(Addr68k_from_LADDR(args[3]));
|
||||
return( mikana(hyono, buff, buff_size, data_size) );
|
||||
N_GETNUMBER(args[1], hyono, BAD_ARG);
|
||||
if (GetTypeNumber(args[2]) == TYPE_ONED_ARRAY) {
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[2]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return (1);
|
||||
buff_size = (int)(((OneDArray *)naddress)->totalsize);
|
||||
data_size = (int *)(Addr68k_from_LADDR(args[3]));
|
||||
return (mikana(hyono, buff, buff_size, data_size));
|
||||
|
||||
BAD_ARG:
|
||||
return(1);
|
||||
BAD_ARG:
|
||||
return (1);
|
||||
}
|
||||
|
||||
|
||||
static int cdrom_mikanat(LispPTR *args)
|
||||
|
||||
|
||||
/*
|
||||
args[0] function number
|
||||
args[1] pointer to a search key
|
||||
args[2] pointer to buffer
|
||||
args[3] size of searched data
|
||||
args[4] nuber of items matched to the search key
|
||||
args[0] function number
|
||||
args[1] pointer to a search key
|
||||
args[2] pointer to buffer
|
||||
args[3] size of searched data
|
||||
args[4] nuber of items matched to the search key
|
||||
*/
|
||||
{
|
||||
char key[65];
|
||||
char *buff;
|
||||
int buff_size;
|
||||
int *data_size;
|
||||
int *hitn;
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
char key[65];
|
||||
char *buff;
|
||||
int buff_size;
|
||||
int *data_size;
|
||||
int *hitn;
|
||||
LispPTR *naddress;
|
||||
char *base;
|
||||
int offset;
|
||||
|
||||
|
||||
LispStringToCString2(args[1], key, 65);
|
||||
if (GetTypeNumber(args[2]) == TYPE_ONED_ARRAY ){
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[2]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return(1);
|
||||
buff_size = (((OneDArray *)naddress)->totalsize);
|
||||
data_size = (int *)(Addr68k_from_LADDR(args[3]));
|
||||
hitn = (int *)(Addr68k_from_LADDR(args[4]));
|
||||
LispStringToCString2(args[1], key, 65);
|
||||
if (GetTypeNumber(args[2]) == TYPE_ONED_ARRAY) {
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[2]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
offset = (int)(((OneDArray *)naddress)->offset);
|
||||
buff = &base[offset];
|
||||
} else
|
||||
return (1);
|
||||
buff_size = (((OneDArray *)naddress)->totalsize);
|
||||
data_size = (int *)(Addr68k_from_LADDR(args[3]));
|
||||
hitn = (int *)(Addr68k_from_LADDR(args[4]));
|
||||
|
||||
return( mikanat(key, buff, buff_size, data_size, hitn) );
|
||||
return (mikanat(key, buff, buff_size, data_size, hitn));
|
||||
}
|
||||
|
||||
|
||||
static int cdrom_syuryo(LispPTR *args)
|
||||
|
||||
|
||||
/*
|
||||
args[0] function number
|
||||
args[0] function number
|
||||
*/
|
||||
{
|
||||
return( syuryo() );
|
||||
return (syuryo());
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user