45 lines
1.7 KiB
C++
45 lines
1.7 KiB
C++
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* uniVerse include file SYMBOLINS.H
|
||
|
|
*
|
||
|
|
* Module %M% Version %I% Date %H%
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intended
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Maintenance log - insert most recent change descriptions at top
|
||
|
|
*
|
||
|
|
* Date.... GTAR# WHO Description.........................................
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 11/12/92 10214 PVW Port PI/open verbs to uniVerse.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Place entries in symbol table.
|
||
|
|
* Equivalent to the following subroutine:
|
||
|
|
* SUBROUTINE SYMBOL (TOKEN, SYMBOL.VALUE, POS, SYMBOLS)
|
||
|
|
* Assumes '$INSERT SYMBOL.TBL'
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
LSYMBOL:
|
||
|
|
POS = INDEX(SYMBOLS (SYMBOL.VALUE), @FM:TOKEN:@VM, 1)
|
||
|
|
IF POS > 0 THEN
|
||
|
|
POS = EXTRACT(SYMBOLS (SYMBOL.VALUE) [POS + LEN(TOKEN) + 2, 4], 1, 1, 0)
|
||
|
|
END ELSE IF TOKEN # '' AND 'A':TOKEN = 'A':EXTRACT(SYMBOLS (SYMBOL.VALUE), 1, 1, 0) THEN
|
||
|
|
POS = EXTRACT(SYMBOLS (SYMBOL.VALUE), 1, 2, 0)
|
||
|
|
END ELSE
|
||
|
|
POS = SYMBOLS (NEXT.TKN.VALUE)
|
||
|
|
IF POS > SYMBOL.SIZE THEN
|
||
|
|
PRINT 'Too many tokens in sentence being parsed (LSYMBOL).'
|
||
|
|
EXP.EXIT:
|
||
|
|
END
|
||
|
|
SYMBOLS (SYMBOL.VALUE)<-1> = TOKEN:@VM:POS:@VM:SYMBOL.ORIGIN
|
||
|
|
SYMBOLS (NEXT.TKN.VALUE) = POS + 1
|
||
|
|
END
|
||
|
|
RETURN
|