【Tiptop ERP T】Tiptop GP與程式編譯鏈結有關的指令r.c2 r.l2解析

yihuiworld

浏览: 51368 次
性别:
来自: 深圳

最近访客更多访客>>

guojemy

seywong

liang110

pretty_kiddy

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

探究GP系統運作，現將個人對GP系統中的各種Shell的理解解析如下，供參考！
所有說明都依 Topprod GP Server 正式區為例

之前已經介紹了與客制畫面檔有關的r.f2 、r.gf Shell，這裡繼續介紹與客制4gl源碼檔有關的shell r.c2和r.l2

說明：所有demo都依capt001為例

r.c2：編譯4GL源碼檔并產生42m檔----------------------------------------

A、r.c2 路徑
/u1/topprod/tiptop/ds4gl2/bin

B、r.c2 Shell解析

######
# Compiler source
######
# FUN-7A0064 2007/10/26 by Brendan: 編譯時去除程式碼中的 {%}

umask 000

#FGLDIR=`dirname $FGLDIR`/fgl2c.dev; export FGLDIR
FGLDIR=`echo $FGLDIR|cut -d . -f1`.dev;export FGLDIR #BUG-4C0168
  #設置環境變數FGLDIR的值為/u1/genero.dev
   #`echo $FGLDIR|cut -d . -f1`.dev表示將echo $FGLDIR命令執行結果/u1/genero.run重定向輸入給cut命令
   #cut依逗點 . 切割,-f1表示取切割后的第一部份 
# Prompt how to work
if [ "$1" = "" ] ; then
  #如果用戶光禿禿的r.gf即該shell後面沒有其他任何位置參數,則提示如下信息,并退出Shell
   echo "Usage: r.c2 prog_name\n"
   exit 1
# If has no correspond source file
elif [ ! -s ${1}.4gl ] ; then
  #判定傳進來的4gl文件名對應的文件大小size是否為0,如果size=0則提示如下信息,并退出Shell
   echo "\033[7m${1}\033[m error happens, check if:"
     #\033[7m${1}\033[m表示將位置參數$1高亮顯示
   echo "  1) Do you specify the right program name ?"
   echo "  2) Do you execute in 4GL directory ?"
   echo "  3) File size is zero ?\n"
   exit 1
fi

# Delete the previous error file(if it has)
if [ -s ../42m/${1}.err ] ; then
   rm -f ../42m/${1}.err
fi
  #同之前介紹的r.f2一樣,如果曾今有編譯過該4gl文檔且有錯誤產生,則先將錯誤文件刪除
FGLRUN=${FGLRUN:=fglrun};export FGLRUN

# Compiler the source file, and to see if has error during compilation
# echo -n $1       #No:TQC-780036
cd ../
  #跳到模組根路徑下.依demo則跳到/u1/topprod/topcust/cap/
#mod=`pwd|awk -F / '{print $NF}'`
mod=`pwd|awk -F/ '{print $NF}'` #BUG-4C0168
  #將pwd的結果重定向給awk,awk以/為分隔符且打印最後一個字段.依demo即mod=cap
  #awk也是unix上一個很常用的工具,-F表示依什麽分隔,'{print $1,$2}'表示打印分隔后的第1個與第2個字段
m1=`echo "${mod}"|cut -c1`       #FUN-770104
  #將echo的結果cap重定向給cut,cut依-c1選項取出輸入的第一個字符.依demo即m1=c
cd 4gl >/dev/null
  #完成mod與m1的賦值跳到模組路徑4gl路徑下/u1/topprod/topcust/cap/4gl
cp -f ${1}.4gl ../42m/${mod}_${1}.4gl
  #複製4gl路勁下的4gl文檔到42m路徑下,且文檔名字為${mod}_${1}.4gl
  #這就是爲什麽我們可以在42m路徑下看到依模組名_4gl文檔名.4gl文件的原因
  #生成此4GL文檔的目的是後面要做內容處理以及r.d2+,避免更改用戶寫的原始的4gl檔

#-- FUN-7A0064 BEGIN
  #ex Shell工具處理 編譯時去除${mod}_${1}.4gl程式碼中的{%},老版本之前的寫法有{%}
ex ../42m/${mod}_${1}.4gl <<%%
  #啟動ex編輯器,類似于VI,只是ex不會啟動一個新的窗口!
  #後面會有ex編輯器用法說明
g/{%}/s//   /g
w
q
%%
#-- FUN-7A0064 END

#export FGLPROFILE=`echo $FGLPROFILE|sed "s/run/dev/g"`
#No:FUN-710055 07/01/23 by saki 自定義欄位檢查函式增加
#echo -n " .............."     #No:TQC-780036
#$FGLRUN $DS4GL/bin/compile_process.42r '3' ${mod} ${1}   #No:TQC-780036
message=`$FGLRUN $DS4GL/bin/compile_process.42r '3' ${mod} ${1}`
  #執行/u1/topprod/tiptop/ds4gl2/bin下的4GL程式compile_process
  #這裡就不介紹此4GL程式的源碼說明了,朋友們可以自己參閱該4GL源碼
echo $1 " .............." $message
  #終端上顯示的capt001  ..............上面行處理的結果message
