
DIRECTORY AISFileFormat, AISIO, Args, Basics, Commander, FS, IO, Rope;

AISChangeHeaderImpl: CEDAR PROGRAM
IMPORTS AISIO, Args, Basics, Commander, FS, IO

~ BEGIN

wordsHeader: INT м AISFileFormat.wordsPerAISPage;

Card: PROC [h: CARD16] RETURNS [b: Basics.HWORD] ~ {b м Basics.HFromCard16[h]};

WriteBytes: UNSAFE PROC [out: IO.STREAM, base: LONG POINTER, bytes: INT] ~ UNCHECKED {
IO.UnsafePutBlock[out, [base: LOOPHOLE[base], count: bytes]];
};

WriteInfo: PROC [out: IO.STREAM, info: AISIO.Info] ~ {
WritePartHeader: PROC [type: AISFileFormat.PartType, nBytesInPart: INT] ~ {
nWordsTotal: INT м (nBytesInPart+AISFileFormat.byteSizePartHeader)/2;
part: MACHINE DEPENDENT RECORD [
c: PartHeader, p: PACKED ARRAY [0..(BITS[WORD]-(BITS[PartHeader] MOD BITS[WORD])) MOD BITS[WORD]) OF [0..1]];
part.c м [type, nWordsTotal/256, nWordsTotal MOD 256];
IF type = nil THEN part.c.lengthHi м part.c.lengthLo м 0;
TRUSTED {WriteBytes[out, @part,	AISFileFormat.byteSizePartHeader]};
};
PartHeader: TYPE ~ AISFileFormat.PartHeader;
UCACoding: TYPE ~ AISFileFormat.UCACoding;
AttributeHeader: TYPE ~ AISFileFormat.AttributeHeader;
RasterPart: TYPE ~ AISFileFormat.RasterPart;
header: MACHINE DEPENDENT RECORD [
c: AttributeHeader, p: PACKED ARRAY [0..(BITS[WORD]-(BITS[AttributeHeader] MOD BITS[WORD])) MOD BITS[WORD]) OF [0..1]];
raster: MACHINE DEPENDENT RECORD [
c: RasterPart, p: PACKED ARRAY [0..(BITS[WORD]-(BITS[RasterPart] MOD BITS[WORD])) MOD BITS[WORD]) OF [0..1]];
uca: MACHINE DEPENDENT RECORD [
c: UCACoding, p: PACKED ARRAY [0..(BITS[WORD]-(BITS[UCACoding] MOD BITS[WORD])) MOD BITS[WORD]) OF [0..1]];
header.c м [AISFileFormat.passwordValue, Card[wordsHeader]];
raster.c м [info.raster.scanCount, info.raster.scanLength, Card[3], Card[1], 0, uca, AISFileFormat.nil];
uca.c м [info.uca.bitsPerSample, info.uca.wordsPerScanLine, AISFileFormat.nil, AISFileFormat.nil];
TRUSTED {WriteBytes[out, @header, AISFileFormat.byteSizeAttributeHeader]};
WritePartHeader[raster, AISFileFormat.byteSizeRasterPart+AISFileFormat.byteSizeUCACoding];
TRUSTED {WriteBytes[out, @raster, AISFileFormat.byteSizeRasterPart]};
TRUSTED {WriteBytes[out, @uca, AISFileFormat.byteSizeUCACoding]};
IF info.placement # NIL THEN {
part: MACHINE DEPENDENT RECORD [
c: AISFileFormat.PlacementPart, p: PACKED ARRAY [0..(BITS[WORD]-(BITS[UCACoding] MOD BITS[WORD])) MOD BITS[WORD]) OF [0..1]];
part.c м info.placementн;
WritePartHeader[placement, AISFileFormat.byteSizePlacementPart];
TRUSTED {WriteBytes[out, @part, AISFileFormat.byteSizePlacementPart]};
};
IF info.photometry # NIL THEN {
part: MACHINE DEPENDENT RECORD [
c: AISFileFormat.PhotometryPart, p: PACKED ARRAY [0..(BITS[WORD]-(BITS[UCACoding] MOD BITS[WORD])) MOD BITS[WORD]) OF [0..1]];
part.c м info.photometryн;
WritePartHeader[photometry, AISFileFormat.byteSizePhotometryPart];
TRUSTED {WriteBytes[out, @part, AISFileFormat.byteSizePhotometryPart]};
};
IF info.comments # NIL THEN { -- ugh -- };
WritePartHeader[nil, 0]; -- end header
};

