Reverse abbrev

 
/* ------------------------------------------------------------------ */
/* function: Check, if a string is equal to the last part of another  */
/*           string                                                   */
/*                                                                    */
/* call:     thisRC = ReverseAbbrev( information, info )              */
/*                                                                    */
/* where:    information - string that should end with 'info'         */
/*           info - string to test                                    */
/*                                                                    */
/* returns:  1 - yes, 0 - no                                          */
/*                                                                    */
/* note:     e.g                                                      */
/*           ReverseAbbrev( 'C:\OS2\PMDD.SYS', 'PMDD.SYS' ) is 1      */
/*           ReverseAbbrev( 'C:\OS2\PMDD.SYS', 'PMDD.ADD' ) is 0      */
/*                                                                    */
ReverseAbbrev: PROCEDURE
  return abbrev( reverse( arg(1) ), reverse( arg(2) ) )