#fglcomp -M ../42m/${mod}_${1}.4gl   #No:FUN-770104 mark
#No:FUN-770104 by saki include檔案路徑
if [ "${m1}" = c ]; then
  #如果是c的客制程式按下面行fglcomp選項編譯42m路勁下的4GL${mod}_${1}.4gl
   fglcomp -M -I $TOP/config/include -I $CUST/config/include ../42m/${mod}_${1}.4gl
else
  #如果是標準程式按下面行fglcomp選項編譯42m路勁下的4GL${mod}_${1}.4gl
   fglcomp -M -I $TOP/config/include ../42m/${mod}_${1}.4gl
fi

#一下10行處理:如果fglcomp帶-M參數執行不成功,則去掉-M參數執行fglcomp編印4gl檔
if [ $? -ne 0 ] ; then
#  fglcomp ../42m/${mod}_${1}.4gl   #No:FUN-770104 mark
   #No:FUN-770104 by saki include檔案路徑
   if [ "${m1}" = c ]; then
      fglcomp -I $TOP/config/include -I $CUST/config/include ../42m/${mod}_${1}.4gl
   else
      fglcomp -I $TOP/config/include ../42m/${mod}_${1}.4gl
   fi
fi

if [ -s ${mod}_${1}.err ] ; then
  #如果有產生錯誤文檔${mod}_${1}.err
   mv ${mod}_${1}.err ../42m/${mod}_${1}.err
     #則將錯誤文檔mv到42m路徑下,因為現在還是在4gl路徑下做的fglcomp
   rm -f ../42m/${mod}_${1}.4gl
     #并且強制刪除掉42m路徑先之前產生的4gl檔${mod}_${1}.4gl
   pg -p '(Page %d)' +/See/ ../42m/${mod}_${1}.err
     #終端上分頁顯示${mod}_${1}.err文件中的錯誤信息
   exit 1
else
   if [ -s ${mod}_${1}.42m ] ; then
     #如果沒有錯誤文件即fglcomp成功
      mv ${mod}_${1}.42m ../42m/
	 #編譯成功且編譯后的42m文件大小>0則將42m檔mv到42m路徑下
   else
      exit 1
   fi
fi

#ex編輯器的命令說明如下

Command	Abbr.	Command	Abbr.	Command	Abbr.
abbreviate	ab	next	n	tag	ta
append	a	number	nu #	unabbreviate	una
args	ar	open	o	undo	u
change	c	pop		unmap	unm

這裡只列示部份，瞭解更多請 man ex 或百度一下了！

----------------------over， r.c2編譯4GL源碼檔完畢！

r.l2：鏈結42m檔并生成42r可執行檔---------------------------------------

A、r.l2 路徑
/u1/topprod/tiptop/ds4gl2/bin

B、r.l2 Shell解析

######
#Link execute binary
#Modify: 2008/11/20 CHI-8B0037 alexstar Can't use stty in crontab
######

umask 000

# Prompt how to work
if [ "$1" = "" ] ; then
  #如果用戶光禿禿的r.l2即該shell後面沒有其他任何位置參數,則提示如下信息,并退出程式
   echo "Usage: r.l2 [lib|sub|qry]"
   echo "Usage: r.l2 prog_name\n"
   exit 1
fi

# To prevent user from pressing '^\' '^?'

if [ "$1" = "lib" -o "$1" = "sub" -o "$1" = "qry" ] ;then
  #如果r.l2的程式碼是lib或sub或qry . -o表示或者的意思
  case "$-" in    #CHI-8B0037
    # $- 表示當前Shell所有的選項設置  
  *i*)
    # $- 中有一個字符是i的情況，GP中ehco $- 為ism
    stty quit ''
	  #設置標注輸入設備終端quit選項空即stty quit不可以用
    stty intr ''
	  #設置標注輸入設備終端intr選項空即stty intr不可以用
	#stty為當前的標準輸入設備設定特定的終端IO選項,stty -a可以看看HP-UNIX GP Server標準輸入終端所有的選項
  ;;
  esac

#$FGLRUN $TOP/ds4gl2/bin/gen42r.42m $1
  $FGLRUN $TOP/ds4gl2/bin/gen42r.42r $1
    #執行4gl程式$TOP/ds4gl2/bin/gen42r.42r
    #這個有點坑爹了,居然沒有gen42r的4GL源碼

case "$-" in    #CHI-8B0037
  *i*)
    #還原回stty的quit與intr選項
    stty quit 
    stty intr '^?'
  ;;
  esac

else
  # Linking, and to see if has error during linking
  #$FGLRUN $TOP/ds4gl2/bin/gen42r.42m $1
  $FGLRUN $TOP/ds4gl2/bin/gen42r.42r $1
    #執行4gl程式$TOP/ds4gl2/bin/gen42r.42r
fi

從上可以瞭解到其實r.l2并沒有處理很複雜

憤怒的是鼎新沒有提供關鍵的4GL程式/ds4gl2/bin/gen42r.42r的源代碼

求高手通過42r反編譯得到4gl源碼

----------------------- over， r.l2鏈結42m檔Shell完畢！

與客制4GL源碼檔有關的r.c2、r.l2 就介紹到這裡！

轉載請注明CSDN李藝輝博客專欄http://blog.csdn.net/yihuiworld

分享到：

【Tiptop ERP T】Tiptop GP與程式執行有關 ... | 【Tiptop ERP T】Tiptop GP與程式客制畫面 ...

2012-05-28 16:20
浏览 4354
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论