AISChangeHeaderCmd: Commander.CommandProc = {
inA, outA, xA, yA, bppA, numberScanlinesA, pixelsPerLineA, commentA: Args.Arg;
[inA, outA, xA, yA, bppA, numberScanlinesA, pixelsPerLineA, commentA] м
Args.ArgsGet[cmd, "%ss-placement%ii-bitsPerPixel%i-numberScanlines%i-pixelsPerLine%i-comment%s-wordsPerLine%i"
! Args.Error => {msg м reason; CONTINUE}];
IF msg # NIL
THEN RETURN[$Failure, msg]
ELSE {
info: AISIO.Info м AISIO.ReadInfo[inA.rope];
buffer: REF TEXT м NEW[TEXT[1024]];
in: IO.STREAM м FS.StreamOpen[inA.rope ! FS.Error => GOTO Bad];
out: IO.STREAM м FS.StreamOpen[outA.rope, $create];
IF xA.ok OR yA.ok THEN {
IF info.placement = NIL THEN info.placement м NEW[AISFileFormat.PlacementPart];
IF xA.ok THEN info.placement.xLeft м Basics.HFromInt16[xA.int];
IF yA.ok THEN info.placement.yBottom м Basics.HFromInt16[yA.int];
};
IF bppA.ok THEN info.uca.bitsPerSample м Basics.HFromInt16[bppA.int];
IF numberScanlinesA.ok
THEN info.raster.scanCount м Basics.HFromInt16[numberScanlinesA.int];
IF pixelsPerLineA.ok THEN {
info.raster.scanLength м Basics.HFromInt16[pixelsPerLineA.int];
info.uca.wordsPerScanLine м Basics.HFromInt16[pixelsPerLineA.int/2+(pixelsPerLineA.int MOD 2)];
};
IF commentA.ok THEN info.comments м CONS[commentA.rope, info.comments];
WriteInfo[out, info];
IO.SetIndex[in, wordsHeader];
IO.SetIndex[out, wordsHeader];
DO
nBytes: INT м IO.GetBlock[in, buffer];
IF nBytes = 0 THEN EXIT;
IO.PutBlock[out, buffer];
ENDLOOP;
IO.Close[in];
IO.Close[out];
EXITS Bad => RETURN[$Failure, "can't open file"];
};
};

usage: Rope.ROPE м
"\nAISChangeHeader <ais-in> <ais-out> [-option]
options include:
	-placement <x, y: INTEGER>
	-bitsPerPixel <INTEGER>
	-numberScanlines <INTEGER>
	-pixelsPerLine <INTEGER>
	-comment <ROPE>";

Commander.Register["AISChangeHeader",  AISChangeHeaderCmd, usage];

END.
    а  
-- AISChangeHeaderImpl.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, February 2, 1991 7:53 pm PST
See AISIOImpl

 Э╩∙  Ц(cedarcode) styleХNewlineDelimiter
Щ Ъ╧cЬЭЩIcodeЪЬ
╧eЬ7ЩBKЪЬ)Щ)ЧKШ KЪ╧k	Ь=ШFKШ Ъ╨lnЬЯЬЯШ"KЪЯЬ'Ш.KШ ЧЪЬЯШKШ ЩKЩ ЧЪЬЯЬ!Ш1KШ ЧЪ╧nЬ╧sЯЬЯЬЯЬЯЬ ШOKШ ЧЪб
ЬЯЬЯЬЯЬЯЬЯЬЯЬ	ЯЬЯ	ЬШVKЪЯЬЯЬШ=KШKШ ЧЪ
б	ЬЯЬЯЬЯЬЯЬ
Ш6ЪбЬЯЬ.ЯЬШKKЪЬЯЬ5ШEЪЬЯЬЯ	ЬЯЬШ KЪЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬ	ШmЧKЪЬ-ЯЬШ6KЪЯЬЯЬ'Ш9KЪЯЬ<ШCKШЧKЪЬЯЬШ,KЪЬ
ЯЬШ*KЪЬЯЬ!Ш6KЪЬЯЬШ,ЪЬЯЬЯ	ЬЯЬШ"KЪЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬ	ШwЧЪЬЯЬЯ	ЬЯЬШ"KЪЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬ	ШmЧЪЬЯЬЯ	ЬЯЬШKЪЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬ	ШkЧKШ<KШhKШbKЪЯЬCШJKЪЬZШZKЪЯЬ>ШEKЪЯЬ:ШAЪЯЬЯЬЯЬШЪЬЯЬЯ	ЬЯЬШ KЪЬ#ЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬ	Ш}ЧKШKЪЬ@Ш@KЪЯЬ?ШFKШЧЪЯЬЯЬЯЬШЪЬЯЬЯ	ЬЯЬШ KЪЬ$ЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬ	Ш~ЧKШKЪЬBШBKЪЯЬ@ШGKШЧKЪЯЬЯЬЯЬЭ	ЬШ*KЪЬЭШ&KШKШ ЧЪбЬШ-KЪЬNШNЪЬвЬвЬвЬвЬвЬвЬвЬ	вЬШGKЪЬnШnKЪЬЯЬШ*ЧЪЯЬЯШKЪЯЬЯЬШЪЯЬШKЪЬЯЬЯЬШ,KЪ	ЬЯЬЯЬЯЬЯЬШ#KЪЬЯЬЯЬЯЬЯЬ
ЯЬШ?KЪЬЯЬЯЬЯЬ Ш3ЪЯЬЯЬЯЬШKЪЯЬЯЬЯЬЯЬШOKЪЯЬЯЬ2Ш?KЪЯЬЯЬ4ШAKШЧKЪЯЬ	ЯЬ6ШEЪЯЬШKЪЯЬAШEЧЪЯЬЯЬШKШ?KЪЬWЯЬШ_KШЧKЪЯЬЯЬЯЬШGKШKЪЯЬШKЪЯЬШЪЯШKЪЬЯЬЯЬШ&KЪЯЬЯЬЯЬШKЪЯЬШKЪЯЬШЧKЪЯЬШKЪЯЬШKЪЯЬЯЬШ1KШЧЧKЪЬШKШ ЧЪЬЯЬШKЪЬ╛Ш╛KШ ЧKЪЬBШBЧKШ KЪЯЬШЧ ЕЧ    ╢  O  