Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AUTLCMP2

AUTLCMP2.m

Go to the documentation of this file. 
  1. AUTLCMP2 ;IHS/OIT/FBD - COMPARE ISO 639-2 LANGUAGE CODES TO TEXT FILE
  1.  ;;98.1;IHS DICTIONARIES (POINTERS);**26**;FEB 9,2011;Build 6
  1.  ;
  1.  ;IHS/OIT/FBD - UTILITY TO COMPARE THE CONTENTS OF A TEXT FILE CONTAINING
  1.  ;THE ISO 639-2 LANGUAGE CODE SET AGAINST CURRENT ENTRIES IN THE RPMS
  1.  ;LANGUAGES FILE (FILE #9999999.99) AND IDENTIFY THE FOLLOWING:
  1.  ; - ENTRIES IN THE TEXT FILE NOT MATCHED AGAINST THE LANGUAGES; THESE
  1.  ;   REPRESENT POTENTIAL NEW ENTRIES WHICH NEED TO BE EVALUATED FOR 
  1.  ;   ADDITION TO THE LANGUAGES FILE.
  1.  ; - ENTRIES IN THE LANGUAGES FILE WHICH DO NOT HAVE A CORRESPONDING
  1.  ;   TEXT FILE ENTRY; THESE REPRESENT POTENTIALLY OBSOLETE OR ERRONEOUS
  1.  ;   LANGUAGES FILE ENTRIES.
  1.  ;
  1.  ;THE TEXT FILE SHOULD BE NAMED 'ISO-639-2_utf-8.txt' AND RESIDE IN THE
  1.  ;DIRECTORY SPECIFIED IN THE FILE IMPORT PATH FIELD OF THE RPMS SITE FILE.
  1.  ;THE SOURCE FOR THE TEXT FILE CAN BE FOUND AT THE FOLLOWING URL:
  1.  ;http://www.loc.gov/standards/iso639-2/ascii_8bits.html
  1.  ;THE FILE'S DATA WILL BE ARRANGED IN THE FOLLOWING FORMAT, WITH FIELDS
  1.  ;SEPARATED BY PIPE CHARACTERS (|):
  1.  ;
  1.  ;ISO 639-2 Code B|ISO 639-2 Code T|ISO 639-1 Code|English Language name|French Language name
  1.  ;
  1.  ;THE FRENCH LANGUAGE NAME FIELD IS NOT USED BY RPMS; IT IS INCLUDED
  1.  ;SOLELY TO DOCUMENT ITS PRESENCE IN THE LIBRARY OF CONGRESS TABLES.
  1.  ;ITS INCLUSION MAY BE CONSIDERED OPTIONAL.
  1.  ;
  1.  ;SOME LANGUAGES HAVE TWO ISO 639-2 CODES REFLECTING BIBLIOGRAPHIC USAGE
  1.  ;VERSUS TERMINOLOGY USAGE; THESE LANGUAGES WILL HAVE BOTH THE ISO 639-2
  1.  ;Code B AND ISO 639-2 Code T FIELDS POPULATED.  THE VAST MAJORITY OF
  1.  ;LANGUAGES WILL HAVE ONLY A SINGLE CODE, IN WHICH CASE ONLY THE
  1.  ;ISO 639-2 Code B FIELD WILL BE POPULATED.
  1.  ;
  1.  ;
  1.  D INIT
  1.  D:'AUTEXIT MAIN
  1.  D CLEANUP
  1.  Q
  1.  ;
  1. INIT ;PRIMARY MODULE INITIALIZATION
  1.  S AUTEXIT=0
  1.  S AUTDIR=$P(^AUTTSITE(1,1),U,1)  ;RPMS SITE/FILE IMPORT PATH DIRECTORY
  1.  S AUTFILE="ISO-639-2_utf-8.txt"  ;IMPORT FILE NAME
  1.  S AUTFS="|"  ;TEXT FILE'S FIELD SEPARATOR
  1.  K AUTMATCH S AUTMATCH=0  ;ARRAY TO LOG MATCHED CODES FROM TEXT FILE
  1.  K AUTMISS S AUTMISS=0  ;ARRAY TO LOG UNMATCHED CODES FROM TEXT FILE
  1.  ;
  1.  S IOP="HFS"
  1.  S %ZIS("HFSNAME")=AUTDIR_AUTFILE
  1.  S %ZIS("HFSMODE")="R"
  1.  D ^%ZIS
  1.  I POP D  Q
  1.  .W !!,"JOB ABORTED - FILE ",AUTFILE," NOT FOUND IN ",AUTDIR," IMPORT DIRECTORY.",!
  1.  .S AUTEXIT=1
  1.  Q
  1.  ;
  1. MAIN ;PRIMARY MODULE EXECUTION DRIVER
  1.  F  D  Q:AUTEXIT
  1.  .U IO
  1.  .R AUTRCD:0
  1.  .I AUTRCD="" D ^%ZISC S AUTEXIT=1 Q
  1.  .D EXTRACT
  1.  .U IO(0) W !,AUTISO2," - ",AUTISO2T," - ",AUTISO1," - ",AUTLANG  ;DEBUG
  1.  .D EVAL
  1.  Q
  1.  ;
  1. EXTRACT ;EXTRACT DATA FROM INPUT RECORD
  1.  S AUTISO2=$P(AUTISO,AUTFS,1)  ;ISO 639-2 CODE
  1.  S AUTISO2T=$P(AUTISO,AUTFS,2)  ;ISO 639-2 TERMINOLOGY CODE (IF PRESENT)
  1.  S AUTISO1=$P(AUTISO,AUTFS,3)  ;ISO 639-1 CODE (IF PRESENT)
  1.  S AUTLANG=$P(AUTISO,AUTFS,4)  ;ENGLISH NAME FOR LANGUAGE
  1.  Q
  1.  ;
  1. EVAL ;EVALUATE EXTRACTED CODE(S)
  1.  
  1.  Q
  1.  ;
  1. CLEANUP ;POST-EXECUTION PARTITION CLEANUP
  1.  ;K AUTDIR,AUTEXIT,AUTFILE,AUTFS,AUTRCD
  1.  ;K AUTISO1,AUTISO2,AUTISO2T,AUTLANG
  1.  Q