/usr/share/gnudatalanguage/lib/lmgr.pro is in libgnudatalanguage0 0.9.7-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | ;$Id: lmgr.pro,v 1.3 2016/06/05 14:18:41 gilles-duvert Exp $
;+
;
;
;
; NAME:
; LMGR
;
;
; PURPOSE:
; return license information
; emulates an IDL desktop license
; As GDL does not need license management this routine is
; for IDL compatibility only
;
;
; CATEGORY:
; compatibility
;
;
; CALLING SEQUENCE:
; res = LMGR(/CLIENTSERVER,/DEMO,/EMBEDDED,
; /RUNTIME,/STUDENT,/TRIAL,/VM,
; [EXPIRE_DATE=variable],/FORCE_DEMO,
; [INSTALL_NUM=variable],[LMHOSTID=variable],
; [SITE_NOTICE=variable]
;
;
; OUTPUTS: 1 if no keyword is set
; 0 otherwise
;
;
;
; COMMON BLOCKS:
; none
;
; SIDE EFFECTS:
; none
;
;
; MODIFICATION HISTORY:
; Written by: Marc Schellens
; Special undocumented features for testing presence of additional licensed programs added by G. Duvert
;
;
;-
; LICENCE:
; Copyright (C) 2005,
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
;-
function LMGR,some_additional_licensed_program,$
CLIENTSERVER=cs,DEMO=demo,EMBEDDED=eb,$
RUNTIME=rt,STUDENT=student,TRIAL=trial,VM=vm,$
EXPIRE_DATE=expire,FORCE_DEMO=force,$
INSTALL_NUM=install_num,LMHOSTID=hostid,$
SITE_NOTICE=site_notice, VERSION=version
on_error, 2
hostid = '000000000001'
install_num = '00001'
site_notice= 'GNU'
; undocumeted feature: tests for other programs & licences, with their VERSION:
; probably necessary to answer "no" and return a warning
if (n_params() gt 0) then begin
message,/informational,'Procedure is testing presence of an external program: "'+some_additional_licensed_program+'", absent from GDL'
return, 0
endif
;
if keyword_set( cs) then return,0
if keyword_set( demo) then return,0
if keyword_set( eb) then return,0
if keyword_set( rt) then return,0
if keyword_set( student) then return,0
if keyword_set( trial) then return,0
if keyword_set( vm) then return,0
return,1
end
|