formula.pre

来自「利用人工智能程序设计语言prolog编程实现的公式计算软件源代码。」· PRE 代码 · 共 44 行

/*****************************************************************************

		Copyright (c) My Company

 Project:  FORMULA
 FileName: FORMULA.PRE
 Purpose: Predicate definitions for FORMULA.PRO
 Written by: Visual Prolog
 Comments:
******************************************************************************/
GLOBAL DOMAINS
rlist=real*
%BEGIN_DECL, System generated global predicates
GLOBAL PREDICATES
%%% for software dog
GLOBAL PREDICATES
  dassert(string,string) - (i,i) language c
  ckdg(EHANDLER Hinst) - (i)  language c
 chk_show_dog(symbol LegalYN,integer WhatMsgYN /*1=show , 0= not show*/) -(o,i) %LegalYN= legal/illegal, if illegal, msg is showed
 
 GLOBAL DATABASE-softwaredog
  str(string,string)
  handler(EHANDLER)


GLOBAL PREDICATES
  project_ShowHelpContext(INTEGER Index) - (i)
  dlg_about_dialog_Create(WINDOW Parent) - (i)
  tb_project_toolbar_Create(WINDOW Parent) - (i)
  tb_help_line_Create(WINDOW Parent) - (i)
  dlg_fcalc_Create(WINDOW Parent) - (i)
  win_fcalc_Create(WINDOW Parent) - (i)
  win_file_Create(WINDOW Parent,string Title , String Text) - (i,i,i)
%END_DECL
/* new: not used: 	% 7.8.2001
%BEGIN_DECL, System generated global predicates
GLOBAL PREDICATES

  project_ShowHelpContext(INTEGER Index) - (i)
  dlg_about_dialog_Create(WINDOW Parent) - (i)
  tb_project_toolbar_Create(WINDOW Parent) - (i)
  tb_help_line_Create(WINDOW Parent) - (i)
%END_DECL
*/