home *** CD-ROM | disk | FTP | other *** search
- /*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
- -- EasyPlayer, EYP, Ralph Debusmann 1997-9
- */
-
- OPT MODULE
- OPT EXPORT
-
- CONST INTERFACE=20,SONGARG=10,FILE=108,FULL=256,PATTERN=80,HEADER=2000
-
- OBJECT interfaceinfo
- intname[INTERFACE]:ARRAY,
- progname[FULL]:ARRAY,
- progargs[FULL]:ARRAY,
- console[FULL]:ARRAY,
- songarg[SONGARG]:ARRAY,
- helparg[FULL]:ARRAY,
- quotes,
- filter,
- songs,
- songnumoffset,
- songnumlen,
- songnumadd,
- numsongsoffset,
- numsongslen,
- numsongsadd,
- pattern[PATTERN]:ARRAY,
- headeroffset,
- header[HEADER]:ARRAY
- ENDOBJECT
-
- PROC nullintinfo(new:PTR TO interfaceinfo)
- new.intname[0]:=0
- new.progname[0]:=0
- new.progargs[0]:=0
- new.console[0]:=0
- new.songarg[0]:=0
- new.helparg[0]:=0
- new.quotes:=TRUE
- new.filter:=FALSE
- new.songs:=FALSE
- new.songnumoffset:=0
- new.songnumlen:=0
- new.songnumadd:=0
- new.numsongsoffset:=0
- new.numsongslen:=0
- new.numsongsadd:=0
- new.pattern[0]:=0
- new.headeroffset:=0
- new.header[0]:=0
- ENDPROC
-