Commit cbd2e9ca authored by Stewart Brodie's avatar Stewart Brodie
Browse files

* Now supports show-at-pointer and show-centred showtypes.

* Version number now maintained by srccommit.

Version 0.17. Tagged as 'FileInfo-0_17'
parent d15e79a8
......@@ -51,6 +51,7 @@ CPFLAGS = ~cfr~v
WFLAGS = ~c~v
CFLAGS = -c -depend !Depend ${INCLUDES} -zM -ffah -zps1 ${DFLAGS}
CMHGFLAGS= -depend !Depend -p
DFLAGS = -D${SYSTEM}
ROMFLAGS = -DROM
INCLUDES = -I<Lib$Dir>.tboxlibint.,<Lib$Dir>.tboxlibs:,C:
......@@ -98,7 +99,7 @@ RESF=o.res
# Rule patterns
#
.c.o:; ${CC} ${CFLAGS} ${ROMFLAGS} -o $@ $<
.cmhg.o:; ${CMHG} -o $@ $<
.cmhg.o:; ${CMHG} ${CMHGFLAGS} -o $@ $<
#
# Main rules:
......
/* (0.16)
/* (0.17)
*
* This file is automatically maintained by srccommit, do not edit manually.
*
*/
#define Module_MajorVersion_CMHG 0.16
#define Module_MajorVersion_CMHG 0.17
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 14 Jul 1998
#define Module_MajorVersion "0.16"
#define Module_Version 16
#define Module_MajorVersion "0.17"
#define Module_Version 17
#define Module_MinorVersion ""
#define Module_Date "14 Jul 1998"
......@@ -229,7 +229,7 @@ _kernel_oserror *show_actual (void) {
return e;
}
show_info = global_next->show_info;
show_type = (show_info) ? ((global_next->flags & FileInfoInternal_FullInfoShow) ? 1 : 2) : 0;
show_type = global_next->show_type;
regs.r[4] = regs.r[0]; /* parent id */
regs.r[5] = regs.r[1]; /* parent component */
......
......@@ -114,6 +114,7 @@ extern _kernel_oserror *show_object (_kernel_swi_regs *r, TaskDescriptor *t)
internal->show_info = NULL;
break;
}
internal->show_type = user_regs->r[2];
if (internal->flags & FileInfoInternal_GenerateShowEvent) {
regs.r[0] = 0; /* flags*/
......
......@@ -20,6 +20,7 @@
; 6-Feb-95: IDJ: version 0.14 fixes AQU-01197
;
#include "VersionNum"
initialisation-code: FileInfo_init
......@@ -29,7 +30,7 @@ service-call-handler: FileInfo_services 0x44ec1, 0x44ec2, 0x44ec3
title-string: FileInfo
help-string: FileInfo 0.16
help-string: FileInfo Module_MajorVersion_CMHG
command-keyword-table: FileInfo_commands
FileInfo_Memory()
......@@ -40,4 +41,4 @@ swi-handler-code: FileInfo_SWI_handler
swi-decoding-table: FileInfo, ClassSWI, PostFilter, PreFilter
date-string: 17 Feb 1998
date-string: Module_Date_CMHG
......@@ -20,6 +20,7 @@
; 6-Feb-95: IDJ: version 0.14 fixes AQU-01197
;
#include "VersionNum"
initialisation-code: FileInfo_init
......@@ -29,7 +30,7 @@ service-call-handler: FileInfo_services 0x44ec1, 0x44ec2, 0x44ec3
title-string: FileInfo
help-string: FileInfo 0.16
help-string: FileInfo Module_MajorVersion_CMHG
swi-chunk-base-number: 0x82ac0
......@@ -37,4 +38,4 @@ swi-handler-code: FileInfo_SWI_handler
swi-decoding-table: FileInfo, ClassSWI, PostFilter, PreFilter
date-string: 17 Feb 1998
date-string: Module_Date_CMHG
......@@ -44,6 +44,7 @@ typedef union _show_info {
typedef struct _file_info_internal {
struct _file_info_internal *forward;
struct _file_info_internal *backward;
int show_type;
ShowInfo *show_info;
int flags;
ObjectID object_id,sub_object_id;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment