Conversion script: link fix

2015-02-26T23:48:53Z

link fix

New page

Back to [[BasicSource]]

This is a utility to define associated multivales for the amvedit_ae utility.

<PRE>
SUBROUTINE [[AMVDEFINE_AE]](MAT AEJUNK)

* Defines an associated multivalue group for [[AMVEDIT_AE]].
* The definition is kept in VOC item FILENAME_amv
*
* AE runs $xxx programs by having an item in [[AE_XCOMS]] keyed $xxx where
* the second line is the named of a cataloged program ending in _AE
*
* For example, if you have $DA set up with [[AMVDEFINE_AE]] on line 2,
* it will run this program if you enter "$DA" within AE

BELL = CHAR(7)
FILENAME = AEJUNK(24)
IF FILENAME EQ '' THEN
CRT 'There is no file name':BELL
RETURN
END
IF FILENAME NE OCONV(FILENAME,'MCP') THEN
CRT 'The file name has unprintable characters':BELL
RETURN
END
OPEN 'VOC' TO VOC ELSE
CRT 'Cannot open VOC file':BELL
RETURN
END
AMID = FILENAME:'_amv'
READ JUNK FROM VOC, AMID ELSE
JUNK = 'X - Associated [[MultiValue]] definitions'
END
IF JUNK<1>[1,1] NE 'X' THEN
CRT 'The definition for ':AMID
RETURN
END
SAVE = JUNK
MARK = JUNK<2>

PROMPT ':'

LOOP
LOOP
GOSUB PACK
CRT 'Defining Associated Multivalues for ':FILENAME
CRT 'Delimiter = >':MARK:'<'
CRT ' AMVs = ':SIGN
CRT
CRT 'Commands - 1-9 for AMVs, [D]elimiter, ':
CRT '[R]eturn, [Q]uit. Enter command ':
INPUT COMD,1
COMD = UPCASE(COMD)
IF COMD GT '0' AND COMD LE '9' THEN
GOSUB DOAMV
CONTINUE
END
UNTIL INDEX('[[/D/Q/R]]/','/':COMD:'/',1) DO
CRT 'Command unknown - Must be one of D, R or Q':BELL
REPEAT
BEGIN CASE
* Delimiter change - must be printable, but not a letter or number
CASE COMD EQ 'D'
LOOP
CRT 'Press the key for the delimiter you want to use'
CRT 'or just press [ENTER] to use a value mark ':
INPUT MUCK,1
BEGIN CASE
CASE MUCK = ''
MARK = ''
CASE MUCK MATCHES '1N'
MUCK = 'Cannot use a number'
CASE MUCK MATCHES '1A'
MUCK = 'Cannot use a letter'
CASE MUCK NE OCONV(MUCK,'MCP')
MUCK = 'Cannot use a non-printable character'
CASE 1
MARK = MUCK
MUCK = ''
END CASE
UNTIL MUCK EQ '' DO
CRT MUCK:BELL
REPEAT
* Update Definition
CASE COMD EQ 'R'
GOSUB PACK
IF CRAP THEN
CRT CRAP
COMD = ''
CONTINUE
END ELSE
JUNK<1> = 'X - Associated [[MultiValue]] definitions'
JUNK<2> = MARK
JUNK<3> = THIS
JUNK<4> = THAT
WRITE JUNK ON VOC, AMID
END
END CASE
UNTIL COMD EQ 'R' OR COMD EQ 'Q' DO
REPEAT
RETURN

PACK:
THIS = ''; THAT = ''; SIGN = ''; CRAP = ''
FOR XX = 5 TO 13
LINE = JUNK<XX>
YYNO = DCOUNT(LINE,@VM)
FOR YY = 1 TO YYNO
BITE = LINE<1,YY>
LOCATE(BITE,THIS,1;HERE) THEN
THERE = THAT<1,HERE> - 4
CRAP = 'Line ':BITE:' is in two AMVs -':THERE:' and ':XX-4
END ELSE
THIS<1,-1> = BITE
THAT<1,-1> = XX
END
SIGN<XX> = XX-4
NEXT YY
NEXT XX
CONVERT @AM TO ' ' IN SIGN
SIGN = TRIM(SIGN)
RETURN

DOAMV:
POSN = COMD + 4
KITH = JUNK<POSN>
LOOP
SHOW = CHANGE(KITH,@VM,' ')
CRT 'AMV ':COMD:', Fields = ':SHOW
CRT ' Press [C]lear, [R]eturn, [Q]uit, or [F]ields ':
INPUT WHAT,1
BEGIN CASE
* Clear everything for this AMV definition
CASE WHAT = 'C'
KITH = ''
* Field add & delete - unordered as the first is the controlling one
* also I want to be able to define the order
CASE WHAT EQ 'F'
LOOP
SHOW = CHANGE(KITH,@VM,' ')
CRT 'AMV definition ':POSN-4
CRT ' Fields = ':SHOW
CRT
CRT 'Enter a field number to add or delete - ':
CRT 'or nothing to end editing ':
INPUT MUCK
BEGIN CASE
CASE MUCK MATCHES '1[[N0N]]'
LOCATE(MUCK,KITH,1;POSV)
THEN DEL KITH<1,POSV>
ELSE INS MUCK BEFORE KITH<1,POSV>
CASE MUCK = ''
CASE 1
CRT 'The input was not an integer':BELL
END CASE
UNTIL MUCK = '' DO
REPEAT
CASE WHAT EQ 'R'
JUNK<POSN> = KITH
END CASE
UNTIL WHAT EQ 'R' OR WHAT EQ 'Q' DO
REPEAT
RETURN
</PRE>

AMVdefine AE - Revision history

Conversion script: link fix